Imprimi Página | Fechar janela

Legenda no Cadastro de Produto

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=44438
Data da Impressão: segunda-feira, 24 de março de 2025 at 05:35


Topico: Legenda no Cadastro de Produto

Postado por: WANDERSONW
Assunto: Legenda no Cadastro de Produto
Data Postagem: segunda-feira, 12 de fevereiro de 2024 at 16:20

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?





Respostas:

Postado Por: TIAGOFLM
Data Postagem: segunda-feira, 12 de fevereiro de 2024 at 18:45

Acho que faltou alguma parte, no TDN ta
aAdd(aCores,{‘B1_TIPO == "AI"‘,‘BR_VERMELHO‘, ‘Produto teste‘})



Postado Por: WANDERSONW
Data Postagem: terça-feira, 13 de fevereiro de 2024 at 08:08

Bom dia Tiago,

Muito obrigado era isso mesmo.





Imprimir Página | Fechar Janela