페이지 이력

'=================================================
' i-AUD Server Script 호출 예제
'   i-AUD Designer 에서 Server Script 작성 후 해당 Script 를 호출 할수 있습니다.
'=================================================
Sub GetServerScript()
    Dim rowCntmxmodule As IntegerObject
    Dim mxmodulesvc As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
  
    '입력된Server Dataset의Script 조회된호출 데이터준비
건수    Set rowCntsvc = mxmodule.xapi.GetDatasetRowCountGetServerScript("DS")
 
    '데이터parameter 건수가추가
-1이면 오류, 데이터셋명 확인 svc.AddParam    If (rowCnt > -1) Then"VS_NAME", Range("VS_NAME").Value
    
    mxmodule.xapi.MessageBox rowCnt & "건 출력", VbMsgBoxStyle.vbInformation
'i-AUD 보고서 code, ServerScript Code
   Else
        mxmodule.xapi.MessageBox "데이터셋을 확인하세요.", VbMsgBoxStyle.vbExclamation svc.Execute "REP379AD55AC6E447CFA3AB9577E043CC4D", "@SVC"
    End
If
End Sub