Histórico da Página

...

Ponto de Entrada:

GFEXFA01

Descrição:

Permitir ajustar a data e horário do prazo de entrega de acordo com a regra do cliente

Localização:

Após a liberação do romaneio de carga, para tabelas de frete que calculam prazo pela Tarifa da Tabela de Frete

Programa Fonte:

GFEXFUNA - Função PrevEntreg

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaracterData Previsão de EntregaSim
PARAMIXB[2]CaracterHora Previsão de EntregaSim

Retorno:

Nome	Tipo	Descrição	Obrigatório
aRet	Array	Array indicando se houve erro no cálculo da data	Sim

Bloco de código

language	delphi
title	Exemplo: GFEXFA01
linenumbers	true

#INCLUDE 'PROTHEUS.CH'
Useruser Functionfunction GFEXFB16GFEXFA01()

	Local cNrRom dDataPr   := PARAMIXB[1]
	Local cChavegwucHrPrev := PARAMIXB[2]
	Local cCdTrp  aRet  := PARAMIXB[3]{}
	
	Local cNrTab  dDtPr  := PARAMIXB[4]DDatabase
	Local cNrNegcHrPr    := PARAMIXB[5]"08:00"
	
	Localif cCdfxTvdDtPr   := PARAMIXB[6]
	Local cNrRota   := PARAMIXB[7]
	Local dDtPrev   := PARAMIXB[8]
	Local cHrPrev   := PARAMIXB[9]
	Local aRet := { CTOD("25/12/2018"), "09:00:15" } 
 
Return== DDatabase
	
		RecLock("GWU",.F.)
			GWU->GWU_DTPENT := dDtPr
			GWU->GWU_HRPENT := cHrPr
		MsUnLock("GWU")	
	Else			
		aRet[1] := .F.
		aRet[2] := "Data prevista não calculada."	
	Endif	
	
return aRet

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave