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:
2026-07-07 13:16:59 +03:00
parent 5f71dfb0de
commit 0acdff9647
2168 changed files with 207399 additions and 0 deletions

View 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