Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OFIIACHK - Checagens na geração das NF’s. Descrição: Pondo de Entrada que permite as checagens antes da geração das NF’s. Eventos /* =============================================================================== ############################################################################### ##+----------+------------+-------+-----------------------+------+----------+## ##|Programa | OFIIACHK |Autor | | Data | 99/99/99 |## ##+----------+------------+-------+-----------------------+------+----------+## ##|Descri‡„o | PE para fazer checagens antes da geração das NF’s|## ##+----------+--------------------------------------------------------------+## ##|Uso | Concessionarias |## ##+----------+--------------------------------------------------------------+## ############################################################################### =============================================================================== */ User function OFIIACHK() MsgAlert("Ponto de Entrada OFIIACHK chamado com Sucesso!") Return Programa Fonte OFIIA000 Sintaxe OFIIACHK - Checagens na geração das NF’s. ( [ ] ) Parâmetros:
Retorno
Observações //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Executar processamento ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Begin Transaction DbSeek( xFilial("VI0") ) Do While !Eof() .And. VI0->VI0_FILIAL == xFilial("VI0") If IsMark("VI0_OK",ThisMark(),ThisInv()) .And. !FS_FILIA000BROW() if !OFIOM390(VI0->VI0_CODMAR+VI0->VI0_SERNFI+VI0->VI0_NUMNFI) MsgInfo(STR0011+" "+VI0->VI0_NUMNFI+"-"+VI0->VI0_SERNFI+" "+STR0012,STR0010) DbSelectArea("VI0") DbSkip() loop endif //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ PE para fazer checagens antes da geracao das notas ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If ExistBlock("OFIIACHK") ExecBlock("OFIIACHK",.F.,.F.) EndIf DbSelectArea("VIA") DbSetOrder(1) DbSeek(xFilial()+VI0->VI0_CODMAR+VI0->VI0_SERNFI+VI0->VI0_NUMNFI) DbSelectArea("VE4") DbSetOrder(1) DbSeek( xFilial("VE4") + VI0->VI0_CODMAR ) Variáveis
|
Import HTML Content
Visão Geral
Conteúdo das Ferramentas