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->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");
//0 = nuevo, 1 = Actualizar
$xFRM->OTextArea("idmsg3", "", "TR.Texto");
$xFRM->addAviso(" ");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
?>
<script>
function jsGoPanel(){
	var idcuenta	= $("#idcuenta").val();
	var xC 			= new ContGen(); xC.goToPanel(idcuenta);
}
</script>
<?php 
$xHP->fin();
{
    $xCred = new cCredito($credito);
    $xCred->init();
    $xCred->setCastigado($razones, $fecha);
    return $xCred->getMessages();
}
$jxc->exportFunction('jsaGuardarCastigo', array('idsolicitudactual', "idfecha", "idrazones"), "#idmsgs");
$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("frmcastigos", "./");
$msg = "";
$xFRM->addGuardar("jsaGuardarCastigo()");
$xFRM->ODate("idfecha", false, "TR.Fecha de Castigo");
$xFRM->OTextArea("idrazones", "", "TR.Razones del castigo");
$xFRM->addAviso("");
$xFRM->OHidden("idsolicitudactual", $credito, "");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
$xHP->fin();
    $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); }
</script>
<?php 
$xHP->fin();
    $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) {
            $ok = $xSoc->setBaja($idrazon, $fecha, $fechavenc, $documento);
            if ($ok == true) {
                $xFRM->addAvisoRegistroOK();
            } else {
                $xFRM->addAvisoRegistroError();
            }
        } else {
            $xFRM->ODate("fecha", false, "TR.Fecha");
            $xFRM->ODate("idfechavencimiento", $xF->getFechaMaximaOperativa(), "TR.Fecha de Vencimiento");
            $xFRM->addHElem($xSel->getListaDeRazonesDeBaja()->get(true));
            $xFRM->OText("documento", 0, "TR.Documento de Prueba");
            $xFRM->OTextArea("notas", "", "TR.Notas");
        }
    }
}
//razones de baja
$xFRM->addSubmit();
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
        //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();
        }
    }
}
$xSel1 = $xSel->getListaDeTipoDeRiesgoEnAML("tipo_de_riesgo");
$xSel1->setOptionSelect($xTabla->tipo_de_riesgo()->v());
$xSel2 = $xSel->getListaDeUnidadMedidaAML("unidad_de_medida");
$xSel2->setOptionSelect($xTabla->unidad_de_medida()->v(OUT_TXT));
$xSel3 = $xSel->getListaDeFormaReportaRiesgo("forma_de_reportar");
$xSel3->setOptionSelect($xTabla->forma_de_reportar()->v(OUT_TXT));
$xSel4 = $xSel->getListaDeFrecuenciaChequeoRiesgo("frecuencia_de_chequeo");
$xSel4->setOptionSelect($xTabla->frecuencia_de_chequeo()->v(OUT_TXT));
$xFRM->OMoneda("clave_de_control", $xTabla->clave_de_control()->v(), "TR.clave de control");
$xFRM->OText("descripcion", $xTabla->descripcion()->v(), "TR.descripcion");
$xFRM->addHElem($xSel1->get(true));
$xFRM->OMoneda("valor_ponderado", $xTabla->valor_ponderado()->v(), "TR.valor ponderado");
$xFRM->OMoneda("unidades_ponderadas", $xTabla->unidades_ponderadas()->v(), "TR.unidades ponderadas");
$xFRM->addHElem($xSel2->get(true));
$xFRM->addHElem($xSel3->get(true));
$xFRM->addHElem($xSel4->get(true));
$xFRM->OTextArea("fundamento_legal", $xTabla->fundamento_legal()->v(), "TR.fundamento legal");
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
        //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();
        }
    }
}
$xHP->init();
$msg = "";
$xAlert = new cAMLAlertas($codigo);
$xAlert->init();
$xFRM->addAviso($xAlert->getDescripcion());
$xFRM->OTextArea("razones_de_reporte", $xTabla->razones_de_reporte()->v(), "TR.AML_TEXTO_A");
$xFRM->OTextArea("acciones_tomadas", $xTabla->acciones_tomadas()->v(), "TR.AML_TEXTO_B");
$xFRM->OTextArea("notas_de_checking", $xTabla->notas_de_checking()->v(), "TR.Observaciones de la operacion");
$xFRM->OHidden("clave_de_riesgo", $xTabla->clave_de_riesgo()->v(), "");
$xFRM->OHidden("fecha_de_checking", $xF->getInt(), "");
echo $xFRM->get();
?>
<script>
var xG		= new Gen();
//function jsDescartaRiesgo(){ xG.confirmar({ msg : "Desea Descartar la Alerta como Riesgo?", callback : "jsaDescartaRiesgo()", evaluador : jsRazonNoVacia(), alert : "La observacion no puede quedar vacia"}); }
//function jsConfirmaRiesgo(){ xG.confirmar({ msg : "Desea Confirmar la Alerta como Riesgo?", callback : "jsaConfirmaRiesgo()", evaluador : jsRazonNoVacia(), alert : "La observacion no puede quedar vacia" }); }
function jsRazonNoVacia(){
	var valid	= new ValidGen();
	return valid.NoVacio( $("#notas_de_checking").val() );
}
    if ($remoto == true) {
        $xFRM->addHElem("<input type='hidden' id='idsocio' name='idsocio' value='{$persona}' /> <input type='hidden' id='idsolicitud' name='idsolicitud' value='{$credito}' /> ");
    } else {
        $xFRM->addCreditBasico($credito, $persona);
    }
    $xFRM->addHElem($xTA->get(true));
    $xFRM->addHElem($xSel->getListaDeTipoDeRiesgoEnCreds()->get(true));
    $xFRM->addHElem($xTxt->getDeMoneda("idpagos", "TR.Pagos Autorizados"));
    $xFRM->addHElem($xTxt2->getDeMoneda("idmonto", "TR.Monto Autorizado"));
    $xFRM->addHElem($xTxt2->getDeMoneda("idtasa", "TR.Tasa Autorizada"));
    //$xFRM->OText("idpagos", "", "TR.Pagos Autorizados");
    $xFRM->addHElem($xSel->getListaDePeriocidadDePago()->get(true));
    $xFRM->addHElem($xSel->getListaDeTipoDePago()->get(true));
    $xFRM->ODate("idfecha1", false, "TR.Fecha de Autorizacion");
    $xFRM->ODate("idfecha2", false, "TR.Fecha de Ministracion");
    $xFRM->OTextArea("idautorizacion", "", "TR.Docto de Autorizacion");
    //$xFRM->addSubmit();
    $xFRM->addGuardar("jsGuardarAutorizacion()");
    $xFRM->addHTML('<form name="frmOthersProcess"><div id="informacion"></div></form>');
    //2011-02-01
    $idsolicitud = 0;
    $urlsend = "";
    $urctr = "";
    $cedula_grupal = 0;
}
$xJs = new jsBasicForm("frmcreditoautorizado");
$xJs->setEstatusDeCreditos(CREDITO_ESTADO_SOLICITADO);
//$xJs->setLoadDefaults(false);
echo $xFRM->get();
if ($remoto == false) {
    echo $xJs->get();
$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("jsInit()");
$xFRM = new cHForm("frm", "./");
$msg = "";
/*$xFRM->addJsBasico();
$xFRM->addCreditBasico();
$xFRM->addSubmit();*/
$xFRM->OTextArea("idtexto", "", "TR.Texto");
echo $xFRM->get();
?>
<script>
function jsInit(){
	$("#idtexto").val(session("var.serialize"));
}
</script>
<style>
	#idtexto {
		min-height: 400px;
	}
