romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial import of ROACONT (Visual FoxPro accounting app) into git

Browse Source 
Migrated from the ROACONT SVN trunk working copy for hosting on gitea.romfast.ro.
This commit is contained in:
Marius Mutu
2026-07-07 13:16:59 +03:00
parent 5f71dfb0de
commit 0acdff9647
2168 changed files with 207399 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
seagoe_ui.prg Normal file
View File

@@ -0,0 +1,54 @@
CLOSE DATABASES all
SET CENTURY on
SET DATE DMY
SET EXCLUSIVE OFF
SET ANSI ON
SET EXACT ON
SET DELETED ON
*!* TEXT TO lcProperties1 NOSHOW
*!* Label_item1.Name = "Label_item1"
*!* ENDTEXT
*!* TEXT TO lcProperties2 NOSHOW
*!* Label_item1.Name = "Label_item1"
*!* Label_item1.FontName = "Segoe UI"
*!* Label_item1.FontSize = 10
*!* ENDTEXT
*!* USE d:\roa\roacont\clase\contab.vcx IN 0 AGAIN ALIAS Contab SHARED
*!* SELECT contab
*!* SET FILTER TO class = 'cw'
*!* SCAN
*!* IF 'Segoe UI'$properties
*!* LOOP
*!* ENDIF
*!* REPLACE properties WITH STRTRAN(properties, m.lcProperties1, m.lcProperties2,1,1,1)
*!* ENDSCAN
SELECT contab
SET FILTER TO class == 'cw' AND baseclass = 'container' AND LOWER(LEFT(objname,2)) = 'cw' AND ISDIGIT(RIGHT(objname,1)) AND classloc = '..\comun\clase\ofundal.vcx'
REPLACE ALL class with 'cw_2019'
SET FILTER TO class == 'cw_2019' AND baseclass = 'container' AND LOWER(LEFT(objname,2)) = 'cw' AND ISDIGIT(RIGHT(objname,1)) AND classloc = '..\comun\clase\ofundal.vcx'
REPLACE ALL properties WITH STRTRAN(properties,'Width = 134','Width = 180')
SET FILTER TO objname = 'shape1' AND class = 'pict_meniu' AND classloc = '..\comun\clase\ofundal.vcx'
REPLACE ALL properties WITH STRTRAN(properties,'Width = 150','Width = 200')
use d:\roa\roacont\comun\clase\obalanta.vcx IN 0 share AGAIN ALIAS obalanta
SELECT obalanta
SET FILTER TO parent = 'frm_balanta.pf.p1' AND baseclass = 'textbox'
REPLACE ALL class WITH '_textbox', classloc WITH '_baza.vcx' FOR class = 'textbox'
SET FILTER TO parent = 'frm_balanta.pf.p1' AND baseclass = 'label'
REPLACE ALL class WITH '_label', classloc WITH '_baza.vcx'
SET FILTER TO baseclass = 'label' AND EMPTY(classloc)
REPLACE ALL class WITH '_label', classloc WITH '_baza.vcx'
USE d:\roa\roacont\comun\clase\oparteneri.vcx IN 0 SHARED ALIAS oparteneri AGAIN
SELECT oparteneri
SET FILTER TO baseclass = 'textbox' AND parent == 'frm_bal_parteneri'
REPLACE ALL class WITH '_textbox', classloc WITH '_baza.vcx'