$ls_tiporeporte = $io_fun_cxp->uf_obtenervalor_get("tiporeporte", 0);
$ls_tipded = $io_fun_cxp->uf_obtenervalor_get("tipded", "");
$ls_tipper = $io_fun_cxp->uf_obtenervalor_get("tipper", "");
if ($ls_tipper == "T") {
    $ls_tipper = "";
}
global $ls_tiporeporte;
if ($ls_tiporeporte == 1) {
    require_once "sigesp_cxp_class_reportbsf.php";
    $io_report = new sigesp_cxp_class_reportbsf();
}
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido = uf_insert_seguridad($ls_titulo);
// Seguridad de Reporte
if ($lb_valido) {
    $lb_valido = $io_report->uf_select_retenciones($ls_codded, $ls_coddedhas, $ls_tipded);
}
if ($lb_valido === false) {
    print "<script language=JavaScript>";
    print " alert('No hay nada que Reportar');";
    print " close();";
    print "</script>";
} else {
    error_reporting(E_ALL);
    set_time_limit(1800);
    $io_pdf = new Cezpdf('LETTER', 'landscape');
    $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
    $io_pdf->ezSetCmMargins(4.4, 3, 3, 3);
    uf_print_encabezado_pagina($ls_titulo, $ld_fecdes, $ld_fechas, &$io_pdf);
    $li_rowcargos = $io_report->DS->getRowCount("codded");
    //print"s";