Salve salve....
Ponto de entrada CONAUXNF - ( Compras - Documento de Entrada)
Fim da gravação do SE2 para usuário colocar informações adicionais. Depois que usuario clicou OK no doc entr.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} CONAUXNF
Fim da gravação do SE2 para usuário colocar informações adicionais. Depois que usuario clicou OK no doc entr.
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function CONAUXNF()
Local cFilialSD1 := xFilial("SD1")
Local cFilialSE2 := xFilial("SE2")
Local aAreaSD1 := SD1->( GetArea() )
Local aAreaSE2 := SE2->( GetArea() )
SD1->( dbSetOrder(1) )
SE2->( dbSetOrder(6) )
If SD1->( MsSeek( cFilialSD1 + SF1->F1_DOC + SF1->F1_SERIE + SF1->F1_FORNECE + SF1->F1_LOJA ) )
If SE2->( MsSeek( cFilialSE2 + SF1->F1_FORNECE + SF1->F1_LOJA + SF1->F1_SERIE + SF1->F1_DOC ) )
Do While SE2->( !EOF() ) .AND. cFilialSD1 + SF1->(F1_FORNECE+F1_LOJA+F1_SERIE+F1_DOC)==cFilialSE2+SE2->(E2_FORNECE+E2_LOJA+E2_PREFIXO+E2_NUM)
If( Reclock("SE2",.F.) )
SE2->E2_CCD := SD1->D1_CC
SE2->E2_ITEMD := SD1->D1_ITEMCTA
SE2->E2_CLVLDB := SD1->D1_CLVL
SE2->( MsUnlock() )
Else
Conout('Nao foi possivel RECLOCK SE2')
Endif
SE2->( dbSkip() )
Enddo
Endif
Endif
SD1->( RestArea( aAreaSD1 ) )
SE2->( RestArea( aAreaSE2 ) )
Return(Nil)
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima