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