[GELÖST] Lagerbestand aus Lagerhaltungsdaten-Karte

Liebe Community,

Ich habe folgendes Anliegen:

Ich möchte eine Form auf Basis der Tabelle „Transfer Line“ erstellen. Auf der Form müssen diese Felder gemäß den "Umlagerungsaufträgen" angezeigt werden: „Umlagerung von Code“, „Umlagerung nach Code“, „Einstandspreis“ und „Lagerbestand“. Einstandspreis und Lagerbestand sind in der Transferline nicht vorhanden. Dazu nehmen nehme ich den Einstandspreis und Lagerbestand, welche auf der Lagerhaltungsdaten-Karte angezeigt werden. Der Preis und der Bestand müssen angezeigt werden a) nach „Umlagerung von Code“ und b) „Umlagerung nach Code“.

Ich habe folgendes Konstrukt erstellt:


Form – OnAfterGetRecord()

Code:

IF glSKU.GET("Transfer-from Code","Item No.","Variant Code") THEN BEGIN
   glUnitCost := glSKU."Unit Cost";
   glInventory := glSKU.Inventory;
END ELSE BEGIN
   glUnitCost := 0;
   glInventory := 0;
END;


IF glSKU.GET("Transfer-to Code","Item No.","Variant Code") THEN BEGIN
   glUnitCostTransferToCode := glSKU."Unit Cost";
   glInventoryTransferToCode := glSKU.Inventory;
END ELSE BEGIN
   glUnitCostTransferToCode := 0;
   glInventoryTransferToCode := 0;
END;

Wenn ich in die Tabelle „Lagerhaltungsdaten“ reingehe, kommen die korrekten Einstandspreise heraus!

Jedoch ist der Lagerbestand stets 0.00, obwohl in der Stockkeeping Unit doch zu dem Artikel + Lagerortcode ein Lagerbestand vorhanden ist.

Würde mich über eine Hilfestellung freuen!

Viele Grüße,
Tim

Zuletzt geändert von Boyrinho am 1. Juni 2015 17:01, insgesamt 1-mal geändert.

Wenn ich das jetzt recht verstanden hab: Lagerbestand (inventory) aus der item-tabelle ist ein flowfield: ohne calcfields ist das immer 0.

Hi Markus,

danke sehr für Deine Antwort!

Aber im Endeffekt möchte ich doch nur, dass der eingetragene Wert Inventory der Lagerhaltungsdaten angezeigt wird. Oder warum steht der Item.Inventory "im Wege"?

Auch das inventory aus der stockkeeping unit ist ein flowfield...

I hobs! (Bayrisch: "Ich hab's!" :) )

Code:

IF glSKU.GET("Transfer-from Code","Item No.","Variant Code") THEN BEGIN
   glUnitCost := glSKU."Unit Cost";
   // NEU HINZUGEKOMMEN
   glSKU.CALCFIELDS(Inventory);
   glInventory := glSKU.Inventory;
END ELSE BEGIN
   glUnitCost := 0;
   glInventory := 0;
END;

IF glSKU2.GET("Transfer-to Code","Item No.","Variant Code") THEN BEGIN
   glUnitCostTransferToCode := glSKU2."Unit Cost";
   // NEU HINZUGEKOMMEN
   glSKU2.CALCFIELDS(Inventory);
   glInventoryTransferToCode := glSKU2.Inventory;
END ELSE BEGIN
   glUnitCostTransferToCode := 0;
   glInventoryTransferToCode := 0;
END;

Danke sehr für Deinen Hinweis mit "Calcfields". Das hat mich zum Grübeln gebracht! :)

Danke & Gruß,
Tim