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;
}
}
if(array_key_exists("operacion",$_POST))
{
$ls_codemp=$as_codemp;
$ls_operacion=$_POST["operacion"];
$ls_comprobante="%".$_POST["txtdocumento"]."%";
$ls_procedencia="%".$_POST["procede"]."%";
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($ls_comprobante=="000000000000000"){
$ls_comprobante="";
}
$ls_order=" ORDER BY cmp.comprobante,cmp.fecha,cmp.procede";
switch($_SESSION["ls_gestor"]){
case 'MYSQLT':
$ls_sql="SELECT cmp.codemp,cmp.procede,
cmp.comprobante,cmp.descripcion,
cmp.fecha,cmp.cod_pro,
cmp.ced_bene,cmp.tipo_destino,
SUM(dtcmp.monto) AS monto,
(CASE cmp.tipo_destino
WHEN 'P'
THEN
(SELECT prov.nompro
FROM rpc_proveedor prov
WHERE prov.codemp=cmp.codemp AND cmp.cod_pro=prov.cod_pro)
WHEN 'B'
THEN
(SELECT CONCAT(RTRIM(xbf.apebene),',',xbf.nombene)
FROM rpc_beneficiario xbf
WHERE xbf.codemp=cmp.codemp AND cmp.cod_pro=xbf.ced_bene)
ELSE 'Ninguno'
END) as nombre
FROM sigesp_cmp cmp
INNER JOIN scg_dt_cmp dtcmp
ON dtcmp.debhab = 'D' AND dtcmp.codemp=cmp.codemp
AND dtcmp.procede=cmp.procede AND dtcmp.comprobante=cmp.comprobante
AND dtcmp.fecha=cmp.fecha AND dtcmp.codban=cmp.codban
AND dtcmp.ctaban=cmp.ctaban
WHERE cmp.codemp='".$as_codemp."' AND cmp.comprobante like '".$ls_comprobante."'
AND cmp.procede like '".$ls_procedencia."'
GROUP BY cmp.codemp,cmp.procede,cmp.comprobante,cmp.descripcion,cmp.fecha,cmp.cod_pro, cmp.ced_bene,cmp.tipo_destino,cmp.codban,cmp.ctaban";
break;
case 'POSTGRES':
$ls_sql="SELECT cmp.codemp,cmp.procede,
cmp.comprobante,cmp.descripcion,
cmp.fecha,cmp.cod_pro,
cmp.ced_bene,cmp.tipo_destino,
SUM(dtcmp.monto) AS monto,
(CASE cmp.tipo_destino
WHEN 'P'
THEN
(SELECT prov.nompro
FROM rpc_proveedor prov
WHERE prov.codemp=cmp.codemp AND cmp.cod_pro=prov.cod_pro)
WHEN 'B'
THEN
(SELECT TRIM(xbf.apebene)||','||xbf.nombene
FROM rpc_beneficiario xbf
WHERE xbf.codemp=cmp.codemp AND cmp.cod_pro=xbf.ced_bene)
ELSE 'Ninguno'
END) as nombre
FROM sigesp_cmp cmp
INNER JOIN scg_dt_cmp dtcmp
ON dtcmp.debhab = 'D' AND dtcmp.codemp=cmp.codemp
AND dtcmp.procede=cmp.procede AND dtcmp.comprobante=cmp.comprobante
AND dtcmp.fecha=cmp.fecha AND dtcmp.codban=cmp.codban
AND dtcmp.ctaban=cmp.ctaban
WHERE cmp.codemp='".$as_codemp."' AND cmp.comprobante like '".$ls_comprobante."'
AND cmp.procede like '".$ls_procedencia."'
GROUP BY cmp.codemp,cmp.procede,cmp.comprobante,cmp.descripcion,cmp.fecha,cmp.cod_pro, cmp.ced_bene,cmp.tipo_destino,cmp.codban,cmp.ctaban ";
break;
}
$ls_sql=$ls_sql.$ls_order;
//print $ls_sql;
$data=$SQL_cmp->select($ls_sql);
$idfila = 0;
if(!$data->EOF){
while(!$data->EOF){
$ls_comprobante=$data->fields ["comprobante"];
$ls_descripcion=$data->fields ["descripcion"];
$ls_procedencia=$data->fields ["procede"];
$ls_fecha=$io_funciones->uf_convertirfecmostrar($data->fields ["fecha"]);
$ls_prov=$data->fields ["cod_pro"];
$ls_bene=$data->fields ["ced_bene"];
$ls_tip=$data->fields ["tipo_destino"];
$ls_nomproben=$data->fields ["nombre"];
$li_monto=number_format($data->fields ["monto"],2,",",".");
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++;
$data->MoveNext();
}
}
else
{
?>
";
?>