} 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();
if (($action == MQL_ADD or $action == MQL_MOD) and $clave != null) {
$xTabla->setData($xTabla->query()->initByID($clave));
$xTabla->setData($_REQUEST);
if ($action == MQL_ADD) {
$xTabla->query()->insert()->save();
} else {
$xTabla->query()->update()->save($clave);
}
$xFRM->addAvisoRegistroOK();
}
$xFRM->OMoneda("deuda_total", $xTabla->deuda_total()->v(), "TR.total");
$xFRM->OText("telefono_uno", $xTabla->telefono_uno()->v(), "TR.telefono 1");
$xFRM->OText("telefono_dos", $xTabla->telefono_dos()->v(), "TR.telefono 2");
$xFRM->OText("fecha_llamada", $xTabla->fecha_llamada()->v(), "TR.fecha");
$xFRM->OText("hora_llamada", $xTabla->hora_llamada()->v(), "TR.hora");
$xFRM->OTextArea("observaciones", $xTabla->observaciones()->v(), "TR.observaciones");
$xFRM->OSelect("estatus_llamada", $xTabla->estatus_llamada()->v(), "TR.estatus llamada", array("efectuado" => "EFECTUADO", "cancelado" => "CANCELADO", "pendiente" => "PENDIENTE", "vencido" => "VENCIDO"));
$xFRM->OMoneda("grupo_relacionado", $xTabla->grupo_relacionado()->v(), "TR.grupo relacionado");
$xFRM->OHidden("idseguimiento_llamadas", $xTabla->idseguimiento_llamadas()->v(), "TR.idseguimiento llamadas");
$xFRM->OHidden("numero_socio", $xTabla->numero_socio()->v(), "TR.numero socio");
$xFRM->OHidden("numero_solicitud", $xTabla->numero_solicitud()->v(), "TR.numero solicitud");
$xFRM->OHidden("oficial_a_cargo", $xTabla->oficial_a_cargo()->v(), "TR.oficial a cargo");
$xFRM->OHidden("sucursal", $xTabla->sucursal()->v(), "TR.sucursal");
$xFRM->OHidden("eacp", $xTabla->eacp()->v(), "TR.eacp");
} else {
$xFRM->addCreditBasico();
$xFRM->addSubmit();
}
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
$xFRM->addHElem($xTxt->get("interes_vigente_normal", $xTabla->interes_vigente_normal()->v(), "TR.Cuenta_de_Balance para Interes Vigente devengado"));
$xFRM->addHElem($xTxt->get("interes_vigente_reestructurado", $xTabla->interes_vigente_reestructurado()->v(), "TR.Cuenta de Balance para Interes Vigente Reestructurados"));
$xFRM->addHElem($xTxt->get("interes_vigente_renovado", $xTabla->interes_vigente_renovado()->v(), "TR.Cuenta de Balance para Interes Vigente Renovados"));
$xFRM->addHElem($xTxt->get("interes_vencido_normal", $xTabla->interes_vencido_normal()->v(), "TR.Cuenta de Balance para Interes Vencido devengado"));
$xFRM->addHElem($xTxt->get("interes_vencido_reestructurado", $xTabla->interes_vencido_reestructurado()->v(), "TR.Cuenta de Balance para Interes Vencido Reestructurado"));
$xFRM->addHElem($xTxt->get("interes_vencido_renovado", $xTabla->interes_vencido_renovado()->v(), "TR.Cuenta de Balance para Interes Vencido devengado"));
$xFRM->addHElem($xTxt->get("interes_cobrado", $xTabla->interes_cobrado()->v(), "TR.Cuenta de Ingresos por Intereses Normales Cobrados"));
$xFRM->addHElem($xTxt->get("moratorio_cobrado", $xTabla->moratorio_cobrado()->v(), "TR.Cuenta de Ingresos para Intereses Moratorios Cobrados"));
$xFRM->addHElem($xTxt->get("contable_cartera_castigada", $xTabla->contable_cartera_castigada()->v(), "TR.Cuenta_Contable para Capital de Cartera Castigada"));
$xFRM->addHElem($xTxt->get("contable_intereses_anticipados", $xTabla->contable_intereses_anticipados()->v(), "TR.Cuenta_Contable para Intereses Cobrado por Anticipado"));
break;
case "tasas":
$xFRM->OMoneda("interes_moratorio", $xTabla->interes_moratorio()->v(), "TR.Tasa anualizada de interes moratorio");
$xFRM->OMoneda("interes_normal", $xTabla->interes_normal()->v(), "TR.Tasa anualizada del interes normal");
$d34 = $ql->getArrayRecord("SELECT * FROM `creditos_tipo_de_calculo_de_interes`");
$xFRM->OSelect("base_de_calculo_de_interes", $xTabla->base_de_calculo_de_interes()->v(), "TR.base de calculo de interes", $d34);
$xFRM->OMoneda("porcentaje_ica", $xTabla->porcentaje_ica()->v(), "TR.porcentaje de tasa de Interes Cobrado por Anticipado");
$xFRM->OMoneda("porcentaje_otro_credito", $xTabla->porcentaje_otro_credito()->v(), "TR.porcentaje para obtener otro credito");
$xFRM->OMoneda("porciento_garantia_liquida", $xTabla->porciento_garantia_liquida()->v(), "TR.Porcentaje de deposito en garantia liquida");
$xFRM->OMoneda("tasa_ahorro", $xTabla->tasa_ahorro()->v(), "TR.Porcentaje de Ahorro condicionado sobre el Credito");
$xFRM->OMoneda("tasa_iva", $xTabla->tasa_iva()->v(), "TR.Tasa de Impuesto_al_Consumo");
$xFRM->OSelect("iva_incluido", $xTabla->iva_incluido()->v(), "TR.impuesto_al_consumo en la Tasa de Interes", $dSN);
break;
case "dias":
$xFRM->OMoneda("dias_maximo", $xTabla->dias_maximo()->v(), "TR.Numero de Dias Maximo de Plazo");
$xFRM->OMoneda("tolerancia_dias_no_pago", $xTabla->tolerancia_dias_no_pago()->v(), "TR.tolerancia de espera en dias por falta de pago");
$xFRM->OMoneda("tolerancia_dias_primer_abono", $xTabla->tolerancia_dias_primer_abono()->v(), "TR.tolerancia dias para el primer abono");
break;
case "cantidades":
$xFRM->OMoneda("minimo_otorgable", $xTabla->minimo_otorgable()->v(), "TR.monto minimo", true);
$xFRM->OMoneda("maximo_otorgable", $xTabla->maximo_otorgable()->v(), "TR.monto maximo", true);