이 기능을 사용하기 위해서 개발자는 웹서버 혹은 연결할 프로그램이 위치할 서버에 SAP GUI를 설치해야 한다.

이것을 IBM Domino에서 적용해 보았다.


'--- SAP Connection Function Lotus Script ---
Sub Initialize
선언 생략 ~~~~~~~~~~~~~~~~~~~~~~~~

 On Error Goto ErrHandle
 Set doc = ss.DocumentContext
 Set logdb = New NotesDatabase( db.server , logdbpath )
 
 Messagebox "***************** SAP Interface START ********************"
 
  '##  Connecting try to SAP
  Call SAPTestSeverConnect  
  If ConnectFlag = False Then Err = 9998  
  If ZHR_HOLIDAY_WORK() = "Lock" Then
   Err = 9999
  End If
 
  Messagebox "***************** SAP Interface END ********************"
  Exit Sub
 
ErrHandle:
  .............

End Sub

'--- SAP Connection Subroutine ---

Sub SAPTestSeverConnect
 
'SAP연결맺기
선언 생략 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``

 On Error Goto ErrHandle
 
 ConnectFlag = False

 Set logon = CreateObject("SAP.LogonControl.1")
 
 With logon
  .ApplicationServer = "sap server ip address"
  .Client = ConnDoc.120"
  .User = "userid"
  .Password = "password"
  .Language = "EN"
  .SystemNumber = "100"
 End With
 
 If conn.logon(0, True) <> True  Then  
  ConnectFlag = False
 Else
  ConnectFlag = True
 End If
 Exit Sub
 
ErrHandle:
 .......
End Sub


Function ZHR_HOLIDAY_WORK As String
 
 On Error Goto ErrHandle
 
 Set Functions = CreateObject("SAP.Functions")
 Set Functions.Connection = conn  
 Set Func = Functions.Add("ZHR_HOLIDAY_WORK")
 
' ExportData
  Func.Exports("I_Data1") = pid  
  Func.Exports("I_Data2") = workday
  Func.Exports("I_Data3") = worktype
 
  If Func.Call <> True Then
   Msgbox " Call failed. Exception" + Func.Exception
   ZHR_HOLIDAY_WORK = "Call failed. Exception" + Func.Exception
  End If
 
  Dim e_flag As String , e_message As String
 
  e_flag = Func.Imports("E_FLAG").value
  e_message = Func.Imports("E_MESSAGE").value
 
  Call OTRowDataCreate(i , e_flag , e_message, doc.WorkDay(i)) ' Writting log
 
  If e_flag = "E" Then
   alertbox("lock")
   ZHR_HOLIDAY_WORK = "Lock"
   Err = 9999
  End If
 
  ZHR_HOLIDAY_WORK = ""
 
 Exit Function
 
ErrHandle:
 ...................
End Function

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.