Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FUNCTION LOCAL GetCodeDesc(code$) GET_CODE_DESC
- wrk.HS_CODE_1_DESC$ = _obj'GetCodeDesc(wrk.HS_CODE_1$)
- GET_CODE_DESC:
- enter code$
- desc$ = mid(code$,1,1)
- msgbox desc$
- RETURN desc$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement