1 *首先将内表数据赋值给临时内表，之后按照订单类型和客户挑选出相同的订单类型和客户。
  2
  3   SORT it_alv BY zzsfth kunwe.
  4
  5   gt_alv = it_alv.
  6
  7   DELETE gt_alv WHERE check = ''.
  8
  9   lt_alv = gt_alv.//并将临时内表再复制给另一个临时内表
 10
 11   DELETE ADJACENT DUPLICATES FROM gt_alv COMPARING zzsfth kunwe.
 12
 13
 14
 15 *之后循环临时内表，按照同一种订单类型和客户进行拆单并为其单号赋流水号。
 16
 17   CLEAR : gw_alv,l_newno.
 18
 19   LOOP AT gt_alv INTO gw_alv.
 20
 21     xd_index = 0.  //同一单内的数量标记，凭此判断是否超过300行。
 22
 23     CALL FUNCTION 'NUMBER_GET_NEXT'//生成流水号
 24
 25       EXPORTING
 26
 27         nr_range_nr             = '10'
 28
 29         object                  = 'ZSD013'
 30
 31       IMPORTING
 32
 33         number                  = l_newno
 34
 35       EXCEPTIONS
 36
 37         interval_not_found      = 1
 38
 39         number_range_not_intern = 2
 40
 41         object_not_found        = 3
 42
 43         quantity_is_0           = 4
 44
 45         quantity_is_not_1       = 5
 46
 47         interval_overflow       = 6
 48
 49         buffer_overflow         = 7
 50
 51         OTHERS                  = 8.
 52
 53     IF sy-subrc <> 0.
 54
 55 * Implement suitable error handling here
 56
 57     ENDIF.
 58
 59 *在第一个临时内表的循环中放入第二个临时内表的循环，将相同订单类型和客户的行项目抽出
 60
 61     CLEAR : lw_alv.
 62
 63     LOOP AT lt_alv INTO lw_alv WHERE zzsfth = gw_alv-zzsfth AND kunwe = gw_alv-kunwe.
 64
 65       xd_index = xd_index + 1.//每次行项目循环时就将数量加1，当大于300单后拆成另一单。
 66
 67       IF xd_index > 300.
 68
 69         xd_index = 1.//如果行项目数量大于300，计数器归1，重新加入循环。
 70
 71         CALL FUNCTION 'NUMBER_GET_NEXT'//当行项目大于300，再次获取流水号，为另起一单赋单号
 72
 73           EXPORTING
 74
 75             nr_range_nr             = '10'
 76
 77             object                  = 'ZSD013'
 78
 79           IMPORTING
 80
 81             number                  = l_newno
 82
 83           EXCEPTIONS
 84
 85             interval_not_found      = 1
 86
 87             number_range_not_intern = 2
 88
 89             object_not_found        = 3
 90
 91             quantity_is_0           = 4
 92
 93             quantity_is_not_1       = 5
 94
 95             interval_overflow       = 6
 96
 97             buffer_overflow         = 7
 98
 99             OTHERS                  = 8.
100
101         IF sy-subrc <> 0.
102
103 * Implement suitable error handling here
104
105         ENDIF.
106
107       ENDIF.
108
109 *根据要求根据流水号拼接单号。
110
111       CONCATENATE l_newno lw_alv-zdrply '2' INTO lw_alv-zdrpdjly.
112
113       lw_alv-zzposno1 = l_newno.
114
115 *      lw_alv-zdrpdjly = l_newno.
116
117       lw_alv-zpxmbm = xd_index.
118
119       MODIFY lt_alv FROM lw_alv TRANSPORTING zdrpdjly zzposno1 zpxmbm. //更新内表的单号，拆单完成，之后进行按单存储等其他操作。
120
121       CLEAR : lw_alv.
122
123     ENDLOOP.
124
125   ENDLOOP.