Salve salve....
Ponto de entrada MT103FIM- ( Compras - Documento de Entrada )
MATA103-MT103FIM - Operação após a gravação da NFE
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT103FIM
Operação após a gravação da NFE
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT103FIM()
Local nOpcao := PARAMIXB[1] as numeric
Local nConfirma := PARAMIXB[2] as numeric
Private cCRLF := CRLF as character
If ( nOpcao == 3 .OR. nOpcao == 04 ) .AND. nConfirma == 1
fExecute()
Endif
Return( Nil )
/*/{Protheus.doc} fExecute
Executa script
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fExecute()
Local aAreaSD1 := SD1->( GetArea() )
Local cFilialSF1 := xFilial('SF1')
Local cFilialSD1 := xFilial('SD1')
Begin Sequence
SD1->( dbSetOrder( 1 ) ) //FILIAL + DOCUMENTO + SERIE + CLIENTE + LOJA
If SD1->( MsSeek( cFilialSD1 + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA ) )
Do While SD1->( !EOF() ) .AND. cFilialSF1 + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA == ;
cFilialSD1 + SD1->D1_DOC + SD1->D1_SERIE + SD1->D1_FORNECE + SD1->D1_LOJA ;
SD1->( dbSkip() )
EndDo
Endif
End Sequence
RestArea( aAreaSD1 )
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima
