Hola, resulta que tengo una tabla de productos que tiene cantidad y stockminimo, quiero compararlos, porque si alguno llega al minimo tire un mensaje que hay que reponer mercaderias.
Código Delphi
[-]procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show; Table1.Active:=true;
While not Table1.Eof do
begin
if Table1.FieldByName('Stock').Value < Table1.FieldByname('Minimo').Value then application.MessageBox('Hay productos con bajo stock', '¡Atención!', mb_ok + mb_iconquestion);
end;
end;
el asunto es que se queda coldo el programa, como que falta cerrarlo de alguna manera, agradesco cualquier ayuda.