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