Histórico da Página

...

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

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH" 

User Function WMS095EO()
Local lRet := .T.
Local cArmOri := PARAMIXB[1] //armazém origem
Local cEnderOri := PARAMIXB[2] //endereço origem
Local cProduto := PARAMIXB[3] //produto
Local cLote := PARAMIXB[4] //lote
Local cSubLote := PARAMIXB[5] //sub-lote
Local nQuantid:= PARAMIXB[6] //Quantidade digitada

If Alltrim(cEnderOri) == "Teste"
          WMSVTAviso("WMS","Transferência não permitida.")
          lRet := .F.
EndIf

Return lRet

------