function init($arr = false)
 {
     if (is_array($arr)) {
         $D = $arr;
     } else {
         $ql = new MQL();
         $D = $ql->getDataRow("SELECT * FROM `bancos_cuentas` WHERE `idbancos_cuentas` = " . $this->mCuenta . " LIMIT 0,1");
     }
     $xB = new cBancos_cuentas();
     $xB->setData($D);
     $this->mClaveBanco = $xB->entidad_bancaria()->v();
     //Clave de Pais del banco
     $xBE = new cBancos_entidades();
     $xBE->setData($xBE->query()->initByID($this->mClaveBanco));
     $this->mNombreBanco = $xBE->nombre_de_la_entidad()->v();
     $this->mPaisDeOrigen = $xBE->pais_de_origen()->v(OUT_TXT);
     $this->mCuentaContable = $xB->codigo_contable()->v(OUT_TXT);
     $this->mConsecutivo = setNoMenorQueCero($xB->consecutivo_actual()->v());
     $this->mObj = $xB;
     $this->mOBanco = $xBE;
     $this->mInit = true;
     return $this->mInit;
 }
$credito = parametro("idsolicitud", $credito, MQL_INT);
$credito = parametro("solicitud", $credito, MQL_INT);
$cuenta = parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$cuenta = parametro("idcuenta", $cuenta, MQL_INT);
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
$msg = "";
/* -----------------  -----------------------*/
$clave = parametro("idbancos_cuentas", null, MQL_INT);
$xTabla = new cBancos_cuentas();
$xSel = new cHSelect();
if ($clave != null) {
    $xTabla->setData($xTabla->query()->initByID($clave));
}
$xTabla->setData($_REQUEST);
$clave = parametro("id", null, MQL_INT);
$xSel = new cHSelect();
if ($clave == null) {
    $step = MQL_ADD;
    $clave = $xTabla->query()->getLastID() + 1;
} else {
    $step = MQL_MOD;
    if ($clave != null) {
        $xTabla->setData($xTabla->query()->initByID($clave));
    }
}
$xFRM = new cHForm("frmbancos_cuentas", "bancos_alta_a_cuentas.frm.php?action={$step}");
if ($action == MQL_ADD) {