$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();
 }
 $xFRM->OMoneda("deuda_total", $xTabla->deuda_total()->v(), "TR.total");
    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");
//0 = nuevo, 1 = Actualizar
$xFRM->OTextArea("idmsg3", "", "TR.Texto");
$xFRM->addAviso(" ");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
?>
<script>
$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);
?>
<script>
var xG	= new Gen();
function jsVincularAval(){
	jsaVincularAval();
	setTimeout("jsClose()",2500);
{
    $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();
    } 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();
}
$jxc->drawJavaScript(false, true);
$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, "");
//$xFRM->addHElem( $xSel->getListaDeFigurasJuridicas("", PERSONAS_ES_MORAL)->get("TR.tipo de figura juridica", true) );
$xTxt2->setProperty("list", "dlBuscarPersona");
//=========================== HTML
$recibo = isset($_GET["r"]) ? $_GET["r"] : false;
if ($recibo != false) {
    $xRec = new cReciboDeOperacion(false, false, $recibo);
    $xRec->init();
    $DRec = $xRec->getDatosInArray();
    $MontoOperacion = $DRec["total_operacion"];
    //=========================== HTML
    echo $xHP->getHeader();
    //echo $xJS->setIncludeJQuery();
    $jxc->drawJavaScript(false, true);
    echo $xHP->setBodyinit("initComponents()");
    ?>
 <style> #idavisopago, #idimporte, #iMontoRecibido { font-size : 1.3em !important; } </style> <?php 
    $xFRM = new cHForm("frmCobrosEnEfectivo", "cobro-efectivo.frm.php");
    $xFRM->addGuardar("jsActualizarPago()");
    //agrega en un hidden el idrecibo
    $xHNot = new cHNotif();
    $xTxt = new cHText("id");
    $xTxt->addEvent("this.select()", "onfocus");
    $xTxt->addEvent("jsActualizarPago()", "onblur");
    $xTxt->addEvent("jsSetEvalMonto(event, this)", "onkeyup");
    $xFRM->addHElem($xHNot->get($xHP->lang("importe") . " : " . getFMoney($MontoOperacion) . AML_CLAVE_MONEDA_LOCAL, "idimporte"));
    $xFRM->OHidden("iMontoOperacion", $MontoOperacion, "");
    $SMoneda = $xHSel->getListaDeMonedas("idcodigodemoneda");
    $SMoneda->addEvent("onblur", "jsGetEquivalenciasA");
    $xFRM->addHElem($SMoneda->get($xHP->lang("Moneda"), true));
    $xFRM->addHElem($xTxt->getDeMoneda("iMontoRecibido", "TR.Monto recibido", $MontoOperacion));
    $xFRM->addHElem($xHNot->get($xHP->lang("Cambio") . " : <mark id='idtotal'>0</mark>" . AML_CLAVE_MONEDA_LOCAL, "idavisopago", $xHNot->WARNING));
    $xFRM->addHElem($xHNot->get($xHP->lang("Cotizacion") . " : <mark id='idequivalente'>0</mark>", "idavisopago", $xHNot->SUCCESS));
    $xFRM->OHidden("iMontoCambio", 0, "");
$jxc = new TinyAjax();
function jsaSetClonarProducto($idclonado, $nuevoid, $nombre)
{
    $xProducto = new cProductoDeCredito($idclonado);
    $xProducto->add($nuevoid, $nombre, $idclonado);
    return $xProducto->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaSetClonarProducto', array('idclonado', 'idnumero', 'iddescripcion'), "#fb_frm");
$jxc->process();
$producto = parametro("producto", null, MQL_INT);
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO, MQL_RAW);
$opcion = parametro("tema", SYS_NINGUNO, MQL_RAW);
$xHP->init();
$xSel = new cHSelect();
$xFRM = new cHForm("frm", "./");
$xProd = new cCreditos_tipoconvenio();
$lastid = $xProd->query()->getLastID();
$xProd->setData($xProd->query()->initByID($producto));
$nombre = $xProd->descripcion_tipoconvenio()->v();
$xFRM->setTitle($xFRM->lang("duplicar") . " {$nombre}");
$xFRM->OMoneda("idnumero", $lastid, "TR.Codigo");
$xFRM->OText("iddescripcion", "", "TR.Nombre");
$xFRM->OHidden("idclonado", $producto);
$xFRM->addGuardar("jsaSetClonarProducto()");
$xFRM->addFooterBar("&nbsp;");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
$xHP->fin();
    return $xCred->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaGuardarDatosBanco', array('idcredito', 'idbanco', 'idctabancaria', 'idctaclabe'), "#idmsgs");
$jxc->process();
$fecha = parametro("idfecha-0", false, MQL_DATE);
$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();
$xFRM = new cHForm("frmdatosbanco", "./");
$xSel = new cHSelect();
$xFRM->addHElem($xSel->getListadoDeBancos("idbanco")->get("TR.Banco de transferencia", true));
$xFRM->OMoneda("idctabancaria", "", "TR.clave_de_cuenta de transferencia");
$xFRM->OMoneda("idctaclabe", "", "TR.Numero de CLABE");
$xFRM->addGuardar("jsaGuardarDatosBanco()");
$xFRM->OHidden("idcredito", $credito, "");
$xFRM->addAviso("");
$msg = "";
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
$xHP->fin();
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
$idx = parametro("id", null, MQL_RAW);
$xOp = new cContableOperacion();
$xOp->setPorCodigo($idx);
$xTabla = $xOp->getObj();
$xFRM = new cHForm("frmeditarmvto");
$xTxt = new cHText();
$xSel = new cHSelect();
$xTxtM = new cHText();
$xTxtM->setDivClass("");
$msg = "";
$xFRM->addGuardar("jsEditarMovimiento()");
$xFRM->OButton("TR.Eliminar", "jsEliminarMovimiento()", $xFRM->ic()->ELIMINAR);
$xFRM->addHElem($xTxt->getDeCuentaContable("numerocuenta", $xTabla->numerocuenta()->v(), true));
$xFRM->addDivSolo($xTxtM->getDeMoneda("cargo", "TR.Cargo", $xTabla->cargo()->v()), $xTxtM->getDeMoneda("abono", "TR.Abono", $xTabla->abono()->v()), "tx24", "tx24");
//$xFRM->OMoneda("cargo", $xTabla->cargo()->v(), "TR.cargo");
//$xFRM->OMoneda("abono", $xTabla->abono()->v(), "TR.abono");
$xFRM->OText("referencia", $xTabla->referencia()->v(), "TR.referencia");
$xFRM->OText("concepto", $xTabla->concepto()->v(), "TR.concepto");
//$xFRM->OMoneda("diario", , "TR.diario");
$xFRM->addHElem($xSel->getListaDeDiarioDeMvtosContables("diario", $xTabla->diario()->v())->get(true));
$xFRM->OHidden("moneda", $xTabla->moneda()->v(), "TR.moneda");
$xFRM->OHidden("fecha", $xTabla->fecha()->v(), "TR.fecha");
$xFRM->OHidden("importe", $xTabla->importe()->v(), "TR.importe");
$xFRM->OHidden("clave_unica", $xTabla->clave_unica()->v(), "TR.clave unica");
$xFRM->OHidden("ejercicio", $xTabla->ejercicio()->v(), "TR.ejercicio");
$xFRM->OHidden("periodo", $xTabla->periodo()->v(), "TR.periodo");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
$xFRM = new cHForm("frm", "./");
$msg = "";
$xBtn = new cHImg();
$xHF = new cHDate();
$xHS = new cHSelect();
$xDiv = new cHDiv();
$xFRM->addHElem($xHF->get("TR.Fecha"));
$xFRM->addHElem($xHS->getListaDeTiposDePolizas()->get(true));
$xFRM->addHElem($xHS->getListaDeTiposDeCentrosDeCosto()->get(true));
$xFRM->OText("idconcepto", "", "TR.Concepto");
$xFRM->addAviso("");
$xFRM->addGuardar("jsGuardarPolizas()");
echo $xFRM->get();
?>
<script>
function jsGuardarPolizas(){
	jsaGuardarPolizas();
	setTimeout("jsEnd()", 2000);
}
function jsEnd(){
	var xG	= new Gen();
	xG.close();
}
</script>
<?php 
$jxc->drawJavaScript(false, true);
$xHP->fin();