uf_print_detalle_contable($la_data,$io_pdf); unset($la_data); } //Obtengo el detalle presupuestario del movimiento. unset($ds_dt_spg->data); $ds_dt_spg->data=$class_report->uf_cargar_dt_spg_op($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov); $li_totspg=$ds_dt_spg->getRowCount("spg_cuenta"); if($li_totspg>0) { for($li_b=1;$li_b<=$li_totspg;$li_b++) { $la_data[$li_b]=array('programatica'=>$ds_dt_spg->getValue("estpro",$li_b), 'cuenta'=>$ds_dt_spg->getValue("spg_cuenta",$li_b), 'monto'=>number_format($ds_dt_spg->getValue("monto",$li_b),2,",",".")); } uf_print_detalle_presupuestario($la_data,$io_pdf); unset($la_data); } //Obtengo el detalle presupuestario del movimiento. $ds_dt_spi->data=$class_report->uf_cargar_dt_spi($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope,$ls_estmov); $li_totspi=$ds_dt_spi->getRowCount("spi_cuenta"); if($li_totspi>0) { for($li_b=1;$li_b<=$li_totspi;$li_b++) { $la_data[$li_b]=array('cuenta'=>$ds_dt_spi->getValue("spi_cuenta",$li_b), 'monto'=>number_format($ds_dt_spi->getValue("monto",$li_b),2,",",".")); } uf_print_detalle_ingreso($la_data,$io_pdf); }
uf_print_detalle_asignaciones($la_data,$li_total,$ls_totalletras,$io_pdf); // Imprimimos el detalle unset($la_data); $io_report->ds_detalle->reset_ds(); $lb_existe=$io_report->uf_select_solicitudpago_spg($ls_codemp,$ls_codsolvia); if($lb_existe) { $li_totrow_detpres=$io_report->ds_detpresup->getRowCount("spg_cuenta"); $ls_ano=substr($_SESSION["la_empresa"]["periodo"],0,4); for($li_j=1;$li_j<=$li_totrow_detpres;$li_j++) { $ls_spgcuenta=$io_report->ds_detpresup->data["spg_cuenta"][$li_j]; $ls_denestpro1=$io_report->ds_detpresup->data["denestpro1"][$li_j]; $ls_denestpro2=$io_report->ds_detpresup->data["denestpro2"][$li_j]; $la_data[$li_j]=array('ano'=>$ls_ano,'proyecto'=>$ls_denestpro1,'especifica'=>$ls_denestpro2,'cuenta'=>$ls_spgcuenta); } uf_print_detalle_presupuestario($la_data,$io_pdf); // Imprimimos el detalle unset($la_data); } } uf_print_firmas($io_pdf); $io_pdf->stopObject($io_encabezado); // Detener el objeto cabecera if($li_k<$li_totrow) { $io_pdf->ezNewPage(); // Insertar una nueva página } } if($li_z<$li_totrowsol) { $io_pdf->ezNewPage(); // Insertar una nueva página } }
$io_pdf->transaction('commit'); } else {// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir $io_pdf->transaction('rewind'); // if($li_numpag!=1) // { $io_pdf->ezNewPage(); // Insertar una nueva página // } uf_print_cabecera($ls_codsolvia,$ls_codmis,$ls_denmis,$ls_codrut,$ls_denrut,$ls_coduniadm,$ls_denunidam, $ld_fecsolvia,$ld_fecsalvia,$ld_fecregvia,$li_numdia,$ls_obssolvia,&$io_pdf); // Imprimimos la cabecera del registro uf_print_detalle_asignaciones($la_data_asig,$io_pdf); // Imprimimos el detalle uf_print_detalle_personal($la_data_pers,$io_pdf); // Imprimimos el detalle if($lb_existe) { uf_print_detalle_presupuestario($la_data_pres,$io_pdf,$ls_titest); // Imprimimos el detalle uf_print_detalle_contable($la_data_cont,$io_pdf); // Imprimimos el detalle } uf_print_detalle_totales($io_pdf); uf_print_detalle_totales($io_pdf); } } } unset($la_data_asig); unset($la_data_pers); unset($la_data_pres); unset($la_data_cont); } if($lb_valido) { $io_pdf->ezStopPageNumbers(1,1);