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 |