GFEA0702 - Consistência na funcionalidade "Atualizar Doc Frete Fiscal ERP" da rotina de Digitação de Faturas de Frete.

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:

 

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Boolean

Booleano (.t. ou .f.)

Sim

 

Exemplo: GFEA0702

 

 

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

User Function GFEA0702()

Local lRet := .T.

Local aOldArea := GetArea()

 

dbSelectArea("GW3")
GW3->( dbSetOrder(8) )
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)

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(aOldArea)

 

Return lRet