Devart Forums

Code: Select all

procedure TFormLagKas.BuchLagKDT(FilNr, Menge: Integer; Preis, PreisEK: Currency; Kunde, Bediener, Datum, Zeit, Kasse, Journal, Beleg: String);
var
  i: integer;
  s: String;
begin
  try
    for i := 0 to TbLagKas.FieldCount -3 do 
      try KDTSQL.ParamByName(TbLagKas.Fields[i].FieldName).Value := TbLagKas.Fields[i].Value; except end;
    KDTSQL.ParamByName('DatumVK').AsString          := Datum;
    KDTSQL.ParamByName('ZeitVK').AsString           := Zeit;
    KDTSQL.ParamByName('KassenNr').AsString         := Kasse;
    KDTSQL.ParamByName('JournalNr').AsString        := Journal;
    KDTSQL.ParamByName('BelegNr').AsString          := Beleg;

    KDTSQL.ParamByName('PreisEK').AsCurrency        := PreisEK;
    KDTSQL.ParamByName('PreisKasse').AsCurrency     := Preis;
    KDTSQL.ParamByName('MengeKasse').AsInteger      := Menge;
    try
      KDTSQL.ParamByName('Kundennummer').AsInteger  := StrToInt(Kunde);;
    except
      KDTSQL.ParamByName('Kundennummer').Value      := NULL;
    end;
    try
      KDTSQL.ParamByName('Bediener').AsInteger      :=  StrToInt(Bediener);
    except
      KDTSQL.ParamByName('Bediener').Value          := NULL;
    end;
    KDTSQL.ParamByName('SkontoBetrag').AsCurrency   := Skonto;
    KDTSQL.ParamByName('FilNr').AsInteger           := FilNr;
    KDTSQL.Prepare;
    KDTSQL.Execute;
  except
    on e: Exception do
    begin
      SL := TStringList.Create;
      if FileExists(MainForm.MoDir + '_EKA.txt') then SL.LoadFromFile(MainForm.MoDir + '_EKA.txt');
      SL.Insert(0, DateTimeToStr(now) + ' MoLagKDT: Eintrag bereits vorhanden: ' + T1);
      SL.SaveToFile(MainForm.MoDir + '_EKA.txt');
      SL.Free;
      inc(AnzErr);
      ShowMessage(e.Message);
    end;
  end;
end;