Árvore de páginas

Versões comparadas

Chave

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

...

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
languagedelphi
titleExemplo: GFEA1155GFEA1158
linenumberstrue
#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

...