Initial import of ROACONT (Visual FoxPro accounting app) into git
Migrated from the ROACONT SVN trunk working copy for hosting on gitea.romfast.ro.
This commit is contained in:
20
Programe/OVARIABILE_GLOBALE.PRG
Normal file
20
Programe/OVARIABILE_GLOBALE.PRG
Normal file
@@ -0,0 +1,20 @@
|
||||
**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
|
||||
Reference in New Issue
Block a user