21 lines
598 B
Plaintext
21 lines
598 B
Plaintext
**OVARIABILE_GLOBALE.PRG
|
|
|
|
*** Citesc setarea pentru ReportBehaviour
|
|
IF TYPE('gnReportBehaviour') = 'U'
|
|
PUBLIC gnReportBehaviour
|
|
gnReportBehaviour = 90
|
|
ENDIF
|
|
|
|
LOCAL lcReportBehaviour
|
|
lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '')
|
|
IF EMPTY(m.lcReportBehaviour)
|
|
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
|
|
gnReportBehaviour = 90
|
|
ELSE
|
|
gnReportBehaviour = VAL(m.lcReportBehaviour)
|
|
ENDIF
|
|
IF !INLIST(gnReportBehaviour, 80, 90)
|
|
setini(m.gcGeneralIniFile,'report','reportbehaviour', '90')
|
|
gnReportBehaviour = 90
|
|
ENDIF
|