Histórico da Página
GFEA0514 -
...
Validação antes de registrar a entrega do trecho
Características do Requisito
Linha de Produto: | Protheus |
Segmento: | Distribuição e Logística |
Módulo: | SIGAGFE |
| Ponto de Entrada: | GFEA0514 | ||||||||||
Descrição: | Possibilidade de efetuar validações antes de abrir a tela para registrar a entrega | ||||||||||
Localização: | Chamado antes de abrir a tela para informar a entrega. | ||||||||||
Programa Fonte: | GFEA051 - Registro de entrega | ||||||||||
Parâmetros: | Nenhum parâmetro necessita ser enviado. | ||||||||||
Retorno: |
|
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
User Function GFEA0514()
Local lRetorno := .F.
dbSelectArea('GW1')
GW1->(dbSetOrder(1)) //GW1_FILIAL+GW1_CDTPDC+GW1_EMISDC+GW1_SERDC+GW1_NRDC
If GW1->(dbSeek(GWU->(GWU_FILIAL+GWU_CDTPDC+GWU_EMISDC+GWU_SERDC+GWU_NRDC)))
If GW1->GW1_TPFRET == "6"
Help( ,, 'HELP',, "Trecho inválido para registro de entrega.", 1, 0,)
lRetorno := .F.
EndIf
EndIf
Return lRetorno |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas