<% ' ' %> <% main() Sub main() Dim DenpyoNo, Torihikibi, DenpyoTekiyo,TorihikisakiCD '伝票番号、取引日、伝票摘要、取引先CD Dim DenpyoSyoriKubun,TujyoHenpinKubun,PageType '伝票処理区分、通常返品区分、ページタイプ Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim Kingaku(5) '金額 Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim KarikataGokei, KashikataGokei '借方合計、貸方合計 Dim Query Dim Content Dim Genkin, Toza Dim Amend Dim Shimei Dim GakuseiShimei Dim RouteType Dim SakujyoFlg Dim DenpyoKubun SakujyoFlg = 0 RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") PageType = Request("PageType") Dim ShowDel ShowDel = Request("ShowDel") Dim title If PageType = "Shiire" Then title = "仕入伝票" DenpyoKubun = "D3" Else title = "売上伝票" DenpyoKubun = "D4" End If If DenpyoNo <> "" Then '/////// １．「伝票」ヘッダ部のデータを取得。 If PageType = "Shiire" Then Query = "exec SPK伝票_仕入伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Else Query = "exec SPK伝票_売上伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SakujyoFlg = Content.Fields("削除フラグ") Torihikibi = Content.Fields("取引日") End IF End If Dim NextDenpyoNo, PrevDenpyoNo Query = "exec SPK伝票次番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextDenpyoNo = Content.Fields("伝票番号") End If Query = "exec SPK伝票前番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then PrevDenpyoNo = Content.Fields("伝票番号") End If Dim NextTitle, NextCmd, PrevTitle, PrevCmd If NextDenpyoNo <> "" Then NextTitle = "次へ" NextCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "&ShowDel=" & ShowDel & "')" End If If PrevDenpyoNo <> "" Then PrevTitle = "前へ" PrevCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "&ShowDel=" & ShowDel & "')" End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(2)) If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "伝票", "", Title, "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", Title, "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SakujyoFlg = "0" And RouteType <> "ViewOnly" And InStr(RouteType, "Hakushi") < 1 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage.asp?PageType=" & PageType & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()", "", "", "", "")) Else '削除済みもしくは、InStr(RouteType, "ViewOnly") > 0 Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fk_shiireuriage.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "一覧表示", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", NextTitle, NextCmd, PrevTitle, PrevCmd, "", "")) End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL4(Title, "")) Else Response.Write(HttpL4(Title, "照会")) End If %> <% = HtmlFooter %> <% End Sub %>