Histórico da Página
...
GFEA0713 – Funcionalidades
...
Adicionais Antes da Aprovação da Fatura de Frete
...
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Logística |
Módulo: | SIGAGFE |
...
Ponto de Entrada -
...
GFEA0713
Descrição: |
...
Permite a inclusão de funcionalidades adicionais antes das validações e da efetivação da aprovação da fatura de frete. | |
Localização: | Botão |
...
Aprovar |
...
da rotina de Aprovação de Faturas de Frete. | |
Programa Fonte: | GFEA071 - Aprovação de Faturas de Frete (SIGAGFE) |
Parâmetros: |
...
Este ponto de entrada não recebe parâmetros. |
Retorno: |
...
Exemplo: GFEA0712
...
1
2
3
4
5
6
7
8
9
10
11
12
13
...
Este ponto de entrada não possui retorno. |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function GFEA0713() Local aAreaGW3 := GW3->(GetArea()) Local nCont := 0 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) ) If GW3->( dbSeek(cSeek) ) While !GW3->( Eof() ) .And. cSeek == &cExpGW3 nCont++ GW3->(dbSkip()) |
...
EndDo EndIf If nCont > 0 MsgInfo("A fatura possui " + AllTrim(Str(nCont)) + " documento(s) de frete !") |
...
EndIf RestArea( |
...
aAreaGW3) |
...
Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas