Estou desenvolvendo um código e queria que rodasse apenas quando fosse BL, mas não esta dando certo, poderiam me ajudar?

Segue o código abaixo:

if SCK->CK_UM $ "BL"

    aadd(aQtdes, {1,55,55})
    aadd(aQtdes, {56,100,100})
    aadd(aQtdes, {101,200,200})
    aadd(aQtdes, {201,220,220})
    aadd(aQtdes, {221,300,300})
    aadd(aQtdes, {301,400,400}) 
    aadd(aQtdes, {401,420,420})
    aadd(aQtdes, {421,600,600})

    ni := aScan(aQtdes, {|x| cQtd >= x[1] .and. cQtd <= x[2] })

    if ni > 0 .and. aQtdes[ni][3] > cQtd
        msgInfo("Melhor quantidade sugerida: "+AllTrim(Str(aQtdes[ni][3])) )
        lRet := .F.
    endif
endif 

return lRet 

restarea(aSCK)