|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Legenda no Cadastro de Produto |
|
Versão: |
12.1.2210 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
WANDERSONW
em 12/02/2024, 16:20 h
Local: SP Registro: 01/07/2015 Postagens: 167 |
Bom dia Pessoal,
Estou precisando colocar legenda no browse do cadastro de produto e, peguei um exemplo no tdn da totvs que esta apresentando erro de array.
Vejam o fonte:
#Include ‘Protheus.ch‘
USER FUNCTION MT010COR ()
Local aCores:={}
aAdd(aCores,{‘B1_TIPO == "PA"‘,‘BR_VERMELHO‘})
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
Alguém já passou por isso ou tem um exemplo melhor que possa compartilhar?
|
|
|
Mensagem do
TIAGOFLM
em 12/02/2024, 18:45 h
Local: ES Registro: 25/02/2023 Postagens: 8 |
Acho que faltou alguma parte, no TDN ta
aAdd(aCores,{‘B1_TIPO == "AI"‘,‘BR_VERMELHO‘, ‘Produto teste‘}) |
|
|
Mensagem do
WANDERSONW
em 13/02/2024, 08:08 h
Local: SP Registro: 01/07/2015 Postagens: 167 |
Bom dia Tiago,
Muito obrigado era isso mesmo.
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|