Árvore de páginas

Versões comparadas

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

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 - Documento Digitação de Documentos de Frete

Parâmetro:

NomeTipoDescrição
PARAMIXB[1]
Caractere????????Centro de Custo padrão.???????????

Retorno:

Nome

Tipo

Descrição

Obrigatório

cRet

Caractere

Novo Centro de Custo

Sim

dataData de Vencimento

Retorno:

Retorna uma variável do tipo 'Data'

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

UserUSER FunctionFUNCTION GFEA0658GFE06501()

	Local pCCdDataVenc :=  PARAMIXB[1]
	Local dDtLimite := "20200101"
	cRes
	//Exemplo de utilização
	dDataVenc := RetCCDTOS(dDataVenc)

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

	dDataVenc := cRes
	EndIf
Return pCC STOD(dDataVenc)

RETURN dDataVenc