Quantcast
Channel: SCN: Message List - Scripting Languages
Viewing all 1708 articles
Browse latest View live

Data download to Excel from GuiTree Object by VBA

$
0
0

Dear all,

           I have a problem, why cellValue is empty ? 


Snap1.jpg


Code:


Set sapnode = session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell[1]")
k = 1
For i = sapnode.GetNodesCol.Count - 1 To 0 Step -1
strNodeComp = sapnode.GetColumnCol(sapnode.GetColumnNames.Item(0)).Item(i)    If Val(Mid(strNodeComp, 11, Len(strNodeComp))) > 0 Then        sapnode.selectnode Right("          " + sapnode.GetAllNodeKeys(i), 11)        session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell[0]").pressButton "&EXPAND"        x = sapnode.GetAllNodeKeys(i)        For j = x To intTem - 1            sapnode.selectItem Right("          " + CStr(j), 11), "&Hierarchy"            sapnode.doubleClickItem Right("          " + CStr(j), 11), "&Hierarchy"           cellValue = sapnode.GetColumnCol(sapnode.GetColumnNames.elementat(0)).elementat(j)            Sheet1.Cells(k, 1) =cellValue            k = k + 1        Next j    End If    intTem = sapnode.GetAllNodeKeys(i)
Next i

 

Thanks for your help!


Could not install SAPRFC with PHP 5.4.4 in XAMPP 1.8.0 Win7

$
0
0

Hi,

 

I tried a lot to install SAPRFC php extension in my XAMPP 1.8.0 installation where the PHP version is 5.4.4. Here are the steps I followed:

 

1. Downloaded RFCSDK and grabbed librfc32.dll file and put it in C:\Windows\System32 and also in C:\Windows folders.

2. Put php_saprfc.dll ( taken from saprfc-1.4.1-4.4.8.Win32.zip ) in C:\xampp\php\ext folder

3. Made an entry in working PHP.INI file of xampp.

 

When I restart Xampp server it is showing me the below message:

 

Unable to load dynamic library "C:\xampp\php\ext\php_saprfc.dll" - The specified module could not be found.

 

 

I'm literally confused that which saprfc versions are compatible with which PHP versions. Like if I use PHP 5.4.4 then which saprfc version should I use?

 

Here are my configurations:

 

Windows : Window 7

System : 32 Bit

Xampp Version : 1.8.0

PHP version : 5.4.4

Apache : 2.4.2

 

Please help me to install it correctly.

 

Thanks.

Re: Data download to Excel from GuiTree Object by VBA

Changing users date formats in SAP or Excel

$
0
0

Hi,

 

I've written a simple script in Excel to run a transaction and import into Excel where it does some formatting to give me a report.

 

This works great on my setup but when I tested on other users I get varied results around the date format.

 

One issue was how I set the date fields in the transactions which I've got round, but the issue which has now got me stuck is when I export out of SAP into Excel - see attachment. If the user has his date format setup as DD.MM.YYYY then when I import into Excel the column is text and not in date format, meaning I can't grab week or year info.

 

I'm thinking that once I've imported the data into Excel then I need to copy characters in the text string and re-create the dates but has anyone else seen and overcome this issue?

error2.JPG

Thanks,

Mark

Re: Changing users date formats in SAP or Excel

$
0
0

Hi Mark, I suggest you use the REPLACE function before inserting the date into the Excel cell. You need to replace the dots for slashes. Excel doesn't understand "12.09.2014" as a date, you need to transform into "12./09/2014"

 

Cheers,

Michael

Re: Changing users date formats in SAP or Excel

Re: Loop does not work on VBA Script

$
0
0

Hi

I think it should be like this:

 

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

Dim ApplicationPath, CredentialsPath, ServerPath, FilePath
Dim ExcelApp, ExcelWorkbook, ExcelSheet, Row
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\temp\Excel_File.xls")
Set ExcelSheet = ExcelWorkbook.Worksheets(1)

