Code: Alles auswählen
local getlist := {}
oDialogZusatz:maskeget(@getlist)
METHOD DialogNummernkreise:maskeget(getlist)
LOCAL nI
LOCAL nY := 5
SetColor("W/N,N/BG,N/N,N/N,N/W")
FOR nI := 1 TO Len(::aNummern)
@ nY ,22 GET ::aNummern[nI,ANFANGNR] PICTURE "999999999" VALID ::pruefNummern("anfang",getlist)
@ nY ,32 GET ::aNummern[nI,ENDENR] PICTURE "999999999" VALID ::pruefNummern("ende",getlist)
@ nY ,42 GET ::aNummern[nI,LFDNR] PICTURE "999999999" WHEN {|| .F.}
@ nY ,52 GET ::aNummern[nI,RESERVE] PICTURE "999999999" VALID ::pruefNummern("reserve",getlist)
@ nY++,62 SAY ::aNummern[nI,ENDENR] - ::aNummern[nI,LFDNR] PICTURE "999999999"
NEXT
SetColor("W/N,N/W,N/N,N/N,N/W")
RETURN self
*********************************************************************
METHOD DialogNummernkreise:pruefNummern(cVorgang,getlist)
LOCAL lErfolg := .T.
MEMVAR oSysPara
IF Upper(cVorgang) == "ANFANG"
IF ::aNummern[nSatz,ANFANGNR] = 0
lErfolg := .F.
ENDIF
ELSEIF Upper(cVorgang) == "ENDE"
IF ::aNummern[nSatz,ENDENR] = 0 .OR. ::aNummern[nSatz,ENDENR] <= ::aNummern[nSatz,ANFANGNR]
lErfolg := .F.
ENDIF
ELSEIF Upper(cVorgang) == "RESERVE"
IF ::aNummern[nSatz,RESERVE] = 0 .OR. ::aNummern[nSatz,RESERVE] <= ::aNummern[nSatz,ENDENR] - ::aNummern[nSatz,ANFANGNR]
lErfolg := .F.
ENDIF
ENDIF
IF ! lErfolg
oSysPara:oMessage:anzeigen("Bitte Eingabe prüfen. Nicht korrekt!!!")
ENDIF
RETURN lErfolg