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: | 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