Mi programa de facturación paso a paso

[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.

[[Caral]]

Hola
Los dbtex que usas para iva, descuento y total cambialos por dbedit, son mas practicos y te ayudaran a hacer la suma.
Con respecto a que lo haga automatico no te lo aconsejo, en la practica veras el porque, yo lo uso asi.
Si, da un error si lo quieres calcular dos veces seguidas, es porque se suma un reporte sobre otro, hay formas de evitarlo lo que pasa es que no te he querido liar mucho, me parece que lo que necesitas es avanzar y luego ya tendremos oportunidad de mejorar el codigo, cuando no se avanza la verdad uno se desespera, no se si a ti te pasa, pero a mi me mata, cuando algo no sale bien mejor a por otra y luego vuelvo.
Lo de maestro te lo agradezco, pero soy tan novato como tu, lo que llevo en esto de la programacion no son ni 4 meses.
Saludos