Histórico da Página

#include "rwmake.ch"
#include "protheus.ch"
#INCLUDE "TBICONN.CH"

USER FUNCTION F080KCO()
    Local cBanco    := ParamIXB[1] // Codigo do banco
    Local cAgencia  := ParamIXB[2] // Numero da agencia
    Local cNumConta := ParamIXB[3] // Numero da conta
    Local lRet      := .T.

    If cBanco == "001"
        lRet := .F.
        MsgAlert("Banco bloqueado, utilizar outro banco","Aviso")
    Endif    
     
Return lRet