Row = 1

 

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "mysaplogin"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "*******"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]/tbar[0]/okcd").text = "fd32"
session.findById("wnd[0]").sendVKey 0


Do Until ExcelSheet.Cells(Row,1).Value = ""

 

session.findById("wnd[0]/usr/chkRF02L-D0210").selected = true
session.findById("wnd[0]/usr/ctxtRF02L-KUNNR").text = ExcelSheet.Cells(Row,1).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").text = ExcelSheet.Cells(Row,2).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").setFocus
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[0]/menu[5]/menu[1]").select
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0

 

Row=Row+1
Loop
ExcelApp.Quit
Set ExcelApp = Nothing
Set ExcelWorkbook = Nothing
Set ExcelSheet = Nothing

Re: Export attachments from SAP

$
0
0

Hello Dan: we've worked with attachment downloads sometime ago, but with a very different approach. The solution was an ABAP report. Here are some details, if you think it's usefull I'll give you more details.

The idea was to download the attachments of the purchase requests. Table SRGBTBREL has a record of each attachment in SAP (as far as I know for any module). Searching there we got an ID for the attachment, which is used with function module  SO_DOCUMENT_READ_API1 to download the attachment to a file on our network.

 

Cheers,

Michael


Re: Export attachments from SAP

$
0
0

Thanks Michael for the reply but through which T-code should i download these attachments as i will be end user and not developer in SAP.

Please do let me know if there is any way to download the attachments.

Re: Export attachments from SAP

$
0
0

This solution requires an ABAP resource, I'm sorry, including some other IT guy to configure some folder on your network where the attachments will be downloaded

If you get help of a developer I can share the ABAP code for him/her to start with.

 

Michael

Re: Loop does not work on VBA Script

$
0
0

Script Man, I'm sorry for the later reply. Anyway I really appreciate your quickly answer.

 

It keeps not take the loop repeating the first raw.

 

 

Thank you for your time.

Re: Loop does not work on VBA Script

$
0
0

Hi Thomas,

 

 

On the excel file I have:

 

excel.JPG

 

The script still not taking the loop. Always repeating the row 1.

 

Thanks,

 

Douglas

Re: Loop does not work on VBA Script

$
0
0

Hi Douglas,

 

Please try the Following:


Row = 1
Do

session.findById("wnd[0]/usr/chkRF02L-D0210").selected = true
session.findById("wnd[0]/usr/ctxtRF02L-KUNNR").text = ExcelSheet.Cells(Row,1).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").text = ExcelSheet.Cells(Row,2).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").setFocus
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[0]/menu[5]/menu[1]").select
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0

Row=Row+1
Loop Until ExcelSheet.Cells(Row,1).Value = ""

 

if this still not works pls reply

Re: Loop does not work on VBA Script

$
0
0

Hi Douglas,

 

Unfortunately, I have not access tothe transaction fd32. But you couldtry the following:

 

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

Dim ApplicationPath, CredentialsPath, ServerPath, FilePath
Dim ExcelApp, ExcelWorkbook, ExcelSheet, Row
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\temp\Excel_File.xls")
Set ExcelSheet = ExcelWorkbook.Worksheets(1)

Row = 1

 

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "mysaplogin"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "*******"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0
'session.findById("wnd[0]/tbar[0]/okcd").text = "fd32"
'session.findById("wnd[0]").sendVKey 0


Do Until ExcelSheet.Cells(Row,1).Value = ""

 

session.findById("wnd[0]/tbar[0]/okcd").text = "/nfd32"

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

 

session.findById("wnd[0]/usr/chkRF02L-D0210").selected = true
session.findById("wnd[0]/usr/ctxtRF02L-KUNNR").text = ExcelSheet.Cells(Row,1).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").text = ExcelSheet.Cells(Row,2).Value
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").setFocus
session.findById("wnd[0]/usr/ctxtRF02L-KKBER").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[0]/menu[5]/menu[1]").select
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0

 

