<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：運送書類表示
' 作成日：2002/9/10
' 作成者：山崎 貴史
' 修正日：2003/1/20
' 修正者：重松
' 目的 ：運送書類画面を表示する。
' 概要 ：
' <<表示>>
'################################################
'-->
'
%>
<%
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
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
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
%>
<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
%>
<% = UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0) %>
</div>
<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="UnsohiSeikyuFlg" value="<% = UnsohiSeikyuFlg %>">
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
now = 'menu0' ;
check = 0 ;
menuflag = 0 ;
//################################################
// 名称：SetUntin
// 目的：運賃請求額を更新する
// 概要：運賃諸掛をチェックし、UnsohiSeikyuFlgを更新し、運賃とUnsohiSeikyuFlgを掛け運賃請求額を求める
//################################################
function SetUntin()
{
if(form1.UntinSyogakariKubun.value == "K")
{
form1.UnsohiSeikyuFlg.value = 1;
}
else
{
form1.UnsohiSeikyuFlg.value = 0;
}
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
form1.UnsohiSeikyugaku.value = ConvIntToMoney(ConvMoneyToInt(form1.Unsohi.value) * ConvMoneyToInt(form1.UnsohiSeikyuFlg.value));
<% End If %>
}
//################################################
// 名称：SubmitCheck
// 目的：更新前に入力値をチェックする。
// 概要：TS商品Mの一覧を表示する。
//################################################
function SubmitCheck()
{
//** １．取引日のチェック
if(form1.Syoribi.value == "")
{
alert("処理日を入力して下さい");
return false;
}
//** ２．取引先のチェック
if(form1.TorihikisakiCD.value == "")
{
alert("取引先を入力して下さい");
return false;
}
//** ３．明細部のチェック
var ii;
for(ii = 1;ii <= 5; ii++)
{
var SyohinCD;
SyohinCD = document.form1["SyohinCD" + ii].value;
if(SyohinCD != "")
{
if(SyohinCD == "")
{
alert("商品コードを正しく入力して下さい");
return false;
}
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
else if(form1["Kingaku" + ii].value == "")
{
alert("商品コードと金額の両方を入力して下さい");
return false;
}
<% End If %>
}
}
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
if(ConvMoneyToInt(form1.GokeiKingaku.value) == 0)
{
alert("明細を入力して下さい");
return false;
}
<% End If %>
SubmitReal(form1);
return true;
}
//################################################
// 名称：SetKingaku
// 目的：行ごとの金額の値をセットする。
//################################################
function SetKingaku(ii)
{
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
var Kingaku;
if(form1["Tanka" + ii].value == "" || form1["Suryo" + ii].value == "" )
{
form1["Kingaku" + ii].value = "";
}
else
{
Kingaku = ConvMoneyToInt(form1["Tanka" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value)
form1["Kingaku" + ii].value = ConvIntToMoney(Kingaku, false, false);
}
<% End If %>
}
//################################################
// 名称：SetGokei
// 目的：合計金額、消費税額、税込金額 をセットする。
//################################################
function SetGokei()
{
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
var gokei;
var zei;
var ii;
gokei = 0;
for(ii = 1; ii<=5; ii=ii+1)
{
var Kingaku;
Kingaku = ConvMoneyToInt(form1["Kingaku" + ii].value);
if(Kingaku == "" || Kingaku == "isNaN")
{
Kingaku = 0;
}
gokei = gokei + Kingaku;
}
form1["GokeiKingaku"].value = ConvIntToMoney(gokei, false, false);
zei = gokei * 0.05;
zei = Math.floor(zei);
form1["SyohizeiKingaku"].value = ConvIntToMoney(zei, false, false) ;
form1["ZeikomiKingaku"].value = ConvIntToMoney(gokei + zei, false, false);
<% End If %>
}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function SakujyoBtn(){
if(confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか？"))
{
<% If SenpoFlg = 1 Then %>
tblbtn( 'fc_syorui_bin.asp?BinType=BunsyoDel&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>&RouteType=<% = RouteType %>&TorihikisakiCD=<% = TorihikisakiCD %>&SenpoFlg=1');
<% Else %>
tblbtn( 'fc_syorui_bin.asp?BinType=Del&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');
<% End If %>
}
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>