$li_totsubtot = $li_totsubtot + $li_subtotdoc; $li_tottot = $li_tottot + $li_montotdoc; $li_totcar = $li_totcar + $li_moncardoc; $li_totded = $li_totded + $li_mondeddoc; $ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($ld_fecemidoc); $li_mondeddoc = number_format($li_mondeddoc, 2, ",", "."); $li_moncardoc = number_format($li_moncardoc, 2, ",", "."); $li_montotdoc = number_format($li_montotdoc, 2, ",", "."); $li_subtotdoc = number_format($li_subtotdoc, 2, ",", "."); $la_data[$li_s] = array('numrecdoc' => $ls_numrecdoc, 'fecemisol' => $ld_fecemidoc, 'mondeddoc' => $li_mondeddoc, 'moncardoc' => $li_moncardoc, 'montotdoc' => $li_montotdoc, 'subtotdoc' => $li_subtotdoc); } $li_totsubtot = number_format($li_totsubtot, 2, ",", "."); $li_tottot = number_format($li_tottot, 2, ",", "."); $li_totcar = number_format($li_totcar, 2, ",", "."); $li_totded = number_format($li_totded, 2, ",", "."); uf_print_detalle_recepcion($la_data, $li_totsubtot, $li_tottot, $li_totcar, $li_totded, &$io_pdf); unset($la_data); ////////////////////////// GRID RECEPCIONES DE DOCUMENTOS ////////////////////////////////////// ////////////////////////// GRID DETALLE PRESUPUESTARIO ////////////////////////////////////// $lb_valido = $io_report->uf_select_detalle_spg($ls_numsol); // Cargar el DS con los datos del reporte if ($lb_valido) { $li_totrowspg = $io_report->ds_detalle_spg->getRowCount("codestpro"); $la_data = ""; $li_totpre = 0; for ($li_s = 1; $li_s <= $li_totrowspg; $li_s++) { $ls_codestpro = $io_report->ds_detalle_spg->data["codestpro"][$li_s]; $ls_spgcuenta = $io_report->ds_detalle_spg->data["spg_cuenta"][$li_s]; $ls_denominacion = $io_report->ds_detalle_spg->data["denominacion"][$li_s]; $li_monto = $io_report->ds_detalle_spg->data["monto"][$li_s]; $li_totpre = $li_totpre + $li_monto;
$ld_fecregdoc = $io_funciones->uf_convertirfecmostrar($ld_fecregdoc); $li_basimp = $li_montotdoc + $li_mondeddoc - $li_moncardoc; $li_totaldoc = $li_totaldoc + $li_montotdoc; $li_totalcar = $li_totalcar + $li_moncardoc; $li_totalded = $li_totalded + $li_mondeddoc; $li_totbasimp = $li_totbasimp + $li_basimp; $li_montotdoc = number_format($li_montotdoc, 2, ',', '.'); $li_mondeddoc = number_format($li_mondeddoc, 2, ',', '.'); $li_moncardoc = number_format($li_moncardoc, 2, ',', '.'); $li_basimp = number_format($li_basimp, 2, ',', '.'); $la_data[$li_i] = array('numrecdoc' => $ls_numrecdoc, 'nombre' => $ls_nombre, 'fecemidoc' => $ld_fecemidoc, 'fecregdoc' => $ld_fecregdoc, 'procede_doc' => $ls_procede, 'numdoccom' => $ls_numdoccom, 'basimp' => $li_basimp, 'mondeddoc' => $li_mondeddoc, 'moncardoc' => $li_moncardoc, 'montotdoc' => $li_montotdoc); } $li_totbasimp = number_format($li_totbasimp, 2, ',', '.'); $li_totaldoc = number_format($li_totaldoc, 2, ',', '.'); $li_totalcar = number_format($li_totalcar, 2, ',', '.'); $li_totalded = number_format($li_totalded, 2, ',', '.'); uf_print_encabezado_pagina($ls_titulo, $ls_tipproben, $ls_codprobendes, $ls_codprobenhas, $ls_nomprobendes, $ls_nomprobenhas, &$io_pdf); uf_print_detalle_recepcion($la_data, $li_totaldoc, $li_totalcar, $li_totalded, $li_totbasimp, &$io_pdf); if ($lb_valido) { $io_pdf->ezStopPageNumbers(1, 1); // Detenemos la impresión de los números de página $io_pdf->ezStream(); // Mostramos el reporte } else { print "<script language=JavaScript>"; print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');"; print " close();"; print "</script>"; } } }
for ($li_s = 1; $li_s <= $li_totrowdet; $li_s++) { $ls_numrecdoc = $io_report->ds_detalle_rec->data["numrecdoc"][$li_s]; $ld_fecemidoc = $io_report->ds_detalle_rec->data["fecemidoc"][$li_s]; $ls_numdoccomspg = $io_report->ds_detalle_rec->data["numdoccomspg"][$li_s]; $li_mondeddoc = $io_report->ds_detalle_rec->data["mondeddoc"][$li_s]; $li_moncardoc = $io_report->ds_detalle_rec->data["moncardoc"][$li_s]; $li_montotdoc = $io_report->ds_detalle_rec->data["montotdoc"][$li_s]; $li_subtotdoc = $li_montotdoc - $li_moncardoc + $li_mondeddoc; $ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($ld_fecemidoc); $li_mondeddoc = number_format($li_mondeddoc, 2, ",", "."); $li_moncardoc = number_format($li_moncardoc, 2, ",", "."); $li_montotdoc = number_format($li_montotdoc, 2, ",", "."); $li_subtotdoc = number_format($li_subtotdoc, 2, ",", "."); $la_data[$li_s] = array('numrecdoc' => $ls_numrecdoc, 'fecemisol' => $ld_fecemidoc, 'mondeddoc' => $li_mondeddoc, 'moncardoc' => $li_moncardoc, 'montotdoc' => $li_montotdoc, 'subtotdoc' => $li_subtotdoc); } uf_print_detalle_recepcion($la_data, &$io_pdf); unset($la_data); ////////////////////////// GRID RECEPCIONES DE DOCUMENTOS ////////////////////////////////////// ////////////////////////// GRID DETALLE PRESUPUESTARIO ////////////////////////////////////// $lb_valido = $io_report->uf_select_detalle_spg($ls_numsol); // Cargar el DS con los datos del reporte if ($lb_valido) { $li_totrowspg = $io_report->ds_detalle_spg->getRowCount("codestpro"); $la_data = ""; $li_totpre = 0; for ($li_s = 1; $li_s <= $li_totrowspg; $li_s++) { $ls_codestpro = $io_report->ds_detalle_spg->data["codestpro"][$li_s]; $ls_spgcuenta = $io_report->ds_detalle_spg->data["spg_cuenta"][$li_s]; $ls_denominacion = $io_report->ds_detalle_spg->data["denominacion"][$li_s]; $li_monto = $io_report->ds_detalle_spg->data["monto"][$li_s]; $li_totpre = $li_totpre + $li_monto;
$li_montotfac = $li_montotdoc + $li_mondeddoc; $ls_numsol = $io_report->ds_detrecdoc->data["numsol"][$li_j]; $ld_fecregdoc = $io_funciones->uf_convertirfecmostrar($ld_fecregdoc); $ld_fecemidoc = $io_funciones->uf_convertirfecmostrar($ld_fecemidoc); $li_totalfacpro = $li_totalfacpro + $li_montotfac; $li_totaldedpro = $li_totaldedpro + $li_mondeddoc; $li_totaldocpro = $li_totaldocpro + $li_montotdoc; $li_montotdoc = number_format($li_montotdoc, 2, ',', '.'); $li_montotfac = number_format($li_montotfac, 2, ',', '.'); $li_mondeddoc = number_format($li_mondeddoc, 2, ',', '.'); $la_data[$li_j] = array('numrecdoc' => $ls_numrecdoc, 'dencondoc' => $ls_dencondoc, 'fecemidoc' => $ld_fecemidoc, 'fecregdoc' => $ld_fecregdoc, 'montotfac' => $li_montotfac, 'mondeddoc' => $li_mondeddoc, 'montotdoc' => $li_montotdoc, 'numsol' => $ls_numsol); } $li_totalfacpro = number_format($li_totalfacpro, 2, ',', '.'); $li_totaldedpro = number_format($li_totaldedpro, 2, ',', '.'); $li_totaldocpro = number_format($li_totaldocpro, 2, ',', '.'); uf_print_detalle_recepcion($la_data, $li_totrowfac, $li_totalfacpro, $li_totaldedpro, $li_totaldocpro, &$io_pdf); } if ($li_i < $li_totrow) { $io_pdf->StopObject($io_encabezado); $io_pdf->ezNewPage(); // Insertar una nueva página } /* if ($io_pdf->ezPageCount==$li_numpag) {// Hacemos el commit de los registros que se desean imprimir $io_pdf->transaction('commit'); } else {// Hacemos un rollback de los registros, agregamos una nueva página y volvemos a imprimir $io_pdf->transaction('rewind'); $io_pdf->ezNewPage(); // Insertar una nueva página uf_print_cabecera($ls_codigo,$ls_nombre,$ls_tipproben,&$io_pdf);