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

Retorno

aCores

Array

Serve para indicar a condição da cor da legenda.

Programa Fonte

MATA010.PRW