TBeCbProductResolving
TBeCbProductResolving
Funktionalität für die Produktauflösung bzw. des Bauzustandes eines Serien-Nr. Artikels.
Eigenschaften | |
ArtNo:C | Artikel-Nummer |
BatchNo:C | Serien-Nummer des Artikels |
CalcOnlySerialNoArticles:L | Berechnungen und Auflösungen nur für Serien-Nummer Artikel durchführen |
CalcUnambiguousSerialNoBooking:L | Berechnung für die Ermittlung von "eindeutige Serien-Nummer Buchung" ausführen |
RecordLimit:N | Max. Datensätze pro Bauzustand (wird die Anzahl überschritten wird eine EBeProductResolvingLimitReached Exception ausgelöst) |
Funktionen / Methoden | |
CreateMemView:O | MemTable für Ausgabe erzeugen |
aOwner:O | Owner der MemTable |
CreateMemView_Extended:O | Erweiterte MemTable für Ausgabe erzeugen (für Berechnung von "eindeutigen Serien-Nummer Buchungen" notwendig) |
aOwner:O | Owner der MemTable |
Validate_BatchNo:L | Artikel Serien-Nummer prüfen ob diese für die Berechnung erlaubt ist |
aArtNo:C | Artikel-Nummer |
aBatchNo:C | Serien-Nummer des Artikels |
Validate_ArtNo:L | Artikel prüfen ob dieser gültig ist |
aArtNo:C | Artikel-Nummer |
aOnlySerialNoArticle:L | Prüfung nur für Serien-Nummer Artikel erlauben |
ValidateAll:L | Alle gesetzten Eigenschaften validieren |
Execute | Berechnung ausführen (Produktauflösung) |
TransferResult | Berechnetes Ergebnis in eine MemTable übertragen |
aDestMemView:O | MemTable |
aWithHeaderLine:L | Kopfzeile einfügen |
aWithNeutralizedBookings:L | Alle ermittelten Buchungen einfügen |
aOnlyBatchArticles:L | Nur Buchungen von Serien-Nr./Chargen-Nr. Artikeln einfügen |
TransferMaterialListResult | Material-Liste vom berechnetem Ergebnis in eine MemTable übertragen |
aDestMemView:O | MemTable |
aWithHeaderLine:L | Kopfzeile einfügen |
aOnlyBatchArticles:L | Nur Buchungen von Serien-Nr./Chargen-Nr. Artikeln einfügen |
DataModule:O | Gibt das intern verwendete DatenModul zurück |
Beispiel
//******************************************************************************
// Beispiel für Produktauflösung
//******************************************************************************
|oProdRes, oMemRes, bShowOnlyBatch|
oProdRes := CreateObject('TBeCbProductResolving'),
startseq
bShowOnlyBatch := False,
oMemRes := oProdRes.CreateMemView(oProdRes),
oProdRes.ArtNo := 'PC',
oProdRes.BatchNo := '0909',
oProdRes.CalcOnlySerialNoArticles := False,
oProdRes.CalcUnambiguousSerialNoBooking := False,
if oProdRes.ValidateAll() then
oProdRes.Execute(),
oProdRes.TransferResult(oMemRes, True, False, bShowOnlyBatch),
oProdRes.TransferMaterialListResult(oMemRes, True, bShowOnlyBatch),
Browse(, oMemRes),
else
Meld('Artikel ' + oProdRes.ArtNo + ' mit der Serien-Nr. ' + oProdRes.BatchNo + ' ist ungültig!'),
endif,
always
DestroyObject(oProdRes),
stopseq,
//******************************************************************************
// Beispiel für Bauzustand
//******************************************************************************
|oProdRes, oMemRes, bAllBookings, bOnlySerialNoArticles|
oProdRes := CreateObject('TBeCbProductResolving'),
startseq
bAllBookings := False,
bOnlySerialNoArticles := False,
oMemRes := oProdRes.CreateMemView_Extended(oProdRes),
oProdRes.ArtNo := 'PC',
oProdRes.BatchNo := '0909',
oProdRes.CalcOnlySerialNoArticles := bOnlySerialNoArticles,
oProdRes.CalcUnambiguousSerialNoBooking := False,
if oProdRes.ValidateAll() then
oProdRes.Execute(),
oProdRes.TransferResult(oMemRes, False, bAllBookings, True),
Browse(, oMemRes),
else
Meld('Artikel ' + oProdRes.ArtNo + ' mit der Serien-Nr. ' + oProdRes.BatchNo + ' ist ungültig!'),
endif,
always
DestroyObject(oProdRes),
stopseq,