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.

...

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

 

Ponto de Entrada - GFEA0701

Descrição:

Manipulação de tabela na exclusão de um documento de frete relacionado a uma fatura.

Localização:

Botão "Excluir" da grade inferior ("Documentos de Frete da Fatura Relacionados"), opção disponível em "Documentos de Frete".

Programa Fonte:

GFEA070A - Digitaçã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

...

GFEA0701

 
Bloco de código
 
linenumbers
1
2
3
4
5
6
7
8
9
10
11
12
13

User Function GFEA0701()

dbSelectArea("GW3")
GW3->( dbSetOrder(8) )
GW3->( dbSeek(GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6
true
#INCLUDE "PROTHEUS.CH"
 
User Function GFEA0701()
Local cExpGW3  := "GW3->GW3_FILFAT+GW3->GW3_EMIFAT+GW3->GW3_SERFAT+GW3->GW3_NRFAT+DToS(
GW6
GW3-
>GW6
>GW3_
DTEMIS)) )
While !GW3->( Eof() ) .And. 
DTEMFA)"
Local cExpGW6  := "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)

 

If 
"
Local cSeek    := &cExpGW6


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


		If GW3->GW3_DTEMIS > dDATABASE

			RecLock("GW3", .F.)


			GW3->GW3_MOTBLQ := "Data de Emissão do documento de frete não poderá ser maior que Data Corrente."


			GW3->GW3_DTBLQ  := DDATABASE


			GW3->( MsUnlock() )

EndIf


		EndIf


		GW3->(dbSkip())
End



	EndDo


Return

 

 

Return