Mostrar Registros Mayor que
 

Hola de nuevo amigos foristas..

Tengo una búsqueda sql con radiogroup y un dbgrid el cual funciona perfectamente y sirve para hacer proformas...

quisiera agregar un boton en el radiogroup el cual me refleje en el dbgrid los artículos que su cantidad sea menor o igual a 10..

¿alguna idea?

Gracias Adelantadas!!

Hola

Código SQL [-]
Select * from tutabla where cantidad <= 10

Saludos

Hola, será algo así?:

Código Delphi [-]
If RadioButton1.checked then
    begin
    Query1.Close;
    Query1.SQL.Add(' where Cant <= 10');
    Query1.open;
    end;

Saludos.

PD. Eso es lo malo de tener internet Dial-up, :D.

Disculpen por no poner el código antes tengo este código que funciona con 3 radiobuttons en un radiogroup y cuando selecciono uno muestra los resultados obtenidos en un dbgrid

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= 10';
  end;

ya lo he intentado de la forma en que dice el amigo enecumene y el amigo Caral y da error type mismacht algo asi :confused:

Hola
No entiendo, funciona, no funciona, lo modificaste, necesitas algo mas??.
Saludos

no funciona amigo dice error type mismatch

Hola
Que tipo de campo es Cantidad???.
Saludos

Está indicando que hay una diferencia en el tipo de campo entre el campo persistente del dataset y la base de dato. Intenta cargar de nuevo los persistentes del Dataset.

Saludos.

En la tabla paradox 7 Stkart es de tipo Integer

Hola
Como dice enecumene, puede que en algun momento cambiaras el tipo de dato, recarga el dataset y veremos que pasa.
La operacion tal como la pusimos es para un campo integer, no creo que sea ese el problema.
Saludos

Código del Radiogroup1

Código Delphi [-]
procedure TForm7.RadioGroup1Click(Sender: TObject);
var
buscar:string;
begin
if RadioGroup1.ItemIndex=0 then
edit1.enabled:=true;
edit1.Clear;
dbgrid1.Enabled:=true;
if radiogroup1.ItemIndex=1 then
edit1.enabled:=true;
edit1.clear;
dbgrid1.Enabled:=true;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;

Código del edit1 (mi filtro de informacion)

Código Delphi [-]
procedure TForm7.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= 10';
end;
  Query1.SQL.Clear;
  Query1.SQL.Add(buscar);
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=50;
  dbgrid1.Columns.Items[1].Width:=200;
  dbgrid1.Columns.Items[2].Width:=90;
  dbgrid1.Columns.Items[3].Width:=60;
  dbgrid1.Columns[0].Title.caption:='Código';
  dbgrid1.Columns[1].Title.caption:='Nombre del Articulo';
  dbgrid1.Columns[2].Title.caption:='PVP';
  dbgrid1.Columns[3].Title.caption:='Existencia';
end;

el error da apenas presiono el radiobutton 3 (Cantidad)=Stkart

¿Por casualidad sabes lo que son los campos persistentes?, son aquellos campos que agregas cuando le das doble click al query, lo que tienes que hacer es, primero poner en False el dataset, dar doble click al dataset, borrar los campos agregados, poner en true, luego agregar los campos de nuevo y ponerlo otra vez a False. Intentalo.

Saludos.

Hola
No veo el error, intenta esto:

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=10';

Saludos

Caral ese es exactamente el código que tenia pero sigue dando el error type mismatch

creo que el error puede estar en que la variable buscar es tipo string y stkart en integer

intenté declarar una variable buscar2:integer; pero nisiquiera corrió el programa

si ese es el error no tengo idea como solucionarlo :confused:

Hola
Ese no es el problema
Buscar tiene que ser string.
El problema esta en que el dato 10 no coincide con el campo, por lo menos es lo que imagino.
Tienes que probar con otro dato.
Ejemplo, pon en vez de 10 el edit y en este pones el numero 10.
Si funciona el dato busca un string.
Saludos

intenté con este código pero nada!

Código Delphi [-]
var
buscar,valor:string;
begin
valor:=inttostr(10);
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart<=valor "';
end;

Hola
Asi:

Código Delphi [-]
case RadioGroup1.ItemIndex of
  0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';
  1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';
  2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

Saludos

Ahora intente con el código de caral

Código Delphi [-]
case RadioGroup1.ItemIndex of  
0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';  
1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';  
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= ' + (Edit1.text);

pero ahora da un error distinto que dice invalid use of keyword token: <= creo que ya casi va a funcionar jejeje

