<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi, Syuryobi ,GB_GakuseiBango Dim RouteType RouteType = Request("RouteType") Dim WidthCell1, WidthCell2, WidthParent, WidthParent2 WidthCell1 = 230 WidthCell2 = 55 ' WidthParent = 690 ' WidthParent2 = 688 Dim Query Dim Content Dim AdminCode Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then AdminCode = Content.Fields("管理者コード") End If Dim InputSokanjyoMototyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") End If %> <% = HtmlHeader("") %> <% = PrintScriptX %>
<% Dim PageNo, RowBreakNum, RowCount, KaiPageFlg, TotalRowCount PageNo = 1 RowCount = 0 KaiPageFlg = 1 TotalRowCount = 0 RowBreakNum = 25 Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) Dim jj, ii ii = 0 Do While Not(Content.BOF Or Content.EOF) If UCase(Content.Fields("商品CD")) <> "ETCSHOHIN" Then '「その他の商品」を除外 If Not(IsNull(Content.Fields("伝票仕入数量"))) Or Not(IsNull(Content.Fields("伝票仕入返品数量"))) Or Not(IsNull(Content.Fields("伝票売上数量"))) Or Not(IsNull(Content.Fields("伝票売上返品数量"))) Or Not(IsNull(Content.Fields("入出庫仕入数量"))) Or Not(IsNull(Content.Fields("入出庫仕入返品数量"))) Or Not(IsNull(Content.Fields("入出庫売上数量"))) Or Not(IsNull(Content.Fields("入出庫売上返品数量"))) Then RowCount = RowCount + 1 TotalRowCount = TotalRowCount + 1 if KaiPageFlg = 1 then Response.Write(PrintHeader(0, "商品チェック")) Response.Write(PrintFooter()) %>
<% KaiPageFlg = 0 end if ii = ii + 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("") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If End If Content.MoveNext if RowCount => RowBreakNum And (RowCount Mod RowBreakNum = 0) then 'ページ終端の処理 Response.Write("
商品 仕入・売上伝票(基準) 入出庫
仕入 仕入返品 売上 売上返品 仕入 仕入返品 売上 売上返品
") If UCase(GB_GakuseiNo) = UCase(AdminCode) Then Response.Write(AscLeft(ConvSyohinMeisyoAdmin(Content.Fields("商品CD"),ConvKaisyaGakuseiNo(EnshuCD,KaisyaCD)),22)) '商品名称を22byteで切捨て(061101小野) Else Response.Write(AscLeft(ConvSyohinMeisyo(Content.Fields("商品CD")),22)) '商品名称を22byteで切捨て(061101小野) End If Response.Write("" & ConvIntToMoney(Content.Fields("伝票仕入数量"), false, true) & "" & ConvIntToMoney(Content.Fields("伝票仕入返品数量"), false, true) & "" & ConvIntToMoney(Content.Fields("伝票売上数量"), false, true) & "" & ConvIntToMoney(Content.Fields("伝票売上返品数量"), false, true) & "") If (Content.Fields("伝票仕入数量") = Content.Fields("入出庫仕入数量")) Or (IsNull(Content.Fields("伝票仕入数量")) And IsNull(Content.Fields("入出庫仕入数量"))) then Response.Write(ConvIntToMoney(Content.Fields("入出庫仕入数量"), false, true)) Else Response.Write("" & ConvIntToMoney(Content.Fields("入出庫仕入数量"), false, true) & "×") End If Response.Write("") If (Content.Fields("伝票仕入返品数量") = Content.Fields("入出庫仕入返品数量")) Or (IsNull(Content.Fields("伝票仕入返品数量")) And IsNull(Content.Fields("入出庫仕入返品数量"))) then Response.Write(ConvIntToMoney(Content.Fields("入出庫仕入返品数量"), false, true)) Else Response.Write("" & ConvIntToMoney(Content.Fields("入出庫仕入返品数量"), false, true) & "×") End If Response.Write("") If (Content.Fields("伝票売上数量") = Content.Fields("入出庫売上数量")) Or (IsNull(Content.Fields("伝票売上数量")) And IsNull(Content.Fields("入出庫売上数量"))) then Response.Write(ConvIntToMoney(Content.Fields("入出庫売上数量"), false, true)) Else Response.Write("" & ConvIntToMoney(Content.Fields("入出庫売上数量"), false, true) & "×") End If Response.Write("--------") If (Content.Fields("伝票売上返品数量") = Content.Fields("入出庫売上返品数量")) Or (IsNull(Content.Fields("伝票売上返品数量")) And IsNull(Content.Fields("入出庫売上返品数量"))) then Response.Write(ConvIntToMoney(Content.Fields("入出庫売上返品数量"), false, true)) Else Response.Write("" & ConvIntToMoney(Content.Fields("入出庫売上返品数量"), false, true) & "×") End If Response.Write("
" & vbCrLf) Response.Write("×が付いている項目は、伝票の数値と異なっている部分です。" & vbCrLf) Response.Write(PageBreakBefore) RowCount = 0 KaiPageFlg = 1 end If if Content.BOF Or Content.EOF then '全体終端の処理 Response.Write("
" & vbCrLf) Response.Write("×が付いている項目は、伝票の数値と異なっている部分です。" & vbCrLf) RowCount = 0 end If Loop %>
<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>