OX100AGR - Alteração dos dados do fechamento de OS modelo 2.

Descrição

Este ponto de entrada é executado antes da gravação dos dados de fechamento de ordem de serviço modelo 2, dentro da transação. Assim o usuário poderá realizar alterações adicionais nos dados antes que estes sejam gravados 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

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Selecionar Serie para Faturamento ... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If lNF

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