Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • TMKENT - Retornar Campos

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
TMKENT - Retornar Campos
TMKENT - Retornar Campos

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]CaracterEntidade (Alias) da tabela.X
ParamIxb[2]NuméricoOrdem de pesquisa na entidade (alias) da chave do vinculo com a tabela destinoX
ParamIxb[3]NuméricoOrdem seqüencial das colunasX
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)