窗体报表显示按钮的事件如下:
'2006/06/01 start SVFからActiveReportsへの変更対応
'*************************************************
'* プロシジャー名 : cmdPrint_Click
'* 機能概要 : 設定連絡表????????処理
'* 入力引数 : なし
'* 出力引数 : なし
'* 作成者 : NSD岡田
'* 作成日 : 2006/06/02
'* 更新履歴 : 2006/06/01 start SVFからActiveReportsへの変更対応
'*************************************************
Private Sub cmdPrint_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPrint.Click
'''''todo
'Dim rptObj As Object
Dim rptObj As New ACRFBR00500
'''''''todo
' Dim acRep As New DDActiveReports2.ActiveReport
Dim acRep As New GrapeCity.ActiveReports.SectionReport
Dim preView As New prvfbr00500
' 2013/04/23 マイグレーション対応 【移行手順書-VB to VB.Net-15】
' Dim strSql As String
Dim lngRowCnt As Integer
Dim lngRowEnd As Integer
Call gp_TraceAdd("cmdPrint_Click") '????追加
' 業務依頼NO:A91414 2010/03/25 NSD.Hirao Insert Start --->
If Me.lblNhnError.Visible Then
Call gfint_MsgBox(gobjOraDatabase, "I001", fstrPgmID)
End If
' 業務依頼NO:A91414 2010/03/25 NSD.Hirao Insert End <---
' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-14】
''部品区分名称取得(生産品????用)
'strSql = "select CODE_MEI_KJ" & " from FZT010 " & " where CODE = 'B0003'" & " and SND_CODE = '1'"
'gobjOraDynaset = gfobj_OraGetDynaset(gobjOraDatabase, strSql, gobjOraflds)
gobjOraDynaset = fmyModule.cmdPrint_Click_Sel()
' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-5】
' 2013/04/10 マイグレーション対応 【移行手順書-画面表示とロジックの分離-6】
''UPGRADE_WARNING: オブジェクト gobjOraDynaset.RecordCount の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
'If gobjOraDynaset.RecordCount > 0 Then
' fstrSsnMei = gfstr_NullToStr(gobjOraDynaset!CODE_MEI_KJ)
'Else
' fstrSsnMei = "生産品"
'End If
'UPGRADE_WARNING: オブジェクト gobjOraDynaset.RecordCount の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
If gobjOraDynaset.Rows.Count > 0 Then
fstrSsnMei = gfstr_NullToStr(gobjOraDynaset.Rows(0)("CODE_MEI_KJ"))
Else
fstrSsnMei = "生産品"
End If
'??????????から生産品を????する
flngSsnCnt = 0
lngRowEnd = CInt(lblCntHnbn.Text)
With spsList
' 2013/04/17 マイグレーション対応 【移行手順書-Spread-39】
'For lngRowCnt = 1 To lngRowEnd
For lngRowCnt = 0 To lngRowEnd - 1
' 2013/04/17 マイグレーション対応 【移行手順書-Spread-30】
'.Row = lngRowCnt
'.Col = SP_COL_ATKAI_KBN
'If Trim(.Text) = fstrSsnMei Then
If Trim(.ActiveSheet.Cells(lngRowCnt, SP_COL_ATKAI_KBN).Text) = fstrSsnMei Then
flngSsnCnt = flngSsnCnt + 1
End If
Next
End With
'ActiveReportで????を印刷する
rptObj = New ACRFBR00500
'UPGRADE_WARNING: オブジェクト rptObj.Printer の既定プロパティを解決できませんでした。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' をクリックしてください。
''todo
' rptObj.Printer = acRep.Printer
''''TODO↓↓
Dim paraHash As Hashtable = New Hashtable
paraHash.Add("lblDate", lblDate.Text)
paraHash.Add("imtKian_no", imtKian_no.Text)
paraHash.Add("imtKnmi_kj", imtKnmi_kj.Text)
paraHash.Add("imtBmn_code", imtBmn_code.Text)
paraHash.Add("imtBmn_mei", imtBmn_mei.Text)
paraHash.Add("imtSyain_mei_kj", imtSyain_mei_kj.Text)
paraHash.Add("txtGKygiBi", txtGKygiBi.Text)
paraHash.Add("txtHnkKbn", txtHnkKbn.Text)
paraHash.Add("lblCntHnbn", lblCntHnbn.Text)
paraHash.Add("txtHnbKgn0", txtHnbKgn(0).Text)
paraHash.Add("txtHnbKgn1", txtHnbKgn(1).Text)
paraHash.Add("txtHnbKgn2", txtHnbKgn(2).Text)
paraHash.Add("txtNhnKgn0", txtNhnKgn(0).Text)
paraHash.Add("txtNhnKgn1", txtNhnKgn(1).Text)
paraHash.Add("txtNhnKgn2", txtNhnKgn(2).Text)
paraHash.Add("lblCnt_page", lblCnt_page.Text)
paraHash.Add("spsList", spsList)
''''TODO ↑↑
rptObj.Run()
paraHash.Clear()
' preView.p_RunReport(rptObj)
preView.p_RunReport(rptObj)
'かがみ(???)+明細(???)の???????表示
preView.Show()
Call gp_TraceInit() '???????
End Sub |