$i++;
$ls_cedper=$rs_data->fields["cedper"];
$ls_cedper=number_format($ls_cedper,0,",",".");
$ls_nomper=$rs_data->fields["apeper"].", ".$rs_data->fields["nomper"];
$ls_monto=$rs_data->fields["monto"];
$li_montot=$li_montot+$ls_monto;
$ls_nomaut=$ls_nomper;
$ls_cedaut=$ls_cedper;
$ls_cedaut=number_format($ls_cedaut,0,",",".");
$ls_data[$i]=array('cedper'=>$ls_cedaut,
'nomper'=>$ls_nomper,
'cedaut'=>$ls_cedaut,
'nomaut'=>$ls_nomaut,
'pais'=>"",
'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto));
$rs_data->MoveNext();
}//fin del while
uf_print_detalle($ls_data,&$io_pdf);
$li_montot=$io_fun_nomina->uf_formatonumerico($li_montot);
uf_print_piecabecera($i,$li_montot,$io_pdf);
unset($ls_data);
}
$io_report->io_sql->free_result($rs_data);
if (($lb_valido)&&($rs_data->RecordCount()>0)) // 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
{
{
$ls_codper=$io_report->DS->data["codper"][$li_i];
$ls_nomper=$io_report->DS->data["apeper"][$li_i].", ".$io_report->DS->data["nomper"][$li_i];
$ls_nacper=$io_report->DS->data["nacper"][$li_i];
$ls_cedper=$io_report->DS->data["cedper"][$li_i];
$lb_valido=$io_report->uf_retencionarc_meses($ls_codper,$la_nominas,$li_total,$ls_ano); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
$li_arcacum=0;
$li_islracum=0;
$lb_arc=false;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codisr=$io_report->DS_detalle->data["codisr"][$li_s];
$li_porisr=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["porisr"][$li_s]);
$li_arcacum=$li_arcacum+abs($io_report->DS_detalle->data["arc"][$li_s]);
$li_islracum=$li_islracum+abs($io_report->DS_detalle->data["islr"][$li_s]);
$li_arc=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["arc"][$li_s]));
$li_islr=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["islr"][$li_s]));
$li_arc_acumulado=$io_fun_nomina->uf_formatonumerico($li_arcacum);
$li_isl_acumulado=$io_fun_nomina->uf_formatonumerico($li_islracum);
$ls_mes=strtoupper(substr($io_fecha->uf_load_nombre_mes($ls_codisr),0,3));
if($li_arc<>"0,00")
{
$lb_arc=true;
}
$la_data[$li_s]=array('mes'=>$ls_mes,'arc'=>$li_arc,'porcentaje'=>$li_porisr,'retencion'=>$li_islr,
'arcacum'=>$li_arc_acumulado,'retencionacum'=>$li_isl_acumulado,'datos'=>'');
}
$io_report->DS_detalle->resetds("codper");
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$io_report->rs_data->RecordCount();
$li_i=1;
while((!$io_report->rs_data->EOF)&&($lb_valido))
{
$ls_codconc=$io_report->rs_data->fields["codconc"];
$ls_nomcon=$io_report->rs_data->fields["nomcon"];
$li_tottra=$io_report->rs_data->fields["total"];
$li_montot=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data->fields["monto"]));
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_codconc,$ls_nomcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_listadoconcepto_personalconcepto($ls_codconc,$ls_codperdes,$ls_codperhas,$ls_conceptocero,$ls_coduniadm,
$ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
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);
uf_print_cabecera($io_pdf);
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$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];
$ld_fecnacper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecnacper"][$li_i]);
$ld_fecingper=$io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecingper"][$li_i]);
$li_sueldo=$io_report->DS->data["sueldo"][$li_i];
$li_total=$io_report->DS->data["total"][$li_i];
$li_sueldo_sem=0;
if($li_total>0)
{
$li_sueldo_sem=($li_sueldo/$li_total);
$li_sueldo_sem=(($li_sueldo_sem*12)/52);
}
$li_sueldo_sem=$io_fun_nomina->uf_formatonumerico($li_sueldo_sem);
$la_data[$li_i]=array('nro'=>$li_i,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'fechanacimiento'=>$ld_fecnacper,'fechaingreso'=>$ld_fecingper,'sueldo'=>$li_sueldo_sem);
}
$io_report->DS->resetds("codper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
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();");
$lb_valido=$io_report->uf_pagonomina_conceptopersonal($ls_codper,$ls_conceptocero,$ls_tituloconcepto,$ls_conceptoreporte,$ls_conceptop2); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_res=$io_report->rs_data_detalle->RecordCount();
$li_s=1;
while (!$io_report->rs_data_detalle->EOF)
{
$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
$ls_nomcon=$io_report->rs_data_detalle->fields["nomcon"];
$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
$li_valsal=abs($io_report->rs_data_detalle->fields["valsal"]);
switch($ls_tipsal)
{
case "A":
$li_totalasignacion=$li_totalasignacion + $li_valsal;
$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
$li_deduccion="";
$li_aporte="";
break;
case "V1":
$li_totalasignacion=$li_totalasignacion + $li_valsal;
$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
$li_deduccion="";
$li_aporte="";
break;
case "W1":
$li_totalasignacion=$li_totalasignacion + $li_valsal;
$li_asignacion=$io_fun_nomina->uf_formatonumerico($li_valsal);
$li_deduccion="";
$ls_codconc=$io_report->DS->data["codconc"][$li_i];
$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_codconc,$ls_nomcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_ipasme_aporte_personal($ls_codconc,$ls_codnomdes,$ls_codnomhas,$ls_ano,$ls_mes,$ls_conceptocero,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
$li_emp_total=0;
$li_pat_total=0;
$li_tot_total=0;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
$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
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.60,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_rango,$ls_rango2,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
uf_print_cabecera($ls_codconc,$ls_nomcon,$io_pdf); // Imprimimos la cabecera del registro
$li_totrow=$io_report->DS->getRowCount("cedper");
$li_totper=0;
$li_totpat=0;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$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];
$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->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.1,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$io_report->DS->getRowCount("cedper");
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codper=$io_report->DS->data["codper"][$li_i];
$li_numpre=$io_report->DS->data["numpre"][$li_i];
$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_codtippre=$io_report->DS->data["codtippre"][$li_i];
$ls_destippre=$io_report->DS->data["destippre"][$li_i];
$ls_codconc=$io_report->DS->data["codconc"][$li_i];
$ls_nomcon=$io_report->DS->data["nomcon"][$li_i];
$li_monpre=$io_fun_nomina->uf_formatonumerico($io_report->DS->data["monpre"][$li_i]);
$li_numcuopre=$io_report->DS->data["numcuopre"][$li_i];
$li_monamopre=$io_fun_nomina->uf_formatonumerico($io_report->DS->data["monamopre"][$li_i]);
$li_saldo=($io_report->DS->data["monpre"][$li_i]-$io_report->DS->data["monamopre"][$li_i]);
$li_saldo=$io_fun_nomina->uf_formatonumerico($li_saldo);
$ls_stapre=$io_report->DS->data["stapre"][$li_i];
switch($ls_stapre)
{
case "1":
$ls_stapre="Activo";
break;
case "2":
$ls_stapre="Suspendido";
break;
case "3":
$ls_stapre="Cancelado";
switch($ls_nacper)
{
case "V": // Venezolano
$ls_nacper="Venezolano";
break;
case "E": // Extranjero
$ls_nacper="Extranjero";
break;
}
$ls_desuniadm=$row["desuniadm"];
$li_monto=$io_fun_nomina->uf_formatonumerico($row["monto"]);
$io_numero_letra->setNumero($row["monto"]);
$ls_monto=$io_numero_letra->letra();
$ls_monto=$ls_monto." (".$ls_prefijo." ".$li_monto.")";
$ls_contenido=str_replace("\$ls_dia",$ls_dia_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_mes",$ls_mes_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_ano",$ls_ano_act,$ls_contenido);
$ls_contenido=str_replace("\$ls_nombres",$ls_nomper,$ls_contenido);
$ls_contenido=str_replace("\$ls_apellidos",$ls_apeper,$ls_contenido);
$ls_contenido=str_replace("\$ls_cedula",$ls_cedper,$ls_contenido);
$ls_contenido=str_replace("\$ls_cargo",$ls_descar,$ls_contenido);
$ls_contenido=str_replace("\$ls_profesion",$ls_profesion,$ls_contenido);
$ls_contenido=str_replace("\$ld_fecha_inicio",$ls_fechainicio,$ls_contenido);
$ls_contenido=str_replace("\$ld_fecha_culminacion",$ls_fechafinal,$ls_contenido);
$ls_contenido=str_replace("\$ls_nacionalidad",$ls_nacper,$ls_contenido);
$ls_coduniadm=$ls_minorguniadm."-".$ls_ofiuniadm."-".$ls_uniuniadm."-".$ls_depuniadm."-".$ls_prouniadm;
$ls_desuniadm=$io_report->DS->data["desuniadm"][$li_i];
uf_print_cabecera($ls_coduniadm,$ls_desuniadm,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_resumenconceptounidad_concepto($ls_codconcdes,$ls_codconchas,$ls_coduniadm,$ls_conceptocero,$ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
$li_totasi=0;
$li_totded=0;
$li_totapo=0;
if($lb_valido)
{
$li_totrow_res=$io_report->DS_detalle->getRowCount("codconc");
for($li_s=1;$li_s<=$li_totrow_res;$li_s++)
{
$ls_codconc=$io_report->DS_detalle->data["codconc"][$li_s];
$ls_nomcon=$io_report->DS_detalle->data["nomcon"][$li_s];
$ls_tipsal=rtrim($io_report->DS_detalle->data["tipsal"][$li_s]);
$li_monto=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["monto"][$li_s]));
$li_totalpersonal=number_format($io_report->DS_detalle->data["total"][$li_s],0,"",".");
$ls_cueprecon=rtrim($io_report->DS_detalle->data["cueprecon"][$li_s]);
$ls_cueprepatcon=rtrim($io_report->DS_detalle->data["cueprepatcon"][$li_s]);
switch($ls_tipsal)
{
case "A": // Asignación
$li_totasi=$li_totasi+abs($io_report->DS_detalle->data["monto"][$li_s]);
$la_data[$li_s]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'partida'=>$ls_cueprecon,'personal'=>$li_totalpersonal,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
break;
case "V1": // Asignación
$li_totasi=$li_totasi+abs($io_report->DS_detalle->data["monto"][$li_s]);
$la_data[$li_s]=array('codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'partida'=>$ls_cueprecon,'personal'=>$li_totalpersonal,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
break;
case "15": // Incapacitados
$ls_tipnom="Incapacitados";
break;
}
if($ls_tiporeporte==1)
{
$ls_prefijo="Bs.F.";
}
else
{
$ls_prefijo="Bs.";
}
$ls_telhabper=$io_report->DS_detalle->data["telhabper"][$li_s];
$ls_telmovper=$io_report->DS_detalle->data["telmovper"][$li_s];
$ls_desuniadm=$io_report->DS_detalle->data["desuniadm"][$li_s];
$li_horper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["horper"][$li_s]);
$li_sueper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueper"][$li_s]);
$ls_sueper=$io_numero_letra->letra();
$ls_sueper=$ls_sueper." (".$ls_prefijo." ".$li_sueper.")";
$li_sueintper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueintper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueintper"][$li_s]);
$ls_sueintper=$io_numero_letra->letra();
$ls_sueintper=$ls_sueintper." (".$ls_prefijo." ".$li_sueintper.")";
$li_sueproper=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["sueproper"][$li_s]);
$io_numero_letra->setNumero($io_report->DS_detalle->data["sueproper"][$li_s]);
$ls_sueproper=$io_numero_letra->letra();
$ls_sueproper=$ls_sueproper." (".$ls_prefijo." ".$li_sueproper.")";
$ls_desded=$io_report->DS_detalle->data["desded"][$li_s];
$ls_destipper=$io_report->DS_detalle->data["destipper"][$li_s];
$ls_fecjub=$io_report->DS_detalle->data["fecjubper"][$li_s];
case "1":
$ls_forma="Dpto. en Cuenta";
break;
}
$ls_monto=$row["monpagben"];
$ls_banco=$row["nomban"];
$ls_cuenta=$row["ctaban"];
$ls_nomaut=$row["nomcheben"];
$ls_cedaut=$row["cedaut"];
$ls_cedaut=number_format($ls_cedaut,0,",",".");
$ls_data[$i]=array('cedper'=>$ls_cedper,
'cedben'=>$ls_cedbene,
'cedaut'=>$ls_cedaut,
'nomaut'=>$ls_nomaut,
'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto),
'banco'=>$ls_banco,
'forma'=>$ls_forma,
'cuenta'=>$ls_cuenta);
}//fin del while
uf_print_detalle($ls_data,&$io_pdf);
unset($ls_data);
}
$io_report->io_sql->free_result($rs_data);
if (($lb_valido)&&($li_numrowtot>0)) // 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
else // Imprimimos el reporte
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$io_report->DS->getRowCount("codproy");
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codproy=$io_report->DS->data["codproy"][$li_i];
$ls_nomproy=$io_report->DS->data["nomproy"][$li_i];
$li_tottra=$io_report->DS->data["total"][$li_i];
$li_montot=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS->data["monto"][$li_i]));
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_codproy,$ls_nomproy,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_listadoproyecto_proyectospersonal($ls_codproy,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
$ls_descar=$io_report->DS_detalle->data["descar"][$li_s];
$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["pordiames"][$li_s]));
$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'cargo'=>$ls_descar,'monto'=>$li_valsal);
}
$io_report->DS_detalle->resetds("cedper");
$ls_tipprenom="APORTE PATRONAL";
break;
case "R": // Reporte
$ls_tipprenom="REPORTE";
break;
case "B": // Reintegro de Deducción
$ls_tipprenom="REINTEGRO DE DEDUCCIÓN";
break;
case "E": // Reintegro de Asignación
$ls_tipprenom="REINTEGRO DE ASIGNACIÓN";
break;
}
$li_valprenom=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valprenom"]));
$li_valhis=$io_fun_nomina->uf_formatonumerico(abs($io_report->rs_data_detalle->fields["valhis"]));
$li_s++;
$la_data[$li_s]=array('codigo'=>$ls_codconc,'concepto'=>$ls_nomcon,'signo'=>$ls_tipprenom,'prenomina'=>$li_valprenom,'anterior'=>$li_valhis);
$io_report->rs_data_detalle->MoveNext();
}
$li_total_pre=$li_total_pre+$li_totprenom;
$li_total_his=$li_total_his+$li_totant;
$li_totprenom=$io_fun_nomina->uf_formatonumerico(abs($li_totprenom));
$li_totant=$io_fun_nomina->uf_formatonumerico(abs($li_totant));
if($li_s>0)
{
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)
$io_pdf->ezSetCmMargins(3.6,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
$li_totrow=$rs_data->RecordCount();
$li_totasi=0;
$li_totded=0;
$li_totapo=0;
uf_print_cabecera($io_pdf);
//for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
$li_i=1;
$la_data="";
while ((!$rs_data->EOF)&&($lb_valido))
{
$ls_codconc=$rs_data->fields["codconc"];
$ls_nomcon=$rs_data->fields["nomcon"];
$li_monto=$io_fun_nomina->uf_formatonumerico(abs($rs_data->fields["monto"]));
$ls_tipsal=rtrim($rs_data->fields["tipsal"]);
switch($ls_tipsal)
{
case "A": // Asignación
$li_totasi=$li_totasi+abs($rs_data->fields["monto"]);
$la_data[$li_i]=array('nro'=>$li_i,'codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
break;
case "V1": // Asignación
$li_totasi=$li_totasi+abs($rs_data->fields["monto"]);
$la_data[$li_i]=array('nro'=>$li_i,'codigo'=>$ls_codconc,'nombre'=>$ls_nomcon,'asignacion'=>$li_monto,'deduccion'=>'','aporte'=>'');
break;
case "W1": // Asignación
$li_totasi=$li_totasi+abs($io_report->DS->data["monto"][$li_i]);
$ls_total_mes=0;
for ($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$ls_nomina=$io_report->DS_nominas->data["codnom"][$li_i];
$ls_desnom=$io_report->DS_nominas->data["desnom"][$li_i];
$ls_banco=$io_report->DS_nominas->data["codban"][$li_i];
$ls_cuenta=$io_report->DS_nominas->data["codcueban"][$li_i];
$ls_desban=$io_report->DS_nominas->data["nomban"][$li_i];
$lb_valido=$io_report->uf_depositos_bancarios($ls_nomina,$ls_banco, $ls_des_periodo, $ls_dhas_periodo,$ls_cuenta);
$li_depositos=$io_report->DS_depositos->getRowCount("codnom");
$ls_monto_mes=0;
if ($ls_nomina_aux!=$ls_nomina)
{
$ls_nomina_aux=$ls_nomina;
uf_total_mes_nomina($io_report->DS_nominas->data["desnom"][$li_i-1],
$io_fun_nomina->uf_formatonumerico($ls_total_mes), &$io_pdf);
$ls_total_mes=0;
}
for ($li_j=1;$li_j<=$li_depositos;$li_j++)
{
$ls_momto_neto_ahorro=$io_report->DS_depositos->data["monnetresahorro"][$li_j];
$ls_priquin_ahorro=$io_report->DS_depositos->data["priquiresahorro"][$li_j];
$ls_segquin_ahorro=$io_report->DS_depositos->data["segquiresahorro"][$li_j];
$ls_momto_neto_corriente=$io_report->DS_depositos->data["monnetrescorriente"][$li_j];
$ls_priquin_corriente=$io_report->DS_depositos->data["priquirescorriente"][$li_j];
$ls_segquin_corriente=$io_report->DS_depositos->data["segquirescorriente"][$li_j];
$ls_monto_mes=$ls_momto_neto_ahorro+$ls_momto_neto_corriente;
$ls_monto_priqui=$ls_priquin_ahorro+$ls_priquin_corriente;
$ls_monto_segqui=$ls_segquin_ahorro+$ls_segquin_corriente;
$ls_total_mes=$ls_total_mes+$ls_monto_mes;
$ls_data[$li_j]=array('monto mensual'=>$io_fun_nomina->uf_formatonumerico($ls_monto_mes),
$ls_segquin_ahorro=$io_report->DS_depositos->data["segquinahorro"][$li_i];
$ls_momto_neto_corriente=$io_report->DS_depositos->data["monto_neto_corriente"][$li_i];
$ls_priquin_corriente=$io_report->DS_depositos->data["priquincorriente"][$li_i];
$ls_segquin_corriente=$io_report->DS_depositos->data["segquincorriente"][$li_i];
if ($ls_nomina!=$ls_nom_aux)
{
$ls_nom_aux=$ls_nomina;
$ls_banco_aux="";
$io_pdf->ezSetDy(-10);
uf_print_cabecera_nomina($ls_nomina,$ls_desnom,&$io_pdf);
if ($ls_banco!=$ls_banco_aux)
{
$ls_banco_aux=$ls_banco;
uf_print_cabecera_banco($ls_banco,$ls_desban,&$io_pdf);
}
uf_print_detalle($ls_cuenta,$io_fun_nomina->uf_formatonumerico($ls_momto_neto_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_priquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_segquin_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_momto_neto_corriente),
$io_fun_nomina->uf_formatonumerico($ls_priquin_corriente),
$io_fun_nomina->uf_formatonumerico($ls_segquin_corriente),&$io_pdf);
}
else
{
if ($ls_banco!=$ls_banco_aux)
{
$ls_banco_aux=$ls_banco;
uf_print_cabecera_banco($ls_banco, $ls_desban,&$io_pdf);
}
uf_print_detalle($ls_cuenta,$io_fun_nomina->uf_formatonumerico($ls_momto_neto_ahorro),
$io_fun_nomina->uf_formatonumerico($ls_priquin_ahorro),
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_programatica=$io_report->DS_detalle->data["programatica"][$li_i];
$io_fun_nomina->uf_formato_estructura($ls_programatica,$ls_codest1,$ls_codest2,$ls_codest3,$ls_codest4,$ls_codest5);
$ls_programatica=$ls_codest1.'-'.$ls_codest2.'-'.$ls_codest3;
switch($ls_modalidad)
{
case "2": // Modalidad por Programa
$ls_programatica=$ls_codest1.'-'.$ls_codest2.'-'.$ls_codest3.'-'.$ls_codest4.'-'.$ls_codest5;
break;
}
$ls_cueprecon=$io_report->DS_detalle->data["cueprecon"][$li_i];
$ls_denominacion=$io_report->DS_detalle->data["denominacion"][$li_i];
$li_total=abs($io_report->DS_detalle->data["total"][$li_i]);
$li_totalpresupuesto=$li_totalpresupuesto+$li_total;
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
$la_data[$li_i]=array('programatica'=>$ls_programatica,'estadisticos'=>$ls_cueprecon,
'denominacion'=>$ls_denominacion,'total'=>$li_total);
}
$io_report->DS_detalle->resetds("cueprecon");
if($li_totrow>0)
{
$lb_print=true;
uf_print_cabecera_presupuesto("Conceptos",$io_pdf); // Imprimimos la cabecera del Presupuesto
uf_print_detalle_presupuesto($la_data,$io_pdf); // Imprimimos el detalle presupuestario
$li_totalpresupuesto=$io_fun_nomina->uf_formatonumerico($li_totalpresupuesto);
uf_print_pie_cabecera_presupuesto($li_totalpresupuesto,$io_pdf); // imprimimos los totales presupuestario
unset($la_data);
}
//-------------------------------------------------------------------------------------------------------------------------------
$ls_uni3,$ls_uni4,$ls_uni5);
$li_contar=$io_report->ds_componente->getRowCount("codnom");
$ls_cantidad=0;
$aux_corper="";
for ($li_l=1;$li_l<=$li_contar;$li_l++)
{
$ls_persona=$io_report->ds_componente->data["codper"][$li_l];
if ($ls_persona!=$aux_corper)
{
$aux_corper=$ls_persona;
$ls_cantidad=$ls_cantidad+1;
}
}
$total_cantidad=$total_cantidad+$ls_cantidad;
$ls_data[$li_j]=array('unidad'=>$ls_desuniadm,'numero'=>$ls_cantidad,
'monto'=>$io_fun_nomina->uf_formatonumerico($ls_monto));
}///fin del for
if ($li_unidad>0)
{
uf_print_detalle($ls_data,&$io_pdf);
uf_totales_nominas($io_fun_nomina->uf_formatonumerico($total_monto),$total_cantidad,$io_pdf);
unset($ls_data);
$io_report->uf_pagos_unidad_totales($ls_codnomdes,$ls_codnomhas, $ls_des_periodo,
$ls_dhas_periodo,$ls_unidaddes,$ls_unidadhas);
}
}///fin del for
$li_total_unidad=$io_report->DS_nominas->getRowCount("codnom");
$ls_cant_t=0;
$ls_tot_uni=0;
$ls_sigcon=$io_report->DS->data["sigcon"][$li_i];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_codconc,$ls_nomcon,$ls_sigcon,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_consolidadoconcepto_personal($ls_codnomdes,$ls_codnomhas,$ls_codconc,$ls_codperdes,
$ls_codperhas,$ls_conceptocero,$ls_personaldes,$ls_personalhas,
$ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_montot=0;
$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
$ls_apenomper=$io_report->DS_detalle->data["apeper"][$li_s].", ". $io_report->DS_detalle->data["nomper"][$li_s];
$li_montot=$li_montot + abs($io_report->DS_detalle->data["total"][$li_s]);
$li_valsal=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["total"][$li_s]));
$la_data[$li_s]=array('nro'=>$li_s,'cedula'=>$ls_cedper,'nombre'=>$ls_apenomper,'monto'=>$li_valsal);
}
$io_report->DS_detalle->resetds("cedper");
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_montot=$io_fun_nomina->uf_formatonumerico(abs($li_montot));
$li_s=$li_s-1;
uf_print_piecabecera($li_s,$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);
}
$ls_tipcueban="A"; // Buscamos las cuentas de ahorro
if (($ls_tipocuenta == '') || ($ls_tipocuenta == $ls_tipcueban))
{
$lb_valido=$io_report->uf_listadobanco_personal($ls_codban,$ls_suspendido,$ls_tipcueban,$ls_quincena,$ls_subnomdes,
$ls_subnomhas,$ls_codperdes,$ls_codperhas,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_subtot=0;
$li_totrow_det=$io_report->rs_data_detalle->RecordCount();
$li_s=0;
while(!$io_report->rs_data_detalle->EOF)
{
$ls_cedper=$io_report->rs_data_detalle->fields["cedper"];
$ls_nomper=$io_report->rs_data_detalle->fields["apeper"].", ".$io_report->rs_data_detalle->fields["nomper"];
$li_subtot=$li_subtot+$io_report->rs_data_detalle->fields["monnetres"];
$li_monnetres=$io_fun_nomina->uf_formatonumerico($io_report->rs_data_detalle->fields["monnetres"]);
$ls_codcueban=$io_report->rs_data_detalle->fields["codcueban"];
//$la_data[$li_s]=array(($li_s+1),$ls_cedper,$ls_nomper,$ls_codcueban,$li_monnetres);
$la_data[$li_s]=array(($li_s+1),$ls_cedper,$ls_nomper,$li_monnetres);
$li_s++;
$io_report->rs_data_detalle->MoveNext();
}
if(!empty($la_data))
{
$li_total=$li_total+$li_subtot;
$li_subtot=$io_fun_nomina->uf_formatonumerico($li_subtot);
$la_data[$li_s]=array('','','','CUENTAS DE AHORRO ',$li_subtot);
$io_tcpdf->uf_print_detalle_listadobanco($la_data); // Imprimimos el detalle
$li_totalpersonas=$li_totalpersonas+($li_s-1);
}
unset($la_data);
$li_poraum=str_replace(",",".",$li_poraum);
$lb_valido=true;
for($li_i=1;($li_i<=$li_totrows)&&($lb_valido);$li_i++)
{
$ls_codper=$_POST["txtcodper".$li_i];
$ls_nomper=$_POST["txtnomper".$li_i];
$li_sueact=$_POST["txtsueper".$li_i];
if($ls_tipaum=="P") // Por Porcentaje
{
if($li_poraum>0)
{
$li_sueldo=$li_sueact;
$li_sueldo=str_replace(".","",$li_sueldo);
$li_sueldo=str_replace(",",".",$li_sueldo);
$li_suenue=$li_sueldo+(($li_sueldo*$li_poraum)/100);
$li_suenue=$io_fun_nomina->uf_formatonumerico($li_suenue);
}
else
{
$li_suenue=$li_sueact;
}
}
if($ls_tipaum=="M") // Por Monto
{
if($li_monaum>0)
{
$li_sueldo=$li_sueact;
$li_sueldo=str_replace(".","",$li_sueldo);
$li_sueldo=str_replace(",",".",$li_sueldo);
$li_suenue=$li_sueldo+$li_monaum;
$li_suenue=$io_fun_nomina->uf_formatonumerico($li_suenue);
}
$ls_monto=$row["monpagben"];
$ls_banco=$row["nomban"];
$ls_cuenta=$row["ctaban"];
if(($row["nomcheben"]=="")&&($row["cedaut"]==""))
{
$i++;
$ls_nomaut=$ls_nombene;
$ls_cedaut=$ls_cedbene;
$ls_cedaut=number_format($ls_cedaut,0,",",".");
$ls_data[$i]=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_neto1=$ld_neto1 + $ls_monto;
}
else
{
$j++;
$ls_nomaut=$row["nomcheben"];
$ls_cedaut=$row["cedaut"];
$ls_cedaut=number_format($ls_cedaut,0,",",".");
$ls_data2[$j]=array('cedben'=>$ls_cedbene,
'cedper'=>$ls_cedper,
'cedaut'=>$ls_cedaut,
'nomaut'=>$ls_nomaut,
$li_numcuopre=$io_report->DS_detalle->data["numcuopre"][$li_s];
$ls_stapre=$io_report->DS_detalle->data["stapre"][$li_s];
switch($ls_stapre)
{
case "1":
$ls_stapre="Activo";
break;
case "2":
$ls_stapre="Suspendido";
break;
case "3":
$ls_stapre="Cancelado";
break;
}
$li_saldo=($io_report->DS_detalle->data["monpre"][$li_s]-$io_report->DS_detalle->data["monamopre"][$li_s]);
$li_saldo=$io_fun_nomina->uf_formatonumerico($li_saldo);
$ld_fecpre=$io_funciones->uf_convertirfecmostrar($io_report->DS_detalle->data["fecpre"][$li_s]);
$li_monpre=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["monpre"][$li_s]));
$li_monamopre=$io_fun_nomina->uf_formatonumerico(abs($io_report->DS_detalle->data["monamopre"][$li_s]));
$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));
$ls_codest5=$io_report->DS->data["codestpro5"][$li_i];
$ls_programatica=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5;
$io_fun_nomina->uf_formato_estructura($ls_programatica,$ls_codest1,$ls_codest2,$ls_codest3,$ls_codest4,$ls_codest5);
$ls_programatica=$ls_codest1.'-'.$ls_codest2.'-'.$ls_codest3;
switch($ls_modalidad)
{
case "2": // Modalidad por Programa
$ls_programatica=$ls_codest1.'-'.$ls_codest2.'-'.$ls_codest3.'-'.$ls_codest4.'-'.$ls_codest5;
break;
}
$ls_cueprecon=$io_report->DS->data["spg_cuenta"][$li_i];
$ls_denominacion=$io_report->DS->data["denominacion"][$li_i];
$li_total=$io_report->DS->data["monto"][$li_i];
$li_totalpresupuesto=$li_totalpresupuesto+$li_total;
$li_total=$io_fun_nomina->uf_formatonumerico($li_total);
$la_data[$li_i]=array('programatica'=>$ls_programatica,'estadisticos'=>$ls_cueprecon,
'denominacion'=>$ls_denominacion,'total'=>$li_total);
}
$io_report->DS->resetds("spg_cuenta");
if($li_totrow>0)
{
uf_print_cabecera_presupuesto($io_pdf); // Imprimimos la cabecera de presupuesto
uf_print_detalle_presupuesto($la_data,$io_pdf); // Imprimimos el detalle presupuestario
$li_totalpresupuesto=$io_fun_nomina->uf_formatonumerico($li_totalpresupuesto);
uf_print_pie_cabecera_presupuesto($li_totalpresupuesto,$io_pdf); // imprimimos los totales presupuestario
unset($la_data);
}
//-------------------------------------------------------------------------------------------------------------------------------
//--------------------------------------------- Imprimir el detalle Contable------------------------------------------------
{
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf=new Cezpdf('LETTER','portrait'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.1,2.5,3,3); // Configuración de los margenes en centímetros
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,$io_pdf); // Imprimimos el encabezado de la página
$io_pdf->ezStartPageNumbers(550,50,10,'','',1); // Insertar el número de página
while((!$rs_data->EOF)&&($lb_valido))
{
$ls_codper=$rs_data->fields["codper"];
$ls_cedper=$rs_data->fields["cedper"];
$ls_nomper=$rs_data->fields["apeper"].", ".$rs_data->fields["nomper"];
$ld_fecingper=$io_funciones->uf_convertirfecmostrar($rs_data->fields["fecingper"]);
$ls_desuniadm=$rs_data->fields["desuniadm"];
$li_sueintvac=$io_fun_nomina->uf_formatonumerico($rs_data->fields["sueintvac"]);
$li_sueintdia=($rs_data->fields["sueintvac"]/30);
$li_sueintdia=$io_fun_nomina->uf_formatonumerico($li_sueintdia);
$ld_fecdisvac=$io_funciones->uf_convertirfecmostrar($rs_data->fields["fecdisvac"]);
$ld_fecreivac=$io_funciones->uf_convertirfecmostrar($rs_data->fields["fecreivac"]);
$li_diavac=$rs_data->fields["diavac"];
$ls_codvac=$rs_data->fields["codvac"];
$ls_descar=$rs_data->fields["descar"];
uf_print_cabecera($ls_cedper,$ls_nomper,$ld_fecingper,$ls_desuniadm,$li_sueintvac,$ld_fecdisvac,$ld_fecreivac,
$li_diavac,$ls_codvac,$ls_descar,$li_sueintdia,$ls_sueint,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_relacionvacacion_concepto($ls_codper,$ls_codvac,$ls_conceptocero,$ls_tituloconcepto); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totasig=0;
$li_totdedu=0;
$li_totapor=0;
uf_print_cabecera($ls_nomban,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
//-------------------------------------------Buscamos las cuentas de ahorro---------------------------------------------
$ls_tipcueban="A"; // Buscamos las cuentas de ahorro
$lb_valido=$io_report->uf_listadobanco_personal($ls_codban,$ls_suspendido,$ls_tipcueban,$ls_quincena,$ls_codnomdes,
$ls_codnomhas,$ls_codperdes,$ls_codperhas,$ls_subnomdes,$ls_subnomhas,$ls_orden); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_subtot=0;
$li_totrow_det=$io_report->DS_detalle->getRowCount("cedper");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$li_nro=$li_nro+1;
$ls_cedper=$io_report->DS_detalle->data["cedper"][$li_s];
$ls_nomper=$io_report->DS_detalle->data["apeper"][$li_s].", ".$io_report->DS_detalle->data["nomper"][$li_s];
$li_subtot=$li_subtot+$io_report->DS_detalle->data["monnetres"][$li_s];
$li_monnetres=$io_fun_nomina->uf_formatonumerico($io_report->DS_detalle->data["monnetres"][$li_s]);
$ls_codcueban=$io_report->DS_detalle->data["codcueban"][$li_s];
$la_data[$li_s]=array('nro'=>$li_nro,'cedula'=>$ls_cedper,'nombre'=>$ls_nomper,'monto'=>$li_monnetres, 'cuenta'=>$ls_codcueban);
}
$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="Cuentas Ahorro";
$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);
}
//-------------------------------------------Buscamos las cuentas corrientes---------------------------------------------
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
{
switch($ls_quincena)
{
case "1": // primera quincena;
$li_asig=$li_asig+1;
$ls_codconc="----------";
$ls_nomcon="ADELANTO 1ra QUINCENA";
$li_valsal=round($li_total/2,2);
$li_toting=$li_toting+$li_valsal;
$li_valsal=$io_fun_nomina->uf_formatonumerico($li_valsal);
$la_data_a[$li_asig]=array('denominacion'=>$ls_nomcon,'valor'=>$li_valsal);
break;
case "2": // segunda quincena;
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_tipsal=rtrim($io_report->DS_detalle->data["tipsal"][$li_s]);
if(($ls_tipsal=="A") || ($ls_tipsal=="V1") || ($ls_tipsal=="V2") || ($ls_tipsal=="R")) // Buscamos las asignaciones
{
$li_asig=$li_asig+1;
$ls_codconc=$io_report->DS_detalle->data["codconc"][$li_s];
$ls_nomcon=$io_report->DS_detalle->data["nomcon"][$li_s];
if ($ls_tipsal!="R")
{
$li_toting=$li_toting+abs($io_report->DS_detalle->data["valsal"][$li_s]);
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
{
switch($ls_quincena)
{
case "1": // primera quincena;
$li_asig=$li_asig+1;
$ls_codconc="----------";
$ls_nomcon="ADELANTO 1ra QUINCENA";
$li_valsal=round($li_total/2,2);
$li_toting=$li_toting+$li_valsal;
$li_valsal=$io_fun_nomina->uf_formatonumerico($li_valsal);
$la_data_a[$li_asig]=array('denominacion'=>$ls_nomcon,'valor'=>$li_valsal);
break;
case "2": // segunda quincena;
while(!$io_report->rs_data_detalle->EOF)
{
$ls_tipsal=rtrim($io_report->rs_data_detalle->fields["tipsal"]);
if(($ls_tipsal=="A") || ($ls_tipsal=="V1") || ($ls_tipsal=="V2") || ($ls_tipsal=="R")) // Buscamos las asignaciones
{
$li_asig=$li_asig+1;
$ls_codconc=$io_report->rs_data_detalle->fields["codconc"];
$ls_nomcon=$io_report->rs_data_detalle->fields["nomcon"];
if ($ls_tipsal!="R")
{
$li_toting=$li_toting+abs($io_report->rs_data_detalle->fields["valsal"]);
switch ($ls_tipo)
{
case "01":
$ls_ticla="No Calificado";
break;
case "02":
$ls_ticla="Calificado";
break;
case "03":
$ls_ticla="Supervisor";
break;
}
if (($ano_aux==$ls_anovig)&&($gaceta_aux==$ls_nrogac))
{
$ls_data[$li_i]=array('grado'=>$ls_grado,'suemin'=>$io_fun_nomina->uf_formatonumerico($ls_suemin),
'suemax'=>$io_fun_nomina->uf_formatonumerico($ls_suemax),
'obscal'=>$ls_observacion,'tipo'=>$ls_ticla);
}
else
{
uf_print_cabecera($ls_anovig,$ls_nrogac,&$io_pdf);
$ls_data[$li_i]=array('grado'=>$ls_grado,'suemin'=>$io_fun_nomina->uf_formatonumerico($ls_suemin),
'suemax'=>$io_fun_nomina->uf_formatonumerico($ls_suemax),
'obscal'=>$ls_observacion,'tipo'=>$ls_ticla);
$ano_aux=$ls_anovig;
$gaceta_aux=$ls_nrogac;
}
uf_print_detalle($ls_data,&$io_pdf);
unset($ls_data);
}