函数 | 第3页 | GavinDong博客

文章

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

4.3K000

文章

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

7.6K000

文章

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

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

ag

2018.02.02

3.0K000

文章

物料单位转换的两个函数

MD_CONVERT_MATERIAL_UNITMATERIAL_UNIT_CONVERSION

ag

2017.06.04

3.1K000

文章

SAP 时间戳获取及使用函数

时间戳是长度 15的 DEC类型，组成为 8位日期 + 6位时间。时间戳与时间的转化：把时间和日期转成时间戳 CONVERT DATE IV_DATE TIME IV_TIME…

ag

2017.05.03

6.1K020