Page tree
Skip to end of metadata
Go to start of metadata

CRM980BLabel - Adiciona legendas no browse do cadastro de clientes

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

CRM

Rotina:

Rotina

Nome Técnico

CRMA980

Cadastro de Clientes

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versão:12.1.17 e superior.

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada CRM980BLabel é permitir inclusão de legendas no browse do cadastro de clientes.

Localização:

Atualizações/Vendas/Contas/Clientes

Eventos:

CRM980BLabel( ) -> aRet

Programa Fonte:

CRMA980.prw

Parâmetros:

Nenhum

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Lista de legendas para adicionar no browse.


Sim

Exemplo:

#INCLUDE "PROTHEUS.CH"
User Function CRM980BLabel()
Local aRet := {}
//-----------------------------------
// [n][1] - Expressão ADVPL
// [n][2] - Cores da Legenda 
// [n][3] - Descrição
//------------------------------------
aAdd(aRet,{"SA1->A1_PESSOA=='F'","GREEN","Pessoa Física"})
aAdd(aRet,{"SA1->A1_PESSOA=='J'","RED"	,"Pessoa Jurídica"})
aAdd(aRet,{"SA1->A1_PESSOA==' '","BLACK","Não Informado"})
Return( aRet )