David Egan
Multi user Modification Conflict August 26, 2008 08:06AM |
Al
Re: Multi user Modification Conflict August 26, 2008 10:17AM |
David Egan
Re: Multi user Modification Conflict August 26, 2008 11:02AM |
Jimbo
Re: Multi user Modification Conflict August 26, 2008 11:42AM |
Moderator |
PROCEDURE RADSave() // Called when clicking the 'OK' button // Returns 'True' if the record is validated, 'False' otherwise // Val checks IF iFaktPerNum < 1 OR iFaktPerNum > 999 THEN Error("Die FakturenPerioden-Nummer muß im Bereich 1 - 999 liegen !") ReturnToCapture(iFaktPerNum) END IF NoSpace(sFaktPerBez) = "" THEN Error("Die FaktuerenPeriden-Bezeichnung muß ausgefüllt werden !") ReturnToCapture(sFaktPerBez) END IF iFaktPerTage < 0 OR iFaktPerTage > 9999 THEN Error("Die FakturenPerioden-Tage müssen im Bereich 0 - 9999 liegen !") ReturnToCapture(iFaktPerTage) END IF Left(gWindowMode,8) = "Creation" THEN Ergebnisint = HSavePosition(FAKTPER) HReadSeek(FAKTPER,iFaktPerNum,iFaktPerNum,hIdentical) IF HFound(FAKTPER) AND iFaktPerNum = FAKTPER.iFaktPerNum THEN Error("NEU-ANLAGE: Die FakturenPerioden "+FAKTPER.sFaktPerNumBez+" wurde schon angelegt !") IF Ergebnisint > 1 THEN HRestorePosition(Ergebnisint) ReturnToCapture(iFaktPerNum) ELSE IF Ergebnisint > 1 THEN HRestorePosition(Ergebnisint) END END IF (Left(gWindowMode,5) = "Modif" OR Left(gWindowMode,6) = "Browse" OR Left(gWindowMode,12)="LinkedBrowse") AND iFaktPerNum <> OLD_iFaktPerNum THEN Ergebnisint = HSavePosition(FAKTPER) HReadSeek(FAKTPER,iFaktPerNum,iFaktPerNum,hIdentical) IF HFound(FAKTPER) AND iFaktPerNum = FAKTPER.iFaktPerNum THEN Error("ÄNDERUNG: Die FakturenPeriode "+FAKTPER.sFaktPerNumBez+" wurde schon angelegt !") IF Ergebnisint > -1 THEN HRestorePosition(Ergebnisint) iFaktPerNum = OLD_iFaktPerNum ReturnToCapture(iFaktPerNum) ELSE IF Ergebnisint > 1 THEN HRestorePosition(Ergebnisint) END END // Transfer controls to file buffer ScreenToFile() // The record is valid RESULT True
David Egan
Re: Multi user Modification Conflict August 26, 2008 12:20PM |
Piet van Zanten
Re: Multi user Modification Conflict August 26, 2008 12:57PM |