Salve salve....
Ponto de entrada SF2460I - ( Faturamento - Documento de saída )
MATA460/MATA461-SF2460I - Geração do Documento de Saida. Finalização do Doc. Saída
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} SF2460I
Geração do Documento de Saida. Finalização do Doc. Saída
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function SF2460I()
SE1->( dbSetOrder(2) )
If SE1->( dbSeek( xFilial("SE1")+SF2->F2_CLIENTE + SF2->F2_LOJA + SF2->F2_SERIE + SF2->F2_DOC ) )
Do While !SE1->( EOF() ) ;
.AND. xFilial("SF2") + SF2->(F2_CLIENTE+F2_LOJA+F2_DOC+F2_SERIE) == xFilial("SE1")+SE1->(E1_CLIENTE+E1_LOJA+E1_NUM+E1_PREFIXO)
SE1->( dbSkip() )
Enddo
Endif
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima