Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OFA000DPG - Geração da nota fiscal de entrada
OFA000DPG - Geração da nota fiscal de entrada

Ponto-de-Entrada: OFA000DPG - Geração da nota fiscal de entrada
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição:
Ponto de Entrada na rotina (Grava Nf Entr Estq) (OFIIA000) executado após a geração da nota fiscal de entrada com a finalidade da gravação de log.
Eventos
 /*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Programa  | OFA000DPG  |Autor  |                       | Data | 99/99/99 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descri‡„o | Ponto de Entrada após a Geração da Nota Fiscal de Entrada|##
##+----------+--------------------------------------------------------------+##
##|Uso       | Concessionarias                                              |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User function OFA000DPG()
local aItem := ParamIxb[1]
 
MsgAlert("Ponto de Entrada OFA000DPG chamado com Sucesso!")
 
Return(aItem)
 
Programa Fonte
OFIIA000.PRW
Sintaxe

OFA000DPG - Geração da nota fiscal de entrada ( [ ] )

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
Array of Record
Retorno
    ()
Observações
 MSExecAuto({|x,y| MATA103(x,y)},aCab,aItem)
 
aCab  := {}
aItem := {}
 
If lMSErroAuto
DisarmTransaction()
Break
EndIf
 
If ExistBlock("OFA000DPG")
ExecBlock("OFA000DPG",.f.,.f.,{VI0->VI0_NUMNFI,VI0->VI0_SERNFI,VI0->VI0_CODFOR,VI0->VI0_LOJFOR})
Endif
 
DbSelectArea("VI0")
RecLock("VI0",.f.)
VI0->VI0_OK := Space(Len(VI0->VI0_OK))
MsUnLock()
 
 
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão