Histórico da Página

#INCLUDE 'Protheus.ch'

User Function MT093VCR()

Local cID     := PARAMIXB[1] //ID da fórmula (BQ_ID).
Local cCaract := PARAMIXB[2] //Código da característica informada.
Local lRet    := .T. //Retorno do ponto de entrada.

If AllTrim(cId) == "2" .And. AllTrim(cCaract) == "0000VERDE"
   lRet := .F.
   Help( ,, 'Help',, "Característica 0000VERDE não pode ser utilizada com a fórmula 2." , 1, 0 )
EndIf

Return lRet