Q tal, unas ves mas con dudas, ahora tengo un error de sintaxis en el INSERT INTO, ya no puedo mas de modificar y reveer cosas, por favor si alguien me puede echar una mano estaria mas que agradecido.
el codigo es el siguiente:
Código Delphi
[-]
procedure TFacturacion.Button1Click(Sender: TObject);
var TOTALD: string;
PRECIO_UNIT : string;
begin
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.add ('SELECT * FROM productos');
ADOQuery1.SQL.add ('WHERE codigo = '+Edit1.Text+'');
try
ADOQuery1.open;
except
end;
if strtoint(Edit2.Text) > ADOQuery1.FieldByName('stock').AsInteger
then begin
showmessage ('INGRESE UNA CANTIDAD ACORDE A '+ADOQuery1.FieldByName('stock').AsString+' UNIDADES');
edit2.SetFocus;
edit2.SelectAll;
end
else begin
TOTALD:= inttostr(ADOQuery1.FieldByName('precio').Value * ADOQuery1.FieldByName('stock').Value);
PRECIO_UNIT:=ADOQuery1.FieldByName('precio').Asstring;
ADOQuery3.close;
ADOQuery3.SQL.clear;
ADOQuery3.SQL.add ('INSERT INTO facturaciones (num_fact,producto,Imp_prod,cant_prod,cliente,fecha,importe_total)');
ADOQuery3.SQL.add ('VALUE ('+inttostr (numfac)+','+edit1.Text+','+PRECIO_UNIT+','+edit2.text+','+edit3.Text+','+datetostr(DATE)+','+TOTALD +')');
try
ADOQuery3.ExecSQL;
except
end;
end;
end;