생산라인에 자동재고 보충 하는 방법 ? Ways to replenish stock to production line?

By -

SAP WM을 사용하는 환경에서 생산라인에 자동재고 보충하는 하려고 하는데 어떤 방안이 효율적일까요?

1. 생산 투입자재별로 Min/Max을 설정(WM view 2)하고 자동재고 보충 LP21 수행하면 TR 이 생성되고, 해당 TR은 background job(schedule program RLAUTA10 )을 통해 TO 생성된다. 생성된 TO에 있는 자재별로 RF scanner을 사용하여 확정(confirmation)을 한다

2. 생산 투입자재별로 Min/Max을 설정이 없는 경우에는 엑셀 등을 사용하여 생산 투입자재별로 보충량을 계산하여 LB01 에서 TR을 생성한다. 해당 TR은 background job을 통해 TR 생성된다. 생성된 TO에 있는 자재별로 RF scanner을 사용하여 확정(confirmation)을 한다.


- 엑셀에서 투입자재별로 보충 수량으로 TR을 생성하는 Macro는 아래 코드 참조한다.

Sub CreateTR_LB01()
    Dim SapGui
    Dim Application
    Dim connection
    Dim session
    Dim WSHShell
    Dim ObjR3
    Dim Grid
    Dim sap_message
    Dim lastRow As Long
    Dim i As Long
        
    ' Assuming you want to write the sap_message to cell A2 in "Sheet1"
    Dim DestinationSheet As Worksheet
    Set DestinationSheet = ThisWorkbook.Sheets("LB01")
        
    lastRow = ThisWorkbook.Sheets("LB01").Cells(ThisWorkbook.Sheets("LB01").Rows.Count, "D").End(xlUp).Row
    
    Set WSHShell = Nothing
    Set SapGui = GetObject("SAPGUI")
    Set Application = SapGui.GetScriptingEngine
    
    Set connection = Application.Children(0)
    Set session = connection.Children(0)
    
    ' Go to Menu of Direct_Replenishment
    session.findById("wnd[0]").resizeWorkingPane 130, 29, False
    
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/NLB01"
    session.findById("wnd[0]").sendVKey 0

    session.findById("wnd[0]/usr/ctxtLTBK-LGNUM").Text = "081"
    session.findById("wnd[0]/usr/ctxtLTBK-BWLVS").Text = "920"
    session.findById("wnd[0]/usr/ctxtLTBK-BETYP").Text = "P"
    session.findById("wnd[0]/usr/txtLTBK-BENUM").Text = ThisWorkbook.Sheets("LB01").Cells(2, 3).Value  ' TR reuirement Name
    session.findById("wnd[0]/usr/txtLTBK-BENUM").SetFocus
    session.findById("wnd[0]/usr/txtLTBK-BENUM").caretPosition = 11
    session.findById("wnd[0]").sendVKey 0
        
       
    ' Loop through each row in the Excel sheet
    For i = 2 To lastRow
    
        session.findById("wnd[0]/usr/tblSAPML02BD0105/ctxtLTBP-MATNR[1,0]").Text = ThisWorkbook.Sheets("LB01").Cells(i, 4).Value 'Material
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").Text = ThisWorkbook.Sheets("LB01").Cells(i, 5).Value ' Qty
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").SetFocus
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").caretPosition = 4
        session.findById("wnd[0]").sendVKey 0 ' Next item

    Next i

    session.findById("wnd[0]/tbar[1]/btn[6]").press ' Go to Header
    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").Text = ThisWorkbook.Sheets("LB01").Cells(2, 1).Value ' Dest Stor. Type
    session.findById("wnd[0]/usr/txtLTBK-NLPLA").Text = ThisWorkbook.Sheets("LB01").Cells(2, 2).Value ' Dest Bin

    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").SetFocus
    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").caretPosition = 3
    session.findById("wnd[0]/tbar[0]/btn[11]").press ' Save

    sap_message = session.findById("wnd[0]/sbar").Text ' Transfer order No
     
    ThisWorkbook.Sheets("LB01").Cells(2, 6).Value = sap_message
        
    'End of Direct_Replen
End Sub

3. 대량의 SU를 생산 투입을 하지 않는다면 자재별로 TO를 생성한다. 아래와 같이 2가지 방법이 있다.

3.1 LT01에서 FIFO 전략으로 SU 자동으로 결정하여 TO를 생성한다.

- 엑셀에서 투입할 자재별 & 수량으로 TO을 생성하는 Macro는 아래 코드 참조한다.

Sub CreateTO_LT01() 'LT01

