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 |
---|
...
|
...
|
...
|
...
|
...
|
4
5
6
7
8
9
10
11
12
13
User Function GFEA0702()
Local lRet := .T.
Local aOldArea := GetArea()
...
| |
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas