Linha Microsiga Protheus

Árvore de páginas

GFE06501 - Permite verificar a data de vencimento informada

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFE06501

Descrição:

Permite verificar a data de vencimento informada.

Localização:

Antes de gerar a Fatura de Frete por Faixa ou na criação automática de Faturas de Frete

Programa Fonte:

GFEA065 - Digitação de Documentos de Frete

Parâmetro:

NomeTipoDescrição
PARAMIXB[1]dataData de Vencimento

Retorno:

Retorna uma variável do tipo 'Data'

Exemplo: GFE06501
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH"

USER FUNCTION GFE06501()

	Local dDataVenc :=  PARAMIXB[1]
	Local dDtLimite := "20200101"

	//Exemplo de utilização
	dDataVenc := DTOS(dDataVenc)

	If dDataVenc <= dDtLimite
		dDtLimite :=  STOD(dDtLimite)
		Alert("A Data de Vencimento informada deve ser posterior a "+ DtOC(dDtLimite))
	ENDIF

	dDataVenc := STOD(dDataVenc)

RETURN dDataVenc