<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 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 title = "材料仕入伝票" DenpyoKubun = "D7" If DenpyoNo <> "" Then '/////// １．「伝票」ヘッダ部のデータを取得。 ' If PageType = "仕入伝票" 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_zairyoshiire_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "&ShowDel=" & ShowDel & "')" End If If PrevDenpyoNo <> "" Then PrevTitle = "前へ" PrevCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_zairyoshiire_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "&ShowDel=" & ShowDel & "')" End If %> <% = AppTitle %> <% 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, "", "", "", "", "")) Else 'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "材料仕入伝票", "", "", "", "", "")) 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')", "材料仕入伝票", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SakujyoFlg = "0" And RouteType <> "ViewOnly" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_zairyoshiire.asp?PageType=" & PageType & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()", "", "", "", "")) Else '削除済みもしくは、InStr(RouteType, "ViewOnly") > 0 Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If 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_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fk_zairyoshiire.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", NextTitle, NextCmd, PrevTitle, PrevCmd, "", "")) End If Response.Write(HttpL4(Title, "照会")) %> <% = HtmlFooter %> <% End Sub %>