SD--怎样增强是同一类出库单使用不同号码段

在现实的业务中，一个公司有多个销售组织，它们使用同一个出库类型，业务往往希望它们创建的出库单的号码採用不同号码范围。但在sap里出库单号码范围是在出库单类型里设置，也就是使用同样的出库单类型，也就使用同样的号码范围。假设要达到上需业务需求，我们能够使用增强实现。

详细实现參见以下的步骤：

步骤1:创建多个号码段：

path: Spro->Sales and Distribution->Sales->Sales Documents->Sales Document Header->Define Number Ranges For Sales Documents

or

path: Spro->Logistics Execution->Shipping->Deliveries->Define Number Ranges for Deliveries

TCODE: VN01

步骤二：设置出库单类型的号码范围

path: Spro->Logistics Execution->Shipping->Deliveries->Define Delivery Types
TCODE: 0VLK

步骤三：改动SAP增强代码

modify the source code to control use different number range for different sale organiztion
3.1 you can use se38 to open source code MV50AFZ1 and find the form userexit_number_range.

*---------------------------------------------------------------------*
*       FORM USEREXIT_NUMBER_RANGE                                    *
*---------------------------------------------------------------------*
*       This userexit can be used to determine the numberranges for   *
*       the internal document number.                                 *
*                                                                     *
*       US_RANGE_INTERN - internal number range                       *
*                                                                     *
*       This form is called from form BELEG_SICHERN                   *
*                                                                     *
*---------------------------------------------------------------------*
FORM USEREXIT_NUMBER_RANGE USING US_RANGE_INTERN.

* Example: Numer range from TVLK like in standard
* US_RANGE_INTERN = TVLK-NUMKI.
*{   INSERT         DEVK943692                                        1
DATA: z_werks TYPE lips-werks,
        z_vkorg TYPE likp-vkorg,
        z_nrnr TYPE nrnr,
        z_vbtyp TYPE likp-vbtyp.
DATA: wa_xlikp LIKE likpvb,
        wa_xlips LIKE lipsvb.
US_RANGE_INTERN = TVLK-NUMKI.
data t(1).
t = TVLK-LFART(1).
if t = 'Z'.
LOOP AT xlikp INTO wa_xlikp.
    LOOP AT xlips INTO wa_xlips.
      CASE wa_xlikp-vbtyp.
        WHEN OTHERS.
          MOVE: wa_xlikp-vbtyp TO z_vbtyp.
      ENDCASE.
      IF z_vbtyp EQ 'J' or        "outbound del.
         z_vbtyp eq 'T'.          "return del. "V003
        MOVE: wa_xlips-werks TO z_werks,       "V002 "SBr16072007
              wa_xlikp-vkorg TO z_vkorg.
      ELSEIF z_vbtyp EQ '7'.      "shipp.notification
        MOVE: space          TO z_vkorg,
              wa_xlips-werks TO z_werks.
      ENDIF.
      if z_vkorg = '6001'.
         if z_vbtyp eq 'J'.
            Case z_werks.
              WHEN '6255'.
                US_RANGE_INTERN = 'D1'.
              WHEN '6245'.
                US_RANGE_INTERN = 'D2'.
              WHEN '6254'.
                US_RANGE_INTERN = 'D3'.
              WHEN '6234'.
                US_RANGE_INTERN = 'D4'.
              WHEN '6101'.
                US_RANGE_INTERN = 'D5'.
            endcase.
         elseif z_vbtyp EQ 'T' .
            Case z_werks.
              WHEN '6255'.
                US_RANGE_INTERN = 'R1'.
              WHEN '6245'.
                US_RANGE_INTERN = 'R2'.
              WHEN '6254'.
                US_RANGE_INTERN = 'R3'.
              WHEN '6234'.
                US_RANGE_INTERN = 'R4'.
              WHEN '6101'.
                US_RANGE_INTERN = 'R5'.
            endcase.
         endif.
      endif.
      EXIT.
    ENDLOOP.
    EXIT.
ENDLOOP.
endif.
*}   INSERT

ENDFORM.