Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Valida se o campo Nome Empresa foi preenchido.

Bloco de código
languagedelphi
themeConfluence
firstline1
titleFiltro
linenumberstrue
#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

...