Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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.18 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:

Bloco de código
languagec#
linenumberstrue
#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 )