' Keyboard Shortcut: Ctrl+a
'
    Dim SapGui
    Dim Application
    Dim connection
    Dim session
    Dim WSHShell
    Dim ObjR3
    Dim Grid
    Dim sap_message
    Dim lastRow As Long
    Dim i As Long
        
    ' Assuming you want to write the sap_message to cell A2 in "Sheet1"
    Dim DestinationSheet As Worksheet
    
    Set SheetName = ThisWorkbook.Sheets("Sheet1")
        
    lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
    
    Set WSHShell = Nothing
    Set SapGui = GetObject("SAPGUI")
    Set Application = SapGui.GetScriptingEngine
    
    Set connection = Application.Children(0)
    Set session = connection.Children(0)


    ' Loop through each row in the Excel sheet
    For i = 2 To lastRow
        ' Start of LT01
        session.findById("wnd[0]").resizeWorkingPane 130, 29, False
        session.findById("wnd[0]/tbar[0]/okcd").Text = "/NLT01"
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]/usr/ctxtLTAK-BWLVS").Text = "999"
        session.findById("wnd[0]/usr/ctxtLTAP-MATNR").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        session.findById("wnd[0]/usr/txtRL03T-ANFME").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
        session.findById("wnd[0]/usr/ctxtLTAP-WERKS").Text = "8181"
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").Text = "1000"
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").SetFocus
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").caretPosition = 4
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]/usr/ctxtLTAP-LETYP").Text = "00"
        session.findById("wnd[0]/usr/ctxtLTAP-VLTYP").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value 'Source S.type
        session.findById("wnd[0]/usr/ctxtLTAP-NLTYP").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 4).Value ''Dest.S.type
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 5).Value 'Dest.Bin
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").SetFocus
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").caretPosition = 9
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]").sendVKey 0

        
        ' Your existing code to perform LT01 transaction
        
        sap_message = session.findById("wnd[0]/sbar").Text ' Transfer order No
        SheetName.Cells(i, 6).Value = sap_message

        ' You can use sap_message or perform any other actions with it
        
        ' Insert code here to handle the next row of data or perform any other necessary actions
    Next i

    session.findById("wnd[0]/tbar[0]/okcd").Text = "/n"
    session.findById("wnd[0]").sendVKey 0
        
        ' End of LT01

End Sub


3.2 LT10에서 자재별 SU를 조회 및 선택하여 TO를 생성한다.

'Move Top'

'For English Readers'

What is the most efficient method for replenishing stock to production line (storage type 4xx) from SCM WM storage type (2xx) in SAP, considering that both the production line and SCM WM storage share the same IM storage location?


The initial and simplest approach is to utilize the auto-replenishment function:

1.1 Begin by setting Min and Max values (found in WM view 2 of the material master) for each raw material to enable auto-replenishment.

1.2 Execute LP21 for automatic inventory replenishment, which results in the creation of a Transfer Request (TR), followed by the corresponding Transfer Order (TO).

1.3 TOs are generated through a background job (scheduled program RLAUTA10).

1.4 Utilize an RF scanner to confirm the TO for each material.


Create TRs using LB01 for bulk raw materials through Excel:

2.1 If Min/Max cannot be configured for raw materials, calculate the replenishment quantity for each raw material using Excel.

2.2 Generate TRs using a Macro in Excel. TRs are created through the Macro, triggering LB01.