Hola
Probemos esto:

Código Delphi [-]
case RadioGroup1.ItemIndex of  
0:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where codart Like "' + (Edit1.text) + '%"';  
1:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where desart Like "' + (Edit1.text) + '%"';  
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart = ' + (Edit1.text);

Quitando el signo de menor que.
A ver que pasa.
Saludos

Tengan en cuenta que:
1) se abre el formulario
2) selecciono el radiobutton3(Cantidad)=Stkart
3) deberia msotrar los resultados

Hola, intenta así:

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= +QuotedStr(Edit1.text)+';

ó

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=  '+QuotedStr(Edit1.text)+'';

Saludos.

Una Pregunta lKinGl, ¿llegaste a leer el post #13 de este hilo?.

Saludos.

Hola
En realidad el primero no funcionaria y al segundo le sobra una comilla.
Amigo creo que te falta algo de descanso.:D:D
Código Delphi [-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= '+QuotedStr(Edit1.text);

Saludos

si sirviooooooooooooooooooooooooooooo

enecumene tu 2do codigo sirvió
funciona asi:
se abre el form
luego selecciono el radiobutton 3(Cantidad)=STkart
luego escribo en edit1 la cantidad 10 y me salen los productos el cual su existencia es igual o menor a 10

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <=  '+QuotedStr(Edit1.text)+'';

Hola
Eso indica que no estabamos equivocados, el dato es un string y no debería serlo.
Saludos

Hmmm me acabo de dar cuenta de que funciona pero no correctamente
fijense

tengo 2 articulos agregados uno tiene en existencia 1 y otro tiene 10

cuando corro el programa y pongo en edit1 8 no deberia salir el segundo articulo que tiene 10

por que la instruccion deberia dar como resultado los menores o iguales a edit1.text

ya es mas pequeño el problema supongo :D

Así es amigo Caral, por eso le reitero al amigo lKinGl que revise los campos persistentes que estoy seguro que el problema viene de ahí, tal como lo comenté en el post #13.

Saludos.

Hmmm me acabo de dar cuenta de que funciona pero no correctamente
fijense

tengo 2 articulos agregados uno tiene en existencia 1 y otro tiene 10

cuando corro el programa y pongo en edit1 8 no deberia salir el segundo articulo que tiene 10

y salen los 2 el de 1 y el de 10 cuando deberia salir solo 1 el que tiene 1 existencia

por que la instruccion deberia dar como resultado los menores o iguales a edit1.text

ya es mas pequeño el problema supongo :D

Hola
Como dice reiteradamente enecumene, revisa el post 13
Por ahi esta el problema
Saludos

Pues nos explicaste mal el asunto, dijiste menor que 10, no igual a Edit1, sería así:

Código Delphi [-]
2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart =  '+QuotedStr(Edit1.text)+'';

Saludos.

Sigue funcionando erradamente

me explico mejor

lo que quiero obtener de esta funcion es saber cuales de los articulos tiene menos de edit1.text de existencia

y que esos artículos se reflejen en mi dbgrid1
saludos!

Hola
Para mi te as explicado bien.
El dato busca un string y deberia ser un integer.
<= menor O igual que
< menor que
= igual que.
Por aqui puede estar la diferencia, pero insisto el dato no deberia ser un string.
Saludos

Caral tienes razón por que cuando escirbo en el edit1 la cantidad:

1 el resultado es: aparece el articulo que tiene 1 de existencia
10 el resultado es: aparecen los 2 el de 1 y el de 10 de existencia
8 el resultado es: aparecen los 2 el de 1 y el de 10 de existencia

aunque no se que es QuotedStr creo que esta transformando de Quoted a String

y deberia ser de Quoted a Integer

Salu2

Hola
1. Revisa el campo, asegurate que sea integer.
2. Desconecta el query y quitale todo el contenido si lo tiene.
3. corre el programa, sin presionar nada, asi se limpiara.
4. conecta el query nuevamente.
5. ya deberia estar el dato como un integer.
6. coloca tu primer codigo, ya que este ultimo no servira.
saludos

Grave Error de mi parte y grandesa de su parte xD

El STkart estaba de tipo A

Lo cambié a I y funcionó correctamente....

Cuando escribo en edit1 la cantidad:

2 el resultado es que muestra solo el articulo que tiene 1 de existencia no muestra el que tiene 10

y si aumento el rango a 10,11,12 muestra los 2 como deberia ser!!!

Muchisimas Gracias a los 2 por ayudarme con mi código y tenerme paciencia xD