| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
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.
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
Não se aplica.