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 |