Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

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:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Possibilitar a alteração do Centro de Custo ao realizar a Integração com o ERP. 
O código retornado do ponto de entrada será utilizado para substituir o Centro de Custo padrão ao realizar a integração

Permite verificar a data de vencimento informada.

Localização:

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Encontra-se dentro da funçãoGFEA065GFF().
Função para permitir a geração automática da Fatura de Frete

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx - Antes de realizar a integração da Documento de Frete com o ERP.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]
Caractere????????Centro de Custo padrão.???????????
dataData de Vencimento

Retorno:

Retorna uma variável do tipo 'Data'

Retorno:

Nome

Tipo

Descrição

Obrigatório

cRet

Caractere

Novo Centro de Custo

Sim

Bloco de código
languagedelphi
titleExemplo: GFEA0658GFE06501
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