SAP Bar Code 开发(03) – 后台作业任务实现条码编号归零

在Barcode开发中，条码标签内容都可以通过客户自定义编制；

通常情况下，流水号的编码都可以通过SAP的编码范围（Number Range）生成；

只是通常流水号都需要通过日期来生成，后面带出从数字1开始的流水，而对于SAP的number range来说，只能不断累加，不能倒退；

因此，要实现每天归零操作，可以通过录制 BDC 实现归零操作，再将实现 BDC 的程序扔向后台任务，固定每天 00:00 执行任务。

1.编码范围(Number Range)

编码范围的定义，通过事务码 SNRO可以直接定义，这里不细说；

生成编码范围的程序如下：

01

02

03

04

05

06

07

08

09

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

43

44

45

46

47

48

49

50

51

52

53

54

55

*&---------------------------------------------------------------------*

*& Form frm_get_ref_nr

*&---------------------------------------------------------------------*

* 获取 Number Range

*----------------------------------------------------------------------*

* -->pv_object text

* -->pv_number text

* -->pv_out_nr text

*----------------------------------------------------------------------*

FORM frm_get_ref_nr USING pv_object pv_number pv_out_nr.

DATA: lv_object TYPE tnro-object,

Lv_nr_range_nr TYPE inri-nrrangenr.

lv_object = pv_object. " 对象

lv_nr_range_nr = pv_number. "

"锁定 Number Range 对象

CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'

EXPORTING

object = lv_object

EXCEPTIONS

foreign_lock = 1

object_not_found = 2

system_failure = 3

OTHERS = 4.

" 产生Number Range

CALL FUNCTION 'NUMBER_GET_NEXT'

EXPORTING

nr_range_nr = lv_nr_range_nr

object = lv_object

IMPORTING

number = pv_out_nr

EXCEPTIONS

interval_not_found = 1

number_range_not_intern = 2

object_not_found = 3

quantity_is_0 = 4

quantity_is_not_1 = 5

interval_overflow = 6

buffer_overflow = 7

OTHERS = 8.

" 解锁 Number Range 对象

CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'

EXPORTING

object = lv_object.

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. "FRM_GET_NR

2.录制BDC

事务码 SHDB 录制将相应编码范围状态值清零：

录制后的BDC程序ZBC_NUMBER_RANGE_ZEROING：

01

02

03

04

05

06

07

08

09

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

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

REPORT zbc_number_range_zeroing.

************************************************************************

* I N C L U D E *

************************************************************************

INCLUDE zbdcrecx1.

************************************************************************

* S E L E C T I O N S C R E E N *

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK block1.

PARAMETERS: cb_auto TYPE c AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK block1.

************************************************************************

* I N I T I A L I Z A T I O N *

************************************************************************

INITIALIZATION.

************************************************************************

* T O P O F P A G E *

************************************************************************

* S T A R T O F S E L E C T I O N *

************************************************************************

START-OF-SELECTION.

* 条码归零

PERFORM frm_data_process using 'ZBC_CODE'.

*&---------------------------------------------------------------------*

*& Form frm_data_process

*&---------------------------------------------------------------------*

* Data Process

*----------------------------------------------------------------------*

FORM frm_data_process USING pv_object.

PERFORM bdc_dynpro USING 'SAPMSNRO' '0150'.

PERFORM bdc_field USING 'BDC_CURSOR'

'NRIV-OBJECT'.