<%
'
'
%>
<%
main()
Sub main()
Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu
Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
Dim SenpoTmpBunsyoSyuruiCD
Dim UnsoCD
Dim SyohinCD(5) '商品コード
Dim SyohinName(5) '商品名称
Dim Kakaku(5) '標準価格
Dim Suryo(5) '数量
Dim Tanka(5) '単価
Dim Kingaku(5) '金額
Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo
Dim GokeiKingaku '合計
Dim SyohizeiKingaku '消費税
Dim ZeikomiKingaku '税込み金額
Dim Checked_N,Checked_R
Dim GakuseiShimei '学生氏名（係印）
Dim GakuseiBango
Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
Dim SyoruiMei
Dim Query
Dim Content
Dim Genkin, Toza
Dim Shimei
Dim RouteType
Dim SakujyoFlg
Dim SakuseiKaisyaCD
Dim PageType
PageType = Request("PageType")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
RouteType = Request("RouteType")
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
Dim SenpoFlg
SenpoFlg = 0
If SakuseiKaisyaCD <> KaisyaCD Then
SenpoFlg = 1
End If
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
TorihikisakiCD = Request("TorihikisakiCD")
UnsoCD = Request("UnsoCD")
Dim Kubun, SenpoSyoruiMei, Title
Dim SyoruiKubun
Title = ConvKubunMeisyo("文書区分", BunsyoSyuruiCD)
If BunsyoNaiyoCD <> "" Then
Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HasshinFlg = Content.Fields("発行フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
End If
End If
Dim jj,tmps
%>
<% = 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 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 '特殊ウィンドウ以外
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", Title, "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'****************************
If SakujyoFlg ="" Then
SakujyoFlg = 0
End If
If SakujyoFlg =" " Then
SakujyoFlg = 0
End If
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "RMail") > 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
ElseIf SenpoFlg = 0 AND HasshinFlg <> 1 AND SakujyoFlg <> 1 Then '発信済みでも削除済みでも無い
Response.Write(HttpL3_1("発信", "tblbtn( 'fc_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
ElseIf SenpoFlg = 0 AND HasshinFlg <> 1 Then '発信済みでも削除済みでも無い
Response.Write(HttpL3_1("発信", "tblbtn( 'fc_syorui_bin.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "&TorihikisakiCD=" & DbTorihikisakiCD & "&hasshin=1')", "修正", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
ElseIf SenpoFlg = 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&ResendFlg=1')", "削除", "SakujyoBtn()", "", "", "", ""))
ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" Then '注文請書確認
Response.Write(HttpL3_1("確認", "tblbtn( 'fc_syorui_view.asp?BinType=Kaifu&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&TorihikisakiCD=" & TorihikisakiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & SenpoBunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
ElseIf SakujyoFlg = 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
End If
''''''''', "削除", "SakujyoBtn()"
If InStr(RouteType, "MailOnly") > 0 Then
If SenpoFlg <> "1" Then
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')"))
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 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( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
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 BunsyoSyuruiCD <> "KK" Then
Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fc_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
End If
End If
Response.Write(HttpL4(Title , ""))
If 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
%>
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
<% = HtmlFooter %>
<%
End Sub
%>