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