/* *********************************************************************************************************************
---------------------------------------------------------------------------------------------------------------------
※※※ VB 에서 DataWindow Report 출력 방법
---------------------------------------------------------------------------------------------------------------------
********************************************************************************************************************* */
' 출력 버튼
Protected Overrides Sub DoPrintEvent()
WinMethod.WaitMessage("조회중.....프린트")
Dim parms As New SiS.Framework.Data.DBParameterCollection()
parms.Add("argGbn", Func.NVL(chkArgGbn.EditValue, "Y"))
parms.Add("argBasisDate", dteArgBasisDate.EditValue)
parms.Add("argBusiPlace", lueArgBusiPlace.EditValue)
parms.Add("argCustCode", Func.NVL(cteArgCust.CodeEditValue, "*****"))
Dim pblName As String = "sadw040_sprt.pbl"
Dim dwName As String = "d_sa040r91"
Dim dsPrintPreview As New Sybase.DataWindow.DataStore
dsPrintPreview.SetFullState(CMUX.SharedFun.RetrieveDWobject(pblName, dwName, parmDw, True))
dsPrintPreview.Print()
dsPrintPreview.Dispose()
WinMethod.HideMessage()
End Sub
' 미리보기 버튼
Protected Overrides Sub DoPrintPriviewEvent()
WinMethod.WaitMessage("조회중.....미리보기")
Dim parmDw As New SiS.Framework.Data.DBParameterCollection()
parmDw.Add("argBasisDate", dteArgBasisDate.EditValue)
parmDw.Add("argBusiPlace", lueArgBusiPlace.EditValue)
parmDw.Add("argCustCode", Func.NVL(cteArgCust.CodeEditValue, "*****"))
parmDw.Add("argIpAddress", Func.NVL(strIpAddress, System.Net.Dns.GetHostName))
Dim pblName As String = "sadw040_sprt.pbl"
Dim dwName As String = "d_sa040r91"
Dim dsPrintPreview As New Sybase.DataWindow.DataStore
dsPrintPreview.SetFullState(CMUX.SharedFun.RetrieveDWobject(pblName, dwName, parmDw, True))
CMUX.SharedFun.ShowPrintPreview(dsPrintPreview)
dsPrintPreview.Dispose()
WinMethod.HideMessage()
End Sub