Lager-Klasse
New Lager (...)
Die Klasse Lager dient hauptsächlich dazu, ein oder mehrere Lagerbuchungen für einen oder mehrere Artikel durchzuführen. Beim Instanzieren der Klasse wird die Art der Lagerbuchung über die möglichen Parameter eingestellt.
Beispiel: siehe 'Lager.LagerBuchungsTransaktion'
Lager.ArtikelStandardLagerortMagazin()
Mit dieser Funktion können Standard-Lagerort und Magazin eines Artikels geholt werden. Hat der Artikel keinen vordefinierten Artikel-Lagerort, dann werden Haupt-Lagerort und Haupt-Magazin des Mandanten verwendet.
VB.NET SDK-Programmcode
Dim artikel As Guid = New Guid("c276b05c-c787-4b70-9201-9fd15f0f49f9")
Dim tmpLagerortMagazin As LagerortMagazinStruktur
Dim lagerOrt, lagerMagazin As Guid
tmpLagerortMagazin = Lager.ArtikelStandardLagerortMagazin(artikel)
lagerOrt = tmpLagerortMagazin.LagerOrt
lagerMagazin = tmpLagerortMagazin.Magazin
Lager.AddLagerBuchung()
Diese Prozedur fügt einem Objekt vom Typ 'Lager' eine Lagerbuchung hinzu, welche aus Informationen zu Artikel, Menge, Lagerort. Magazin, ggf. Charge etc. besteht. Je nach Vorzeichen der Menge wird eine Zu- oder Abbuchung durchgeführt. Es können mehrere Buchungen hinzugefügt werden. Die eigentliche Abarbeitung der so hinzugefügten Buchungen wird dann mit der Funktion 'LagerBuchungsTransaktion' gestartet.
Beispiel: siehe 'LagerBuchungsTransaktion'
Lager.LagerBuchungsTransaktion()
Mit dieser Funktion werden alle einem Lager-Objekt hinzugefügten Lagerbuchungen in einer Transaktion ausgeführt. Kommt es zu einem Fehler, so wird dieser als Text von der Funktion zurückgegeben.
Beispiel: In diesem Code wird die Menge 13,5 des angegebenen Artikels erst dem Lager zugebucht und in einer zweiten Buchung wieder abgebucht.
VB.NET SDK-Programmcode
Dim artikelGUID As Guid = New Guid("c276b05c-c787-4b70-9201-9fd15f0f49f9")
Dim lagerOrtGUID As Guid = New Guid("daa8d692-3e6a-4ef5-8655-b633b57a7d93")
Dim lagerMagazinGUID As Guid = New Guid("9caecaf7-66de-4299-b634-367dfa238ad7")
Dim menge As Double = 13.5
Dim fehlerText As String
Dim tmpLager As New Lager(False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
tmpLager.AddLagerBuchung(artikelGUID, menge, lagerOrtGUID, lagerMagazinGUID, "Informationstext", "Kommentar-Text")
fehlerText = tmpLager.LagerBuchungsTransaktion
If fehlerText <> "" Then
Fkt.Meldung(fehlerText)
End If