Árvore de páginas

Versões comparadas

Chave

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

...

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização

...

Bloco de código
languagecpp
titleExemplo
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"

User Function DLV080VL()
Local cConfirma := PARAMIXB[1]
Local cEndereco := PARAMIXB[2]
Local nTipo := PARAMIXB[3]
Local cCaracter := Chr(11) // Caracter especial para evitar digitação
Local lRetPE := .F.

 lRetPE := ( cConfirma == (cCaracter+cEndereco) )
 If !lRetPE
 DLVTAviso("DLV080VL","Endereço "+ Iif(nTipo==1,"origem","destino") + " inválido!")
 EndIf
Return lRetPE

...