Linha Microsiga Protheus

Árvore de páginas

GFEA0502 – Validação Adicional na Reabertura do Romaneio

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0502

Descrição:

Possibilita a execução de procedimentos na reabertura do romaneio impedindo ou não a sua reabertura.

Localização:

Antes de realizar a reabertura do romaneio.

Programa Fonte:

GFEA050 - Romaneio

Parâmetros:

Nenhum

Retorno:

Nome

Tipo

Descrição

Obrigatório

axRetPE

Array

aRetPE[1] (Lógico) Verdadeiro ou falso (.T. ou .F.) conforme resultado da validação
aRetPE[2] (Caracter) Mensagem de erro, caso o resultado da validação seja falso

Sim

Observação:O desenvolvimento da rotina customizada deve ser realizado utilizando a tabela GWN (Romaneios de Carga), a qual estará posicionada no momento da execução do ponto de entrada.

 

Exemplo: GFEA0502
#INCLUDE "PROTHEUS.CH" 
User Function GFEA0502()
	Local aAreaAnt := GetArea()
	Local lRet     := .T.
	Local cMsgErro := ''
 	//Se a data de implantação do romaneio for diferente da
	//data atual, não permite a reabertura
	If GWN->GWN_DTIMPL != Date()
		cMsgErro := "Somente romaneios criados no dia de hoje podem ser reabertos!"
		lRet     := .F.
	EndIf
	RestArea(aAreaAnt)
Return { lRet, cMsgErro }