";
print "
";
print "Comprobante ";
print "Descripción ";
print "Procede ";
print "Fecha ";
print "Proveedor ";
print "Beneficiario ";
print " ";
if ($ls_operacion=="BUSCAR")
{
$ls_fecdesde = $io_funcion->uf_convertirdatetobd($ls_fecdesde);
$ls_fechasta = $io_funcion->uf_convertirdatetobd($ls_fechasta);
$ls_logusr = $_SESSION["la_logusr"];
$ls_gestor = $_SESSION["ls_gestor"];
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_cadena = "CONCAT(sigesp_cmp_md.codemp,sigesp_cmp_md.procede,sigesp_cmp_md.comprobante,sigesp_cmp_md.fecha) ";
$ls_sql_seguridad = " AND CONCAT('".$ls_codemp."','SPG','".$ls_logusr."',spg_dtmp_cmp.codestpro1,spg_dtmp_cmp.codestpro2,spg_dtmp_cmp.codestpro3,spg_dtmp_cmp.codestpro4,spg_dtmp_cmp.codestpro5,spg_dtmp_cmp.estcla) IN (SELECT distinct CONCAT(codemp,codsis,codusu,codintper)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1)";
}
else
{
$ls_cadena = "sigesp_cmp_md.codemp||sigesp_cmp_md.procede||sigesp_cmp_md.comprobante||sigesp_cmp_md.fecha ";
$ls_sql_seguridad = " AND '".$ls_codemp."'||'SPG'||'".$ls_logusr."'||spg_dtmp_cmp.codestpro1||spg_dtmp_cmp.codestpro2||spg_dtmp_cmp.codestpro3||spg_dtmp_cmp.codestpro4||spg_dtmp_cmp.codestpro5||spg_dtmp_cmp.estcla IN (SELECT distinct codemp||codsis||codusu||codintper
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1)";
}
if ($ls_procedencia!="N")
{
$ls_straux = " AND sigesp_cmp_md.procede ='".$ls_procedencia."'";
}
$ls_sql = " SELECT distinct ".$ls_cadena.",sigesp_cmp_md.*, ".
" spg_ministerio_ua.denuac ".
" FROM sigesp_cmp_md, spg_dtmp_cmp, spg_ministerio_ua ".
" WHERE sigesp_cmp_md.codemp='".$ls_codemp."' ".
" AND sigesp_cmp_md.comprobante like '%".$ls_comprobante."' ".
" AND sigesp_cmp_md.fecha >= '".$ls_fecdesde."' AND sigesp_cmp_md.fecha <= '".$ls_fechasta."' $ls_straux ".
" AND sigesp_cmp_md.codemp = spg_dtmp_cmp.codemp ".
" AND sigesp_cmp_md.fecha = spg_dtmp_cmp.fecha ".
" AND sigesp_cmp_md.procede = spg_dtmp_cmp.procede ".
" AND sigesp_cmp_md.comprobante = spg_dtmp_cmp.comprobante ".
" AND spg_ministerio_ua.codemp=sigesp_cmp_md.codemp ".
" AND spg_ministerio_ua.coduac=sigesp_cmp_md.coduac ".$ls_sql_seguridad.
" ORDER BY sigesp_cmp_md.comprobante,sigesp_cmp_md.fecha";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido = false;
}
else
{
$data=$rs_data;
if (!empty($data))
{
$i = 1;
while($row=$io_sql->fetch_row($rs_data))
{
$ls_numcom = $row["comprobante"];
$ls_descom = $row["descripcion"];
$ls_procom = $row["procede"];
$ls_feccom = date('Y-m-d',strtotime($row["fecha"]));
$ls_feccom = $io_funcion->uf_convertirfecmostrar($ls_feccom);
$ls_codpro = $row["cod_pro"];
$ls_cedben = $row["ced_bene"];
$ls_codfuefin = $row["codfuefin"];
$ls_coduniadm = $row["coduac"];
$ls_denuniadm = $row["denuac"];
$ls_esttrares = $row["esttrares"];
$ls_numtrares = $row["numtrares"];
if (($ls_codpro=="----------")&&($ls_cedben=="----------"))
{
$ls_tipproben = "-";
}
elseif(($ls_codpro=="----------")&&($ls_cedben!="----------"))
{
$ls_tipproben = "B";
}
elseif(($ls_codpro!="----------")&&($ls_cedben=="----------"))
{
$ls_tipproben = "P";
}
$li_estapro = $row["estapro"];
print "
";
print "".$ls_numcom." ".$ls_procom." ";
print "".$ls_feccom." ";
print "".$ls_codpro." ";
print "".$ls_cedben." ";
print " ";
$i++;
}
}
else
{
$io_msg->message("No se han creado Comprobantes de Traspaso !!!");
}
}
}
print "";
?>