</style>
<?php 
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
$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("frmeditariesgo", "./");
$msg = "";
$xAlert = new cAMLAlertas($codigo);
$xAlert->init();
$xFRM->addAviso($xAlert->getDescripcion());
$xFRM->OTextArea("idnotas", "", "TR.Acciones_tomadas / observaciones");
$xFRM->OCheck("TR.Guardar como REPORTE_X_HORAS", "ides24");
$xFRM->addHTML("<input type='hidden' id='idriesgo' value='{$codigo}'");
$xFRM->OButton("TR.Confirmar", "jsConfirmaRiesgo()", $xFRM->ic()->OK, "idconfirma");
$xFRM->OButton("TR.Descartar", "jsDescartaRiesgo()", $xFRM->ic()->NO, "iddescarta");
echo $xFRM->get();
?>
<script>
var xG		= new Gen();
function jsDescartaRiesgo(){ xG.confirmar({ msg : "Desea Descartar la Alerta como Riesgo?", callback : "jsDescartaRiesgo2()", evaluador : jsRazonNoVacia(), alert : "La observacion no puede quedar vacia"}); }
function jsConfirmaRiesgo(){ xG.confirmar({ msg : "Desea Confirmar la Alerta como Riesgo?", callback : "jsConfirmaRiesgo2()", evaluador : jsRazonNoVacia(), alert : "La observacion no puede quedar vacia" }); }
function jsRazonNoVacia(){
	var valid	= new ValidGen();
	return valid.NoVacio( $("#idnotas").val() );
}
function jsDescartaRiesgo2(){
     $xFRM->OMoneda("monto_fondo_obligatorio", $xTabla->monto_fondo_obligatorio()->v(), "TR.Fondo de defuncion", true);
     break;
 case "permisos":
     $off = $xSel->getListaDeOficiales("oficial_seguimiento");
     $off->setOptionSelect($xTabla->oficial_seguimiento()->v());
     $xFRM->addHElem($off->get("TR.oficial por defecto", true));
     $d4 = $ql->getArrayRecord("SELECT * FROM `creditos_tipo_de_autorizacion` ");
     $xFRM->OSelect("tipo_autorizacion", $xTabla->tipo_autorizacion()->v(), "TR.tipo de autorizacion", $d4);
     $xFRM->OMoneda("nivel_autorizacion_oficial", $xTabla->nivel_autorizacion_oficial()->v(), "TR.nivel autorizacion oficial");
     $xFRM->OMoneda("nivel_riesgo", $xTabla->nivel_riesgo()->v(), "TR.nivel riesgo por defecto");
     $d1 = $ql->getArrayRecord("SELECT * FROM creditos_estatus");
     $xFRM->OSelect("estatus_predeterminado", $xTabla->estatus_predeterminado()->v(), "TR.Estado predeterminado", $d1);
     $xFRM->OText("leyenda_docto_autorizacion", $xTabla->leyenda_docto_autorizacion()->v(), "TR.leyenda del Documento de autorizacion");
     break;
 case "codigo":
     $xFRM->OTextArea("code_valoracion_javascript", $xTabla->code_valoracion_javascript()->v(), "TR.code valoracion javascript");
     $xFRM->OTextArea("php_monto_maximo", $xTabla->php_monto_maximo()->v(), "TR.php monto maximo");
     $xFRM->OTextArea("valoracion_php", $xTabla->valoracion_php()->v(), "TR.valoracion php");
     $xFRM->OTextArea("pos_modificador_de_interes", $xTabla->pos_modificador_de_interes()->v(), "TR.pos modificador de interes");
     $xFRM->OTextArea("pre_modificador_de_autorizacion", $xTabla->pre_modificador_de_autorizacion()->v(), "TR.pre modificador de autorizacion");
     $xFRM->OTextArea("pre_modificador_de_interes", $xTabla->pre_modificador_de_interes()->v(), "TR.pre modificador de interes");
     $xFRM->OTextArea("pre_modificador_de_ministracion", $xTabla->pre_modificador_de_ministracion()->v(), "TR.pre modificador de ministracion");
     $xFRM->OTextArea("pre_modificador_de_solicitud", $xTabla->pre_modificador_de_solicitud()->v(), "TR.pre modificador de solicitud");
     $xFRM->OTextArea("pre_modificador_de_vencimiento", $xTabla->pre_modificador_de_vencimiento()->v(), "TR.pre modificador de vencimiento");
     break;
 default:
     $xFRM->OText("descripcion_tipoconvenio", $xTabla->descripcion_tipoconvenio()->v(), "TR.Nombre");
     $xFRM->OText("descripcion_completa", $xTabla->descripcion_completa()->v(), "TR.descripcion completa");
     $xFRM->OSelect("estatus", $xTabla->estatus()->v(), "TR.Estado Actual del Producto", array("baja" => "BAJA", "activo" => "ACTIVO"));
     $xFRM->OSelect("tipo_de_convenio", $xTabla->tipo_de_convenio()->v(), "TR.tipo de agrupacion", array("1" => "INDIVIDUAL", "3" => "GRUPAL"));
     $d2 = $ql->getArrayRecord("SELECT * FROM creditos_modalidades");
}
$D = explode($div, $defval);
$mem = isset($D[4]) ? $D[4] : "";
$xHP->init();
//jsbasic("frmhistorial", "", ".");
$xHP->init();
$xFRM = new cHForm("frmhistorial", "./frmhistorialdesocios.php?action=" . MQL_ADD);
$xSel = new cHSelect();
$xChk = new cHCheckBox();
$msg = "";
$xFRM->addJsBasico();
$xFRM->addCreditBasico();
$xFRM->addSubmit();
$xFRM->addHElem($xSel->getListaDeTiposDeMemoPersonas()->get(true));
$xFRM->addHElem($xChk->get("TR.Notificar", "idnotificar"));
$xFRM->OTextArea("idmemo", $mem, "TR.Texto del memo");
if ($persona > DEFAULT_SOCIO) {
    $idgrupo = parametro("idgrupo", DEFAULT_GRUPO, MQL_INT);
    $txtmemo = parametro("idmemo");
    $tipomemo = parametro("idtipodememo");
    $notificar = parametro("idnotificar", false, MQL_BOOL);
    $fechamemo = fechasys();
    if (trim($txtmemo) != "") {
        $xSoc = new cSocio($persona);
        $xSoc->init();
        $xSoc->addMemo($tipomemo, $txtmemo, $credito, $fechamemo, $notificar, $notificar);
        $xFRM->addAviso("EL REGISTRO SE HA HECHO SATISFACTORIAMENTE");
        if (MODO_DEBUG == true) {
            $xFRM->addLog($xSoc->getMessages());
        }
    }
    $sFJ = $xSel->getListaDeTipoDeIdentificacion();
    $xFRM->addHElem($sFJ->get(true));
    $xFRM->OText("idnumerodocumento", "", "TR.Numero de Documento");
    $xTCURP = new cHText();
    $xTRFC = new cHText();
    $xTCURP->setProperty("required", "true");
    $xFRM->addHElem($xTCURP->get("idcurp", "", "TR.IDENTIFICACION_POBLACIONAL"));
    $xFRM->addHElem($xTRFC->get("idrfc", DEFAULT_PERSONAS_RFC_GENERICO, "TR.IDENTIFICACION_FISCAL"));
    if (EACP_CLAVE_DE_PAIS == "MX") {
        if ($tipo_de_ingreso == TIPO_INGRESO_RELACION) {
            //sinfiel
            $xFRM->OHidden("idclavefiel", "", "TR.Clave_FIEL");
            $xFRM->OHidden("idrazonnofiel", "NA", "TR.Razones por la cual no tiene FIEL");
        } else {
            $xFRM->OText("idclavefiel", "", "TR.Clave_FIEL");
            $xFRM->OTextArea("idrazonnofiel", "", "TR.RAZON_POR_NO CLAVE_FIEL");
        }
    } else {
        $xFRM->OHidden("idrazonnofiel", "", "TR.Razones por la cual no tiene FIEL");
    }
} else {
    $xFRM->OHidden("idclavefiel", "", "TR.Clave_FIEL");
    $xFRM->OHidden("idrazonnofiel", "NA", "TR.Razones por la cual no tiene FIEL");
    $xFRM->OHidden("idrfc", DEFAULT_PERSONAS_RFC_GENERICO, "TR.IDENTIFICACION_FISCAL");
    $xFRM->OHidden("idcurp", "", "TR.IDENTIFICACION_POBLACIONAL");
    $xFRM->OHidden("idnumerodocumento", "000000000000", "");
    $xFRM->OHidden("idtipoidentificacion", DEFAULT_TIPO_IDENTIFICACION, "");
    $xFRM->OHidden("idregimenfiscal", DEFAULT_REGIMEN_FISCAL, "");
    $xFRM->OHidden("idestadocivil", DEFAULT_ESTADO_CIVIL, "");
    $xFRM->OHidden("idregimenmatrimonial", DEFAULT_REGIMEN_CONYUGAL, "");
}
            if (isset($keyFile[$pkey])) {
                //$msg			.= "OK\tEXISTE $pkey\r\n";
            } else {
                $rt = "";
                //$msg			.= "ERROR\tNO EXISTE $pkey\r\n";
                foreach ($rec as $datos) {
                    $rt .= $datos . $delimiter;
                }
                $msg .= $rt . "\r\n";
            }
            //$keyFile[$pkey]		= $pkey;
        }
    }
}
$xFRM = new cHForm("frm", "compare-sql.php?action=" . MQL_LOAD);
$xFRM->OTextArea("idsql", "SELECT `listado_de_ingresos`.`clave_empresa`, `listado_de_ingresos`.`empresa`, `listado_de_ingresos`.`codigo`, `listado_de_ingresos`.`nombre`, DATE_FORMAT(`listado_de_ingresos`.`fecha`, '%d-%m-%Y') AS `fecha`, SUM(`listado_de_ingresos`.`capital`) AS `capital`, SUM(`listado_de_ingresos`.`interes_normal`) AS `interes`, SUM(`listado_de_ingresos`.`interes_moratorio`) AS `moratorios`, SUM(`listado_de_ingresos`.`iva`) AS `iva`, SUM(`listado_de_ingresos`.`otros`) AS `otros` , ROUND(SUM(`capital`+ `interes_normal`+`interes_moratorio`+`iva`+`otros`),2) AS 'total', MAX(`listado_de_ingresos`.`parcialidad`) AS `parcialidad`, MAX(`listado_de_ingresos`.`periocidad`) AS `periocidad`, MAX(`listado_de_ingresos`.`banco`) AS `banco` , `listado_de_ingresos`.`tipo_de_pago` FROM `listado_de_ingresos` `listado_de_ingresos` \n WHERE (`listado_de_ingresos`.`fecha` >='2014-01-01') AND (`listado_de_ingresos`.`fecha` <='2014-01-31') \n GROUP BY `listado_de_ingresos`.`clave_empresa`, `listado_de_ingresos`.`codigo`, `listado_de_ingresos`.`fecha`, `listado_de_ingresos`.`banco` ORDER BY `listado_de_ingresos`.`fecha`, `listado_de_ingresos`.`clave_empresa`, `listado_de_ingresos`.`periocidad`, `listado_de_ingresos`.`nombre` ", "TR.SQL");
$xFRM->OText("idclave", "codigo,fecha,total", "TR.clave");
$xFRM->OText("idclave2", "3,5,11", "TR.Columnas");
$xFRM->OFile("idarchivo", "", "TR.Archivo");
$xFRM->OCheck("TR.Comparar SQL -> Archivo", "primerosql");
$xFRM->addSubmit();
//$xFRM->addAviso($msg);
if (MODO_DEBUG == true) {
    $xLog = new cFileLog();
    $xLog->setWrite($msg);
    $xLog->setClose();
    $xFRM->addToolbar($xLog->getLinkDownload("TR.Archivo del proceso", ""));
}
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
$sFJ = $xSel->getListaDeTipoDeIdentificacion("", PERSONAS_ES_MORAL);
$xFRM->addHElem($sFJ->get(true));
$xFRM->OText("idnumerodocumento", "", "TR.Numero de Documento");
$xFRM->addHElem($xTxt->getEmail("idemail"));
$xFRM->addHElem($xTxt->getNumero("idtelefono", "", "TR.Telefono"));
$xTCURP = new cHText();
$xTRFC = new cHText();
$xTCURP->setProperty("required", "true");
//$xFRM->addHElem( $xTCURP->get("idcurp", "", "TR.IDENTIFICACION_POBLACIONAL") );
$xFRM->addHElem($xTRFC->get("idrfc", "", "TR.IDENTIFICACION_FISCAL"));
$xFRM->addObservaciones();
//$xFRM->OMoneda("iddependientes", 0, "TR.Dependientes economicos");
//
if (EACP_CLAVE_DE_PAIS == "MX") {
    $xFRM->OText("idclavefiel", "", "TR.Clave FIEL");
    $xFRM->OTextArea("idrazonnofiel", "", "TR.Razones por la cual no tiene FIEL");
} else {
    $xFRM->OHidden("idrazonnofiel", "", "TR.Razones por la cual no tiene FIEL");
}
if (MODULO_AML_ACTIVADO == true) {
    $xFRM->OCheck("TR.PREGUNTA_AML_PERSONA_2", "esextranjero");
}
$xFRM->endSeccion();
$xFRM->addSeccion("iddreplegal", "TR.Representante_Legal");
$xFRM->addPersonaBasico("2");
//$xFRM->OMoneda("iddescuento", 0, "TR.Descuento Deseado");
//$xFRM->addHElem( $xSel->getListaDeEmpresas("idempresa")->get(true) );
//$xFRM->addGrupoBasico();
$xFRM->addHTML("<datalist id=\"dlBuscarPersona\" ><option /></datalist>");
//$xFRM->endSeccion();
//$xFRM->addSeccion("iddatosgenerales", "TR.Domicilio");