Linha Microsiga Protheus

Árvore de páginas


01. VISÃO GERAL

O ponto de entrada PN340VALID permite realizar validações nas informações do cadastro de visitas. O Ponto de Entrada é chamado na rotina Visitas (PONA340) após o acionamento do botão de confirmação da rotina e antes das validações padrões do sistema.

O retorno do ponto de entrada determina se deve ou não continuar com o processamento das informações da visita.

Rotina:

    • PONA340 - Visitas

Parâmetros:
Não há.

Retorno:
Deverá ser retornado um valor lógico

    • lRet – Aprovação ou não da confirmação da rotina.
      • Tipo: lógico, sendo:
        • .T. -> Prossegue com o processamento.
        • .F. -> Não finaliza a rotina e permanece na tela de cadastro de visita.

02. EXEMPLO DE UTILIZAÇÃO

Observação

O ponto de entrada terá acesso aos campos Private definidos na rotina como por exemplo o tipo de transação (nOpx). Os campos preenchidos podem ser acessados pelo ponto de entrada utilizando o prefixo "M->",  por exemplo M->PY_NOMEMP.

Valida se o campo Nome Empresa foi preenchido.

Filtro
#INCLUDE "TOTVS.CH"

User Function PN340VALID()
Local lRet  := .T.
// nOpx = 3 - Inclusão
// nOpx = 4 - Alteração

If nOpx == 3 .And. Empty(M->PY_NOMEMP)
	lRet := MsgYesNo("O campo Nome Empresa não foi preenchido, deseja continuar?", "Atenção")
EndIf

Return lRet