어제 올렸던 소스는 샘플자료로 가지고 있던 소스이였으며 적용소스는 아래와 같습니다.
asp에서 sap 인터페이스 연동하는데 logon이 계속 않되고 있습니다.
서버 : 가상화서버에서 작업중이며 Windows Server 2012 R2 64비트 입니다.
해당서버에는 SAPGUI (730)을 설치했습니다.
Dim sapConnection, functionCtrl
Dim retcd
Dim theFunc
Dim returnFunc
Dim docs
Dim T_PERSON
Dim i
Dim pernr
'SAP 접속 함수
Sub ConnectSAP()
Set sapConnection = Server.CreateObject("SAP.Logoncontrol.1")
Set sapConnect = sapConnection.NewConnection
sapConnect.System = ""
sapConnect.ApplicationServer = "xxx.xxx.xxx.xxx"
sapConnect.SystemNumber = "00"
sapConnect.User = "INF_SPM"
sapConnect.Password = "INF_SPM"
sapConnect.Client = "100"
sapConnect.Language = "KO"
'sapConnect.Codepage = "8500"
retcd = sapConnect.Logon(0,true)
If RetCd = False Then
Response.write "SAP Logon Failed."
Response.End
Else
Response.write "SAP Logon Succeeded."
Response.End
End If
Set functionCtrl = Server.CreateObject("SAP.Functions")
functionCtrl.Connection = sapConnection
End Sub
'SAP 접속 종료 함수
Sub CloseSAP()
functionCtrl.Connection.logoff
Set sapConnection = Nothing
Set functionCtrl = Nothing
End Sub
ConnectSAP()
위와 같이 작성하여 실행 했을때 "SAP Logon Failed." 만 계속 뜹니다.
sap를 처음 접하는 저로선 무슨 문제가 있는 모르겠네요...ㅠㅠ
위에 소스도 검색해서 찾은 소스입니다.
위의 문제에 대해 조언 좀 부탁드립니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | SAPJoy 오픈 채팅방 주소 [3] | sapjoy | 2024.02.13 | 290 |
430 | 아밥 개인스터디... [2] | 쿠마 | 2008.10.23 | 7759 |
429 | ABAP에서 많이 쓰이는 프로그래밍 방법?? | 햇병아리 | 2008.10.23 | 7545 |
428 | 레벨제한.. [4] | 하핫 | 2008.10.20 | 7640 |
427 | SAP GUI 파일 다운로드 관련해서... [4] | Lynx | 2008.10.15 | 9396 |
426 | 업무 프로세스를 이해하기 위한 참고 도서 질문 [4] | 카츠 | 2008.10.15 | 7608 |
425 | 잠시 머리식히는 시간을 가져보아요~ [1] | 한사 | 2008.10.10 | 8303 |
424 | 숲을 볼 수 있는 안내서(?)를 찾습니다. ^^ [5] | 십년만에 | 2008.10.07 | 7258 |
423 | JAVA에서 SAP으로 전향할려는데 괜찮을까요? [11] | 쿠마 | 2008.09.23 | 9355 |
422 | SAP실력에 대한 기준은? [5] | SAP폐인 | 2008.09.22 | 6470 |
421 | 추천좀 해주세요. [2] | 찰리 | 2008.09.20 | 6711 |
420 | 깔끔한 디자인과 빠른 뉴 사이트 [4] | SD2 | 2008.09.12 | 7305 |
419 | 와우^^ 사이트가 엄청 빨라졌네요^^ [3] | Norton | 2008.09.11 | 6992 |
418 | E-abap개편 축! [13] | 썬 | 2008.09.10 | 7089 |
417 | sap 초보자 입니다.. [2] | 영광 | 2008.09.09 | 6419 |
416 | 개발자분들..노트북 어떤거 쓰세요? [19] | 다급 | 2008.09.01 | 8157 |
415 | SAP 시스템에 녹아있는... [4] | 찰리 | 2008.08.29 | 6747 |
414 | SAP 베트남어 지원 여부 [2] | 둘리67 | 2008.08.28 | 8017 |
413 | 윈도우 백그라운드 서비스에 대해 참고하세요^^ | Norton | 2008.08.20 | 9660 |
412 | CO이해를 위한 [1] | 싸마 | 2008.08.14 | 7278 |
411 | ABAP의 미래가 궁금합니다^^ [6] | Norton | 2008.08.13 | 7076 |
SAP 접속 함수 부분에 이상이 있어 보입니다.
아래는 userform에서 버튼을 클릭했을 경우에 화면의 데이터를 sap으로 전송하고
전송된 결과값을 받아오는 예제입니다.
주의 하실 것은 ocx 파일을 참조하셔서 프로그램을 해야 합니다.
' note.
' 2개 참조로 추가해준다.
' C:Program FilesSAPFrontEndSAPguiwdtfuncs.ocx
' C:Program FilesSAPFrontEndSAPguiWDTAOCX.OCX
Private Sub CommandButton4_Click()
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functinCtrl.Connection
sapConnection.User ="user"
sapConnection.Password = "password"
sapConnection.System = "xxx"
sapConnection.ApplicationServer = "xxx.xxx.xxx.xxx"
sapConnection.SystemNumber = "00"
sapConnection.Client = "710"
sapConnection.Language = "KO"
if sapConnection.Logon(0, True ) Then
Else
MsgBox "No connection to R/3!"
Exit sub
End if
Set theFunc = functionCtrl.Add("ZPP_PDA_INTF")
if theFunc is Nothing Then
MsgBox "Create function module object failed"
Exit sub
End if
theFunc.Exports("I_WERKS") = TextBox1.Text