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