o que pode ser:
compilado sem a função:
Procedure ErrorSys()
ErrorBlock( {|e| DefError(e)} )
return .t.
function DefError(e)
return .t.
Function Main()
Local nPerDes := 0.00
Local nTotal := 0.00
Local nAcre := 0.00
Local nDesc := 0.00
Local nTot1 := (nTotal + (nTotal * ( nAcre/100 )))
nPerdes := nTot1 - nDesc
nPerdes := nPerdes/nTot1
nPerdes := 1 - nPerdes
nPerdes := nPerdes * 100
return .t.
O resultado de nPerdes := 0
Mas c compilar com a função da erro (Argument error)!!!!