ABAP日期转大写星期

ag • 2021.03.26 20:14 • 文章 • 阅读 667

由于统计的需要，要使用ABAP将日期转换成大写星期，练习代码及效果如下。

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://www.gavindong.com/7980.html

如果使用过程中遇到问题，可 **点击此处** 交流沟通。

函数大写转换

ag普通用户

0 0

文章

SAP工单退料取移动平均价问题研究

业务场景给工单A发料一批，发料时M物料的价格是10CNY/EA，退料时的移动平均价（MAP）变成了12CNY/EA，希望退料时取的价格是发料时的10CNY/EA。 MIGO测试发…

ag
2021.05.29
666010
文章

物料单位转换的两个函数

MD_CONVERT_MATERIAL_UNITMATERIAL_UNIT_CONVERSION

ag
2017.06.04
1.7K000
文章

SAP函数FIMA_DAYS_AND_MONTHS_AND_YEARS

SAP函数FIMA_DAYS_AND_MONTHS_AND_YEARS用于计算两个日期之间间隔的年数、月数和天数。不输入分隔符时将两个日期的间隔分别以年、月和日计算。输入分隔符…

ag
2021.07.08
609000

文章

ABAP实现人民币金额数字转大写汉字

需求：会计凭证打印以及对外的单据上，要求打印大写人民币金额。样式参考：

REPORT ZGDR0039.


DATA: VA1 TYPE P, "价格 (条件金额或百分数 ) 无等级存在.
      STR TYPE C LENGTH 40. "汉字大写金额

DATA: SCR(30) TYPE C, RES(60) TYPE C,FEN(2) TYPE C .
DATA: LEN TYPE I, C1 TYPE I, C2 TYPE I, C3 TYPE I, C4 TYPE I.
DATA: D1(1) TYPE C, D2(1) TYPE C, D3 TYPE I.
DATA: DIGIT(2)  TYPE C, WEIGHT(2) TYPE C.
DATA: RULE1(20) TYPE C VALUE '零壹贰叁肆伍陆柒捌玖'.
DATA: RULE2(30) TYPE C VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万'.

PARAMETERS: P_VAL1 TYPE WRBTR.

VA1 = P_VAL1.

SCR = VA1 * 100.
CONDENSE SCR NO-GAPS.
IF SCR = '0'.
  RES = '零元'.
ELSE.
  LEN = STRLEN( SCR ).
  C1 = 0.
  D1 = '0'.
  CLEAR RES.
  DO LEN TIMES.
    C1 = C1 + 1.
    C2 = LEN - C1.
    D2 = SCR+C2(1) .
    IF D2 = '0'.
      D3 = 0.
    ELSE.
      D3 = D2.
    ENDIF.
    DIGIT = RULE1+D3(1) .
    C3 = ( C1 - 1 ) .
    WEIGHT = RULE2+C3(1) .
    IF D2 = '0'.
      IF C1 = 3.
        DIGIT = ''.
      ELSEIF C1 = 7.
        DIGIT = ''.
        IF LEN > 10 .
          C4 = LEN - 10.
          IF SCR+C4(4) = '0000'.
            WEIGHT = ''.
          ENDIF.
        ENDIF.
      ELSEIF C1 = 11.
        DIGIT = ''.
      ELSEIF D1 = '0'.
        DIGIT = ''.
        WEIGHT = ''.
      ELSE.
        WEIGHT = ''.
      ENDIF.
    ENDIF.
    CONCATENATE DIGIT WEIGHT RES INTO RES .
    D1 = D2.
  ENDDO.
ENDIF.
LEN = STRLEN( RES ) - 1.
FEN = RES+LEN(1).
IF FEN <> '分' .
  CONCATENATE RES '整' INTO STR.
ELSE.
  STR = RES.
ENDIF.

WRITE : / STR.

REPORT ZGDR0039.

DATA: VA1 TYPE P, "价格 (条件金额或百分数 ) 无等级存在.

STR TYPE C LENGTH 40. "汉字大写金额

DATA: SCR(30) TYPE C, RES(60) TYPE C,FEN(2) TYPE C .

DATA: LEN TYPE I, C1 TYPE I, C2 TYPE I, C3 TYPE I, C4 TYPE I.

DATA: D1(1) TYPE C, D2(1) TYPE C, D3 TYPE I.

DATA: DIGIT(2) TYPE C, WEIGHT(2) TYPE C.

DATA: RULE1(20) TYPE C VALUE '零壹贰叁肆伍陆柒捌玖'.

DATA: RULE2(30) TYPE C VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万'.

PARAMETERS: P_VAL1 TYPE WRBTR.

VA1 = P_VAL1.

SCR = VA1 * 100.

CONDENSE SCR NO-GAPS.

IF SCR = '0'.

RES = '零元'.

ELSE.

