$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
//$ldec_total = $ldec_monto-$ldec_monret;
$ldec_total = $ldec_monto;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta');
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_items = array('0'=>'estpro','1'=>'spg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_spg->group_by($la_items,$la_suma,'spg_cuenta');
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a imprimirlos.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if ($li_totrow_det>=$li_totrow_spg)
{
for ($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
function uf_print_cierrecuentas_cargo($ai_total,$as_cargarcargos,$as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cierrecuentas_cargo
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// as_cargarcargos // Si cargamos los cargos ó solo pintamos
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que imprime el grid de las cuentas presupuestarias de los cargos
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Modificado Por: Ing. Yozelin Barragan
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 12/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep,$la_cuentacargo,$li_estmodest,$li_loncodestpro1,$li_loncodestpro2,$li_loncodestpro3,
$li_loncodestpro4,$li_loncodestpro5;
require_once("../../shared/class_folder/class_datastore.php");
$io_dscuentas=new class_datastore();
// Titulos el Grid
$lo_title[1]="Crédito";
$lo_title[2]="Estructura Presupuestaria";
$lo_title[3]="Cuenta";
$lo_title[4]="Monto";
//$lo_title[5]="";
$ls_codpro="";
// Recorrido del Grid de Cuentas Presupuestarias del Cargo
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_cargo= trim($io_funciones_sep->uf_obtenervalor("txtcodcar".$li_fila,""));
$li_moncue= $io_funciones_sep->uf_obtenervalor("txtmoncar".$li_fila,"");
$ls_cuenta= trim($io_funciones_sep->uf_obtenervalor("txtcodspgcre".$li_fila,""));
$ls_codpro= $io_funciones_sep->uf_obtenervalor("txtcodgascre".$li_fila,"");
$ls_estcla= $io_funciones_sep->uf_obtenervalor("txtstatuscre".$li_fila,"");
$li_moncue = str_replace(".","",$li_moncue);
$li_moncue = str_replace(",",".",$li_moncue);
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_codpro);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estcla",$ls_estcla);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
if($as_cargarcargos=="1")
{ // si los cargos se deben cargar recorremos el arreglo de cuentas
// que se lleno con los cargos
$li_cuenta=count($la_cuentacargo)-1;
for($li_fila=1;($li_fila<=$li_cuenta);$li_fila++)
{
$ls_cargo = trim($la_cuentacargo[$li_fila]["cargo"]);
$ls_cuenta = trim($la_cuentacargo[$li_fila]["cuenta"]);
$ls_programatica = trim($la_cuentacargo[$li_fila]["programatica"]);
$ls_estcla = trim($la_cuentacargo[$li_fila]["estcla"]);
$li_moncue="0.00";
$ls_codestpro1 = substr($ls_programatica,0,25);
$ls_codestpro2 = substr($ls_programatica,25,25);
$ls_codestpro3 = substr($ls_programatica,50,25);
$ls_codestpro4 = substr($ls_programatica,75,25);
$ls_codestpro5 = substr($ls_programatica,100,25);
if($ls_cuenta!="")
{
$valores["codcargo"]=$ls_cargo;
$valores["cuentacar"]=$ls_cuenta;
$valores["estcla"]=$ls_estcla;
$valores["codestpro1"]=$ls_codestpro1;
$valores["codestpro2"]=$ls_codestpro2;
$valores["codestpro3"]=$ls_codestpro3;
$valores["codestpro4"]=$ls_codestpro4;
$valores["codestpro5"]=$ls_codestpro5;
$ll_row_found=$io_dscuentas->findValues($valores,"codcargo") ;
if($ll_row_found>0)
{
$ldec_monto=0;
$ldec_monto=$io_dscuentas->getValue("moncuecar",$ll_row_found);
$ldec_monto=$ldec_monto + $li_moncue;
$io_dscuentas->updateRow("moncuecar",$ldec_monto,$ll_row_found);
}
else
{
$io_dscuentas->insertRow("codcargo",$ls_cargo);
$io_dscuentas->insertRow("codprocar",$ls_programatica);
$io_dscuentas->insertRow("cuentacar",$ls_cuenta);
$io_dscuentas->insertRow("moncuecar",$li_moncue);
$io_dscuentas->insertRow("estcla",$ls_estcla);
$io_dscuentas->insertRow("codestpro1",$ls_codestpro1);
$io_dscuentas->insertRow("codestpro2",$ls_codestpro2);
$io_dscuentas->insertRow("codestpro3",$ls_codestpro3);
$io_dscuentas->insertRow("codestpro4",$ls_codestpro4);
$io_dscuentas->insertRow("codestpro5",$ls_codestpro5);
}
}
}
}
// Agrupamos las cuentas por programatica y cuenta
//$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codprocar','2'=>'cuentacar','3'=>'estcla'),array('0'=>'moncuecar'),'moncuecar');
$io_dscuentas->group_by(array('0'=>'codcargo','1'=>'codestpro1','2'=>'codestpro2','3'=>'codestpro3','4'=>'codestpro4','5'=>'codestpro5',
'6'=>'estcla','7'=>'cuentacar'),array('0'=>'moncuecar'),'moncuecar');
$li_total=$io_dscuentas->getRowCount('codcargo');
//print_r($io_dscuentas->data);
// Recorremos el data stored de cuentas que se lleno y se agrupo anteriormente
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_cargo = $io_dscuentas->getValue('codcargo',$li_fila);
$ls_codpro = $io_dscuentas->getValue('codprocar',$li_fila);
$ls_cuenta = $io_dscuentas->getValue('cuentacar',$li_fila);
$li_moncue = number_format($io_dscuentas->getValue('moncuecar',$li_fila),2,",",".");
$ls_codestpro = "";
if (!empty($ls_codpro))
{
$ls_codestpro1 = substr($ls_codpro,0,25);
$ls_codestpro2 = substr($ls_codpro,25,25);
$ls_codestpro3 = substr($ls_codpro,50,25);
$ls_codestpro4 = substr($ls_codpro,75,25);
$ls_codestpro5 = substr($ls_codpro,100,25);
$ls_codestpro1 = substr($ls_codestpro1,-$li_loncodestpro1);
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3;
}
if ($li_estmodest==2)
{
if (!empty($ls_codpro))
{
$ls_codestpro2 = substr($ls_codestpro2,-$li_loncodestpro2);
$ls_codestpro3 = substr($ls_codestpro3,-$li_loncodestpro3);
$ls_codestpro = $ls_codestpro.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
}
$ls_estcla = $io_dscuentas->getValue('estcla',$li_fila);
if($ls_cuenta!="")
{
$lo_object[$li_fila][1]="<input name=txtcodcargo".$li_fila." type=text id=txtcodcargo".$li_fila." class=sin-borde style=text-align:center size=12 value='".$ls_cargo."' readonly>";
$lo_object[$li_fila][2]="<input name=txtprogramaticacar".$li_fila." type=text id=txtprogramaticacar".$li_fila." class=sin-borde style=text-align:center size=75 value='".$ls_codestpro."' readonly>";
$lo_object[$li_fila][3]="<input name=txtcuentacar".$li_fila." type=text id=txtcuentacar".$li_fila." class=sin-borde style=text-align:center size=25 value='".$ls_cuenta."' readonly>";
$lo_object[$li_fila][4]="<input name=txtmoncuecar".$li_fila." type=text id=txtmoncuecar".$li_fila." class=sin-borde style=text-align:right size=25 onKeyPress=return(ue_formatonumero(this,'.',',',event)); value='".$li_moncue."' readonly>".
"<input name=txtcodprocar".$li_fila." type=hidden id=txtcodprocar".$li_fila." value='".$ls_codpro."'>".
"<input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value='".$ls_estcla."'>";
// $lo_object[$li_fila][5]="<a href=javascript:ue_delete_cuenta_cargo('".$li_fila."','".$as_tipo."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
}
}
$ai_total=$li_total+1;
$lo_object[$ai_total][1]="<input name=txtcodcargo".$ai_total." type=text id=txtcodcargo".$ai_total." class=sin-borde style=text-align:center size=12 value='' readonly>";
$lo_object[$ai_total][2]="<input name=txtprogramaticacar".$ai_total." type=text id=txtprogramaticacar".$ai_total." class=sin-borde style=text-align:center size=75 value='' readonly>";
$lo_object[$ai_total][3]="<input name=txtcuentacar".$ai_total." type=text id=txtcuentacar".$ai_total." class=sin-borde style=text-align:center size=25 value='' readonly>";
$lo_object[$ai_total][4]="<input name=txtmoncuecar".$ai_total." type=text id=txtmoncuecar".$ai_total." class=sin-borde style=text-align:right size=25 value='' readonly>";
$lo_object[$ai_total][5]="<input name=txtcodprocar".$ai_total." type=hidden id=txtcodprocar".$ai_total." value=''><input name=estclacar".$li_fila." type=hidden id=estclacar".$li_fila." value=''>";
print "<p> </p>";
print " <table width='840' border='0' align='center' cellpadding='0' cellspacing='0'";
print " <tr>";
//print " <td align='left'><a href='javascript:ue_catalogo_cuentas_cargos();'><img src='../shared/imagebank/tools/nuevo.gif' width='20' height='20' border='0' title='Agregar Cuenta'>Agregar Cuenta Otros Créditos</a> </td>";
print " </tr>";
print " </table>";
$io_grid->makegrid($ai_total,$lo_title,$lo_object,840,"Cuentas Otros Créditos","gridcuentascargos");
unset($io_dscuentas);
}// end function uf_print_cuentas_cargo
}
else
{
$io_pdf->ezStream();
}
unset($io_pdf);
}
else // Imprimimos el reporte
{
uf_print_encabezado_pagina($ls_titulo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(980,40,10,'','',1); // Insertar el número de página
$lb_valido=$io_report->uf_spi_reporte_mayor_analitico($ldt_fecdes,$ldt_fechas,$ls_cuentades,
$ls_cuentahas,$ls_orden);
$ds_reporteaux->data=$io_report->dts_reporte->data;
//$io_report->dts_reporte->group_noorder("spi_cuenta");
$ds_reporteaux->group_by(array('0'=>'spi_cuenta'),array('0'=>'previsto'),'previsto');
$li_totrow_detaux=$ds_reporteaux->getRowCount("spi_cuenta");
$li_totrow_det=$io_report->dts_reporte->getRowCount("spi_cuenta");
for($li_z=1;$li_z<=$li_totrow_detaux;$li_z++)
{
$ls_cuentaimprimir=$ds_reporteaux->data["spi_cuenta"][$li_z];
$li_h=0;
$ld_sub_total_previsto=0;
$ld_sub_total_aumento=0;
$ld_sub_total_disminucion=0;
$ld_sub_total_devengado=0;
$ld_sub_total_cobrado=0;
$ld_sub_total_cobrado_anticipado=0;
$ld_sub_total_monto_actualizado=0;
$ld_sub_total_por_cobrar=0;
unset($la_data);
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
$ldec_total = $ldec_monto-$ldec_monret;
$ls_monto = $numalet->uf_convertir_letra($ldec_total,'','');
$io_encabezado = $io_pdf->openObject();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf,$y_pos); // Imprimimos el encabezado de la página
uf_print_pie_pagina($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_nomproben,$ld_fecmov,$ls_conmov,$ls_chevau,$io_pdf); // Imprimimos la cabecera del registro
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_campos=array("scg_cuenta");
$la_monto=array("monto");
$ds_dt_scg->group_by($la_campos,$la_monto,"scg_cuenta");
$la_campos=array("spg_cuenta","estpro");
$ds_dt_spg->group_by($la_campos,$la_monto,"spg_cuenta");
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
$la_contable = array();
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Hago un ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a pintarlos
if($li_totrow_det>=$li_totrow_spg)
{
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = $ds_dt_scg->data["scg_cuenta"][$li_s];
$ls_denctascg = substr($ds_dt_scg->data["denominacion"][$li_s],0,80);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
$ldec_total = $ldec_monto-$ldec_monret;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf,$y_pos); // Imprimimos el encabezado de la página
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$ds_dt_scg->group_by(array('0'=>'scg_cuenta','1'=>'debhab'),array('0'=>'monto'),"scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_monto = array("monto");
$la_campos = array("spg_cuenta","estpro");
$ds_dt_spg->group_by($la_campos,$la_monto,"spg_cuenta");
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Hago un ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a pintarlos
if ($li_totrow_det>=$li_totrow_spg)
{
for ($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_scg_cuenta = trim($ds_dt_scg->data["scg_cuenta"][$li_s]);
$ls_debhab = $ds_dt_scg->data["debhab"][$li_s];
$ldec_monto = $ds_dt_scg->data["monto"][$li_s];
