Histórico da Página

...

O Ponto de Entrada só será chamado na versão 12.1.17

Ponto de Entrada:

GFEA1155

Descrição:

Verificará se na observação do arquivo EDI tem escrito o serviço e cadastrará ele na tabela GXG

Localização:

Na hora de importar o arquivo EDI, depois de confirmar os parâmetros e der clicar em "OK".

Programa Fonte:

GFEA115 - Importar Conemb

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaractereTabela temporária para popular a GXGSim
PARAMIXB[2]CaractereInformações do arquivo EDISim

Retorno:

Não se aplica

Observação:

Bloco de código

language	delphi
title	Exemplo: GFEA1155
linenumbers	true

#INCLUDE "PROTHEUS.CH"

User Function GFEA1155()
	Local (tTabCTRC) := PARAMIXB[1]	
	Local cBuffer := PARAMIXB[2]
	
	dbSelectArea("GVU")
	GVU->(dbGoTop())
	While !GVU->(Eof())
		If AllTrim(UPPER(GVU->GVU_CDTPSE)) $ AllTrim(UPPER(SubStr(cBuffer, 719, 100)))
			(tTabCTRC)->GXG_CDTPSE := GVU->GVU_CDTPSE
			GVU->(dbCloseArea())
			return
		EndIF
		GVU->(dbSkip())
	EndDo
	GVU->(dbCloseArea())	
return

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave