Histórico da Página
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: |
|
Bloco de código | ||||
---|---|---|---|---|
|
...
| ||
#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 |
...
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas