$ls_operacion=$row["operacion"];
$ls_descripcion=$row["descripcion"];
$ld_monto=$row["monto"];
$ls_orden=$row["orden"];
$ls_denominacion=$row["denominacion"];
$ls_estcla=$row["estcla"];
$ld_totalprogramatica=$ld_totalprogramatica+$ld_monto;
$ld_total=$ld_total+$ld_monto;
$ld_monto=number_format($ld_monto,2,",",".");
$la_data[$i]=array('cuenta'=>$ls_spg_cuenta,'denominacion'=>$ls_denominacion,'descripcion'=>$ls_descripcion,'documento'=>$ls_documento,'monto'=>$ld_monto);
$ld_monto=str_replace('.','',$ld_monto);
$ld_monto=str_replace(',','.',$ld_monto);
}
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera_detalle($io_encabezado,$io_pdf);
//uf_print_cabecera_detalle($io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
if($ls_tipoformato==1)//BsF.
{
$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
uf_print_total_programatica($ld_totalprogramatica,'Bs.',$io_pdf); // Imprimimos el total programatica
}
else //Bs.
{
// $ld_totalprogramatica_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_totalprogramatica, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_totalprogramatica=number_format($ld_totalprogramatica,2,",",".");
uf_print_total_programatica($ld_totalprogramatica,'Bs.',$io_pdf); // Imprimimos el total programatica
// $ld_totalprogramatica_bsf=number_format($ld_totalprogramatica_bsf,2,",",".");
for ($z = 1; $z <= $li_total; $z++) {
//1
$ls_codpro = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_rifpro = $data["rifpro"][$z];
$ls_dirpro = $data["dirpro"][$z];
$ls_telpro = $data["telpro"][$z];
$ls_especialidad = $io_report->uf_load_especialidadproveedor2($ls_codpro, &$lb_valido);
$ls_nivel = $io_report->uf_load_niveldecontratacionporproveedor($ls_codpro, &$lb_valido);
$ls_clas = $io_report->uf_load_niveldeclasificacionporproveedor($ls_codpro, &$lb_valido);
$ld_moncapfin = number_format($data["monfincon"][$z], 2, ",", ".");
//Capacidad Financiera.
$la_data[$z] = array('codigo' => $ls_codpro, 'nombre' => $ls_nompro, 'rif' => $ls_rifpro, 'direccion' => $ls_dirpro, 'telefono' => $ls_telpro, 'especialidad' => $ls_especialidad, 'nivel' => $ls_nivel, 'calificacion' => $ls_clas, 'capacidad' => $ld_moncapfin);
}
//1
uf_print_cabecera_detalle($io_pdf);
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
//-----------------------------------------------MOSTRAR TOTAL---------------------------------------------------------------------------------//
$la_data = array(array('titulo' => '', 'total' => ''));
$la_data = array(array('titulo' => '', 'total' => ''));
$la_data = array(array('titulo' => '<b>Total de Proveedores</b>', 'total' => $li_total . ' '));
$la_columna = array('titulo' => '', 'total' => '');
$la_config = array('showHeadings' => 0, 'fontSize' => 9, 'titleFontSize' => 10, 'showLines' => 0, 'shaded' => 0, 'shadeCol2' => array(0.86, 0.86, 0.86), 'colGap' => 1, 'width' => 900, 'maxWidth' => 900, 'xOrientation' => 'center', 'cols' => array('titulo' => array('justification' => 'right', 'width' => 830), 'total' => array('justification' => 'right', 'width' => 70)));
// Justificación y ancho de la columna
$io_pdf->ezTable($la_data, $la_columna, '', $la_config);
//--------------------------------------------------------------------------------------------------------------------------------//
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
// Detenemos la impresión de los números de página
$io_pdf->ezStream();
{
$li_aux++;
$ls_nroreg=$io_report->DS->data["nroreg"][$li_i];
$ls_codigo=$io_report->DS->data["codper"][$li_i];
$ls_fechaini=$io_report->DS->data["fecini"][$li_i];
$ls_fechafin=$io_report->DS->data["fecfin"][$li_i];
$ls_nombreper=$io_report->DS->data["nomper"][$li_i];
$ls_apellidoper=$io_report->DS->data["apeper"][$li_i];
$ls_fechaini=$io_funciones->uf_formatovalidofecha($ls_fechaini);
$ls_fechaini=$io_funciones->uf_convertirfecmostrar($ls_fechaini);
$ls_fechafin=$io_funciones->uf_formatovalidofecha($ls_fechafin);
$ls_fechafin=$io_funciones->uf_convertirfecmostrar($ls_fechafin);
$ls_cadena=$ls_nombreper." ".$ls_apellidoper;
$la_dataper[$li_i]=array('codigo'=>$ls_codigo,'nombre'=>$ls_cadena,
'fechaini'=>$ls_fechaini,'fechafin'=>$ls_fechafin);
uf_print_cabecera_detalle($la_dataper,$li_totrow,$io_pdf);
unset($la_dataper);
$io_report->uf_print_detalle_metas_x_personal($ls_nroreg,$ld_fechades,$ld_fechahas,$ls_codperdes,$ls_codperhas);// Cargar el DS con los datos del reporte
$li_totrow1=$io_report->ds_detalle->getRowCount("codmeta");
for($li_p=1;$li_p<=$li_totrow1;$li_p++)
{
$ls_codigo=$io_report->ds_detalle->data["codmeta"][$li_p];
$ls_meta=$io_report->ds_detalle->data["meta"][$li_p];
$ls_valor=$io_report->ds_detalle->data["valor"][$li_p];
$ls_fechaeje=$io_report->ds_detalle->data["feceje"][$li_p];
$ls_obse=$io_report->ds_detalle->data["obsmet"][$li_p];
$ls_fechaeje=$io_funciones->uf_formatovalidofecha($ls_fechaeje);
$ls_fechaeje=$io_funciones->uf_convertirfecmostrar($ls_fechaeje);
$la_detalle[$li_p]=array('codigo'=>$ls_codigo,'meta'=>$ls_meta,
'valor'=>$ls_valor,'fechaeje'=>$ls_fechaeje,'obse'=>$ls_obse);
} //fin del for
$ls_dir = $la_provben["dirpro"];
$ls_nombre = $la_provben["nompro"];
} else {
$la_provben = $io_report->uf_select_rowdata($io_sql, "SELECT rifben,ced_bene,dirbene,nombene,apebene FROM rpc_beneficiario WHERE codemp='" . $ls_codemp . "' AND ced_bene='" . $ls_codproben . "'");
$ls_rif = $la_provben["rifben"];
$ls_nit = $la_provben["ced_bene"];
$ls_dir = $la_provben["dirbene"];
$ls_nombre = $la_provben["nombene"] . " " . $la_provben["apebene"];
}
$ls_titulo = $ls_titulo . $ls_tipo;
uf_print_encabezado_pagina($ls_titulo, $ls_numnota, $ls_fecha, $ls_tipo, $io_pdf);
// Imprimimos el encabezado de la página
uf_print_cabecera($ls_nombre, $ls_nit, $ls_dir, $ls_tipo, $ls_estatusnota, $ls_tipproben, $io_pdf);
// Imprimimos la cabecera del registro
$ls_tipoencabenzadosol = "";
uf_print_cabecera_detalle($ls_tipoencabenzadosol, $io_pdf);
$ldec_monto = number_format($ldec_monto, 2, ",", ".");
$la_data[1] = array('denominacion' => $ls_descripcion, 'monto' => $ldec_monto);
uf_print_concepto_nc($la_data, &$io_pdf);
//**************************************************************************************************************************
$lb_valido = $io_report->uf_select_dt_spg_nota($ls_numnota, $ls_numord, $ls_numrecdoc, $ls_codtipdoc, $ls_tipproben, $ls_codproben, &$rs_data);
if ($lb_valido) {
$b = 0;
while ($row = $io_report->io_sql->fetch_row($rs_data)) {
$b++;
$ls_cuentaspg = trim($row["spg_cuenta"]);
$ls_codestpro = $row["codestpro"];
$ls_modalidad = $_SESSION['la_empresa']['estmodest'];
switch ($ls_modalidad) {
case "1":
// Modalidad por Proyecto
'disminución'=>number_format($ld_disminucion,2,',','.'),'montoactualizado'=>number_format($ld_monto_actualizado,2,',','.'),
'devengado'=>number_format($ld_devengado,2,',','.'),'cobrado'=>number_format($ld_cobrado,2,',','.'),
'cobrado_anticipado'=>number_format($ld_cobrado_anticipado,2,',','.'),'porcobrar'=>number_format($ld_por_cobrar,2,',','.'));
$ld_por_devengar=$ld_sub_total_previsto+$ld_sub_total_aumento+$ld_sub_total_disminucion;
$ld_saldo_por_devengar=$ld_por_devengar-$ld_sub_total_devengado;
$ld_subtotal_previsto=$ld_sub_total_previsto;
$ld_subtotal_aumento=$ld_sub_total_aumento;
$ld_subtotal_disminucion=$ld_sub_total_disminucion;
$ld_subtotal_devengado=$ld_sub_total_devengado;
$ld_subtotal_cobrado=$ld_sub_total_cobrado;
$ld_subtotal_cobrado_anticipado=$ld_sub_total_cobrado_anticipado;
$ld_subtotal_monto_actualizado=$ld_sub_total_monto_actualizado;
$ld_subtotal_por_cobrar=$ld_sub_total_por_cobrar;
}
} // end for($li_s)
uf_print_cabecera_detalle($ls_cuentaimprimir,$ls_denominacion,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
uf_print_pie_cabecera(number_format($ld_saldo_por_devengar,2,',','.'),
number_format($ld_sub_total_previsto,2,',','.'),
number_format($ld_sub_total_aumento,2,',','.'),
number_format($ld_sub_total_disminucion,2,',','.'),
number_format($ld_sub_total_monto_actualizado,2,',','.'),
number_format($ld_sub_total_devengado,2,',','.'),
number_format($ld_sub_total_cobrado,2,',','.'),
number_format($ld_sub_total_cobrado_anticipado,2,',','.'),
number_format($ld_sub_total_por_cobrar,2,',','.'),$io_pdf);
}// end for($li_z)
/*for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$li_tmp=($li_s+1);
{
$la_data[$z]=array('estructura'=>$ls_codestpro,
'especifica'=>$ls_especifica,
'denominacion'=>$ls_denominacion,
'cedente'=>number_format($ld_disminucion,2,',','.'),
'receptora'=>number_format($ld_aumento,2,',','.'));
}
if (!empty($ls_procomp_next))
{
$la_data[$z]=array('estructura'=>$ls_codestpro,
'especifica'=>$ls_especifica,
'denominacion'=>$ls_denominacion,
'cedente'=>number_format($ld_disminucion,2,',','.'),
'receptora'=>number_format($ld_aumento,2,',','.'));
$io_encabezado=$io_pdf->openObject();
uf_print_cabecera_detalle($io_encabezado,$ls_descripcion,$ls_comprobante,$ldt_fecha,$ldt_fecaprmod,$ls_proc,$io_pdf);
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
if($ls_tipoformato==1)
{
$ld_totalaumento=number_format($ld_totalaumento,2,",",".");
$ld_totaldismi=number_format($ld_totaldismi,2,",",".");
//uf_print_pie_cabecera($ld_totalaumento,$ld_totaldismi,'BsF.',$io_pdf);
}
else
{
//$ld_totaldismi_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_totaldismi, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
//$ld_totalaumento_bsf = $io_rcbsf->uf_convertir_monedabsf($ld_totalaumento, $li_candeccon,$li_tipconmon,1000,$li_redconmon);
$ld_totalaumento=number_format($ld_totalaumento,2,",",".");
$ld_totaldismi=number_format($ld_totaldismi,2,",",".");
$io_pdf->transaction('start');
// Iniciamos la transacción
$li_numpag = $io_pdf->ezPageCount;
// Número de página
$ls_numero = $num;
$ls_denunidadm = $io_report->ds->data["denuniadm"][$li_i];
$ls_codact = $io_report->ds->data["codact"][$li_i];
$ls_codgru = $io_report->ds->data["codgru"][$li_i];
$ls_codsubgru = $io_report->ds->data["codsubgru"][$li_i];
$ls_codsec = $io_report->ds->data["codsec"][$li_i];
$ls_descripcion = $io_report->ds->data["denact"][$li_i];
$ls_cantidad = 1;
$li_costo = $io_report->ds->data["costo"][$li_i];
$li_costo = $io_fun_activos->uf_formatonumerico($li_costo);
$la_data[$num] = array('numero' => $ls_numero, 'grupo' => $ls_codgru, 'subgrupo' => $ls_codsubgru, 'seccion' => $ls_codsec, 'cantidad' => $ls_cantidad, 'codigo' => $ls_codact, 'descripcion' => $ls_descripcion, 'precio' => $li_costo);
uf_print_cabecera_detalle($ls_denunidadm, $io_pdf);
uf_print_detalle($la_data, $io_pdf);
// Imprimimos el detalle
uf_print_pie_cabecera($io_pdf);
if ($li_i < $li_totrow) {
$io_pdf->ezNewPage();
}
unset($la_data);
$num = 1;
}
}
if ($lb_valido) {
$io_pdf->ezStopPageNumbers(1, 1);
$io_pdf->ezStream();
} else {
print "<script language=JavaScript>";
'modpres'=>$ld_modpres,
'precom'=>$ld_precomprometido,
'libprecom'=>$ld_libprecomprometido,
'disponible'=>$ld_disponible);
break;
} // switch
$io_cabecera=$io_pdf->openObject();
uf_print_cabecera($io_cabecera,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,
$ls_codestpro5,$ls_denestpro1,$ls_denestpro2,$ls_denestpro3,$io_pdf);
$io_encabezado=$io_pdf->openObject();
$io_function_report->uf_get_nom_mes($ld_per01,$as_nomper01);
$io_function_report->uf_get_nom_mes($ld_per02,$as_nomper02);
$io_function_report->uf_get_nom_mes($ld_per03,$as_nomper03);
uf_print_cabecera_detalle($io_encabezado,$ld_tipper,$as_nomper01,$as_nomper02,$as_nomper03,$ld_fecfinrep,$io_pdf);
uf_print_detalle($la_data,$ld_tipper,$as_nomper01,$as_nomper02,$as_nomper03,$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();
$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
}
$ld_total_general_cuenta=0;
unset($la_data);
unset($la_data_tot);
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
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,5,3,3); // Configuración de los margenes en centímetros
$io_pdf->ezStartPageNumbers(570,47,8,'','',1); // Insertar el número de página
uf_print_encabezado_pagina($ls_titulo,$io_pdf);
uf_print_cabecera_detalle($la_data,$ls_codigoper,$ls_nombreper,$ls_codigocon,$ls_descricon,$ls_fecha,&$io_pdf);
$li_totrow=$io_report->ds_detalle->getRowCount("codite");
$li_aux=0;
$li_i=1;
while ($row=$io_report->io_sql->fetch_row($rs_data2))
{
$li_aux++;
$ls_codigoitem=$row["codite"];
$ls_descripcion=trim ($row["denite"]);
$ls_valormax=$row["valormax"];
$ls_puntositem=$row["puntos"];
$ls_resultado=$row["punevapsi"];
$la_data[$li_i]=array('codigoitem'=>$ls_codigoitem,'descripcion'=>$ls_descripcion,'valormax'=>$ls_valormax,
'puntositem'=>$ls_puntositem,'resultado'=>$ls_resultado);
