EVOLUTION-MANAGER
Edit File: movimientos_bancarios.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.Operaciones Bancarias", HP_FORM); $xQL = new MQL(); $xLi = new cSQLListas(); $xF = new cFecha(); //$jxc = new TinyAjax(); //$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); $persona = parametro("persona", DEFAULT_SOCIO, MQL_INT); $persona = parametro("socio", $persona, MQL_INT); $persona = parametro("idsocio", $persona, MQL_INT); $jscallback = parametro("callback"); $tiny = parametro("tiny"); $form = parametro("form"); $action = parametro("action", SYS_NINGUNO); //$cuenta_bancaria = para $operacion = parametro("idtipooperacionbanco", BANCOS_OPERACION_DEPOSITO, MQL_RAW); $recibo = parametro("idrecibo", 1, MQL_INT); $recibo = parametro("item", $recibo, MQL_INT); $recibo = parametro("recibo", $recibo, MQL_INT); $monto = parametro("idmonto", 0, MQL_FLOAT); $monto = parametro("monto", $monto, MQL_FLOAT); $documento = parametro("credito", DEFAULT_CREDITO, MQL_INT); $documento = parametro("idsolicitud", $documento, MQL_INT); $documento = parametro("solicitud", $documento, MQL_INT); $documento = parametro("cuenta", $documento, MQL_INT); $documento = parametro("idcuenta", $documento, MQL_INT); $documento = parametro("iddocumento", $documento, MQL_INT); $numero_de_cuenta = parametro("idcodigodecuenta", 0, MQL_INT); $descuento = parametro("iddescuento",0, MQL_FLOAT); $beneficiario = ""; $tituloDoc = "TR.Documento"; $origen = parametro("origen", 0, MQL_INT); $idorigen = parametro("idorigen", 0, MQL_INT); $idobservaciones = parametro("idobservaciones"); if($recibo > 1 AND $recibo!= DEFAULT_RECIBO ){ $xRec = new cReciboDeOperacion(false, true, $recibo); if($xRec->init() == true){ $monto = $xRec->getTotal(); $documento = $xRec->getCodigoDeDocumento(); $fecha = $xRec->getFechaDeRecibo(); $operacion = BANCOS_OPERACION_DEPOSITO; $persona = $xRec->getCodigoDeSocio(); $xSoc = new cSocio($persona, true); $beneficiario = $xSoc->getNombreCompleto(); } } else { if($documento > DEFAULT_CREDITO){ $xCred = new cCredito($documento); if($xCred->init() == true){ $operacion = BANCOS_OPERACION_CHEQUE; $persona = $xCred->getClaveDePersona(); $xSoc = new cSocio($persona, true); $beneficiario = $xSoc->getNombreCompleto(); $fecha = $xCred->getFechaDeMinistracion(); $monto = $xCred->getMontoAutorizado(); } } } $xHP->init(); $xFRM = new cHForm("frmmvtosbancsfrm", "movimientos_bancarios.frm.php?action=" . MQL_ADD); $xSel = new cHSelect(); if($action == MQL_ADD){ if($monto > 0 AND $numero_de_cuenta > 0 ){ $xBanc = new cCuentaBancaria($numero_de_cuenta); $r = $xBanc->addOperacion($operacion, $documento, $recibo, $beneficiario, $monto, $persona, $fecha, "", false, $descuento); if($r== false){ $xFRM->addAvisoRegistroError(); } else { $xFRM->addAvisoRegistroOK(); switch ($origen){ case iDE_PRESUPUESTO: //Actualizar Presupuesto a Pagado $sql = $xLi->getListadoDePresupuestoPorPagar($persona); $rs = $xQL->getDataRecord($sql); foreach ($rs as $rw){ $idx = $rw["control"]; $xDep = new cCreditosPresupuestoDetalle($idx); if( $xDep->init() == true){ if($xDep->setPagado($documento, $idobservaciones, $fecha) == false){ $xFRM->addAvisoRegistroError(); } } else { $xFRM->addAvisoRegistroError(); } //$uql = "UPDATE `creditos_destino_detallado` SET `estado_actual`=1 WHERE `idcreditos_destino_detallado`=$idx"; //$xQL->setRawQuery($uql); //TODO: Agregar memo //ID de cheque en todos los pagos //setLog($uql); } break; } //Agregar Impŕimir } } else { $xFRM->addAvisoRegistroOK(); } } $xFRM->OHidden("idorigen", $idorigen); $xFRM->OHidden("origen", $origen); if($operacion == BANCOS_OPERACION_CHEQUE){ $tituloDoc = "TR.Numero de Cheque"; } $xFRM->setTitle($xHP->getTitle()); if($persona > DEFAULT_SOCIO){ $xSoc = new cSocio($persona); if($xSoc->init() == true){ $xFRM->addHElem( $xSoc->getFicha() ); } } else { $xFRM->addPersonaBasico("", false, $persona, "", "TR.Nombre del Beneficiario"); } if($monto > 0){ $xFRM->OHidden("idmonto", $monto); $xCat = new cCantidad($monto); $xFRM->addHElem($xCat->getFicha()); } else { $xFRM->addMonto($monto, true); } if($operacion == BANCOS_OPERACION_DEPOSITO){ $xFRM->addHElem( $xSel->getListaDeTiposDeOperacionesBancarias("", $operacion)->get(true) ); } else { $xFRM->OHidden("idtipooperacionbanco", $operacion); } $xFRM->addFecha($fecha); $xFRM->addHElem($xSel->getListaDeCuentasBancarias("", true, $numero_de_cuenta)->get(true) ); $xFRM->OText("iddocumento", $documento, $tituloDoc); $xFRM->OMoneda("idrecibo", $recibo, "TR.Recibo Relacionado"); $xFRM->addObservaciones("", $idobservaciones); $xFRM->addGuardar(); echo $xFRM->get(); //$jxc ->drawJavaScript(false, true); $xHP->fin(); ?>