EVOLUTION-MANAGER
Edit File: creditos.garantia-liquida.frm.php
<?php /** * @author Balam Gonzalez Luis Humberto * @version 0.0.01 * @package */ //===================================================================================================== include_once("../core/go.login.inc.php"); include_once("../core/core.error.inc.php"); include_once("../core/core.html.inc.php"); include_once("../core/core.init.inc.php"); include_once("../core/core.db.inc.php"); $theFile = __FILE__; $permiso = getSIPAKALPermissions($theFile); if($permiso === false){ header ("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes( $theFile ); //===================================================================================================== $xHP = new cHPage("TR.AGREGAR GTIALIQ", HP_FORM); $xQL = new MQL(); $xLi = new cSQLListas(); $xF = new cFecha(); $xDic = new cHDicccionarioDeTablas(); $xVal = new cReglasDeValidacion(); //$jxc = new TinyAjax(); //$tab = new TinyAjaxBehavior(); //$tab -> add(TabSetValue::getBehavior("idide", $x)); //return $tab -> getString(); //$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago"); //$jxc ->process(); $clave = parametro("id", 0, MQL_INT); $clave = parametro("clave", $clave, MQL_INT); $fecha = parametro("idfecha-0", false, MQL_DATE); $fecha = parametro("idfechaactual", $fecha, MQL_DATE); $fecha = parametro("idfecha", $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); $monto = parametro("monto",0, MQL_FLOAT); $monto = parametro("idmonto",$monto, MQL_FLOAT); $recibo = parametro("recibo", 0, MQL_INT); $recibo = parametro("idrecibo", $recibo, MQL_INT); $empresa = parametro("empresa", 0, MQL_INT); $empresa = parametro("idempresa", $empresa, MQL_INT); $empresa = parametro("iddependencia", $empresa, MQL_INT); $empresa = parametro("dependencia", $empresa, MQL_INT); $grupo = parametro("idgrupo", 0, MQL_INT); $grupo = parametro("grupo", $grupo, MQL_INT); $ctabancaria = parametro("idcodigodecuenta", 0, MQL_INT); $ctabancaria = parametro("cuentabancaria", $ctabancaria, MQL_INT); $observaciones= parametro("idobservaciones"); $pagolibre = parametro("pagolibre", false, MQL_BOOL); $xHP->init(); $xFRM = new cHForm("frmcredsgtisliqx", "./creditos.garantia-liquida.frm.php"); $xSel = new cHSelect(); $xFRM->setTitle($xHP->getTitle()); if($credito <= DEFAULT_CREDITO){ $xFRM->addCreditBasico(); $xFRM->addSubmit(); } else { $xCred = new cCredito($credito); if($xCred->init() == true){ $xFRM->OHidden("credito", $xCred->getClaveDeCredito()); $xFRM->OHidden("persona", $xCred->getClaveDePersona()); $xFRM->addHElem( $xCred->getFichaMini() ); if($action == SYS_NINGUNO){ $xFRM->addGuardar(); $xFRM->addSeccion("iddapo", "TR.DESTINO"); if(GARANTIA_LIQUIDA_EN_CAPTACION == true){ $xSelCta = $xSel->getListaDeCuentasGtiaLiq("cuenta", false, $xCred->getClaveDePersona()); $xSelCta->addEspOption("0", "NUEVO"); $xFRM->addHElem($xSelCta->get(true)); } else { $xFRM->OHidden("cuenta", "0"); } if($pagolibre == true){ if($monto<=0){ $monto = $xCred->getGarantiaLiquida(); } } else { $monto = $xCred->getGarantiaLiquidaPorPagar(); } $xFRM->addCobroBasico(); if($pagolibre == true){ $xFRM->OMoneda2("monto", $monto, "TR.MONTO"); } else { $xFRM->ODisabledM("monto", $monto, "TR.MONTO"); } $xFRM->addObservaciones(); $xFRM->endSeccion(); $xFRM->setAction("./creditos.garantia-liquida.frm.php?action=" . MQL_ADD, true); } else { $foliofiscal = parametro("foliofiscal"); $ctipo_pago = parametro("ctipo_pago"); $cheque = parametro("cheque"); /*$cuenta = parametro("cuenta"); $idobservaciones = parametro("idobservaciones"); $credito = parametro("credito"); $persona = parametro("persona"); $monto = parametro("monto");*/ if(GARANTIA_LIQUIDA_EN_CAPTACION == true){ if($xVal->cuenta($cuenta) == false){ $xCapt = new cCuentaALaVista(false); $res = $xCapt->initCuentaPorProducto($xCred->getClaveDePersona(), CAPTACION_PRODUCTO_GARANTIALIQ); if($res == false){ $xCapt->setNuevaCuenta($xCapt->ORIGEN_CRED, CAPTACION_PRODUCTO_GARANTIALIQ, $xCred->getClaveDePersona(), $observaciones, $xCred->getClaveDeCredito() ); } $cuenta = $xCapt->getNumeroDeCuenta(); } $xCta = new cCuentaALaVista($cuenta); if($xCta->init() == true){ $recibo = $xCta->setDeposito($monto, $cheque, $ctipo_pago, $foliofiscal, $observaciones); $xRec = new cReciboDeOperacion(false, false, $recibo); if($xRec->init() == true){ $xFRM->addImprimir(); $xFRM->addJsCode( $xRec->getJsPrint() ); $xFRM->addHElem( $xRec->getFicha() ); } } else { $xFRM->addAvisoRegistroError($xCta->getMessages(OUT_HTML)); } } else { // $xRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO); $idrecibo = $xRec->setNuevoRecibo($xCred->getClaveDePersona(), $xCred->getClaveDeCredito(), $fecha, SYS_CERO, RECIBOS_TIPO_PAGO_CREDITO, $observaciones, $cheque, $ctipo_pago, $foliofiscal, $xCred->getClaveDeGrupo()); if($idrecibo>0){ $xRec->addMovimiento(OPERACION_CLAVE_PAGO_GLIQ, $monto, SYS_CERO, $observaciones, SYS_UNO,$xCred->getClaveDePersona(), $xCred->getClaveDeCredito()); $xRec->setFinalizarRecibo(true); $xFRM->addImprimir(); $xFRM->addJsCode( $xRec->getJsPrint() ); $xFRM->addHElem( $xRec->getFicha() ); }else { $xFRM->addAvisoRegistroError($xRec->getMessages(OUT_HTML)); } } $xFRM->addCerrar(); } } } echo $xFRM->get(); //$jxc ->drawJavaScript(false, true); $xHP->fin(); ?>