<% = AppTitle %>

勘定科目

検

伝票

元帳

補助簿

借方
金額

貸方
金額

残高

借方
金額

検

貸方
金額

検

残高

検

借方
金額

検

貸方
金額

検

残高

検

<% Dim Query Dim Content Dim i Dim RowCount, RowBreakNum Dim ii, jj ii = 0 RowCount = 0 RowBreakNum = 5 Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("") If Content.Fields("勘定チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") Response.Write("") Response.Write("") Response.Write("") If Content.Fields("元帳借チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") If Content.Fields("元帳貸チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") If Content.Fields("元帳残チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") If Content.Fields("補助簿借チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") If Content.Fields("補助簿貸チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("") If Content.Fields("補助簿貸チェック") = "○" then Response.Write("") Else Response.Write("") End If Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext Loop %>

" & Content.Fields("勘定名称") & "

" & Content.Fields("勘定チェック") & "

" & ConvIntToMoney(Content.Fields("伝票借方"), false, true) & "

" & ConvIntToMoney(Content.Fields("伝票貸方"), false, true) & "

" & ConvIntToMoney(Content.Fields("伝票残高"), false, true) & "

" & ConvIntToMoney(Content.Fields("元帳借方"), false, true) & "

" & Content.Fields("元帳借チェック") & "

" & ConvIntToMoney(Content.Fields("元帳貸方"), false, true) & "

" & Content.Fields("元帳貸チェック") & "

" & ConvIntToMoney(Content.Fields("元帳残高"), false, true) & "

" & Content.Fields("元帳残チェック") & "

" & ConvIntToMoney(Content.Fields("補助簿借方"), false, true) & "

" & Content.Fields("補助簿借チェック") & "

" & ConvIntToMoney(Content.Fields("補助簿貸方"), false, true) & "

" & Content.Fields("補助簿貸チェック") & "

" & ConvIntToMoney(Content.Fields("補助簿残高"), false, true) & "

" & Content.Fields("補助簿残チェック") & "