ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

MATA103-MT103FIM - Operação após a gravação da NFE

Autor: Eurai Criado: 16/09/2023 Atualizado: 29/10/2024

Salve salve....

Ponto de entrada MT103FIM- ( Compras - Documento de Entrada )

#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

If 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

Facebook