function jsaGetLocalidades($estado, $municipio, $pais, $cp)
{
    $xSel = new cHSelect();
    $text = new cHText();
    $txt = "";
    $mun = false;
    if (setNoMenorQueCero($cp) > 0) {
        if ($pais == EACP_CLAVE_DE_PAIS) {
            $xCol = new cDomiciliosColonias();
            $xCol->existe($cp);
            $mun = $xCol->getClaveDeMunicipio();
            //$xCol->getNombreMunicipio();
        }
    }
    if (PERSONAS_VIVIENDA_MANUAL == true) {
        $text->setDivClass("");
        $txt = $text->getDeNombreDeLocalidad("idnombrelocalidad", "", "TR.Localidad");
    } else {
        $xS = $xSel->getListaDeLocalidades("", $estado, $pais);
        $txt = $xS->get(false);
        if ($xS->getCountRows() <= 0) {
            //Corregir si no hay registros
            $text->setDivClass("");
            $txt = $text->getDeNombreDeLocalidad("idnombrelocalidad", "", "TR.Localidad");
        }
    }
    return $txt;
}
function getListenPermissions($iMenu)
{
    $sql = "SELECT\n\t\t\t\tmenu_rules\n\t\t\tFROM\n\t\t\t\t`general_menu` `general_menu`\n\t\t\tWHERE idgeneral_menu='{$iMenu}' LIMIT 0,1";
    $Itbl = obten_filas($sql);
    $sPerms = $Itbl["menu_rules"];
    $aPerms = explode(",", $sPerms);
    //Array de Tipos de Permisos
    $aTipoPerms = array(0 => "false", 1 => "rw", 2 => "ro");
    $options = "";
    $sqlP = "SELECT\n\t\t\t\t`general_niveles`.`idgeneral_niveles`,\n\t\t\t\t`general_niveles`.`descripcion_del_nivel` \n\t\t\tFROM\n\t\t\t\t`general_niveles` `general_niveles` WHERE idgeneral_niveles != 99 ";
    $rs = getRecordset($sqlP);
    $xHSel = new cHSelect();
    $xHSel->addOptions(array("" => "Ninguno", "ro" => "Solo Puede Ver", "rw" => "Todo"));
    while ($rw = mysql_fetch_array($rs)) {
        $nivel = $rw["idgeneral_niveles"];
        $desc = $rw["descripcion_del_nivel"];
        $tds = "";
        $selOp = "";
        foreach ($aTipoPerms as $key => $value) {
            if (in_array("{$nivel}@{$value}", $aPerms)) {
                $selOp = $value;
            }
        }
        $xHSel->setDivClass("tx1");
        $mNivel = $xHSel->get("idNiv{$nivel}", "{$desc}", $selOp);
        $options .= $mNivel;
    }
    return $options;
}
function jsaReRelaciones($idsocio)
{
    //Checar compatibilidad numerica entre los dependientes economicos
    $sqlL = new cSQLListas();
    $cBenef = new cTabla($sqlL->getListadoDeRelaciones($idsocio));
    $xTbl = new cHTabla("idtblrels");
    $xHSel = new cHSelect();
    $xChk = new cHCheckBox();
    $xText = new cHText();
    $xText->setDivClass("");
    $xChk->setDivClass("");
    $xBtn = new cHButton();
    $xUl = new cHUl();
    $li = $xUl->getO();
    $li->setT("ul");
    $li->setClass("tags blue");
    $li->add($xBtn->getBasic("TR.Guadar", "jsGuardarReferencia()", $xBtn->ic()->GUARDAR, "idguardar", false, true), "");
    $xTbl->initRow();
    $xTbl->addTD($xText->getDeNombreDePersona());
    $xTbl->addTD($xHSel->getListaDeTiposDeRelaciones("", "")->get(""));
    $xTbl->addTD($xHSel->getListaDeTiposDeParentesco()->get(""));
    $xTbl->addTD($xChk->get("TR.es dependiente_economico", "dependiente"));
    $xTbl->addRaw("<td class='toolbar-24'>" . $xUl->get() . "</td>");
    $xTbl->endRow();
    $cBenef->addTool(1);
    $cBenef->addTool(2);
    $cBenef->setKeyField("idsocios_relaciones");
    return $xTbl->get() . $cBenef->Show();
}
function jsaGetLetras($idcredito)
{
    $idcred = setNoMenorQueCero($idcredito);
    $xF = new cFecha();
    if ($idcred > DEFAULT_CREDITO) {
        $xCred = new cCredito($idcred);
        $xCred->init();
        if ($xCred->getEsAfectable() == false or $xCred->getSaldoActual() <= 0) {
            if (MODO_CORRECION == true) {
                $xTxt = new cHText();
                $xTxt->setDivClass("");
                return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
            } else {
                return $xCred->getMessages();
            }
        } else {
            if ($xCred->getPeriocidadDePago() == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
                //
                $xTxt = new cHText();
                $xTxt->setDivClass("");
                return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
            } else {
                $plan = $xCred->getNumeroDePlanDePagos();
                if ($plan != false) {
                    $xPlan = new cPlanDePagos($plan);
                    $xPlan->init();
                    $parcs = $xPlan->getParcsPendientes();
                    //$txt		= "";
                    $arrD = array();
                    foreach ($parcs as $p) {
                        //setLog( $p[SYS_NUMERO]. " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " ". getFMoney($p[SYS_TOTAL]));
                        if (setNoMenorQueCero($p[SYS_TOTAL]) > 0) {
                            $arrD[$p[SYS_NUMERO]] = $p[SYS_NUMERO] . " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " " . getFMoney($p[SYS_TOTAL]);
                        }
                    }
                    $xSel = new cHSelect();
                    $xSel->addOptions($arrD);
                    $xSel->setEnclose(false);
                    return $xSel->get("idparcialidad", "TR.Numero de Parcialidad", $xCred->getPeriodoActual() + 1);
                } else {
                    if (MODO_CORRECION == true) {
                        $xTxt = new cHText();
                        $xTxt->setDivClass("");
                        return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
                    }
                }
            }
        }
    }
}
function jsaCargaDeCreditos($persona)
{
    $xL = new cSQLListas();
    $ql = new MQL();
    $xs = new cHSelect();
    $xs->setDivClass("");
    $sql = $xL->getListadoDeCreditos($persona);
    $rs = $ql->getDataRecord($sql);
    $aOpts = array();
    //setLog($sql);
    foreach ($rs as $row) {
        $aOpts[$row["credito"]] = $row["credito"] . "-" . $row["producto"] . "-" . $row["periocidad"] . "-" . $row["saldo"];
    }
    $xs->addOptions($aOpts);
    return $xs->get("idcreditodescontado", "TR.CLAVE_de_credito");
}
function jsaListadoDeEventos($generadoEn, $programado)
{
    $xPRG = new cAlertasDelSistema();
    $cnt = "";
    $xSel = new cHSelect();
    $xRuls = new cReglaDeNegocio();
    if ($generadoEn == SYS_ALERTA_POR_EVENTO) {
        $xProg = new cAlertasDelSistema();
        $xSel->addOptions($xRuls->getEventos());
        $cnt = $xSel->get("idprogramacion", "TR.Evento Marcado");
    } else {
        $xTxtA = new cHTextArea();
        $xFld = new cHFieldset("TR.Programacion");
        if ($programado == "") {
            //$xFld->addHElem(  );
        } else {
            //$xFld->addHElem(  );
        }
        $xFld->addHElem($xTxtA->get("idprogramacion", "", "TR.programacion"));
        $cnt .= $xFld->get();
    }
    return $cnt;
}
function jsaGetListadoCierres($fecha)
{
    $xLi = new cSQLListas();
    $xF = new cFecha();
    $fecha = $xF->getFechaISO($fecha);
    $sqlList = $xLi->getListadoDeRecibos(12, "", "", $fecha);
    $xTab = new cTabla($sqlList);
    $xTab->OButton("TR.Reporte", "var xR = new RecGen(); xR.reporte(" . HP_REPLACE_ID . ")", $xTab->ODicIcons()->REPORTE);
    $xTab->OButton("TR.Panel", "var xR = new RecGen(); xR.panel(" . HP_REPLACE_ID . ")", $xTab->ODicIcons()->CONTROL);
    $xBtn = new cHButton();
    $xSel = new cHSelect();
    $xCA = $xSel->getListaDeCajasAbiertas();
    $T2 = new cTabla($xCA->getSQL() . " AND `tesoreria_cajas`.`fecha_inicio` = '{$fecha}' ");
    $T2->addEspTool($xBtn->getBasic("", "jsToCerrarCorte('{$fecha}')", "bloquear", "idcerrar", true));
    $html = $xTab->Show("TR.LISTADO DE CIERRES");
    if (MODULO_CAJA_ACTIVADO == true) {
        $html .= $T2->Show("TR.Cajas Abiertas");
        $itemsAbier = $T2->getRowCount();
        $html .= "<input type='hidden' id='idabiertas' value='{$itemsAbier}' />";
    } else {
        $html .= "<input type='hidden' id='idabiertas' value='0' />";
    }
    return $html;
}
 function getListaDeDias($events = false)
 {
     $selDias = "";
     $xLn = new cLang();
     $dias = $xLn->get("dias");
     if (CAPTACION_INVERSIONES_POR_DIA == true) {
         $xTxt = new cHText();
         if (is_array($events)) {
             foreach ($events as $evento => $func) {
                 $xTxt->addEvent($func, $evento);
             }
         }
         $selDias = $xTxt->getNormal("iddias", INVERSION_DIAS_MINIMOS, "TR.Plazo de Inversion");
     } else {
         $xSel = new cHSelect();
         if (is_array($events)) {
             foreach ($events as $evento => $func) {
                 $xSel->addEvent($func, $evento);
             }
         }
         $xSel->addOptions(array(7 => "7 {$dias}", 14 => "14 {$dias}", 28 => "28 {$dias}", 30 => "30 {$dias}", 60 => "60 {$dias}", 90 => "90 {$dias}", 120 => "120 {$dias}", 180 => "180 {$dias}", 360 => "360 {$dias}"));
         $selDias = $xSel->get("iddias", "TR.Plazo de Inversion", INVERSION_DIAS_MINIMOS);
     }
     return $selDias;
 }
    $fecha = $xF->getFechaISO($fecha);
    $tipo = $tipo == "d" ? TPERSONAS_DIRECCIONES : TPERSONAS_ACTIVIDAD_ECONOMICA;
    $xSoc = new cSocio($socio);
    $xSoc->init();
    $xSoc->setVerificacion($tipo, $id, $fecha, $notas, $oficial);
    return $xSoc->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaGuardarVerificacion', array('idfechaverificacion', 'idoficial', 'idtipo', 'idclave', "idnotas", 'idsocio'), "#avisos");
