cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Need recorded Script to set the day 2 days back.

Go to solution
Former Member

on ‎02-19-2016 11:03 AM

0 Kudos

HI I have recorded below script. Its some i do every day. The special i always need to set the date 2 days back from present day. And here we count Monday to Friday. So if i did Friday it would 2 working days back and the date should be Thursday.

Is there any way to change the script so it always go 2 days back from present day and here we talk working days Monday to Friday.

Please have a look below.

Thanks in advance.

Abjac

The date i put in manually in the recorded script part of below complete script. .

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = "16.02.2016"

The completed recorded script.

If Not IsObject(application) Then

   Set SapGuiAuto  = GetObject("SAPGUI")

   Set application = SapGuiAuto.GetScriptingEngine

End If

If Not IsObject(connection) Then

   Set connection = application.Children(0)

End If

If Not IsObject(session) Then

   Set session    = connection.Children(0)

End If

If IsObject(WScript) Then

   WScript.ConnectObject session,     "on"

   WScript.ConnectObject application, "on"

End If

session.findById("wnd[0]").maximize

session.findById("wnd[0]/tbar[0]/btn[3]").press

session.findById("wnd[0]/tbar[1]/btn[17]").press

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = "16.02.2016"

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 10

session.findById("wnd[0]/tbar[1]/btn[8]").press

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 7

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").setCurrentCell -1,""

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 0

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectAll

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").pressToolbarContextButton "&MB_EXPORT"

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectContextMenuItem "&SEND"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,0]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").text = "xxxxxx.xxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/cmbSOS04-L_ESC_DES[1,8]").setFocus

session.findById("wnd[0]/tbar[1]/btn[20]").press

session.findById("wnd[0]/tbar[0]/btn[3]").press

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = ""

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 0

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR7:/HOAG/AK_POSTPROCESSING:2113/btn%_SO_KUKEY_%_APP_%-VALU_PUSH").press

session.findById("wnd[1]").close

session.findById("wnd[0]/tbar[1]/btn[17]").press

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").currentCellColumn = "TEXT"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell

session.findById("wnd[0]/tbar[1]/btn[8]").press

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 15

Show replies
Show replies
Answer

Accepted Solutions (1)

Accepted Solutions (1)

stefan_schnell
Active Contributor
‎02-19-2016 11:20 AM
0 Kudos

Hello Ab Jac,

try this:

If WeekDay(Date()) >= vbMonday And WeekDay(Date()) <= vbFriday Then
  session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/" & _
     "ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/" & _ 
     "subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = _
  CStr(Date() - 2)
End If

Let us know your results.

Cheers

Stefan

Show replies
Show replies
Former Member
‎02-19-2016 1:09 PM
0 Kudos

HI Stefan and thanks so much. I put the changed code in and it goes to the right screen and also it put the date 2 days back. But then it stopped and said it cant find the control. Please have a look at the screen shot and the hole code below. I guess maybe just a little thing but tried cant figure out what it is. Please have a look at the hole code, And maybe put the changed in with the hole code.

Thanks.

Sincerely

Abjac

If Not IsObject(application) Then

   Set SapGuiAuto  = GetObject("SAPGUI")

   Set application = SapGuiAuto.GetScriptingEngine

End If

If Not IsObject(connection) Then

   Set connection = application.Children(0)

End If

If Not IsObject(session) Then

   Set session    = connection.Children(0)

End If

If IsObject(WScript) Then

   WScript.ConnectObject session,     "on"

   WScript.ConnectObject application, "on"

End If

session.findById("wnd[0]").maximize

session.findById("wnd[0]/tbar[0]/btn[3]").press

session.findById("wnd[0]/tbar[1]/btn[17]").press

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell

If WeekDay(Date()) >= vbMonday And WeekDay(Date()) <= vbFriday Then

  session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/" & _

     "ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/" & _

     "subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = _

  CStr(Date() - 2)

End If

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 10

session.findById("wnd[0]/tbar[1]/btn[8]").press

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 7

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").setCurrentCell -1,""

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 0

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectAll

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").pressToolbarContextButton "&MB_EXPORT"

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectContextMenuItem "&SEND"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,0]").text = "xxxxxx.xxxx@xx.xxx.com"

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").setFocus

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").caretPosition = 0

session.findById("wnd[0]").sendVKey 2

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").text = "xxxxxx.xxxx@xx.xxx.com""

session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/cmbSOS04-L_ESC_DES[1,8]").setFocus

session.findById("wnd[0]/tbar[1]/btn[20]").press

session.findById("wnd[0]/tbar[0]/btn[3]").press

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = ""

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 0

session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR7:/HOAG/AK_POSTPROCESSING:2113/btn%_SO_KUKEY_%_APP_%-VALU_PUSH").press

session.findById("wnd[1]").close

session.findById("wnd[0]/tbar[1]/btn[17]").press

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").currentCellColumn = "TEXT"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"

session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell

session.findById("wnd[0]/tbar[1]/btn[8]").press

session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 15

Former Member
‎02-19-2016 1:29 PM
0 Kudos

HI Stefan a little update i maybe found the error. The question is how to change it. In the sap the date went in like this.

17-02-16

But it should be like this to continue, otherwise it cant go to the next screen.

17.02.2016

Dont know how that can be change,.

Please have a look.

Thanks in advance

Abjac

stefan_schnell
Active Contributor
‎02-19-2016 7:14 PM
0 Kudos

Hello Ab Jac,

try this:

If WeekDay(Date()) >= vbMonday And WeekDay(Date()) <= vbFriday Then
  Datum = Date() - 2
  session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/" & _
     "ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/" & _
     "subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = _
  CStr(Day(Datum) & "." & Month(Datum) & "." & Year(Datum))
End If

Let us know your results.

Cheers

Stefan

Former Member
‎02-20-2016 7:10 AM
0 Kudos

HI Stefan and thanks i need wait till Monday to try at my work pc. But i will do and let you know. One thing i wonder is i example run it a Monday, will it put the Thursday date in from the week before.? Same with If run Tuesday will it put the date in from Friday week before? But i will try Monday. Thanks for now.

Sincerely

Abjac

stefan_schnell
Active Contributor
‎02-20-2016 4:53 PM
0 Kudos

Hello Ab Jac,

try this to skip the weekend:

If WeekDay(Date()) >= vbWednesday And WeekDay(Date()) <= vbFriday Then
  Datum = Date() - 2
ElseIf WeekDay(Date()) = vbMonday Or WeekDay(Date()) = vbTuesday Then
  Datum = Date() - 4
End If
  session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/" & _
     "ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/" & _
     "subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = _
  CStr(Day(Datum) & "." & Month(Datum) & "." & Year(Datum))

Cheers

Stefan

Former Member
‎02-23-2016 2:45 PM
0 Kudos

HI Stefan sorry for the delay i finally had a chance to test the script. And can say it works like a charm. Thanks so much some i have to run every day . So really great its working.

Have a nice day

Sincerely

Abjac

Answers (0)

Ask a Question