Sub CreateTR_LB01()
    Dim SapGui
    Dim Application
    Dim connection
    Dim session
    Dim WSHShell
    Dim ObjR3
    Dim Grid
    Dim sap_message
    Dim lastRow As Long
    Dim i As Long
        
    ' Assuming you want to write the sap_message to cell A2 in "Sheet1"
    Dim DestinationSheet As Worksheet
    Set DestinationSheet = ThisWorkbook.Sheets("LB01")
        
    lastRow = ThisWorkbook.Sheets("LB01").Cells(ThisWorkbook.Sheets("LB01").Rows.Count, "D").End(xlUp).Row
    
    Set WSHShell = Nothing
    Set SapGui = GetObject("SAPGUI")
    Set Application = SapGui.GetScriptingEngine
    
    Set connection = Application.Children(0)
    Set session = connection.Children(0)
    
    ' Go to Menu of Direct_Replenishment
    session.findById("wnd[0]").resizeWorkingPane 130, 29, False
    
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/NLB01"
    session.findById("wnd[0]").sendVKey 0

    session.findById("wnd[0]/usr/ctxtLTBK-LGNUM").Text = "081"
    session.findById("wnd[0]/usr/ctxtLTBK-BWLVS").Text = "920"
    session.findById("wnd[0]/usr/ctxtLTBK-BETYP").Text = "P"
    session.findById("wnd[0]/usr/txtLTBK-BENUM").Text = ThisWorkbook.Sheets("LB01").Cells(2, 3).Value  ' TR reuirement Name
    session.findById("wnd[0]/usr/txtLTBK-BENUM").SetFocus
    session.findById("wnd[0]/usr/txtLTBK-BENUM").caretPosition = 11
    session.findById("wnd[0]").sendVKey 0
        
       
    ' Loop through each row in the Excel sheet
    For i = 2 To lastRow
    
        session.findById("wnd[0]/usr/tblSAPML02BD0105/ctxtLTBP-MATNR[1,0]").Text = ThisWorkbook.Sheets("LB01").Cells(i, 4).Value 'Material
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").Text = ThisWorkbook.Sheets("LB01").Cells(i, 5).Value ' Qty
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").SetFocus
        session.findById("wnd[0]/usr/tblSAPML02BD0105/txtLTBP-MENGA[2,0]").caretPosition = 4
        session.findById("wnd[0]").sendVKey 0 ' Next item

    Next i

    session.findById("wnd[0]/tbar[1]/btn[6]").press ' Go to Header
    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").Text = ThisWorkbook.Sheets("LB01").Cells(2, 1).Value ' Dest Stor. Type
    session.findById("wnd[0]/usr/txtLTBK-NLPLA").Text = ThisWorkbook.Sheets("LB01").Cells(2, 2).Value ' Dest Bin

    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").SetFocus
    session.findById("wnd[0]/usr/ctxtLTBK-NLTYP").caretPosition = 3
    session.findById("wnd[0]/tbar[0]/btn[11]").press ' Save

    sap_message = session.findById("wnd[0]/sbar").Text ' Transfer order No
     
    ThisWorkbook.Sheets("LB01").Cells(2, 6).Value = sap_message
        
    'End of Direct_Replen
End Sub


2.3 TOs are generated through a background job (scheduled program RLAUTA10).

2.4 Utilize an RF scanner to confirm the TO for each material.


Please refer to the Macro code below for creating TRs for raw materials with specified quantities in Excel.

In cases where multiple Storage Units (SUs) are not input into production, a TO is created for each material. Two methods are available:

3.1 Execute a Macro to create LT01; SU is automatically determined using the FIFO strategy.

Please refer to the Macro code below for creating TOs for raw materials with specified quantities in Excel.

Sub CreateTO_LT01() 'LT01

' Keyboard Shortcut: Ctrl+a
'
    Dim SapGui
    Dim Application
    Dim connection
    Dim session
    Dim WSHShell
    Dim ObjR3
    Dim Grid
    Dim sap_message
    Dim lastRow As Long
    Dim i As Long
        
    ' Assuming you want to write the sap_message to cell A2 in "Sheet1"
    Dim DestinationSheet As Worksheet
    
    Set SheetName = ThisWorkbook.Sheets("Sheet1")
        
    lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
    
    Set WSHShell = Nothing
    Set SapGui = GetObject("SAPGUI")
    Set Application = SapGui.GetScriptingEngine
    
    Set connection = Application.Children(0)
    Set session = connection.Children(0)


    ' Loop through each row in the Excel sheet
    For i = 2 To lastRow
        ' Start of LT01
        session.findById("wnd[0]").resizeWorkingPane 130, 29, False
        session.findById("wnd[0]/tbar[0]/okcd").Text = "/NLT01"
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]/usr/ctxtLTAK-BWLVS").Text = "999"
        session.findById("wnd[0]/usr/ctxtLTAP-MATNR").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        session.findById("wnd[0]/usr/txtRL03T-ANFME").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
        session.findById("wnd[0]/usr/ctxtLTAP-WERKS").Text = "8181"
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").Text = "1000"
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").SetFocus
        session.findById("wnd[0]/usr/ctxtLTAP-LGORT").caretPosition = 4
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]/usr/ctxtLTAP-LETYP").Text = "00"
        session.findById("wnd[0]/usr/ctxtLTAP-VLTYP").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value 'Source S.type
        session.findById("wnd[0]/usr/ctxtLTAP-NLTYP").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 4).Value ''Dest.S.type
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").Text = ThisWorkbook.Sheets("Sheet1").Cells(i, 5).Value 'Dest.Bin
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").SetFocus
        session.findById("wnd[0]/usr/txtLTAP-NLPLA").caretPosition = 9
        session.findById("wnd[0]").sendVKey 0
        session.findById("wnd[0]").sendVKey 0

        
        ' Your existing code to perform LT01 transaction
        
        sap_message = session.findById("wnd[0]/sbar").Text ' Transfer order No
        SheetName.Cells(i, 6).Value = sap_message

        ' You can use sap_message or perform any other actions with it
        
        ' Insert code here to handle the next row of data or perform any other necessary actions
    Next i

    session.findById("wnd[0]/tbar[0]/okcd").Text = "/n"
    session.findById("wnd[0]").sendVKey 0
        
        ' End of LT01

