#include "protheus.ch"
User Function A02Ex03()  // Exercicio do slide referente ao Do Case
Local nQtdEst := 0
Local nQtdVen := 0
// Cenário 1 - Est 100 e Venda 50
nQtdEst := 100
nQtdVen := 50
MsgAlert( Avalia( nQtdEst, nQtdVen ) )
// Cenário 2 - Est 50 e Venda 100
nQtdEst := 50
nQtdVen := 100
MsgAlert( Avalia( nQtdEst, nQtdVen ) )
Return
Static Function Avalia( nEst, nVen )
Local cRet := ""
Do Case
	Case nEst >= nVen
		cRet := "Ok, pode faturar"
	Case nEst < nVen
		cRet := "Estoque insuficiente."
	OtherWise
		cRet := "Consulte a área de sistemas"
EndCase
Return cRet