DJ메탈짱™의 Free Style

' 이름 : F_CallRFC ' 내용 : SAP 함수 호출 ' – sFName : 함수이름 ' - sInId : Import parameter (조건필드) ' - sInValue : Import parameter value (조건값) ' - sOut : Export parameter ' – IsTable : Y(Table) / N(export parameter) Function F_CallRFC(sFName, sInId, sInValue, sOut, IsTable) Dim sResultSet ' 함수결과값 반환(테이블) Dim RFCFNC ' SAP연결 실패시 함수 종료 If Not sSapResult then Exit Function End if ' 함수 호ㅗ출 실행 후 결과값 바인딩 Set RFCF..

' 함수객체선언 Set SAPFNC = Server.CreateObject("SAP.Functions") ' 이름 : SAP 연결정보 ' 내용 : DCOM은 Windowos2008 R2 64bit환경에서는 지원이 되지 않아 SAP Object 사용하여 연결Sub SAPConnection() Set RFCCON = SAPFNC.Connection sDestIp = "서버IP" sDestClient = "501"sDestNum = "10" With RFCCON .ApplicationServer = sDestIp .Client = sDestClient .User = "접속아이디" .Password = "접속암호" .Language = "ko" .SystemNumber = sDestNum .SAPRouter =..