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'