<% ' ' ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName , SaimokuKubun ,GyoshuKubun Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If KanriKubun = Request("KanriKubun") GyoshuKubun = Request("GyoshuKubun") SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If Dim RouteType RouteType = Request("RouteType") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If Dim Title Title = "勘定科目マスター" If GyoshuKubun = "B" Then Title = "銀行" & Title ElseIf GyoshuKubun = "G" Then Title = "製造原価" & Title End If 'サイバー会計のユーザー科目表示時の絞込みフラグ Dim HyojiFlg2 HyojiFlg2 = Request("HyojiFlg2") If HyojiFlg2 = "" Then If GB_Admin < 1 Then HyojiFlg2 = "2" Else HyojiFlg2 = "0" End If End If Dim EnshuKubun Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") EnshuName = Content.Fields("演習名称") End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 40 RowCount = 0 Dim KaishaGakuseiCD KaishaGakuseiCD = GB_GakuseiNo If EnshuKubun = "G" And GB_Admin < 1 Then KaishaGakuseiCD = GB_KaisyaCD End If Query = "exec SPM勘定科目詳細一覧全部 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & SaimokuKubun & "', " & HyojiFlg2 & ", '" & KaishaGakuseiCD & "'" ' Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% Response.Write(PrintHeader(Page,Title)) %>
<% If 0=1 And GyoshuKubun = "G" Then '原価会計機能は製造部機能に変わったので廃止 %> <% End If %>
勘定
CD
勘定名称 勘定
区分
勘定細目 貸借 分析区分 費用区分 チェック
区分
特別勘定区分 集計
CD
キフ
CD
原価
CD
株資
CD
<% Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) If HyojiFlg2 = "0" Or (HyojiFlg2 = "1" And Trim("" & Content.Fields("所有会社CD")) = "") Or (HyojiFlg2 = "2" And Content.Fields("所有会社CD") = KaishaGakuseiCD) Then RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If 0=1 And GyoshuKubun = "G" Then '原価会計機能は製造部機能に変わったので廃止 Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Content.MoveNext Exit Do End If End If Content.MoveNext Loop For jj = ii To 39 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If GyoshuKubun = "G" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>
" & Content.Fields("勘定CD") & "" & Content.Fields("勘定名称") & "" & Content.Fields("勘定区分名称") & "" & Content.Fields("勘定細目名称") & "" & Content.Fields("貸借区分名称") & "" & Content.Fields("分析区分名称") & "" & Content.Fields("費用区分名称") & "" & Content.Fields("チェック区分名称") & "" & Content.Fields("特別勘定区分名称") & "" & Content.Fields("諸表集計CD") & "" & Content.Fields("キャッシュフロー計算書集計CD") & "" & Content.Fields("製造原価報告書集計CD") & "" & Content.Fields("株主資本等変動計算書集計CD") & "
<% Response.Write(PrintFooter()) %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>