$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];