" & vbCrLf)
Response.Write("" & Content.Fields("勘定CD") & " | " & vbCrLf)
Response.Write("" & Content.Fields("勘定名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("勘定区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("勘定細目名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("貸借区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("分析区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("費用区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("チェック区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("特別勘定区分名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("諸表集計CD") & " | " & vbCrLf)
Response.Write("" & Content.Fields("キャッシュフロー計算書集計CD") & " | " & vbCrLf)
If 0=1 And GyoshuKubun = "G" Then '原価会計機能は製造部機能に変わったので廃止
Response.Write("" & Content.Fields("製造原価報告書集計CD") & " | " & vbCrLf)
End If
Response.Write("" & Content.Fields("株主資本等変動計算書集計CD") & " | " & 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("