Histórico da Página

Descrição

Ponto de Entrada para adicionar legenda de cores na tela Cadastro de Produtos.

Observações

Para adicionar a Tabela de legendas de cores é preciso utilizar o Ponto de Entrada MT010BRW para retornar a opção Legenda nas ações relacionadas.

Exemplos

USER FUNCTION MT010COR ()
Ponto de entrada que adiciona legenda de cores na tela de Cadastro de Produtos
Local aCores:={}
aAdd(aCores,{'B1_TIPO ==

"AI"','BR_VERMELHO'

})

//As

cores

vão

se

diferenciar

dependendo

do

tipo

do

produto

aAdd(aCores,

{'B1_TIPO

==

"BN"','BR_PRETO'

})

aAdd(aCores,

{'B1_TIPO

==

"PA"','BR_VERDE'

})

aAdd(aCores,

{'B1_TIPO

==

"MP"','BR_AZUL'

})

aAdd(aCores,

{'B1_TIPO

==

"GG"','BR_AMARELO'

})

aAdd(aCores,

{'B1_TIPO

==

"MC"','BR_CINZA'

})

aAdd(aCores,

{'B1_TIPO

==

"ME"','BR_PINK'

})

aAdd(aCores,

{'B1_TIPO

==

"MO"','BR_LARANJA'

})

RETURN

aCores
Abaixo segue exemplos dos 2 fontes necessários para criar a opção e chamar a Tabela de Legenda
USER FUNCTION MT010BRW ()
Local aTeste:={}
aAdd(aTeste,{"Legenda","U_MT010LEG",

0,

3,

0,

Nil

})

Ao clicar no botão legenda vai chamar o fonte MT010LEG
RETURN aTeste
USER FUNCTION MT010LEG()
Esse fonte serve para criar a Tabela de legenda e chamar a função que mostra a tabela
Local aLegenda := {}
aAdd(aLegenda,{'BR_VERMELHO'

,"AI"

})

aAdd(aLegenda,

{'BR_PRETO'

,"BN"

})

aAdd(aLegenda,

{'BR_VERDE'

,"PA"

})

aAdd(aLegenda,

{'BR_AZUL'

,"MP"

})

aAdd(aLegenda,

{'BR_AMARELO'

,"GG"

})

aAdd(aLegenda,

{'BR_CINZA'

,"MC"

})

aAdd(aLegenda,

{'BR_PINK'

,"ME"

})

aAdd(aLegenda,

{'BR_LARANJA'

,"MO"

})

BrwLegenda("Legendas","Legenda

de

acordo

com

o

Tipo",

aLegenda

)

Return

Preview

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Programa Fonte

MATA010.PRW