Ponto-de-Entrada: TM490CPO - Criação de Campos de Usuário no Arquivo Temporário
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este Ponto de Entrada localizado no TMSA490 (Fatura Automática), permite ao usuário criar campos de Usuário no arquivo temporário.
Eventos
Programa Fonte
Sintaxe
TM490CPO - Criação de Campos de Usuário no Arquivo Temporário ( [ Nulo ] ) --> aCampos
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Nulo | Array of Record |
Retorno
-
aCampos(vetor)
- Array com os campos de usuário.
Observações
Exemplos
User Function TM490CPO()Local nOpcao := ParamIxb[1]Local aCampos := {}If nOpcao == 1 //-- Campos de usuarios a serem criados no temporario AAdd(aCampos, {'TESTE', 'C', 10 , 0 }) Return aCamposElseIf nOpcao == 2 //-- Alimenta o arquivo temporario (cAliasTRB)->TESTE := '1234567890'ElseIf nOpcao == 3 //-- Gravacao dos campos do usuario //-- Variaveis auxiliares cCliente := ParamIxb[2] cLoja := ParamIxb[3] cNumFat := ParamIxb[4] cPrefix := ParamIxb[5] cAlias := ParamIxb[6] If cAlias == 'DT6' //Grava DT6 posicionado //Exemplo //RecLock('DT6',.F.) //DT6->DT6_STATUS := '1' //MsUnlock() ElseIf cAlias == 'SE1' // Grava SE1 posicionado //Exemplo //RecLock('SE1',.F.) //SE1->E1_PREFIXO := 'FAT' //MsUnlock() EndIfEndIf Return Nil