GFEA0503 - Validação Adicional dos Documentos de Carga Que Pertencerão ao Romaneio

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0503

Descrição:

Permite realizar a validação adicional dos documentos de carga que pertencerão ao romaneio.

Localização:

Botão de vinculação do documento de carga ao romaneio.

Programa Fonte:

GFEA050A - Vínculo entre o Documento de Carga e um Romaneio.

Parâmetros:

NomeTipoDescrição
PARAMIXB[1]CaractereNúmero do romaneio
PARAMIXB[2]CaractereTipo do documento de carga
PARAMIXB[3]CaractereEmissor do documento de carga
PARAMIXB[4]CaractereSérie do documento de carga
PARAMIXB[5]CaractereNúmero do documento de carga

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Indica se o documento de carga selecionado fará ou não parte do romaneio

Sim

 

#INCLUDE "PROTHEUS.CH"
User Function GFEA0503()
Local cTpDc   := PARAMIXB[2]
Local cCdEmis := PARAMIXB[3]
Local cSerie  := PARAMIXB[4]
Local cNrDc   := PARAMIXB[5]
	GWU->( dbSetOrder(1) )
	If GWU->( dbSeek(xFilial("GWU") + cTpDc + cCdEmis + cSerie + cNrDc ))
		// Se transportador da nota diferente do romaneio
		If GWU->GWU_CDTRP <> GWN->GWN_CDTRP
			MsgInfo("Transportador do Documento de Carga difere do transportador do Romaneio ")
			Return .F.
		EndIf
	EndIf
Return .T.