Linha Microsiga Protheus

Árvore de páginas

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