Árvore de páginas

Ponto de Entrada TM320TOK

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGATMS - Gestão de Transportes

ISSUE

DLOGTMS03-1103

Ponto de Entrada - TMALTBAS

Descrição:

O Ponto de Entrada TM320TOK permite validar a inclusão da AWB ao clicar no botão 'Confirmar'.

Localização:TMSA320
Programa Fonte:TMSA320 - Geração de AWB
Parâmetro:
NomeTipoDescrição
PARAMIXB[1] NuméricoOpção
PARAMIXB[2] ArrayManifestos da Viagem
Retorno:
NomeTipoDescriçãoObrigatório
lRetLogicoRetorno da ValidaçãoSim
Observações:

Opção - Indica a opção selecionada na rotina de Geração AWB

Manifestos da Viagem - Array que irá conter todos os manifestos da viagem, independente se foram ou não marcados. Na primeira posição de cada elemento do array, com conteúdo logico, indica se o manifesto foi ou não marcado pelo usuário, ou seja se o conteúdo for .T. indica que foi marcado.

Importante:

A variável que contem os Manifestos, são apenas para validação da rotina.

#Include "Protheus.ch" 

User Function TM320TOK()
Local nOpcao  := PARAMIXB[1]
Local aManife  := aClone(PARAMIXB[2])
Local lRet        := .T.


If Len(aManife) > 0
      If Ascan( aManife, { |x| x[1] == .F. } ) > 0
            MsgAlert('Existem Manifestos que nao foram marcados')
            lRet:= .F.
      EndIf
EndIf


Return lRet