Salve salve....
Ponto de entrada MS520DEL - ( Faturamento - Deleção nota de saída )
MATA521-MS520DEL - Executado antes da exclusão do registro da tabela SF2
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MS520DEL
Executado antes da exclusão do registro da tabela SF2
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MS520DEL()
Local cChaveSF3 := xFilial("SF3") + SF2->F2_CLIENTE + SF2->F2_LOJA + SF2->F2_DOC + SF2->F2_SERIE
Local cF3CHVNFE := ''
Local aAreaSF3 := SF3->( GetArea() )
SF3->( dbSetOrder( 4 ) )
If SF3->( dbSeek( cChaveSF3 ) )
Do While SF3->( !EOF() ) ;
.AND. SF3->( F3_FILIAL + F3_CLIEFOR + F3_LOJA + F3_NFISCAL + F3_SERIE ) == cChaveSF3
cF3CHVNFE := SF3->F3_CHVNFE
If SubStr(SF3->F3_CFO,1,1) >= "5" .AND. !Empty( SF3->F3_DTCANC ) .AND. Empty( SF3->F3_CHVNFE ) //Nota de Saida
Endif
SF3->( dbSkip() )
EndDo
Endif
RestArea( aAreaSF3 )
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima