Salve salve....
Ponto de entrada F070DTRE- ( Financeiro - Baixa de Titulos a Receber)
FINA070-F070DTRE - Antes da tela de confirmação da Baixa a Receber.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F070DTRE
Antes da tela de confirmação da Baixa a Receber
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F070DTRE()
Local cReadVar := AllTrim(ReadVar()) as character
Local lRet := .T. as logical
If Empty(cReadVar)
dBaixa := dDataBase
dDtCredito := dBaixa
Endif
If cReadVar == 'DBAIXA' .OR. cReadVar == 'DDTCREDITO'
dDtCredito := dBaixa
Endif
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima