Olá.
Verifique como está a construção do seu TGet/MsGet, caso ele estiver especificando uma cor fixa nos parâmetros nClrFore e nClrBack, o sistema irá acatar essas cores e não a do sistema.
Você pode passar esses parâmetros como nulo, para deixar o sistema escolher a cor de acordo com o tema, ou realizar uma condição para informar as cores de acordo com o tema.
Para obter qual tema está sendo utilizado pelo sistema, utilize a classe totvs.framework.css.getNewWebAppTheme(). Documentação: getNewWebAppTheme - Função que retorna o tema do Protheus - Frameworksp - TDN
Exemplos:
// Dessa forma, a cor ficará fixa como texto preto (CLR_BLACK) e fundo branco (CLR_WHITE)
TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , CLR_BLACK, CLR_WHITE, , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')
// Dessa forma, a cor será assumida de acordo com o tema aplicado pelo Protheus
TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , , , , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')
// Dessa forma, aplico a cor de acordo com o tema do Protheus
cTheme := totvs.framework.css.getNewWebAppTheme()
If !empty(cTheme) .and. cTheme == "DARK"
nClrText := CLR_WHITE
nClrBack := CLR_BLACK
Else
nClrText := CLR_BLACK
nClrBack := CLR_WHITE
EndIf
TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , nClrText, nClrBack, , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')