GoldenLine
Zaloguj się
Mariusz J.

Mariusz J. Global Process Lead
- Analytics and Data
Science

Temat: Witam

Witam serdecznie, wlasnie dolaczylem do grupy. Chcialbym zrobic na poczatek cos bardzo prostego, a mianowicie zrobic wlasny single sign on. Moj problem polega na tym ze potrafie zalogowac sie do sap-a ale jest to chyba tryb background bo sap nie maluje mi okienek.
Czy macie kawalek kodu ktory u Was dziala?
Chcialbym otworzyc okienko logowania z sap logon wypelnic je danymi i odpalic SAP. Dodam ze pracuje na hurtowni sap Bw.
Docelowo ma to pobierac z bazy SQL Server haslo, ale to nie stanowi problemu.
Link do wypowiedziLink

konto usunięte

Temat: Witam

mam tylko kod do logowania bez okienek...
ale może modyfikacja pomoże?
Tu masz kod znaleziony w sieci. Pewnie niewiele pomogłem...
SilentLogon to chyba odpowiada za pracę bez okienek, w tle
Kiedyś testowałem - wlogowało, pobrało dane - wyszło z SAP.
Koniecznie musi byś wylogowani - bo sesji w tle nie wyłączysz.

logowanie 1




Sub connectR3()

 

Set LogonControl = CreateObject("SAP.LogonControl.1")

Set R3Connection = LogonControl.NewConnection

R3Connection.Client = "130"

R3Connection.ApplicationServer = "10.10.6.10"

R3Connection.Language = "EN"

R3Connection.User = "user1"

R3Connection.Password = "tiger"

R3Connection.System = "00"

 

SilentLogon = True

 

 

retcd = R3Connection.Logon(0, SilentLogon)

If retcd  True Then

   MsgBox "Logon Failed"

else

  Msgbox "Logon Success"

  R3Connection.Logoff

End if

End Sub

i poprawione:


Set FunctionCtrl = CreateObject("SAP.Functions")

Set SapConnection = FunctionCtrl.Connection



SapConnection.client = "" 

SapConnection.user = "" 

SapConnection.password = "" 

SapConnection.language = "EN" 

SapConnection.HostName = "" 

SapConnection.SystemNumber = "" 



If Not SapConnection.Logon(0, True) Then

msgbox ("not Connected")



else

msgbox ("connected")

End If

SapConnection.logoff
Link do wypowiedziLink
Mariusz J.

Mariusz J. Global Process Lead
- Analytics and Data
Science

Temat: Witam

Hej. Dzieki wielkie. Czy wiesz moze jak po poprawnym zalogowaniu wywolac okienko Sap-a z wybrana transakcja, obojetnie jaka? Celem jest jedynie zalogowanie do systemu i otworzenie okna domyslnej transakcji, a nastepnie umozliwienie dalszej pracy korzystajac z GUI SAP. Pozdrawiam Mariusz
Link do wypowiedziLink
Kacper W.

Kacper W. Specjalista SAP
SD/MM

Temat: Witam

Cześć,

To powinno otworzyć ci okno

If Not IsObject(NazwaObiektu) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set NazwaObiektu = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = NazwaObiektu.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 NazwaObiektu, "on"
End If

session.findById("wnd[0]").maximize
Link do wypowiedziLink
Mariusz J.

Mariusz J. Global Process Lead
- Analytics and Data
Science

Temat: Witam

Cześć,
Powiedz gdzie mogę znalezc dokumentacje tych obiektow ktore stosujecie w swoim kodzie, z checia zapoznam sie "doglebniej" ;).
Link do wypowiedziLink

konto usunięte

Temat: Witam

SAP GUI Scripting API for the windows and java

ogólnie dużo materiałów na temat SAp a w tym SAP Scripting :

http://help.sap.com/printdocu/core/Print46c/en/Data/In...

a więcej - to po necie skrawki informacji, bo nie można nic konkretnego znaleźć.
Jeszcze tu parę przykładów:
http://sapass.blogspot.com/
http://www.sap-img.com/abap/vb-codes-or-vba-macro-code...
http://www.sapfans.com/forums/viewtopic.php?t=188241
http://www.programmingtalk.com/showthread.php?t=21399
http://www.synactive.com/docu_e/specials/guiscripting....
http://www.erpgenie.com/sap/saptech/index.htm

jeszcze w SAP marketplace bede szukał, ale jak dostanę dostęp...to wtedy może coś wrzucę na swój blog.
Link do wypowiedziLink
Mariusz J.

Mariusz J. Global Process Lead
- Analytics and Data
Science

Temat: Witam

Serdecznie dziekuje koledze :)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Witam wszystkich!




Wyślij zaproszenie do
Anuluj