I don't have abit idea what gcTr_type is. Probably a parameter for view ? If so you don't need and shouldn't declare it as public. Try chnaging your code to :

PROCEDURE Load
USE views!srhTrans IN 0 SHARED Nodata
ENDPROC


PROCEDURE Init
LPARAMETERS lcTr_Type
local gcTr_type
gcTr_type = lcTr_type
Requery('srhTrans')
ENDPROC

Cetin