Linha Microsiga Protheus

Page tree

GFEA0713 – Funcionalidades Adicionais Antes da Aprovação da Fatura de Frete

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0713

Descrição:

Permite a inclusão de funcionalidades adicionais antes das validações e da efetivação da aprovação da fatura de frete.

Localização:

Botão Aprovar da rotina de Aprovação de Faturas de Frete.

Programa Fonte:

GFEA071 - Aprovação de Faturas de Frete (SIGAGFE)

Parâmetros:

Este ponto de entrada não recebe parâmetros.

Retorno:

Este ponto de entrada não possui retorno.

Exemplo: GFEA0713
#INCLUDE "PROTHEUS.CH"
User Function GFEA0713()
Local aAreaGW3 := GW3->(GetArea())
Local nCont    := 0
Local cExpGW3  := "GW3->GW3_FILFAT + GW3->GW3_EMIFAT + GW3->GW3_SERFAT + GW3->GW3_NRFAT + DToS(GW3->GW3_DTEMFA)"
Local cExpGW6  := "GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + DToS(GW6->GW6_DTEMIS)"
Local cSeek    := &cExpGW6
	GW3->( dbSetOrder(8) )
	If GW3->( dbSeek(cSeek) )
		While !GW3->( Eof() ) .And. cSeek == &cExpGW3
			nCont++
			GW3->(dbSkip())
		EndDo
	EndIf
	If nCont > 0
		MsgInfo("A fatura possui " + AllTrim(Str(nCont)) + " documento(s) de frete !")
	EndIf
	RestArea(aAreaGW3)
Return