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.

 

相关链接：

如何控制同一个订单类型的使用多个号码范围