Buenas noches a todos!
espero que la pasen bien.
tengo el siguiente inconveniente, si alguno sabe como resolverlo me ayudaria:
(La idea es que el bucle recorra la base de datos (Access) y me ponga en un RichEdit los productos su cantidad sea menor a los que yo le indique, ese dato esta en la tabla de configuraciones, el campo se llama "Reordenar" ).
lo hago de la siguiente forma:
Dentro de mi tabla llamada productos, tengo un campo que es el de la cantidad existente, le llamo "Existencia" (Campo numerico), y el otro campo esta en la tabla de configuraciones y le llamo "reordenar" esto es lo que tengo hasta ahora:
Código Delphi
[-]
procedure Reordenarproductos(const Parareordenar: string; Qry: TADOQuery; RE: TRichEdit);
begin
with Qry do
begin
Close;
SQL.Clear;
SQL.Add('SELECT Descripcion, Existencia FROM Productos');
SQL.Add('WHERE Existencia <= :Reordenar');
Parameters.ParamByName('Reordenar').Value := Parareordenar;
Open;
while not Eof do
begin
RE.SelAttributes.Color:= Clblack;
RE.Lines.Add('------------');
RE.SelAttributes.Color:= Clblack;
RE.Lines.Add(Format('%s - %s',[FieldByName('Descripcion').AsString,
FieldByName('Existencia').AsString]));
Next;
end;
end;
end;
y la llamada:
Código Delphi
[-]
begin
Adoquery1.Close;
Adoquery1.Open;
RE.SelAttributes.Color:= Clblack;
RE.Lines.Add('*Articulos Que Se Agotan*');
reordenarproductos(Fconfiguracion.DBEreordenar.Text, ADOQuery2, RE);
end;
todo bien hasta ahí, pero hay un tercer campo en la tabla productos que se llama SubLinea_Producto, en este campo almaceno la sub categoria del producto, por ejemplo: Accesorios, Conectores, Etc, yo quiero que el bucle verifique si el producto tiene en la sublinea_producto: "accesorio" y ignore este producto y sigua agregando los demas que no estan en esta categoria.
porque como ustedes saben, a veces hay accesorios que solo compramos uno y dos, y no quiero que aparescan.
Saludos!