Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ana Claudia Da Silva

Gravado em

Chave

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

GFEXWS16 - Funcionalidade Específica na Integração (Protheus x Progress) de Documento de Frete

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXWS16

Descrição:

Possibilitar a alteração do Centro de Custo ao realizar a Integração com o ERP. 
O código retornado do ponto de entrada será utilizado para substituir o Centro de Custo padrão ao realizar a integração.o envio de outros campos para a integração com o módulo Fiscal

Localização:

Antes de realizar a integração da Documento de Frete com o ERPmódulo Fiscal.

Programa Fonte:

GFEA065 GFEXWSFUN - Documento Serviço de integração do Frete Embarcador (SIGAGFE)

Parâmetro:

Centro de Custo padrão.
NomeTipoDescrição
PARAMIXB[1]CaractereFilial
PARAMIXB[2]CaractereEspécie
PARAMIXB[3]CaractereEmissor
PARAMIXB[4]CaractereSérie
PARAMIXB[5]CaractereNr Documento
PARAMIXB[6]CaractereDt Emissão (AAAA/MM/DD)
PARAMIXB[7]CaracterString com informações para integração

Retorno:

Nome

Tipo

Descrição

Obrigatório

cRetcString

Caractere

String

Contendo os novos campos que serão enviados do Protheus para o Progress. Novo Centro de Custo

Sim

Bloco de código
languagedelphi
titleExemplo: GFEA0658GFEXWS16
linenumberstrue
#INCLUDE#Include "PROTHEUS.CH"'Protheus.ch'

User Function GFEA0658GFEXWS16()
Local	cFilDF    pCC 	:= PARAMIXB[1]
	cRes := RetCC()
	If !Empty (cRes)
		pCC := cRes
	EndIf
Return pCC cEspDF   	:= PARAMIXB[2]
	cEMISDF 	:= PARAMIXB[3]
	cSerDF    	:= PARAMIXB[4]
	dtNrDF 		:= PARAMIXB[5]
	dtEmisDF 	:= PARAMIXB[6]
	cString 	:= PARAMIXB[7]

	GW3->(dbSetOrder(1))
	If GW3->(dbSeek(cFilDF+cEspDF+cEMISDF+cSerDF+cNrDF+DTOS(dtEmisDF)))
		cRet := GW3->GW3_XFILIAL + "|" 					
	EndIf	
	
Return cRet