Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcos Wagner Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Guilherme Alexandre Metzger

Gravado em

Chave

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

GFE0712 – 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 - GFEA0712

Descrição:

Funcionalidades específicas na Aprovação da Fatura de FretePermite 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: GFEA0712

 

 
Bloco de código
1
linenumbers
2
3
4
5
6
7
8
9
10
11
12
13
true
#INCLUDE "PROTHEUS.CH"


User Function GFEA0712()
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 +
User Function GFEA0712()
Local aOldArea := GetArea()
Local nCont := 0
dbSelectArea("GW3")
GW3->( dbSetOrder(8) )
If GW3->( dbSeek(GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + DToS(GW6->GW6_DTEMIS)) )
While !GW3->( Eof() ) .And. GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + 
DToS(GW6->GW6_DTEMIS)
== ;
GW3->GW3_FILFAT + GW3->GW3_EMIFAT + GW3->GW3_SERFAT + GW3->GW3_NRFAT + DToS(GW3->GW3_DTEMFA)nCont++
"
Local cSeek    := &cExpGW6


	GW3->( dbSetOrder(8) )
	If GW3->( dbSeek(cSeek) )
		While !GW3->( Eof() ) .And. cSeek == &cExpGW3


			nCont++


			GW3->(dbSkip())
End
EndIf

		EndDo
	EndIf


	If nCont > 0
		MsgInfo("A fatura possui " + AllTrim(Str(nCont)) + " documento(s) de frete !")

	EndIf


RestArea(
aOldArea
aAreaGW3)

Return