페이지 이력

'=================================================
' i-AUD Server Script 호출 예제
'   i-AUD Designer 에서 Server Script 작성 후 해당 Script 를 호출 할수 있습니다.
'     여러개의 Recordset 을 return 하는 ServerScript 사용 예시 입니다.
'=================================================
Sub GetServerScript()
    Dim mxmodule As Object
    Dim svc As Object
    Dim result As Object
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    
    'Server Script 호출 준비
    Set svc = mxmodule.xapi.GetServerScript()
   
    'ServerScript 로 전달할 parameter 추가
(변수명, 값)     svc.AddParam "VS_VAR1NAME", "value1test"
     
    'i-AUD 보고서 code, 보고서에 작성된 ServerScript Code
    Set result = svc.Execute ("REP71C687A01A0C46D48826C256B113F0B9", "@SCRIPT_OK")
     
    '실행 결과 확인
    If svc.result.code <> 0 Then
        MsgBox "실행 오류 발생 " & svc.result.Message
    Else
	        '데이터 출력 T1 Recordset
    	    Range("A1A5").CopyFromRecordset svc.result.GetRecordset("T1")
     	
        '데이터 출력 T2 Recordset
	        Range("Q1Q5").CopyFromRecordset svc.result.GetRecordset("T2")
    End If
 
End Sub