$ls_monto=$io_report->rs_data->fields["monto"];
$ls_totalpersona=$ls_totalpersona+$ls_totalper;
$ls_totalmonto=$ls_totalmonto+$ls_monto;
$la_data[$li_i]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'personal'=>number_format($ls_totalper,0,"","."), 'asignacion'=>number_format($ls_monto,2,",","."));
$li_i++;
$io_report->rs_data->MoveNext();
}
if ($li_i>1)
{
$ls_denominacion="CUADRE DE INGRESO DE PENSIONES TODOS LOS PAGOS";
uf_print_cabecera($ls_denominacion, $io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ls_denominacion="Totales Ingresos todos los Pagos";
$ls_totalpersona=number_format($ls_totalpersona,0,"",".");
$ls_totalmonto=number_format($ls_totalmonto,2,",",".");
uf_print_piecabecera($ls_denominacion, $ls_totalpersona,$ls_totalmonto,&$io_pdf);
unset($la_data);
}
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);
$ls_codestpro=$ls_codestpro1." - ".$ls_codestpro2." - ".$ls_codestpro3." - ".$ls_codestpro4." - ".$ls_codestpro5;
}
$li_montocta=$io_report->ds_cuentas->data["monto"][$li_s];
$li_montocta=number_format($li_montocta,2,",",".");
$la_data[$li_s]=array('programatica'=>$ls_codestpro,'spg_cuenta'=>$ls_spgcuenta,
'denominacion'=>$ls_dencuenta,'monto'=>$li_montocta);
}
uf_print_detalle_cuentas($la_data,$ls_monto,&$io_pdf);
unset($la_data);
}
}
}
}
}
uf_print_piecabecera($li_monbasimptot,$li_montotcar,$li_monto,$ls_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>");
}
}
?>
}
$io_report->DS_detalle->resetds("cedper");
if(!empty($la_data))
{
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total=$li_total+$li_subtot;
$ls_descripcion="Pago por Taquilla";
$li_subtot=$io_fun_nomina->uf_formatonumerico($li_subtot);
uf_print_pie_detalle($ls_descripcion,$li_subtot,$io_pdf); // Imprimimos pie de la cabecera
}
unset($la_data);
}
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
unset($io_cabecera);
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
uf_print_piecabecera($li_total,$io_pdf);
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->stopObject($io_encabezado);
unset($io_encabezado);
}
$io_report->DS->resetds("codban");
if($lb_valido) // Si no ocurrio ningún error
{
$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>");
}
}
}
if($ls_estlugcom==0)
{
$ls_estlugcom="Nacional";
}
else
{
$ls_estlugcom="Extranjero";
}
/* if(($ls_despai=='---seleccione---')||($ls_desest=='---seleccione---')||($ls_denmun=='---seleccione---')||())
{
}*/
uf_print_piecabecera($ld_monsubtot,$ld_monimp,$ld_montot,$ls_monto,$ls_estlugcom,$ls_denmon,$ls_tasa,$ls_despai,
$ls_desest,$ls_denmun,$ls_denpar,$ls_obsordcom,$ls_montodivi,&$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_report);
unset($io_funciones);
$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
$li_empleado=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["personal"][$li_s]));
$li_patron=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["patron"][$li_s]));
$li_total= abs($io_report->DS_detalle->data["personal"][$li_s])+ abs($io_report->DS_detalle->data["patron"][$li_s]);
$li_emp_total=$li_emp_total+abs($io_report->DS_detalle->data["personal"][$li_s]);
$li_pat_total=$li_pat_total+abs($io_report->DS_detalle->data["patron"][$li_s]);
$li_tot_total=$li_tot_total+$li_total;
$li_total=$io_fun_nomina->uf_formatonumerico(abs($li_total));
$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'empleado'=>$li_empleado,'patron'=>$li_patron,'total'=>$li_total);
}
$io_report->DS_detalle->resetds("cedper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_emp_total=$io_fun_nomina->uf_formatonumerico(abs($li_emp_total));
$li_pat_total=$io_fun_nomina->uf_formatonumerico(abs($li_pat_total));
$li_tot_total=$io_fun_nomina->uf_formatonumerico(abs($li_tot_total));
uf_print_piecabecera($li_emp_total,$li_pat_total,$li_tot_total,$io_pdf); // Imprimimos el pie de la cabecera
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
unset($io_cabecera);
unset($la_data);
}
}
$io_report->DS->resetds("codconc");
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
}
$li_totalasignacion=$io_fun_nomina->uf_formatonumerico($li_totalasignacion);
$li_totaldeduccion=$io_fun_nomina->uf_formatonumerico($li_totaldeduccion);
$li_totalaporte=$io_fun_nomina->uf_formatonumerico($li_totalaporte);
$li_total_neto=$io_fun_nomina->uf_formatonumerico($li_total_neto);
uf_print_piecabecera($li_totalasignacion,$li_totaldeduccion,$li_totalaporte,$li_total_neto,$ls_obsrecper,$io_pdf); // Imprimimos el 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_cedper,$ls_apenomper,$ls_descar,$ls_desuniadm,$ld_fecingper,$ls_codcueban,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_piecabecera($li_totalasignacion,$li_totaldeduccion,$li_totalaporte,$li_total_neto,$ls_obsrecper,$io_pdf); // Imprimimos el pie de la cabecera*/
}
}
unset($la_data);
$io_report->rs_data->MoveNext();
}
$li_totasi=$io_fun_nomina->uf_formatonumerico($li_totasi);
$li_totded=$io_fun_nomina->uf_formatonumerico($li_totded);
$li_totapo=$io_fun_nomina->uf_formatonumerico($li_totapo);
$li_totgeneral=$io_fun_nomina->uf_formatonumerico($li_totgeneral);
uf_print_piepagina($li_totasi,$li_totded,$li_totapo,$li_totgeneral,$io_pdf);
uf_print_firmas(&$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
$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
$li_monact=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["actual"][$li_i]));
$li_monpre=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["previo"][$li_i]));
$li_monmov=$io_report->DS->data["actual"][$li_i]-$io_report->DS->data["previo"][$li_i];
$li_monmov=$io_fun_nomina->uf_formatonumerico($li_monmov);
$la_data[$li_i]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'anterior'=>$li_monpre,'movimiento'=>$li_monmov,'actual'=>$li_monact);
$li_totprevio=$li_totprevio+abs($io_report->DS->data["previo"][$li_i]);
$li_totactual=$li_totactual+abs($io_report->DS->data["actual"][$li_i]);
$li_totmovimiento=$li_totmovimiento+($io_report->DS->data["actual"][$li_i]-$io_report->DS->data["previo"][$li_i]);
}
$io_report->DS->resetds("codconc");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_totprevio=$io_fun_nomina->uf_formatonumerico($li_totprevio);
$li_totactual=$io_fun_nomina->uf_formatonumerico($li_totactual);
$li_totmovimiento=$io_fun_nomina->uf_formatonumerico($li_totmovimiento);
uf_print_piecabecera($li_totprevio,$li_totactual,$li_totmovimiento,$li_totrow,$io_pdf); // Imprimimos el pie de la cabecera
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);
}
unset($io_report);
{
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
}
else
{
print("<script language=JavaScript>");
print(" alert('No hay nada que reportar!');");
print(" close();");
print("</script>");
}
$li_totgeneral=$li_totasi-$li_totded;
$li_totasi=$io_fun_nomina->uf_formatonumerico($li_totasi);
$li_totded=$io_fun_nomina->uf_formatonumerico($li_totded);
$li_totapo=$io_fun_nomina->uf_formatonumerico($li_totapo);
$li_totgeneral=$io_fun_nomina->uf_formatonumerico($li_totgeneral);
uf_print_piecabecera($li_totasi,$li_totded,$li_totapo,$li_totgeneral,$io_pdf); // Imprimimos el pie de la cabecera
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);
}
unset($io_report);
uf_print_cabecera($ls_denominacion,&$io_pdf);
uf_print_detalle($la_data1,$io_pdf); // Imprimimos el detalle
$ls_denom="Total Asignaciones";
uf_print_piecabecera($ls_denom, $ls_persona_tot1,number_format($ls_monto_tot1,2,",","."),&$io_pdf);
$monto_total=$monto_total+($ls_monto_tot1);
$personal_total=$personal_total+($ls_persona_tot1);
$io_pdf->ezSetDy(-5);
unset($la_data1);
}
if($ls_deduc>0)
{
$ls_denominacion="Deducciones";
uf_print_cabecera($ls_denominacion,&$io_pdf);
uf_print_detalle($la_data2,$io_pdf); // Imprimimos el detalle
$ls_denom="Total Deducciones";
uf_print_piecabecera($ls_denom, $ls_persona_tot2,number_format($ls_monto_tot2,2,",","."),&$io_pdf);
$monto_total2=$monto_total2+($ls_monto_tot2);
$personal_total2=$personal_total2+($ls_persona_tot2);
$io_pdf->ezSetDy(-5);
unset($la_data2);
}
}
$io_report->rs_data->MoveNext();
}//fin del for
if ($monto_total>0)
{
$io_pdf->ezSetDy(-5);
$ls_denom="TOTAL GENERAL ASIGNACIONES";
uf_print_piecabecera2($ls_denom,number_format($monto_total,2,",","."),&$io_pdf);
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_piedetalle($li_total,$ls_desuniadm,$io_pdf); // Imprimimos el pie de la cabecera
}
}
else
{
$io_pdf->transaction('commit');
}
}
unset($la_data);
$io_report->rs_data->MoveNext();
}
$li_total_neto=$io_fun_nomina->uf_formatonumerico($li_total_neto);
$io_pdf->EzsetDy(-2);
$li_s = $li_s-1;
uf_print_piecabecera($li_total_neto,$li_s,$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);
}
unset($io_report);
$li_valsal2=0;
$li_valsal_sentencia=0;
}
}
// Imprimimos el detalle
uf_print_detalle($la_data,$io_pdf);
uf_print_piecabecera($io_fun_nomina->uf_formatonumerico($li_total),$li_contador,$ls_desuniadmact,$io_pdf);
$monto_total = $monto_total + $li_total;
$ultima_linea = $io_pdf->y;
$io_pdf->filledRectangle(96,$ultima_linea-10,600,1); // Imprimimos el fin del reporte
$io_pdf->ezText(' ',12,array('justification' => 'full'));
uf_imprime_totales($contador_personas,$io_fun_nomina->uf_formatonumerico($cesta_tot-$deducciones_tot) ,$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();");
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$ls_estado1=$io_report->DS->data["est1cestic"][$li_i];
$ls_estado2=$io_report->DS->data["est2cestic"][$li_i];
$li_ticket=abs($io_report->DS->data["valsal"][$li_i])/abs($io_report->DS->data["moncestic"][$li_i]);
$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["valsal"][$li_i]));
$li_total=$li_total+abs($io_report->DS->data["valsal"][$li_i]);
$li_totalticket=$li_totalticket+$li_ticket;
$li_ticket=$io_fun_nomina->uf_formatonumerico($li_ticket);
$la_data[$li_contador]=array('nro'=>$li_contador,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'estado1'=>$ls_estado1,'estado2'=>$ls_estado2,'ticket'=>$li_ticket,'valor'=>$li_valsal);
}
$io_report->DS->resetds("cedper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
$li_totalticket=$io_fun_nomina->uf_formatonumerico($li_totalticket);
uf_print_piecabecera($li_total,$li_totalticket,$io_pdf); // Imprimimos el fin del reporte
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);
}
unset($io_report);
}
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
unset($io_cabecera);
//$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
//uf_print_piecabecera($li_total,$io_pdf);
$io_report->rs_data->MoveNext();
}//endwhile; endforeach;
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
uf_print_piecabecera($li_total,$io_pdf,$li_nro_total);
}
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>");
$la_data[$li_s]=array('codigo'=>$ls_codper,'nombre'=>$ls_apenomper,'tipo'=>$ls_destippre,'estatus'=>$ls_stapre,
'fecha'=>$ld_fecpre,'monto'=>$li_monpre,'amortizado'=>$li_monamopre,'cuotas'=>$li_numcuopre,
'saldo'=>$li_saldo);
$li_totprestamo=$li_totprestamo+$io_report->DS_detalle->data["monpre"][$li_s];
$li_totamortizado=$li_totamortizado+$io_report->DS_detalle->data["monamopre"][$li_s];
$li_totcuota=$li_totcuota+$io_report->DS_detalle->data["numcuopre"][$li_s];
$li_totsaldo=$li_totsaldo+($io_report->DS_detalle->data["monpre"][$li_s]-$io_report->DS_detalle->data["monamopre"][$li_s]);
$li_tottra=$li_tottra+1;
}
$io_report->DS_detalle->resetds("codper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_totprestamo=$io_fun_nomina->uf_formatonumerico(abs($li_totprestamo));
$li_totamortizado=$io_fun_nomina->uf_formatonumerico(abs($li_totamortizado));
$li_totcuota=abs($li_totcuota);
$li_totsaldo=$io_fun_nomina->uf_formatonumerico(abs($li_totsaldo));
uf_print_piecabecera($li_tottra,$li_totprestamo,$li_totamortizado,$li_totcuota,$li_totsaldo,$io_pdf); // Imprimimos el pie de la cabecera
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
unset($io_cabecera);
unset($la_data);
}
}
$io_report->DS->resetds("codconc");
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
}
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3;
}
else
{
$ls_codestpro=substr($ls_codestpro1,-2)."-".substr($ls_codestpro2,-2)."-".substr($ls_codestpro3,-2)."-".substr($ls_codestpro4,-2)."-".substr($ls_codestpro5,-2);
}
$ls_spg_cuenta=substr($ls_spg_cuenta,0,3)."-".substr($ls_spg_cuenta,3,2)."-".substr($ls_spg_cuenta,5,2)."-".substr($ls_spg_cuenta,7,2);
$la_data[$li_s]=array('codestpro'=>$ls_codestpro,'denominacion'=>$ls_dencuenta,
'cuenta'=>$ls_spg_cuenta,'monto'=>$ld_monto);
}
//////////////////////////para calcular el monto total si tiene o no descuentos/////////////////
$ls_monto_menos_desc=$ld_montot-$descuento;
$ld_montot=number_format($ld_montot,2,",",".");
$ls_monto_menos_desc=number_format($ls_monto_menos_desc,2,",",".");
/////////////////////////////////////////////////////////////////////////////////////////////////
uf_print_piecabecera($ld_monsubtot,$ld_monimp,$ls_monto_menos_desc,$descuento,&$io_pdf);
uf_print_detalle_cuentas($la_data,&$io_pdf);
uf_print_piecabecera_total($ld_montot,&$io_pdf);
unset($la_data);
}
}
}
}
}
}
uf_monto_en_letras($ls_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
if ($lb_validosep)
{
$li_totrow = $io_report->ds_soc_sep->getRowCount("numordcom");
for ($li_row=1;$li_row<=$li_totrow;$li_row++)
{
$ls_numsep = $io_report->ds_soc_sep->data["numsol"][$li_row];
$ls_denunadm = $io_report->ds_soc_sep->data["denuniadm"][$li_row];
$la_datasep[$li_row] = array('codigo'=>$ls_numsep,'denuniadm'=>$ls_denunadm);
}
uf_print_detalle_sep($la_datasep,$io_pdf);
}
}
}
}
}
uf_print_piecabecera($ls_estcondat,$ls_lugcom,$ls_moneda,$ld_tasa,$ld_mondiv,$ls_denpai,$ls_denest,$ls_denmun,$ls_denpar,$ld_montot,$ls_monto,&$io_pdf);
if ($ls_tiporeporte==0)
{
uf_print_piecabeceramonto_bsf($ld_montotaux,&$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();");
$rs_data_dt->MoveNext();
}
unset($row);
unset($rs_data_dt->fields);
$io_report->io_sql->free_result($rs_data_dt);
}
$rs_data->MoveNext();
}
if(($lb_valido)&&($li_s>0)) // Si no ocurrio ningún error
{
uf_print_detalle($la_data,$io_pdf);
$li_montototalbene=$io_fun_nomina->uf_formatonumerico($li_montototalbene);
unset($la_data);
uf_print_piecabecera($li_s,$li_montototalbene,$io_pdf); // Imprimimos el pie de la cabecera
$io_report->io_sql->free_result($rs_data);
$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
{
if($li_s==0)
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
else
{
}
}
if($ls_estcondat=="B")
{
uf_print_detalle_bienes($la_data,$io_pdf);
}
else
{
uf_print_detalle_servicios($la_dataser,$io_pdf);
}
unset($la_data);
}
}
}
}
uf_print_piecabecera($ld_monsubtot,$ld_monimp,$ld_montot,$ls_monto,$ld_montotaux,$ls_codmoneda,&$io_pdf);
uf_print_cuadros_inferiores($ls_obsordcom,$ls_obscom,$li_tasa,$li_totconv,&$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>");
}
}
else
{
if ($li_s==0)
{
print("<script language=JavaScript>");
print(" alert('No hay Personal con Monto de Deducciones Mayor a las Asignaciones');");
print(" close();");
print("</script>");
}
else
{
uf_print_detalle($la_data,$io_pdf);
$ls_totalasignacion=number_format($ls_totalasignacion,2,",",".");
$ls_totaldeduccion=number_format($ls_totaldeduccion,2,",",".");
$ls_totalaporte=number_format($ls_totalaporte,2,",",".");
$ls_total_diferencia=number_format($ls_total_diferencia,2,",",".");
$ls_total_deduccion_aporte=number_format($ls_total_deduccion_aporte,2,",",".");
uf_print_piecabecera($ls_totalasignacion,$ls_totaldeduccion,$ls_totalaporte,$ls_total_deduccion_aporte,$ls_total_diferencia,$ls_total_personas,$io_pdf);
$io_pdf->ezStopPageNumbers(1,1); // Detenemos la impresión de los números de página
$io_pdf->ezStream(); // Mostramos el reporte
}
}
}
unset ($la_data);
unset($io_pdf);
unset($io_report);
unset($io_funciones);
unset($io_fun_nomina);
?>
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$li_personal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["personal"][$li_i]));
$li_patron=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["patron"][$li_i]));
$li_total=abs($io_report->DS->data["personal"][$li_i]+$io_report->DS->data["patron"][$li_i]);
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
$li_totper=$li_totper+abs($io_report->DS->data["personal"][$li_i]);
$li_totpat=$li_totpat+abs($io_report->DS->data["patron"][$li_i]);
$li_totalgeneral=$li_totper+$li_totpat;
$la_data[$li_i]=array('nro'=>$li_i,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'personal'=>$li_personal,'patron'=>$li_patron,'total'=>$li_total);
}
$io_report->DS->resetds("cedper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_totper=$io_fun_nomina->uf_formatonumerico($li_totper);
$li_totpat=$io_fun_nomina->uf_formatonumerico($li_totpat);
$li_totalgeneral=$io_fun_nomina->uf_formatonumerico($li_totalgeneral);
uf_print_piecabecera($li_totper,$li_totpat,$li_totalgeneral,$io_pdf); // Imprimimos el fin del reporte
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);
}
unset($io_report);
$li_totrow = $io_report->ds->getRowCount("numsol");
$li_montot = 0;
for ($li_i = 1; $li_i <= $li_totrow && $lb_valido; $li_i++) {
$ls_numsol = $io_report->ds->data["numsol"][$li_i];
$ld_fecemisol = $io_report->ds->data["fecemisol"][$li_i];
$li_monsol = $io_report->ds->data["monsol"][$li_i];
$ls_nombre = $io_report->ds->data["nombre"][$li_i];
$li_montot = $li_montot + $li_monsol;
$li_monsol = number_format($li_monsol, 2, ',', '.');
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
$la_data[$li_i] = array('numsol' => $ls_numsol, 'nombre' => $ls_nombre, 'fecemisol' => $ld_fecemisol, 'monsol' => $li_monsol);
}
$li_montot = number_format($li_montot, 2, ',', '.');
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_piecabecera($li_i, $li_montot, $io_pdf);
// Imprimimos el pie de la cabecera
unset($io_cabecera);
unset($la_data);
$io_report->ds->resetds("numsol");
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>";
}
else
{
$ls_codestpro=$ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3.'-'.$ls_codestpro4.'-'.$ls_codestpro5;
}
$la_data[$li_s]=array('codestpro'=>$ls_codestpro,'denominacion'=>$ls_dencuenta,
'cuenta'=>$ls_spg_cuenta,'monto'=>$ld_monto);
}
uf_print_detalle_cuentas($la_data,&$io_pdf);
unset($la_data);
}
}
}
}
}
}
uf_print_piecabecera($ld_monsubtot,$ld_monimp,$ld_montot,$ls_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_report);
unset($io_funciones);
{// 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_coduniadm,$ls_desuniadm,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_piedetalle($li_totasi,$li_totded,$li_totapo,$li_totnet,$io_pdf); // Imprimimos el pie del detalle
}
}
unset($la_data);
}
$li_totneto=$li_totasignacion-$li_totdeduccion;
$li_totasignacion=$io_fun_nomina->uf_formatonumerico($li_totasignacion);
$li_totdeduccion=$io_fun_nomina->uf_formatonumerico($li_totdeduccion);
$li_totaporte=$io_fun_nomina->uf_formatonumerico($li_totaporte);
$li_totneto=$io_fun_nomina->uf_formatonumerico($li_totneto);
uf_print_piecabecera($li_totasignacion,$li_totdeduccion,$li_totaporte,$li_totneto,$io_pdf); // Imprimimos el pie de la cabecera
$io_report->DS->resetds("minorguniadm");
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);
}
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_s=1;
while(!$io_report->rs_data_detalle->EOF)
{
$ls_cedper=$io_report->rs_data_detalle->fields["cedper"];
$ls_apenomper=$io_report->rs_data_detalle->fields["apeper"].", ". $io_report->rs_data_detalle->fields["nomper"];
$ls_descar=$io_report->rs_data_detalle->fields["descar"];
$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valsal"]));
$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'cargo'=>$ls_descar,'monto'=>$li_valsal);
$li_s++;
$io_report->rs_data_detalle->MoveNext();
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_piecabecera($li_tottra,$li_montot,$io_pdf); // Imprimimos el pie de la cabecera
$io_pdf->stopObject($io_cabecera); // Detener el objeto cabecera
if($li_i<$li_totrow)
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
unset($io_cabecera);
unset($la_data);
}
$li_i++;
$io_report->rs_data->MoveNext();
}
uf_print_firmas(&$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
'asignacion'=>$li_asignacion,
'deduccion'=>$li_deduccion,'neto'=>'');
$li_s++;
$io_report->rs_data_detalle->MoveNext();
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total_neto=$li_totalasignacion-$li_totaldeduccion;
$li_totasi=$li_totasi+$li_totalasignacion;
$li_totded=$li_totded+$li_totaldeduccion;
$li_totapo=$li_totapo+$li_totalaporte;
$li_totgeneral=$li_totgeneral+$li_total_neto;
$li_totalasignacion=number_format($li_totalasignacion,2,",",".");
$li_totaldeduccion=number_format($li_totaldeduccion,2,",",".");
$li_totalaporte=number_format($li_totalaporte,2,",",".");
$li_total_neto=number_format($li_total_neto,2,",",".");
uf_print_piecabecera($li_totalasignacion,$li_totaldeduccion,$li_totalaporte,$li_total_neto,$io_pdf);
}
unset($la_data);
$io_report->rs_data->MoveNext();
}
$li_totasi=number_format($li_totasi,2,",",".");
$li_totded=number_format($li_totded,2,",",".");
$li_totapo=number_format($li_totapo,2,",",".");
$li_totgeneral=number_format($li_totgeneral,2,",",".");
uf_print_piepagina($li_totasi,$li_totded,$li_totapo,$li_totgeneral,$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
