PHP cHForm::OMoneda方法代码示例

    }
} else {
    if ($action == MQL_MOD) {
        //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();
        }
    }
}
$xFRM->addSubmit();
$xFRM->OMoneda("idbancos_cuentas", $xTabla->idbancos_cuentas()->v(), "TR.clave_de_cuenta");
$xFRM->OText("descripcion_cuenta", $xTabla->descripcion_cuenta()->v(), "TR.descripcion cuenta");
$xFRM->ODate("fecha_de_apertura", $xTabla->fecha_de_apertura()->v(), "TR.fecha de registro");
//$xFRM->OHidden("sucursal", $xTabla->sucursal()->v(), "TR.sucursal");
$xFRM->addHElem($xSel->getListaDeSucursales("sucursal", $xTabla->sucursal()->v())->get(true));
$xFRM->OSelect("estatus_actual", $xTabla->estatus_actual()->v(), "TR.estatus actual", array("activo" => "ACTIVO", "baja" => "BAJA"));
$xFRM->OText("consecutivo_actual", $xTabla->consecutivo_actual()->v(), "TR.consecutivo actual");
$xFRM->OMoneda("saldo_actual", $xTabla->saldo_actual()->v(), "TR.saldo actual");
//$xTabla->entidad_bancaria()->v()
$xFRM->OText("codigo_contable", $xTabla->codigo_contable()->v(), "TR.codigo contable");
//$xFRM->OMoneda("entidad_bancaria", $xTabla->entidad_bancaria()->v(), "TR.entidad bancaria");
$xFRM->addHElem($xSel->getListadoDeBancos("entidad_bancaria", $xTabla->entidad_bancaria()->v())->get(true));
$xFRM->OSelect("tipo_de_cuenta", $xTabla->tipo_de_cuenta()->v(), "TR.tipo de cuenta", array("cheques" => "CHEQUES", "inversion" => "INVERSION"));
$xFRM->OHidden("eacp", EACP_CLAVE, "TR.eacp");
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);

    if ($xSoc->getEsUsuario(true)) {
        $oFrm->OButton("TR.Actualizar Usuario", "jsaActualizarUsuario()", $oFrm->ic()->EJECUTAR);
        $oFrm->OHidden("idusuario", $xSoc->getOUsuario()->getID());
    }
    //Agregar convenios
    $xTListaCreds = new cTabla($xql->getListadoDeCreditos($idsocio), 2);
    $xTListaCreds->OButton("TR.Panel", "jsGoToPanelCredito(" . HP_REPLACE_ID . ")", $xTListaCreds->ODicIcons()->CONTROL);
    $xHTabs->addTab("TR.Creditos", $xTListaCreds->Show());
    //agregar cuenta de ahorro
    $xTListaCapt = new cTabla($xql->getListadoDeCuentasDeCapt($idsocio));
    $xHTabs->addTab("TR.Captacion", $xTListaCapt->Show());
    //Actualizar Descuentos
    $xDiv2 = new cHDiv("inv", "iddivdescuento");
    $xFRM10 = new cHForm("frmdescuento");
    $xFRM10->addSubmit("", "jsGuardarDescuento()", "jsCancelarAccion()");
    $xFRM10->OMoneda("iddescuento", 0, "TR.Monto");
    //======================================== AML
    /*Validacion*/
    if (MODO_DEBUG == true) {
        $xHTabs->addTab("TR.Validacion", $xSoc->getValidacion(OUT_HTML));
    }
    $xDiv2->addHElem($xFRM10->get());
    $oFrm->addHTML($xHTabs->get());
    $oFrm->addHTML($xDiv2->get());
    $oFrm->OHidden("idsocio", $idsocio);
    $oFrm->OHidden("idmodificado", "");
    $oFrm->OHidden("idcantidad", "0");
    $oFrm->addFooterBar(" ");
    echo $oFrm->get();
}
?>

            if ($ODom != null) {
                $xTabla->calle($ODom->getCalle());
                $xTabla->codigo_postal($ODom->getCodigoPostal());
                $xTabla->colonia($ODom->getColonia());
                $xTabla->telefono($xSoc->getTelefonoPrincipal());
                $xTabla->municipio($ODom->getMunicipio());
                $xTabla->localidad($ODom->getClaveDeLocalidad());
                $xTabla->estado($ODom->getEstado());
                $xTabla->numero_exterior($ODom->getNumeroExterior());
                $xTabla->numero_interior($ODom->getNumeroInterior());
            }
            $xTabla->query()->update()->save($clave);
            $xFRM->addAvisoRegistroOK();
        }
    }
}
$msg = "";
//clave de sucursal
//$xFRM->addJsBasico();
$xFRM->addPersonaBasico("", false, $xTabla->clave_de_persona()->v(), "", "TR.Clave Vinculada");
$xFRM->OText("codigo_sucursal", $xTabla->codigo_sucursal()->v(), "TR.codigo sucursal");
$xFRM->OText("nombre_sucursal", $xTabla->nombre_sucursal()->v(), "TR.nombre sucursal");
$xFRM->OMoneda("clave_numerica", $xTabla->clave_numerica()->v(), "TR.clave numerica");
$xFRM->OMoneda("caja_local_residente", $xTabla->caja_local_residente()->v(), "TR.caja local residente");
$xFRM->addPersonaBasico("2", false, $xTabla->gerente_sucursal()->v(), "", "TR.gerente sucursal");
$xFRM->addPersonaBasico("3", false, $xTabla->titular_de_cumplimiento()->v(), "", "TR.Oficial de Cumplimiento");
$xFRM->OMoneda("hora_de_inicio_de_operaciones", $xTabla->hora_de_inicio_de_operaciones()->v(), "TR.hora de inicio de operaciones");
$xFRM->OMoneda("hora_de_fin_de_operaciones", $xTabla->hora_de_fin_de_operaciones()->v(), "TR.hora de fin de operaciones");
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();

