Histórico da Página
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: |
| ||||
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( ) -> aLabel | ||||||||
Programa Fonte: | CRMA980.prw | ||||||||
Parâmetros: | Nenhum | ||||||||
Retorno: |
|
Exemplo:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE "PROTHEUS.CH"
User Function CRM980BLabel()
Local aLabel := {}
//-----------------------------------
// [n][1] - Expression ADPVL
// [n][2] - Color
// [n][3] - Label
//------------------------------------
aAdd(aLabel,{"SA1->A1_PESSOA=='F'","GREEN","Pessoa Física"})
aAdd(aLabel,{"SA1->A1_PESSOA=='J'","RED" ,"Pessoa Jurídica"})
aAdd(aLabel,{"SA1->A1_PESSOA==' '","BLACK","Não Informado"})
Return( aLabel ) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas