GFEA0503 - Consistência do documento de carga que fará parte do romaneio.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

 

Ponto de Entrada - GFEA0503

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:

Nome
Tipo
Descrição
Obrigatório
PARAMIXB[1]
Caracter
Número do Romaneio

Sim 

PARAMIXB[2]CaracterTipo do documento de cargaSim 
PARAMIXB[3]CaracterEmissor do documento de cargaSim 
PARAMIXB[4]CaracterSérie do documento de cargaSim 
PARAMIXB[5]CaracterNúmero do documento de cargaSim 

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Boolean

Retorno booleano, indicando se o documento de carga selecionado irá ou não fazer parte do romaneio

Sim

 

Exemplo: GFEA0503

 

1
2
3
4
5
6
7
8
9
10
11

User Function GFEA0503()

Local aTpDc := PARAMIXB[2]
Local aCdEmis := PARAMIXB[3]
Local aSerie := PARAMIXB[4]
Local aNrDc := PARAMIXB[5]

dbSelectArea("GWU")
GWU->( dbSetOrder(1) )
If GWU->( dbSeek(xFilial("GWU") + aTpDc + aCdEmis + aSerie + aNrDc ))
/*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
EndIf

Return .T.