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;
 }
} else {
    if ($action == MQL_MOD) {
        //Modificar
        //iniciar
        $clave = parametro($xTabla->getKey(), null, MQL_INT);
        if ($clave != null) {
            $xTabla->setData($xTabla->query()->initByID($clave));
            $xTabla->setData($_REQUEST);
            $xTabla->query()->update()->save($clave);
            $xFRM->addAvisoRegistroOK();
        }
    }
}
$xFRM->addSubmit();
$xFRM->OMoneda("idbancos_cuentas", $xTabla->idbancos_cuentas()->v(), "TR.clave_de_cuenta");
$xFRM->OText("descripcion_cuenta", $xTabla->descripcion_cuenta()->v(), "TR.descripcion cuenta");
$xFRM->ODate("fecha_de_apertura", $xTabla->fecha_de_apertura()->v(), "TR.fecha de registro");
//$xFRM->OHidden("sucursal", $xTabla->sucursal()->v(), "TR.sucursal");
$xFRM->addHElem($xSel->getListaDeSucursales("sucursal", $xTabla->sucursal()->v())->get(true));
$xFRM->OSelect("estatus_actual", $xTabla->estatus_actual()->v(), "TR.estatus actual", array("activo" => "ACTIVO", "baja" => "BAJA"));
$xFRM->OText("consecutivo_actual", $xTabla->consecutivo_actual()->v(), "TR.consecutivo actual");
$xFRM->OMoneda("saldo_actual", $xTabla->saldo_actual()->v(), "TR.saldo actual");
//$xTabla->entidad_bancaria()->v()
$xFRM->OText("codigo_contable", $xTabla->codigo_contable()->v(), "TR.codigo contable");
//$xFRM->OMoneda("entidad_bancaria", $xTabla->entidad_bancaria()->v(), "TR.entidad bancaria");
$xFRM->addHElem($xSel->getListadoDeBancos("entidad_bancaria", $xTabla->entidad_bancaria()->v())->get(true));
$xFRM->OSelect("tipo_de_cuenta", $xTabla->tipo_de_cuenta()->v(), "TR.tipo de cuenta", array("cheques" => "CHEQUES", "inversion" => "INVERSION"));
$xFRM->OHidden("eacp", EACP_CLAVE, "TR.eacp");
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();