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}