어제 올렸던 소스는 샘플자료로 가지고 있던 소스이였으며 적용소스는 아래와 같습니다.
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 | 301 |
2310 | 회원문의 [1] | CSI | 2016.08.05 | 2 |
2309 | easy ABAP 2차 모임 동영상 by 無念군 [3] | 보나 | 2009.03.23 | 25 |
2308 | 늦었지만 새해 복 많이 받으세요 | 필교 | 2024.01.04 | 51 |
2307 | 배부 경비의 리시버/샌더 내역을 알고 싶습니다. | 빠바빵 | 2024.02.19 | 72 |
2306 | ^^ [1] | SAP아가씨 | 2008.06.17 | 78 |
2305 | 회원가입 | 삼색나물 | 2023.11.07 | 78 |
2304 | sp02 대체 | 조랭이떡 | 2024.04.25 | 80 |
2303 | IW51에서 문서 작성 후 문서번호 찾는법 | blouson1 | 2022.10.21 | 87 |
2302 | 폰트사이즈 키우기 | 아바뻐 | 2023.11.24 | 89 |
2301 | NAS 파일 연결 to SAP | shhan | 2024.02.05 | 94 |
2300 | QM관련 질문 드려요 [1] | reach9 | 2023.05.31 | 95 |
2299 | SAP 내부생산 처리 프로세스 문의 | 삽고 | 2023.05.31 | 98 |
2298 | SAP Certi Timezone 중요한가요? | 꽑쟂 | 2024.03.16 | 101 |
2297 | 생산오더를 상산실적입력후 teco처리 하였습니다 | 청춘이야 | 2024.01.17 | 106 |
2296 | XI(Proxy) 관련 질문있습니다. | 쩨비 | 2023.12.18 | 116 |
2295 | 새해 복 많이 받으세요~ [2] | Hwable | 2021.12.31 | 119 |
2294 | 입력시 한글 깨지는 문제(자음, 모음 분리됨) | yoon123 | 2022.08.09 | 135 |
2293 | 비가 많이 오네요 [1] | 필교 | 2023.05.06 | 136 |
2292 | SAP자격증 물류직 취업에 도움이 될까요? | SAPSAPSA | 2024.02.08 | 136 |
2291 | 오픈채팅방의 고프로님 내보내기 잘못 눌렀습니다. | sapjoy | 2024.02.13 | 137 |
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