//$oFrm6->addHTML("<p class='aviso'></p>");
$oFrm6->addFootElement($oBtn->getBasic($lguardar, "jsaCambiarProducto();jsTipTimer()", "guardar", "idsapdto"));
$oFrm6->addFootElement($oBtn->getBasic($lcancelar, "jsCancelarAccion()", "cancelar", "idcancela6"));
echo $oFrm6->get();
?>
</div>

<!--  PERIOCIDAD DE PAGO -->
<div class="inv" id="divperiocidad">
    <?php 
$oFrm5 = new cHForm("frmperiocidad", "", "idfrmperiocidad");
$oFrm5->addHElem($xSelCP->get("idperiocidad", $xFRM->lang("Nueva", "Periocidad"), $xCred->getPeriocidadDePago()));
$oFrm5->addHElem($xSelTP->get("idtipopago", $xFRM->lang(array("Nuevo", "Tipo de", "Pago")), $xCred->getTipoDePago()));
$oFrm5->addHElem($oTxt->getDeMoneda("idpagos", $xFRM->lang("Numero de", "Pagos"), $xCred->getPagosAutorizados()));
$oFrm5->addHElem($oFch->get($xFRM->lang("Fecha de", "Vencimiento"), $xCred->getFechaDeVencimiento(), 2));
$oFrm5->OMoneda("idpagoactual", $xCred->getPeriodoActual(), "TR.Ultima Parcialidad");
$oFrm5->addHTML($oUL->li("Eliminar Plan de Pagos")->li("Reestructurar SDPM")->li("Recalcular Intereses Devengados")->li("Cambiar el Numero de Pagos")->li("Generar Movimiento de Fin de Mes")->end());
$oFrm5->addFootElement($oBtn->getBasic($lguardar, "jsaCambiarPeriocidad();jsTipTimer()", "guardar", "idmonto"));
$oFrm5->addFootElement($oBtn->getBasic($lcancelar, "jsCancelarAccion()", "cancelar", "idcancela"));
echo $oFrm5->get();
?>
</div>

<!--  ELIMINAR -->
<div class="inv" id="diveliminar">
    <h3>Acciones</h3>
    <ul>
	<li>Eliminar Credito</li>
	<li>Eliminar Operaciones</li>
	<li>Eliminar Recibos</li>
	<li>Eliminar Avales</li>

    $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);
}
function jsClose(){ xG.close(); }
</script>
<?php 

        //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();

    $idrecibo = $xRec->setNuevoRecibo($persona, 1, $fecha_de_operacion, 1, 20, $observacion, $cheque, $comopago, $foliofiscal, DEFAULT_GRUPO);
    $xRec->setNuevoMvto($fecha_de_operacion, $monto, 1001, 1, $observacion, 1, TM_ABONO);
    //agregar Poliza
    $xRec->addMvtoContableByTipoDePago();
    //Finalizar recibo
    $xRec->setFinalizarRecibo(true);
    $xRec->init();
    $xFRM->addHTML($xRec->getFichaSocio());
    $xFRM->addHTML($xRec->getFicha(true));
    $xFRM->addHTML($xRec->getJsPrint(true));
    $xFRM->OButton("TR. Imprimir recibo", "jsImprimirRecibo()", "imprimir", "idrec-dep");
    $xFRM->addCerrar();
    if (MODO_DEBUG == true) {
        $msg .= $xRec->getMessages();
        $xFL = new cFileLog(false, true);
        $xFL->setWrite($msg);
        $xFL->setClose();
        $xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
    }
} else {
    $xFRM->addJsBasico();
    $xFRM->addPersonaBasico();
    $xFRM->addCobroBasico();
    $xFRM->ODate("idfechadepago", "", "TR.Fecha de Pago");
    $xFRM->OMoneda("idmonto", 0, "TR.Cuota", true);
    $xFRM->addCerrar();
    $xFRM->addGuardar();
}
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
$xHP->fin();

