$li_reg=1;
$li_i=1;
while((!$io_report->rs_data->EOF)&&($lb_valido))
{
$li_toting=0;
$li_totded=0;
$ls_codper=$io_report->rs_data->fields["codper"];
$ls_cedper=$io_report->rs_data->fields["cedper"];
$ls_nomper=$io_report->rs_data->fields["apeper"].", ".$io_report->rs_data->fields["nomper"];
$ls_descar=$io_report->rs_data->fields["descar"];
$ls_codcueban=$io_report->rs_data->fields["codcueban"];
$li_total=$io_report->rs_data->fields["total"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
{
uf_print_cabecera1($ls_cedper,$ls_nomper,$ls_descar,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
}
else
{
uf_print_cabecera2($ls_cedper,$ls_nomper,$ls_descar,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codper,$ls_conceptocero,$ls_conceptop2,
$ls_conceptoreporte,$ls_tituloconcepto,$ls_quincena,&$io_report->rs_data_detalle); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_asig=0;
$li_dedu=0;
if($li_adelanto==1)// Utiliza el adelanto de quincena
{
$ls_cedaut=number_format($ls_cedaut,0,",",".");
$ls_data2[$j]=array('cedben'=>$ls_cedbene,
'cedper'=>$ls_cedper,
'cedaut'=>$ls_cedaut,
'nomaut'=>$ls_nomaut,
'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto),
'banco'=>$ls_banco,
'forma'=>$ls_forma,
'cuenta'=>$ls_cuenta);
$ld_neto2=$ld_neto2 + $ls_monto;
}
}//fin del while
if($i > 0)
{
uf_print_cabecera1($io_pdf,$io_encabezado);
uf_print_detalle($ls_data,$io_pdf);
$io_fun_nomina->uf_formatonumerico($ld_neto1);
uf_print_total($i,$ld_neto1,$io_pdf);
if($j > 0)
{
$io_pdf->stopObject($io_encabezado);
$io_pdf->ezNewPage(); // Insertar una nueva página
$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
}
}
if($j > 0)
{
uf_print_cabecera2($io_pdf);
uf_print_detalle($ls_data2,$io_pdf);
$io_fun_nomina->uf_formatonumerico($ld_neto2);
$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;
}
$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);
if($li_reg==1)
{
uf_print_cabecera1($ls_cedper,$ls_nomper,$ls_descar,$ls_desuniadm,$li_sueper,$ld_fecingper,$ls_nomban,$ls_codcueban,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera1($li_toting,$li_totded,$li_totnet,$io_pdf); // Imprimimos pie de la cabecera
}
else
{
uf_print_cabecera2($ls_cedper,$ls_nomper,$ls_descar,$ls_desuniadm,$li_sueper,$ld_fecingper,$ls_nomban,$ls_codcueban,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera2($li_toting,$li_totded,$li_totnet,$io_pdf); // Imprimimos pie de la cabecera
}
$io_report->DS_detalle->resetds("codconc");
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)&&($li_reg==2))
{
$li_toting=0;
$li_totded=0;
$ls_codper=$io_report->rs_data->fields["codper"];
$ls_cedper=$io_report->rs_data->fields["cedper"];
$ls_nomper=$io_report->rs_data->fields["apeper"].", ".$io_report->rs_data->fields["nomper"];
$ls_descar=$io_report->rs_data->fields["descar"];
$ls_codcueban=$io_report->rs_data->fields["codcueban"];
$li_total=$io_report->rs_data->fields["total"];
$ls_unidadadmin=$io_report->rs_data->fields["minorguniadm"].$io_report->rs_data->fields["ofiuniadm"].
$io_report->rs_data->fields["uniuniadm"].$io_report->rs_data->fields["depuniadm"].
$io_report->rs_data->fields["prouniadm"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
{
uf_print_cabecera1($ls_codper,$ls_cedper,$ls_nomper,$ls_codcueban,$ls_unidadadmin,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
}
else
{
uf_print_cabecera2($ls_codper,$ls_cedper,$ls_nomper,$ls_codcueban,$ls_unidadadmin,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codper,$ls_conceptocero,$ls_conceptop2,
$ls_conceptoreporte,$ls_tituloconcepto,$ls_quincena); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_asig=0;
$li_dedu=0;
if($li_adelanto==1)// Utiliza el adelanto de quincena
{
$ls_categoria=$io_report->DS->data["descat"][$li_i];
$ls_tipopago=$io_report->DS->data["tipcuebanper"][$li_i];
$ls_fecleypen=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecleypen"][$li_i]);
switch($ls_tipopago)
{
case "A":
$ls_forma="CUENTA DE AHORRO";
break;
case "C":
$ls_forma="CUENTA CORRIENTE";
break;
case " ":
break;
}
uf_print_cabecera1($io_cabecera,$ls_codcueban,$ls_banco,$ls_ano,
$ls_categoria,$ls_forma,$ls_cedben, $ls_nomben, $ls_apeben, $ls_parentesco, $io_pdf); // Imprimimos la cabecera del registro
if ($ls_cedben!=$ls_cedcaut)
{
uf_print_autorizado($ls_cedcaut,$ls_nomaut,&$io_pdf);
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codnom,$ld_fecdesper,$ld_fechasper,$ls_codper,
$ls_conceptocero,$ls_conceptop2,$ls_conceptoreporte,
$ls_tituloconcepto); // Obtenemos el detalle del reportedel Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codconc");
$li_asig=0;
$li_dedu=0;
if($li_adelanto==1)// Utiliza el adelanto de quincena
{
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$li_toting=0;
$li_totded=0;
$ls_codper=$io_report->rs_data->fields["codper"];
$ls_cedper=$io_report->rs_data->fields["cedper"];
$ls_nomper=$io_report->rs_data->fields["apeper"].", ".$io_report->rs_data->fields["nomper"];
$ls_descar=$io_report->rs_data->fields["descar"];
$ls_desubifis = $io_report->rs_data->fields["desubifis"];
$ls_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->rs_data->fields["fecingper"]);
$ls_codcueban=$io_report->rs_data->fields["codcueban"];
$li_total=$io_report->rs_data->fields["total"];
$li_sueper = $io_report->rs_data->fields["sueper"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
{
uf_print_cabecera1($ls_cedper,$ls_nomper,$ls_descar,$ls_desnom,$ls_fecingper,&$io_cabecera,&$io_pdf,$ls_desubifis,$li_sueper); // Imprimimos la cabecera del registro
}
else
{
uf_print_cabecera2($ls_cedper,$ls_nomper,$ls_descar,$ls_desnom,$ls_fecingper,&$io_cabecera,&$io_pdf,$ls_desubifis,$li_sueper); // Imprimimos la cabecera del registro
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codper,$ls_conceptocero,$ls_conceptop2,
$ls_conceptoreporte,$ls_tituloconcepto,$ls_quincena); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_asig=0;
$li_dedu=0;
if($li_adelanto==1)// Utiliza el adelanto de quincena
if ($li_totrow>0)
{
uf_print_encabezado_pagina($ls_titulo,$io_pdf); // Imprimimos el encabezado de la página
}
else
{
$lb_valido=false;
}
$la_dataP=array();
$ls_aux=0;
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_aux++;
$ls_codcomp=$io_report->ds_componente->data["codcom"][$li_i];//// print $ls_codcomp;
$ls_descomp=$io_report->ds_componente->data["descom"][$li_i];
uf_print_cabecera1($ls_codcomp, $ls_descomp, &$io_pdf);
uf_print_cabecera(&$io_pdf);
$lb_valido=$io_report->uf_listadocomponente_personal($ls_codnomdes,$ls_codnomhas,$ls_codperdes,$ls_codperhas,$ls_activo,
$ls_egresado,$ls_causaegreso,$ls_activono,$ls_vacacionesno,
$ls_suspendidono,$ls_egresadono,$ls_masculino,$ls_femenino,
$ls_codcomp,$ls_orden);
$li_comp=$io_report->DS->getRowCount("codcom");
for($li_j=1;(($li_j<=$li_comp)&&($lb_valido));$li_j++)
{
$ls_rango=$io_report->DS->data["desrango"][$li_j];
$ls_cedula=$io_report->DS->data["cedper"][$li_j];
$ls_cedula=number_format($ls_cedula,0,",",".");
$ls_nombre=$io_report->DS->data["nomper"][$li_j];
$ls_apellido=$io_report->DS->data["apeper"][$li_j];
$ls_rac=$io_report->DS->data["rac"][$li_j];
$ls_asicar=$io_report->DS->data["denasicar"][$li_j];
$ls_compensacion=$ls_valor;
$io_report->uf_obtener_valor_concepto($ls_codper,'0000000012',&$ls_valor);//////decreto 5318
$ls_prima_prof=$ls_valor;
$io_report->uf_obtener_valor_concepto($ls_codper,'0000000005',&$ls_valor);//////prima antiguedad empleado
$ls_prima_ant=$ls_valor;
$io_report->uf_obtener_valor_concepto($ls_codper,'0000000013',&$ls_valor);//////prima antiguedad empleado
$ls_concepto13=$ls_valor;
$total=$li_sueper+$ls_compensacion+$ls_prima_prof+$ls_prima_ant+$ls_concepto13;
//--------------------------------------------------------------------------------------------------------------------
uf_print_encabezado_pagina1($ls_titulo,$ls_desnom,$ls_periodo,$ls_desuniadm,$io_pdf); // Imprimimos el encabezado de la página
if($li_reg==1)
{
uf_print_cabecera1($ls_codper,$ls_cedper,$ls_nomper,$ls_descar,$ls_codcueban,$ls_desuniadm,$ld_fecingper,
number_format($li_sueper,2,",","."),$ls_desnom,$ls_tipo,$ls_banco,
$io_fun_nomina->uf_formatonumerico(abs($ls_compensacion)),
$io_fun_nomina->uf_formatonumerico(abs(0)),
$io_fun_nomina->uf_formatonumerico(abs($ls_prima_prof)),
$io_fun_nomina->uf_formatonumerico(abs($ls_prima_ant+$ls_concepto13)),
$io_fun_nomina->uf_formatonumerico(abs($total)),
$ls_agencia,$io_pdf); // Imprimimos la cabecera del registro
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codper,$ls_conceptocero,$ls_conceptop2,
$ls_conceptoreporte,$ls_tituloconcepto,$ls_quincena); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_asig=0;
$li_dedu=0;
$li_apor=0;
if($li_adelanto==1)// Utiliza el adelanto de quincena
switch($ls_tipopago)
{
case "A":
$ls_forma="CUENTA DE AHORRO";
break;
case "C":
$ls_forma="CUENTA CORRIENTE";
break;
case " ":
break;
}
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
{
uf_print_cabecera1($ls_cedper,$ls_nomper,$io_cabecera,$ls_codcueban,$ls_banco,$ls_ano,$ls_categoria,$ls_forma,$io_pdf); // Imprimimos la cabecera del registro
}
$lb_valido=$io_report->uf_recibopago_conceptopersonal($ls_codper,$ls_conceptocero,$ls_conceptop2,
$ls_conceptoreporte,$ls_tituloconcepto,$ls_quincena); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_asig=0;
$li_dedu=0;
$ls_cuota="";
if($li_adelanto==1)// Utiliza el adelanto de quincena
{
switch($ls_quincena)
{
case "1": // primera quincena;
$li_asig=$li_asig+1;
