Ericus
[WD21]TableAddLine July 30, 2018 11:38PM |
GuenterP
Re: [WD21]TableAddLine July 31, 2018 07:04AM |
Moderator |
IF RowMode = "Modif" THEN // Validity IF Table.BGR_NUM < 1 OR Table.BGR_NUM > 999 THEN Error("Die Backzettel-Gruppen-Nummer muß im Bereich von 1 bis 999 liegen !") Table.BGR_NUM = OLD_BGR_NUM ReturnToCapture(Table.BGR_NUM) END IF NoSpace(Table.BGR_BEZ) = "" THEN Error("Es muß eine Bezeichnung der Backzettel-Gruppe eingetragen werden !") Table.BGR_BEZ = OLD_BGR_BEZ ReturnToCapture(Table.BGR_BEZ) END IF OLD_BGR_NUM <> Table.BGR_NUM THEN // check for dups MyPosition = HSavePosition(BACKZETTELGRUPPE) HReadSeekFirst(BACKZETTELGRUPPE,BGR_NUM,Table.BGR_NUM) IF HFound(BACKZETTELGRUPPE) AND Table.BGR_NUM = BACKZETTELGRUPPE.BGR_NUM THEN Error("ÄNDERUNG: Die Backzettel-Gruppe "+BACKZETTELGRUPPE.BGR_NUMBEZ+" war schon vergeben !") Table.BGR_NUM = OLD_BGR_NUM IF MyPosition > 0 THEN HRestorePosition(MyPosition) ReturnToCapture(Table.BGR_NUM) END IF MyPosition > 0 THEN HRestorePosition(MyPosition) ELSE // Re-Positionieren HReadSeekFirst(BACKZETTELGRUPPE,BGR_NUM,Table.BGR_NUM) END BACKZETTELGRUPPE.BGR_NUM = Table.BGR_NUM BACKZETTELGRUPPE.BGR_BEZ = Table.BGR_BEZ HModify(BACKZETTELGRUPPE) TableDisplay(Table,taCurrentSelection) ELSE // RowMode = "Creation" IF not KeyPressed(kpEscape) THEN IF Table.BGR_NUM <> 0 OR NoSpace(Table.BGR_BEZ) <> "" THEN IF KeyPressed(kpEscape) THEN // ESC-taste Table.BGR_NUM = 0 Table.BGR_BEZ = "" TableSelectMinus(Table) ReturnToCapture(GoToTable) END IF Table.BGR_NUM < 1 OR Table.BGR_NUM > 999 THEN Error("Die Backzettel-Gruppen-Nummer muß im Bereich von 1 bis 999 liegen !") Table.BGR_NUM = 0 ReturnToCapture(Table.BGR_NUM) END IF NoSpace(Table.BGR_BEZ) = "" THEN Error("Es muße eine Bezeichnung der Backzettel-Gruppe eingetragen werden !") Table.BGR_BEZ = "" ReturnToCapture(Table.BGR_BEZ) END MyPosition = HSavePosition(BACKZETTELGRUPPE) HReadSeekFirst(BACKZETTELGRUPPE,BGR_NUM,Table.BGR_NUM) IF HFound(BACKZETTELGRUPPE) AND Table.BGR_NUM = BACKZETTELGRUPPE.BGR_NUM THEN Error("NEU-EINGABE: Die Backzettel-Gruppe "+BACKZETTELGRUPPE.BGR_NUMBEZ+" war schon angelegt !") Table.BGR_NUM = 0 IF MyPosition > 0 THEN HRestorePosition(MyPosition) ReturnToCapture(Table.BGR_NUM) ELSE IF MyPosition > 0 THEN HRestorePosition(MyPosition) BACKZETTELGRUPPE.BGR_NUM = Table.BGR_NUM BACKZETTELGRUPPE.BGR_BEZ = Table.BGR_BEZ HAdd(BACKZETTELGRUPPE) TableDisplay(Table,taInit) TableSelectPlus(Table,TableCount(Table)+1) ReturnToCapture(Table.BGR_NUM) END END ELSE // ESC gedrückt! Table.BGR_NUM = 0 Table.BGR_BEZ = "" TableSelectMinus(Table) ReturnToCapture(GoToTable) END END
IF Table..State = Active THEN Table = TableCount(Table)+1 ReturnToCapture(Table.BGR_NUM) END
Ericus
Re: [WD21]TableAddLine July 31, 2018 10:17AM |
wduser
Re: [WD21]TableAddLine August 01, 2018 10:43PM |
Ericus: [WD21]TableAddLine September 09, 2018 09:24AM |
Admin Registered: 54 years ago Posts: 280 |