Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão 2

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]CaracterCódigo Transportadora Sim
PARAMIXB[3]CaracterNúmero Tabela de FreteSim
PARAMIXB[4]CaracterNúmero da NegociaçãoSim
PARAMIXB[5]CaracterSequencia que identifica a Faixa ou o Tipo de VeículoSim
PARAMIXB[6]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 GFEXWS14GFEXWS15()
	
	aDadosLocal cComponentes := PARAMIXB[1]
	oModelLocal cNrCalc      := PARAMIXB[2]
	cTranspLocal cCdTrp       := '' 
	cClFretePARAMIXB[3]
	Local cNrTab       := ''
	lEliminPARAMIXB[4]
	Local cNrNeg       := .T.
		
		dbSelectArea("GWN")
		If dbSeek(	PADR(Alltrim(aDados[1]) , TamSX3("GWN_FILIAL" )[1],'') + ;
					PADL(Alltrim(aDados[2]) , TamSX3("GWN_NRROM" )[1],'0'))
					
			RecLock("GWN",.F.)
				GWN->GWN_XDEL := '1' 
			MsUnlock()
			
			If GWN->GWN_SIT == '3' //Necessario reabrir
				GFEA050REA(.T.)
			EndIF
				
			If GWN->GWN_SIT <> '3'
				RecLock("GWN",.F.)
					GWN->GWN_XVAL := '1' 
				MsUnlock()
			Else
				aErro := oModel:GetErrorMessage()
				conout("Erro na exclusão do registro. Motivo: " + aErro[6])
			EndIf
		EndIF
Return 'ok'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