select($ls_sql);
if($row=$sql->fetch_row($data))
{
$data=$sql->obtener_datos($data);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds_procedencias->data=$data;
}
}
function uf_select_provbene($sql,$ls_cadena,$ls_campo)
{
$data=$sql->select($ls_cadena);
if($row=$sql->fetch_row($data))
{
$ls_provbene=$row[$ls_campo];
}
else
{
$ls_provbene="";
}
$sql->free_result($data);
return $ls_provbene;
}
if($ls_procedencia=='N')
{
$ls_procedencia="";
}
if(($ls_tipocat=="")||($ls_tipocat=="repcompdes")||($ls_tipocat=="repcomphas")||($ls_tipocat=="rep_ejecucion"))
{
print "
";
print "";
print "| Comprobante | ";
print "Descripcion Comprobante | ";
print "Procede | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
print "Nombre Prov./Benef. | ";
print "Monto | ";
print "
";
}
elseif(($ls_tipocat=="rep_proc_des")||($ls_tipocat=="rep_proc_has"))
{
print "";
print "";
print "| Procede | ";
print "Comprobante | ";
print "Descripcion Comprobante | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
print "Nombre Prov./Benef. | ";
print "Monto | ";
print "
";
}
if($ls_operacion=="BUSCAR")
{
/*$ls_order=" ORDER BY fecha ASC ,comprobante ASC ,procede ASC ";
$ls_sql="SELECT distinct a.procede,a.codemp,a.comprobante,a.fecha,a.ced_bene,a.cod_pro,a.descripcion,a.tipo_destino,a.total
FROM sigesp_cmp a
WHERE a.codemp='".$as_codemp."' AND a.comprobante like '%".$ls_comprobante."%' AND
a.procede like '%".$ls_procedencia."%'" ;
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 a.fecha>='".$ls_fecdesde."' AND a.fecha<='".$ls_fechasta."'";
}
if(($ls_tipo=="P")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND cod_pro like '".$ls_provben."'";
}
elseif(($ls_tipo=="B")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND ced_bene like'".$ls_provben."'";
}*/
$ls_logusr = $_SESSION["la_logusr"];
$ls_gestor = $_SESSION["ls_gestor"];
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_sql_seguridad = " AND CONCAT('".$ls_codemp."','SPG','".$ls_logusr."',spg_dt_cmp.codestpro1,spg_dt_cmp.codestpro2,spg_dt_cmp.codestpro3,spg_dt_cmp.codestpro4,spg_dt_cmp.codestpro5,spg_dt_cmp.estcla) IN (SELECT CONCAT(codemp,codsis,codusu,codintper)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1)";
}
else
{
$ls_sql_seguridad = " AND '".$ls_codemp."'||'SPG'||'".$ls_logusr."'||spg_dt_cmp.codestpro1||spg_dt_cmp.codestpro2||spg_dt_cmp.codestpro3||spg_dt_cmp.codestpro4||spg_dt_cmp.codestpro5||spg_dt_cmp.estcla IN (SELECT codemp||codsis||codusu||codintper
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG' AND enabled=1)";
}
$ls_cadena="";
$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_fecdesde=$fun->uf_convertirdatetobd($ls_fecdesde);
$ls_fechasta=$fun->uf_convertirdatetobd($ls_fechasta);
if(($ls_tipo=="P")&&($ls_provben!=""))
{
$ls_cadena=" AND cod_pro like '".$ls_provben."' ";
}
elseif(($ls_tipo=="B")&&($ls_provben!=""))
{
$ls_cadena=" AND ced_bene like'".$ls_provben."' ";
}
$ls_order=" ORDER BY fecha ASC ,comprobante ASC ,procede ASC ";
/*$ls_sql=" SELECT distinct MAX(sigesp_cmp.procede) AS procede, MAX(sigesp_cmp.codemp) AS codemp, ".
" MAX(sigesp_cmp.comprobante) AS comprobante, ".
" MAX(sigesp_cmp.fecha) AS fecha, MAX(sigesp_cmp.ced_bene) AS ced_bene, ".
" MAX(sigesp_cmp.descripcion) AS descripcion, sigesp_cmp.tipo_destino, ".
" SUM(spg_dt_cmp.monto) as total, sigesp_cmp.codban, sigesp_cmp.ctaban ".
" FROM sigesp_cmp, spg_dt_cmp ".
" WHERE sigesp_cmp.codemp='".$as_codemp."' AND sigesp_cmp.comprobante like '%".$ls_comprobante."%' AND ".
" sigesp_cmp.procede like '%".$ls_procedencia."%' AND sigesp_cmp.fecha>='".$ls_fecdesde."' AND ".
" sigesp_cmp.fecha<='".$ls_fechasta."' ".$ls_cadena." AND sigesp_cmp.codemp=spg_dt_cmp.codemp AND ".
" sigesp_cmp.comprobante=spg_dt_cmp.comprobante AND ".
" sigesp_cmp.procede=spg_dt_cmp.procede AND ".
" sigesp_cmp.fecha=spg_dt_cmp.fecha ";*/
$ls_sql=" SELECT distinct sigesp_cmp.procede AS procede, ".
" sigesp_cmp.codemp AS codemp, ".
" sigesp_cmp.comprobante AS comprobante,".
" sigesp_cmp.fecha AS fecha, ".
" sigesp_cmp.ced_bene AS ced_bene,".
" sigesp_cmp.cod_pro AS cod_pro,".
" sigesp_cmp.descripcion AS descripcion, ".
" sigesp_cmp.tipo_destino AS tipo_destino,".
" sigesp_cmp.codban AS codban, ".
" sigesp_cmp.ctaban AS ctaban, ".
" SUM(spg_dt_cmp.monto) as total,".
" sigesp_cmp.estrenfon, sigesp_cmp.codfuefin ".
" FROM sigesp_cmp, spg_dt_cmp ".
" WHERE sigesp_cmp.codemp='".$as_codemp."' AND sigesp_cmp.comprobante like '%".$ls_comprobante."' AND ".
" sigesp_cmp.procede like '%".$ls_procedencia."%' AND sigesp_cmp.fecha>='".$ls_fecdesde."' AND ".
" sigesp_cmp.fecha<='".$ls_fechasta."' ".$ls_cadena." AND sigesp_cmp.codemp=spg_dt_cmp.codemp AND ".
" sigesp_cmp.comprobante=spg_dt_cmp.comprobante AND ".
" sigesp_cmp.procede=spg_dt_cmp.procede AND ".
" sigesp_cmp.comprobante NOT LIKE 'CONEJEFINGAS-%' AND ".
" sigesp_cmp.fecha=spg_dt_cmp.fecha ".$ls_sql_seguridad." ".
" GROUP BY sigesp_cmp.procede,".
" sigesp_cmp.codemp, ".
" sigesp_cmp.comprobante, ".
" sigesp_cmp.fecha, ".
" sigesp_cmp.ced_bene,".
" sigesp_cmp.cod_pro,".
" sigesp_cmp.descripcion,".
" sigesp_cmp.tipo_destino,".
" sigesp_cmp.codban,".
" sigesp_cmp.ctaban,".
" sigesp_cmp.estrenfon, ".
" sigesp_cmp.codfuefin";
$ls_sql=$ls_sql.$ls_order;
$rs_cmp=$SQL_cmp->select($ls_sql);
$data=$rs_cmp;
if (!empty($data))
{
if($row=$SQL_cmp->fetch_row($rs_cmp))
{
$data=$SQL_cmp->obtener_datos($rs_cmp);
$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_codban=$data["codban"][$z];
$ls_ctaban=$data["ctaban"][$z];
//$ls_provbene=$data["nombre"][$z];
$ls_tip=$data["tipo_destino"][$z];
$ls_estrenfon=$data["estrenfon"][$z];// estatus para las redencion de fondos
$ls_codfuefin=$data["codfuefin"][$z];
$ldec_monto=number_format($data["total"][$z],2,",",".");
if($ls_tip=="-")
{
$ls_tip="-";
$ls_prov="----------";
$ls_bene="----------";
$ls_provbene="Ninguno";
}
elseif($ls_tip=="B")
{
$ls_tip="B";
$ls_provbene= uf_select_provbene($SQL,"SELECT nombene FROM rpc_beneficiario WHERE ced_bene='".$ls_bene."'","nombene");
$ls_provbene= $ls_provbene.uf_select_provbene($SQL,"SELECT apebene FROM rpc_beneficiario WHERE ced_bene='".$ls_bene."'","apebene");
}
elseif($ls_tip="P")
{
$ls_tip="P";
$ls_provbene= uf_select_provbene($SQL,"SELECT nompro FROM rpc_proveedor WHERE cod_pro='".$ls_prov."'","nompro");
}
else
{
$ls_tip="-";
$ls_prov="----------";
$ls_bene="----------";
$ls_provbene="Ninguno";
}
if($ls_tipocat=="")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
if($ls_tipocat=="repcompdes")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
if($ls_tipocat=="repcomphas")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
if($ls_tipocat=="rep_proc_des")
{
print "";
print "| ".$ls_procedencia." | ";
print "".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
if($ls_tipocat=="rep_proc_has")
{
print "";
print "| ".$ls_procedencia." | ";
print "".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
if($ls_tipocat=="rep_ejecucion")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_prov." | ";
print "".$ls_fecha." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ldec_monto." | ";
print "
";
}
}
$SQL_cmp->free_result($rs_cmp);
}
else
{
if(!empty($ls_procedencia))
{
?>
";
?>