$jxc->process();
$tipo = $_REQUEST["t"];
$id = $_REQUEST["i"];
$socio = $_REQUEST["s"];
$xHP->init();
//d = domicilio t = trabajo y o actividad economica
$xFRM = new cHForm("socios_verificacion", "socios_verificacion.frm.php");
$xHSel = new cHSelect();
$xOfi = $xHSel->get("idoficial", "Oficial a Cargo", getUsuarioActual(), TVISTA_OFICIALES);
$xFRM->ODate("idfechaverificacion", false, "TR.Fecha de Verificacion");
$xFRM->addHElem($xOfi);
$xFRM->OTextArea("idnotas", "", "TR.Observaciones");
$xFRM->addHTML("<input type='hidden' id='idtipo' value='{$tipo}' >");
$xFRM->addHTML("<input type='hidden' id='idclave' value='{$id}' >");
$xFRM->addHTML("<input type='hidden' id='idsocio' value='{$socio}' >");
$xFRM->addHTML("<div class='aviso' id='avisos'></div>");
$xFRM->addSubmit("Guardar Verificacion", "jsGuardarVerificacion()");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
?>
<script  >
var xG	= new Gen();	
function jsGuardarVerificacion(){	jsaGuardarVerificacion(); jsCloseWithTimer(1500); }
    $xAML = new cAMLAlertas($id);
    $xAML->setDescartarAlerta($observaciones);
    return $xAML->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaGetListadoDeAvisos', array('idtipoderiesgo', 'idfecha-1', 'idfecha-2'), "#lstalertas");