End Sub

3.2 Generate TOs by searching for and selecting the appropriate SU for each material in LT10.


- SAP R/3 Implementation for 25 years in SD, LE, MM, Retail / Fashion, WM, QM and PP - SAP project manager and OCM lead - Certified in SAP R/3 SD, FI/CO, Workbench (ABAP Development), CRM – Online store & Internet sales - Business Process Re-engineering (BPR) - 7 SAP SRM and 3 CRM (Supplier & Customer Relationship Management) implementation - Industry Experience: Pharmaceutical, Diagnostics, Retail, Fashion, Electronic, Electric, Petro-Chemical, Mill, Shipbuilding, Automotive - SAP Industry Solution: IS-Retail, IS-AFS, IS-MILL

Comments

Post a Comment

Popular posts from this blog

How to automate how to process mass transaction without ABAP code (SAP ABAP coding 하지 않고 엑셀 매크로 VBA로 SAP 생산오더 만들기)

By -
Image
'For English Readers' SAP 프로젝트를 하다보면 개발자의 도움없이 특정 Tranaction을 대량으로 자동으로 실행시킬 경우가 있다. 물론 ABAP coding 을 배워서 하든지 ABAP개발자가 개발 하면 가능하다. 대량 Data를 엑셀로 정리하여 개발된 프로그램으로 실행하면 된다. 만약 상황이 여의치 않고, 본인이  엑셀 매크(VBA)를 조금 해본 경험이 있다면 아래 VBA source code 를 복사하여 엑셀로 개발하면 가능하다. 아래 SAP 생산오더 생성 및 변경을 위한 엑셀 매크로 VBA를 참조하시기 바랍니다.    물론 생산오더 포함하여 SAP recording 이 가능한 모든 Transaction 에 대해 적용 가능하다. 다른 Transaction 을 실행하고 싶다면 SAP script recording를 실행하면 자동으로 VB source가 recording 되므로 크게 걱정할 필요는 없습니다. Recording 된 VBA source 파일(*.vbs)을 열어 "session.findById" 시작하는 문장을 엑셀로 복사하여 수정하면 된다. 그러면 Scirpt Recording 시작해보자.  1. 아래 화면을 참조하여 Script Recording 기능을 활성화 해주어야 한다.           1.1. 먼저 t-code RZ11을 실행합니다.                  1.2. 매개변수 이름에 sapgui/user_scripting을 입력한 후 Display 버튼을 누른다.               1.3. "Change Value"을 누른다.           1.4. 새 값 상자에서 TRUE를 선택합니다. 그런 다음 저장 버튼을 클릭합니다.           하단 오른쪽 모서리에 있는 이발소 모양 아이콘은 GUI 스크립팅이 활성화되었음을 보여준다. 2. SAP GUI에서 스크립팅을 활성화하려면     2.1  SAP 사용자 정의를 클릭한 다음 옵션을 클릭합니다.    
Read more »

Material Label as a industry standard on traceability along the whole supply chain.

By -
Image
The automotive industry places increasing demands on traceability along the whole supply chain. To ensure this traceability, material flow and information flow from suppliers to customers have to be aligned. This can be achieved by a unique material label on the smallest package unit containing a clearly defined set of traceability information. Up to now, there is no common industry standard for such a label. The MAT-Label is a complement to existing labels such as VDA 4902, Odette and GTL. These existing logistics labels are taken into account and referenced. If you happen to scan a material label to decode, and change content to generate new 2D matrix barcode for testing, please try this How to decode barcode of Material Label   Please find simple decode function of text in 2D barcode below: Please find data identifers in mat-label below: For support & inquiry, please contact bryan.ohjs@gmail.com.
Read more »

How to execute Transaction with mass data without ABAP coding using SAP Script Recording, 코딩없이 대량 데이타를 SAP 업로드 할 수 있나요?

By -
Image
In the realm of SAP, there exists a menu that holds significant value for both SAP users and consultants. Allow me to acquaint you with this menu, a gateway to executing transactions involving substantial data volumes, all without the need for intricate ABAP coding. Intrigued? Imagine a scenario where you effortlessly transfer vast data sets from Excel to SAP transactions, all facilitated by a bit of VBA coding. This menu, known as "Script Recording and Playback" in SAP, is the key to this endeavor. To embark on this journey, simply copy the provided source code and paste it into the Visual Basic Editor. You can access this editor by launching Excel and pressing ALT+F11. The possibilities that unfold are truly captivating. Absolutely, I'm here to help you through the process. Let's break it down step by step: 1. Review the SAP VBS File: First, let's thoroughly review the SAP VBS file I've provided below which will help you understand its content and identify
Read more »