FINA070-FA070BCO-Validação adicional de banco

Salve salve....

Ponto de entrada FA070BCO- ( Financeiro - Baixa de Titulos a Receber)

FINA070-FA070BCO-Validação adicional de banco

#INCLUDE "PROTHEUS.CH" 

/*/{Protheus.doc} FA070BCO
Validação adicional de banco

@type		function
@author		Eurai Rapelli
@since 		2023.01.01
/*/ 
User Function FA070BCO()
	Local lRet          := .T. as Logical
	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('XXXXXXXX',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