AufPosFrei()
Versand-Freigabe für eine Auftragsposition
Die Funktion gibt eine Menge einer Auftragsposition zur Lieferung frei. Erhöht die Freigabemenge (DAB055:VMENGE) um die übergebene Menge. Soll die Funktion in einer "aussenliegenden" (also bereits aktiven) Transaktion eingebettet werden, muss das Connection-Object dieser Transaktion übergeben werden. Werden optionale Tabellen übergeben (oDabXXX) müssen diese mit der gleichen Ads-Connection laufen, welche als oConnect übergeben wird.
Hinweis
Die Funktion sollte nicht mehr verwendet werden. Verwenden Sie stattdessen AufPosFrei2()!
Parameter | Beschreibung |
|---|---|
cAPNummer:C | 6+3-Stellig entsprechend DAB055->APNUMMER |
nMenge:N | Freigabemenge |
oConnect:O | AdsConnection-Objekt für Transaktions-Handling |
oDab000:O | Tabellenobjekt DAB000 |
oDab010:O | Tabellenobjekt DAB010 |
oDab020:O | Tabellenobjekt DAB020 |
oDab050:O | Tabellenobjekt DAB050 |
oDab055:O | Tabellenobjekt DAB055 |
oDab240:O | Tabellenobjekt DAB240 |
oDab410:O | Tabellenobjekt DAB410 |
oDab520:O | Tabellenobjekt DAB520 |
oDab610:O | Tabellenobjekt DAB610 |
oDab710:O | Tabellenobjekt DAB710 |
oDab720:O | Tabellenobjekt DAB720 |
oDab730:O | Tabellenobjekt DAB730 |
aCommiss:A | Array Kommissionsnr.; default = null();Format: { { <Kommission>, <Menge>, <Platz> , <Verfallsdatum>, <BehälterNr>, <BehälterTyp>}, { ... } } |
cProgID:C | Zur Verarbeitung von BE-Events; default = Leerstring |
oDab160:O | Tabellenobjekt DAB160 |
nEntnSchNr:N | Entnahmescheinnummer - automatische der Chargen / Plätze auf dem übergebenen Entnahmeschein. Der Bezug macht nur bei Nutzung der Einzelreservierungen (Dab260) Sinn(default = 0). |
lIgnoreReservation:L | Einzelreservierungen ignorieren (default = false) ACHTUNG: die Einzelreservierung müssen danach manuell angepasst werden! |
lRaiseError:L | True - Bei Fehlern wird eine Exception erzeugt |
lQuietMode:L | True - Alle Formulare und Meldungen die sich im Prozess befinden werden angezeigt (default = true) ACHTUNG: Wenn lQuietMode auf true gesetzt wird, muss eine Kommissionsarray mitgegeben werden! |
Rückgabewert
keiner
Beispiel
| oDab055:DB := 'waDAB055' |
DBSeek(' 1234 1', oDab055),
AufPosFrei(oDab055:APNUMMER, oDab055:BMENGE - oDab055:LMENGE - oDab055:VMENGE)