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