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. |
| 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: |
|
|
|
Exemplo:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE "PROTHEUS.CH" User Function CRM980BLabel() Local aLabelaRet := {} //----------------------------------- // [n][1] - ExpressionExpressão ADPVLADVPL // [n][2] - ColorCores da Legenda // [n][3] - LabelDescrição //------------------------------------ aAdd(aLabelaRet,{"SA1->A1_PESSOA=='F'","GREEN","Pessoa Física"}) aAdd(aLabelaRet,{"SA1->A1_PESSOA=='J'","RED" ,"Pessoa Jurídica"}) aAdd(aLabelaRet,{"SA1->A1_PESSOA==' '","BLACK","Não Informado"}) Return( aLabelaRet ) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas