Hi,
You code looks fine as such. Although I would write it like this instead:
GLEntry.SETRANGE("G/L Account No.",'100000','199999'); IF GLEntry.FINDSET THEN REPEAT CASE GLEntry."Global Dimension 1 Code" OF '002' : GovmentGran := GLEntry…