Salve salve....
Ponto de entrada A103CND2 - ( Compras - Documento de Entrada )
MATA103-A103CND2 - Alteração da Condição de Pagamento na Nota Fiscal de Entrada
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} NFEGDSEV
Alteração da Condição de Pagamento na Nota Fiscal de Entrada
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function A103CND2()
Local aDuplic := PARAMIXB
Local aArea := GetArea()
Local aAreaSE4 := SE4->( GetArea() )
If( FUNNAME() == 'MATA103' )
//If( Inclui .AND. !ISINCALLSTACK( 'NFEFLDCHG' ) )
If( AllTrim( SE4->E4_DESCRI ) == "ENTRADATIPO9" )
Endif
If( Inclui .AND. ReadVar() == 'CCONDICAO' .AND. !ISINCALLSTACK( 'SAFEEVAL' ) )
SE4->( dbSetOrder(1) )
If ( !Empty( cCondicao ) .And. ExistCpo( "SE4", cCondicao ) )
SE4->( MsSeek( xFilial("SE4") + cCondicao ) )
If( AllTrim( SE4->E4_DESCRI ) == "ENTRADATIPO9" )
Endif
Endif
Endif
Endif
RestArea( aArea )
RestArea( aAreaSE4 )
Return( aDuplic )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima