AufPosNeu()
Neue Auftragsposition
Die Funktion legt eine neue Auftragsposition an. Der neue Dab055-Datensatz befindet sich anschließend per Default nicht im Einfügemodus und kann erst mit AufPosEdit() weiter bearbeitet werden. Wird der Parameter lKeepInsertMode = true übergeben (zusammen mit oMem050 und oMem055) dann befindet sich der Datensatz anschließend im Einfügemodus und kann weiter bearbeitet werden. Ein weiteres AufPosEdit() ist dann nicht zulässig.
Hinweis
Die Funktion sollte nicht mehr verwendet werden. Verwenden Sie stattdessen AufPosNeu2()!
Parameter | Beschreibung |
|---|---|
nOrderNo:N | Auftragsnummer |
cArtNo:C | Artikelnummer |
oDab000:O | Tabellenobjekt DAB000 |
oDab050:O | Tabellenobjekt DAB050 |
oDab055:O | Tabellenobjekt DAB055 |
oDab010:O | Tabellenobjekt DAB010 |
oCalc000:O | Tabellenobjekt DAB000 für Kalkulationen |
oCalc020:O | Tabellenobjekt DAB020 für Kalkulationen |
oCalc040:O | Tabellenobjekt DAB040 für Kalkulationen |
oCalc062:O | Tabellenobjekt DAB062 für Kalkulationen |
oCalc110:O | Tabellenobjekt DAB110 für Kalkulationen |
oCalc130:O | Tabellenobjekt DAB130 für Kalkulationen |
oCalc310:O | Tabellenobjekt DAB310 für Kalkulationen |
oCalc510:O | Tabellenobjekt DAB510 für Kalkulationen |
oCalc520:O | Tabellenobjekt DAB520 für Kalkulationen |
oCalc710:O | Tabellenobjekt DAB710 für Kalkulationen |
lKeepInsertMode:L | Datensatz nach Neuanlage im Insert-Modus lassen; default = false |
oMem050:O | TMemCalcTable-Objekt (für lKeepInsertMode = true benötigt); default = nil |
oMem055:O | TMemCalcTable-Objekt (für lKeepInsertMode = true benötigt); default = nil |
Rückgabewert
Numerisch - Neue Pos.Nr.
Beispiel
| oDab000:DB := 'waDAB000, 1', oDab050:DB := 'waDAB050, DAB051', oDab055:DB := 'waDAB055, DAB056',
oDab010:DB := 'waDAB010, DAB011', oCalc062:DB := 'waDAB062, DAB063', oCalc000:DB := 'waDAB000, 1',
oCalc520:DB := 'waDAB520, DAB521', oCalc020:DB := 'waDAB020, DAB021', oCalc310:DB := 'waDAB310, DAB311',
oCalc510:DB := 'waDAB510, DAB511', oCalc710:DB := 'waDAB710, DAB711', oCalc040:DB := 'waDAB040, DAB041',
oCalc110:DB := 'waDAB110, DAB111', oCalc130:DB := 'waDAB130, DAB131', oCalc055:DB := 'waDAB055, DAB056',
oMem050, oMem055, nNummer, nPos |
startseq,
DBStartTrans(),
oMem050 := CreateObject('TMemCalcTable'),
nNummer := AufKopfNeu(81192544, 'N', 0, oDab000, oDab050, oMem050),
if nNummer <> 0 and AufKopfPost(nNummer, oDab000, oDab050, oMem050) then
DBCommit(),
AufPosNeu(nNummer, 'BE-SW', oDab000, oDab050, oDab055, oDab010,
oCalc000, oCalc020, oCalc040, oCalc062, oCalc110, oCalc130,
oCalc310, oCalc510, oCalc520, oCalc710),
else
DBRollBack(),
endif,
onerror,
DBRollBack(),
WriteLn(GetErrorText()),
stopseq,