Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMKXCTET - Retorno em array
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Ponto de entrada TMKXCTET com retorno em array, sendo o 1o. Elemeto lógico que define a permissão de alteração/inclusão de contatos e o 2o. Elemento array, contendo os campos que o usuário poderá alterar dos contatos.
Programa Fonte 
TMKXFUNE
Sintaxe

TMKXCTET - Retorno em array ( [ @Entidade ], [ @Chave ], [ @Origem ], [ @Campos SU5 ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Entidade Caracter Entidade que será validadea. Ex.: "SA1", "SA2" X
Chave Array of Record Chave de pesquisa utilizada pela entidade. Ex.: 00000101 (A1_COD+A1_LOJA) X
Origem Array of Record Local de origem da chamada,onde: 1 - Mudança de entidade 2 - Alteração de código de Entidade 3 - Alteração de loja de entidade X
Campos SU5 Array of Record Campos da tabela de contatos utilizados na GetDados. X
Retorno
    (array_of_record)
  • 1o. Elemento Lógico2o. Elemento ArrayO retorno dos dois elementos é obrigatório.
Observações

Obrigatoriamente deve-se retornar um array, com o 1o. Elemento Lógico e o 2o. Elemento Array

Exemplos 
#Include "Protheus.ch"User Function TMKXCTET()Local cEntidade	:= ParamIXB[1]Local cChave		:= ParamIXB[2]Local nOrigem		:= ParamIXB[3]Local aAlterSU5	:= ParamIXB[4]lIncCONT := Aviso("Passou no ponto TMKXCTET","Entidade:"+cEntidade+" Chave:"+cChave+;                  "Origem:"+StrZero(nOrigem,2)+CHR(10)+CHR(13)+" Pode alterar contato ?",{"Sim","Não"},2) == 1                  If !lIncCONT	aAlterSU5 := {}EndIfReturn {lIncCONT,aAlterSU5}