Histórico da Página

Este Ponto de Entrada está localizado na rotina de Contrato Carreteiro (TMSA250) Manutenção da AWB - TMSA320, sendo executado no final da execução da rotinaao clicar no botão Efetivar ou Alterar Efetivação?.

O ponto de entrada TM320EFET é executado ao clicar no botão Efetivar e/ou Alterar Efetivação?. O ponto de entrada tem como objetivo validar se poderá ser feita a efetivação da AWB.

O ponto de entrada espera um retorno de um valor lógico, para prosseguir ou não com a efetivação é executado:
No final do processamento de geração do contrato onde é passado o vetor contendo as viagens cujo contrato foi gerado.
No final da rotina de contrato quando houve falha no processamento, o vetor é passado sem conteúdo.

#INCLUDE "protheus.ch"
#INCLUDE "TOPCONN.CH"
#include "tbiconn.ch"

User Function TM250FIM TM320EFET()
Local aContratos lRet := .T.
Local nOpcx := ParamIXB PARAMIXB[1]
Local nI
For nI:= 1 to Len(aContratos)
conout("Filial: " + aContratos[nI,1] )
conout("Viagem: " + aContratos[nI,2] )
conout("Contrato: " + aContratos[nI,3] )
Next nI
ReturncFilAWB := PARAMIXB[2]
Local cNumAWB := PARAMIXB[3]
Local cDigAWB := PARAMIXB[4]
Local cCodCia := PARAMIXB[5]
Local cLojCia := PARAMIXB[6]

//– Realizar validações necessárias
If cNumAWB == "XXXXXXX"

lRet := .F.

EndIf

Return lRet

Português(Brasil)

a partir da 12.1.17

Todos

Todas

Nulo

Final da rotina de processamento (TMSA250PRC) e execução da rotina de contrato (TMSA250MNT)O ponto de entrada é executado na rotina Manutenção de AWB (TMSA320) ao clicar no botão Efetivar e/ou Alterar Efetivação? .

PARAMIXB[1]  - Variável do tipo array contendo as viagens cujo contrato foi geradonumérica, contendo o número da operação.
PARAMIXB[2] - Variável do tipo caractere, contém a filial da AWB.
PARAMIXB[3] - Variável do tipo caractere, contém o número a AWB.
PARAMIXB[4] - Variável do tipo caractere, contém o dígito da AWB.
PARAMIXB[5] - Variável do tipo caractere, contém o código da companhia da AWB.
PARAMIXB[6] - Variável do tipo caractere, contém a loja da companhia da AWB.

TMSA250TMSA320.prw