LEN = STRLEN( SCR ).

C1 = 0.

D1 = '0'.

CLEAR RES.

DO LEN TIMES.

C1 = C1 + 1.

C2 = LEN - C1.

D2 = SCR+C2(1) .

IF D2 = '0'.

D3 = 0.

ELSE.

D3 = D2.

ENDIF.

DIGIT = RULE1+D3(1) .

C3 = ( C1 - 1 ) .

WEIGHT = RULE2+C3(1) .

IF D2 = '0'.

IF C1 = 3.

DIGIT = ''.

ELSEIF C1 = 7.

DIGIT = ''.

IF LEN > 10 .

C4 = LEN - 10.

IF SCR+C4(4) = '0000'.

WEIGHT = ''.

ENDIF.

ELSEIF C1 = 11.

DIGIT = ''.

ELSEIF D1 = '0'.

DIGIT = ''.

WEIGHT = ''.

ELSE.

WEIGHT = ''.

ENDIF.

CONCATENATE DIGIT WEIGHT RES INTO RES .

D1 = D2.

ENDDO.

ENDIF.

LEN = STRLEN( RES ) - 1.

FEN = RES+LEN(1).

IF FEN <> '分' .

CONCATENATE RES '整' INTO STR.

ELSE.

STR = RES.

ENDIF.

WRITE : / STR.

2021.02.28

886000

文章

交货单冲销函数WS_REVERSE_GOODS_ISSUE

使用函数WS_REVERSE_GOODS_ISSUE冲销交货单，有时候会冲销失败，如果冲销失败可人工VL09试一下。

form cx_dn  using gt_out type typ_out.

  data ls_emkpf type emkpf.
  data lt_mesg type standard table of mesg.

  select single wbstk,vbtyp into @data(l_likp)
    from likp
    where vbeln = @gt_out-le_vbeln.

  call function 'WS_REVERSE_GOODS_ISSUE'
    exporting
      i_vbeln                   = gt_out-le_vbeln
      i_budat                   = gt_out-budat
      i_vbtyp                   = l_likp-vbtyp
      i_tcode                   = 'VL09'
    importing
      es_emkpf                  = ls_emkpf
    tables
      t_mesg                    = lt_mesg
    exceptions
      error_reverse_goods_issue = 1
      others                    = 2.
  if sy-subrc <> 0.
    rollback work.
    message e000 with 'DN冲销失败'.
  else.
    commit work and wait.
    message s000 with 'DN冲销成功'.
  endif.

endform.

form cx_dn using gt_out type typ_out.

data ls_emkpf type emkpf.

data lt_mesg type standard table of mesg.

select single wbstk,vbtyp into @data(l_likp)

from likp

where vbeln = @gt_out-le_vbeln.

call function 'WS_REVERSE_GOODS_ISSUE'

exporting

i_vbeln = gt_out-le_vbeln

i_budat = gt_out-budat

i_vbtyp = l_likp-vbtyp

i_tcode = 'VL09'

importing

es_emkpf = ls_emkpf

tables

t_mesg = lt_mesg

exceptions

error_reverse_goods_issue = 1

others = 2.

if sy-subrc <> 0.

rollback work.

message e000 with 'DN冲销失败'.

else.

commit work and wait.

message s000 with 'DN冲销成功'.

endif.

endform.

…

2020.05.17

2.2K000

文章

SAP中的F4搜索帮助的一个小迷思

今天开发同学说F4怎么没作用，输入一个值按F4搜索帮助出来的是全部的值。平时也没怎么留意这个细节，于是我用F-02的公司代码这个字段摸索了下，发现如果输入完整的公司代码再按F4则…

ag
2021.07.12
505000
文章

SAP RFC函数测试工具

两个适合SAP ABAP顾问以及OA、中台等外围系统开发者和测试者调试SAP RFC接口函数、分析网络和bug的小工具，操作简单、功能齐全，值得收藏。 SAP RFC测试工具1 S…

ag
2020.09.24
2.4K050
文章

根据公司代码和日期获取会计期间的函数

并非所有公司的会计期间都是跟着自然月走的，因此有些开发场景里需要根据公司代码和日期动态判断所属会计期间，可以用函数BAPI_COMPANYCODE_GET_PERIOD。例如印度…

ag
2021.10.28
274000
文章

ABAP弹框选择会计年月函数

ABAP函数POPUP_TO_SELECT_MONTH可以弹框选择年度和月份，取消选择时SUBRC为4.

ag
2021.10.15
276000
文章

SAP的SD, FI,MM的业务集成和SD业务常用到重要函数

http://blog.csdn.net/sap_jack/article/details/1066926 SD 和 MM 模块的业务集成： 1. 当你创建销售订单（SO），所有的…

ag
2018.02.02
1.7K000

ABAP日期转大写星期

相关文章