货铺QQ群号:834508274
微信群不能扫码进了,可以加我微信SAPliumeng拉进群,申请时请提供您哪个模块顾问,否则是一律不通过的。
进群统一修改群名片,例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接,小程序等,进群看公告,谢谢配合
不修改昵称会被不定期踢除,谢谢配合。
因为要填充excel。一列一列写挺麻烦的。
想直接用个递增就得了。
原理就是把转为asc码后 递增就行。
至于 A加多少等于B,直接用 B = A ( B - A ) 这种就得了。
FUNCTION zlm_get_next_letter.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(IV_START_LETTER) TYPE CHAR1 OPTIONAL
*" EXPORTING
*" REFERENCE(EV_NEXT) TYPE CHAR1
*"----------------------------------------------------------------------
*& 码农干货铺 sapliumeng
DATA:lettera TYPE char1 VALUE 'A'.
DATA:letterb TYPE char1 VALUE 'B'.
FIELD-SYMBOLS: TYPE x.
FIELD-SYMBOLS: TYPE x.
FIELD-SYMBOLS: TYPE x.
FIELD-SYMBOLS: TYPE x.
IF iv_start_letter IS SUPPLIED.
gv_start_letter = iv_start_letter.
ENDIF.
IF gv_start_letter IS INITIAL.
gv_start_letter = 'A'.
ev_next = 'A'.
ELSE.
ASSIGN gv_start_letter TO CASTING. "
ASSIGN ev_next TO CASTING. "
ASSIGN lettera TO CASTING. "
ASSIGN letterb TO CASTING. "
= ( - ).
ENDIF.
gv_start_letter = ev_next.
ENDFUNCTION.
用了一个全局变量
DATA lv TYPE char1.
DO 26 TIMES.
CALL FUNCTION 'ZLM_GET_NEXT_LETTER'
IMPORTING
ev_next = lv.
WRITE lv.
ENDDO.
至于26列以后,自己鼓捣去吧,我暂时够用了。
推荐阅读:
《苏州游记》
《溜达:无锡》
《杂谈:几种接口》
《RESTful DEMO 一:SAP 如何提供 RESTful Web 服务》
Debug 系列