import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: OFA000DPG - Geração da nota fiscal de entrada
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:
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
|