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