$ls_envio="Sin definir";
break;
case "I":
$ls_envio="IPOSTEL";
break;
case "D":
$ls_envio="DOMESA";
break;
}
$ls_titulo="<b>Listado Detallado Modos de Envios de Recibos de Pago por ".$ls_envio."</b>";
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_modo_envio($ls_codperdes, $ls_codperhas,$ls_orden, $ls_modo,$rs_data); // Obtenemos el detalle del reporte
}
if($lb_valido==false) // Existe algún error ó no hay registros
{
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','landscape'); // Instancia de la clase PDF
$io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm'); // Seleccionamos el tipo de letra
$io_pdf->ezSetCmMargins(5,2.5,3,3); // Configuración de los margenes en centímetros
