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 | 