SAP GUI SCRIPTING – BOM CREATION

What is Bill of Material (BOM)?

Bill of Materials (BOM) means that the list items require to produce the semifinished product or Final Product and the list of material can be raw materials, purchase materials and transfer materials.

The Bill of material consists two part. One is Header item and another one is Sub items which have the consumable quantity and its unit of measurement.

How Bill of Material can be created?

The Bill of material can be created manually using the T codes called CS01 – BOM Creation, using the BAPI, ABAP upload program can be created for BOM upload.

LSMW can be used for BOM creation and another method is we can create SAP GUI Scripting through excel sheet that automated with in a single click.

What is SAP GUI Scripting?

SAP GUI Scripting is the method of creating, changing master data and transaction data in SAP

To use SAP GUI Scripting method, the recording needs to be done with single entry where these entries will be used in Script recording.

Here, to create Bill of material one header material and its subitems are used and same is recorded and downloaded as notepad file.

This recorded GUI scripting can be copied in to the excel source code view in the sheet. The macro setting needs to be enabled in excel sheet.

The excel field mapping is done and the looping method of programming used to create multiple headers with multiple subitems.

Following code is modified to get the automation for creating multiple Bill of Materials in the plant.

Public SapGuiAuto, WScript, msgcol

Public objGui As GuiApplication

Public objConn As GuiConnection

Public objSess As GuiSession

Public objSBar As GuiStatusbar

Public objSheet As Worksheet

Dim W_System

Function Attach_Session() As Boolean

Dim il, it

Dim W_conn, W_Sess

If W_System = “” Then

Attach_Session = False

Exit Function

End If

If Not objSess Is Nothing Then

If objSess.Info.SystemName & objSess.Info.Client = W_System Then

Attach_Session = True

Exit Function

End If

End If

If objGui Is Nothing Then

Set SapGuiAuto = GetObject(“SAPGUISERVER”)

Set objGui = SapGuiAuto.GetScriptingEngine

End If

For il = 0 To objGui.Children.Count – 1

Set W_conn = objGui.Children(il + 0)

For it = 0 To W_conn.Children.Count – 1

Set W_Sess = W_conn.Children(it + 0)

If W_Sess.Info.SystemName & W_Sess.Info.Client = W_System Then

Set objConn = objGui.Children(il + 0)

Set objSess = objConn.Children(it + 0)

Exit For

End If

Next

Next

If objSess Is Nothing Then

MsgBox “No active session to system ” + W_System + “, or scripting is not enabled.”, vbCritical + vbOKOnly

Attach_Session = False

Exit Function

End If

If IsObject(WScript) Then

WScript.ConnectObject objSess, “on”

WScript.ConnectObject objGui, “on”

End If

Set objSBar = objSess.FindById(“wnd[0]/sbar”)

objSess.FindById(“wnd[0]”).maximize

Attach_Session = True

End Function

Public Sub RunGUIScript()

Dim W_Ret As Boolean

Dim material, plant, bomusage, Date01 As String

Dim i As Integer

W_Ret = Attach_Session

If Not W_Ret Then

Exit Sub

End If

material = Cells(9, 2).Value

plant = Cells(9, 5).Value

bomusage = Cells(10, 2).Value

Date01 = Cells(10, 5).Value

i = 0

On Error GoTo myerr

objSess.FindById(“wnd[0]”).maximize

While Cells(12 + i, 1).Value <> “”

If Cells(12 + i, 1) <> Cells(11 + i, 1) Then

objSess.FindById(“wnd[0]/tbar[0]/btn[11]”).press

objSess.FindById(“wnd[0]/tbar[0]/okcd”).Text = “cs01”

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]/usr/ctxtRC29N-MATNR”).Text = Cells(12 + i, 1).Value

objSess.FindById(“wnd[0]/usr/ctxtRC29N-WERKS”).Text = Cells(12 + i, 2).Value

objSess.FindById(“wnd[0]/usr/ctxtRC29N-STLAN”).Text = Cells(12 + i, 3).Value

objSess.FindById(“wnd[0]/usr/ctxtRC29N-DATUV”).Text = Cells(12 + i, 4).Value

objSess.FindById(“wnd[0]/usr/ctxtRC29N-DATUV”).SetFocus

objSess.FindById(“wnd[0]/usr/ctxtRC29N-DATUV”).caretPosition = 10

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-POSNR[0,0]”).Text = Cells(12 + i, 5).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-POSTP[1,0]”).Text = Cells(12 + i, 6).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-IDNRK[2,0]”).Text = Cells(12 + i, 7).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).Text = Cells(12 + i, 8).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).SetFocus

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).caretPosition = 1

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT”).VerticalScrollbar.Position = i + 1

Else

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-POSNR[0,0]”).Text = Cells(12 + i, 5).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-POSTP[1,0]”).Text = Cells(12 + i, 6).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/ctxtRC29P-IDNRK[2,0]”).Text = Cells(12 + i, 7).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).Text = Cells(12 + i, 8).Value

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).SetFocus

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT/txtRC29P-MENGE[4,0]”).caretPosition = 1

objSess.FindById(“wnd[0]”).sendVKey 0

objSess.FindById(“wnd[0]/usr/tabsTS_ITOV/tabpTCMA/ssubSUBPAGE:SAPLCSDI:0152/tblSAPLCSDITCMAT”).VerticalScrollbar.Position = i + 1

End If

i = i + 1

Wend

objSess.FindById(“wnd[0]/tbar[0]/btn[11]”).press

objSess.FindById(“wnd[1]/tbar[0]/btn[0]”).press

Exit Sub

myerr:

MsgBox “BOM creation Successful!!!”

End Sub

Sub StartExtract()

Dim currentline As Integer

‘ This is the system to connect to

W_System = “CEF340”

‘ Run the actual GUI script

RunGUIScript

objSess.EndTransaction

End Sub

Conclusion – The BOM can be created with the help of excel sheet and the provision is given by SAP as SAP GUI Scripting. Only thing is we need record with minimum data and while uploading we can upload huge data. This feature will create n number of BOM in front of our eyes. Thanks for reading or referring. Cheers!