TBeCBSerialNoReconstruction

Klasse zum Umbau eines Seriennr.- Artikels.

Eigenschaften:

Allgemeine-Eigenschaften

ArtNoOld: C	Bisherige Artikelnummer
ArtNoNew: C	Neue Artikelnummer
SerialOld: C	Bisherige Seriennummer (Kommissnr.)
SerialNew: C	Neue Seriennummer (Kommissnr.)
DataModule: O	Zugewiesenes Datenmodul
Quiet: L	Ausführungsmodus True : Ausführung ohne Dialoge, nur Exceptions False : Dialogmeldungen

Aktive-Eigenschaften (Methoden)

Execute:L

Ausführen der Umbuchung

True = Einstellungen okay
--> Buchung durchgeführt

False = Fehler bei Einstellungen oder Buchung
-->keine Buchung durchgeführt

Validate:L

Prüfung der Parameter (Artikel-, Seriennr. alt und neu)

Hinweis:

Datenmodul muss erzeugt und zugewiesen werden.
Umbuchung muss in gestarteter Transaktion ablaufen.
Bisheriger Seriennr.- Artikel muss sich auf Lager befinden / im Bestand sein.
Neuer Seriennr.- Artikel darf noch nicht auf Lager sein.
Die neue Artikelnr. muss die Seriennr.-Verwaltung aktiviert haben
Umbau erfolgt durch Angabe einer neuen Artikel und/oder neuen Seriennr.

Beispiel

CODE

function Umbau(cArtNoOld, cSerialOld, cArtNoNew, cSerialNew)
  |oUmbau, oDM|
  oDM    := CreateObject("TBeDBGet"),
  startseq,
     oUmbau := CreateObject("TBeCBSerialNoReconstruction"),
     startseq,
        startseq,
           oUmbau.DataModule := oDM,
           oUmbau.ArtNoOld   := cArtNoOld,
           oUmbau.ArtNoNew   := cArtNoNew,
           oUmbau.SerialOld  := cSerialOld,
           oUmbau.SerialNew  := cSerialNew,

           DbStartTrans(oDM.AdsConnection),
           oUmbau.Execute,
           DbCommit(oDM.AdsConnection),
        onerror,
           if DbInTrans(oDM.AdsConnection) then
              DbRollback(oDM.AdsConnection),
           endif,
           SetError('Umbau nicht erfolgreich: ' + GetErrorText()),
        stopseq,
     always
        DestroyObject(oUmbau),
     stopseq,
  always
    DestroyObject(oDM),
  stopseq,
end,


Umbau('0815', '4711', '0815' , '4712'),