Hallo zusammen. Ich hoffe auf eure Hilfe bei einem Problem.

Wie sieht das Modell aus: Das Domainmodell besteht aus Produkt, Lieferant, Lieferantenprodukt, Lieferantenbestellung, Lieferantenbestellung (Posten).

* Produkt: Produkte mit Anzahl der Verkäufen und aktuellem Lagerbestand.
* Lieferantenprodukt: Ein Mapping zwischen unseren Produktdaten und den Daten des Lieferanten (z.B. SKU und Lieferanten SKU)
* Lieferantenbestellung: Ein Bestellung der Produkte bei einem Lieferanten.
* Lieferantenbestellung (Posten): Die Einzelposten einer Lieferantenbestellung mit Produkt und Anzahl.

Was möchte ich erreichen: Bei einem Ereignis (Button Klick / Run in der Console), möchte ich unter bestimmten Umständen eine Lieferantenbestellung und einen Lieferantenbestellung (Posten) erzeugen.

Wie ist der Hintergrund: Ich möchte dem Einkäufer die Möglichkeit geben eine Lieferantenbestellung für ein bestimmtes Produkt zu erstellen. Und zwar unter folgenden Bedingungen:

* Wenn es noch keine Bestellung für diesen Lieferanten im Status Entwurf gibt, dann erzeugen. Sonst: die offene Bestellung verwenden.

* Wenn es noch keinen Posten für dieses Produkt in der Bestellung gibt erzeugen. Sonst: den bereits bestehenden Posten verwenden und die Anzahl anpassen.

 

Wie ist der Kontext: Beim Ereignis befinde ich mich in einem Produkt. Habe also die Zuordnung zu einem Lieferantenprodukt und kenne die Anzahl der Einheiten, die ich bestellen möchte.

 

Wie sieht das Skript aus:

// Berechne fehlende Einheiten
let lGap := Gap * -1;

// Ermittle die erste Lieferantenzuordnung, um an den Lieferanten zu kommen
let lProdukt := first(Lieferantenzuordnung);

// Speichere den Lieferanten zwischen
let lLieferant := lProdukt.Lieferant;

// Ermittle die erste Bestellung des Lieferanten, die im Status "Entwurf" ist.
let lBestellung := first(lLieferant.Bestellungen[Status = 1]);

// Wenn es noch keine offene Bestellung gibt, dann erstelle eine.
if lBestellung = null then
  let lLieferzeit := lLieferant.'Lieferzeit (in Tagen)';
  let lDauer := appointment(now(), now() + lLieferzeit * 86400000);
  var lBestellung := (create Lieferantenbestellung);
  lBestellung.(Lieferant := lLieferant);
  lBestellung.(Lieferzeit := lDauer);
  lBestellung.(Status := 1)
end;

// Ermittle den ersten Posten mit der passenden Produktzuordnung
let lPosten := first(lBestellung.Posten[Lieferantenprodukt = lProdukt]);

// Wenn es noch keinen Posten mit der Produktzuordnung gibt, dann erstelle einen neuen Posten
if lPosten = null then
  var lPosten := (create 'Lieferantenbestellung (Posten)');
  lPosten.(Lieferantenbestellung := lBestellung);
  lPosten.(Lieferantenprodukt := lProdukt)
end;

// Aktualisiere die zu bestellende Anzahl.
lPosten.('Anzahl bestellt' := lGap)

Was ist das Problem?

* Wenn es keine Bestellung im Status "Entwurf" gibt, dann wird sie korrekt erzeugt & dem Lieferanten zugeordnet.

* Wenn es noch keinen passenden Posten in der Bestellung gibt, wird der Posten erzeugt.

* In dem Posten wird die Bestellung nicht gespeichert. Die Referenz ist leer.

* In dem Posten wird die Anzahl nicht gespeichert. Das Feld ist leer.

Vermutung: Für mich sieht es nach einer Race-Condition aus. Wenn die Bestellung über das Script erzeugt wird (vorher also nicht existiert hat), dann wird sie nicht zugeordnet. Existiert die Bestellung bereits, wird sie korrekt zugeordnet, allerdings die Anzahl nicht gesetzt.

Dass die Anzahl nicht gesetzt wird, macht mich stutzig. Es wirkt so, als ob es im Laufe des Scripts einen Fehler gab und dieser dafür sorgt, dass die nachfolge Anweisungen nicht mehr ausgeführt werden.

Habt ihr da eine Idee?