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.

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 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

BooleanLógicoBooleano (

.tT. (true) ou .fF. (false)

 

Sim

 

Exemplo: GFEA0702

...

Bloco de código

...

linenumbers

...

1
2
3
4
5
6
7
8
9
10
11
12
13

User Function GFEA0702()

Local lRet := .T.

Local aOldArea := GetArea()

 

...

true
#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

 


			Exit
		EndIf


		GW3->( dbSkip() )

...

EndDo

 




	EndDo


RestArea(

...

aAreaGW3)
Return lRet


 

 

 

Return lRet