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.

GFEXWS17 - Alteração da busca dos documentos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXWS17

Descrição:

Possibilitar a alteração da consulta dos documentos que serão integrados no Datasul

Localização:

Antes de realizar a integração dos documentos com o Datasul

Programa Fonte:

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

Parâmetro:

NomeTipoDescrição
PARAMIXB[1]CaractereTabela que será feita a consulta
PARAMIXB[2]CaractereTodas as filiais encontradas no CD0433A
PARAMIXB[3]CaractereCódigo da integração (1 = Fiscal; 2 = Financeiro; 3 = Recebimento; 4 = RH; 5 = Faturamento) 
PARAMIXB[4]Caractere

Retorno:

Nome

Tipo

Descrição

Obrigatório

cQuery

String

Deverá retornar a consulta específica

Sim

Bloco de código
languagedelphi
titleExemplo: GFEXWS16
linenumberstrue
#Include 'Protheus.ch'

User Function GFEXWS17()
	cTabela := PARAMIXB[1]
	cFil    := PARAMIXB[2]
	cCodInt    cQuery:= PARAMIXB[3]
	cQuery  := ""PARAMIXB[4]


	if cTabela == "GW3"

		cQuery +:= "SELECT * FROM " + RetSQLName( cTabela ) + " "
		cQuery += "WHERE R_E_C_N_O_ =  ( "
		cQuery += " 	SELECT MIN(R_E_C_N_O_) "
		cQuery += "      FROM " +  RetSQLName( cTabela ) + " TAB "
		cQuery += "     WHERE TAB.D_E_L_E_T_ <> '*' "
		cQuery += " AND (TAB.GW3_SITFIS = '2' OR TAB.GW3_SITFIS = '5') "


	Endif

Return cQuery