select($ls_sql);
//$data=$rs_cta;
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(array_key_exists("operacion",$_POST))
{
$ls_codemp=$as_codemp;
$ls_operacion=$_POST["operacion"];
$ls_comprobante=$_POST["txtdocumento"];
// $ls_denominacion="%".$_POST["nombre"]."%";
$ls_fecdesde=$_POST["txtfechadesde"];
$ls_fechasta=$_POST["txtfechahasta"];
$ls_procedencia=$_POST["procede"];
$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="";
}
$ls_procedencia='N';
}
if($ls_procedencia=='N')
{
$ls_procedencia="";
}
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 "
";
}
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 "
";
}
if($ls_operacion=="BUSCAR")
{
$ls_order=" ORDER BY fecha ASC ,comprobante ASC ,procede ASC ";
$ls_sql="SELECT ( CASE cmp.tipo_destino
WHEN 'P' THEN prv.nompro
WHEN 'B' THEN CONCAT(RTRIM(xbf.apebene),',',xbf.nombene)
ELSE 'Ninguno'
END ) as nombre,cmp.codemp,cmp.procede,cmp.comprobante,cmp.descripcion,cmp.fecha,cmp.cod_pro,cmp.ced_bene,cmp.tipo_destino
FROM sigesp_cmp cmp,rpc_beneficiario xbf,rpc_proveedor prv
WHERE cmp.cod_pro=prv.cod_pro AND cmp.ced_bene=xbf.ced_bene AND
cmp.codemp='".$as_codemp."' AND tipo_comp=1 AND comprobante like '%".$ls_comprobante."%' AND procede like '%".$ls_procedencia."%' AND
(CONCAT( cmp.codemp,cmp.procede,cmp.comprobante,cmp.fecha) IN ( SELECT CONCAT(cmp.codemp,cmp.procede,cmp.comprobante,cmp.fecha) FROM spg_dt_cmp cmp)
OR cmp.procede='SPGCMP') ";
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 fecha>='".$ls_fecdesde."' AND 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_sql=$ls_sql.$ls_order;
$rs_cmp=$SQL_cmp->select($ls_sql);
$data=$rs_cmp;
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_provbene=$data["nombre"][$z];
$ls_tip=$data["tipo_destino"][$z];
if(($ls_prov=="----------")&&($ls_bene=="----------"))
{
$ls_tip="-";
$ls_prov="----------";
$ls_bene="----------";
$ls_provbene="Ninguno";
}
elseif(($ls_prov=="----------")&&($ls_bene!="----------"))
{
$ls_tip="B";
$ls_provbene= uf_select_provbene($SQL,"SELECT nombene FROM rpc_beneficiario WHERE ced_bene='".$ls_bene."'","nombene");
}
elseif(($ls_prov!="----------")&&($ls_bene=="----------"))
{
$ls_tip="P";
$ls_provbene= uf_select_provbene($SQL,"SELECT nompro FROM rpc_proveedor WHERE cod_pro='".$ls_prov."'","nompro");
}
if($ls_tipocat=="")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
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 "
";
}
if($ls_tipocat=="repcomphas")
{
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
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 "
";
}
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 "
";
}
}
$SQL_cmp->free_result($rs_cmp);
}
else
{
if(!empty($ls_procedencia))
{
?>
";
?>