EVOLUTION-MANAGER
Edit File: letras.svc.php
<?php //===================================================================================================== //=====> INICIO_H 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"); $theFile = __FILE__; $permiso = getSIPAKALPermissions($theFile); if($permiso === false){ header ("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes( $theFile ); //<===== FIN_H //===================================================================================================== $xInit = new cHPage("", HP_SERVICE ); $txt = ""; $xQL = new MQL(); $lis = new cSQLListas(); $xF = new cFecha(); //$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT); $credito = parametro("credito", DEFAULT_CREDITO, MQL_INT); $letra = parametro("letra", false, MQL_INT); $cmd = parametro("cmd", SYS_NINGUNO, MQL_RAW); //$tipo = parametro("tipo", false, MQL_INT); $rs = array(); $xPlan = null; $rs["aviso"] = ""; switch ($cmd){ case MQL_DEL: $xPlan = new cPlanDePagos(); $xPlan->initByCredito($credito); $xPlan->setNeutralizarParcialidad($letra, true); $rs["aviso"] = $xPlan->getMessages(); break; } $xCred = new cCredito($credito); $xCach = new cCache(); $dataC = $xCach->get("credito-letras-$credito"); $dataC = ($dataC == null) ? false : $dataC; $init = $xCred->init($dataC); if($init == true){ $xCach->set("credito-letras-$credito", $xCred->getDatosInArray(), $xCach->EXPIRA_MEDDIA); } if( setNoMenorQueCero($credito) > DEFAULT_CREDITO AND $init == true){ //$sql = "SELECT * FROM `letras` WHERE docto_afectado = $credito AND periodo_socio=$letra LIMIT 0,1"; $sql = $lis->getLetrasIndividual($credito, $letra); if($xCred->getSaldoActual() <= 0 OR $xCred->getEsAfectable() == false ){ $rs[SYS_MONTO] = 0; $rs["credito"] = $credito; $rs["periodo"] = $letra; $rs["letra"] = $letra; $rs["aviso"] .= "ERROR\tEl Credito $credito no tiene saldo o no es afectable\r\n"; } else { $D = $xQL->getDataRow($sql); //$xL = new cLetrasVista(); if(isset($D["letra"])){ $monto = setNoMenorQueCero($D["total_sin_otros"]); $rs[SYS_MONTO] = $monto; $rs["credito"] = $credito; $rs["periodo"] = $letra; $rs["letra"] = $letra; $rs["aviso"] = ""; $interes = setNoMenorQueCero($D["interes"]); $iva = setNoMenorQueCero($D["iva"]); $capital = setNoMenorQueCero($D["capital"]); $otros = setNoMenorQueCero($D["otros"]); if(MODO_DEBUG == true){ $rs["aviso"] = "OK\tLetra $letra Interes $interes IVA $iva Capital $capital Otros $otros\r\n"; } if($interes <= 0){ $rs["aviso"].= "WARN\tLa Parcialidad Num $letra del Credito $credito : SIN INTERES\r\n"; } if( $iva <= 0 ){ $rs["aviso"].= "WARN\tLa Parcialidad Num $letra del Credito $credito : SIN IMPUESTOS\r\n"; } } else { $rs[SYS_MONTO] = 0; $rs["credito"] = $credito; $rs["periodo"] = $letra; $rs["letra"] = $letra; $rs["aviso"] .= "ERROR\tNo existe monto en la Letra $letra del Credito $credito\r\n"; } } } else { $rs[SYS_MONTO] = 0; $rs["credito"] = $credito; $rs["periodo"] = $letra; $rs["letra"] = $letra; $rs["aviso"] .= "ERROR\tEl Credito $credito No existe o no se inicio\r\n"; } header('Content-type: application/json'); echo json_encode($rs); //setLog(json_encode($rs)); //setLog($sql); ?>