Linha Microsiga Protheus

Árvore de páginas


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 TMSA144 (Viagem), será executado na alteração da viagem modelo 2. Ele será executado para as viagens de coleta, transferência e entrega.


03. EXEMPLO DE UTILIZAÇÃO

Parâmetros:

Nome
Tipo
Descrição
Default
Obrigatório
Referência
aAlter
Array of Record
Campos que podem ser alterados no browse.






Variáveis

Nome
Tipo

Escopo

Pode Alterar
descrição


Array of Record

Global

Não
Retornar os campos que podem ser alterados no browse.
TM144INC 
Programa Fonte
TMSA144.PRW

Sintaxe
TM144INC- Ponto de Entrada será executado na alteração da viagem modelo 2. Ele será executado para as viagens de coleta, transferência e entrega.

Retorno
Array


Exemplos

User Function TM144INC()

Local _cSerTmsDoc    := (PARAMIXB[1])
Local _nCntFor       := (PARAMIXB[2])
Local _aCols         := (PARAMIXB[3])
Local _nDoc          := ""
Local _cSerie        := ""

    If _cSerTmsDoc = "1" //-Viagem de Coleta
        _nDoc   := iif(!Empty(_aCols[_nCntFor][6]), _aCols[_nCntFor][6], "")       
        _cSerie := iif(!Empty(_aCols[_nCntFor][7]), _aCols[_nCntFor][7], "")
    ElseIf _cSerTmsDoc = "2" //-- Viagem de Transferencia
        _nDoc   := iif(!Empty(_aCols[_nCntFor][4]), _aCols[_nCntFor][4], "")       
        _cSerie := iif(!Empty(_aCols[_nCntFor][5]), _aCols[_nCntFor][5], "")
    Else //-- Viagem de Entrega
        _nDoc   := iif(!Empty(_aCols[_nCntFor][4]), _aCols[_nCntFor][4], "")       
        _cSerie := iif(!Empty(_aCols[_nCntFor][5]), _aCols[_nCntFor][5], "")
    EndIf
    If _nDoc <> ""
        MsgAlert('Documento: ' + _nDoc + ' - ' + _cSerie )
    Else 
        MsgAlert('Nenhum documento foi selecionado !!')
    EndIf

Return


04. DEMAIS INFORMAÇÕES

  • Não há.


05. ASSUNTOS RELACIONADOS

  • Não há.