Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Daniel Lacerda Ferreira de Souza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

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

GFEA1152 -

...

Permitir eliminar tabela específica durante a eliminação do EDI/CT-e

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

...

Ponto de Entrada:GFEA1152

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

Ponto de entrada para que no momento de eliminar o EDI de Documento de Frete, também permitir eliminar tabelas específicas relacionadas 

Localização:

Na hora de importar o arquivo EDI, depois de confirmar os parâmetros e clicar em "OK".eliminação da Tabela intermediária do Documento de Frete

Programa Fonte:

GFEA115A GFEA115 - EDI - Importação do Documento de ConhecimentosFrete 

Parâmetros:

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

Não se aplica

Retorno:

Não se aplica



Bloco de código
languagedelphi
titleExemplo: GFEA1158GFEA1152
linenumberstrue
#INCLUDE "PROTHEUS.CH"  

User Function GFEA1158GFEA1152()

	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    if(Val(GXG->GXG_EDISIT) != 4)

        DbSelectArea("PP1")
        PP1->(DbSetOrder(1)) 
        PP1->(DbSeek(xFilial("PP1")+GXG->GXG_CDESP+GXG->GXG_EMISDF+GXG->GXG_SERDF+GXG->GXG_NRDF+DTOS(GXG->GXG_DTEMIS)))
            
            While !PP1->( EOF() ) .AND.;
                    PP1->PP1_FILIAL = xFilial("PP1")  .AND.;
                    PP1->PP1_CDESP  = GXG->GXG_CDESP  .AND.;
                    PP1->PP1_EMISDF = GXG->GXG_EMISDF .AND.;
                    PP1->PP1_SERDF  = GXG->GXG_SERDF  .AND.;
                    PP1->PP1_NRDF   = GXG->GXG_NRDF   .AND.;
                    PP1->PP1_DTEMIS = GXG->GXG_DTEMIS

                RecLock("PP1",.F.)
                    DbDelete()
                MsUnLock()

                PP1->(dbSkip())
	EndDo
	conout("Finalizando funcao")
	GVU->(dbCloseArea())	
            EndDo
    EndIf  
return