";
print "
";
print "| Comprobante | ";
print "Descripcion Comprobante | ";
print "Procede | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$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)";
}
$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.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 ";
if((($ls_fecdesde!="")&&($ls_fecdesde!="01/01/1900"))&&(($ls_fechasta!="")&&($ls_fechasta!="01/01/1900")))
{
$ls_fecdesde=substr($ls_fecdesde,6,4)."/".substr($ls_fecdesde,3,2)."/".substr($ls_fecdesde,0,2);
$ls_fechasta=substr($ls_fechasta,6,4)."/".substr($ls_fechasta,3,2)."/".substr($ls_fechasta,0,2);
$ls_sql=$ls_sql." AND sigesp_cmp_md.fecha>='".$ls_fecdesde."' AND sigesp_cmp_md.fecha<='".$ls_fechasta."'";
}
if($ls_procedencia!="N")
{
$ls_sql=$ls_sql." AND sigesp_cmp_md.procede ='".trim($ls_procedencia)."'";
}
$ls_sql = $ls_sql.$ls_sql_seguridad." ORDER BY sigesp_cmp_md.comprobante, sigesp_cmp_md.fecha ";
$rs_cta=$SQL_cmp->select($ls_sql);
//echo $ls_sql;
$data=$rs_cta;
if (!empty($data))
{
if($row=$SQL_cmp->fetch_row($rs_cta))
{
$data=$SQL_cmp->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("comprobante");
for($z=1;$z<=$totrow;$z++)
{
$ls_comprobante=$data["comprobante"][$z];
$ls_descripcion=$data["descripcion"][$z];
$ls_procedencia=$data["procede"][$z];
$ls_fecha=$data["fecha"][$z];
$ls_fecha=substr($ls_fecha,8,2)."/".substr($ls_fecha,5,2)."/".substr($ls_fecha,0,4);
$ls_prov=$data["cod_pro"][$z];
$ls_bene=$data["ced_bene"][$z];
$ls_codfuefin = $data["codfuefin"][$z];
$ls_coduniadm = $data["coduac"][$z];
$ls_denuniadm = $data["denuac"][$z];
if(($ls_prov=="----------")&&($ls_bene=="----------"))
{
$ls_tip="-";
}
elseif(($ls_prov=="----------")&&($ls_bene!="----------"))
{
$ls_tip="B";
}
elseif(($ls_prov!="----------")&&($ls_bene=="----------"))
{
$ls_tip="P";
}
$li_estapro=$data["estapro"][$z];
print "
";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "
";
}
}
else
{
?>
";
?>