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;
}
}
if(array_key_exists("operacion",$_POST))
{
$ls_codemp=$as_codemp;
$ls_operacion=$_POST["operacion"];
$ls_comprobante="%".$_POST["txtdocumento"]."%";
// $ls_denominacion="%".$_POST["nombre"]."%";
$ls_fecha=$_POST["txtfecha"];
$ls_procedencia=$_POST["procede"];
$ls_provben = "%".$_POST["txtprovbene"]."%";
$ls_tipo=$_POST["tipo"];
}
else
{
$ls_operacion="";
}
print "
";
print "";
print "| Comprobante | ";
print "Descripcion Comprobante | ";
print "Procede | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_sql="SELECT procede,comprobante,descripcion,fecha,cod_pro,ced_bene FROM sigesp_cmp
WHERE codemp='".$as_codemp."' AND comprobante like '".$ls_comprobante."'";
if(($ls_fecha!="")&&($ls_fecha!="01/01/1900"))
{
$ls_fecha=substr($ls_fecha,6,4)."/".substr($ls_fecha,3,2)."/".substr($ls_fecha,0,2);
$ls_sql=$ls_sql." AND fecha='".$ls_fecha."'";
}
if($ls_procedencia!="N")
{
$ls_sql=$ls_sql." AND Procede ='".$ls_procedencia."'";
}
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."'";
}
$rs_cta=$SQL_cmp->select($ls_sql);
$data=$rs_cta;
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];
print $ls_procedencia;
$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];
print $ls_prov." ".$ls_bene;
if(($ls_prov=="----------")&&($ls_bene=="----------"))
{
$ls_tip="-";
}
elseif(($ls_prov=="----------")&&($ls_bene!="----------"))
{
$ls_tip="B";
}
elseif(($ls_prov!="----------")&&($ls_bene=="----------"))
{
$ls_tip="P";
}
print "Tipo=".$ls_tip;
print "";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "
";
}
}
else
{
print "No se han creado Cuentas Contables";
}
}
print "
";
?>