Row=Row+1

 

'Let the new values show as test.

'msgbox ExcelSheet.Cells(Row,1).Value

'msgbox ExcelSheet.Cells(Row,2).Value


Loop
ExcelApp.Quit
Set ExcelApp = Nothing
Set ExcelWorkbook = Nothing
Set ExcelSheet = Nothing

 

Regards,

ScriptMan

Re: Save roport as file via Windows explorer

$
0
0

Is it worked, I don't have authorization of T-code ZC90, so I can't run this in my computer.

Is it means you need both excel VBA and VBS file so it can fulfill your requirement?


Re: Save roport as file via Windows explorer

$
0
0

Hi Huang - you don't have to have VBA to make this work. It all depends how you are building your app. In the example I used, it is strictly using the VBS approach.. I am running the main script in vbs and the load script also in vbs. This does not incorporate an Excel linkage but like in Evgeniy's case, looks like he is incorporating an Excel hook as well.

 

Regards

Umur

Upload from Clipboard (From excel to SAP)

$
0
0

Hi all,

 

Would appreciate your valuable advice on why the following coding dont work. i am trying to paste a range of values from the excel into the SAP window(Multiple Selection - Wnd 1). i cannot seem to be able to find out the screen field code for upload from Clipboard and thus have tried using sendkeys (Shift F12) as an alternative. But still... it doesnt copy. Help needed!

 

Thanks.

 

Sub SAP_initial()

 

 

If Not IsObject(Apps) Then

   Set SapGuiAuto = GetObject("SAPGUI")

   Set Apps = SapGuiAuto.GetScriptingEngine

End If

If Not IsObject(Connection) Then

   Set Connection = Apps.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

End Sub

 

 

 

Sub ABC()

 

 

Dim Ws As Worksheet

Dim MyRange As Range

 

Set Ws = Sheets("Data")

 

 

FinalRow = Cells(Rows.Count, 2).End(xlUp).Row

 

 

Set MyRange = Range("B1:B9999")

 

 

MyRange.Select

Selection.Copy

 

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

    session.findById("wnd[0]/tbar[0]/okcd").Text = "/n ZCRS"

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

    session.findById("wnd[0]/usr/radP_V2").Select

    session.findById("wnd[0]/usr/radP_V2").SetFocus

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

    session.findById("wnd[0]/usr/radP_JLP").Select

    session.findById("wnd[0]/usr/radP_JLP").SetFocus

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

 

 

    Set objShell = CreateObject("WScript.Shell")

    objShell.AppActivate "SAP"

 

 

    session.findById("wnd[0]/usr/btn%_S_AUFNR_%_APP_%-VALU_PUSH").press

 

    SendKeys "+{F12}", True

 

End Sub

Re: VA02 Sales Order Automation?

$
0
0

Hello Sayuti,

 

I discovered SAP's ability to automate using vbscript a few weeks ago and have been working diligently (10hrs per day) trying to automate the VA01 sales order process.

Reading through all the SAP forums Online has been extremely helpful and I'm almost at the finish line. The only remaining part where I'm completely lost is the scroll bar (GuiTableControl)

I read through yours and Stefan's examples on this topic and tried every combination over and over and still cannot place more than 16 rows of data in the SAP table before it crashes and we sometimes receive sales orders that require up to 99 rows!

(16 rows are what is visible before moving the scroll bar.) Am I missing a step from your instructions? Do I need to declare an Object that activates the scrollbar?

I should also note that the scroll bar doesn't even appear until after at least one line item and quantity is placed on a row and you press enter. Is there a way around this? Ideally I would love to just open SAP and have the Scrollbar available already.

I understand that you've already covered this topic a few years ago but please help me...I'm sleep deprived and stressed out.

 

VA01.jpg

 

The photo above is the table I'm using. Notice: there is no scroll bar and there are 16 visible rows.

 

