Á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 no documento: Execblock / Customização.

...

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

User Function OM200OK()
Local lRet := .T.
Local aPedido := ParamIxb[1]

If SubStr(Time(), 1, 2) >= '14'
	MsgInfo ('Pedido '  +  aPedido[1][5] + ' do cliente ' +ALLTRIM( aPedido[1][8] ) + ' não pode ser carregado após 14h.', 'PE OMS2000K' )
	lRet := .F.
EndIf

Return lRet

...