Domino 9 und frühere Versionen > ND6: Entwicklung

SAP <> Lotus Notes

<< < (6/11) > >>

FC:

--- Zitat von: eknori am 22.04.05 - 15:52:20 ---also mit der LSX ist das gar kein Problem und sollte für deine einfachen Anforderungen auch ausreichend sein. Funktioniert auf der Zentralinstanz oder über einen Appl.-Server. No Problem.
Die nötigen Befehle sind in einer ScriptLib gewrapped.
Und ab PatchLevel 42 ( oder so ) wird die nötige DLL auch schon bei der Installation der SAPGUI auf dem Rechner registriert.
Wir verwenden zur Zeit die SAP Version 4.7 und damit funktioniert das problemlos. Auch wenn es da keinen Support mehr gibt kannst du das bei deinen Anforderungen einsetzen, ohne zu befürchten, daß dein SAP plötzlich explodiert.

--- Ende Zitat ---

Sorry bin zur Zeit unterwegs und konnte daher dem Thread nicht folgen.
Hallo Ulricht, das stimmt micht zuversichtlich, ich bin ja auch der Ansicht, das es für einen "kleinen" Datenaustausch auch ne "kleine" Lösung geben muss ! Aufstocken kann man auch auch immer und LS ist eh ein Muß bei Lotus  ;)

Kann man auch BAPIs ansprechen ?

Wäre es vermessen nach ner kleinen Beispielanwendung zu fragen ???

Gruß
Djahan

koehlerbv:
Klar kann man auch auf BAPIs zurückgreifen, wie folgendes Beispiel zeigt:


--- Code: --- Dim oServer As New RFCServer
oServer.HostName = "192.168.xx.xxx"
oServer.System = 0
oServer.Client = "800"
oServer.user = "xxxxxxxxxxx"
oServer.Password = "xxxxxxxxxxxxxx"
oServer.Language = "D"

Dim ErrMsg As String
Dim CompName As String
Dim CompCode As String

    ' Logon gibt NICHT false zurück, wenn Pw oder Username etc. falsch war!!! Nur physische Fehler werden erkannt!
If oServer.Logon = False Then
Msgbox "Logon Error!", 0, oServer.Message
Exit Sub
End If


'--------------------------------------------------------------------
'---- allg. Liste:     

Dim fnc_CompanyCodeList As New RFCfunction(oServer, "BAPI_COMPANYCODE_GETLIST")

If fnc_CompanyCodeList.call() = False Then
Msgbox "Aufruf erfolglos!"
Exit Sub
End If

CompCode = fnc_CompanyCodeList.tables("COMPANYCODE_LIST").rows(5).GetCell("COMP_CODE")  'Hart codiert: Erste Zeile = 1. Firma auslesen

Msgbox CompCode

'---- Details     
Dim fnc_GetDetail As New RFCFunction (oServer, "BAPI_COMPANYCODE_GETDETAIL")
fnc_GetDetail.Exports("COMPANYCODEID").value = CompCode

If fnc_GetDetail.call() = False Then
Msgbox "Aufruf erfolglos!"
Exit Sub
End If

CompName = fnc_GetDetail.imports("COMPANYCODE_ADDRESS").GetValue("NAME")

Msgbox "Name of the company is " & CompName

oServer.LogOff
--- Ende Code ---

HTH,
Benrhard

FC:

--- Zitat von: eknori am 22.04.05 - 15:52:20 ---Und ab PatchLevel 42 ( oder so ) wird die nötige DLL auch schon bei der Installation der SAPGUI auf dem Rechner registriert.

--- Ende Zitat ---

@eknori
Hallo Ulrich welche GUI Version (6.20 ??)

Gibt es eigentlich ne Doku zu LSX ?  ???

@koehlerbv
Hallo Bernhard, danke, werde ich gleich mal (übermorgen) testen.
THX  ;D

Gruß
Djahan

Lossa:
Hi,

@FC:

In dem help-Verzeichnis des Client o. Server gibt es eine Hilfe-DB zu LSX.

eknori (retired):

--- Zitat ---Hallo Ulrich welche GUI Version (6.20 ??)

--- Ende Zitat ---

620 Final Release, Build 6205.5.36.957, PatchLevel 36

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete