Linha Microsiga Protheus

Árvore de páginas

GFEA05A6 - Permite incluir uma ação após relacionar o documento de carga ao romaneio

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA05A6

Descrição:

Permite Permite incluir uma ação após relacionar o documento de carga ao romaneio.

Localização:

No relacionamento de documentos de carga ao romaneio

Programa Fonte:

GFEA050A

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Caracter

GWH_FILIAL

Sim
PARAMIXB[2]Caracter

GWH_NRCALC

Sim
PARAMIXB[3]Caracter

cNrRoman

Sim

Retorno:

Não se aplica.
Exemplo: OMSM0115
User Function GFEA05A6()

	Local cGWH_FILIAL	:= PARAMIXB[1]
    Local cGWH_NRCALC	:= PARAMIXB[2]
    Local cNrRoman	    := PARAMIXB[3]
	Local aOldArea 	    := GetArea()		
	
    GWF->(dbSetOrder(1))
    
    If GWF->(dbSeek(cGWH_FILIAL + cGWH_NRCALC))	.And. GWF->GWF_ORIGEM == '2'
        
		If Empty(GWF->GWF_NRROM) .And. !Empty(cNrRoman)
            Reclock("GWF",.F.)
            GWF->GWF_NRROM := SubStr(cNrRoman,FWSizeFilial()+1)
            msUnlock("GWF")
        EndIf
    EndIf
	
	RestArea(aOldArea)
	
Return .T.