select($ls_sql);
if($row=$sql->fetch_row($data))
{
$data=$sql->obtener_datos($data);
$ds_procedencias->data=$data;
}
}
if(array_key_exists("operacion",$_POST))
{
$ls_codemp=$as_codemp;
$ls_operacion=$_POST["operacion"];
$ls_comprobante=$_POST["txtdocumento"];
$ls_fecdesde=$_POST["txtfechadesde"];
$ls_fechasta=$_POST["txtfechahasta"];
$ls_procedencia=$_POST["procede"];
if($ls_procedencia=="N")
{
$ls_procede="";
}
else
{
$ls_procede=$ls_procedencia;
}
$ls_provben = "%".$_POST["txtprovbene"]."%";
$ls_tipo=$_POST["tipo"];
if(array_key_exists("tipocat",$_GET))
{
$ls_tipocat=$_GET["tipocat"];
}
else
{
$ls_tipocat="";
}
}
else
{
$ls_operacion="";
if(array_key_exists("tipocat",$_GET))
{
$ls_tipocat=$_GET["tipocat"];
}
else
{
$ls_tipocat="";
}
}
if(($ls_tipocat=="")||($ls_tipocat=="repcompdes")||($ls_tipocat=="repcomphas"))
{
print "
";
print "";
print "| Comprobante | ";
print "Descripcion Comprobante | ";
print "Procede | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
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 "Monto | ";
print "
";
}
if($ls_operacion=="BUSCAR")
{
if($_SESSION["ls_gestor"]=='MYSQLT')
{
$ls_sql="SELECT cmp.comprobante,cmp.descripcion,cmp.procede,cmp.fecha,cmp.total as monto,cmp.tipo_comp,cmp.cod_pro,cmp.ced_bene,
cmp.tipo_destino,cmp.codban,cmp.ctaban,
(CASE WHEN cmp.tipo_destino='P'
THEN
(SELECT nompro
FROM rpc_proveedor pro
WHERE pro.codemp=cmp.codemp AND pro.cod_pro=cmp.cod_pro)
WHEN cmp.tipo_destino='B'
THEN
(SELECT CONCAT(RTRIM(ben.apebene),',',ben.nombene)
FROM rpc_beneficiario ben
WHERE ben.codemp=cmp.codemp AND ben.ced_bene=cmp.ced_bene)
ELSE 'Ninguno' END) as nombre
FROM sigesp_cmp cmp
INNER JOIN scg_dt_cmp dt
ON cmp.codemp=dt.codemp AND cmp.procede=dt.procede AND cmp.comprobante=dt.comprobante AND cmp.fecha=dt.fecha AND cmp.codban=dt.codban AND cmp.ctaban=dt.ctaban
WHERE cmp.codemp='".$as_codemp."' AND
cmp.comprobante like '%".$ls_comprobante."%'";
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 cmp.fecha>='".$ls_fecdesde."' AND cmp.fecha<='".$ls_fechasta."'";
}
}
if($_SESSION["ls_gestor"]=='POSTGRES')
{
$ls_sql="SELECT cmp.comprobante,cmp.descripcion,cmp.procede,cmp.fecha,cmp.total as monto,cmp.tipo_comp,cmp.cod_pro,cmp.ced_bene,
cmp.tipo_destino,cmp.codban,cmp.ctaban,
(CASE WHEN cmp.tipo_destino='P'
THEN
(SELECT nompro
FROM rpc_proveedor pro
WHERE pro.codemp=cmp.codemp AND pro.cod_pro=cmp.cod_pro)
WHEN cmp.tipo_destino='B'
THEN
(SELECT ben.nombene||' '||ben.apebene
FROM rpc_beneficiario ben
WHERE ben.codemp=cmp.codemp AND ben.ced_bene=cmp.ced_bene)
ELSE 'Ninguno' END) as nombre
FROM sigesp_cmp cmp
INNER JOIN scg_dt_cmp dt
ON cmp.codemp=dt.codemp AND cmp.procede=dt.procede AND cmp.comprobante=dt.comprobante AND cmp.fecha=dt.fecha AND cmp.codban=dt.codban AND cmp.ctaban=dt.ctaban
WHERE cmp.codemp='".$as_codemp."' AND
cmp.comprobante like '%".$ls_comprobante."%'";
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 cmp.fecha>='".$ls_fecdesde."' AND cmp.fecha<='".$ls_fechasta."'";
}
}
if($ls_procede!="")
{
$ls_sql=$ls_sql." AND cmp.procede = '".$ls_procede."'";
}
if(($ls_tipo=="P")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND cmp.cod_pro like '".$ls_provben."'";
}
elseif(($ls_tipo=="B")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND cmp.ced_bene like'".$ls_provben."'";
}
$ls_sql=$ls_sql."GROUP BY cmp.codemp,cmp.comprobante,cmp.descripcion,cmp.procede,cmp.fecha,cmp.total,cmp.tipo_comp,cmp.cod_pro,cmp.ced_bene,cmp.tipo_destino,cmp.codban,cmp.ctaban
ORDER BY cmp.fecha,cmp.comprobante,cmp.procede ASC";
//echo $ls_sql;
$rs_data=$SQL_cmp->select($ls_sql);
$idfila = 0;
while(!$rs_data->EOF)
{
$ls_comprobante = $rs_data->fields["comprobante"];
$ls_descripcion = $rs_data->fields["descripcion"];
$ls_procedencia = $rs_data->fields["procede"];
$ls_fecha = $rs_data->fields["fecha"];
$ls_prov = $rs_data->fields["cod_pro"];
$ls_bene = $rs_data->fields["ced_bene"];
$ls_tip = $rs_data->fields["tipo_destino"];
$ls_nomproben = $rs_data->fields["nombre"];
$ls_codban = $rs_data->fields["codban"];
$ls_ctaban = $rs_data->fields["ctaban"];
$ls_tipo_comp = $rs_data->fields["tipo_comp"];
$li_monto = number_format($rs_data->fields["monto"],2,",",".");
$rs_data->MoveNext();
//////////////////////////////////agregado el 28/01/2008///////////////////////////////////////////
$ls_fecha= $ls_funciones->uf_formatovalidofecha($ls_fecha);
$ls_fecha= $ls_funciones->uf_convertirfecmostrar($ls_fecha);
////////////////////////////////////////////////////////////////////////////////////////////////
if($ls_tipocat=="")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$li_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 "".$li_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 "".$li_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 "".$li_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 "".$li_monto." | ";
print "
";
}
$idfila++;
}
}
print "
";
?>