Histórico da Página

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