$msg = "";
$ql = new MQL();
$xDiv = new cHDiv();
$xFil = new cHFile();
$xChk = new cHCheckBox();
$xImp = new cFileImporter();
//Si la Operacion es Configurar los Datos
if ($action == false) {
    $xFRM->addHElem($xFil->getBasic("idarchivo", ""));
    $xFRM->addHElem($xChk->get("TR.Afectar Base de Datos", "idaplicar"));
    $xFRM->addSubmit();
    $xFRM->addFootElement('<input type="hidden" name="MAX_FILE_SIZE" value="1024000">');
} elseif ($action == "u") {
    //cargar datos alfanumericos del estados
    $sqlEstados = " SELECT\t`general_estados`.`clave_alfanumerica`,\t`general_estados`.`nombre` FROM\t`general_estados` `general_estados` ";
    $arrEstados = $ql->getArrayRecord($sqlEstados);
    $sqlEmpresas = "SELECT\t`socios_aeconomica_dependencias`.`idsocios_aeconomica_dependencias`, `socios_aeconomica_dependencias`.`descripcion_dependencia` FROM\t`socios_aeconomica_dependencias` `socios_aeconomica_dependencias`";
    $arrEmpresas = $ql->getArrayRecord($sqlEmpresas);
    $usrFiles = array();
    $usrFiles[0] = $_FILES["idarchivo"];
    $msg = "";
    $afectable = parametro("idaplicar", false, MQL_BOOL);
    $prePath = PATH_BACKUPS;
    $lim = 1;
    //sizeof($usrFiles) -1;
    $xF = new cFecha();
    ////Arrays de Control
    $arrTipoIdent = array(1 => 1, 4 => 9);
    $arrEmpresas = array("PARTICULAR" => DEFAULT_EMPRESA, "" => DEFAULT_EMPRESA, "#N/D" => DEFAULT_EMPRESA, "#N/A" => DEFAULT_EMPRESA, "COLOMER" => 120, "LAB. DENTAL R Y E" => 101, "LAB. DENTAL GML" => 102, "REPSSA" => 103, "RATTMI" => 104, "DELTA" => 105, "POLIESSA" => 107, "ORCA" => 108, "SILCER" => 111, "MESSINAS" => 112, "FERVAB" => 113, "DIVACUN" => 115, "CADENITA" => 116, "HECCSA" => 117, "SAGSA" => 118, "MAGRA" => 119, "COLOMER" => 120, "BORDEX" => 121, "SERVICLIMAS" => 123, "CORECO" => 124, "CMV" => 125, "MAYCO" => 126, "TABLAROCA" => 127, "KAUA" => 129, "GONELA" => 130, "SVM" => 109, "ABIMERHI" => 106, "PREVE" => 110, "SEY" => 110, "CASTALDI" => 132, "HINO" => 114, "LAMOL" => 99, "BICIMAYA" => 131, "COUNTRY" => 132, "KOHLBERG" => 128, "POLIOBRAS" => 134, "TZUNCACAB" => 135, "GML" => 102, "RYE" => 101, "OH" => 136, "GRUPO NICXA" => 137, "SAXON" => 138, "EXHIBIT" => 122);
    $arrGeneroInv = array(1 => 2, 2 => 1, 99 => 99);
    $arrGenero = array("HOMBRE" => 1, "MUJER" => 2, "NINGUNO" => 99, "" => 99, "MASCULINO" => 1, "MASCULINA" => 1, "FEMENINO" => 2, "FEMENINA" => 2);
     $xFRM->addHElem($xTxt->get("contable_intereses_vencidos", $xTabla->contable_intereses_vencidos()->v(), "TR.Cuenta de Balance para Interes Vencidos"));
     $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);