Este Ponto de Entrada está localizado na rotina Manutenção da AWB - TMSA320, sendo executado ao 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.

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

User Function TM320EFET()
Local lRet := .T.
Local nOpcx := PARAMIXB[1]
Local cFilAWB := 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

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 numé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.

TMSA320.prw