//$jxc ->process();
$xHP->init();
//$jxc ->drawJavaScript(false, true);
$xFRM = new cHForm("frmriesgo", "registro_persona_riesgosa.frm.php?action=" . MQL_ADD);
$xBtn = new cHButton();
$xTxt = new cHText();
$xSel = new cHSelect();
$xFec = new cHDate();
$xTa = new cHTextArea();
if ($action == SYS_NINGUNO) {
$xUsers = $xSel->getUsuarios("idusuarioreportado");
$xFRM->setTitle($xHP->getTitle());
$xFRM->addPersonaBasico("", false, $persona);
$xFRM->addJsBasico(iDE_AML);
$xFRM->ODate("idfechaevento", false, "TR.Fecha de Evento");
$xFRM->addHElem($xSel->getListaDeNivelDeRiesgo("", $nivelcargado)->get("TR.Nivel de Riesgo", true));
$xFRM->addHElem($xTa->get("idmensaje", $notas, "TR.Razones por la cual se cambia el Nivel de riesgo"));
$xFRM->addSubmit();
} else {
if (setNoMenorQueCero($persona) > 0) {
$fecha = parametro("idfechaevento", false, MQL_DATE);
$mensaje = parametro("idmensaje");
$nivel = parametro("idnivelderiesgo", 0, MQL_INT);
$xSoc = new cSocio($persona);
$xSoc->init();
$xSoc->setActualizarNivelDeRiesgo($nivel, $mensaje, $fecha);
if (MODO_DEBUG == true) {
$xFRM->addAviso($xSoc->getMessages());
}
}
}
}
$clave = null;
if ($ready != false) {
$xFRM->addAvisoRegistroOK();
}
// else { $xFRM->addAvisoRegistroError(); }
}
if ($clave == null) {
$clave = $xTabla->query()->getLastID() + 1;
$xTabla->idaml_riesgo_perfiles($clave);
$xFRM->setAction("perfiles-de-riesgo.frm.php?action=" . MQL_ADD);
}
$xFRM->OHidden("idaml_riesgo_perfiles", $xTabla->idaml_riesgo_perfiles()->v(), "TR.idaml riesgo perfiles");
$xFRM->addHElem($xSel->getListaDeObjetosOrigenRiesgo("objeto_de_origen", $xTabla->objeto_de_origen()->v())->get("TR.origen", true));
$xFRM->addHElem($xTxt->getDeValoresPorTabla("valor_de_origen", $xTabla->valor_de_origen()->v(), "TR.valor de origen", "objeto_de_origen"));
$xFRM->addHElem($xSel->getListaDeNivelDeRiesgo("nivel_de_riesgo", $xTabla->nivel_de_riesgo()->v())->get(true));
/* =========== GRID JS ============*/
$xT = new cTabla("SELECT * FROM aml_riesgo_perfiles LIMIT 0,100");
$xT->addTool($xT->T_ELIMINAR);
$xFRM->addHTML($xT->Show());
/*
$xHG = new cHGrid("aml_riesgo_perfiles");
$sqlaml_riesgo_perfiles = base64_encode("SELECT * FROM aml_riesgo_perfiles LIMIT 0,100");
$xHG->setListAction("../svc/datos.svc.php?out=jtable&q=$sqlaml_riesgo_perfiles");$xHG->addKey("idaml_riesgo_perfiles");
$xHG->addElement("objeto_de_origen", "TR.Origen", "10%");
$xHG->addElement("campo_de_origen", "TR.Tipo", "10%");
$xHG->addElement("valor_de_origen", "TR.valor", "10%");
$xHG->addElement("nivel_de_riesgo", "TR.nivel de riesgo", "10%");
$xFRM->addHTML($xHG->getDiv());
*/