% ' ' ' %> <% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount Dim MaxCount main() Sub main() Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg, Nikubun, NikubunFlg Dim TanaorosiKubun Dim Query Dim Content ' Dim i Dim RowCount, RowBreakNum Dim TyohyoHeader, TableHeader, TableFooter RowBreakNum = 10 RowCount = 0 Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") Nikubun = Request("Nikubun") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If If Nikubun = "1" Then 'チェックあり NikubunFlg = "checked" Else NikubunFlg = "" End If Dim bExistSyuseiKinyu bExistSyuseiKinyu = 0 Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then bExistSyuseiKinyu = 1 End If TyohyoHeader = TyohyoHeader & "
" & vbCrLf TyohyoHeader = TyohyoHeader & " | "
TyohyoHeader = TyohyoHeader & "自:" & SetDate(Kaishibi, 2) & " 至:" & SetDate(Syuryobi, 2) TyohyoHeader = TyohyoHeader & " | " & vbCrLf
If bExistSyuseiKinyu = 0 Then
If TanaorosiKubun = "1" Then
TyohyoHeader = TyohyoHeader & " [帳簿棚卸後を表示] | " & vbCrLf Else TyohyoHeader = TyohyoHeader & "" & vbCrLf End If Else If Nikubun = "1" Then TyohyoHeader = TyohyoHeader & " | [2区分損益計算書形式で表示] | " & vbCrLf Else TyohyoHeader = TyohyoHeader & "[精算表整理記入適用済] | " & vbCrLf End If End If TyohyoHeader = TyohyoHeader & "
" & vbCrLf
TableHeader = TableHeader & "
| " & vbCrLf
TableHeader = TableHeader & " |||
" & vbCrLf
TableHeader = TableHeader & "
| " & vbCrLf
TableFooter = TableFooter & "
" & TBLNAME(1,ii))
Response.Write(" | " & vbCrLf)
'金額
If TBLDSPLR(1,ii) = "R" Then
Response.Write("")
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(TBLKIN(1,ii), false, true))
Response.Write(" | " & vbCrLf)
Else
Response.Write("" & ConvIntToMoney(TBLKIN(1,ii), false, true))
Response.Write(" | " & vbCrLf)
Response.Write("" )
Response.Write(" | " & vbCrLf)
End If
'構成比
Response.Write("