Linha Microsiga Protheus

Árvore de páginas

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:GFEXFA01

Descrição:

Permitir ajustar a data e horário do prazo de entrega

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:

NomeTipoDescriçãoObrigatório
aRetArray

Array indicando se houve erro no cálculo da data

Sim
Exemplo: GFEXFA01
#INCLUDE 'PROTHEUS.CH'
user function GFEXFA01()

	Local dDataPr := PARAMIXB[1]
	Local cHrPrev := PARAMIXB[2]
	Local aRet := {}
	
	Local dDtPr := DDatabase
	Local cHrPr := "08:00"
	
	if dDtPr == 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