$jxc->exportFunction('jsaConfirmRiesgo', array('idriesgo'), "#idmsg");
$jxc->exportFunction('jsaDescartarRiesgo', array('idriesgo', 'iddetalles'), "#idmsg");
$jxc->process();
echo $xHP->getHeader();
$jsb = new jsBasicForm("");
echo $xHP->setBodyinit();
$xFRM = new cHForm("frm_alertas", "./");
$xBtn = new cHButton();
$xTxt = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
$jsb->setNameForm($xFRM->getName());
$selcat = $xSel->getCatalogoDeRiesgos();
$selcat->addEvent("onblur", "jsGetListadoAvisos()");
$selcat->addEvent("onchange", "jsGetListadoAvisos()");
$selcat->addEspOption(SYS_TODAS);
$selcat->setOptionSelect(SYS_TODAS);
$xFRM->addHElem($xDate->get($xFRM->lang("fecha inicial"), false, 1));
$xFRM->addHElem($xDate->get($xFRM->lang("fecha final"), false, 2));
$xFRM->addHElem($selcat->get($xFRM->lang(array("tipo de", "Riesgo")), true));
$xFRM->addSubmit("", "jsGetListadoAvisos()");
$xta = new cHTextArea();
$xFRM9 = new cHForm("frmupdateriesgo");
$xFRM9->addHElem("<div id='tx1'>" . $xta->get("iddetalles", "", "TR.Notas") . "</div>");
//$xFRM9->addObservaciones();
$xFRM9->addSubmit("", "jsGuardarDescarto()", "jsCancelarAccion()");
$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();
/* -----------------  -----------------------*/
$clave = parametro("clave_de_control", null, MQL_INT);
$xTabla = new cAml_risk_catalog();
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("frmaml_risk_catalog", "catalogo.riesgos.editar.frm.php?action={$step}");
$xFRM->addSubmit();
if ($action == MQL_ADD) {
    //Agregar
    $clave = parametro($xTabla->getKey(), null, MQL_INT);
    if ($clave != null) {
//=====================================================================================================
$xHP = new cHPage("TR.Registro de Personas");
$jxc = new TinyAjax();
$xLoc = new cLocal();
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
$xFRM = new cHForm("frmsolingreso", "registro-personas.frm.php");
$xBtn = new cHButton();
$xTxt = new cHText();
$xTxt2 = new cHText();
$xDate = new cHDate();
$xDate2 = new cHDate(2, false, FECHA_TIPO_NACIMIENTO);
$xSel = new cHSelect();
if ($action == SYS_NINGUNO) {
    $xFRM->addGuardar("jsCheck()");
}
$xFRM->OButton("TR.Agregar PERSONA_FISICA", "jsAgregarRepLegal", $xFRM->ic()->PERSONA);
$xFRM->addSeccion("iddatosgenerales", "TR.Datos generales");
$xFRM->ODate("idfecharegistro", false, "TR.fecha de registro");
$xFRM->addHElem($xSel->getListaDeSucursales()->get(true));
if (SISTEMA_CAJASLOCALES_ACTIVA == false) {
    $xFRM->addFootElement("<input type='hidden' name='idcajalocal' name='idcajalocal' value='" . getCajaLocal() . "' />");
} else {
    $xFRM->addHElem($xSel->getListaDeCajasLocales("", true)->get("TR.punto de acceso", true));
}
$xFRM->OHidden("idtipodeingreso", TIPO_INGRESO_GRUPO, "");
//$xFRM->addHElem( $xSel->getListaDeTiposDeIngresoDePersonas("", PERSONAS_ES_MORAL)->get("TR.tipo de persona", true) );
$xFRM->OHidden("idfigurajuridica", PERSONAS_FIGURA_MORAL, "");
    $cTbl = new cTabla($sql->getListadoDeRecibos($tipo, $socio));
    $xImg = new cHImg();
    $cTbl->setKeyField("idoperaciones_recibos");
    $cTbl->setTdClassByType();
    $cTbl->OButton("TR.Reporte", "jsGetReporteRecibo(" . HP_REPLACE_ID . ")", $cTbl->ODicIcons()->REPORTE);
    $cTbl->OButton("TR.Panel", "var xRec = new RecGen(); xRec.panel(" . HP_REPLACE_ID . ")", $cTbl->ODicIcons()->EJECUTAR);
    $cTbl->setEventKey("setRecibo");
    return $cTbl->Show();
}
$jxc->exportFunction('getListRecibos', array('idTipoRecibo', 'idsocio'), "#lst-resultados");
$jxc->process();
$c = parametro("c", false, MQL_RAW);
$f = parametro("f", false, MQL_RAW);
$xHP->init();
$xFRM = new cHForm("frmsearchrecs", "./");
$xSel = new cHSelect();
$xFRM->addPersonaBasico();
$sqlsel = "SELECT\n\t\t\t\t\t\t\t`operaciones_recibostipo`.`idoperaciones_recibostipo` AS `tipo`,\n\t\t\t\t\t\t\t`operaciones_recibostipo`.`descripcion_recibostipo`   AS `descripcion`\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`operaciones_recibostipo` `operaciones_recibostipo`";
$mSel = $xSel->getListadoGenerico($sqlsel, "idTipoRecibo");
$mSel->addEspOption(SYS_TODAS);
$mSel->addEvent("onchange", "getListRecibos()");
$xFRM->addHElem($mSel->get("TR.Tipo de Recibo", true));
$xFRM->addCerrar();
$xFRM->OButton("TR.Buscar", "getListRecibos()", "buscar");
//$xFRM->addSubmit();
$xFRM->addJsBasico(iDE_SOCIO);
$xFRM->addHTML('<fieldset><legend>Resultados de la Busqueda</legend><div id="lst-resultados"></div></fieldset>');
echo $xFRM->get();
?>
</body>
<?php 
         }
         if (MODO_DEBUG == true) {
             $msg .= $xGrupo->getMessages();
         }
     }
 }
 //Agregar Domicilio si existe
 $persona = $xSoc->getCodigo();
 $xFRM->addHTML($xSoc->getFicha());
 $lastpersona = $xCL->getUltimoSocioRegistrado(true);
 $xFRM->addPersonaComandos($persona);
 $xFRM->addAvisoRegistroOK();
 //==================================== Nuevas Relaciones
 if ($origen_relacion == false) {
     $xTbl = new cHTabla("idtblrels");
     $xHSel = new cHSelect();
     $xChk = new cHCheckBox();
     $xText = new cHText();
     $xText->setDivClass("");
     $xChk->setDivClass("");
     $xBtn = new cHButton();
     $xUl = new cHUl();
     $li = $xUl->getO();
     $li->setT("ul");
     $li->setClass("tags blue");
     $li->add($xBtn->getBasic("TR.Guadar", "jsGuardarReferencia()", $xBtn->ic()->GUARDAR, "idguardar", false, true), "");
     $xTbl->initRow();
     $xTbl->addTD($xText->getDeNombreDePersona());
     $xTbl->addTD($xHSel->getListaDeTiposDeRelaciones("", "")->get(""));
     $xTbl->addTD($xHSel->getListaDeTiposDeParentesco()->get(""));
     $xTbl->addTD($xChk->get("TR.es dependiente_economico", "dependiente"));
        $xCta = new cCuentaContable($idcuenta);
        if ($xCta->init() == true) {
            $xCta->setActualizar($nombre, $equivalencia, $centro);
        }
        $xLog->add($xCta->getMessages(), $xLog->DEVELOPER);
        $xLog->add("OK\tActualizar {$idcuenta} {$nombre} {$equivalencia} {$centro}\r\n");
    }
    return $xLog->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaHeredarDatos', array('idcuenta'));
