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