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 Fabiane Schulze

Gravado em

Chave

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

GFEXWS15 - PERMITIR O RETORNO DE INFORMAÇÕES COMPLEMENTARES Á SIMULAÇÃO

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXWS15

Descrição:

Quando executada a simulação de frete pelo ERP (CD0601), permitir que o retorno de informações complementares à simulação

Localização:

Antes de retornar os dados da simulação

Programa Fonte:

GFEXWSFUN - Na função que realiza a simulação de frete via WebService. 

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Caracter

Variável que possui os componentes da simulação

Sim
PARAMIXB[2]CaracterNúmero do Cálculo
PARAMIXB[3]CaracterCódigo Transportadora Sim
PARAMIXB[34]CaracterNúmero Tabela de FreteSim
PARAMIXB[45]CaracterNúmero da NegociaçãoSim
PARAMIXB[56]CaracterSequencia que identifica a Faixa ou o Tipo de VeículoSim
PARAMIXB[67]CaracterNúmero da RotaSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

cComponentes

Caracter

Campo alterado com os novos campos vinculados à simulação

Sim



Bloco de código
languagedelphi
titleExemplo: GFEXWS15
linenumberstrue

User Function GFEXWS15()

	Local cComponentes := PARAMIXB[1]
	Local cNrCalc      := PARAMIXB[2]
	Local cCdTrp       := PARAMIXB[3]
	Local cNrTab       := PARAMIXB[4]
	Local cNrNeg       := PARAMIXB[5]
	Local cCdFxTv      := PARAMIXB[6]
	Local cNrRota      := PARAMIXB[7]
	Local nQtdeMin     := 0
	
	dbSelectArea("GV6")
	GV6->(dbSetOrder(1))
	If GV6->(dbSeek(xFilial("GV6")+cCdTrp+cNrTab+cNrNeg+cCdFxTv+cNrRota))
			
		nQtdeMin := GV6->GV6_QTMIN

	EndIf		
	
	if nQtdeMin != 0
		cComponentes += cNrCalc + SEP_FIELDS + "Qtde Minima" + SEP_FIELDS + "Qtde Minima" + SEP_FIELDS + cValToChar(nQtdeMin) + SEP_RECORDS
	endif
		
Return cComponentes