개발 참고자료

SAP의 화면을 작성할때 파워빌더를 이용하면 쉽고 간단하게 SAP의 RFC를 호출할 수 있다.


음...간단하게 호출하도록 만든다고 하는표현이 맞겠지요~




먼저 SAP GUI 를 설치한다.




연결 스크립트




Boolean lb_Return
string temp
long return_val
long li_ret
boolean lb_rtn
integer i,li_Rowcount = 0, row


setpointer(HourGlass!)


Sap_OLE = CREATE OLEObject // OLE 생성
li_ret = Sap_OLE.ConnectToNewObject("Sap.Functions.Unicode") //A SAP 컴포넌트와 연계
if li_Ret <> 0 then
Messagebox("확인", "SAP연결실패..")
return false
end if


//Production server (PRD)
SapConn = Sap_OLE.connection // SAP CONNECTION OLE 사용


if gs_Real_yn = "N" then
/*소스실행시 테스트서버로...*/
SapConn.ApplicationServer = "192.168.0.0" // SERVER IP ->
SapConn.SystemNumber = 00 // 디폴트 0
SapConn.user = "it" // SAP 사용자명 (실제 sap id)
SapConn.Password = "1234" // SAP 페스워드 (실제 password)
SapConn.Client = "700" // CLIENT 번호
SapConn.Language = "KO" // LANGUAGE "KO"
else
/* 운영서버 */
SapConn.ApplicationServer = "192.168.0.0" // SERVER IP ->
SapConn.SystemNumber = 00 // 디폴트 0
SapConn.user = "it" // SAP 사용자명 (실제 sap id)
SapConn.Password = "1234" // SAP 페스워드 (실제 password)
SapConn.Client = "100" // CLIENT 번호
SapConn.Language = "KO" // LANGUAGE "KO"
end if



If SapConn.logon(1, TRUE) <> True Then // LOGON
messagebox("SAP : ApplicationServer 로그인 에러 "," SAP ApplicationServer 로그인 에러입니다.")
setpointer(ARROW!)
lb_Return = false
else
lb_Return = true
End if


Return lb_Return