PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Legenda no Cadastro de Produto
Versão:
12.1.2210
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário WANDERSONW WANDERSONW em 12/02/2024, 16:20 h
Local: SP  Registro: 01/07/2015  Postagens: 166
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 Enviar e-mail Abrir o Perfil do usuário TIAGOFLM 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‘})

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário WANDERSONW WANDERSONW em 13/02/2024, 08:08 h
Local: SP  Registro: 01/07/2015  Postagens: 166
Bom dia Tiago,

Muito obrigado era isso mesmo.

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal