01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Logística |
Módulo: | SIGATMS - Gestão de Transportes |
02. DESCRIÇÃO
Este Ponto de Entrada localizado no TMSA491 (Fatura Automática), permite ao usuário criar campos de Usuário no arquivo temporário.
Sintaxe
TM491CPO - 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.
03. EXEMPLO DE UTILIZAÇÃO
TM491CPO
Programa Fonte TMSA491.PRW User Function TM491CPO() Local aTit := {} If nOpcao == 1 //-- apresenta campos do usuario Return ', DT6_STATUS, DT6_LOTNFC' //-- Os campos sempre deverao ser iniciados com ', ElseIf nOpcao == 2 //-- Gravacao no documento de transporte nRecno := ParamIxb[2] cAliasTRB := ParamIxb[3] cPrefix := ParamIxb[4] cFatura := ParamIxb[5] cTipo := ParamIxb[6] //-- Grava dados no documento de transporte DbGoto(nRecno) Reclock('DT6',.F.) DT6->DT6_STATUS := '1' MsUnlock() ElseIf nOpcao == 3 //-- Gravacao de informacoes na fatura (SE1) cAliasTRB := ParamIxb[2] cPrefix := ParamIxb[3] cFatura := ParamIxb[4] cTipo := ParamIxb[5] //-- Informacoes para gravacao da fatura //-- Exemplo Aadd( aTit, { 'E1_CPOUSR' , (cAliasTRB)->DT6_CPOUSR } ) Aadd( aTit, { 'E1_PREFIXO', cPrefix } ) Return aTit EndIf Return Nil
04. DEMAIS INFORMAÇÕES
Não se aplica.
05. ASSUNTOS RELACIONADOS
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas