¿Cómo "sacar" la existencia de un producto?

[Yare]

Gracias por responder de verdad, es un embrollo total... Siento que es tan sencillo, pero las existencias no me salen...

Código Delphi [-]
 with Modulo_datos.Ds_Tabla_existencias do
  begin
    Modulo_datos.Ds_Tabla_existencias:= Modulo_datos.Ds_tabla_ventas;
    Close;
    SQL.Clear;
    SQL.Add('SELECT registro.CANTIDAD - ventas.CANTIDAD AS STOCK');
    SQL.Add('FROM registro, ventas');
    SQL.Add('WHERE registro.CODIGO_BARRAS = ventas.CODIGO_BARRAS');
    SQL.Add('AND ventas.CODIGO_BARRAS = :CODIGO_BARRAS'); 
    Open;
  end;
  DBEdit1.DataSource:= Modulo_datos.Ds_Tabla_existencias;
  DBEdit1.DataField := 'STOCK';
end;

Y me marca como error: Undeclared identifier "SQL" ..... Missing Operator Semicolon...

Revise los punto y coma pero no funciono.

¿Me podrían auxiliar?

[ecfisa]

Hola Yare.

Empezado por Yare

[size="4"][
Y me marca como error: Undeclared identifier "SQL" ..... Missing Operator Semicolon...

¿ Que componente es Modulo_datos.Ds_Tabla_existencias ? Juego mi cabeza que no es un query...

También sería muy útil que nos menciones que componentes estas usando (IBX,ADO,etc).

Por favor cuando incluyas código en tus mensaje usa etiquetas para darle más legibilidad, esta imágen explica el uso:


(Ya las agregué a tu mensaje)

Saludos.

[[ElDioni]]

Empezado por ecfisa

Hola Yare.


¿ Que componente es Modulo_datos.Ds_Tabla_existencias ? Juego mi cabeza que no es un query...

Pues si, ahora que lo dices...

[Yare]

Cierto no un un Query estoy mandando llamar a la tabla de existencias.... por medio del datasource...

Uso componentes: Ttable y Tdatasource en el Data Module...
Estoy usando IBconsole como manejador de base datos...

Lo que pasa es que mandé llamar al Query, y tuve el problema de que me decía que no existe el código_barras...

Modulo_datos.Ds_Tabla_existencias corresponde a el datasource de la tabla de existencias....

[ecfisa]

Hola Yare.

Uso componentes: Ttable y Tdatasource en el Data Module..

Ahora vamos mejor... Sabiendo que estas usando BDE, la sintáxis de la consulta para un TQuery cambia un poco:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Tu_Query do
  begin
    DataSource:= dsVentas; // TDataSource asociado a tabla VENTAS
    Close;
    SQL.Clear;
    SQL.Add('SELECT "COMPRAS".CANTIDAD - "VENTAS".CANTIDAD AS STOCK');
    SQL.Add('FROM COMPRAS , VENTAS');
    SQL.Add('WHERE "COMPRAS".CODIGO_BARRAS = "VENTAS".CODIGO_BARRAS');
    SQL.Add('AND "VENTAS".CODIGO_BARRAS = :CODIGO_BARRAS'); // (*)
    Open;
  end;
  DBEdit1.DataSource:= dsQuery;
  DBEdit1.DataField := 'STOCK';
end;

Saludos.

[Yare]

Muchísimas gracias de verdad... Si funcionó... Todavía no puedo creerlo, duré muchos días entrando al Club pero no se me ocurrió preguntar... Me ha ayudado muchísimo... EFICSA.... he aprendido algo nuevo de verdad... Espero pronto llegar a saber así....

Y una última pregunta... Por ser un Query, no lo puedo mostrar en un Qreport?


Estoy feliz!!!!

[Yare]

Ya pude hacerlo, me equivoqué en cuanto a la selección del Query....

estoy muy contenta, me sale todo perfectamente... Gracias a todos por ayudarme...



Gracias infinitas de todo corazón!

[[ElDioni]]

Prueba así

Código Delphi [-]
   
begin  
Modulo_datos.Ds_Tabla_existencias:= Modulo_datos.Ds_tabla_ventas;
Modulo_datos.Ds_Tabla_existencias.Close;     
Modulo_datos.Ds_Tabla_existencias.SQL.Clear;     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('SELECT registro.CANTIDAD - ventas.CANTIDAD AS STOCK');     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('FROM registro, ventas');     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('WHERE registro.CODIGO_BARRAS = ventas.CODIGO_BARRAS'); 
Modulo_datos.Ds_Tabla_existencias.SQL.Add('AND ventas.CODIGO_BARRAS = :CODIGO_BARRAS');      
Modulo_datos.Ds_Tabla_existencias.Open;   
DBEdit1.DataSource:= Modulo_datos.Ds_Tabla_existencias;   
DBEdit1.DataField := 'STOCK'; 
end;

Saludos.

[Yare]

Hola, gracias por ayudarme... Me marca errores también... No entiendo porque me sale el error, que no tengo declarado SQL o la sentencia close... Por que sucederá eso???

Empezado por ElDioni

Prueba así

Código Delphi [-]
   
begin  
Modulo_datos.Ds_Tabla_existencias:= Modulo_datos.Ds_tabla_ventas;
Modulo_datos.Ds_Tabla_existencias.Close;     
Modulo_datos.Ds_Tabla_existencias.SQL.Clear;     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('SELECT registro.CANTIDAD - ventas.CANTIDAD AS STOCK');     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('FROM registro, ventas');     
Modulo_datos.Ds_Tabla_existencias.SQL.Add('WHERE registro.CODIGO_BARRAS = ventas.CODIGO_BARRAS'); 
Modulo_datos.Ds_Tabla_existencias.SQL.Add('AND ventas.CODIGO_BARRAS = :CODIGO_BARRAS');      
Modulo_datos.Ds_Tabla_existencias.Open;   
DBEdit1.DataSource:= Modulo_datos.Ds_Tabla_existencias;   
DBEdit1.DataField := 'STOCK'; 
end;

Saludos.