Mi programa de facturación paso a paso

[[Lepe]]

Robert01

También puedes hacerlo así:
Esto en el Oncreate de la forma:

Código Delphi [-]
 Query1.sql.Text:= 'Select apellido from clientes where apellido like :Ape'  ;
 Query1.Prepare;

Ahora en el Edit, en su evento OnkeyDown:

Código Delphi [-]
if key = vk_return then // al pulsar la tecla intro en el edit, hacemos la busqueda
begin
  Query1.Close;
  query1.Parambyname('Ape').AsString:= '%'+ Edit1.text + '%';
  query1.Open;
end;

Saludos

[Delphitest]

¿Podrias explicarte un poco mejor?. No entiendo a que te refieres

Perdona, tengo tantos códigos en la cabeza que ya no consigo ni explicar las cosas

La verdad es que lo mejor es probarlo para verlo, pero a falta de eso:

Este codigo está asignado a un "botton2" dentro del Form FAlbaran de tal manera que al pulsarlo debería sumar todos los importes de las lineas del albaran en que este el cursor en ese momento (el que este en pantalla vamos), yo para no complicarlo he puesto que sume las lineas del albaran 8, ya habrá tiempo de mejorar ese punto.

Existe un campo calculado que se llama Importe pero lo que hago es pasar todos esos datos a medida que se calculan en cada linea a un campo "ImporteLineal" que realemente existe en la tabla DesgloseAlbaran para que se grabe y quede ahi puesto.

He añadido al Form un ADOQuery para realizar esta consulta. Pero tengo un problema con lo de la suma.

la palabra "SUM" sería la apropiada para sumar estos campo, pero resulta que si la uso aparece el error que os puesto antes, pero tras el error si continuo con la ejecución aparece el mensaje que he puesto con showmessage y ese valor que muestra es la suma bien hecha. Por lo tanto no entiendo porque me da el error pero luego lo hace bien. Si no pongo SUM logicamente no me suma nada pero al menos no da el error por eso intuyo que sale de ahí

espero haberme explicado

[kalimero]

Prueba con esto:

Código Delphi [-]
var
sSQL:String;
begin
ADOQAlbaran.Close;
a := StrToInt(DBEdit1.Text);
sSQL:= 'SELECT Sum(Desglose_Albaran.ImporteLineal) AS campo ' +
         'FROM Desglose_Albaran' +
         'Where Num_Albaran = a';
  ADOQAlbaran.SQL.Text := sSQL;
  ADOQAlbaran.open;
end

Asi, ami me funciona que es tal y como yo lo suelo hacer .
Saludos

[Delphitest]

Gracias Kalimero, creo que yo necesito tratamiento psicologico, esto es increible.

Mira que error me aparece con ese codigo, lo único que he añadido es la variable a como integer pq sino no arrancaba.

http://cjoint.com/data/kFs2vhihPl.htm


El codigo es este:

Código Delphi [-]
procedure TFAlbaranes.Button2Click(Sender: TObject);
var
sSQL:String;
a: integer;
begin
  ADOQAlbaran.Close;
  a := StrToInt(DBEdit1.Text);
  sSQL:= 'SELECT Sum(Desglose_Albaran.ImporteLineal) AS campo ' +
         'FROM Desglose_Albaran' +
         'Where Num_Albaran = a';
  ADOQAlbaran.SQL.Text := sSQL;
  ADOQAlbaran.Open;
end;

ya no se que hago mal ....

[[Caral]]

Se puede saber que estais haciendo, ese codigo jamas va a funcionar.
Que alguien me explique.
Saludos

[[Caral]]

Hola Delphitest
Paso a paso:
1-Coloca un query en el form y lo llamas ADOQAlbaran, en el string del query pones esto tal y como esta, copialo y pegalo:

Código SQL [-]
SELECT DISTINCTROW Sum([Desglose_Albaran].[Importe]) AS [Importe]
FROM Desglose_Albaran

Dale dobleclick al query y dale add
en la pantallita que te sale, saldra un nombre Importe, traetelo con el mouse y colocalo en el form, te aparecera un datasource, el dbedit seguro que es 25como se ve en mi programa.
2-En el boton que tienes pones esto:

Código Delphi [-]
 ADOQAlbaran.Close;
   ADOQAlbaran.SQL.Add('WHERE Desglose_Albaran.Num_Albaran = '+DBEdit22.Text+'');
   ADOQAlbaran.Open;
   Button2.Visible:= False;
   DBEdit24.Text:= DBEdit25.Text;

En el dbedit que pusiste antes te saldra el resultado de la suma.
Con esto ya tienes el resultado del importe, osea sumara lo que este en el dbgrid, dependiendo del albaran.
Si tienes alguna duda me dices.
Saludos

[Delphitest]

Efectivamente Maestro, ya lo suma

He tenido que cambiar Importe por ImporteLineal despues de SUM pero ya va.

Ahor atengo que adaptarlo al resto, veo que si le doy 2 veces seguidas da fallos, pero ya es un gran paso.

Debo hacer que ese cálculo se haga de forma automatica sin pulsar botones, por ejemplo siempre que haya algun cambio en el DBGrid, sea añadir lineas o quitarlas, supongo que habrá algun evento para esto.

Muchas gracias por tu colaboración, ya arranco de nuevo con los siguientes pasos. Mañana festivo, descanso que no viene mal.