function uf_print_encabezado_pagina($as_titulo,$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_encabezado_pagina
// Access: private
// Arguments: as_titulo1,as_titulo2,as_titulo3,as_titulo4 // Título del Reporte
// io_pdf // Instancia de objeto pdf
// Description: Función que imprime los encabezados por página
// Creado Por: Ing. María Beatriz Unda
// Fecha Creación: 02/08/2008
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_encabezado=$io_pdf->openObject();
$io_pdf->saveState();
$io_pdf->setStrokeColor(0,0,0);
$io_pdf->addJpegFromFile('../../shared/imagebank/'.$_SESSION["ls_logo"],80,500,$_SESSION["ls_width"],$_SESSION["ls_height"]); // Agregar Logo
$io_pdf->addText(630,560,8,date("d/m/Y")); // Agregar la Fecha
$io_pdf->addText(630,552,8,date("h:i a")); // Agregar la Hora
$io_pdf->ezSetDy(5);
$la_data=array(array('titulo1'=>'<b>'.$as_titulo.'</b>'));
$la_columnas=array('titulo1'=>'');
$la_config=array('showHeadings'=>0, // Mostrar encabezados
'fontSize' => 14, // Tamaño de Letras
'titleFontSize' => 12, // Tamaño de Letras de los títulos
'showLines'=>0, // Mostrar Líneas
'shaded'=>0, // Sombra entre líneas
'width'=>570, // Ancho de la tabla
'maxWidth'=>570, // Ancho Máximo de la tabla
'xOrientation'=>'center', // Orientación de la tabla
'cols'=>array('titulo1'=>array('justification'=>'center','width'=>570))); // Justificación y ancho de la columna
$io_pdf->ezTable($la_data,$la_columnas,'',$la_config);
unset($la_data);
unset($la_columnas);
unset($la_config);
uf_print_cabecera($io_pdf);
$io_pdf->restoreState();
$io_pdf->closeObject();
$io_pdf->addObject($io_encabezado,'all');
}// end function uf_print_encabezado_pagina
'acum_eject'=>number_format($ld_total_c4_bsf,2,",","."),
'varia_abs'=>number_format($ld_total_c5_bsf,2,",","."),
'varia_porc'=>number_format($ld_total_c6_bsf,2,",","."),
'varia_abs_acum'=>number_format($ld_total_c7_bsf,2,",","."),
'varia_porc_acum'=>number_format($ld_total_c8_bsf,2,",","."),
'responsable'=>"",
'reprog_prox_mes'=>number_format($ld_total_c9_bsf,2,",","."));
}
}//if
}//for
if(!$lb_valido_proyectos)
{
uf_print_titulo_reporte($li_ano,$ls_mes,"Mensual",$io_pdf);
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);
}
$i = $i + 1;
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);
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>";
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);
$li_s++;
$io_report->rs_data_detalle->MoveNext();
$li_totfil=$li_totfil+$li_fila;
$li_inicio=$li_len-$li_totfil;
if($li==$li_total)
{
$as_cuenta=substr($ls_cuenta_ant,$li_inicio,$li_fila);
}
else
{
$as_cuenta=substr($ls_cuenta_ant,$li_inicio,$li_fila)."-".$as_cuenta;
}
}
$li_fila=$ia_niveles_scg[1]+1;
$as_cuenta=substr($ls_cuenta_ant,0,$li_fila)."-".$as_cuenta;
uf_print_cabecera($as_cuenta,$ls_denominacion,$ld_saldo_ant,$io_pdf);
uf_print_detalle($la_data,$io_pdf,$li_ocultar); // Imprimimos el detalle
$ld_totalsaldo_final=$ld_saldo_final;
if($ld_totaldebe<0)
{
$ld_totaldebe_aux=abs($ld_totaldebe);
$ld_totaldebe_aux=number_format($ld_totaldebe_aux,2,",",".");
$ld_totaldebe="(".$ld_totaldebe_aux.")";
}
else
{
$ld_totaldebe=number_format($ld_totaldebe,2,",",".");
}
if($ld_totalhaber<0)
{
$ld_totalhaber_aux=abs($ld_totalhaber);
$ld_disminucion=number_format($ld_disminucion,2,",",".");
$la_data[$z]=array('cuenta'=>$ls_spg_cuenta,'denominacion'=>$ls_denominacion,
'disminucion'=>$ld_disminucion,'aumento'=>$ld_aumento);
$ld_aumento=str_replace('.','',$ld_aumento);
$ld_aumento=str_replace(',','.',$ld_aumento);
$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);
$numalet->setNumero($li_monto);
$ls_monto= $numalet->letra();
$li_monto=number_format($li_monto,2,",",".");
$li_monbasimptot=number_format($li_monbasimptot,2,",",".");
$li_montotcar=number_format($li_montotcar,2,",",".");
$ld_fecregsol=$io_funciones->uf_convertirfecmostrar($ld_fecregsol);
if($ls_codpro!="----------")
{
$ls_codigo=$ls_codpro;
}
else
{
$ls_codigo=$ls_cedbene;
}
uf_print_encabezado_pagina($ls_titulo,$ls_numsol,$ld_fecregsol,&$io_pdf);
uf_print_cabecera($ls_numsol,$ls_dentipsol,$ls_denuniadm,$ls_denfuefin,$ls_codigo,$ls_nombre,$ls_consol,&$io_pdf);
$io_report->ds_detalle->reset_ds();
$lb_valido=$io_report->uf_select_dt_solicitud($ls_numsol); // Cargar el DS con los datos del reporte
if($lb_valido)
{
$li_totrowdet=$io_report->ds_detalle->getRowCount("codigo");
$la_data="";
for($li_s=1;$li_s<=$li_totrowdet;$li_s++)
{
$ls_codigo=$io_report->ds_detalle->data["codigo"][$li_s];
$ls_tipo=$io_report->ds_detalle->data["tipo"][$li_s];
$ls_denominacion=$io_report->ds_detalle->data["denominacion"][$li_s];
$ls_unidad=$io_report->ds_detalle->data["unidad"][$li_s];
$li_cantidad=$io_report->ds_detalle->data["cantidad"][$li_s];
$li_cosuni=$io_report->ds_detalle->data["monpre"][$li_s];
$li_basimp=$li_cosuni*$li_cantidad;
$ld_totalcomprobante=number_format($ld_totalcomprobante,2,",",".");
}
$ld_totalcomprob=$ld_totalcomprobante;
uf_print_total_comprobante($ld_totalcomprobante,$io_pdf); // Imprimimos el total comprobante
$ld_totalcomprobante=0;
$ld_totalprogramatica=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_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);
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_cmpent = $io_report->ds->data["cmpent"][1];
$ld_fecent = $io_report->ds->data["fecent"][1];
$ls_nomres = $io_report->ds->data["nomres"][1];
$ls_nomrec = $io_report->ds->data["nomrec"][1];
$ls_nomdes = $io_report->ds->data["nomdes"][1];
$ls_codres = $io_report->ds->data["cedres"][1];
$ls_codrec = $io_report->ds->data["cedrec"][1];
$ls_coddes = $io_report->ds->data["ceddes"][1];
$ls_carres = $io_report->ds->data["carres"][1];
$ls_carrec = $io_report->ds->data["carrec"][1];
$ls_cardes = $io_report->ds->data["cardes"][1];
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_coduniadm, $ls_denuniadm, $ls_codunisol, $ls_denunisol, $ls_codres, $ls_nomres, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_totales($ls_nomrec, $ls_codrec, $ls_carrec, $ls_nomdes, $ls_coddes, $ls_cardes, $io_pdf);
if ($lb_valido) {
$li_totrow_det = $io_report->ds_detalle->getRowCount("codact");
for ($li_s = 1; $li_s <= $li_totrow_det; $li_s++) {
$ls_codart = $io_report->ds_detalle->data["codact"][$li_s];
$ls_denart = $io_report->ds_detalle->data["denact"][$li_s];
$ls_catalogo = $io_report->ds_detalle->data["catalogo"][$li_s];
$li_costo = $io_report->ds_detalle->data["costo"][$li_s];
$li_cantidad = $io_report->ds_detalle->data["cantidad"][$li_s];
$li_total = $li_costo * $li_cantidad;
$li_cantidad = $io_fun_activos->uf_formatonumerico($li_cantidad);
$li_costo = $io_fun_activos->uf_formatonumerico($li_costo);
$li_total = $io_fun_activos->uf_formatonumerico($li_total);
$la_data[$li_s] = array('cantidad' => $li_cantidad, 'catalogo' => $ls_catalogo, 'codact' => $ls_codart, 'denact' => $ls_denart, 'costo' => $li_costo, 'total' => $li_total);
$ls_monto = $numalet->letra();
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_report->DS->data["fecemisol"][$li_i];
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
if ($ls_codpro != "----------") {
$ls_codigo = $ls_codpro;
} else {
$ls_codigo = $ls_cedbene;
}
/* if($ls_tiporeporte==0)
{
$li_monsolaux=$io_report->DS->data["monsolaux"][$li_i];
$li_monsolaux=number_format($li_monsolaux,2,",",".");
}
*/
uf_print_cabecera($ls_numsol, $ls_codigo, $ls_nombre, $ls_rifproben, $ld_fecemisol, $ls_consol, $ls_obssol, $li_monsol, $ls_monto, &$io_pdf);
////////////////////////// GRID RECEPCIONES DE DOCUMENTOS //////////////////////////////////////
$io_report->ds_detalle->reset_ds();
$lb_valido = $io_report->uf_select_rec_doc_solicitud($ls_numsol);
// Cargar el DS con los datos del reporte
if ($lb_valido) {
$li_totrowdet = $io_report->ds_detalle_rec->getRowCount("numrecdoc");
$la_data = "";
$li_totsubtot = 0;
$li_tottot = 0;
$li_totcar = 0;
$li_totded = 0;
for ($li_s = 1; $li_s <= $li_totrowdet; $li_s++) {
$ls_numrecdoc = $io_report->ds_detalle_rec->data["numrecdoc"][$li_s];
$ld_fecemidoc = $io_report->ds_detalle_rec->data["fecemidoc"][$li_s];
$ls_numdoccomspg = $io_report->ds_detalle_rec->data["numdoccomspg"][$li_s];
while (!$rs_data->EOF) {
$ls_numcon = $rs_data->fields["numcom"];
$ls_fecrep = $io_funciones->uf_convertirfecmostrar($rs_data->fields["fecfac"]);
$ls_nomsujret = $rs_data->fields["nomsujret"];
$ls_rif = $rs_data->fields["rif"];
$li_baseimp = $rs_data->fields["basimp"];
$li_totimp = $rs_data->fields["iva_ret"];
$ls_denmun = 'LIBERTADOR';
$li_totalbaseimp = $li_totalbaseimp + $li_baseimp;
$li_totalmontoimp = $li_totalmontoimp + $li_totimp;
$li_i++;
$la_data[$li_i] = array('fecha' => $ls_fecrep, 'nombre' => $ls_nomsujret, 'rif' => $ls_rif, 'monto' => number_format($li_baseimp, 2, ",", "."), 'monimp' => number_format($li_totimp, 2, ",", "."), 'municipio' => $ls_denmun, 'comp' => $ls_numcon, 'obs' => '');
$rs_data->MoveNext();
}
if ($lb_valido) {
uf_print_cabecera($ls_agenteret, $ls_rifagenteret, $ls_diragenteret, $ls_periodo, &$io_pdf);
uf_print_detalle($la_data, &$io_pdf);
uf_print_total(number_format($li_totalbaseimp, 2, ",", "."), number_format($li_totalmontoimp, 2, ",", "."), &$io_pdf);
uf_print_firmas(&$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);
} else {
print "<script language=JavaScript>";
print " alert('Ocurrio un error al generar el reporte. Intente de Nuevo');";
print " close();";
print "</script>";
}
unset($io_pdf);
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;
$li_totrow_det=$io_report->DS_detalle->getRowCount("codconc");
for($li_s=1;$li_s<=$li_totrow_det;$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_asig=$io_fun_nomina->uf_formatonumerico(0);
$li_dedu=$io_fun_nomina->uf_formatonumerico(0);
$li_apor=$io_fun_nomina->uf_formatonumerico(0);
{
$ls_cedrif=$ds_voucher->data["ced_bene"][$li_i];
}
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
$ldec_total = $ldec_monto-$ldec_monret;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_cedrif,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la página
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta');
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_items = array('0'=>'estpro','1'=>'spg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_spg->group_by($la_items,$la_suma,'spg_cuenta');
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a imprimirlos.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$ld_total_enero=0;
$ld_total_febrero=0;
$ld_total_marzo=0;
$ld_total_abril=0;
$ld_total_mayo=0;
$ld_total_junio=0;
$ld_total_julio=0;
$ld_total_agosto=0;
$ld_total_septiembre=0;
$ld_total_octubre=0;
$ld_total_noviembre=0;
$ld_total_diciembre=0;
$ld_total_general_cuenta=0;
}
$io_cabecera=$io_pdf->openObject();
uf_print_cabecera($io_cabecera,$ls_programatica_ant,$ls_denestpro_ant,$io_pdf);
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera_detalle($io_encabezado,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$io_pie_pagina=$io_pdf->openObject();
uf_print_pie_cabecera($la_data_tot,$io_pie_pagina,$io_pdf);
$io_pdf->stopObject($io_pie_pagina);
$io_pie_pagina=$io_pdf->openObject();
//uf_print_pie_cabecera($la_data_tot_bsf,$io_pie_pagina,$io_pdf);
$io_pdf->stopObject($io_cabecera);
$io_pdf->stopObject($io_encabezado);
$io_pdf->stopObject($io_pie_pagina);
if ((!empty($ls_programatica_next))&&($z<$li_tot))
{
$io_pdf->ezNewPage(); // Insertar una nueva página
}
{
$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"];
$ls_apeper=$io_report->rs_data->fields["nomper"];
$ls_descar=$io_report->rs_data->fields["descar"];
$ls_codcueban=$io_report->rs_data->fields["codcueban"];
$li_sueper=$io_report->rs_data->fields["sueper"];
$li_sueper=$io_fun_nomina->uf_formatonumerico($li_sueper);
$li_total=$io_report->rs_data->fields["total"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
if($li_reg==1)
{
uf_print_cabecera($ls_cedper,$ls_nomper,$ls_apeper,$ls_descar,$ld_fecdesper,
$ld_fechasper,$li_i,$li_sueper,$io_cabecera,$io_pdf); // Imprimimos la cabecera del registro
}
else
{
uf_print_cabecera2($ls_cedper,$ls_nomper,$ls_apeper,$ls_descar,$ld_fecdesper,
$ld_fechasper,$li_i,$li_sueper,$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_ctaban = $ds_voucher->data["ctaban"][$li_i];
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
//$ldec_total = $ldec_monto-$ldec_monret;
$ldec_total = $ldec_monto;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina
uf_print_cabecera($ls_numdoc,$ls_nomban,$ls_ctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$io_pdf); // Imprimimos la cabecera del registro
$ds_dt_scg->data=$class_report->uf_cargar_dt_scg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope); // Obtenemos el detalle del reporte
$la_items = array('0'=>'scg_cuenta','1'=>'debhab');
$la_suma = array('0'=>'monto');
$ds_dt_scg->group_by($la_items,$la_suma,'scg_cuenta');
$li_totrow_det=$ds_dt_scg->getRowCount("scg_cuenta");
$ds_dt_spg->data=$class_report->uf_cargar_dt_spg($ls_numdoc,$ls_codban,$ls_ctaban,$ls_codope);
$la_items = array('0'=>'estpro','1'=>'spg_cuenta');
$la_suma = array('0'=>'monto');
$ds_dt_spg->group_by($la_items,$la_suma,'spg_cuenta');
$li_totrow_spg=$ds_dt_spg->getRowCount("spg_cuenta");
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Ciclo para unir en una sola matriz los detalles de presupuesto y los contables para proceder luego a imprimirlos.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if ($li_totrow_det>=$li_totrow_spg)
if($ls_excluir=="1")
{
if($lb_arc)
{
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_nacper,$ls_cedper,$ls_nomper,&$io_cabecera,&$io_pdf); // Imprimimos la cabecera del registro
$lb_cabecera=true;
$lb_print=true;
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
}
}
else
{
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_nacper,$ls_cedper,$ls_nomper,&$io_cabecera,&$io_pdf); // Imprimimos la cabecera del registro
$lb_cabecera=true;
$lb_print=true;
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
unset($la_data);
$lb_arc=true;
}
if(($lb_valido)&&($lb_arc))// Si no ocurrio ningún error
{
if($ls_conceptoaporte=="1") // Si solicita que se muestren los conceptos de aporte
{
$lb_valido=$io_report->uf_retencionarc_aporte($ls_codper,$la_nominas,$li_total,$ls_ano);
$li_totrow_det=$io_report->DS_detalle->getRowCount("codconc");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_codconc=$io_report->DS_detalle->data["codconc"][$li_s];
$lb_valido = $io_report->uf_retencionesmunicipales_proveedor($ls_numcom, $ls_mes, $ls_anio);
if ($lb_valido) {
$li_total = $io_report->DS->getRowCount("numcom");
for ($li_i = 1; $li_i <= $li_total; $li_i++) {
$ls_numcon = $io_report->DS->data["numcom"][$li_i];
$ls_codret = $io_report->DS->data["codret"][$li_i];
$ls_fecrep = $io_funciones->uf_convertirfecmostrar($io_report->DS->data["fecrep"][$li_i]);
$ls_perfiscal = $io_report->DS->data["perfiscal"][$li_i];
$ls_codsujret = $io_report->DS->data["codsujret"][$li_i];
$ls_nomsujret = $io_report->DS->data["nomsujret"][$li_i];
$ls_rif = $io_report->DS->data["rif"][$li_i];
$ls_dirsujret = $io_report->DS->data["dirsujret"][$li_i];
$li_estcmpret = $io_report->DS->data["estcmpret"][$li_i];
$ls_numlic = $io_report->DS->data["numlic"][$li_i];
}
uf_print_cabecera($ls_numcon, $ls_fecrep, $ls_agenteret, $ls_rifagenteret, $ls_perfiscal, $ls_licagenteret, $ls_diragenteret, $ls_nomsujret, $ls_rif, $ls_numlic, $li_estcmpret, &$io_pdf);
$lb_valido = $io_report->uf_retencionesmunicipales_detalles($ls_numcom);
if ($lb_valido) {
$li_totalbaseimp = 0;
$li_totalmontoimp = 0;
$li_total = $io_report->ds_detalle->getRowCount("numfac");
for ($li_i = 1; $li_i <= $li_total; $li_i++) {
$ls_numsop = $io_report->ds_detalle->data["numsop"][$li_i];
$ld_fecfac = $io_funciones->uf_convertirfecmostrar($io_report->ds_detalle->data["fecfac"][$li_i]);
$ls_numfac = $io_report->ds_detalle->data["numfac"][$li_i];
$ls_numref = $io_report->ds_detalle->data["numcon"][$li_i];
$li_baseimp = $io_report->ds_detalle->data["basimp"][$li_i];
$li_porimp = $io_report->ds_detalle->data["porimp"][$li_i];
$li_totimp = $io_report->ds_detalle->data["totimp"][$li_i];
$li_totalbaseimp = $li_totalbaseimp + $li_baseimp;
$li_totalmontoimp = $li_totalmontoimp + $li_totimp;
$la_data[$li_s]=array('articulo'=>$ls_codart,'denart'=>$ls_denart,'unidad'=>$ls_unidad,'fisica'=>$li_canexifis,'sistema'=>$li_canexisis);
}
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);
$ls_denestpro5=$ls_denestpro5;
}
$ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3)." , ".trim($ls_denestpro4)." , ".trim($ls_denestpro5);
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3)."-".substr($ls_codestpro4,-$ls_loncodestpro4)."-".substr($ls_codestpro5,-$ls_loncodestpro5);
}
else
{
//$ls_denestpro=trim($ls_denestpro1)." , ".trim($ls_denestpro2)." , ".trim($ls_denestpro3);
$ls_denestpro = array();
$ls_denestpro[0]=$ls_denestpro1;
$ls_denestpro[1]=$ls_denestpro2;
$ls_denestpro[2]=$ls_denestpro3;
$ls_programatica=substr($ls_codestpro1,-$ls_loncodestpro1).substr($ls_codestpro2,-$ls_loncodestpro2).substr($ls_codestpro3,-$ls_loncodestpro3);
}
$io_cabecera=$io_pdf->openObject();
uf_print_cabecera($io_cabecera,$ls_programatica,$ls_denestpro,$io_pdf); // Imprimimos la cabecera del registro
//uf_print_cabecera($ls_programatica,$ls_denestpro,$io_pdf); // Imprimimos la cabecera del registro
$lb_valido=$io_report->uf_spg_reporte_apertura($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ldt_fecini,$ldt_fecfin,$ls_codfuefindes,$ls_codfuefinhas,$ls_estcla,&$rs_detalle);
if($lb_valido)
{
$ld_totalprogramatica=0;
//$li_totrow_det=$io_report->dts_reporte->getRowCount("programatica");
//for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
$i=0;
while($row=$io_report->SQL->fetch_row($rs_detalle))
{
$i++;
/*$ls_spg_cuenta=$io_report->dts_reporte->data["spg_cuenta"][$li_s];
$ls_denominacion=trim($io_report->dts_reporte->data["denominacion"][$li_s]);
$arremp = $_SESSION["la_empresa"];
$ls_codemp = $arremp["codemp"];
error_reporting(E_ALL);
set_time_limit(1800);
$io_pdf = new Cezpdf('LEGAL', 'landscape');
// Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
// Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(3.5, 3, 2.5, 2.5);
// Configuracin de los margenes en centmetros
uf_print_titulo(&$io_pdf);
$io_pdf->ezStartPageNumbers(970, 40, 10, '', '', 1);
// Insertar el nmero de pgina
$lb_valido = $io_report->uf_select_report_libcompra($as_fechadesde, $as_fechahasta, &$rs_resultado);
uf_print_encabezado_pagina($ls_titulo, $ls_mesletras, $ls_agno, &$io_pdf);
uf_print_cabecera(&$io_pdf);
$ldec_totimp8 = 0;
//Variable de tipo acumulador que almacenara el monto total de los impuestos a 8%.
$ldec_totimp9 = 0;
//Variable de tipo acumulador que almacenara el monto total de los impuestos a 14%.
$ldec_totimp25 = 0;
//Variable de tipo acumulador que almacenara el monto total de los impuestos a 25%.
$ldec_totbasimp8 = 0;
$ldec_totbasimp9 = 0;
$ldec_totbasimp25 = 0;
$ldec_totcomsiniva = 0;
if ($lb_valido) {
$li = 0;
while ($row = $io_report->io_sql->fetch_row($rs_resultado)) {
$li++;
$ldec_monret = 0;
$ld_comprometer=str_replace(',','.',$ld_comprometer);
$ld_causado=str_replace('.','',$ld_causado);
$ld_causado=str_replace(',','.',$ld_causado);
$ld_pagado=str_replace('.','',$ld_pagado);
$ld_pagado=str_replace(',','.',$ld_pagado);
}
if (!empty($ls_cod_pro_next))
{
$ld_comprometer=number_format($ld_comprometer,2,",",".");
$ld_causado=number_format($ld_causado,2,",",".");
$ld_pagado=number_format($ld_pagado,2,",",".");
$la_data[$z]=array('cuenta'=>$ls_spg_cuenta,'comprobante'=>$ls_proc_comp,'fecha'=>$ldt_fecha,
'comprometido'=>$ld_comprometer,'causado'=>$ld_causado,'pagado'=>$ld_pagado);
uf_print_cabecera($ls_cod_pro_ant,$ls_nomprobene,$ls_ced_bene,$ls_tipo_destino,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$ld_subtotal_comprometer=$ld_sub_total_comprometer;
$ld_subtotal_causado=$ld_sub_total_causado;
$ld_subtotal_pagado=$ld_sub_total_pagado;
$ld_sub_total_comprometer=number_format($ld_sub_total_comprometer,2,",",".");
$ld_sub_total_causado=number_format($ld_sub_total_causado,2,",",".");
$ld_sub_total_pagado=number_format($ld_sub_total_pagado,2,",",".");
if($ls_tipoformato==1)
{
uf_print_pie_cabecera($ld_sub_total_comprometer,$ld_sub_total_causado,$ld_sub_total_pagado,$io_pdf,"Total Bs.F.");
}
else
{
uf_print_pie_cabecera($ld_sub_total_comprometer,$ld_sub_total_causado,$ld_sub_total_pagado,$io_pdf,"Total Bs.");
}
$numalet->setNumero($li_monsol);
$ls_monto = $numalet->letra();
$li_monsol = number_format($li_monsol, 2, ",", ".");
$ld_fecemisol = $io_funciones->uf_convertirfecmostrar($ld_fecemisol);
if ($ls_codpro != "----------") {
$ls_codigo = $ls_codpro;
} else {
$ls_codigo = $ls_cedbene;
}
/* if($ls_tiporeporte==0)
{
$li_monsolaux=$io_report->DS->data["monsolaux"][$li_i];
$li_monsolaux=number_format($li_monsolaux,2,",",".");
}*/
uf_print_encabezado_pagina($ls_titulo, $ls_numsol, $ld_fecemisol, &$io_pdf);
uf_print_cabecera($ls_numsol, $ls_codigo, $ls_nombre, $ls_denfuefin, $ld_fecemisol, $ls_consol, $ls_obssol, $li_monsol, $ls_monto, $ls_rifpro, $ls_dentipdoc, &$io_pdf);
////////////////////////// GRID RECEPCIONES DE DOCUMENTOS //////////////////////////////////////
$io_report->ds_detalle->reset_ds();
$lb_valido = $io_report->uf_select_rec_doc_solicitud($ls_numsol);
// Cargar el DS con los datos del reporte
if ($lb_valido) {
$li_totrowdet = $io_report->ds_detalle_rec->getRowCount("numrecdoc");
$la_data = "";
$li_totsubtot = 0;
$li_tottot = 0;
$li_totcar = 0;
$li_totded = 0;
for ($li_s = 1; $li_s <= $li_totrowdet; $li_s++) {
$ls_numrecdoc = $io_report->ds_detalle_rec->data["numrecdoc"][$li_s];
$ld_fecemidoc = $io_report->ds_detalle_rec->data["fecemidoc"][$li_s];
$ls_numdoccomspg = $io_report->ds_detalle_rec->data["numdoccomspg"][$li_s];
$li_costo = $io_report->ds->data["costo"][$li_s];
$li_costo = $io_fun_activos->uf_formatonumerico($li_costo);
$ls_ideact = $io_report->ds->data["ideact"][$li_s];
$ls_cantidad = $io_report->ds->data["cantidad"][$li_s];
$ls_servicio = $io_report->ds->data["denuniadm"][$li_s];
if ($ls_estact == "R") {
$ls_estact = "Reasignado";
}
if ($ls_estact == "I") {
$ls_estact = "Incorporado";
}
$la_data[$li_s] = array('codact' => $ls_codact, 'codgru' => $ls_codgru, 'codsubgru' => $ls_codsubgru, 'codsec' => $ls_codsec, 'denact' => $ls_denact, 'seract' => $ls_seract, 'denuniadm' => $ls_denuniadm, 'estact' => $ls_estact, 'maract' => $ls_maract, 'modact' => $ls_modact, 'costo1' => $li_costo, 'costo' => $li_costo, 'ideact' => $ls_ideact, 'cantidad' => $ls_cantidad, 'servicio' => $ls_servicio);
}
if ($la_data != "") {
$i = $i + 1;
uf_print_cabecera($ls_codemp, $ls_nomemp, $ls_denuniadm, $ls_distrito, $ls_direccion, $ls_servicio, $io_pdf);
// Imprimimos la cabecera del registro
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
if ($io_pdf->ezPageCount == $li_numpag) {
// Hacemos el commit de los registros que se desean imprimir
uf_print_firmas($io_pdf);
$io_pdf->transaction('commit');
} else {
// Hacemos un rollback de los registros y volvemos a imprimir
$io_pdf->transaction('rewind');
}
}
uf_print_firmas($io_pdf);
unset($la_data);
}
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(4,1,2.5,2.5); // Configuración de los margenes en centímetros
$io_encabezado=$io_pdf->openObject();
uf_print_encabezado_pagina($ls_titulo,$ls_desnom,$ls_periodo,&$io_encabezado,&$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("codban");
$li_total=0;
$li_nro=0;
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_codban=$io_report->DS->data["codban"][$li_i];
$ls_nomban=$io_report->DS->data["nomban"][$li_i];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
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]);
'traspaso1'=>number_format($ls_traspaso1,2,",","."),
'incremento1'=>number_format($ls_incremento1,2,",","."),
'total1'=>'<b>'.number_format($ls_total1,2,",",".").'</b>',
'incremento2'=>number_format($ls_incremento2,2,",","."),
'cedente2'=>number_format($ls_cedente2,2,",","."),
'traspaso2'=>number_format($ls_traspaso2,2,",","."),
'total2'=>'<b>'.number_format($ls_total2,2,",",".").'</b>',
'total'=>'<b>'.number_format($ls_total_global,2,",",".").'</b>');
}
}// fin del for
}
if ($li_total>0)
{
uf_print_cabecera($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_denestpro1,$ls_denestpro2,$ls_denestpro3,$ls_denestpro4,$ls_denestpro5,
$ls_unidad,$ls_denunidad, $io_pdf);
uf_print_detalle($ls_data, &$io_pdf);
uf_print_totales(number_format($total_asignado,2,",","."),
number_format($total_cedente1,2,",","."),
number_format($total_traspaso1,2,",","."),
number_format($total_incremento1,2,",","."),
number_format($total_general1,2,",","."),
number_format($total_incremento2,2,",","."),
number_format($total_cedente2,2,",","."),
number_format($total_traspaso2,2,",","."),
number_format($total_general2,2,",","."),
number_format($total,2,",","."),&$io_pdf);
}
}// fin del for
if (($li_totfila>0)&&($li_total>0))
$ld_total_saldo_comprometer=number_format($ld_total_saldo_comprometer,2,",",".");
$ld_total_causado=number_format($ld_total_causado,2,",",".");
$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)
{
uf_print_detallecontable($la_data,$io_pdf); // Imprimimos el detalle
uf_print_totalescontable($la_datatc,&$io_pdf);
}
*/
//***** 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);
}
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"];
$ls_unidad=$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"];
$ls_desunidad=$io_report->rs_data->fields["desuniadm"];
$io_cabecera=$io_pdf->openObject(); // Creamos el objeto cabecera
uf_print_cabecera($ls_cedper,$ls_nomper,$ls_descar,$ls_unidad,$ls_desunidad,$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
{
switch($ls_quincena)
{
case "1": // primera quincena;
$li_asig=$li_asig+1;
$ls_codconc="----------";
$ls_nomcon="ADELANTO 1ra QUINCENA";
$li_totapo=$li_totapo+$li_totalaporte;
$li_totgeneral=$li_totgeneral+$li_total_neto;
$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
{
