Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Hercilio Henning Neto

Gravado em

Chave

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

...

GFEXFA01 - PERMITIR ALTERAR A DATA DE PREVISÃO DE ENTREGA

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

  

Ponto de Entrada:GFEXFB16 GFEXFA01

Descrição:

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

Localização:

Durante o cálculo de frete, após a identificação do prazo de entrega padrão do sistema.Após a liberação do romaneio de carga, para tabelas de frete que calculam prazo pela Tarifa da Tabela de Frete

Programa Fonte:

GFEXFBH - Cálculo de FreteGFEXFUNA - Função PrevEntreg

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Caracter
Campos da Chave primária do Trecho (GWU)
Data Previsão de EntregaSim
PARAMIXB[2]Caracter

Código Transportador

Sim
PARAMIXB[3]CaracterNúmero Tabela

Sim

PARAMIXB[4]CaracterNúmero NegociaçãoSim
PARAMIXB[5]CaracterCódigo Faixa Sim
PARAMIXB[6]CaracterNúmero Rota
Hora Previsão de EntregaSim

Retorno:

NomeTipoDescriçãoObrigatório
aRetArray

Array com a data e o horário informados no específico.indicando se houve erro no cálculo da data

Sim
Bloco de código
languagedelphi
titleExemplo: GFEXFB15GFEXFA01
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
Useruser Functionfunction GFEXFB16GFEXFA01()


	Local cChavegwudDataPr := PARAMIXB[1]
	Local cCdTrpcHrPrev    := PARAMIXB[2]
	Local cNrTabaRet    := PARAMIXB[3]{}
	
	Local cNrNegdDtPr    := PARAMIXB[4]DDatabase
	Local cCdfxTvcHrPr   := PARAMIXB[5]"08:00"
	
	Localif cNrRotadDtPr == DDatabase
	
		RecLock("GWU",.F.)
			GWU->GWU_DTPENT := PARAMIXB[6]
	Local aRet := { CTOD("25/12/2018"), "09:00:15" } 
 
ReturndDtPr
			GWU->GWU_HRPENT := cHrPr
		MsUnLock("GWU")	
	Else			
		aRet[1] := .F.
		aRet[2] := "Data prevista não calculada."	
	Endif	
	
return aRet