函数 | GavinDong博客

文章

SAP ECC取会计分录的对方科目

在SAP S4中，会计分录的对方科目已经写到表ACDOCA了，但是ECC中并没有固定的字段存这个东西，间接法做现金流量、不同系统数据核对的时候还得自己去取。使用SAP标准函数GE…

ag

2021.11.26

339010

文章

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

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

ag

2021.10.28

274000

文章

ABAP弹框选择会计年月函数

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

ag

2021.10.15

276000

文章

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

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

ag

2021.07.12

505000

文章

SAP函数FIMA_DAYS_AND_MONTHS_AND_YEARS

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

ag

2021.07.08

609000

文章

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

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

ag

2021.05.29

665010

文章

ABAP日期转大写星期

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

ag

2021.03.26

666000

文章

SAP函数相关的表和工具

SAP FM函数相关的表和工具 SAP Function Module Tables TFDIR，SAP函数模块基本属性表 TFTIT，The Description of Fun…

ag

2021.03.10

900000

文章

SAP RFC函数测试工具

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

ag

2020.09.24

2.4K050

文章

使用BDC做VL02N发货

BDC做交货单发货，是需要三行BDC即可。 BDC相关数据结构：

"bdc数据结构.
data begin of i_mess occurs 0.
include structure bdcmsgcoll.
data end of i_mess.

data: begin of e_mess occurs 0,
        mess(100),
      end of e_mess.

data begin of it_bdc occurs 0.
include structure bdcdata.
data end of it_bdc.

data: l_opttion type ctu_params.
l_opttion-dismode  = 'N'.
l_opttion-updmode  = 'S'.
l_opttion-cattmode = ''.
l_opttion-defsize  = 'X'.
l_opttion-racommit = 'X'.
l_opttion-nobinpt  = 'X'.
l_opttion-nobiend  = 'X'.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

"bdc数据结构.

data begin of i_mess occurs 0.

include structure bdcmsgcoll.

data end of i_mess.

data: begin of e_mess occurs 0,

mess(100),

end of e_mess.

data begin of it_bdc occurs 0.

include structure bdcdata.

data end of it_bdc.

data: l_opttion type ctu_params.

l_opttion-dismode = 'N'.

l_opttion-updmode = 'S'.

l_opttion-cattmode = ''.

l_opttion-defsize = 'X'.

l_opttion-racommit = 'X'.

l_opttion-nobinpt = 'X'.

l_opttion-nobiend = 'X'.

BDC组装FM： [crayon-61f2cf9…

ag

2020.05.17

793010

文章

交货单冲销函数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.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

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.

…

ag

2020.05.17

2.2K000

文章

SAP ABAP负号提前的解决方案

1、SE37定义函数：CONVERSION_EXIT_Z001_OUTPUT

FUNCTION conversion_exit_z001_output.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(INPUT)
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------

*作用：
* 1.将金额类型等数字类型，负号实现前置；
* 2.可以保留千分位;
* 3.适用于多个这样的字段修改需求;

*调用方式：
* 在对应的alv设置fieldcat时针对设置金额等数字类型的字段添加代码：固定写成’ZXXX’形式。
* WE_FIELDCAT-EDIT_MASK = '==Z001'.

  DATA: output1(20),
        output2(20),
        outnum(16) TYPE p DECIMALS 3.

  IF input IS NOT INITIAL .
    outnum = input.

    IF input > 0.
      WRITE outnum TO output1.
    ELSE.
      outnum = outnum * ( -1 ).
      WRITE outnum TO output1.
      CONCATENATE '-' output1 INTO output1.
    ENDIF.
  ELSE.
    CLEAR output1.
  ENDIF.

  CONDENSE output1 NO-GAPS.
  WRITE output1 TO output2 RIGHT-JUSTIFIED.
  output = output2.

  CLEAR: output2.
ENDFUNCTION.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

FUNCTION conversion_exit_z001_output.

*"----------------------------------------------------------------------

*"*"本地接口：

*" IMPORTING

*" REFERENCE(INPUT)

*" EXPORTING

*" REFERENCE(OUTPUT)

*"----------------------------------------------------------------------

*作用：

* 1.将金额类型等数字类型，负号实现前置；

* 2.可以保留千分位;

* 3.适用于多个这样的字段修改需求;

*调用方式：

* 在对应的alv设置fieldcat时针对设置金额等数字类型的字段添加代码：固定写成’ZXXX’形式。

* WE_FIELDCAT-EDIT_MASK = '==Z001'.

DATA: output1(20),

output2(20),

outnum(16) TYPE p DECIMALS 3.

IF input IS NOT INITIAL .

outnum = input.

IF input > 0.

WRITE outnum TO output1.

ELSE.

outnum = outnum * ( -1 ).

WRITE outnum TO output1.

CONCATENATE '-' output1 INTO output1.

ENDIF.

ELSE.

CLEAR output1.

ENDIF.

CONDENSE output1 NO-GAPS.

WRITE output1 TO output2 RIGHT-JUSTIFIED.

output = output2.

CLEAR: output2.

ENDFUNCTION.

2、ALV的fieldcat中设置ED…

ag

2018.06.20

5.2K000