Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 3.19 » View Incident Report |
Serious |
Reported By: Ralf Mimoun Reported On: 5/15/2002 For: Version 3.19 Build 1 |
procedure TForm1.Button1Click(Sender: TObject); const BestellungUpdate_SQL = 'UPDATE Bestellung' + ' SET' + ' MengeGeliefert = IF(MengeGeliefert = NULL THEN CAST(:MengeGeliefert AS DECIMAL(0 , 4)) ELSE CAST(MengeGeliefert + :MengeGeliefert AS DECIMAL(0 , 4))), ' + ' MengeVorgemerkt = IF(MengeVorgemerkt = NULL THEN CAST(:MengeVorgemerkt AS DECIMAL(0 , 4)) ELSE CAST(MengeVorgemerkt + :MengeVorgemerkt AS DECIMAL(0 , 4))),' + ' MengeStorniert = IF(MengeStorniert = NULL THEN CAST(:MengeStorniert AS DECIMAL(0 , 4)) ELSE CAST(MengeStorniert + :MengeStorniert AS DECIMAL(0 , 4))), ' + ' MengeNichtLieferbar = IF(MengeNichtLieferbar = NULL THEN CAST(:MengeNichtLieferbar AS DECIMAL(0 , 4)) ELSE CAST(MengeNichtLieferbar + :MengeNichtLieferbar AS DECIMAL(0 , 4))), ' + ' LieferEingangID = :LieferEingangID,' + ' StatusID = :StatusID' + ' WHERE' + ' ID = :ID'; begin DBISAMQuery1.SQL.Text := BestellungUpdate_SQL; DBISAMQuery1.ParamByName('ID').AsInteger := 1; DBISAMQuery1.ParamByName('MengeGeliefert').AsFloat := 1; DBISAMQuery1.ParamByName('MengeVorgemerkt').AsCurrency := 1; DBISAMQuery1.ParamByName('MengeStorniert').AsCurrency := 1; DBISAMQuery1.ParamByName('MengeNichtLieferbar').AsCurrency := 1; DBISAMQuery1.ParamByName('LieferEingangID').AsInteger := 1; DBISAMQuery1.ParamByName('StatusID').AsInteger := 1; DBISAMQuery1.ExecSQL; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |