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

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

View File

@@ -0,0 +1,39 @@
[Enero]
Days=01
Day01Tips=D<EFBFBD>a de mi programa
[Febrero]
Days=14
Day14Tips=D<EFBFBD>a de la amistad
[Abril]
Days=17,18
Day17Tips=
Day18Tips=
[Mayo]
Days=01
Day01Tips=
[Julio]
Days=28,29
Day28Tips=Fiestas patrias
Day29Tips=Desfile militar
[Agosto]
Days=30
Day30Tips=Santa Rosa de Lima
[Octubre]
Days=08
Day08Tips=8 Octubre
[Noviembre]
Days=01
Day01Tips=
[Diciembre]
Days=08,25
Day08Tips=Dia de San Guchito
Day25Tips=Navidad!!! ... Nacimiento del ni<6E>o Jes<65>s

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 326 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,10 @@
nControls = ASelObj(aObjects)
If nControls = 0
nControls = ASelObj(aObjects, 1)
EndIf
oObject = aObjects(1)
If oObject.Class = "_sbrstatusbar"
Set Classlib To (oObject.ClassLibrary)
oPageProperty = Createobject("_pgeProperty", oObject)
oPageProperty.Show()
EndIf

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,10 @@
colMyCollection=CREATEOBJECT("Collection")
frm1=CREATEOBJECT("Form")
frm2=CREATEOBJECT("Form")
colMyCollection.Add(frm1)
colMyCollection.Add(frm2)
colMyCollection.Add("Item 1")
colMyCollection.Add("Item 2")
colMyCollection.Add("Item 3")
Form1.lstMyList.RowSourceType = 10
Form1.lstMyList.RowSource = "colMyCollection, Caption, Name"