Histórico da Página

...

Ponto de Entrada:

GFEA1158

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 clicar em "OK".

Programa Fonte:

GFEA115 - Importar ConembGFEA115A - EDI - Importação de Conhecimentos

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

...

Bloco de código

language	delphi
title	Exemplo: GFEA1155GFEA1158
linenumbers	true

#INCLUDE "PROTHEUS.CH"

User Function GFEA1158()
	Local (tTabCTRC) := PARAMIXB[1]	
	Local cBuffer := PARAMIXB[2]
	
	conout("GFEA1158")
	dbSelectArea("GVU")
	GVU->(dbGoTop())
	While !GVU->(Eof())
		conout("Existe GVU")
		If AllTrim(UPPER(GVU->GVU_CDTPSE)) $ AllTrim(UPPER(SubStr(cBuffer, 719, 100)))
			conout("Encontrou Serviço do EDI no banco de dados")
			(tTabCTRC)->GXG_CDTPSE := GVU->GVU_CDTPSE
			(tTabCTRC)->GXG_TPDF := "7"
		EndIF
		GVU->(dbSkip())
	EndDo
	conout("Finalizando funcao")
	GVU->(dbCloseArea())	
return

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave