<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：仕入売上書類表示
' 作成日：2002/9/10
' 作成者：山崎 貴史
' 目的 ：仕入売上書類画面を表示する。
' 概要 ：
' <<表示>>
'################################################
'-->
'
%>
<%
main()
Sub main()
Dim ShiireUriageKennin
Dim ShiireUriageJHB
Dim SenpoHitsuyo
Dim ShiireUriageSyoruiHikae
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用")
ShiireUriageKennin = ";" & Content.Fields("仕入売上書類検認利用") & ";"
ShiireUriageKennin = Replace(ShiireUriageKennin, ",", ";") '旧バージョン整合
ShiireUriageSyoruiHikae = "" & Content.Fields("仕入売上書類控え印刷")
End If
If ShiireHanbaiKennin <> 1 Then
ShiireUriageKennin = ""
End If
Dim SenpoFlg
Dim SakuseiKaisyaCD
Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, NonyuBasyoKubun, NonyuKijitsu
Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim SenpoSyoribi
Dim DbSenpoBunsyoNaiyoCD
Dim SenpoTmpBunsyoSyuruiCD
Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo
Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
Dim SyoruiMei
Dim Query
Dim Content
Dim Genkin, Toza
Dim Shimei
Dim RouteType
Dim SakujyoFlg
Dim KaifuFlg
Dim KenninFlg
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")
Syoribi = Request("Syoribi")
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
If KaisyaCD <> SakuseiKaisyaCD Then
SenpoFlg = "1"
Else
SenpoFlg = "0"
End If
Dim KaisyaCD1
Dim AdminMailFlag
AdminMailFlag = 0
'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
if Request("KaisyaCD1") <> "" then
AdminMailFlag = 1
KaisyaCD = Request("KaisyaCD1")
end if
Dim Kubun, SenpoSyoruiMei, Title
Dim BunsyoKubun
Dim SyoriMongon
Dim SyoriMei
'受発信文書を先方書類にするための次文書フラグ
Dim NextBunsyoSyuruiCD
NextBunsyoSyuruiCD = ""
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 "KD"
SyoruiMei = "寄託出庫依頼書"
Title = SyoruiMei
BunsyoKubun = "U"
SyoriMongon = "下記の通り御見積り依頼申し上げます。"
Case "KI"
SyoruiMei = "見積依頼書"
Title = SyoruiMei
BunsyoKubun = "S"
SyoriMongon = "下記の通り御見積り依頼申し上げます。"
NextBunsyoSyuruiCD = "KM"
Case "KM"
SyoruiMei = "見積書"
Title = SyoruiMei
BunsyoKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KI"
SyoriMei = "見積"
SyoriMongon = "下記の通り御見積り申し上げます。"
NextBunsyoSyuruiCD = "KC"
Case "KC"
SyoruiMei = "注文書"
Title = SyoruiMei
BunsyoKubun = "S"
SenpoTmpBunsyoSyuruiCD = "KM"
SyoriMongon = "下記の通り注文致します。"
NextBunsyoSyuruiCD = "KU"
Case "KU"
SyoruiMei = "注文請書"
Title = SyoruiMei
BunsyoKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KC"
SyoriMei = "請求"
SyoriMongon = "下記の通り注文をお請け致します。"
Case "KK"
SyoruiMei = "注文請書"
Title = "先方注文請書確認"
BunsyoKubun = "S"
SyoriMongon = "下記の通り注文をお請け致します。"
Case "KN"
SyoruiMei = "納品請求書"
Title = SyoruiMei
BunsyoKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KK"
SyoriMei = "請求"
SyoriMongon = "下記の通り納品請求申し上げます。"
NextBunsyoSyuruiCD = "KB"
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"
NextBunsyoSyuruiCD = "KV"
Case "KY"
SyoruiMei = "管理部売渡申込書"
Title = SyoruiMei
BunsyoKubun = "1"
NextBunsyoSyuruiCD = "KW"
Case "KV"
SyoruiMei = "管理部納品請求書"
Title = SyoruiMei
BunsyoKubun = "V"
SenpoTmpBunsyoSyuruiCD = "KX"
Case "KW"
SyoruiMei = "管理部売渡受付書"
Title = SyoruiMei
BunsyoKubun = "W"
SenpoTmpBunsyoSyuruiCD = "KY"
NextBunsyoSyuruiCD = "KP"
Case "KO"
SyoruiMei = "管理部宛物品受領書"
Title = SyoruiMei
BunsyoKubun = "X"
SenpoTmpBunsyoSyuruiCD = "KV"
Case "KP"
SyoruiMei = "管理部宛納品請求書"
Title = SyoruiMei
BunsyoKubun = "1"
SenpoTmpBunsyoSyuruiCD = "KW"
Case Else
End Select
Dim Bu, BuAddr, UrikaiType, ShiireUriageType
If BunsyoKubun = "V" Or BunsyoKubun = "X" Or BunsyoKubun = "S" Then
ShiireUriageType = "仕入"
Bu = "仕入部"
UrikaiType = "買入"
BuAddr = 3
Else
ShiireUriageType = "販売"
Bu = "販売部"
UrikaiType = "売渡"
BuAddr = 2
End If
If SyoruiMei = "" Then
SyoruiMei = SenpoSyoruiMei
End If
If BunsyoNaiyoCD <> "" Then
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
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HasshinFlg = Content.Fields("発行フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
KaifuFlg = Content.Fields("開封フラグ")
KenninFlg = Content.Fields("検認フラグ")
UnsoGaisyaCD = Content.Fields("運送会社CD")
End If
End If
'注文請書確認要不要トグル
Dim UkeshoKakunin
UkeshoKakunin = 1
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
UkeshoKakunin = Content.Fields("注文請書確認利用")
End If
If "" & UkeshoKakunin = "" Then
UkeshoKakunin = 1
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
function AutoReload() {
tblbtn("<% = Request.ServerVariables("SCRIPT_NAME") %>?<% = Request.ServerVariables("QUERY_STRING") %>");
}
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)"<%
'注文請書確認不要モードでは次の作業を指示する（091009小野）
If UkeshoKakunin <> 1 And BunsyoSyuruiCD = "KU" And Request("BinType") = "HasshinZumi" Then
%> onLoad="alert('続いて注文された商品の出庫\n及び納品請求書の送付を行ってください ')"<%
ElseIf InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 Then
'発信前に検認が必要で検認されていない場合は発信ボタン表示のためオートリロードする
%> onLoad="setTimeout('AutoReload();', 20000);"<%
End If
%> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'Response.Write("RouteType:" & RouteType & "<br>")
'Response.Write("GB_Gyosyu:" & GB_Gyosyu & "<br>")
'Response.Write("BunsyoKubun:" & BunsyoKubun & "<br>")
Dim BunsyoType
If InStr(RouteType, "RMail") > 0 Then
BunsyoType = "受信文書"
ElseIf InStr(RouteType, "SMail") > 0 Then
BunsyoType = "発信文書"
End If
Dim PageType
PageType = Request("PageType")
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, "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')", SyoruiMei , "", "", ""))
ElseIf 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 , "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Bu, "", ShiireUriageType & "書類", "", SyoruiMei, "", "", "", "", ""))
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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Dim TsuikaButton1
Dim TsuikaButton2
Dim TsuikaButton3
Dim TsuikaButton4
Dim HikaeButton1
Dim HikaeButton2
TsuikaButton1 = "追加"
TsuikaButton2 = "tblbtn('fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');"
TsuikaButton3 = "再作成"
TsuikaButton4 = "tblbtn('fd_syorui.asp?BinType=Saisakusei&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "');"
HikaeButton1 = "控え印刷"
HikaeButton2 = "PrintoutReal('&HikaeFlg=1');"
If SenpoHitsuyo = "1" And SenpoTmpBunsyoSyuruiCD <> "" Then
TsuikaButton1 = "先方書類一覧"
TsuikaButton2 = "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');"
TsuikaButton3 = ""
TsuikaButton4 = ""
HikaeButton1 = ""
HikaeButton2 = ""
End If
If ShiireUriageSyoruiHikae <> "1" And ShiireUriageSyoruiHikae <> "2" Then
HikaeButton1 = ""
HikaeButton2 = ""
End If
If InStr(RouteType, "Hakushi") > 0 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "MailOnly") > 0 Then
'先方書類としてジャンプするボタン（090925小野）
If InStr(RouteType, "RMail") > 0 And NextBunsyoSyuruiCD <> "" Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", " この書類に返信する ", "tblbtn2('fd_syorui.asp?BunsyoSyuruiCD=" & NextBunsyoSyuruiCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoBunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoNaiyoCD=" & BunsyoNaiyoCD & "');", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
End If
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 '発信済みでも削除済みでも無い
If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
'発信前に検認が必要で検認されていない場合
If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then
Response.Write(HttpL3_1("修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()", "", ""))
Else
Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, "削除", "SakujyoBtn()"))
'Response.Write(HttpL3_1("発信", "tblbtn( 'fd_syorui_bin.asp?BinType=Hasshin&UnsoGaisyaCD=" &UnsoGaisyaCD & "&Hasshin&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Syoribi=" & Syoribi & "')", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "文書として保存", ""))
End if
Else
Response.Write(HttpL3_1("", "", "修正", "tblbtn( 'fd_syorui.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "印刷", "PrintoutReal()", "削除", "SakujyoBtn()", "", ""))
End If
ElseIf SenpoFlg = "0" AND HasshinFlg = 1 AND SakujyoFlg = 0 Then '発信済みでも削除済みでも無い
Response.Write(HttpL3_1("印刷", "PrintoutReal()", HikaeButton1, HikaeButton2, TsuikaButton3, TsuikaButton4, "削除", "SakujyoBtn()", "", ""))
ElseIf SenpoFlg = "0" AND HasshinFlg = 0 AND SakujyoFlg = 1 Then '発信済みでも削除済みでも無い
Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
ElseIf SenpoFlg = "0" Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
ElseIf SenpoFlg = "0" Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", TsuikaButton3, TsuikaButton4, "", "", "", "", "", ""))
ElseIf SakujyoFlg = 0 AND BunsyoSyuruiCD = "KK" AND KaifuFlg = "0" Then '注文請書確認
Response.Write(HttpL3_1("確認", "tblbtn( 'fd_syorui_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, "Hakushi") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
ElseIf 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_syorui_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(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
ElseIf BunsyoSyuruiCD <> "KK" Then
Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=KU')", "", "", "", "", "", "", "", ""))
End If
End If
Response.Write(HttpL4(Title , ""))
If InStr(RouteType, "Hakushi") > 0 Then
Response.Write(HttpL5(""))
ElseIf 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
If ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
'発信前に検認が必要で検認されていない場合
If InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 And "" & KenninFlg <> "1" Then
Response.Write(HttpL5("<span style=""color:ff0000;"">この書類を発信するには管理者による発信許可が必要です。</span>"))
Else
Response.Write(HttpL5("「発信」ボタンを押し、相手に送ってください。"))
End if
Else
Response.Write(HttpL5(""))
End If
End If
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, 0) %>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SakujyoBtn(){
if(confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか？"))
{
tblbtn( 'fd_syorui_bin.asp?BinType=Sakujyo&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>&SakuseiKaisyaCD=<% = SakuseiKaisyaCD %>&SenpoFlg=<% = SenpoFlg %>');
}
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>