Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • TMKENT - Retornar Campos
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

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)