$xFRM->addHElem($xTxt2->get("idapellidomaterno", "", "TR.segundo apellido"));
$xFRM->addHElem($xSel->getListaDeGeneros()->get("TR.genero", true));
$xFRM->addHElem($xSel->getListaDePaises("idpaisdeorigen")->get("TR.Pais de Origen", true));
if ($con_nacimiento == true) {
    $xFRM->ODate("idfechanacimiento", false, "TR.fecha de Nacimiento");
    $sEstados = $xSel->getListaDeEntidadesFed("identidadfederativanacimiento");
    $xFRM->addHElem($sEstados->get("TR.entidad de nacimiento", true));
    $xFRM->addHElem($xTxt->get("idlugardenacimiento", $xLoc->DomicilioMunicipio(), "TR.localidad de Nacimiento"));
} else {
    $xFRM->OHidden("identidadfederativanacimiento", $xLoc->DomicilioEstadoClaveABC(), "");
    $xFRM->OHidden("idlugardenacimiento", $xLoc->DomicilioMunicipio(), "");
    $xFRM->OHidden("idfechanacimiento", "01-01-2001", "");
}
$xFRM->addHElem($xTxt->getEmail("idemail"));
$xFRM->addHElem($xTxt->getNumero("idtelefono", "", "TR.Telefono"));
$xFRM->OMoneda("iddependientes", 0, "TR.Dependientes_economicos");
if ($con_legal == true) {
    $sCivil = $xSel->getListaDeEstadoCivil();
    $xFRM->addHElem($sCivil->get("TR.estado civil", true));
    $xFRM->addHElem($xSel->getListaDeRegimenMatrimonio()->get(true));
    $xFRM->addHElem($xSel->getListaDeRegimenesFiscales("", PERSONAS_ES_FISICA)->get("TR.Regimen Fiscal", true));
    $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) {

$xBtn = new cHButton();
$xTxt = new cHText();
$xDate = new cHDate();
$xSel = new cHSelect();
$xFRM->addPersonaBasico();
$xFRM->ODate("idFechaDeSolicitud", false, "TR.Fecha de Solicitud");
$selPdto = $xSel->getListaDeProductosDeCredito();
$selPdto->addEvent("onchange", "jsaGetPerfilDeProducto()");
$selPdto->addEvent("onfocus", "jsaGetPerfilDeProducto()");
$xFRM->addHElem($selPdto->get("TR.producto de credito", true));
//$xFRM->addHElem($xTxt->getDeMoneda("idnuevocredito", "TR.clave_de_credito"));
$selFreq = $xSel->getListaDePeriocidadDePago();
$selFreq->addEvent("onblur", "jsSetFrecuenciaDePagos(this)");
$xFRM->addHElem($selFreq->get(true));
$xFRM->addHElem($xSel->getListaDeTipoDePago()->get(true));
$xFRM->OMoneda("idnumerodepagos", 1, "TR.Numero de pagos");
$xFRM->ODate("idFechaVencimiento", false, "TR.Fecha de Vencimiento");
$xFRM->ODate("idFechaMinistracion", false, "TR.Fecha de Ministracion");
$xFRM->addHElem($xTxt->getDeMoneda("idmonto", "TR.Monto Solicitado", 0, true));
if (MODULO_CAPTACION_ACTIVADO == true) {
    $xFRM->addCuentaCaptacionBasico(false);
} else {
    $xFRM->addHTML("<input type='hidden' value='" . DEFAULT_CUENTA_CORRIENTE . "' id='idcuenta' name='idcuenta' />");
}
$txt2 = new cHText();
$txt2->setDivClass("");
$xFRM->addDivSolo($xSel->getListaDeDestinosDeCredito()->get(false), $txt2->get("iddescripciondestino", false, "TR.Descripcion del Destino de los_recursos"), "tx14", "tx34");
$xFRM->addObservaciones();
//si es credito renovado
$xFRM->OCheck("TR.Es Credito Renovado", "idrenovado");
if (MODULO_AML_ACTIVADO == true) {

    $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");
$xFRM->OMoneda("monto_total_relacionado", $xTabla->monto_total_relacionado()->v(), "TR.monto total relacionado");
//$xFRM->OTextArea("notas_de_checking", $xTabla->notas_de_checking()->v(), "TR.notas de checking");
//$xFRM->OTextArea("mensajes_del_sistema", $xTabla->mensajes_del_sistema()->v(), "TR.mensajes del sistema");
//$xFRM->OMoneda("tipo_de_riesgo", $xTabla->tipo_de_riesgo()->v(), "TR.tipo de riesgo");
//$xFRM->OMoneda("fecha_de_envio", $xTabla->fecha_de_envio()->v(), "TR.fecha de envio");

$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(" ");
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();

     $xFRM->addHElem($xTxt->get("contable_intereses_devengados", $xTabla->contable_intereses_devengados()->v(), "TR.Cuenta de Balance para Interes Vigente devengado"));
     $xFRM->addHElem($xTxt->get("contable_intereses_moratorios", $xTabla->contable_intereses_moratorios()->v(), "TR.Cuenta de Resultados para Abono en Intereses Moratorios Devengados"));
     $xFRM->addHElem($xTxt->get("contable_intereses_vencidos", $xTabla->contable_intereses_vencidos()->v(), "TR.Cuenta de Balance para Interes Vencidos"));
     $xFRM->addHElem($xTxt->get("interes_vigente_normal", $xTabla->interes_vigente_normal()->v(), "TR.Cuenta_de_Balance para Interes Vigente devengado"));
     $xFRM->addHElem($xTxt->get("interes_vigente_reestructurado", $xTabla->interes_vigente_reestructurado()->v(), "TR.Cuenta de Balance para Interes Vigente Reestructurados"));
     $xFRM->addHElem($xTxt->get("interes_vigente_renovado", $xTabla->interes_vigente_renovado()->v(), "TR.Cuenta de Balance para Interes Vigente Renovados"));
     $xFRM->addHElem($xTxt->get("interes_vencido_normal", $xTabla->interes_vencido_normal()->v(), "TR.Cuenta de Balance para Interes Vencido devengado"));
     $xFRM->addHElem($xTxt->get("interes_vencido_reestructurado", $xTabla->interes_vencido_reestructurado()->v(), "TR.Cuenta de Balance para Interes Vencido Reestructurado"));
     $xFRM->addHElem($xTxt->get("interes_vencido_renovado", $xTabla->interes_vencido_renovado()->v(), "TR.Cuenta de Balance para Interes Vencido devengado"));
     $xFRM->addHElem($xTxt->get("interes_cobrado", $xTabla->interes_cobrado()->v(), "TR.Cuenta de Ingresos por Intereses Normales Cobrados"));
     $xFRM->addHElem($xTxt->get("moratorio_cobrado", $xTabla->moratorio_cobrado()->v(), "TR.Cuenta de Ingresos para Intereses Moratorios Cobrados"));
     $xFRM->addHElem($xTxt->get("contable_cartera_castigada", $xTabla->contable_cartera_castigada()->v(), "TR.Cuenta_Contable para Capital de Cartera Castigada"));
     $xFRM->addHElem($xTxt->get("contable_intereses_anticipados", $xTabla->contable_intereses_anticipados()->v(), "TR.Cuenta_Contable para Intereses Cobrado por Anticipado"));
     break;
 case "tasas":
     $xFRM->OMoneda("interes_moratorio", $xTabla->interes_moratorio()->v(), "TR.Tasa anualizada de interes moratorio");
     $xFRM->OMoneda("interes_normal", $xTabla->interes_normal()->v(), "TR.Tasa anualizada del interes normal");
     $d34 = $ql->getArrayRecord("SELECT * FROM `creditos_tipo_de_calculo_de_interes`");
     $xFRM->OSelect("base_de_calculo_de_interes", $xTabla->base_de_calculo_de_interes()->v(), "TR.base de calculo de interes", $d34);
     $xFRM->OMoneda("porcentaje_ica", $xTabla->porcentaje_ica()->v(), "TR.porcentaje de tasa de Interes Cobrado por Anticipado");
     $xFRM->OMoneda("porcentaje_otro_credito", $xTabla->porcentaje_otro_credito()->v(), "TR.porcentaje para obtener otro credito");
     $xFRM->OMoneda("porciento_garantia_liquida", $xTabla->porciento_garantia_liquida()->v(), "TR.Porcentaje de deposito en garantia liquida");
     $xFRM->OMoneda("tasa_ahorro", $xTabla->tasa_ahorro()->v(), "TR.Porcentaje de Ahorro condicionado sobre el Credito");
     $xFRM->OMoneda("tasa_iva", $xTabla->tasa_iva()->v(), "TR.Tasa de Impuesto_al_Consumo");
     $xFRM->OSelect("iva_incluido", $xTabla->iva_incluido()->v(), "TR.impuesto_al_consumo en la Tasa de Interes", $dSN);
     break;
 case "dias":
     $xFRM->OMoneda("dias_maximo", $xTabla->dias_maximo()->v(), "TR.Numero de Dias Maximo de Plazo");
     $xFRM->OMoneda("tolerancia_dias_no_pago", $xTabla->tolerancia_dias_no_pago()->v(), "TR.tolerancia de espera en dias por falta de pago");
     $xFRM->OMoneda("tolerancia_dias_primer_abono", $xTabla->tolerancia_dias_primer_abono()->v(), "TR.tolerancia dias para el primer abono");
     break;

//remote values
$msgs = isset($_GET[SYS_MSG]) ? isset($_GET[SYS_MSG]) : "RELLENE LOS DATOS SOLICITADO Y GUARDELO";
$dMonto = isset($_GET["mn"]) ? isset($_GET["mn"]) : 0;
$dSocio = isset($_GET["s"]) ? isset($_GET["s"]) : DEFAULT_SOCIO;
$dCon = isset($_GET["c"]) ? isset($_GET["c"]) : "";
if ($xCaja->getEstatus() == TESORERIA_CAJA_CERRADA) {
    $xHP->goToPageError(200);
}
$xHP->init();
$xFRM = new cHForm("frmmultas", "frmcobrodemultas.php?action=" . MQL_ADD);
if ($action == SYS_NINGUNO) {
    $xFRM->addPersonaBasico();
    $xFRM->ODate("idfechaactual", false, "TR.Fecha de cobro");
    $xFRM->addCobroBasico();
    $xFRM->OText("idconceptomulta", "", "TR.Concepto de Multa");
    $xFRM->OMoneda("idmontomulta", 0, "TR.Monto de Multa", true);
    $xFRM->addGuardar();
} else {
    $xT = new cTipos();
    //===========================================================================
    $idsocio = isset($_POST["idsocio"]) ? $xT->cInt($_POST["idsocio"]) : 0;
    $observaciones = isset($_POST["idconceptomulta"]) ? $xT->cChar($_POST["idconceptomulta"]) : "";
    $monto = isset($_POST["idmontomulta"]) ? $xT->cFloat($_POST["idmontomulta"]) : 0;
    $cheque = isset($_POST["cheque"]) ? $xT->cChar($_POST["cheque"]) : DEFAULT_CHEQUE;
    $comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO;
    $foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL;
    if (setNoMenorQueCero($idsocio) <= 0) {
        //header("location: frmcobrodemultas.php?msg=FALTAN_DATOS");
        $xFRM->addAvisoRegistroError();
    } else {
        if (setNoMenorQueCero($monto) <= 0) {

echo $xP->setBodyinit();
//Crear formularios
$xFRM = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
$xHChk = new cHCheckBox();
$xFRM->setTitle("TR.Pruebas HTML");
//$xFRM->addHTML("<p>Esto es un parrafo de prueba</p>");
$xFRM->addHElem($xHChk->get("id1"));
$xFRM->addHElem($xHChk->get("id2"));
$xFRM->addHElem($xHChk->get("id3"));
$xFRM->addHElem($xHChk->get("id4"));
$xSoc = new cSocios_general();
$xSoc->setData($xSoc->query()->initByID(DEFAULT_SOCIO));
var_dump($xSoc->query()->getCampos());
//$xFRM->addAviso( $xSoc->query()->getListaDeCampos() );
$xFRM->OMoneda("ix", 4500, convertirletras("4,455.05"));
$xFRM->OMoneda("ix", 4500, convertirletras("4454.455.05"));
$xFRM->OMoneda("ix", 4500, convertirletras(45000));
//echo $xFRM->get();
$xTabla = new cCreditos_tipoconvenio();
$xFRM = new cHForm("frmcreditos_tipoconvenio", "creditos_tipoconvenio");
$xFRM->addSubmit();
$xEmp = new cEmpresas(100);
$xEmp->init();
if ($xEmp->getOPersona() == null) {
    $xFRM->OText("idper", "SIN PERSONA", "TR.Persona");
} else {
    $xPer = $xEmp->getOPersona()->init();
    $xFRM->OText("idper", $xEmp->getOPersona()->getNombreCompleto(), "TR.Persona");
}
echo $xFRM->get();