Morning all,
I'm hoping that someone out there can help with this....
We have an app (Delphi 1) that runs a parameterised update query (code
below) successfully at multiple sites, bur at one particular site they are
getting a syntax error message related to the "Rounding Error" field and
something about "image 2". Can anyone see why this would be happening or
had this problem before?
with qryQStock do begin
Close;
SQL.Clear;
SQL.Add('UPDATE Lot');
SQL.Add('SET Lot.Branch = :BranchID, Lot.Receipt = :ReceiptID, ' +
'Lot."Receipt Date" = :ReceiptDate, Lot."Rounding Error" =
:RoundingError, ' +
'Lot.Status = :Status, Lot."Cost Supplied" = :CostSupplied');
SQL.Add('WHERE (Lot."Cost Each" > 0.001) AND (Lot.Branch IS NULL)');
{Set the data types}
Params.ParamByName('BranchID').DataType := ftInteger;
Params.ParamByName('ReceiptID').DataType := ftInteger;
Params.ParamByName('ReceiptDate').DataType := ftDateTime;
Params.ParamByName('RoundingError').DataType := ftFloat;
Params.ParamByName('Status').DataType := ftInteger;
Params.ParamByName('CostSupplied').DataType := ftInteger;
{Pass the parameter values}
ParamByName('BranchID').AsInteger := intBranchID;
ParamByName('CostSupplied').AsInteger := lc_CostKnown;
ParamByName('ReceiptDate').AsDateTime := dtDateReceived;
ParamByName('ReceiptID').AsInteger := intToReceiveID;
ParamByName('RoundingError').AsFloat := fltRoundingError;
ParamByName('Status').AsInteger := ls_Available;
ExecSQL;
end;
Regards,
Michael
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
