Codeblock Onlinehilfe

TbeCBOrderPositionParams

TbeCBOrderPositionParams

Klasse dient als Übergabe von Parametern bei Erstellung einer Kundenauftragsposition. Es dient hauptsächlich für beas für -2 Artikeln als Ersatz zum Auftrags-/Produktions-Synchronization Fenster, wo kann Benutzer zwischen Lieferanten oder eigene Produktion auswählen.

Verwendung

Eine Instanz diese Klasse kann zu PosAufPost2 Methode übergeben werden.

Eigenschaften


CbSuppNo:N

Lieferant-Nummer. Wenn Wert 0 übergeben wird, wird Auswahl automatisiert, u.U. wird Produktionsauftrag erzeugt.

CbPurchCurrID:N

Einkaufs-Währung. Nummer der Währung aus DabWae (Währungen, Festwerte-Währungs-Tabelle).
Default ist 0.

CbForeignPurchPrice:N

EKP in Liefer-Währung.

CbDiscount1:N

Einkaufs-Rabatt 1

CbDiscount2:N

Einkaufs-Rabatt 2

CbDiscount3:N

Einkaufs-Rabatt 3

CbExtraText1:C

Einkaufs-Zusatz-Text 1

CbExtraText2:C

Einkaufs-Zusatz-Text 2

CbExtraText3:C

Einkaufs-Zusatz-Text 3

CbExtraCost1:N

Einkaufs-Zusatz-Kosten 1

CbExtraCost2:N

Einkaufs-Zusatz-Kosten 2

CbExtraCost3:N

Einkaufs-Zusatz-Kosten 3

CbExtraMode1:N

Einkaufs-Mode 1

CbExtraMode2:N

Einkaufs-Mode 2

CbExtraMode3:N

Einkaufs-Mode 3

CbPurchPrice:N

Einkaufs-Preis

CbPriceUnitPurch:N

Preis-Einheit Einkauf

CbForceSync:L

Synchronisation neu forsieren (z.B. zum Wechsel der Lieferanten)

Wenn diese Option gesetzt wird, wird das Sychnronisationsfenster geöffnet. Im Falle, dass die aufrufende Funktion den Parameter “Quiet” gesetzt hat, werden die restliche Daten aus diesem Objekt übernommen.

Weitere Verknüpfungen

AufPosPost2()

Bespiel

|oDM, oDAB055, oAufPosParams|
//neue AufPos für einen -2 Artikel mit Bestellmenge = 1
//ein Produktionsauftrag wird sofort vorbereitet

oDM           := CreateObject('TBeDbGet'),
oDAB055       := DBGetTable(oDM, waDAB055,),
oAufPosParams := CreateObject('TbeCBOrderPositionParams'),
startseq,
   DBStartTrans(oDM.ADSConnection),

   AufPosNeu2(oDM, 100045 , 'TEST-2', true, false, false, true), // -2 Artikel

   oDAB055:BMENGE := 1,

   oAufPosParams.SuppNo := 0,

   AufPosPost2(oDM, Val(Left(oDAB055:APNUMMER,6)),Val(Right(oDAB055:APNUMMER,3)), 
      false, false, true, false, true, false, true, oAufPosParams),

   DBCommit(oDM.ADSConnection),
onerror
   writeln(getErrorText(getErrorObj())),
   DbCancelAll(oDM),
   DBRollBack(oDM.ADSConnection),
stopseq,