AufPosEdit()
Editiermodus für Auftragsposition
Die Funktion versetzt eine existierende Auftragsposition in den Editiermodus. Die beiden Memory-Tabellen oMem050 und oMem055 müssen vor Aufruf der Funktion erzeugt worden sein. In ihnen werden die alten Dab050- und Dab055-Feldinhalte gespeichert. Diese dürfen anschließend nicht verändert werden und müssen an die Funktion AufPosPost() übergeben werden!
Hinweis
Die Funktion sollte nicht mehr verwendet werden. Verwenden Sie stattdessen AufPosEdit2()!
Parameter | Beschreibung |
|---|---|
nOrderNo:N | Auftragsnummer |
nOrderPos:N | Auftragsposition |
oDab000:O | Tabellenobjekt DAB000 |
oDab050:O | Tabellenobjekt DAB050 |
oDab055:O | Tabellenobjekt DAB055 |
oDab010:O | Tabellenobjekt DAB010 |
oMem050:O | TMemCalcTable-Objekt |
oMem055:O | TMemCalcTable-Objekt |
Rückgabewert
Logisch / Boolean - Editiermodus erfolgreich
Beispiel
CODE
| 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',
oCalc035:DB := 'waDAB035, DAB036', oCalc210:DB := 'waDAB210, DAB211', oCalc240:DB := 'waDAB240, DAB241',
oCalc255:DB := 'waDAB255, DAB256', oCalc410:DB := 'waDAB410, DAB411', oCalc610:DB := 'waDAB610, DAB611',
oCalc720:DB := 'waDAB720, DAB721', oCalc730:DB := 'waDAB730, DAB731', oMem050, oMem055, nNummer, nPos |
oMem050 := CreateObject('TMemCalcTable'),
oMem055 := CreateObject('TMemCalcTable'),
nNummer := 123456,
startseq,
DBStartTrans(),
nPos := AufPosNeu(nNummer, 'BSP_ART', oDab000, oDab050, oDab055,
oDab010, oCalc000, oCalc020, oCalc040, oCalc062,
oCalc110, oCalc130, oCalc310, oCalc510, oCalc520,
oCalc710),
if nPos = 0 then
DBRollBack(),
else,
if AufPosEdit( nNummer, nPos, oDab000, oDab050, oDab055, oDab010,
oMem050, oMem055 ) then
oDab055:BMENGE := 10,
oDab055:VMENGE := 5,
if AufPosPost(nNummer, nPos, oDab000, oDab050, oDab055,
oDab010, oMem050, oMem055, oCalc000, oCalc020,
oCalc040, oCalc055, oCalc035, oCalc062, oCalc210,
oCalc240, oCalc255, oCalc310, oCalc410, oCalc510,
oCalc520, oCalc610, oCalc710, oCalc720, oCalc730) then
DBCommit(),
else,
DBRollBack(),
Meld(''),
endif,
endif,
endif,
onerror,
DBRollBack(),
Meld(GetErrorText()),
stopseq,