<% ' ' %> <% main() Sub main() Dim SenpoFlg '先方フラグ Dim SakuseiKaisyaCD '作成会社CD Dim UnsoGaisyaCD '運送会社CD Dim BunsyoSyuruiCD '文書種類CD Dim BunsyoNaiyoCD '文書内容CD Dim SenpoTmpBunsyoSyuruiCD '先方一時文書種類CD Dim DbSenpoBunsyoNaiyoCD 'DB先方文書内容CD Dim Syoribi '処理日 Dim SenpoSyoribi '先方処理日 Dim NonyuBasyoKubun '納入場所区分 Dim NonyuKijitsu '納入期日 Dim UntinSyogakariKubun '運賃諸掛区分 Dim Unsohi '運送費 Dim UnsohiSeikyuFlg '運送費請求フラグ Dim Tekiyo '摘要 Dim ShiharaiHoho '支払方法 Dim HasshinFlg '発信フラグ Dim NonyuBasyoMeisyo '納入場所名称 Dim UntinSyogakariMeisyo '運賃諸掛名称 Dim NextBunsyoNaiyoCD '次の文書内容CD Dim PrevBunsyoNaiyoCD '前の文書内容CD Dim SyoruiMei '書類名 Dim Query Dim Content Dim Genkin '現金 Dim Toza '当座 Dim Shimei '氏名 Dim RouteType Dim SakujyoFlg '削除フラグ Dim KaifuFlg '開封フラグ Dim KaisyaCD1 Dim AdminMailFlag Dim Kubun '区分 Dim SenpoSyoruiMei '先方書類名 Dim Title 'タイトル Dim BunsyoKubun '文書区分 Dim SyoriMongon '書類文言 Dim SyoriMei '処理名 Dim BinType BinType = Request("BinType") RouteType = Request("RouteType") If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If If Request("KaisyaCD") <> "" Then KaisyaCD = Request("KaisyaCD") End If SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim PageType PageType = Request("PageType") ' If InStr(RouteType, "Mail") > 0 And GB_Gyosyu = "U" Then ' Response.Redirect("/" & HomeAlias & "/user/bk/unso/syuko/fu_kitaku_syukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&RouteType=" & RouteType & "&PageType=" & PageType) ' End If Syoribi = Request("Syoribi") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = "1" Else SenpoFlg = "0" End If AdminMailFlag = 0 'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得 if Request("KaisyaCD1") <> "" then AdminMailFlag = 1 KaisyaCD = Request("KaisyaCD1") end if Select Case BunsyoSyuruiCD Case "K1" SyoruiMei = "仕入返品伝票" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り返品致します。" Case "K2" SyoruiMei = "売上返品伝票" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り返品受付致します。" Case "K3" SyoruiMei = "領収書" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り領収致しました。" Case "KI" SyoruiMei = "見積依頼書" Title = SyoruiMei BunsyoKubun = "S" SyoriMongon = "下記の通り御見積り依頼申し上げます。" Case "KM" SyoruiMei = "見積書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KI" SyoriMei = "見積" SyoriMongon = "下記の通り御見積り申し上げます。" Case "KC" SyoruiMei = "注文書" Title = SyoruiMei BunsyoKubun = "S" SenpoTmpBunsyoSyuruiCD = "KM" SyoriMongon = "下記の通り注文致します。" Case "KU" ' SyoruiMei = "注文請書" ' Title = SyoruiMei ' BunsyoKubun = "U" ' SenpoTmpBunsyoSyuruiCD = "KC" ' SyoriMei = "請求" ' SyoriMongon = "下記の通り注文をお請け致します。" SyoruiMei = "出庫依頼書" Title = SyoruiMei BunsyoKubun = "U" SyoriMongon = "下記の通り出庫依頼申し上げます。" Case "KK" SyoruiMei = "注文請書" Title = "先方注文請書確認" BunsyoKubun = "S" SyoriMongon = "下記の通り注文をお請け致します。" Case "KN" SyoruiMei = "納品請求書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KK" SyoriMei = "請求" SyoriMongon = "下記の通り納品請求申し上げます。" Case "KB" SyoruiMei = "物品受領書" Title = SyoruiMei BunsyoKubun = "S" SenpoTmpBunsyoSyuruiCD = "KN" SyoriMongon = "下記の通り受領致しました" Case "KQ" SyoruiMei = "領収書" Title = SyoruiMei BunsyoKubun = "U" SenpoTmpBunsyoSyuruiCD = "KB" SyoriMongon = "下記の通り領収致しました" Case "KX" SyoruiMei = "管理部買入申込書" Title = SyoruiMei BunsyoKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" Title = SyoruiMei BunsyoKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" Title = SyoruiMei BunsyoKubun = "V" SenpoTmpBunsyoSyuruiCD = "KX" Case "KW" SyoruiMei = "管理部売渡受付書" Title = SyoruiMei BunsyoKubun = "W" SenpoTmpBunsyoSyuruiCD = "KY" Case "KO" SyoruiMei = "管理部宛物品受領書" Title = SyoruiMei BunsyoKubun = "X" SenpoTmpBunsyoSyuruiCD = "KV" Case "KP" SyoruiMei = "管理部宛納品請求書" Title = SyoruiMei BunsyoKubun = "1" SenpoTmpBunsyoSyuruiCD = "KW" Case "KS" SyoruiMei = "出庫依頼書" Title = SyoruiMei BunsyoKubun = "U" SyoriMongon = "下記の通り出庫依頼申し上げます。" Case Else End Select If SyoruiMei = "" Then SyoruiMei = SenpoSyoruiMei End If If BunsyoNaiyoCD <> "" Then If SenpoFlg = "1" Then Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Else If BunsyoSyuruiCD = "KK" Then Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KU', '" & BunsyoNaiyoCD & "'" Else Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") KaifuFlg = Content.Fields("開封フラグ") End If End If %> <% = HtmlHeader("") %> <% Dim BunsyoType If InStr(RouteType, "RMail") > 0 Then BunsyoType = "受信文書" ElseIf InStr(RouteType, "SMail") > 0 Then BunsyoType = "発信文書" End If If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HtmlDesign(6)) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If AdminMailFlag = 1 Then Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 0 Then '文書、メールウィンドウ Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Title , "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "RMail") > 0 Or InStr(RouteType, "SMail") > 0 Then 'メインウィンドウの受発信文書 If GB_Gyosyu <> "B" 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/jyuhasshinbunsyo/')", BunsyoType, "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書" , "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo')", BunsyoType , "", "", "", "", "")) End If Else '特殊ウィンドウ以外 If GB_Gyosyu = "K" Then If BunsyoKubun = "V" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "買入受付", "", "", "", "", "")) ElseIf BunsyoKubun = "W" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "売渡受付", "", "", "", "", "")) End If '社長室・総務部の受発信から入った場合、ここを表示する (業種)GB_Gyosyu = "S"ではダメ ElseIf InStr(RouteType, "syatyo") > 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/jyuhasshinbunsyo/')", PageType , "", "", "")) Else If BunsyoKubun = "1" Or BunsyoKubun = "U" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) End If End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) '社長室・総務部の受発信から入った場合、ここを表示する ElseIf InStr(RouteType, "syatyo") > 0 Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 0 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("発信", "tblbtn( 'fd_kitaku_syukko_bin.asp?BinType=Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_kitaku_syukko.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Bintype=KitakuSyukoIraiSyusei')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "")) ElseIf SenpoFlg = "0" AND HasshinFlg = 1 AND SakujyoFlg = 0 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", "", "", "", "", "")) ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 1 Then '発信済みでも削除済みでも無い Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fd_kitaku_syukko.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "")) ElseIf SenpoFlg = "0" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fd_kitaku_syukko.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "")) ElseIf SenpoFlg = "0" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fd_kitaku_syukko.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認 Response.Write(HttpL3_1("確認", "tblbtn( 'fd_kitaku_syukko_bin.asp?BinType=Kaifu&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) ElseIf SakujyoFlg = 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If If InStr(RouteType, "MailOnly") > 0 Then If SenpoFlg <> "1" Or PageType = "発信文書" Then If AdminMailFlag = 1 Then Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) Else Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) End If Else If AdminMailFlag = 1 Then Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) Else Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) End If End If Else 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( 'fd_syukko_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=受信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=発信文書')", "", "", "", "", "", "", "", "")) '社長室・総務部の受発信から入った場合、ここを表示する ElseIf InStr(RouteType, "syatyo") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then Response.Write(HttpL3_2( "一覧表示", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD <> "KK" Then Response.Write(HttpL3_2( "一覧表示", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "先方書類一覧", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=KU')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=KU')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4(Title , "")) If Request("BinType") = "HasshinZumi" Then Response.Write(HttpL5("取引先に発信されました。")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認 Response.Write(HttpL5("「確認」ボタンを押し、注文請書を確認して下さい。")) ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認 Response.Write(HttpL5("確認されました。")) ElseIf InStr(RouteType, "ViewOnly") = 0 AND InStr(RouteType, "RMail") = 0 AND InStr(RouteType, "SMail") = 0 AND SenpoFlg = "0" AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then Response.Write(HttpL5("「発信」ボタンを押し、相手に送って下さい。")) End If %> <% = HtmlFooter %> <% End Sub %>