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. |
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:
#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 )