Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

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:

9
NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaracterNúmero RomaneioSim
PARAMIXB[2]CaracterCampos da Chave primária do Trecho (GWU)Sim
PARAMIXB[3]Caracter

Código Transportador

Sim
PARAMIXB[4]CaracterNúmero Tabela

Sim

PARAMIXB[5]CaracterNúmero NegociaçãoSim
PARAMIXB[6]CaracterCódigo Faixa Sim
PARAMIXB[7]CaracterNúmero RotaSimPARAMIXB[8]Data Data Previsão de EntregaSim
PARAMIXB[2]CaracterHora 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: GFEXFB16GFEXFA01
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
Useruser Functionfunction GFEXFB16GFEXFA01()

	Local cNrRom   dDataPr := PARAMIXB[1]
	Local cChavegwucHrPrev := PARAMIXB[2]
	Local cCdTrpaRet    := PARAMIXB[3]{}
	
	Local cNrTab  dDtPr  := PARAMIXB[4]DDatabase
	Local cNrNeg   cHrPr := 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