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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
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
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |