Linha Microsiga Protheus

Page tree

GFEA0702 - Consistência na Funcionalidade "Atualizar Doc Frete Fiscal ERP"

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0702

Descrição:

Permitir realizar as consistências na funcionalidade Atualizar Doc Frete Fiscal ERP

Localização:

Botão Atualizar Doc Frete Fiscal ERP, da rotina de Digitação de Faturas de Frete.

Programa Fonte:

GFEA070 - Digitação de Faturas de Frete (SIGAGFE)

Parâmetros:

Este ponto de entrada não recebe parâmetros

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

.T. (true) ou .F. (false) 

Sim

 

Exemplo: GFEA0702
#INCLUDE "PROTHEUS.CH"
User Function GFEA0702()
Local aAreaGW3 := GetArea()
Local lRet     := .T.
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_ORIGEM <> "2"
			GFEMsgErro("Funcionalidade bloqueada pois existe um ou mais CTRCs com 'Origem' diferente de 'Usuário' !")
			lRet := .F.
			Exit
		EndIf
		GW3->( dbSkip() )
	EndDo
	RestArea(aAreaGW3)
Return lRet