$ld_subtotal_aumento=$ld_sub_total_aumento;
$ld_subtotal_disminucion=$ld_sub_total_disminucion;
$ld_subtotal_devengado=$ld_sub_total_devengado;
$ld_subtotal_cobrado=$ld_sub_total_cobrado;
$ld_subtotal_cobrado_anticipado=$ld_sub_total_cobrado_anticipado;
$ld_subtotal_monto_actualizado=$ld_sub_total_monto_actualizado;
$ld_subtotal_por_cobrar=$ld_sub_total_por_cobrar;
}
} // end for($li_s)
uf_print_cabecera_detalle($ls_cuentaimprimir,$ls_denominacion,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera(number_format($ld_saldo_por_devengar,2,',','.'),
number_format($ld_sub_total_previsto,2,',','.'),
number_format($ld_sub_total_aumento,2,',','.'),
number_format($ld_sub_total_disminucion,2,',','.'),
number_format($ld_sub_total_monto_actualizado,2,',','.'),
number_format($ld_sub_total_devengado,2,',','.'),
number_format($ld_sub_total_cobrado,2,',','.'),
number_format($ld_sub_total_cobrado_anticipado,2,',','.'),
number_format($ld_sub_total_por_cobrar,2,',','.'),$io_pdf);
}// end for($li_z)
/*for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$li_tmp=($li_s+1);
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
$ls_spi_cuenta=$io_report->dts_reporte->data["spi_cuenta"][$li_s];
if ($li_s<$li_totrow_det)
{
$li_totdeb = $li_totdeb + $li_montodebe;
$li_montodebe = number_format($li_montodebe, 2, ",", ".");
} else {
$li_montodebe = "";
$li_montohab = $li_monto;
$li_tothab = $li_tothab + $li_montohab;
$li_montohab = number_format($li_montohab, 2, ",", ".");
}
$la_data[$li_s] = array('sc_cuenta' => $ls_sccuenta, 'denominacion' => $ls_denominacion, 'mondeb' => $li_montodebe, 'monhab' => $li_montohab);
}
$li_totdeb = number_format($li_totdeb, 2, ",", ".");
$li_tothab = number_format($li_tothab, 2, ",", ".");
uf_print_detalle_scg($la_data, &$io_pdf);
unset($la_data);
}
uf_print_pie_cabecera($li_totdeb, $li_tothab, $ls_obssol, &$io_pdf);
////////////////////////// GRID DETALLE CONTABLE //////////////////////////////////////
}
}
}
if ($ls_tiporeporte == 0) {
uf_print_total_bsf($li_monsolaux, &$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');";
// Imprimimos el detalle
uf_print_pie_cabecera($io_pdf);
uf_print_pie_de_pagina(&$io_pdf);
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_estemp, '', $ls_denuniadm, $ls_cmpmov, $ld_feccmp, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_pie_cabecera($io_pdf);
uf_print_pie_de_pagina(&$io_pdf);
}
}
}
unset($la_data);
}
if ($lb_valido && $i > 0) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
uf_print_pie_cabecera($ld_totalaumento,$ld_totaldismi,$io_pdf);
$ld_totalaum=$ld_totalaumento;
$ld_totaldis=$ld_totaldismi;
$ld_totalaumento=0;
$ld_totaldismi=0;
if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
elseif($thisPageNum<>1)
{// 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_comprobante_ant,$ls_descripcion,$ldt_fecha,$ls_proc,$ls_programatica,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera($ld_totalaum,$ld_totaldis,$io_pdf);
$ld_totalaum=0;
$ld_totaldis=0;
}
unset($la_data);
}//if
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
$ld_disminucion=str_replace('.','',$ld_disminucion);
$ld_disminucion=str_replace(',','.',$ld_disminucion);
}
if (!empty($ls_procomp_next))
{
$ld_aumento=number_format($ld_aumento,2,",",".");
$ld_disminucion=number_format($ld_disminucion,2,",",".");
$la_data[$z]=array('cuenta'=>$ls_spg_cuenta,'denominacion'=>$ls_denominacion,
'disminucion'=>$ld_disminucion,'aumento'=>$ld_aumento);
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera($io_encabezado,$ls_comprobante,$ls_descripcion,$ldt_fecha,$ls_proc,$ls_programatica,$io_pdf);
uf_print_cabezera_detalle($io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_totalaumento=number_format($ld_totalaumento,2,",",".");
$ld_totaldismi=number_format($ld_totaldismi,2,",",".");
uf_print_pie_cabecera($ld_totalaumento,$ld_totaldismi,$io_pdf);
$ld_totalaum=$ld_totalaumento;
$ld_totaldis=$ld_totaldismi;
$ld_totalaumento=0;
$ld_totaldismi=0;
$io_pdf->stopObject($io_encabezado);
if($z<$li_tot)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
unset($la_data);
}//if
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
{
$ld_total_comprometer_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_total_comprometer, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_total_causado_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_total_causado, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_total_pagado_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_total_pagado, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_total_comprometer_bsf=number_format($ld_total_comprometer_bsf,2,",",".");
$ld_total_causado_bsf=number_format($ld_total_causado_bsf,2,",",".");
$ld_total_pagado_bsf=number_format($ld_total_pagado_bsf,2,",",".");
$ld_total_comprometer=number_format($ld_total_comprometer,2,",",".");
$ld_total_causado=number_format($ld_total_causado,2,",",".");
$ld_total_pagado=number_format($ld_total_pagado,2,",",".");
//Bolivares
uf_print_pie_cabecera($ld_total_comprometer,$ld_total_causado,$ld_total_pagado,$io_pdf,"Total Bs.");
//Bolivar Fuerte
uf_print_pie_cabecera($ld_total_comprometer_bsf,$ld_total_causado_bsf,$ld_total_pagado_bsf,$io_pdf,"Total Bs.F.");
}
}
unset($la_data);
}//if
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
$io_pdf->transaction('rewind');
$io_pdf->ezNewPage(); // Insertar una nueva página
uf_print_cabecera($ls_procede,$ls_comprobante,$ls_nomprobene,$io_pdf); // Imprimimos la cabecera del registro
uf_print_cabecera_programatica($ls_programatica,$ls_denestpro,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_total_programatica($ld_totalprogram,$io_pdf); // Imprimimos el total programatica
uf_print_total_comprobante($ld_totalcomprob,$io_pdf); // Imprimimos el total comprobante
}
else
{
$io_pdf->transaction('commit');
}
if($li_i==$li_tot)
{
$ld_total=number_format($ld_total,2,",",".");
uf_print_pie_cabecera($ld_total,$io_pdf); // Imprimimos pie de la cabecera
}
unset($la_data);
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
}
else
{
$ldec_totalhaber=number_format($ldec_totalhaber,2,",",".");
}
if($ldec_saldo_act<0)
{
$ldec_total_saldo_aux=abs($ldec_saldo_act);
$ldec_total_saldo_aux=number_format($ldec_total_saldo_aux,2,",",".");
$ldec_total_saldo="(".$ldec_total_saldo_aux.")";
}
else
{
$ldec_total_saldo=number_format($ldec_saldo_act,2,",",".");
}
uf_print_pie_cabecera($ldec_totaldebe,$ldec_totalhaber,$ldec_total_saldo,$io_pdf);
unset($la_data);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
}
$la_data[1] =array('numdoc'=>$ls_numdoc,'fecmov'=>$ld_fecha,'feccad'=>$ld_feccad,'beneficiario'=>$ls_nomproben,'monto'=>number_format($ldec_monto,2,",","."));
if ($y==1)
{
$ls_show=1;
}
else
{
$ls_show=0;
}
uf_print_detalle($la_data,$ls_show,$io_pdf);
}
$ld_total_monto=number_format($ld_total_monto,2,",",".");
uf_print_pie_cabecera($ld_total_monto,$li_total,$io_pdf);
unset($la_data);
}
else
{
$lb_valido2=false;
}
}
}//for
if ($lb_valido2)
{
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ld_totalde=$ld_totaldebe;
$ld_totalha=$ld_totalhaber;
$ld_totalsal=$ld_totalsaldo_final;
$ld_totaldebe=0;
$ld_totalhaber=0;
if ($io_pdf->ezPageCount==$thisPageNum)
{// Hacemos el commit de los registros que se desean imprimir
$io_pdf->transaction('commit');
}
elseif($thisPageNum>1)
{// 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($as_cuenta,$ls_denominacion,$ld_saldo_anterior,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera($ld_totalde,$ld_totalha,$ld_totalsal,$io_pdf);
}
else
{
$io_pdf->transaction('commit');
}
unset($la_data);
}//if
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
$ld_total_compromiso_general_bsf=number_format($ld_total_compromiso_general_bsf,2,",",".");
$ld_total_causado_general_bsf=number_format($ld_total_causado_general_bsf,2,",",".");
$ld_total_pagado_general_bsf=number_format($ld_total_pagado_general_bsf,2,",",".");
$ld_total_asignado_general=number_format($ld_total_asignado_general,2,",",".");
$ld_total_precompromiso_general=number_format($ld_total_precompromiso_general,2,",",".");
$ld_total_compromiso_general=number_format($ld_total_compromiso_general,2,",",".");
$ld_total_causado_general=number_format($ld_total_causado_general,2,",",".");
$ld_total_pagado_general=number_format($ld_total_pagado_general,2,",",".");
//Bolivares
uf_print_pie_cabecera($ld_total_asignado_general,$ld_total_precompromiso_general,$ld_total_compromiso_general,
$ld_total_causado_general,$ld_total_pagado_general,$io_pdf,'Total Bs.');
//Bolivar Fuerte
uf_print_pie_cabecera($ld_total_asignado_general_bsf,$ld_total_precompromiso_general_bsf,
$ld_total_compromiso_general_bsf,$ld_total_causado_general_bsf,
$ld_total_pagado_general_bsf,$io_pdf,'Total Bs.F');
}
}
unset($la_data);
}//if
}//for
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
if($ls_estatus==6){
$status="Pre-Comp.Anulada";
}
if($ls_estatus==7){
$status="Servicio Recibido";
}
$la_data[$li_i]= array('codigo'=>$ls_numord,'nombre'=>$ls_nombre,'estcondat'=>$ls_estcondat,
'fecha'=>$ls_fecha,'estatus'=>$status,'monto'=>$ld_monto);
}
uf_print_listado($la_data,$io_pdf); // Imprimimos el detalle
$ldec_monto = number_format($ldec_monto,2,",",".");
uf_print_pie_cabecera($li_i,$ldec_monto,$io_pdf);
if($lb_valido) // Si no ocurrio ningún error
{
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
else // Si hubo algún error
{
print("<script language=JavaScript>");
print("alert('Ocurrio un error al generar el reporte. Intente de Nuevo');");
print("close();");
print("</script>");
}
unset($io_pdf);
}
else
if ($io_pdf->ezPageCount == $li_numpag) {
// Hacemos el commit de los registros que se desean imprimir
$li_total = $io_fun_activos->uf_formatonumerico($li_total);
$li_totcosgen = $io_fun_activos->uf_formatonumerico($li_totcosgen);
uf_print_pie_cabecera($li_total, $li_totcosgen, $li_tot_activo, $li_totactgen, $io_pdf);
$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_codemp, $ls_nomemp, $ls_codgru, $ls_dengru, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_pie_cabecera($li_total, $li_totcosgen, $li_tot_activo, $li_totactgen, $io_pdf);
//uf_print_pie_de_pagina(&$io_pdf);
}
}
}
unset($la_data);
}
if ($lb_valido && $i > 0) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
uf_print_detalle_egreso($la_data_egr,$io_pdf); // Imprimimos el detalle
if($lb_valido_ing)
{
$ld_total_ingresos=str_replace('.','',$ld_total_ingresos);
$ld_total_ingresos=str_replace(',','.',$ld_total_ingresos);
}
else
{
$ld_total_ingresos=0;
}
$ld_total_egresos=abs($ld_total_egresos);
$ld_total=trim($ld_total_ingresos)-($ld_total_egresos);
$ld_total_egresos=number_format($ld_total_egresos,2,",",".");
uf_print_pie_cabecera_egreso($ld_total_egresos,$io_pdf); // Imprimimos pie de la cabecera
$ld_total=number_format($ld_total,2,",",".");
uf_print_pie_cabecera($ld_total,$io_pdf);
}//if
unset($la_data);
unset($la_data_egr);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
$ls_resul_1=$ls_resul_1;
$ls_suma1= $ls_resul_1+$ls_total_egreso;
$ls_suma2="";
$ls_resul_Balnace_2=$ls_resul_1;
$ls_suma_Balance_2=$ls_tot_haber_g+$ls_resul_Balnace_2;
$ls_suma_Balance_1="";
$ls_resul_Balnace_1="";
$ls_resul_Balnace_2=number_format($ls_resul_Balnace_2,2,",",".");
$ls_resul_1=number_format($ls_resul_1,2,",",".");
$ls_suma1=number_format($ls_suma1,2,",",".");
$ls_suma_Balance_2=number_format($ls_suma_Balance_2,2,",",".");
$ls_denomina="Superavit Fiscal";
}
uf_print_pie_cabecera($ldec_totaldebe,$ldec_totalhaber,$ldec_total_saldo,$ls_total_egreso,$ls_total_ingreso,
$ls_tot_debe_g,$ls_tot_haber_g,$ls_resul_1,$ls_resul_2,$ls_denomina,
$ls_resul_Balnace_1,$ls_resul_Balnace_2,$ls_suma1,$ls_suma2,
$ls_suma_Balance_1,$ls_suma_Balance_2,$io_pdf);
unset($la_data);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
{
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera(number_format($ld_total_monto,2,",","."),"Total",$io_pdf);
$ld_total_monto_general+=$ld_total_monto;
$ls_codespro=$io_report->ds_reporte_final->getValue("codestpro",$z);
$ls_spg_cuenta=$io_report->ds_reporte_final->getValue("spg_cuenta",$z);
$ls_denominacion=$io_report->ds_reporte_final->getValue("denominacion",$z);
uf_print_cuenta($ls_codespro, $ls_spg_cuenta, $ls_denominacion,$io_pdf);
$ld_total_monto=0;
$la_data=array();
}
$la_data[$z]=array('numdoc'=>$ls_numdoc,'fecha'=>$ldt_fecha,'beneficiario'=>$ls_nom_benef,'concepto'=>$ls_descripcion,
'codope'=>$ls_codope,'monto'=>$ld_monto);
}//for
uf_print_pie_cabecera(number_format($ld_total_monto_general,2,",","."),"Total General",$io_pdf);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
}
unset($io_pdf);
}
$ls_canart=$io_report->dts_reporte->data["canart"][$li_s];
$ls_preuniart=number_format($io_report->dts_reporte->data["preuniart"][$li_s],2,",",".");
$ls_nompro=$io_report->dts_reporte->data["nompro"][$li_s];
$ls_cedrep=$io_report->dts_reporte->data["cedrep"][$li_s];
$ls_nomreppro=$io_report->dts_reporte->data["nomreppro"][$li_s];
$ls_denart=$io_report->dts_reporte->data["denart"][$li_s];
$ls_estpro=$io_report->dts_reporte->data["estpro"][$li_s];
$ldt_fecrec=$io_funciones->uf_convertirfecmostrar($io_report->dts_reporte->data["fecrec"][$li_s]);
$ls_montotart=$io_report->dts_reporte->data["montotart"][$li_s];
$la_data[$li_s]=array('codart'=>$ls_codart,'denart'=>$ls_denart,'canart'=>$ls_canart,'preuniart'=>$ls_preuniart);
}//for
uf_cabezera($ls_nomresalm,$ls_nompro,$ls_nomreppro,$ls_nombre,$io_pdf);
uf_cabezera_detalle($io_pdf);
uf_print_pie_detalle($ls_estpro,$ls_numordcom,$ls_nombre,$ls_montotart,$ls_ciuemp,$ldt_fecrec,$io_pdf);
uf_print_pie_cabecera($ls_nombre,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
{
$io_pdf->ezStream();
}
$ls_estact = $io_report->ds->data["estact"][$li_i];
$ls_catalogo = $io_report->ds->data["catalogo"][$li_i];
$ld_fecmpact = $io_report->ds->data["feccmpact"][$li_i];
$ld_fecmpactaux = $io_funciones->uf_convertirfecmostrar($ld_fecmpact);
$li_costo = $io_report->ds->data["costo"][$li_i];
if ($ls_estact == 'D') {
$li_costo = $li_costo * -1;
}
$ld_total_costo = $ld_total_costo + $li_costo;
$li_costo = number_format($li_costo, 2, ',', '.');
$la_data[$li_i] = array('codact' => $ls_codact, 'denact' => $ls_denact, 'resuso' => $ls_nomresuso, 'maract' => $ls_maract, 'modact' => $ls_modact, 'feccmpact' => $ld_fecmpactaux, 'costo' => $li_costo, 'catalogo' => $ls_catalogo);
}
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
$ld_total_costo = $io_fun_activos->uf_formatonumerico($ld_total_costo);
uf_print_pie_cabecera($ld_total_costo, $io_pdf);
unset($la_data);
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
//***** HASTA AQUI ********
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');
if ($li_numpag != 1) {
$io_pdf->ezNewPage();
// Insertar una nueva página
}
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_codcau, $ls_dencau, $ls_descmp, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_pie_cabecera($li_montot, $io_pdf);
// Imprimimos pie de la cabecera
}
}
unset($la_data);
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
if ($io_pdf->ezPageCount == $li_numpag) {
// Hacemos el commit de los registros que se desean imprimir
//$li_total_cantidad = $io_fun_activos->uf_formatonumerico($li_total_cantidad);
$li_total_precio = $io_fun_activos->uf_formatonumerico($li_total_precio);
uf_print_pie_cabecera($li_total_cantidad, $li_total_precio, $io_pdf);
$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($li_cod_pro, $li_nompro, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_pie_cabecera($li_total_cantidad, $li_total_precio, $io_pdf);
//uf_print_pie_de_pagina(&$io_pdf);
}
}
}
unset($la_data);
}
if ($lb_valido && $i > 0) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
print " alert('No hay nada que Reportar');";
print " close();";
print "</script>";
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera($li_totprenom,$li_totant,$io_pdf); // Imprimimos pie de la cabecera
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');
if($li_numpag!=1)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
uf_print_cabecera($ls_numtom,$ls_codalm,$ls_nomfisalm,$ls_obstom,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera($li_totprenom,$li_totant,$io_pdf); // Imprimimos pie de la cabecera
}
}
unset($la_data);
}
if($lb_valido)
{
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
$li_existencia=number_format($li_existencia,2,",",".");
$la_data[$li_s]=array('codigo'=>$ls_codart,'articulo'=>$ls_denart,'existencia'=>$li_existencia);
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera("","",$io_pdf); // Imprimimos pie de la cabecera
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_nomemp,$ls_nomfisalm,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera("","",$io_pdf); // Imprimimos pie de la cabecera
}
}
unset($la_data);
}
if($lb_valido)
{
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
}
unset($io_pdf);
}
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
$ld_cantidad = number_format($ld_cantidad,2,",",".");
$ld_precio = number_format($ld_precio,2,",",".");
$ld_subtotal = number_format($ld_subtotal,2,",",".");
$ld_cargo = number_format($ld_cargo,2,",",".");
$ld_total = number_format($ld_total,2,",",".");
$la_dataser[$li_ser]= array('codigo'=>$ls_codigo,'denominacion'=>$ls_denominacion,'cantidad'=>$ld_cantidad,
'precio'=>$ld_precio,'subtotal'=>$ld_subtotal,'cargos'=>$ld_cargo,'total'=>$ld_total);
}
uf_print_detalle_servicios($la_dataser,$io_pdf);
}
}
$ld_monto = str_replace(".","",$ld_monto);
$ld_monto = str_replace(",",".",$ld_monto);
uf_print_pie_cabecera($ld_monbas,$ld_moncar,$ld_monto,&$io_pdf);
$ls_tipoencabenzadosol = "Detalle Presupuestario";
$numalet->setNumero($ld_monto);
$ls_monto= $numalet->letra();
// $io_pdf->ezStartPageNumbers(588,710,7,'','',1);
uf_print_encabezado_pie(number_format($ld_monto,2,",","."),$ls_proveedor,$ls_monto,
$ls_lugcom,$ls_codmoneda,$ls_moneda,$ld_tasa,$ld_mondiv,$ls_estcondat,
$ls_pais,$ls_estado,$ls_municipio,$ls_parroquia,$ls_estcondat,$ls_codmoneda,
&$io_pdf);
uf_print_cuadros_inferiores($ls_obsordcom,$ls_observacion,$ld_tasa,$li_totconv,&$io_pdf);
}
if($lb_valido)
{
$io_pdf->ezStream();
$li_total_pagado = $li_total_pagado + $io_report->ds_detalle->data["montotdoc"][$li_s];
$li_total_retencion = $li_total_retencion + $io_report->ds_detalle->data["monobjret"][$li_s];
$li_total_impuesto = $li_total_impuesto + $io_report->ds_detalle->data["monret"][$li_s];
$li_totalacumulado = $li_totalacumulado + $io_report->ds_detalle->data["monobjret"][$li_s];
$li_retencionacumulada = $li_retencionacumulada + $io_report->ds_detalle->data["monret"][$li_s];
$li_total = number_format($li_totalacumulado, 2, ",", ".");
$li_retencion = number_format($li_retencionacumulada, 2, ",", ".");
$la_data[$li_s] = array('fecha' => $ls_fecha, 'total' => $li_montotdoc, 'retencion' => $li_monobjret, 'porcentaje' => $li_porded, 'impuesto' => $li_monret, 'totalacumulado' => $li_total, 'retencionacumulada' => $li_retencion);
}
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
unset($la_data);
$li_total_pagado = number_format($li_total_pagado, 2, ",", ".");
$li_total_retencion = number_format($li_total_retencion, 2, ",", ".");
$li_total_impuesto = number_format($li_total_impuesto, 2, ",", ".");
uf_print_pie_cabecera($li_total_pagado, $li_total_retencion, $li_total_impuesto, &$io_pdf);
$io_pdf->stopObject($io_cabecera);
// Detener el objeto cabecera
if ($li_i < $li_totrow) {
$io_pdf->ezNewPage();
// Insertar una nueva página
}
$io_report->ds_detalle->reset_ds();
}
}
$io_report->DS->reset_ds();
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
{
$ld_totaldebe=number_format($ld_totaldebe,2,",",".");
}
if($ld_totalhaber<0)
{
$ld_totalhaber_aux=abs($ld_totalhaber);
$ld_totalhaber_aux=number_format($ld_totalhaber_aux,2,",",".");
$ld_totalhaber="(".$ld_totalhaber_aux.")";
}
else
{
$ld_totalhaber=number_format($ld_totalhaber,2,",",".");
}
uf_print_pie_cabecera($ld_totaldebe,$ld_totalhaber,$ld_totalsaldo_final,$io_pdf,$li_ocultar);
$ld_totalde=$ld_totaldebe;
$ld_totalha=$ld_totalhaber;
$ld_totalsal=$ld_totalsaldo_final;
$ld_totaldebe=str_replace('.','',$ld_totaldebe);
$ld_totaldebe=str_replace(',','.',$ld_totaldebe);
$ld_totalhaber=str_replace('.','',$ld_totalhaber);
$ld_totalhaber=str_replace(',','.',$ld_totalhaber);
$ld_montototaldebe=$ld_montototaldebe+$ld_totaldebe;
$ld_montototalhaber=$ld_montototalhaber+$ld_totalhaber;
$ld_totaldebe=0;
$ld_totalhaber=0;
uf_print_titulo("Mensual",$io_pdf);
uf_print_cabecera("Mensual",$io_pdf);
}
$io_encabezado=$io_pdf->openObject();
uf_print_titulo_proyecto("ACCIONES CENTRALIZADAS",$io_encabezado,$io_pdf);
$io_pdf->stopObject($io_encabezado);
uf_print_detalle_acciones($la_data_a,$io_pdf); // Imprimimos el detalle
//uf_print_pie_cabecera_acciones($la_data_tot_a,$io_pdf);
if($ls_tipoformato==1)
{
uf_print_pie_cabecera($la_data_totales,$io_pdf);
}
else
{
uf_print_pie_cabecera($la_data_totales,$io_pdf);
uf_print_pie_cabecera($la_data_totales_bsf,$io_pdf);
}
unset($la_data_a);
unset($la_data_tot_a);
unset($la_data_totales);
}//if
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
echo '<html><body>';
echo trim($ls_pdfcode);
echo '</body></html>';
}
else
$ld_total_pagado=number_format($ld_total_pagado,2,",",".");
$ld_total_por_paga=number_format($ld_total_por_paga,2,",",".");
$la_data_tot[$z]=array('total'=>'<b>TOTAL</b>','asignado'=>$ld_total_asignado,'aumento'=>$ld_total_aumento,
'disminución'=>$ld_total_disminucion,'montoactualizado'=>$ld_total_monto_actualizado,
'precomprometido'=>$ld_total_precompromiso,'comprometido'=>$ld_total_compromiso,
'saldoporcomprometer'=>$ld_total_saldo_comprometer,'causado'=>$ld_total_causado,
'pagado'=>$ld_total_pagado,'porpagar'=>$ld_total_por_paga);
}//if
}//for
$io_encabezado=$io_pdf->openObject();
uf_print_titulo_reporte($io_encabezado,$ls_programatica,$ls_denestpro,$io_pdf);
$io_cabecera=$io_pdf->openObject();
uf_print_cabecera($io_cabecera,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera($la_data_tot,$io_pdf);
$io_pdf->stopObject($io_encabezado);
$io_pdf->stopObject($io_cabecera);
unset($la_data);
unset($la_data_tot);
}//if
if($li<$li_total)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}//while
$io_pdf->ezStopPageNumbers(1,1);
if (isset($d) && $d)
{
$ls_pdfcode = $io_pdf->ezOutput(1);
$ls_pdfcode = str_replace("\n","\n<br>",htmlspecialchars($ls_pdfcode));
$ls_feccot = $io_funciones->uf_convertirfecmostrar($ls_feccot);
$ls_obscot = $row["obscot"];
$ls_tipcot = $row["tipcot"];
if ($ls_tipcot=='B')
{
$ls_tipcot = "Bienes";
}
elseif($ls_tipcot=='S')
{
$ls_tipcot = "Servicios";
}
$ls_nompro = $row["nompro"];
$la_data[$li_i] = array('numcot'=>$ls_numcot,'nompro'=>$ls_nompro,'obscot'=>$ls_obscot,'feccot'=>$ls_feccot,'tipcot'=>$ls_tipcot);
}
uf_print_detalles($la_data,$io_pdf);//Imprimimos el detalle
uf_print_pie_cabecera($li_i,$io_pdf);
$io_pdf->setStrokeColor(0,0,0);
$io_pdf->line(20,50,580,50);
$io_pdf->ezStopPageNumbers(1,1);
$io_pdf->ezStream();
unset($io_pdf);
unset($io_report);
unset($io_funciones);
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
$la_valores["denomasig"]=$la_data_a[$li_s]["denominacion"];
$la_valores["valorasig"]=$la_data_a[$li_s]["valor"];
}
if($li_s<=$li_dedu)
{
$la_valores["denomdedu"]=$la_data_d[$li_s]["denominacion"];
$la_valores["valordedu"]=$la_data_d[$li_s]["valor"];
}
$la_data[$li_s]=$la_valores;
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_totnet=$li_toting-$li_totded;
$li_toting=$io_fun_nomina->uf_formatonumerico($li_toting);
$li_totded=$io_fun_nomina->uf_formatonumerico($li_totded);
$li_totnet=$io_fun_nomina->uf_formatonumerico($li_totnet);
uf_print_pie_cabecera($li_toting,$li_totded,$li_totnet,$ls_codcueban,$io_pdf); // Imprimimos pie de la cabecera
uf_print_firmas($ls_cedper,$ls_nomper,&$io_pdf);
unset($la_data_a);
unset($la_data_d);
unset($la_data);
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
}
$li_i++;
$io_report->rs_data->MoveNext();
}
if($lb_valido) // Si no ocurrio ningún error
{
$li_totdesinc = "";
}
$la_data[$li_i] = array('codact' => $ls_codact, 'tot_inc' => $li_totinc, 'tot_desinc' => $li_totdesinc);
}
if ($la_data != "") {
$i = $i + 1;
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_coduniadm, $ls_denuniadm, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
//uf_print_pie_de_pagina(&$io_pdf);
if ($io_pdf->ezPageCount == $li_numpag) {
// Hacemos el commit de los registros que se desean imprimir
$li_tot_gen_inc = $io_fun_activos->uf_formatonumerico($li_tot_gen_inc);
$li_tot_gen_desinc = $io_fun_activos->uf_formatonumerico($li_tot_gen_desinc);
uf_print_pie_cabecera($li_tot_gen_inc, $li_tot_gen_desinc, $io_pdf);
$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_codemp, $ls_nomemp, $ls_codgru, $ls_dengru, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
//uf_print_pie_cabecera($li_tot_gen_inc,$li_tot_gen_desinc,$io_pdf);
//uf_print_pie_de_pagina(&$io_pdf);
}
}
unset($la_data);
