Descrição | Este ponto de entrada é executado antes da gravação dos dados de fechamento dentro da transação. Assim o usuário poderá realizar alterações adicionais antes que sejam gravados os dados na tabela. |
|---|---|
Observações | |
Exemplos | #include "Protheus.ch" |
User Function OX100AGR()
MsgInfo("Ponto de Entrada antes da gravação dos dados do fechamento.")
Return
Preview | |
|---|---|
Veja também | |
Idioma | Português(Brasil) |
Versões | Todas |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Updates | |
Parâmetros | |
Retorno | |
Eventos de chamada do Ponto de Entrada | //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ |
cSeriePec := ""
cSerieSer := ""
For nCntFor := 1 to Len(aTipTem)
// Faturamento de Pecas
If aTipTemnCntFor,8 == "P" .and. Empty(cSeriePec)
lRet := SX5NumNota(@cSeriePec, GetNewPar("MV_TPNRNFS","1")," - PEÇAS")
If !lRet
Return .f.
EndIf
EndIf
// Faturamento de Servicos e Gera NF de Servicos
If aTipTemnCntFor,8 == "S" .and. aTipTemnCntFor,10 .and. Empty(cSerieSer)
lRet := SX5NumNota(@cSerieSer, GetNewPar("MV_TPNRNFS","1")," - SERVIÇOS")
If !lRet
Return .f.
EndIf
EndIf
//
If !Empty(cSeriePec) .and. !Empty(cSerieSer)
Exit
EndIf
Next nCntFor
EndIf
aRelFatOfi := {}
Begin Transaction
If ExistBlock("OX100AGR")
ExecBlock("OX100AGR",.f.,.f.)
EndIf
//
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Gera Pedido de Venda e Nota Fiscal ... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If lNF
// Salva a Situacao atual do Fiscal
MaFisSave()
MaFisEnd()
//
For nCntTipTem := 1 to Len(aTipTem)
VOI->(dbSetOrder(1))
VOI->(MsSeek( xFilial("VOI") + aTipTemnCntTipTem,1 ))
SA1->(dbSetOrder(1))
SA1->(MsSeek( xFilial("SA1") + aTipTemnCntTipTem,2 + aTipTemnCntTipTem,3 ))
lPeriodico := .f.
// Cliente Periodico
If lCliPeriod .and. !Empty(SA1->A1_COND) .and. SA1->A1_COND == M->VOO_CONDPG
lPeriodico := .t.
EndIf
//
Variáveis | |
|---|---|
Programa Fonte | OFIXX100.PRW |