Histórico da Página
...
GFEA0712 – 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 - GFEA0712
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 |
Exemplo: GFEA0712
| Bloco de código | ||
|---|---|---|
| ||
#INCLUDE "PROTHEUS.CH"
User Function GFEA0712()
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