Histórico da Página

...

Descrição:

Permitir realizar consistência no momento de seleção do documento de carga que irá fazer parte do romaneio.

Localização:

Botão de inclusão do documento de carga ao romaneio.

Programa Fonte:

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

Parâmetros:

RomaneioSim Sim Sim

Nome	Tipo	Descrição
Obrigatório
PARAMIXB[1]	Caracter	Número do
romaneio
Sim
PARAMIXB[2]	Caracter	Tipo do documento de carga
PARAMIXB[3]	Caracter	Emissor do documento de carga
PARAMIXB[4]	Caracter	Série do documento de carga	Sim
PARAMIXB[5]	Caracter	Número do documento de carga

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Boolean	Lógico	Indica Retorno booleano, indicando se o documento de carga selecionado irá ou não fazer parte do romaneio	Sim

Exemplo: GFEA0503

1

Bloco de código

2

linenumbers

3

4

5

6

7

8

9

10

11

User Function GFEA0503()

Local aTpDc :=

true

#INCLUDE "PROTHEUS.CH"


User Function GFEA0503()
Local cTpDc   := PARAMIXB[2]


Local

aCdEmis

 cCdEmis := PARAMIXB[3]

Local aSerie


Local cSerie  := PARAMIXB[4]

Local aNrDc


Local cNrDc   := PARAMIXB[5]

dbSelectArea("GWU")
GWU




	GWU->( dbSetOrder(1) )


	If GWU->( dbSeek(xFilial("GWU") +

aTpDc + aCdEmis + aSerie + aNrDc ))
/*Se transportador da nota diferente do romaneio */
If

 cTpDc + cCdEmis + cSerie + cNrDc ))
		// Se transportador da nota diferente do romaneio
		If GWU->GWU_CDTRP <> GWN->GWN_CDTRP

DbSelectArea("GU3")
GU3->( dbSetOrder(1) )
If GU3->( dbSeek(xFilial("GU3") + GWN->GWN_CDTRP) )


			MsgInfo("Transportador do Documento de Carga difere do transportador do Romaneio ")


			Return .F.

EndIf
EndIf
EndIfReturn


		EndIf
	EndIf


Return .T.

Árvore de páginas