Below is my code. In my example I'm trying to input 30 line items and quantities from an excel spreadsheet. I used your example from the thread "VA02 Sales Order Automation" but it does not work for me. I should also note TotalRow and VisibleRow both = 16 So my BlankRow is always = 0. Thanks a TON!!!


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

 

Dim SapGuiApp, Connection, Session, FileObject, oFile, Counter
Dim ApplicationPath, CredentialsPath, ServerPath, FilePath
Dim ExcelApp, ExcelWorkbook, ExcelSheet
Dim sRow, eRow, J
Dim BlankRow, TotalRow, VisibleRow, Scroll
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Personal\02039116\Desktop\SAP Automation\TestOrder00.xlsx")
Set ExcelSheet = ExcelWorkbook.Worksheets(1)

 

eRow = 1

 

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "VA01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtVBAK-AUART").text = "ZWO"
session.findById("wnd[0]/usr/ctxtVBAK-VTWEG").text = "10"
session.findById("wnd[0]/usr/ctxtVBAK-VTWEG").setFocus
session.findById("wnd[0]/usr/ctxtVBAK-VTWEG").caretPosition = 2
session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").text = ExcelSheet.Range("F5").value
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUAGV-KUNNR").text = ExcelSheet.Range("F4").value
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/ctxtRV45A-KETDAT").text = ExcelSheet.Range("F6").value
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/ctxtRV45A-DWERK").text = ExcelSheet.Range("F7").value

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG").VerticalScrollbar.position = 0
TotalRow = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG").RowCount
VisibleRow = session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG").VisibleRowCount

 

BlankRow = TotalRow - VisibleRow

 

If BlankRow > VisibleRow Then

Scroll = BlankRow - VisibleRow + 1
sRow = VisibleRow - 1
      
      Else

        Scroll = 0
        sRow = BlankRow
End If

 

For J = 1 To 30

 

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG").VerticalScrollbar.position = Scroll
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1,"& sRow & "]").text = ExcelSheet.Cells(eRow, 2)
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[2,"& sRow & "]").text = ExcelSheet.Cells(eRow, 1)

 

eRow = eRow + 1
sRow = sRow + 1
Next

Re: Save SAP report in Excel format into specified drive

$
0
0

Hello Script Man,

 

I wanted to add your code to enable the auto save but I'm not able to make it work.
Here is my script. There are four "momets" were I'd like to enable the auto save.

Could you please check it and advice were and what exactly to add to make it work?

 

Thank you in advance!

 

Petr

 

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]/okcd").text = "/nsq01"

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

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

session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").currentCellRow = 6

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

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

session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").currentCellRow = 28

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

session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").doubleClickCurrentCell

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

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

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

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

session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[1]").select

session.findById("wnd[0]/tbar[0]/okcd").text = "/nsq01"

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

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

session.findById("wnd[1]/usr/cntlGRID1/shellcont/shell").currentCellRow = 6

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

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

session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").currentCellRow = 27

session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").firstVisibleRow = 26

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

session.findById("wnd[0]/usr/cntlGRID_CONT0050/shellcont/shell").doubleClickCurrentCell

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

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

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

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

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

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

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

session.findById("wnd[0]/mbar/menu[4]/menu[0]/menu[1]").select

session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").setCurrentCell 1,"TEXT"

session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").selectedRows = "1"

session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell

session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[1]").select

session.findById("wnd[0]/tbar[0]/okcd").text = "/nmb5t"

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

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

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

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

session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").select

session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select

session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus

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

session.findById("wnd[1]/usr/ctxtDY_PATH").setFocus

session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 0

session.findById("wnd[1]").sendVKey 4

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

session.findById("wnd[0]/tbar[0]/okcd").text = "/nmb52"

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

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

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

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

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

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

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

session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[1]").select

Re: Could not install SAPRFC with PHP 5.4.4 in XAMPP 1.8.0 Win7

Viewing all 1708 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>