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:

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 eliminação da Tabela intermediária do Documento de Frete

Programa Fonte:

GFEA115 - EDI - Importação do Documento de Frete 

Parâmetros:

Não se aplica

Retorno:

Não se aplica



#INCLUDE "PROTHEUS.CH"  
User Function GFEA1152()

    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
    EndIf  
return