Takže konečne som to veľmi neefektívne rozbehol. dvakrát som kompletne zopakoval sadu ADOQuery a to takto:
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('UPDATE Objednavky SET SumaTovaru=:SumaT,ZlavaPer=:ZlavaP,ZlavaSum=:ZlavaS,DPH=:DPHp,CelkovaSuma=:Celkova,Provizia=:Prov,NazovSpolocnostiPrijemcu=:SpolP,MenoPrijemcu=:MenoP,AdresaPrijemcu=:AdresaP WHERE Objednavky.IDObjednavky=:IDPOMOCNA');
Parameters.ParamByName('IDPOMOCNA').Value:= IDPom;
Parameters.ParamByName('SumaT').Value:= EditObjednavky.Label12.Caption;
Parameters.ParamByName('ZlavaP').Value:= EditObjednavky.Edit9.Text;
Parameters.ParamByName('ZlavaS').Value:= EditObjednavky.Label23.Caption;
Parameters.ParamByName('DPHp').Value:= EditObjednavky.Label25.Caption;
Parameters.ParamByName('Celkova').Value:= FloatToStr(celkova);
Parameters.ParamByName('Prov').Value:= FloatToStr(provizia);
Parameters.ParamByName('SpolP').Value:= EditObjednavky.Edit1.Text;
Parameters.ParamByName('MenoP').Value:= EditObjednavky.Edit2.Text;
Parameters.ParamByName('AdresaP').Value:= EditObjednavky.Edit3.Text;
ExecSQL;
end;
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('UPDATE Objednavky SET MestoPrijemcu=:MestoP,PSCPrijemcu=:PSCp,StatPrijemcu=:StatP,DatumDodania=:DatumD,SposobDopravy=:SposobD,Dopravne=:Doprav,KontaktyID=:Kontakt WHERE Objednavky.IDObjednavky=:IDPOMOCNA');
Parameters.ParamByName('IDPOMOCNA').Value:= IDPom;
Parameters.ParamByName('MestoP').Value:= EditObjednavky.Edit4.Text;
Parameters.ParamByName('PSCp').Value:= EditObjednavky.Edit5.Text;
Parameters.ParamByName('StatP').Value:= EditObjednavky.Edit6.Text;
Parameters.ParamByName('DatumD').Value:= DateToStr(EditObjednavky.DateTimePicker1.Date);
Parameters.ParamByName('SposobD').Value:= EditObjednavky.ComboBox1.Text;
Parameters.ParamByName('Doprav').Value:=dopravne;
Parameters.ParamByName('Kontakt').Value:= EditObjednavky.ADOTable1.FieldByName('KontaktyID').AsInteger;
ExecSQL;
end;