Einzelnen Beitrag anzeigen

michaelg

Registriert seit: 20. Apr 2008
69 Beiträge
 
#22

AW: cc.KassenSichV.* - Die Unitsammlung zur Kassensicherungverordnung des BMF

  Alt 24. Jul 2020, 11:43
In der Datatypes-Unit habe ich beim Hinzufügen einer Bestellung eine Zeile hinzugefügt, pflegst Du die mit ein?

Code:
procedure TccDsFinVkProcessDataBestellung.AddBestellung(const aMenge: Double; const aBezeichnung: String; const aPreis: Double);
var
  lBestellung: TBestellung;
begin
  lBestellung.Menge := aMenge;
  lBestellung.Bezeichnung := aBezeichnung;
  lBestellung.Preis := aPreis;

  Bestellungen:=Bestellungen+[lBestellung];  //Michael Groß: 24.07.2020 sonst wird die Bestellung dem Array nicht hinzugefügt.
end;
  Mit Zitat antworten Zitat