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