$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;
     $xTabla->idseguimiento_llamadas($clave);
 } else {
     $step = MQL_MOD;
     if ($clave != null) {
         $xTabla->setData($xTabla->query()->initByID($clave));
     }
 }
 $xFRM->setAction("llamadas.frm.php?action={$step}");
 if ($step == MQL_MOD) {
     $xFRM->addGuardar();
 } else {
     $xFRM->addSubmit();
 }
 $clave = parametro($xTabla->getKey(), null, MQL_INT);
 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();
//ini_set("display_errors", "on");
$xHP->init("initComponents()");
if ($action == SYS_NINGUNO) {
    $xFRM->addHElem($xFMT->getSelectDeFormatos()->get(true));
    $xFRM->addSubmit();
} elseif ($action == SYS_UNO) {
    //editar
    $xFMT->init($idcontrato);
    $titulo = $xFMT->getTitulo();
    $xFRM->setTitle($titulo);
    $xFRM->addHElem($xFMT->getSelectVariables("", "onchange=\"jsAddText()\" "));
    $xFRM->addSubmit("", "", "");
    $text_default = $xFMT->get();
    $xFRM->addHTML("<textarea class=\"ckeditor\" name=\"ckeditor\" id=\"ckeditor\" rows=\"20\" cols=\"15\">{$text_default}</textarea>");
    $xFRM->addFootElement("<input type='hidden' value='{$idcontrato}' name='idcontrato' />");
    $xFRM->setAction("frmeditor_contratos.php?action=2");
} elseif ($action == SYS_DOS) {
    //guardar
    $s = isset($_REQUEST["ckeditor"]) ? $_REQUEST["ckeditor"] : "";
    $i = parametro("idcontrato");
    $text_default = stripslashes($s);
    if ($s != "" && $i != "") {
        $sqluc = "UPDATE general_contratos SET texto_del_contrato='{$s}' WHERE idgeneral_contratos={$i}";
        $x = my_query($sqluc);
        if ($x[SYS_ESTADO] != false) {
            //$xFRM->addSubmit("", "", "");echo $text_default;
            $xFRM->addSubmit("", "getForma({$i})");
        } else {
            $xFRM->addAviso("SURGIO UN PROBLEMA AL GUARDAR");
        }
    } else {
    if (setNoMenorQueCero($idrecibo) > 0) {
        if ($com1 > 0) {
            $xRec->setNuevoMvto($fecha, $com1, OPERACION_CLAVE_COMISION_APERTURA, 1, $ob1, 1, TM_ABONO, $persona);
        }
        if ($com2 > 0) {
            $xRec->setNuevoMvto($fecha, $com2, OPERACION_CLAVE_PAGO_CBZA, 1, $ob2, 1, TM_ABONO, $persona);
        }
        if ($com3 > 0) {
            $xRec->setNuevoMvto($fecha, $com3, OPERACION_CLAVE_PAGO_COM_VARIAS, 1, $ob3, 1, TM_ABONO, $persona);
        }
        if ($iva > 0) {
            $xRec->setNuevoMvto($fecha, $iva, OPERACION_CLAVE_PAGO_IVA_OTROS, 1, $detalles, 1, TM_ABONO, $persona);
        }
        $xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
        if ($xRec->setFinalizarRecibo(true) == true) {
            $xFRM->setAction("");
            $xFRM->addHElem($xRec->getFichaSocio());
            $xFRM->addHElem($xRec->getFicha(true));
            $xFRM->OButton("TR.Imprimir Recibo", "jsImprimirRecibo()", "imprimir");
            $xFRM->addAvisoRegistroOK();
            $xFRM->addCerrar();
            echo $xRec->getJsPrint(true);
        }
    } else {
        $xFRM->addAviso($xRec->getMessages());
    }
} else {
    $xFRM->addJsBasico();
    $xFRM->addCreditBasico();
    $xFRM->addSubmit();
    $xSel = new cHSelect();
$e_observacion = isset($_GET["n"]) ? $_GET["n"] : "";
$e_grupo = isset($_GET["g"]) ? $_GET["g"] : DEFAULT_GRUPO;
$e_producto = isset($_GET["p"]) ? $_GET["p"] : DEFAULT_SUBPRODUCTO_CAPTACION;
$e_cuenta_intereses = isset($_GET["i"]) ? $_GET["i"] : CTA_GLOBAL_CORRIENTE;
$e_cuenta = isset($_GET["x"]) ? $_GET["x"] : CTA_GLOBAL_CORRIENTE;
$msg = isset($_GET[SYS_MSG]) ? $_GET[SYS_MSG] : "";
$action = parametro("action", SYS_NINGUNO);
$contrato = "404.php";
$idcuenta = parametro("idcuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$idsocio = parametro("idsocio", DEFAULT_SOCIO, MQL_INT);
?>
<body>
<?php 
if ($action == SYS_NINGUNO) {
    $xFRM->addJsBasico(iDE_CAPTACION);
    $xFRM->setAction("frmcaptacioncuentas.php?action=2");
    $xFRM->addPersonaBasico("", false, $e_socio);
    $xFRM->ODate("idfecha", false, "TR.fecha de registro");
    $xSp = $xSel->getListaDeProductosDeCaptacion();
    $xSp->setOptionSelect($e_producto);
    //$xSp->addEvent("onchange", "getNewCuenta");
    //$xSp->addEvent("onblur", "jsaGetValidacion()");
    $xFRM->addHElem($xSp->get(true));
    $xFRM->addHElem($xSel->getListaDeOrigenDeCaptacion()->get(true));
    $xFRM->addHElem($xSel->getListaDeTituloDeCaptacion()->get(true));
    $xFRM->addObservaciones();
    $xFRM->addHElem("<h3>" . $xFRM->l()->getT("TR.Otros") . "</h3><div id='idotrosdatos'></div>");
    $xFRM->addGrupoBasico("", DEFAULT_GRUPO);
    //$xFRM->addCuentaCaptacionInteres();
    $xFRM->addHElem("<h3>" . $xFRM->l()->getT("TR.Mancomunados") . "</h3>");
    $xFRM->addPersonaBasico("2");
//$jxc ->process();
$xSel = new cHSelect();
$xTxt = new cHText();
$xHP->init();
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
/* ===========		FORMULARIO		============*/
$clave = parametro("id", null, MQL_INT);
$xTabla = new cAml_riesgo_perfiles();
$xFRM = new cHForm("frmaml_riesgo_perfiles");
$xFRM->addGuardar();
if ($action == SYS_NINGUNO) {
    if ($clave != null) {
        $xFRM->setAction("perfiles-de-riesgo.frm.php?id={$clave}&action=" . MQL_MOD);
        //asignar que es actualizar
        $xTabla->setData($xTabla->query()->initByID($clave));
        //cargar datos del registro
    }
} else {
    $ready = false;
    $xTabla->setData($_REQUEST);
    //cargar datos del request}
    $dd = new cSAFETabla($xTabla->objeto_de_origen()->v());
    $obj = $dd->obj();
    if ($obj != null) {
        $xTabla->campo_de_origen($obj->getKey());
    }
    if ($action == MQL_ADD) {
        $ready = $xTabla->query()->insert()->save();
$xBtn = new cHButton();
$xTxt = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
$xDiv = new cHDiv("tx14");
$xL = new cLang();
$xFRM->addJsBasico(iDE_CAPTACION, CAPTACION_TIPO_PLAZO);
if ($action == SYS_NINGUNO) {
    $xFRM->addCuentaCaptacionBasico(true, CAPTACION_TIPO_PLAZO);
    $xFRM->addSubmit();
} elseif ($action == SYS_UNO) {
    //$xFRM->se
    //Codigo para Iniciar la Reinversion
    $xCta = new cCuentaInversionPlazoFijo($cuenta, $persona);
    $xCta->init();
    $xFRM->setAction("frminversionoperaciones.php?cuenta={$cuenta}&persona={$persona}&action=" . SYS_DOS);
    $xFRM->addSubmit();
    $xFRM->addHElem($xCta->getFicha(true, "", true));
    $xFRM->addHElem($xDate->get("TR.Fecha de Operacion"));
    $xFRM->addHElem($xPdto->getListaDeDias(array("onchange" => "jsGetDatosCuenta()", "onblur" => "jsGetDatosCuenta()")));
    $xFRM->addHElem($xTxt->getDeMoneda("idtasa", "TR.Tasa Negociada"));
    //cuenta de intereses
    $xFRM->addCuentaCaptacionInteres();
    $xFRM->addObservaciones();
    $xFRM->addFootElement("<input type='hidden' id='idsocioactual' name='idsocioactual' value='{$persona}' />");
    $xFRM->addFootElement("<input type='hidden' id='idcuentaactual' name='idcuentaactual' value='{$cuenta}' />");
} elseif ($action == SYS_DOS) {
    //sana las variables
    $xTyp = new cTipos();
    $sucess = true;
    $tasa = parametro("idtasa", 0, MQL_FLOAT);