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 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]CaracterNúmero do romaneio
PARAMIXB[2]CaracterTipo do documento de carga
PARAMIXB[3]CaracterEmissor do documento de carga
PARAMIXB[4]CaracterSérie do documento de carga
PARAMIXB[5]CaracterNúmero do documento de carga

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

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

Sim

 

Exemplo: GFEA0503

 

#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.