uf_obtenervalor("funcion","");
switch($ls_funcion){
case "DTRECEPCION"://Pinta los grid de detalle de la recepcion de documento
uf_cargar_dt_recepcion();
break;
case "CARGARDTNOTA"://Pinta los grid de la notas existentes con los detalles que se hayan almacenado para la misma
uf_cargar_dt_nota();
break;
case "DTNOTA"://Pinta los grid de la nota en blanco
uf_dt_nota();
break;
case "DTNOTAPRE"://Pinta los grid de detalle de la nota cuando se elimina un detalle,lo usa cuando son recepciones con afectacion presupuestaria
uf_cargar_dtnota_pre();
break;
case "DTNOTACON"://Pinta los grid de detalle de la nota cuando se elimina un detalle,lo usa cuando son recepciones tipo contable
uf_cargar_dtnotacon();
break;
case "AGREGARDTNOTAPRE"://Pinta los grid de detalle de la nota cuando se agrega un detalle o un cargo,lo usa cuando son recepciones con afectacion presupuestaria
uf_agregar_dtnotapre();
break;
case "AGREGARDTNOTACON"://Pinta los grid de detalle de la nota cuando se agrega un detalle,lo usa cuando son recepciones con afectacion presupuestaria
uf_agregar_dtnotacon();
break;
case "RELOAD_DTNOTA"://Repinta los Grid Presupuestarios de las Notas de Débito/Crédito.
uf_reload_dtnota();
break;
}
function uf_cargar_dt_recepcion()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dt_recepcion
// Access: public
// Description: Funcion para pintar los detalles presupuestarios y contables de la recepcion de documento
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin : 03/06/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/grid_param.php");
$io_grid=new grid_param();
global $io_funciones_cxp;
$li=0;
$ls_aux="";
$ls_modalidad=$_SESSION['la_empresa']['estmodest'];
$ls_codemp=$io_funciones_cxp->uf_obtenervalor("codemp","");
$ls_numrecdoc=trim($io_funciones_cxp->uf_obtenervalor("numrecdoc",""));
$ls_codtipdoc=$io_funciones_cxp->uf_obtenervalor("codtipdoc","");
$ls_tipproben=$io_funciones_cxp->uf_obtenervalor("tipproben","");
$ls_codproben=trim($io_funciones_cxp->uf_obtenervalor("codproben",""));
if($ls_tipproben=='P')
{
$ls_aux=" AND rd.cod_pro='".$ls_codproben."' ";
}
elseif($ls_tipproben=='B')
{
$ls_aux=" AND rd.ced_bene='".$ls_codproben."' ";
}
if($_SESSION["ls_gestor"]=="MYSQLT")
{
$ls_aux_estpro=" AND rd.codestpro=CONCAT(spg.codestpro1,spg.codestpro2,spg.codestpro3,spg.codestpro4,spg.codestpro5) ";
}
else
{
$ls_aux_estpro=" AND rd.codestpro=spg.codestpro1||spg.codestpro2||spg.codestpro3||spg.codestpro4||spg.codestpro5 ";
}
$ls_sql=" SELECT rd.codemp, trim(rd.numrecdoc) as numrecdoc, rd.codtipdoc, trim(rd.ced_bene) as ced_bene, rd.cod_pro,
rd.procede_doc, trim(rd.numdoccom) as numdoccom, rd.codestpro,trim(rd.spg_cuenta) as spg_cuenta, rd.monto,rd.estcla,spg.denominacion
FROM cxp_rd_spg rd,spg_cuentas spg
WHERE rd.codemp='".$ls_codemp."'
AND trim(rd.numrecdoc) = '".trim($ls_numrecdoc)."'
AND rd.codtipdoc='".$ls_codtipdoc."' $ls_aux
AND rd.codemp=spg.codemp
AND rd.spg_cuenta=spg.spg_cuenta $ls_aux_estpro";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar detalle presupuestario","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$li++;
$ls_numcomp=$row["numdoccom"];
$ls_codestpro=$row["codestpro"];
$io_funciones_cxp->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
$ls_estcla=$row["estcla"];
$ls_spgcuenta=$row["spg_cuenta"];
$ldec_monto=$row["monto"];
$ls_dencuenta=utf8_encode($row["denominacion"]);
$ls_estatus="";
switch($ls_estcla)
{
case "A":
$ls_estatus=utf8_encode("Acción");
break;
case "P":
$ls_estatus=utf8_encode("Proyecto");
break;
}
$lo_object[$li][1]="";
$lo_object[$li][2]="";
$lo_object[$li][3]="";
$lo_object[$li][4]="";
$lo_object[$li][5]="";
$lo_object[$li][6]="";
}
if($li==0)
{
for($li=1;$li<=4;$li++)
{
$lo_object[$li][1]="";
$lo_object[$li][2]="";
$lo_object[$li][3]="";
$lo_object[$li][4]="";
$lo_object[$li][5]="";
$lo_object[$li][6]="";
}
$li=4;
}
// Titulos del Grid de Bienes
$lo_title[1]="Compromiso";
$lo_title[2]="Codigo Programatico";
$lo_title[3]="Estatus";
$lo_title[4]="Codigo Estadistico";
$lo_title[5]="Monto";
$lo_title[6]="Denominación";
$io_grid->make_gridScroll($li,$lo_title,$lo_object,758,"Detalle Presupuestario","grid",120);
$io_sql->free_result($rs_data);
}
print "";
$li=0;
$ls_sql="SELECT rd.codemp, trim(rd.numrecdoc) as numrecdoc, rd.codtipdoc, trim(rd.ced_bene) as ced_bene, rd.cod_pro,
rd.procede_doc, trim(rd.numdoccom) as numdoccom, rd.debhab, trim(rd.sc_cuenta) as sc_cuenta, rd.monto, rd.estgenasi ,
scg.denominacion
FROM cxp_rd_scg rd,scg_cuentas scg
WHERE rd.codemp='".$ls_codemp."'
AND trim(rd.numrecdoc) = '".trim($ls_numrecdoc)."'
AND rd.codtipdoc='".$ls_codtipdoc."' $ls_aux
AND rd.codemp=scg.codemp
AND rd.sc_cuenta=scg.sc_cuenta";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar detalle contable","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$li++;
$ls_numcomp=$row["numdoccom"];
$ls_scgcuenta=$row["sc_cuenta"];
$ls_debhab=$row["debhab"];
$ldec_monto=$row["monto"];
$ls_dencuentascg=utf8_encode($row["denominacion"]);
if($ls_debhab=='D')
{
$ldec_mondeb=$ldec_monto;
$ldec_monhab=0;
}
else
{
$ldec_mondeb=0;
$ldec_monhab=$ldec_monto;
}
$lo_objectscg[$li][1]="";
$lo_objectscg[$li][2]="";
$lo_objectscg[$li][3]="";
$lo_objectscg[$li][4]="";
$lo_objectscg[$li][5]="";
}
if($li==0)
{
for($li=1;$li<=4;$li++)
{
$lo_objectscg[$li][1]="";
$lo_objectscg[$li][2]="";
$lo_objectscg[$li][3]="";
$lo_objectscg[$li][4]="";
$lo_objectscg[$li][5]="";
}
$li=4;
}
// Titulos del Grid de Bienes
$lo_titlescg[1]="Compromiso";
$lo_titlescg[2]="Cuenta Contable";
$lo_titlescg[3]="Monto Debe";
$lo_titlescg[4]="Monto Haber";
$lo_titlescg[5]="Denominación";
$io_grid->make_gridScroll($li,$lo_titlescg,$lo_objectscg,758,"Detalle Contable","gridcon",120);
print "";
$io_sql->free_result($rs_data);
}
unset($io_include,$io_conexion,$io_sql);
unset($io_mensajes,$io_funciones,$ls_codemp);
}
function uf_dt_nota()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_dt_nota
// Access: public
// Description: Funcion para pintar los detalles presupuestarios y contables de la nota en blanco
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/grid_param.php");
$io_grid=new grid_param();
for ($li=1;$li<=4;$li++)
{
$lo_object2[$li][1] = "";
$lo_object2[$li][2] = "";
$lo_object2[$li][3] = "";
$lo_object2[$li][4] = "";
$lo_object2[$li][5] = "";
}
$li=4;
// Titulos del Grid de Bienes
$lo_title[1]="Código Estadístico";
$lo_title[2]="Código Programático ";
$lo_title[3]="Estatus";
$lo_title[4]="Denominación";
$lo_title[5]="Monto";
$io_grid->make_gridScroll($li,$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
if (isset($lo_object))
{
unset($lo_object);
}
for ($li=1;$li<=4;$li++)
{
$lo_object[$li][1]="";
$lo_object[$li][2]="";
$lo_object[$li][3]="";
$lo_object[$li][4]="";
}
$li=4;
// Titulos del Grid de Bienes
unset($lo_title);
$lo_title[1]="Cuenta";
$lo_title[2]="Denominación";
$lo_title[3]="Debe";
$lo_title[4]="Haber";
$io_grid->make_gridScroll($li,$lo_title,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
print "";
print "";
print "
";
print "
";
print "
Total Debe
";
print "
";
print "
Total Haber
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
TOTALES
";
print "
";
print "
";
print "
";
print "
";
print "
SUBTOTAL
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
MONTO TOTAL
";
print "
";
print "
";
print "
";
}
function uf_cargar_dtnota_pre()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dtnotapre
// Access: public
// Description: Funcion para pintar los detalles presupuestarios a la nota recalculando los cargos y cuadrando los asientos contables
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/grid_param.php");
require_once("../../shared/class_folder/class_datastore.php");
require_once("../../shared/class_folder/evaluate_formula.php");
$io_formula = new evaluate_formula();
$io_grid=new grid_param();
global $io_funciones_cxp;
$io_grid=new grid_param();
$ds_detscg=new class_datastore();
$ldec_total=0;
$ldec_totalsincargo=0;
$ldec_totalcargo=0;
$ldec_totaldebe=0;
$ldec_totalhaber=0;
$li_totalactual = $io_funciones_cxp->uf_obtenervalor("totalactual","");
$ls_tiponota = $io_funciones_cxp->uf_obtenervalor("tiponota","");
$ls_cuentaprov = $io_funciones_cxp->uf_obtenervalor("txtctaprov","");
$ls_denctaprov = $io_funciones_cxp->uf_obtenervalor("denctascg","");
$ls_tipproben = $io_funciones_cxp->uf_obtenervalor("tipproben","");
$ls_codproben = trim($io_funciones_cxp->uf_obtenervalor("codproben",""));
$ls_numrecdoc = trim($io_funciones_cxp->uf_obtenervalor("numrecdoc",""));
$ls_codtipdoc = $io_funciones_cxp->uf_obtenervalor("codtipdoc","");
for ($li=1;$li<=$li_totalactual;$li++)
{
$ls_estcargo = $io_funciones_cxp->uf_obtenervalor("txtestcargo".$li,"");
if ($ls_estcargo!='C')
{
$ls_cuenta = $io_funciones_cxp->uf_obtenervalor("txtcuentaspgncnd".$li,"");
$ls_codestpro = $io_funciones_cxp->uf_obtenervalor("txtcodestproncnd".$li,"");
$ls_codpro = $io_funciones_cxp->uf_obtenervalor("txtcodpro".$li,"");
$ls_estcla = $io_funciones_cxp->uf_obtenervalor("txtestclancnd".$li,"");
$ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentancnd".$li,"");
$ldec_monto = $io_funciones_cxp->uf_obtenervalor("txtmontoncnd".$li,"");
$ls_scgcuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentadt".$li,"");
$ls_denctascg = $io_funciones_cxp->uf_obtenervalor("txtprocede".$li,"");
$ls_procede = $io_funciones_cxp->uf_obtenervalor("txtdenscgcuentadt".$li,"");
$ls_numdoccom = $io_funciones_cxp->uf_obtenervalor("txtnumdoccom".$li,"");
$io_funciones_cxp->uf_formatoprogramatica($ls_codpro,$ls_programatica);
$ls_estatus="";
switch($ls_estcla)
{
case "A":
$ls_estatus=utf8_encode("Acción");
break;
case "P":
$ls_estatus=utf8_encode("Proyecto");
break;
}
$lo_object2[$li][1]="";
$lo_object2[$li][2]="";
$lo_object2[$li][3]="";
$lo_object2[$li][4]="";
$lo_object2[$li][5]="";
$lo_object2[$li][6]="";
if ($ls_tiponota=="ND")
{
$ldec_monto = str_replace(".","",$ldec_monto);
$ldec_monto = str_replace(",",".",$ldec_monto);
$ldec_mondebe = number_format($ldec_monto,2,",",".");
$ldec_monhaber = "0,00";
$ls_debhab = 'D';
}
else
{
$ldec_montoaux=str_replace(".","",$ldec_monto);
$ldec_montoaux=str_replace(",",".",$ldec_montoaux);
$ldec_monto=$ldec_montoaux*-1;
$ldec_monhaber=number_format($ldec_monto,2,",",".");
$ldec_mondebe="0,00";
$ls_debhab='H';
if ($li==1)
{
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd","0,00");
$ds_detscg->insertRow("txthaberncnd","0,00");
$ds_detscg->insertRow("txtdebhab",'');
}
}
$ds_detscg->insertRow("txtscgcuentancnd",$ls_scgcuenta);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctascg);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondebe);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhaber);
$ds_detscg->insertRow("txtdebhab",$ls_debhab);
$ldec_total=$ldec_total+$ldec_monto;
}
else
{
$ldec_totalcargo=$ldec_monto+$ldec_totalcargo;
}
}
if ($li_totalactual==0)
{
uf_dt_nota();
}
else
{
$ldec_total=number_format($ldec_total,2,",",".");
if ($ls_tiponota=="ND")
{
$ldec_mondebe="0,00";
$ldec_monhaber=$ldec_total;
$ls_debhab='H';
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondebe);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhaber);
$ds_detscg->insertRow("txtdebhab",$ls_debhab);
}
else
{
$ldec_mondebe=$ldec_total;
$ldec_monhaber="0,00";
$ls_debhab='D';
$ds_detscg->updateRow("txtdebencnd",$ldec_mondebe,1);
$ds_detscg->updateRow("txtdebhab",$ls_debhab,1);
}
$aa_items = array('0'=>'txtscgcuentancnd','1'=>'txtdebhab');
$aa_sum = array('0'=>'txtdebencnd','1'=>'txthaberncnd');
$ds_detscg->group_by_conformato($aa_items,$aa_sum,'txtscgcuentancnd');
$li_totalrows=$ds_detscg->getRowCount("txtscgcuentancnd");
for ($la=1;$la<=$li_totalrows;$la++)
{
$ls_scgcuenta = trim($ds_detscg->getValue("txtscgcuentancnd",$la));
$ls_dencuenta = $ds_detscg->getValue("txtdencuentascgncnd",$la);
$ldec_mondebe = $ds_detscg->getValue("txtdebencnd",$la);
$ldec_monhaber = $ds_detscg->getValue("txthaberncnd",$la);
$ldec_auxdebe = str_replace(".","",$ldec_mondebe);
$ldec_auxdebe = str_replace(",",".",$ldec_auxdebe);
$ldec_auxhaber = str_replace(".","",$ldec_monhaber);
$ldec_auxhaber = str_replace(",",".",$ldec_auxhaber);
$ldec_totaldebe = $ldec_totaldebe+$ldec_auxdebe;
$ldec_totalhaber = $ldec_totalhaber+$ldec_auxhaber;
$lo_object[$la][1]="";
$lo_object[$la][2]="";
$lo_object[$la][3]="";
$lo_object[$la][4]="";
}
//Titulos del Grid de Presupuestario de la Nota de Crédito/Débito.
$lo_title[1]="Código Estadístico";
$lo_title[2]="Código Programático ";
$lo_title[3]="Estatus";
$lo_title[4]="Denominación";
$lo_title[5]="Monto";
$lo_title[6]=" ";
$io_grid->make_gridScroll(($li-1),$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
$lo_titlesc[1]="Cuenta";
$lo_titlesc[2]="Denominación";
$lo_titlesc[3]="Monto Debe";
$lo_titlesc[4]="Monto Haber";
$io_grid->make_gridScroll(($la-1),$lo_titlesc,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
print "";
print "";
print "
";
print "
";
print "
Total Debe
";
print "
";
print "
Total Haber
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
TOTALES
";
print "
";
print "
";
print "
";
print "
";
print "
SUBTOTAL
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
MONTO TOTAL
";
print "
";
print "
";
print "
";
}
}
function uf_reload_dtnota()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_reload_dtnota
// Access: private
// Description: Método que repinta el Grid Presupuestario y Contable de las Notas de Débito/Crédito.
// Creado Por: Ing. Néstor Falcón.
// Fecha Creación: 12/12/2008 Fecha Última Modificación : 12/12/2008
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/grid_param.php");
$io_grid = new grid_param();
global $io_funciones_cxp;
$ld_montotnot = $ld_monsubnot = $ld_moncrenot = 0;
$li_totrowpre = $io_funciones_cxp->uf_obtenervalor("rowspre","");
for ($li_i=1;$li_i<=$li_totrowpre;$li_i++)
{
$ls_estcargo = $io_funciones_cxp->uf_obtenervalor("txtestcargo".$li_i,"");
$ls_spgcta = trim($io_funciones_cxp->uf_obtenervalor("txtcuentaspgncnd".$li_i,""));
$ls_codestpro = $io_funciones_cxp->uf_obtenervalor("txtcodestproncnd".$li_i,"");
$ls_codpro = $io_funciones_cxp->uf_obtenervalor("txtcodpro".$li_i,"");
$ls_estcla = $io_funciones_cxp->uf_obtenervalor("txtestclancnd".$li_i,"");
if ($ls_estcla=='A')
{
$ls_estclaaux = utf8_encode('Acción');
}
elseif($ls_estcla=='P')
{
$ls_estclaaux = 'Proyecto';
}
$ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentancnd".$li_i,"");
$ldec_monto = $io_funciones_cxp->uf_obtenervalor("txtmontoncnd".$li_i,"");
$ld_monto = str_replace('.','',$ldec_monto);
$ld_monto = str_replace(',','.',$ld_monto);
if ($ls_estcargo=='C')
{
$ld_moncrenot += abs($ld_monto);
}
elseif($ls_estcargo=='')
{
$ld_monsubnot += abs($ld_monto);
}
$ls_scgcuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentadt".$li_i,"");
$ls_denctascg = $io_funciones_cxp->uf_obtenervalor("txtdenscgcuentadt".$li_i,"");
$ls_procede = $io_funciones_cxp->uf_obtenervalor("txtprocede".$li_i,"");
$ls_numdoccom = $io_funciones_cxp->uf_obtenervalor("txtnumdoccom".$li_i,"");
$io_funciones_cxp->uf_formatoprogramatica($ls_codpro,$ls_programatica);
$lo_object2[$li_i][1] = "".
"".
"".
"";
$lo_object2[$li_i][2] = "";
$lo_object2[$li_i][3] = "";
$lo_object2[$li_i][4] = "";
$lo_object2[$li_i][5] = "";
$lo_object2[$li_i][6] = "";
}
//Titulos del Grid Presupuestario de la Nota de Crédito/Débito.
$lo_title[1] = "Código Estadístico";
$lo_title[2] = "Código Programático";
$lo_title[3] = "Estatus";
$lo_title[4] = "Denominación";
$lo_title[5] = "Monto";
$lo_title[6] = "";
$io_grid->make_gridScroll($li_totrowpre,$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
$ld_totmondeb = $ld_totmonhab = 0;
$li_totrowcon = $io_funciones_cxp->uf_obtenervalor("rowscon","");
for ($li_i=1;$li_i<=$li_totrowcon;$li_i++)
{
$ls_scgcuenta = $io_funciones_cxp->uf_obtenervalor("txtscgcuentancnd".$li_i,"");
$ls_dencuenta = $io_funciones_cxp->uf_obtenervalor("txtdencuentascgncnd".$li_i,"");
$ldec_mondebe = $io_funciones_cxp->uf_obtenervalor("txtdebencnd".$li_i,"");
$ld_mondetdeb = str_replace('.','',$ldec_mondebe);
$ld_mondetdeb = str_replace(',','.',$ld_mondetdeb);
$ld_totmondeb += $ld_mondetdeb;
$ldec_monhaber = $io_funciones_cxp->uf_obtenervalor("txthaberncnd".$li_i,"");
$ld_mondethab = str_replace('.','',$ldec_monhaber);
$ld_mondethab = str_replace(',','.',$ld_mondethab);
$ld_totmonhab += $ld_mondethab;
$lo_object[$li_i][1] = "";
$lo_object[$li_i][2] = "";
$lo_object[$li_i][3] = "";
$lo_object[$li_i][4] = "";
}
//Titulos del Grid Contable de la Nota de Crédito/Débito.
$lo_titlesc[1]="Cuenta";
$lo_titlesc[2]="Denominación";
$lo_titlesc[3]="Monto Debe";
$lo_titlesc[4]="Monto Haber";
$io_grid->make_gridScroll($li_totrowcon,$lo_titlesc,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
if ($_SESSION["la_empresa"]["confiva"]=='C')
{
if (array_key_exists("la_crenotas",$_SESSION))
{
$ld_moncrenot = 0;
$la_datotrcre = $_SESSION["la_crenotas"];
$li_totrowcre = count($la_datotrcre["monret"]);
for ($li_i=1;$li_i<=$li_totrowcre;$li_i++)
{
$ld_monret = $la_datotrcre["monret"][$li_i];
$ld_monret = str_replace('.','',$ld_monret);
$ld_monret = str_replace(',','.',$ld_monret);
$ld_moncrenot += $ld_monret;
}
}
}
$ld_montotnot = number_format($ld_monsubnot+$ld_moncrenot,2,',','.');
$ld_monsubnot = number_format($ld_monsubnot,2,',','.');
$ld_moncrenot = number_format($ld_moncrenot,2,',','.');
print "";
print "";
print "
";
}
function uf_agregar_dtnotacon()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregar_dtnotacon
// Access: public
// Description: Funcion para agregar detalles contables a la nota de debito y credito solo para recepciones documento tipo contable
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/grid_param.php");
require_once("../../shared/class_folder/class_datastore.php");
$io_grid=new grid_param();
$ds_detscg=new class_datastore();
global $io_funciones_cxp;
$li_total=$io_funciones_cxp->uf_obtenervalor("selected","");
$ls_tiponota=$io_funciones_cxp->uf_obtenervalor("tiponota","");
$ls_cuentaprov=$io_funciones_cxp->uf_obtenervalor("txtctaprov","");
$ls_denctaprov=$io_funciones_cxp->uf_obtenervalor("denctascg","");
$ls_tipproben=$io_funciones_cxp->uf_obtenervalor("tipproben","");
$ls_codproben=trim($io_funciones_cxp->uf_obtenervalor("codproben",""));
$ls_numrecdoc=trim($io_funciones_cxp->uf_obtenervalor("numrecdoc",""));
$ls_codtipdoc=$io_funciones_cxp->uf_obtenervalor("codtipdoc","");
$ldec_total=0;
$li_aux=0;
$ldec_totaldebe=0;
$ldec_totalhaber=0;
for($lx=1;$lx<=4;$lx++)//Pinto el detalle presupuestario en blanco
{
$lo_object2[$lx][1]="";
$lo_object2[$lx][2]="";
$lo_object2[$lx][3]="";
$lo_object2[$lx][4]="";
$lo_object2[$lx][5]="";
}
for($li=1;$li<=$li_total;$li++)//Pinto el detalle presupuestario en blanco
{
$ls_cuenta=$io_funciones_cxp->uf_obtenervalor("txtscgcuenta".$li,"");
$ls_dencuenta=$io_funciones_cxp->uf_obtenervalor("txtdencuenta".$li,"");
$ldec_mondeb=$io_funciones_cxp->uf_obtenervalor("txtmondeb".$li,"");
$ldec_monhab=$io_funciones_cxp->uf_obtenervalor("txtmonhab".$li,"");
if($ls_tiponota=="NC")
{
if($li==1)
{
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd",0,00);
$ds_detscg->insertRow("txthaberncnd","0,00");
$ds_detscg->insertRow("txtdebhab",'');
}
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd",$ldec_monhab);
$ds_detscg->insertRow("txthaberncnd",$ldec_mondeb);
$ds_detscg->insertRow("txtdebhab",'H');
$ldec_monto=str_replace(".","",$ldec_monhab);
$ldec_monto=str_replace(",",".",$ldec_monto);
$ldec_total=$ldec_total+$ldec_monto;
}
else
{
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondeb);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhab);
$ds_detscg->insertRow("txtdebhab",'D');
$ldec_monto=str_replace(".","",$ldec_mondeb);
$ldec_monto=str_replace(",",".",$ldec_monto);
$ldec_total=$ldec_total+$ldec_monto;
}
}
$ldec_total=number_format($ldec_total,2,",",".");
if($ls_tiponota=="ND")
{
$ldec_mondebe="0,00";
$ldec_monhaber=$ldec_total;
$li_aux++;
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondebe);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhaber);
$ds_detscg->insertRow("txtdebhab",'H');
}
else
{
$ldec_mondebe=$ldec_total;
$ldec_monhaber="0,00";
$ds_detscg->updateRow("txtdebencnd",$ldec_mondebe,1);
$ds_detscg->updateRow("txtdebhab",'D',1);
}
$aa_items = array('0'=>'txtscgcuentancnd','1'=>'txtdebhab');
$aa_sum = array('0'=>'txtdebencnd','1'=>'txthaberncnd');
$ds_detscg->group_by_conformato($aa_items,$aa_sum,'txtscgcuentancnd');
$li_totalrows=$ds_detscg->getRowCount("txtscgcuentancnd");
for($la=1;$la<=$li_totalrows;$la++)
{
$ls_scgcuenta=trim($ds_detscg->getValue("txtscgcuentancnd",$la));
$ls_dencuenta=$ds_detscg->getValue("txtdencuentascgncnd",$la);
$ldec_mondebe=$ds_detscg->getValue("txtdebencnd",$la);
$ldec_monhaber=$ds_detscg->getValue("txthaberncnd",$la);
$ldec_auxdebe=str_replace(".","",$ldec_mondebe);
$ldec_auxdebe=str_replace(",",".",$ldec_auxdebe);
$ldec_auxhaber=str_replace(".","",$ldec_monhaber);
$ldec_auxhaber=str_replace(",",".",$ldec_auxhaber);
$ldec_totaldebe=$ldec_totaldebe+$ldec_auxdebe;
$ldec_totalhaber=$ldec_totalhaber+$ldec_auxhaber;
//echo $ls_scgcuenta.' - '.$ls_cuentaprov.' - '.$ldec_mondebe.' - '.$ldec_monhaber.' - '.$ldec_total.' ';
$lo_object[$la][1]="";
$lo_object[$la][2]="";
$lo_object[$la][3]="";
$lo_object[$la][4]="";
$lo_object[$la][5]="";
}
$lo_title[1]="Código Estadístico";
$lo_title[2]="Código Programático ";
$lo_title[3]="Estatus";
$lo_title[4]="Denominación";
$lo_title[5]="Monto";
$io_grid->make_gridScroll(($lx-1),$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
$lo_titlesc[1]="Cuenta";
$lo_titlesc[2]="Denominación";
$lo_titlesc[3]="Monto Debe";
$lo_titlesc[4]="Monto Haber";
$lo_titlesc[5]=" ";
$io_grid->make_gridScroll(($la-1),$lo_titlesc,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
print "";
print "";
print "
";
print "
";
print "
Total Debe
";
print "
";
print "
Total Haber
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
TOTALES
";
print "
";
print "
";
print "
";
print "
";
print "
SUBTOTAL
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
MONTO TOTAL
";
print "
";
print "
";
print "
";
}
function uf_cargar_dtnotacon()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dtnotacon
// Access: public
// Description: Funcion para pintar detalles contables a la nota de debito y credito solo para recepciones documento tipo contable
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 27/05/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/grid_param.php");
require_once("../../shared/class_folder/class_datastore.php");
$io_grid=new grid_param();
global $io_funciones_cxp;
$io_grid=new grid_param();
$ds_detscg=new class_datastore();
$ldec_total=0;
$li_totalactual=$io_funciones_cxp->uf_obtenervalor("totalactual","");
$ls_tiponota=$io_funciones_cxp->uf_obtenervalor("tiponota","");
$ls_cuentaprov=$io_funciones_cxp->uf_obtenervalor("txtctaprov","");
$ls_denctaprov=$io_funciones_cxp->uf_obtenervalor("denctascg","");
$ls_tipproben=$io_funciones_cxp->uf_obtenervalor("tipproben","");
$ls_codproben=trim($io_funciones_cxp->uf_obtenervalor("codproben",""));
$ls_numrecdoc=trim($io_funciones_cxp->uf_obtenervalor("numrecdoc",""));
$ls_codtipdoc=$io_funciones_cxp->uf_obtenervalor("codtipdoc","");
$ldec_totaldebe=0;
$ldec_totalhaber=0;
if($li_totalactual==0)
{
uf_dt_nota();
}
else
{
for($lx=1;$lx<=4;$lx++)//Pinto el detalle presupuestario en blanco
{
$lo_object2[$lx][1]="";
$lo_object2[$lx][2]="";
$lo_object2[$lx][3]="";
$lo_object2[$lx][4]="";
$lo_object2[$lx][5]="";
}
for($li=1;$li<=$li_totalactual;$li++)//Pinto el detalle presupuestario en blanco
{
$ls_cuenta=$io_funciones_cxp->uf_obtenervalor("txtscgcuentancnd".$li,"");
$ls_dencuenta=$io_funciones_cxp->uf_obtenervalor("txtdencuentascgncnd".$li,"");
$ldec_mondeb=$io_funciones_cxp->uf_obtenervalor("txtdebencnd".$li,"");
$ldec_monhab=$io_funciones_cxp->uf_obtenervalor("txthaberncnd".$li,"");
if($ls_tiponota=="NC")
{
if($li==1)
{
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd",0,00);
$ds_detscg->insertRow("txthaberncnd","0,00");
$ds_detscg->insertRow("txtdebhab",'');
}
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd",$ldec_monhab);
$ds_detscg->insertRow("txthaberncnd",$ldec_mondeb);
$ds_detscg->insertRow("txtdebhab",'H');
$ldec_monto=str_replace(".","",$ldec_mondeb);
$ldec_monto=str_replace(",",".",$ldec_monto);
$ldec_total=$ldec_total+$ldec_monto;
}
else
{
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuenta);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_dencuenta);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondeb);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhab);
$ds_detscg->insertRow("txtdebhab",'D');
$ldec_monto=str_replace(".","",$ldec_mondeb);
$ldec_monto=str_replace(",",".",$ldec_monto);
$ldec_total=$ldec_total+$ldec_monto;
}
}
$ldec_total=number_format($ldec_total,2,",",".");
if($ls_tiponota=="ND")
{
$ldec_mondebe="0,00";
$ldec_monhaber=$ldec_total;
$li_aux++;
$ds_detscg->insertRow("txtscgcuentancnd",$ls_cuentaprov);
$ds_detscg->insertRow("txtdencuentascgncnd",$ls_denctaprov);
$ds_detscg->insertRow("txtdebencnd",$ldec_mondebe);
$ds_detscg->insertRow("txthaberncnd",$ldec_monhaber);
$ds_detscg->insertRow("txtdebhab",'H');
}
else
{
$ldec_mondebe=$ldec_total;
$ldec_monhaber="0,00";
$ds_detscg->updateRow("txtdebencnd",$ldec_mondebe,1);
$ds_detscg->updateRow("txtdebhab",'D',1);
}
$aa_items = array('0'=>'txtscgcuentancnd','1'=>'txtdebhab');
$aa_sum = array('0'=>'txtdebencnd','1'=>'txthaberncnd');
$ds_detscg->group_by_conformato($aa_items,$aa_sum,'txtscgcuentancnd');
$li_totalrows=$ds_detscg->getRowCount("txtscgcuentancnd");
for($la=1;$la<=$li_totalrows;$la++)
{
$ls_scgcuenta=$ds_detscg->getValue("txtscgcuentancnd",$la);
$ls_dencuenta=$ds_detscg->getValue("txtdencuentascgncnd",$la);
$ldec_mondebe=$ds_detscg->getValue("txtdebencnd",$la);
$ldec_monhaber=$ds_detscg->getValue("txthaberncnd",$la);
$ldec_auxdebe=str_replace(".","",$ldec_mondebe);
$ldec_auxdebe=str_replace(",",".",$ldec_auxdebe);
$ldec_auxhaber=str_replace(".","",$ldec_monhaber);
$ldec_auxhaber=str_replace(",",".",$ldec_auxhaber);
$ldec_totaldebe=$ldec_totaldebe+$ldec_auxdebe;
$ldec_totalhaber=$ldec_totalhaber+$ldec_auxhaber;
$lo_object[$la][1]="";
$lo_object[$la][2]="";
$lo_object[$la][3]="";
$lo_object[$la][4]="";
$lo_object[$la][5]="";
}
$lo_title[1]="Código Estadístico";
$lo_title[2]="Código Programático ";
$lo_title[3]="Estatus";
$lo_title[4]="Denominación";
$lo_title[5]="Monto";
$io_grid->make_gridScroll(($lx-1),$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
$lo_titlesc[1]="Cuenta";
$lo_titlesc[2]="Denominación";
$lo_titlesc[3]="Monto Debe";
$lo_titlesc[4]="Monto Haber";
$lo_titlesc[5]=" ";
$io_grid->make_gridScroll(($la-1),$lo_titlesc,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
print "";
print "";
print "
";
print "
";
print "
Total Debe
";
print "
";
print "
Total Haber
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
TOTALES
";
print "
";
print "
";
print "
";
print "
";
print "
SUBTOTAL
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
";
print "
MONTO TOTAL
";
print "
";
print "
";
print "
";
}
}
function uf_cargar_dt_nota()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_dt_nota
// Access: public
// Description: Funcion que carga los detalles de la nota
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 29/05/2007 Fecha Última Modificación : 03/06/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("sigesp_cxp_c_ncnd.php");
$io_ncnd = new sigesp_cxp_c_ncnd('../../');
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/grid_param.php");
$io_grid=new grid_param();
$ds_detscg=new class_datastore();
global $io_funciones_cxp;
$ls_modalidad = $_SESSION["la_empresa"]["estmodest"];
$ls_confiva = $_SESSION["la_empresa"]["confiva"];
$ls_estafenc = $_SESSION["la_empresa"]["estafenc"];
$ls_codemp = $io_funciones_cxp->uf_obtenervalor("codemp","");
$ls_numncnd = trim($io_funciones_cxp->uf_obtenervalor("numncnd",""));
$ls_numord = $io_funciones_cxp->uf_obtenervalor("numord","");
$ls_numrecdoc = trim($io_funciones_cxp->uf_obtenervalor("numrecdoc",""));
$ls_codtipdoc = $io_funciones_cxp->uf_obtenervalor("codtipdoc","");
$ls_tipproben = $io_funciones_cxp->uf_obtenervalor("tipproben","");
$ls_codproben = trim($io_funciones_cxp->uf_obtenervalor("codproben",""));
$ld_fecha = $io_funciones_cxp->uf_obtenervalor("fecha","");
$ls_tiponota = $io_funciones_cxp->uf_obtenervalor("tiponota","");
$ldec_totaldebe=0;
$ldec_totalhaber=0;
$ldec_totalcargo=$ld_montotcre=0;
if (isset($_SESSION["la_crenotas"]))
{
unset($_SESSION["la_crenotas"]);
}
$ld_montotcre = $io_ncnd->uf_load_creditos_nota($ls_codemp,$ls_numncnd,$ls_numrecdoc,$ls_codtipdoc,$ls_numord,$ls_tiponota,$ls_tipproben,$ls_codproben);
if ($ls_confiva=='C')
{
$ldec_totalcargo = $ld_montotcre;
}
if ($ls_tipproben=='P')
{
$ls_aux=" AND cxp.cod_pro='".$ls_codproben."' ";
}
elseif($ls_tipo=='B')
{
$ls_aux=" AND cxp.ced_bene='".$ls_codproben."' ";
}
else
{
$ls_aux=" AND cxp.cod_pro='----------' ";
}
if(($ls_tiponota=="ND")||($ls_estafenc==0))
{
if ($_SESSION["ls_gestor"]=="MYSQLT")
{
$ls_codestpro=" CONCAT(spg.codestpro1,spg.codestpro2,spg.codestpro3,spg.codestpro4,spg.codestpro5)";
}
else
{
$ls_codestpro=" (spg.codestpro1||spg.codestpro2||spg.codestpro3||spg.codestpro4||spg.codestpro5)";
}
$ls_sql=" SELECT cxp.*,spg.denominacion as dencta,spg.sc_cuenta,scg.denominacion as den_scg,DOC.estcon,DOC.estpre
FROM cxp_dc_spg cxp,spg_cuentas spg,scg_cuentas scg,cxp_documento DOC
WHERE cxp.codemp = '".$ls_codemp."'
AND cxp.numdc = '".$ls_numncnd."'
AND trim(cxp.numrecdoc) = '".trim($ls_numrecdoc)."'
AND cxp.numsol = '".$ls_numord."'
AND cxp.codtipdoc='".$ls_codtipdoc."' $ls_aux
AND cxp.codope='".$ls_tiponota."'
AND cxp.spg_cuenta=spg.spg_cuenta
AND cxp.codestpro=".$ls_codestpro."
AND cxp.codemp=scg.codemp
AND spg.sc_cuenta=scg.sc_cuenta
AND cxp.codtipdoc=DOC.codtipdoc";
}
else
{
$ls_sql=" SELECT cxp.*,cxp.spi_cuenta AS spg_cuenta,spi.denominacion as dencta,spi.sc_cuenta,scg.denominacion as den_scg,DOC.estcon,DOC.estpre,'' as numdoccom, '' as procede_doc
FROM cxp_dc_spi cxp,spi_cuentas spi,scg_cuentas scg,cxp_documento DOC
WHERE cxp.codemp = '".$ls_codemp."'
AND cxp.numdc = '".$ls_numncnd."'
AND trim(cxp.numrecdoc) = '".trim($ls_numrecdoc)."'
AND cxp.numsol = '".$ls_numord."'
AND cxp.codtipdoc='".$ls_codtipdoc."' $ls_aux
AND cxp.codope='".$ls_tiponota."'
AND cxp.spi_cuenta=spi.spi_cuenta
AND cxp.codemp=scg.codemp
AND spi.sc_cuenta=scg.sc_cuenta
AND cxp.codtipdoc=DOC.codtipdoc";
}
$rs_data=$io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido = false;
}
else
{
$li=0;
$ldec_total=0;
$ldec_totalsincargo=0;
while($row=$io_sql->fetch_row($rs_data))
{
$li++;
$ls_cuenta = trim($row["spg_cuenta"]);
$ls_codestpro = $row["codestpro"];
$ls_codestproaux = $ls_codestpro;
$io_funciones_cxp->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_codestpro=substr($ls_codestpro,0,29);
break;
case "2": // Modalidad por Programa
$ls_codestpro1=substr(substr($ls_codestpro,0,20),-2);
$ls_codestpro2=substr(substr($ls_codestpro,20,6),-2);
$ls_codestpro3=substr(substr($ls_codestpro,26,3),-2);
$ls_codestpro4=substr($ls_codestpro,29,2);
$ls_codestpro5=substr($ls_codestpro,31,2);
$ls_codestpro=$ls_codestpro1."-".$ls_codestpro2."-".$ls_codestpro3."-".$ls_codestpro4."-".$ls_codestpro5;
break;
}
$ls_dencuenta = utf8_encode($row["dencta"]);
$ldec_monto = $row["monto"];
$ldec_total = $ldec_total+abs($ldec_monto);
/* if ($ls_tiponota=='NC')
{
$ldec_monto=$ldec_monto*-1;
}
*/ $ldec_monto = number_format($ldec_monto,2,",",".");
$ls_scgcuenta = trim($row["sc_cuenta"]);
$ls_denctascg = $row["den_scg"];
$ls_procede = $row["procede_doc"];
$ls_numdoccom = $row["numdoccom"];
if ($ls_confiva=='P')
{
if (uf_check_cargo($ls_numrecdoc,$ls_codtipdoc,$ls_codestproaux,$ls_cuenta,$ls_tipproben,$ls_codproben))
{
$ls_cargo='C';
$ldec_totalcargo+=abs($row["monto"]);
}
else
{
$ls_cargo='';
$ldec_totalsincargo+=abs($row["monto"]);
}
}
elseif($ls_confiva=='C')
{
$ls_cargo='';
$ldec_totalsincargo+=abs($row["monto"]);
}
$li_estcon=$row["estcon"];
$li_estpre=$row["estpre"];
$ls_estcla=$row["estcla"];
$ls_estatus="";
switch($ls_estcla)
{
case "A":
$ls_estatus=utf8_encode("Acción");
break;
case "P":
$ls_estatus=utf8_encode("Proyecto");
break;
}
$lo_object2[$li][1]="";
$lo_object2[$li][2]="";
$lo_object2[$li][3]="";
$lo_object2[$li][4]="";
$lo_object2[$li][5]="";
if (($li_estcon==1)&&(($li_estpre==3)||($li_estpre==4)))//Chequeo si es contable para pintar el presupuesto igual colocando la variable li en 0 y asignando a la varialbe de eliminacion cntable el valor de la fila a eliminar.
{
}
else
{
$lo_object2[$li][6]="";
}
}
$io_sql->free_result($rs_data);
}
if ($ls_confiva=='C')
{
$ldec_total += $ldec_totalcargo;
}
$ldec_total=number_format($ldec_total,2,",",".");
$ldec_totalsincargo=number_format($ldec_totalsincargo,2,",",".");
$ls_sql=" SELECT cxp.*,scg.denominacion as dencta,DOC.estcon,DOC.estpre
FROM cxp_dc_scg cxp,scg_cuentas scg,cxp_documento DOC
WHERE cxp.codemp = '".$ls_codemp."'
AND trim(cxp.numdc) = '".trim($ls_numncnd)."'
AND trim(cxp.numrecdoc) = '".trim($ls_numrecdoc)."'
AND cxp.numsol='".$ls_numord."'
AND cxp.codtipdoc='".$ls_codtipdoc."' $ls_aux
AND cxp.codope='".$ls_tiponota."'
AND cxp.sc_cuenta=scg.sc_cuenta
AND cxp.codtipdoc=DOC.codtipdoc
ORDER BY cxp.estgenasi";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido = false;
}
else
{
$la=0;
while($row=$io_sql->fetch_row($rs_data))
{
$la++;
$ls_scgcuenta = trim($row["sc_cuenta"]);
$ls_dencuenta = utf8_encode($row["dencta"]);
$ls_debhab = $row["debhab"];
$ldec_monto = number_format($row["monto"],2,",",".");
if ($ls_debhab=='D')
{
$ldec_mondebe = $ldec_monto;
$ldec_totaldebe = $ldec_totaldebe+$row["monto"];
$ldec_monhaber = "0,00";
}
else
{
$ldec_monhaber = $ldec_monto;
$ldec_totalhaber = $ldec_totalhaber+$row["monto"];
$ldec_mondebe = "0,00";
}
$li_estcon=$row["estcon"];
$li_estpre=$row["estpre"];
$lo_object[$la][1]="";
$lo_object[$la][2]="";
$lo_object[$la][3]="";
$lo_object[$la][4]="";
if (($li_estcon==1)&&(($li_estpre==3)||($li_estpre==4)))//Chequeo si es contable para pintar el presupuesto igual colocando la variable li en 0 y asignando a la varialbe de eliminacion cntable el valor de la fila a eliminar.
{
$lo_object2[$li][5]="";
}
}
}
$lo_title[1]="Código Estadístico";
$lo_title[2]="Código Programático ";
$lo_title[3]="Estatus";
$lo_title[4]="Denominación";
$lo_title[5]="Monto";
if (($li_estcon==1)&&(($li_estpre==3)||($li_estpre==4)))//Chequeo si es contable para pintar el presupuesto igual colocando la variable li en 0 y asignando a la varialbe de eliminacion cntable el valor de la fila a eliminar.
{
}
else
{
$lo_title[6]=" ";
}
$io_grid->make_gridScroll($li,$lo_title,$lo_object2,758,"Detalle Presupuestario de la Nota","grid",120);
$lo_titlesc[1]="Cuenta";
$lo_titlesc[2]="Denominación";
$lo_titlesc[3]="Monto Debe";
$lo_titlesc[4]="Monto Haber";
if (($li_estcon==1)&&(($li_estpre==3)||($li_estpre==4)))//Chequeo si es contable para pintar el presupuesto igual colocando la variable li en 0 y asignando a la varialbe de eliminacion cntable el valor de la fila a eliminar.
{
$lo_titlesc[5]=" ";
}
$io_grid->make_gridScroll($la,$lo_titlesc,$lo_object,758,"Detalle Contable de la Nota","gridscg",120);
echo "";
echo "";
echo "
";
echo "
";
echo "
Total Debe
";
echo "
";
echo "
Total Haber
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
TOTALES
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
SUBTOTAL
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
";
echo "
MONTO TOTAL
";
echo "
";
echo "
";
echo "
";
}
function uf_check_cargo($ls_numrecdoc,$ls_codtipdoc,$ls_codestpro,$ls_cuenta,$ls_tipproben,$ls_codproben)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_check_cargo
// Access: public
// Description: Funcion que verifica si el detalle presupuestario de la nota corresponde a un cargo
// Creado Por: Ing. Nelson Barraez
// Fecha Creacin: 02/06/2007 Fecha ltima Modificacin : 03/06/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
if($ls_tipproben=='P')
{
$ls_aux=" AND cod_pro='".$ls_codproben."' ";
}
elseif($ls_tipo=='B')
{
$ls_aux=" AND trim(ced_bene) = '".trim($ls_codproben)."' ";
}
else
{
$ls_aux=" AND cod_pro='----------' ";
}
if($_SESSION["ls_gestor"]=="MYSQLT")
{
$ls_aux_codestpro=" CONCAT(codestpro1,codestpro2,codestpro3,codestpro4,codestpro5)";
}
else
{
$ls_aux_codestpro=" (codestpro1||codestpro2||codestpro3||codestpro4||codestpro5)";
}
$ls_sql="SELECT numrecdoc
FROM cxp_rd_cargos
WHERE trim(numrecdoc) = '".trim($ls_numrecdoc)."'
AND codtipdoc='".$ls_codtipdoc."' $ls_aux
AND spg_cuenta='".$ls_cuenta."'
AND ".$ls_aux_codestpro."='".$ls_codestpro."'";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("Error en metodo uf_check_cargo, CLASS->sigesp_cxp_c_ncnd_ajax ".$io_funciones->uf_convertirmsg($io_sql->message));
return false;
}
else
{
if($row=$io_sql->fetch_row($rs_data))
{
return true;
}
else
{
return false;
}
}
}//fin uf_check_cargo
?>
