Salve salve....
Ponto de entrada FA080BCO- ( Financeiro- Baixa de Titulos a Pagar)
FINA080-FA080BCO-Valida código do banco. Pagar
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} FA080BCO
Valida código do banco. Pagar
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function FA080BCO()
Local lRet := .T. as Logical
Local cBancoP := ParamIXB[01] as Character
Local cAgenciaP := ParamIXB[02] as Character
Local cContaP := ParamIXB[03] as Character
Local lIsBlind := IsBlind() .OR. Type('__LocalDriver') == 'U'
If lIsBlind
Return( lRet )
Endif
If ReadVar() == 'CBANCO' .AND. cBanco == '752'
cAgencia := Padr('XXXX',TamSX3('A6_AGENCIA')[01])
cConta := Padr('XXXXXXX',TamSX3('A6_NUMCON')[01])
If Type("oAgencia") == "O"
oAgencia:Refresh()
Endif
If Type("oConta") == "O"
oConta:Refresh()
Endif
Endif
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima