if (($action == MQL_ADD or $action == MQL_MOD) and $clave != null) {
    $xTabla->setData($xTabla->query()->initByID($clave));
    $xTabla->setData($_REQUEST);
    $persona = parametro("idsocio0", $xTabla->persona_relacionada()->v(), MQL_INT);
    $tercero = parametro("idsocio1", $xTabla->tercero_relacionado()->v(), MQL_INT);
    $xTabla->persona_relacionada($persona);
    $xTabla->tercero_relacionado($tercero);
    if ($action == MQL_ADD) {
        $xTabla->query()->insert()->save();
    } else {
        $xTabla->query()->update()->save($clave);
    }
    $xFRM->addAvisoRegistroOK();
}
$xFRM->OHidden("clave_de_riesgo", $xTabla->clave_de_riesgo()->v(), "TR.clave de riesgo");
$xFRM->addHElem($xTxt->getDeSocio("0", false, $xTabla->persona_relacionada()->v(), "", "TR.persona"));
$xFRM->addHElem($xTxt->getDeSocio("1", false, $xTabla->tercero_relacionado()->v(), "", "TR.persona relacionada"));
//$xFRM->OMoneda("persona_relacionada"
//$xFRM->OMoneda("tercero_relacionado"
$xFRM->addHElem($xSel->getListaDeRiesgosAML("tipo_de_riesgo", "", $xTabla->tipo_de_riesgo()->v())->get(true));
$xFRM->OMoneda("documento_relacionado", $xTabla->documento_relacionado()->v(), "TR.documento relacionado");
$xFRM->addHElem($xSel->getListaDeObjetosEnSistema("tipo_de_documento", $xTabla->tipo_de_documento()->v())->get(true));
//$xFRM->OMoneda("tipo_de_documento", $xTabla->tipo_de_documento()->v(), "TR.tipo de documento");
$ti = $xSel->getListadoGenerico("aml_tipos_de_operacion", "tipo_de_operacion");
$ti->setOptionSelect($xTabla->tipo_de_operacion()->v());
$xFRM->addHElem($ti->get("TR.tipo de operacion", true));
$ti2 = $xSel->getListadoGenerico("aml_instrumentos_financieros", "instrumento_financiero");
$ti2->setOptionSelect($xTabla->instrumento_financiero()->v());
$xFRM->addHElem($ti2->get("TR.instrumento_financiero", true));
//$xFRM->OText("tipo_de_operacion", $xTabla->tipo_de_operacion()->v(), "TR.tipo de operacion");
//$xFRM->OMoneda("instrumento_financiero", $xTabla->instrumento_financiero()->v(), "TR.instrumento financiero");
 function addPersonaBasico($id = "", $SinBoton = false, $persona = false, $blurEvents = "", $titulo = "")
 {
     $xTxt = new cHText();
     if (setNoMenorQueCero($persona) > DEFAULT_SOCIO) {
         getPersonaEnSession($persona);
     }
     $this->addHElem($xTxt->getDeSocio($id, $SinBoton, $persona, $blurEvents, $titulo));
 }