Histórico da Página

A finalidade deste ponto de entrada é alterar as cores do browse do cadastro.

O Para releases anteriores ao 11.7 o retorno da função é um array que irá sobrepor o array de cores da rotina principal. Portanto, é necessário adicionar novas cores e/ou alterar as cores ao array recebido por parâmetro.

Para releases a partir do 11.7 o retorno da função é um array que irá complementar o array de cores da rotina principal. Portanto, é necessário adicionar novas cores ao array recebido por parâmetro.

Release anterior ao 11.7:

#INCLUDE "PROTHEUS.CH"

User Function OM010COR()
Local aCoresUsr := aClone(PARAMIXB)

Aadd(aCoresuSR,{"(Dtos(DA0_DATATE) >= Dtos(dDataBase) .Or. Empty(Dtos(DA0_DATATE))) .And.DA0_ATIVO =='3'","BR_AZUL"}) //Ativa promoção VIP

Return(aCoresUsr)

Release a partir do 11.7:

#INCLUDE "PROTHEUS.CH"

User Function OM010COR()
Local aCoresUsr := aClone(PARAMIXB)

Aadd(aCoresuSR,{"(Dtos(DA0_DATATE) >= Dtos(dDataBase) .Or. Empty(Dtos(DA0_DATATE))) .And.DA0_ATIVO =='3'","BLUE","Promoção VIP"}) //Ativa promoção VIP

Return(aCoresUsr)

Português (Brasil)

Microsiga_Protheus11

Todos

Todas

aCores --> Array contendo as cores da rotina principal

aCores --> Array contendo as cores a serem exibidas

OMSA010.PRX