$jxc->exportFunction('jsaGuardarDatos', array('idcuenta', 'idnombrecuenta', 'idtipodecuentacontable', 'idcentrodecosto', 'idequivalencia', 'idoperacion'), "#idmsgs");
$jxc->process();
$xHP->init();
$xFRM = new cHForm("frm", "./");
$xFRM->setFieldsetClass("fieldform frmpanel");
$xSel = new cHSelect();
$xTxt = new cHText();
$xTxt->setDivClass("");
$xTxt->addEvent("jsaHeredarDatos()", "onblur");
$xTxt2 = new cHText();
$xTxt2->setDivClass("");
$msg = "";
$xFRM->addGuardar("jsaGuardarDatos()");
$xFRM->OButton("TR.Panel", "jsGoPanel()", $xFRM->ic()->EJECUTAR);
$xFRM->addDivSolo($xTxt->getDeCuentaContable("idcuenta", "", false), $xTxt2->getNormal("idnombrecuenta", "", "TR.Nombre de la Cuenta"), "tx14", "tx34");
$xFRM->addDivSolo("<input type='text' id='idcuentasuperior' disabled='true' />", "<input type='text' id='idnombresuperior' disabled='true' />", "tx14", "tx34");
$xFRM->OText("idequivalencia", "", "TR.Equivalencia");
//$xFRM->addHElem( $xSel->getListaDeNivelesDeCuentasContables()->get(true) );
$xFRM->addHElem($xSel->getListaDeTiposDeCuentasContables()->get(true));
$xFRM->addHElem($xSel->getListaDeTiposDeCentrosDeCosto()->get(true));
$xFRM->OHidden("idoperacion", "0", "TR.operacion");
//$jxc = new TinyAjax();
//$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago");
//$jxc ->process();
echo $xHP->getHeader();
$jsb = new jsBasicForm("frmdocumentos");
//$jxc ->drawJavaScript(false, true);
$ByType = "";
echo $xHP->setBodyinit();
$xFRM = new cHForm("frmsdn", "sdn.upload.frm.php?action=" . SYS_UNO);
$xFRM->setEnc("multipart/form-data");
$xFRM->setTitle($xHP->getTitle());
$arrOps = array("ADR" => $xHP->lang("domicilio") . "(ADD.PIP)", "SDN" => $xHP->lang("persona") . "(SDN.PIP)", "ALT" => $xHP->lang("alias") . "(ALT.PIP)");
$xBtn = new cHButton();
$xTxt = new cHText();
$xTxt2 = new cHText();
$xSel = new cHSelect("idtipoimportacion", $arrOps);
$xF = new cFecha();
$xT = new cTipos();
$msg = "";
if ($action == SYS_CERO) {
    $xFRM->addHElem("<div class='tx4'><label for='f1'>" . $xFRM->lang("archivo") . "</label><input type='file'  name='f1' id='f1'  /></div>");
    $xFRM->addHElem($xSel->get("", "TR.tipo de importacion"));
    //$xFRM->addHElem( $xTxt2->getDeMoneda("idnumeropagina", $xFRM->lang("numero de", "pagina")) );
    $xFRM->addHElem($xTxt->get("idobservaciones", "", "Observaciones"));
    $xFRM->addSubmit();
    $xFRM->addFootElement('<input type="hidden" name="MAX_FILE_SIZE" value="1024000">');
    echo $xFRM->get();
} else {
    $doc1 = isset($_FILES["f1"]) ? $_FILES["f1"] : false;
    $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : "";
    $tipoimportacion = isset($DDATA["idtipoimportacion"]) ? $DDATA["idtipoimportacion"] : "SDN";
    $xSoc = new cSocio($socio, true);
    $beneficiario = $xSoc->getNombreCompleto();
}
$jsb = new jsBasicForm("bancos_operaciones", iDE_OPERACION);
$jsb->setIncludeOnlyCommons();
//$jsb->show();
//$jxc ->drawJavaScript(false, true);
echo $jsb->setIncludeJQuery();
echo $xHP->setBodyinit();
$xTxt = new cHText();
$xBtn = new cHButton();
$xFRM = new cHForm("bancos_operaciones", "movimientos_bancarios.frm.php");
//id,	label value, size,	class,	options[])
$xSel = new cSelect("idcuenta", "idcuenta", TBANCOS_CUENTAS);
$xSel->setOptionSelect($numero_de_cuenta);
$xHSel = new cHSelect();
$xHSel->addOptions(array("cheque" => "Cheque", "deposito" => "Deposito", "retiro" => "Retiro"));
$selOperacion = $xHSel->get("idoperacion", "operacion", $operacion);
$xHSel->setClearOptions();
$xHSel->addOptions(array("autorizado" => "Autorizado", "noautorizado" => "No Autorizdo", "cancelado" => "Cancelado"));
$selEstatus = $xHSel->get("idestatus", "Estatus", $estado);
$xF = new cHDate(0, $fecha, TIPO_FECHA_OPERATIVA);
$xFRM->addHElem($xF->get("Fecha de Operacion"));
$xFRM->addHElem($xSel->get("Cuenta", true));
$xFRM->addHElem($selOperacion);
$xFRM->addHElem($selEstatus);
$xFRM->addHElem($xTxt->get("idsocio", $socio, "Persona"));
$xFRM->addHElem($xTxt->get("idbeneficiario", $beneficiario, "Beneficiario(Nombre)"));
$xFRM->addHElem($xTxt->get("iddocumento", $documento, "Documento"));
$xFRM->addHElem($xTxt->get("idrecibo", $recibo, "Recibo"));
$xFRM->addHElem($xTxt->getDeMoneda("idmonto", "Monto", $monto));
}
$_SESSION["current_file"] = addslashes($theFile);
//=====================================================================================================
$xHP = new cHPage("TR.Carga Masiva de Captacion", HP_FORM);
ini_set("max_execution_time", 600);
//$jxc = new TinyAjax();
//$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago");
//$jxc ->process();
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
$xFRM = new cHForm("frmcargamasiva", "vista.carga-masiva.frm.php?action=" . MQL_TEST);
$msg = "";
$xSel = new cHSelect();
$xChk = new cHCheckBox();
$xFRM->setEnc("multipart/form-data");
if ($action == SYS_NINGUNO) {
    $xFRM->OFile("idarchivo", "");
    $xFRM->addHElem($xSel->getListaDeEmpresas()->get("TR.Empresas", true));
    $xFRM->addHElem($xSel->getListaDeCaptacionProductos()->get("TR.Producto de Destino", true));
    $xFRM->addHElem($xChk->get("TR.Omitir Importacion", "idimporta"));
    //if( MODO_MIGRACION == true ){
    $xFRM->addHElem($xChk->get("TR.Omitir AML", "idaml"));
    //}
    $xFRM->addSubmit("TR.Probar");
    $xFRM->OButton("TR.Guardar", "setEnviarDocto()", "ejecutar");
} else {
    $xFi = new cFileImporter();
    $doc1 = isset($_FILES["idarchivo"]) ? $_FILES["idarchivo"] : false;
    //idelmes0 idelanno0 ideldia0
    $tab = new TinyAjaxBehavior();
    //$tab -> add(TabSetvalue::getBehavior("idNumeroSocio", $socio));
    $tab->add(TabSetvalue::getBehavior("idnombredependencia", $xSocio->getNombreCompleto()));
    //$tab -> add(TabSetvalue::getBehavior('idObservaciones', $xSoc->getMessages() ));
    return $tab->getString();
}
$jxc->exportFunction('jsaGetDatosHeredados', array("idsocio"));
$jxc->process();
echo $xHP->getHeader();
//$jsb	= new jsBasicForm("");
$xHP->init();
$xFRM = new cHForm("frmagregarempresas", "agregar-empresas.frm.php?action={$step}&empresa={$empresa}");
$xTxt2 = new cHText();
$xTxt = new cHText();
$xSel = new cHSelect();
$xTabs = new cHTabs();
$xFRM->addPersonaBasico("", false, $idsocio);
$xFRM->OText("nombrecorto", $alias, "TR.Nombre_corto");
$xFRM->addHElem($xTxt2->getDeNombreDePersona("iddirectivo", $iddirectivo, "TR.Clave_de_Persona del Contacto"));
$xFRM->OText("directivo", $directivo, "TR.Nombre de Contacto");
$xFRM->addHElem($xSel->getListaDeProductosDeCredito("", $producto)->get(true));
$xTabs->addTab("TR.Periocidad 1", $xSel->getListaDePeriocidadDePago("idperiocidad1", $periocidad1)->get("TR.Periocidad de pago", true));
$xTabs->addTab("TR.Periocidad 1", $xTxt->getNormal("dias_de_aviso1", $diasaviso1, "TR.Dias de Aviso"));
$xTabs->addTab("TR.Periocidad 1", $xTxt->getNormal("dias_de_nomina1", $diasnomina1, "TR.Dias de Nomina"));
$xTabs->addTab("TR.Periocidad 1", $xTxt->getNormal("dias_de_pago1", $diaspago1, "TR.Dias de Pago"));
$xTabs->addTab("TR.Periocidad 2", $xSel->getListaDePeriocidadDePago("idperiocidad2", $periocidad1)->get("TR.Periocidad de pago", true));
$xTabs->addTab("TR.Periocidad 2", $xTxt->getNormal("dias_de_aviso2", $diasaviso2, "TR.Dias de Aviso"));
$xTabs->addTab("TR.Periocidad 2", $xTxt->getNormal("dias_de_nomina2", $diasnomina2, "TR.Dias de Nomina"));
$xTabs->addTab("TR.Periocidad 2", $xTxt->getNormal("dias_de_pago2", $diaspago2, "TR.Dias de Pago"));
$xFRM->addAviso($msg);
$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);
$monto = 0;
if (setNoMenorQueCero($persona) <= DEFAULT_SOCIO) {
    $xDoc = new cCredito($credito);
    $xDoc->init();
    $persona = $xDoc->getClaveDePersona();
    $monto = $xDoc->getMontoAutorizado();
}
$xHP->init();
$xFRM = new cHForm("frm", "./");
$xHSel = new cHSelect();
$xChk = new cHCheckBox();
$xText = new cHText();
$msg = "";
$xFRM->addPersonaBasico();
$xFRM->addGuardar("jsVincularAval()");
$xFRM->addHElem($xChk->get("TR.es dependiente_economico", "dependiente"));
$xFRM->addHElem($xHSel->getListaDeTiposDeRelaciones("", PERSONAS_REL_CLASE_AVAL)->get(true));
$xFRM->addHElem($xHSel->getListaDeTiposDeParentesco()->get(true));
$xFRM->OMoneda("idmonto", $monto, "TR.Monto Avalado");
$xFRM->OHidden("iddocumentorelacionado", $credito, "");
$xFRM->OHidden("idpersonarelacionado", $persona, "");
$xFRM->addAviso("");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
?>
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP = new cHPage("TR.Carga de Creditos", HP_FORM);
$oficial = elusuario($iduser);
ini_set("max_execution_time", 600);
$action = isset($_GET["o"]) ? $_GET["o"] : "x";
echo $xHP->getHeader();
//$jxc ->drawJavaScript(false, true);
?>
<body>
<?php 
//Si la Operacion es Configurar los Datos
if ($action == "x") {
    $xFRM = new cHForm("frmSendFiles", "mae.prestamos.upload.frm.php?o=u");
    $xHSel = new cHSelect();
    //$xHFil			= new cHFile()
    $xFRM->setTitle("TR.ENVIAR ARCHIVO DE Creditos");
    $xFRM->setEnc("multipart/form-data");
    $xFRM->OFile("cFile1", "", "TR.Archivo");
    $xFRM->addHElem($xHSel->getListaDeProductosDeCredito()->get(true));
    $xFRM->addSubmit();
    echo $xFRM->get();
} elseif ($action == "u") {
    echo '<form name="frmConvs" method="POST" action="mae.prestamos.upload.frm.php?o=s">
<fieldset>
	<legend>Mostrar Resultado de la Carga</legend> ';
    $usrFiles = array();
    $usrFiles[0] = $_FILES["cFile1"];
    $msg = "";
    $arrPeriodos = array("D" => 10, "Q" => 15, "C" => 14, "S" => 7, "M" => 30, "" => 30, "O" => 1, "F" => 360);
//$jxc ->process();
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$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();
$xFRM = new cHForm("frm", "./");
$xSel = new cHSelect();
$xFRM->OButton("TR.Datos Generales", "jsGoToGeneral()", "ejecutar");
$xFRM->OButton("TR.Tasas", "jsGoToTasas()", "tasa");
$xFRM->OButton("TR.Dias", "jsGoToDias()", "fecha");
$xFRM->OButton("TR.cantidades", "jsGoToCantidades()", "moneda");
$xFRM->OButton("TR.Garantias", "jsGoToGarantias()", "garantia");
$xFRM->OButton("TR.Contabilidad de Capital", "jsGoToContableCapital()", "contabilidad");
$xFRM->OButton("TR.Contabilidad de Intereses", "jsGoToContableInteres()", "contabilidad");
$xFRM->OButton("TR.Comisiones", "jsGoToComisiones()", "dinero");
$xFRM->OButton("TR.Permisos", "jsGoToPermisos()", "permisos");
$xFRM->OButton("TR.Scripting", "jsGoToScript()", "codigo");
$xFRM->OButton("TR.Duplicar", "jsClonarProducto()", $xFRM->ic()->EJECUTAR);
$xFRM->OButton("TR.Otros parametros", "jsOtrosParametros()", $xFRM->ic()->CONTROL);
//$xSel->setDivClass();
$msg = "";
//$xFRM->addSubmit();
$jxc->exportFunction('jsaVincularEmpresa', array('idsolicitud', 'idobservacionesw', 'idcodigodeempresas'), "#avisos");
$jxc->exportFunction('jsaCambiarProducto', array('idsolicitud', 'idpdto', 'idtasa', 'idtasamora'), "#avisos");
$jxc->exportFunction('jsaCambiarPeriocidad', array('idsolicitud', 'idperiocidad', 'idtipopago', 'idpagos', 'idfecha-2', 'idpagoactual'), "#avisos");
$jxc->exportFunction('jsaEliminarCredito', array('idsolicitud'), "#avisos");
$jxc->exportFunction('jsaReestructurarIntereses', array('idsolicitud'), "#avisos");
$jxc->exportFunction('jsaSetCambiarPersona', array('idsolicitud', 'idnuevapersona'), "#avisos");
//
$jxc->process();
$xHP->init();
echo "<input type='hidden' id='idsolicitud' value='{$credito}'>";
$xCred = new cCredito($credito);
$xCred->init();
$xFRM = new cHForm("frmrenegociar", "./", "idfrmmain");
$oBtn = new cHButton();
$oTxt = new cHText();
$oHSel = new cHSelect();
$oFch = new cHDate(0);
$oSel = new cSelect("");
$oUL = new cHUl();
$lguardar = $xFRM->lang("guardar");
$lcancelar = $xFRM->lang("cancelar");
$xFRM->setTitle($xHP->getTitle());
$xFRM->OButton("TR.Cambiar Monto Ministrado", "jsCambiarMonto()", "mas-dinero", "idcambiarmonto");
$xFRM->OButton("TR.Cambiar Fecha de Ministracion", "jsCambiarFechaMinistracion()", "fecha", "idcmdministracion");
//$xFRM->addHElem( $oBtn->getBasic("Fecha de Autorizacion", "jsCambiarFechaAutorizacion", "fecha", "idcmdautorizacion" ) );
$xFRM->OButton("TR.Cambiar Monto Autorizado", "jsCambiarMontoAutorizado()", "dinero", "idcambiarmontoaut");
$xFRM->OButton("TR.Cambiar Estado", "jsCambiarEstado()", "trabajo", "idcambiarestado");
$xFRM->OButton("TR.Cambiar Producto", "jsCambiarProducto()", "colaborar", "idcambiarpdto");
$xFRM->OButton("TR.Cambiar Periocidad", "jsCambiarPeriocidad()", "calendario", "idcambiarpers");
if ($xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
    $xFRM->OButton("TR.GENERAR PLAN_DE_PAGOS", "regenerarPlanDePagos()", "reporte", "generar-plan");
$jxc->process();
$persona = isset($DDATA["persona"]) ? $DDATA["persona"] : DEFAULT_SOCIO;
$persona = isset($DDATA["socio"]) ? $DDATA["socio"] : $persona;
$credito = isset($DDATA["credito"]) ? $DDATA["credito"] : DEFAULT_CREDITO;
$jscallback = isset($DDATA["callback"]) ? $DDATA["callback"] : "";
$tiny = isset($DDATA["tiny"]) ? $DDATA["tiny"] : "";
$form = isset($DDATA["form"]) ? $DDATA["form"] : "";
echo $xHP->getHeader();
$jsb = new jsBasicForm("", iDE_CAPTACION);
echo $xHP->setBodyinit();
$xFRM = new cHForm("frmperfiltransaccional", "perfil_transaccional.frm.php");
$xBtn = new cHButton();
$xTxt = new cHText();
$xTxt2 = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
$jsb->setNameForm($xFRM->getName());
$xFRM->addHElem($xSel->getListaDePerfilTransaccional()->get("TR.tipo de perfil", true));
$xFRM->addHElem($xSel->getListaDePaises()->get("TR.pais de origen", true));
$xFRM->addHElem($xTxt->getDeMoneda("idmonto", "TR.monto maximo de operaciones mensuales"));
$xFRM->addHElem($xTxt->getDeMoneda("idnumero", "TR.numero maximo de operaciones mensuales"));
//$xFRM->addHElem(  );
$arr = array_merge($xTxt->getIDs(), $xTxt2->getIDs(), $xSel->getIDs());
$xFRM->addHElem($xTxt2->get("idobservaciones", "", "TR.observaciones"));
//$xFRM->addHElem( $xTxt->get("idnumero", 0, "TR.Numero maximo de operaciones mensuales"));
//$xFRM->addCreditBasico();
$QL = new cSQLListas();
$xT = new cTabla($QL->getListadoDePerfil($persona));
$xT->addTool(SYS_DOS);
$xFRM->addHTML("<div id='idperfil'>" . $xT->Show() . "</div>");
$xFRM->addHTML("<input type='hidden' value='{$persona}' id='idpersona' />");
$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) {
    //Agregar
    $clave = parametro($xTabla->getKey(), null, MQL_INT);
    if ($clave != null) {
        $xTabla->setData($xTabla->query()->initByID($clave));
$fecha = parametro("idfechaactual", $fecha, MQL_DATE);
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$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("setDefaults()");
$xFRM = new cHForm("frm", "./");
$xSel = new cHSelect();
$pais = EACP_CLAVE_DE_PAIS;
?>
<fieldset>
<legend>Actualizacion / correccion de Datos</legend>

<?php 
$elsocio = isset($_GET["elsocio"]) ? $_GET["elsocio"] : false;
$action = isset($_GET["a"]) ? $_GET["a"] : false;
if ($action == false) {
    if ($elsocio != false) {
        $xSoc = new cSocio($elsocio);
        $xSoc->init();
        $DSoc = $xSoc->getDatosInArray();
        $xF = new cFecha(0, $DSoc["fecha_de_nacimiento"]);
        $anac = $xF->anno();
//$jxc ->drawJavaScript(false, true);
$ByType = "";
echo $xHP->setBodyinit();
if ($persona != DEFAULT_SOCIO) {
    $xSoc = new cSocio($persona);
    $xSoc->init();
    $ByType = $xSoc->getEsPersonaFisica() == true ? BASE_DOCTOS_PERSONAS_FISICAS : BASE_DOCTOS_PERSONAS_MORALES;
}
$xFRM = new cHForm("frmfirmas", "personas_documentos.frm.php?action=" . SYS_UNO . "&persona={$persona}");
$xFRM->setEnc("multipart/form-data");
$xFRM->setTitle($xHP->getTitle());
$xBtn = new cHButton();
$xTxt = new cHText();
$xTxt2 = new cHText();
$xTxtF = new cHText();
$xSel = new cHSelect();
$xImg = new cHImg();
if ($action == SYS_CERO) {
    $xTxtF->setDivClass("");
    //$xTxtF->setProperty("class", "")
    $xFRM->OFile("idnuevoarchivo", "", "TR.Cargar Documento");
    $xFRM->OText("iddocumento", "", "TR.Nombre del Archivo", true, $xImg->get24("common/search.png", " onclick='jsGetDocto()' "));
    $xFRM->addHElem($xSel->getTiposDeDoctosPersonales("", $ByType)->get(true));
    $xFRM->addHElem($xTxt2->getDeMoneda("idnumeropagina", "TR.Numero de Pagina"));
    $xFRM->addObservaciones();
    $xFRM->addSubmit();
} else {
    $xFRM->addCerrar();
    $doc1 = parametro("iddocumento", "", MQL_RAW);
    $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : "";
    $tipodedocto = isset($DDATA["idtipodedocto"]) ? $DDATA["idtipodedocto"] : "";
$oficial = elusuario($iduser);
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$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);
$txt = "";
$xFRM = new cHForm("frmcreditoautorizado", "frmcreditosautorizados.php?action=2", "frmcreditoautorizado");
$xSel = new cHSelect();
$xTxt = new cHText();
$xTxt2 = new cHText();
$xBtn = new cHButton();
$msg = "";
$jsInit = "";
$remoto = false;
if (setNoMenorQueCero($credito) > DEFAULT_CREDITO and $action == SYS_NINGUNO) {
    $xCred = new cCredito($credito);
    $xCred->init();
    $persona = $xCred->getClaveDePersona();
    $jsInit = "jsInit()";
    getPersonaEnSession($persona);
    $remoto = true;
}
$xFRM->addDataTag("role", "autorizacion");
    $xT->OButton("TR.Dictaminar", "jsModificarEstatus(_REPLACE_ID_)", $xT->ODicIcons()->REPORTE);
    $xT->OButton("TR.Panel", "jsToPanel(_REPLACE_ID_)", $xT->ODicIcons()->EJECUTAR);
    $xT->setKeyField($xAl->getKey());
    $xT->setKeyTable($xAl->get());
    return $xT->Show();
}
$jxc->exportFunction('jsaGetListadoDeAvisos', array('idtipoderiesgoaml', 'idfecha-1', 'idfecha-2', 'idactivas'), "#lstalertas");
$jxc->process();
$clave = parametro("id", SYS_TODAS);
$xHP->init("jsGetListadoAvisos()");
$jsb = new jsBasicForm("");
$xFRM = new cHForm("frm_alertas", "./");
$xBtn = new cHButton();
$xTxt = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
$jsb->setNameForm($xFRM->getName());
$selcat = $xSel->getListaDeTipoDeRiesgoEnAML();
$selcat->addEvent("onblur", "jsGetListadoAvisos()");
$selcat->addEvent("onchange", "jsGetListadoAvisos()");
$selcat->addEspOption(SYS_TODAS);
$selcat->setOptionSelect(SYS_TODAS);
$xFRM->OHidden("idfecha-1", "", "");
$xFRM->OHidden("idfecha-2", "", "");
//$xFRM->addHElem( $xDate->get( $xFRM->lang("fecha inicial"), $xF->getDiaInicial(), 1 ));
//$xFRM->addHElem( $xDate->get( $xFRM->lang("fecha final"), $xF->getDiaFinal(), 2 ));
$xFRM->addHElem($selcat->get(true));
$xFRM->addSubmit("", "jsGetListadoAvisos()");
$xFRM->OCheck("TR.Mostrar Inactivas", "idactivas");
//$xFRM->addCreditBasico();
$xFRM->addHTML("<div id='lstalertas'></div>");
if ($permiso === false) {
    header("location:../404.php?i=999");
}
$_SESSION["current_file"] = addslashes($theFile);
//=====================================================================================================
$xHP = new cHPage("", HP_FORM);
$xQL = new MQL();
$xLi = new cSQLListas();
$xF = new cFecha();
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$persona = parametro("i", $persona, MQL_INT);
$xHP->init();
$xFRM = new cHForm("frm", "frm_baja_de_socios.php");
$xSel = new cHSelect();
$msg = "";
if ($persona <= DEFAULT_SOCIO) {
    $xFRM->addPersonaBasico();
} else {
    $xSoc = new cSocio($persona);
    if ($xSoc->init() == true) {
        $xFRM->OHidden("persona", $persona);
        //checar si existen razones
        $fecha = parametro("fecha", false, MQL_DATE);
        $idrazon = parametro("idrazondebaja", false, MQL_INT);
        $notas = parametro("notas");
        $fechavenc = parametro("idfechavencimiento", false, MQL_DATE);
        $documento = parametro("documento", 0, MQL_INT);
        //		$fechadocto
        if (setNoMenorQueCero($idrazon) > 0) {