Função simples para retornar o MVA por faixa de CEST:
FUNCTION CEST2MVA( _cest_ ) // _cest_ - parametro inteiro
**************************************************************
* CEST Inicial 1
* CEST Final 2
* MVA 3
**************************************************************
local aCEST2MVA := {}
IF _cest_ <> 0
aadd( aCEST2MVA, { 100100, 199900,65.29} )
aadd( aCEST2MVA, { 200100, 299900,67.49} )
aadd( aCEST2MVA, { 300100, 302500,73.63} )
aadd( aCEST2MVA, { 500100, 500100,29.94} )
aadd( aCEST2MVA, { 400100, 400200,94.70} )
aadd( aCEST2MVA, { 800100, 801900,55.61} )
aadd( aCEST2MVA, { 802000, 802300,55.61} )
aadd( aCEST2MVA, { 801901, 801901,65.29} )
aadd( aCEST2MVA, { 900100, 900200,83.24} )
aadd( aCEST2MVA, { 900300, 900400,108.84} )
aadd( aCEST2MVA, { 900500, 900500,64.06} )
aadd( aCEST2MVA, {1000100,1008000,74.75} )
aadd( aCEST2MVA, {1100100,1101200,75.80} )
aadd( aCEST2MVA, {1200100,1200900,63.28} )
aadd( aCEST2MVA, {1300100,1301600,60.35} )
aadd( aCEST2MVA, {1400100,1401300,66.52} )
aadd( aCEST2MVA, {1600100,1600900,78.79} )
aadd( aCEST2MVA, {1700100,1711500,59.75} )
aadd( aCEST2MVA, {1900100,1903300,73.90} )
aadd( aCEST2MVA, {2000100,2006400,75.80} )
aadd( aCEST2MVA, {2100100,2112600,53.86} )
aadd( aCEST2MVA, {2200100,2200100,68.57} )
aadd( aCEST2MVA, {2300100,2300200,61.78} )
aadd( aCEST2MVA, {2400100,2400300,72.12} )
nCEST2MVA := ascan( aCEST2MVA, { |x| _cest_>=x[1] .AND. _cest_<=x[2] } )
IF nCEST2MVA <> 0
return aCEST2MVA[ nCEST2MVA ][ 3 ]
ENDIF
ENDIF
RETURN 0
Melhorem na se quiserem.