Saludos a Todo el Foro.
Agradeciendoles, por anticipado y le imploro de favor, para ver quien de ustedes, puede ayudarme a solucionar este error de programación que se me esta dando dolor de cabeza y tengo varios meses trantando de resolver. He leido en algunos manuales pero no he tenido exitos, recurro a ustedes, para ver que me sugieren cuando ustedes tenga la oportunidad de responderme. Una vez más le agradezco la ayuda.
HarFred.
Estoy tratando de ejecutar una consulta en Delphi y cuando le doy ejecutar hago algunas selecciones Como: En el lado Izq. Selecciono Bajo Punto de Reorden y
en lado derecho Selecciono Cod. Producto, Descripcion, Pto Reorden y Existencia
Sale el sgte. error
Proyect Inventario.exe Raised Exception Class EDBEngineError with message 'Invalid use of key word. Token: From
Line Number: 1'. Stopped Process. Use step or run to continue
RadioGroup GroupBox1 con 8 CheckBox
Bajo Existencia Mínima Cod. Producto Pto. Reorden
Sobre Existencia Máxima Descripción Entradas
Bajo Punto de Reorden Existencia Mínima Salidas
Existencia Máxima Existencia
=============================================================
1 - Uson un BitBtn
1 - Query DBTable
1 - DataSource
1 - DBGrid
También estoy usando
1 - RadioGroup Tiene las sgte. Opciones.
Nombre del RadioGroup en Delphi Tipo_Consulta_Producto
Bajo existencia Mínima
Sobre Existencia Máxima
Bajo Punto de Reorden
1 - GroupBox1 con 8 CheckBox
Nombre de los CheckBox en Delphi
1er. Check_Cód_Producto
2do. Check_Descripción
3er. Check_Mínima
4to. Check_Máxima
5to. Check_Pto_Reorden
6to. Check_Entradas
7mo. Chec_Salidas
8vo. Check_Existencia
Este es el Código
BitBtn2 Se llama Ejecutar
Estoy usando un fsMDIChiild
El Formulario se Lama Forma_Consulta
Código Delphi
[-]
===============================================================
procedure TForma_Consulta_Producto.BitBtn2Click(Sender: TObject);
Var
Campos: String;
begin
Campos:= '';
Query_Producto.Active:= False;
Query_Producto.SQL.Clear;
If Check_Cod_Producto.Checked Then Campos:= Campos +'Codigo_Producto';
If Check_Descripcion.Checked Then Campos:= Campos +'Descripcion_Producto';
If Check_Minima.Checked Then Campos:= Campos +'Existencia_Minima';
If Check_Maxima.Checked Then Campos:= Campos +'Existencia_Maxima';
If Check_Pto_Reorden.Checked Then Campos:= Campos +'Punto_Reorden';
If Check_Entrada.Checked Then Campos:= Campos +'Total_Entradas';
If Check_Salida.Checked Then Campos:= Campos +'Total_Salida';
If Check_Existencia.Checked
Then Campos:= Campos +'(Total_Entradas - Total_Salidas) As Existencia,';
If (Tipo_Consulta_Producto.ItemIndex = -1) or (Campos = '') }
Then Begin
MessageDlg('Debe seleccionar un tipo de consulta/o Campos',mtError, [mbOk], 0);
Exit;
end;
Campos:= 'Select '+Campos;
With Query_Producto
Do Case Tipo_Consulta_Producto.ItemIndex Of
0 : Begin
Sql.Add(Campos +'From Producto ');
Sql.Add('Where (Total_Entradas - Total_Salidas) < Existencia_Minima')
end;
1 : Begin
Sql.Add(Campos +'From Producto ');
Sql.Add('Where (Total_Entradas - Total_Salidas) > Existencia_Maxima')
end;
2 : Begin
Sql.Add(Campos +'From Producto ');
Sql.Add('Where (Total_Entradas - Total_Salidas) <= Punto_Reorden')
end;
end;
Query_Producto.Open;
DBGrid1.Visible:= True;
end;
end.