Ponto-de-Entrada: TMKENT - Retornar Campos
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada TMKENT na função TkEntidade, dentro do case de verificação das entidades, executado quando nenhuma das condições do case é atendida.
Objetivo: Retornar os campos que serão apresentados quando se relacionar a um contato uma entidade que não seja padrão do protheus como por exemplo a entidade de vidas (BTS).
Programa Fonte
TMKXFUN.PRW
Sintaxe
TMKENT - Retornar Campos ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> ) --> cRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Caracter | Entidade (Alias) da tabela. | X | ||||||||||||||
| ParamIxb[2] | Numérico | Ordem de pesquisa na entidade (alias) da chave do vinculo com a tabela destino | X | ||||||||||||||
| ParamIxb[3] | Numérico | Ordem seqüencial das colunas | X |
Retorno
-
cRet(caracter)
- Expressão caracter com o nome do campo que será exibido na consulta ao relacionamento contato x entidade
Exemplos
User Function TMKENT()LOCAL cEntidade := paramixb[1]LOCAL nTipo := paramixb[3]LOCAL cCampo := ""If cEntidade == "BTS" Do Case Case (nTipo == 1) cCampo:= "BTS_NOMUSR" Case (nTipo == 2) cCampo:= "BTS_ENDERE" Case (nTipo == 3) cCampo:= "BTS_MUNICI" Case (nTipo == 4) cCampo:= "BTS_ESTADO" Case (nTipo == 5) cCampo:= "BTS_CEPUSR" Case (nTipo == 6) cCampo:= "BTS_TELEFO" Case (nTipo == 7) cCampo:= "" Case (nTipo == 8) cCampo:= "" Case (nTipo == 9) cCampo:= "BTS_DDD" Case (nTipo == 10) cCampo:= "BTS_BAIRRO" Case (nTipo == 11) cCampo:= "BTS_NREDUZ" Case (nTipo == 12) cCampo:= "" EndCaseEndif Return(cCampo)