GFEA0502 – Validação Adicional na Reabertura do Romaneio

Descrição	Ponto de entrada localizado logo após validações padrão na reabertura do romaneio.
Observações	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.
Idioma	Português(Brasil)
Versões	11.80
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Parâmetros	Este PE não possui parâmetros
Retorno	O retorno deverá ser um array (aRetPE) no seguinte formato: 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
Eventos de chamada do Ponto de Entrada	Reabertura de Romaneio
Programa Fonte	GFEA050.PRW

Exemplo:

Exemplo

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

Home

Linha Microsiga Protheus

Páginas filhas