54 lines
2.0 KiB
Plaintext
54 lines
2.0 KiB
Plaintext
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' |