Perguntas Duvida Formulário ADVPL

Pessoal, Bom dia!

Estou desesperado aqui, passei uma tarde tentando deixar os campos dentro desse grupbox da mesma cor e não consigo..

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'
#INCLUDE 'FONT.CH'
#INCLUDE 'COLORS.CH'


User Function NewS

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Declaração de Variaveis local dos Objetos ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
Local aItems := {'Todos','C=CIF','F=FOB'}
Local aFilial := {'Todos', '01','04'}

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Declaração de Variaveis Private dos Objetos ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
SetPrvt("oFont1","oFont2","oDlg","oGrp1","oCBox1","oCBox2","oCBox3","oCBox4","oCBox5","oCBox6","oGrp2")
SetPrvt("oSay2","oSay3","oSay4","oSay5","oSay6","oSay7","oSay8","oCBox7","oCBox8","oGet1","oBtn2","oBtn3")
SetPrvt("oBtn4","oGet3","oBtn5","oGet4","oGet5","oGet6","oBtn1")
Private dGet3 := CtoD(Space(08))
Private dGet4 := CtoD(Space(08))
PRIVATE cCombo4 :=""
PRIVATE cCombo :=""

PRIVATE lChk1 := .F.
PRIVATE lChk2 := .F.
PRIVATE lChk3 := .F.
PRIVATE lChk4 := .F.
PRIVATE lChk5 := .F.
PRIVATE lChk6 := .F.
PRIVATE cStrV := ""
PRIVATE cStrUF:= ""
PRIVATE cStrRE:= ""
PRIVATE cStrCA:= ""
PRIVATE cStrDI
PRIVATE cStrDF

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Definicao do Dialog e todos os seus componentes. ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
oFont1 := TFont():New( "Arial Narrow",0,-16,,.F.,0,,400,.F.,.F.,,,,,, )
oFont2 := TFont():New( "Arial Narrow",0,-12,,.F.,0,,400,.F.,.F.,,,,,, )

oDlg := MSDialog():New( 091,232,362,799,"Relatório Faturamento",,,.F.,,,,,,.T.,,,.T. )

oGrp1 := TGroup():New( 004,004,048,272,"Agregadores",oDlg,CLR_BLUE,CLR_WHITE,.T.,.F. )

oCBox1 := TCheckBox():New( 014,008,"Região Estratégica",{|u|if(PCount()>0,lChk1:=u,lChk1)},oGrp1,072,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )
oCBox2 := TCheckBox():New( 024,008,"Categoria" ,{|u|if(PCount()>0,lChk2:=u,lChk2)},oGrp1,060,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )
oCBox3 := TCheckBox():New( 034,008,"Estado" ,{|u|if(PCount()>0,lChk3:=u,lChk3)},oGrp1,060,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )
oCBox4 := TCheckBox():New( 034,193,"CIF x FOB" ,{|u|if(PCount()>0,lChk4:=u,lChk4)},oGrp1,060,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )
oCBox5 := TCheckBox():New( 024,193,"Unid. Negocio" ,{|u|if(PCount()>0,lChk5:=u,lChk5)},oGrp1,060,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )
oCBox6 := TCheckBox():New( 014,193,"Vendedor ",{|u|if(PCount()>0,lChk6:=u,lChk6)},oGrp1,060,008,,,oFont1,,CLR_BLUE,CLR_WHITE,,.T.,"",, )

oGrp2 := TGroup():New( 052,004,108,272,"Filtros",oDlg,CLR_BLUE,CLR_WHITE,.T.,.F. )

oSay1 := TSay():New( 062,012,{||"Data Inicial:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,032,009)
oGet5 := TGet():New( 062,049,{|u| if(PCount()>0,dGet3:=u,dGet3) } ,oGrp2,075,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)

oSay6 := TSay():New( 062,161,{||"Data Final:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,032,008)
oGet6 := TGet():New( 062,196,{|u| if(PCount()>0,dGet4:=u,dGet4) } ,oGrp2,073,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)

oSay2 := TSay():New( 072,012,{||"Uni. Negoc:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,037,009)
oCBox7 := TComboBox():New( 072,049,{|u|if(PCount()>0,cCombo4:=u,cCombo4)},aFilial,075,010,oGrp2,,,,CLR_BLACK,CLR_WHITE,.T.,,"",,,,,,, )

oSay5 := TSay():New( 072,161,{||"CIF x FOB:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,034,008)
oCBox8 := TComboBox():New( 072,196,{|u|if(PCount()>0,cCombo:=u,cCombo)},aItems,074,010,oGrp2,,,,CLR_BLACK,CLR_WHITE,.T.,,"",,,,,,, )

oSay3 := TSay():New( 082,008,{||"Vendedores:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,040,008)
oGet1 := TGet():New( 082,049,{|u| if(PCount()>0,cStrV:=u,cStrV) },oGrp2,060,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)
oBtn2 := TButton():New( 082,110,"...",oDlg,{||Processa({||TLVendedores()},"","")},013,010,,,,.T.,,"",,,,.F. )


oSay4 := TSay():New( 082,161,{||"Categoria:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,032,008)
oGet2 := TGet():New( 082,196,{|u| if(PCount()>0,cStrCA:=u,cStrCA) },oGrp2,060,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)
oBtn3 := TButton():New( 082,257,"...",oDlg,{||Processa({||TLCategoria()},"","")},013,010,,,,.T.,,"",,,,.F. )

oSay7 := TSay():New( 092,024,{||"Reg. Estr.:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,032,008)
oGet3 := TGet():New( 092,049,{|u| if(PCount()>0,cStrRE:=u,cStrRE) },oGrp2,060,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)
oBtn4 := TButton():New( 092,110,"...",oDlg,{||Processa({||TLRegEstra()},"","")},013,010,,,,.T.,,"",,,,.F. )

oSay8 := TSay():New( 092,168,{||"Estado:"},oGrp2,,oFont1,.F.,.F.,.F.,.T.,CLR_BLUE,CLR_WHITE,025,008)
oGet4 := TGet():New( 092,196,{|u| if(PCount()>0,cStrUF:=u,cStrUF) },oGrp2,060,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","",,)
oBtn5 := TButton():New( 092,257,"...",oDlg,{||Processa({||TLEstado()},"","")},013,010,,,,.T.,,"",,,,.F. )
//oBtn1 := TButton():New( 112,196,"Imprimir",oDlg1,{||Processa({||FProcREG1(oDlg)},077,012,,oFont1,,.T.,,"",,,,.F. )


//oButton1:=tButton():New(112,196,"&Imprimir",oDlg,{||Processa({||FProcREG1(oDlg)},"Aguarde...","Processando...")},40,10,,,,.T.)


ACTIVATE MSDIALOG oDlg CENTERED

Return

alguém ai sabe o que está faltando?

Alguém?