Linha Microsiga Protheus

Árvore de páginas

GFEA0701 - Manipulação de Tabela na Exclusão de Um Documento de Frete Relacionado a uma Fatura

Características do Requisito

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
#INCLUDE "PROTHEUS.CH"
User Function GFEA0701()
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) )
	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
		GW3->(dbSkip())
	EndDo
Return