Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Philippe Rocca Bretas

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Philippe Rocca Bretas

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

GFE06501 -

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx

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:XXXXXXXXXXXX

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:XXXXXXXXXXXXXXXXX

NomeTipoDescrição
PARAMIXB[1]dataData de Vencimento

Retorno:XXXXXXXXXXXXXXXXXXXX

Retorna uma variável do tipo 'Data'

Bloco de código
languagedelphi
titleExemplo: GFE06501
linenumberstrue
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH"

UserUSER Function GFE06501()


ReturnFUNCTION 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