<!-- #include file="../../../../include.asp" --> <% '<!-- '################################################ ' 名称 :出庫情報設定設定 ' 作成日:2002/12/18 ' 作成者:重松 ' 目的 :出庫情報入力画面を表示する。 ' 概要 : ' <<表示>> ' <<入力チェック>> ' ・NULLチェック ' ' 修正日: ' 修正者: ' fu_syuko.asp '################################################ '--> main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim NRflg , ErrMSG , Action , setflg Dim MousikomiNum '申込番号 '保険 Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim Tanka '単価 Dim Suryo '数量 Dim Kakaku '標準価格 Dim Kingaku '金額 Dim Ryoritsu '料率 Dim HSyubetsuCode '種別CD Dim Biko '備考 Dim Mosikomibi '出庫 Dim SyukkoNo '出庫番号 Dim SyohinName '商品名称 Dim SyukoYMD '出庫年月日 Dim SyukoSuryo '出庫数量 Dim Kisu '期数 Dim SokoHokenRyo '倉庫保管料 Dim SokoNiyakukin '倉庫荷役料金 Dim SuryoTotal '総出庫数 Dim TempSuryoTotal 'Temp総出庫数 'Dim SyukoZentaka '出庫残高 '寄託 Dim KitakuNo '寄託者受付番号 Dim KitakuCD '寄託者CD Dim KitakuName '寄託者名称 Dim SyohinCD '商品コード Dim KitakuFrom '寄託期間始 Dim KitakuTo '寄託期間終 Dim KitakuSuryo '寄託数量 Dim Basyo '倉庫場所 Dim TotalSyukosu '総出庫数 Dim SyukoZentaka '出庫残高 Dim NyukoNengappi '入庫年月日 Dim NyukoSuryo '入庫数量 Dim SokoBetsu '倉庫種別 Dim Tekiyo '摘要 Dim Jyokaritsu '従価率 Dim Jyoryoritsu '従量率 Dim Niyakuritsu '荷役率 Dim HanbaiTanka '単価 Dim SyohinJyuryo '単量 Dim Nisugata '荷姿 Dim Saisu '才数 Dim Syohinyouseki '商品容積 Dim SyokenNum '倉荷証券番号 Dim SyokenTesuryo '証券手数料 Dim HokenTanka '火災保険単価 Dim HokenSougaku '火災保険総額 Dim KasaiHokenKin '火災保険料金 Dim KasaiHokenRitsu '火災保険料率 Dim HokenRyokin '保険料金 Dim NiyakuKin '荷役料金 Dim HokanSougaku Dim NyukoTekiyo Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku Dim Query Dim Content Dim CContent NRflg = Request("nr") Action = Request("Action") KitakuNo = Request("KitakuNo") SyukkoNo = Request("SyukkoNo") ErrMSG = Request("ErrMSG") If NRflg = "r" then KitakuNo = Request("KitakuNo") KaisyaCD = Request("KaisyaCD") EnshuCD = Request("EnshuCD") ErrMsg = Request("ErrMsg") End If If ( Action = 2 or Action = 3) And isnumeric(SyukkoNo) Then '検索の場合出庫情報取得 Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &"" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuNo = Content.Fields("寄託受付番号") SyukkoNo = Content.Fields("出庫番号") SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日")) SyukoSuryo = Content.Fields("出庫数量") Tekiyo = Content.Fields("摘要") Kisu = Content.Fields("期数") SokoHokenRyo = Content.Fields("保管料金") SokoNiyakukin = Content.Fields("荷役料金") End If End if If ((Action = 2) or (Action = 3) or (Action = 9)) And (isnumeric(KitakuNo)) Then '追加、 修正、検索の場合寄託情報取得 Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'," & KitakuNo Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuCD = Content.Fields("寄託者CD") KitakuNo = Content.Fields("寄託受付番号") SyohinCD = Content.Fields("商品CD") Niyakukin = Content.Fields("荷役料金") Basyo = Content.Fields("倉庫場所") SokoBetsu = Content.Fields("倉庫種別") KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日")) KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日")) Jyokaritsu = Content.Fields("従価率") Jyoryoritsu = Content.Fields("従量率") Niyakuritsu = Content.Fields("荷役料率") NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日")) KitakuSuryo = Content.Fields("寄託数量") SuryoTotal = Content.Fields("総出庫数") SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高") HokanSougaku = Content.Fields("保管料金") HanbaiTanka = Content.Fields("単価") SyohinJyuryo = Content.Fields("単量") Nisugata = Content.Fields("荷姿") Saisu = Content.Fields("才数") NyukoTekiyo = Content.Fields("摘要") End If end if If ((Action = 9) or (Action = 2) or (Action = 3)) Then '修正、検索の場合商品情報取得 'If ((Action = 2) or (Action = 3)) And isnumeric(SyohinCD) Then '修正、検索の場合商品情報取得 Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("商品CD") = SyohinCD Then Syohinyouseki=Content.Fields("商品容積") SyohinName=Content.Fields("商品略名称") End If Content.MoveNext Loop end if If SokoHokenRyo = "" Then SokoHokenRyo = 0 End If If SokoNiyakukin = "" Then SokoNiyakukin = 0 End If GokeiKingaku = SokoHokenRyo + SokoNiyakukin Syohizeigaku = Int(GokeiKingaku * GB_Shohizei / 100) ZeikomiKingaku = GokeiKingaku + Syohizeigaku if not isnumeric(SyukoSuryo) then TempSuryoTotal=0 else TempSuryoTotal=SyukoSuryo end if Dim HyojunTankaHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") End If Dim Soryo Soryo = 0 Dim Soka Soka = 0 If "" & KitakuSuryo <> "" And KitakuSuryo > 0 Then If "" & HanbaiTanka <> "" And HanbaiTanka > 0 Then Soka = HanbaiTanka * KitakuSuryo End If If "" & SyohinJyuryo <> "" And SyohinJyuryo > 0 Then '1トン未満を切り上げた総量 Soryo = Fix((SyohinJyuryo * KitakuSuryo) / 1000) If (SyohinJyuryo * KitakuSuryo) Mod 1000 > 0 Then Soryo = Soryo + 1 End If End If End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" margin margin> <form OnKeyDown="FormKeyDown(this)" method="POST" action="fu_syuko_bin.asp" name="form1" autocomplete="off"> <!--Action????--> <input type="hidden" name="Action" value="<%= Action %>"> <input type="hidden" name="SyohinCD" value="<%= SyohinCD %>"> <INPUT type="hidden" name="TempSuryoTotal" value="<%= TempSuryoTotal %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "出庫", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If Action =1 Then Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "", "", "", "", "")) ElseIf Action =2 Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "","一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "", "", "", "", "")) ElseIf Action =3 Then Response.Write(HttpL3_1("修正", "tblbtn( 'fu_syuko.asp?Action=2&SyukkoNo=" & SyukkoNo & "&KitakuNo=" & KitakuNo & "')", "削除", "DeleteCheck()", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "", "", "", "", "", "", "")) ElseIf Action =9 Then Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syuko_ichiran.asp')", "", "","", "", "", "", "", "")) End If if Action =1 then Response.Write(HttpL4("出庫", "入力")) ElseIf Action =9 then Response.Write(HttpL4("出庫", "入力")) ElseIf Action =2 then Response.Write(HttpL4("出庫", "修正")) ElseIf Action =3 then Response.Write(HttpL4("出庫", "照会")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <table width="700" border="0" cellspacing="3" cellpadding="3" bgcolor="#ffffff" style="border: 1px solid #000000"> <tr> <td align="center" background="/<% = HomeAlias %>/images/window_bk.gif"><!--薄青のチェックの背景--> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%" HEIGHT="100%"> <tr> <td valign="top"> <table border="0" width="340" CELLSPACING="0" CELLPADDING="2"> <TR valign="top"> <TD valign="top"> <table border="0" CELLSPACING="0" CELLPADDING="2" class="tx1618"> <TR> <TD>出庫番号</TD> <TD><INPUT type="text" name="SyukkoNo" size="6" value="<%= SyukkoNo %>" readonly class="tbox4_ro"> 寄託受付番号 <% If (Action = 2) or (Action = 3) Then %> <INPUT type="text" name="KitakuNo" size="6" value="<%= KitakuNo %>" readonly class="tbox4_ro"> <% else %> <SELECT name="KitakuNo" class="tbox4" onChange="SetKitakuData();"> <option value=""> </option> <% Query = "exec SPM寄託受付番号取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("寄託受付番号") & """") If Content.Fields("寄託受付番号") = KitakuNo Then Response.Write(" selected") End If 'Response.Write(">" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("会社CD")) & "</option>" & vbCrLf) Response.Write(">" & Content.Fields("寄託受付番号") & "</option>" & vbCrLf) Content.MoveNext Loop %> </select> <% end if %> </td> </TR> <TR> <TD>寄託者</TD> <TD><INPUT type="text" size="40" name="KitakuCD" value="<%= ConvKaisyaMeisyo(KitakuCD) %>" readonly class="tbox4_ro"></td> </TR> <TR> <TD>商品名</TD> <TD><INPUT type="text" size="40" name="SyohinName" value="<%= SyohinName %>" readonly class="tbox4_ro"></td> </TR> </TABLE> </TD> </TR> <TR> <TD> <TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340"> <TR bgcolor="#DDDDDD"> <TD align="center" height="23">寄託情報</TD> </TR> <TR> <TD> <TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618"> <TR> <TD><nobr>貯蔵倉庫場所 </nobr></TD> <TD><INPUT size="33" type="text" name="Basyo" value="<%= Basyo %>" class="tbox4_ro" readonly></td> </TR> </TABLE> <TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618"> <TR height="23"> <TD>寄託期間 </TD> <TD> <INPUT size="12" type="text" name="KitakuFrom" value="<%= KitakuFrom %>" class="tbox4_ro" readonly> ~ <INPUT size="12" type="text" name="KitakuTo" value="<%= KitakuTo %>" class="tbox4_ro" readonly> </TD> </TR> </TABLE> <TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618"> <TR height="23"> <TD>寄託数量 </TD> <TD> <input type="text" name="KitakuSuryo" size="11" value="<%= SetNumber(KitakuSuryo, false) %>" class="tbox5_ro" readonly> </TD> <TD>総出庫数 </TD> <TD> <input type="text" name="SuryoTotal" size="11" value="<%= SetNumber(SuryoTotal, false) %>" readonly class="tbox5_ro"> </td> </TR> <TR height="23"> <TD></TD> <TD></TD> <TD align="right">出庫残高 </TD> <TD> <INPUT type="text" name="SyukoZentaka" size="11" onkeyup="ChangeMoney(this);" value="<%= SetMoney(SyukoZentaka, false, true) %>" readonly class="tbox5_ro"> </td> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD> <TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340"> <TR bgcolor="#DDDDDD"> <TD align="center" height="23">出庫情報</TD> </TR> <TR> <TD> <TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618"> <TR> <TD><nobr>出庫日 </nobr></TD> <TD><INPUT type="text" name="SyukoYMD" value="<%= SyukoYMD %>" onBlur="SetDate(this, 1, true, '<%= KitakuFrom %>', '<%= KitakuTo %>');Kisuu();" class="tbox4" size="12"></TD> <TD> </TD> <TD><nobr>期数 </nobr></TD> <TD><input type="text" name="Kisu" value="<%= SetNumber(Kisu, false) %>" readonly class="tbox5_ro" size="6"></TD> </TR> </TABLE> <TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618"> <TR> <TD>出庫数量 </TD> <TD><input type="text" name="SyukoSuryo" value="<%= SetNumber(SyukoSuryo, false) %>" onBlur="SetNumber(this, false, 9)" class="tbox5" size="8"></TD> </TR> </TABLE> <TABLE border="0" cellspacing="0" class="tx1618" cellpadding="2"> <TR> <TD>出庫料 </TD> <TD><INPUT type="text" name="NiyakuKin" size="12" value="<%= SetMoney(NiyakuKin, false, true) %>" class="tbox5"> </TD> <TD>円(1個あたり)</TD> </TR> <TR> <TD colspan="2" align="right"><nobr>荷役料率(1t につき)</nobr></TD> <TD> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <tr> <td> <INPUT type="text" name="Niyakuritsu" size="6" value="<%= SetMoney(Niyakuritsu, false, true) %>" onBlur="SetNumber(this, false, 9, 3);" class="tbox5"> </td> <td> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetNiyakuRyokin();" class="tx1618"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>"> </TD> <TD WIDTH="85" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">出庫料計算</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> <TABLE border="0" class="tx1618" cellpadding="0"> <TR> <TD>荷役料 </TD> <TD align="top"><INPUT type="text" name="SokoNiyakukin" value="<%= SetMoney(SokoNiyakukin, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="14"></TD> </TR> <TR> <TD>保管料 </TD> <TD align="top"><INPUT type="text" name="SokoHokenRyo" value="<%= SetMoney(SokoHokenRyo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="14"></TD> <td> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetNiyakuHokanRyokin();SetGokei();" class="tx1618"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>"> </TD> <TD WIDTH="85" CLASS="tbtn3w" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>" WIDTH="100">再 計 算</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </TR> </TABLE> <TABLE border="0" class="tx1618" cellpadding="0"> <TR> <TD>合計金額</TD> <TD>消費税額</TD> <TD>請求倉庫料金</TD> </TR> <TR> <TD><INPUT type="text" name="GokeiKingaku" value="<%= SetMoney(GokeiKingaku, false, true) %>" class="tbox5_ro" readonly size="15"> </TD> <TD><INPUT type="text" name="Syohizeigaku" value="<%= SetMoney(Syohizeigaku, false, true) %>" class="tbox5_ro" readonly size="13"> </TD> <TD><INPUT type="text" name="ZeikomiKingaku" value="<%= SetMoney(ZeikomiKingaku, false, true) %>" class="tbox5_ro" readonly size="15"></TD> </TR> </TABLE> <TABLE border="0" class="tx1618" cellpadding="0"> <TR> <TD>摘要 <INPUT type="text" name="Tekiyo" value="<%= Tekiyo %>" onBlur="SetString(this, 30, true)" class="tbox4_ime" size="45"></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> <TD valign="top"> <table border="0" width="340" CELLSPACING="0" CELLPADDING="2"> <TR valign="top"> <TD valign="top"> <TABLE width="350" height="81" align="center" class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2" STYLE="border-collapse: collapse"> <tr> <td> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD> <TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%"> <TR bgcolor="#DDDDDD"> <TD align="center" height="23">商品情報</TD> </TR> <TR> <TD> <TABLE class="tx1618" border="0" cellpadding="0"> <TR> <TD>単価 </TD> <TD><INPUT type="text" name="HanbaiTanka" size="14" value="<%= SetMoney(HanbaiTanka, false, true) %>" class="tbox5_ro" readonly></TD> <TD>円 </TD> <TD>総価 </TD> <TD><INPUT type="text" name="Soka" size="14" value="<%= SetMoney(Soka, false, true) %>" readonly class="tbox5_ro"></TD> <TD>円 </TD> </TR> <TR> <TD>単量</TD> <TD><INPUT type="text" name="SyohinJyuryo" size="14" value="<%= SetNumber(SyohinJyuryo, false) %>" class="tbox5_ro" readonly></TD> <TD>kg </TD> <TD>総量 </TD> <TD><INPUT type="text" name="Soryo" size="14" value="<%= SetNumber(Soryo, false) %>" readonly class="tbox5_ro"></TD> <TD>t </TD> </TR> <TR> <TD>荷姿 </TD> <TD><INPUT type="text" name="Nisugata" size="14" value="<%= Nisugata %>" class="tbox4_ro" readonly></TD> <TD></TD> <TD>才数 </TD> <TD><INPUT type="text" name="Saisu" size="14" value="<%= SetNumber(Saisu, false) %>" class="tbox5_ro" readonly></TD> <TD></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD class="tx1214"> <TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="350"> <TR bgcolor="#DDDDDD"> <TD align="center" height="23">入庫情報</TD> </TR> <TR> <TD> <TABLE BORDER="0" class="tx1618" cellpadding="0"> <TR height="23"> <TD align="left">入庫日 </TD> <TD><INPUT size="12" type="text" name="NyukoNengappi" value="<%= NyukoNengappi %>" class="tbox4_ro" readonly> </TD> <TD align="left"><nobr>倉庫種別 </nobr></TD> <TD><INPUT size="12" type="text" name="SokoBetsu" value="<% Dim DataSibetsu DataSibetsu="倉庫種別" Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("区分CD") = SokoBetsu Then Response.Write(Content.Fields("区分名称")) Exit Do End If Content.MoveNext Loop %>" class="tbox4_ro" readonly> </TD> </TR> <TR height="23"> <TD>摘 要 </TD> <TD colspan="3"><INPUT size="42" type="text" name="NyukoTekiyo" value="<%= NyukoTekiyo %>" class="tbox4_ro" readonly> </TD> </TR> </TABLE> <TABLE border="0" class="tx1618" cellpadding="0"> <TR> <TD>入庫料 </TD> <TD><INPUT type="text" name="NiyakuKinNyuko" size="15" value="<%= SetMoney(NiyakuKin, false, true) %>" class="tbox5_ro" readonly> </TD> <TD>円(1個あたり)</TD> </TR> <TR> <TD colspan="2" align="right"><nobr>荷役料率(1t につき)</nobr></TD> <TD> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <tr> <td> <INPUT type="text" name="NiyakuritsuNyuko" size="6" value="<%= SetMoney(Niyakuritsu, false, true) %>" class="tbox5_ro" readonly> 円 </td> </tr> </table> </TD> </TR> <TR> <TD>保管料 </TD> <TD><INPUT type="text" name="HokanSougaku" size="15" value="<%= SetMoney(HokanSougaku, false, true) %>" class="tbox5_ro" readonly> </TD> <TD>円(1個あたり)</TD> </TR> <TR> <TD colspan="2" align="right"><nobr>従価率(1000円につき)</nobr></TD> <TD> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <tr> <td> <INPUT type="text" name="JyokaritsuNyuko" size="6" value="<%= SetMoney(Jyokaritsu, false, true) %>" class="tbox5_ro" readonly> 円 </td> <td> </td> </tr> </table> </TD> </TR> <TR> <TD colspan="2" align="right"><nobr>従量率(1t につき)</nobr></TD> <TD> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"> <tr> <td> <INPUT type="text" name="JyoryoritsuNyuko" size="6" value="<%= SetMoney(Jyoryoritsu, false, true) %>" class="tbox5_ro" readonly> 円 </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <br> <br> <br> <br> ※荷役料 = (1個あたり入庫料 + 1個あたり出庫料) × 出庫数<br> ※保管料 = 1個あたり保管料 × 期数 × 出庫数<br> </td> </tr> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </form> </div> </body> <SCRIPT LANGUAGE="JavaScript"> function SetNiyakuRyokin() { var Suryo var Soryo var Niyakuritsu Suryo = ConvMoneyToInt(form1.KitakuSuryo.value, false, false); Niyakuritsu = ConvMoneyToFloat(form1.Niyakuritsu.value, false, false); Soryo = ConvMoneyToFloat(form1.Soryo.value, false, false); Kingaku = Math.floor(Soryo * Niyakuritsu); //トン数×料率 //1個あたり Kingaku = Kingaku / Suryo; form1.NiyakuKin.value = ConvIntToMoney(Kingaku, false, false); } function SetNiyakuHokanRyokin() { var SyukoSuryo; var NiyakuKinNyuko; var NiyakuKin; var Kisu; var HokanSougaku; SyukoSuryo = ConvMoneyToInt(form1.SyukoSuryo.value, false, false); NiyakuKinNyuko = ConvMoneyToFloat(form1.NiyakuKinNyuko.value, false, false); NiyakuKin = ConvMoneyToFloat(form1.NiyakuKin.value, false, false); Kisu = ConvMoneyToFloat(form1.Kisu.value, false, false); HokanSougaku = ConvMoneyToFloat(form1.HokanSougaku.value, false, false); Kingaku = Math.ceil((NiyakuKinNyuko + NiyakuKin) * SyukoSuryo); form1.SokoNiyakukin.value = ConvIntToMoney(Kingaku, false, false); Kingaku = Math.ceil((HokanSougaku) * Kisu * SyukoSuryo); form1.SokoHokenRyo.value = ConvIntToMoney(Kingaku, false, false); } now = 'menu0' ; check = 0 ; menuflag = 0 ; //################################################ // 名称:SetKitakuData // 目的:寄託情報をセットする。 // 作成:2003/01/07 重松 //################################################ function SetKitakuData() { var v,i; var Action,KitakuNo; i = form1.KitakuNo.selectedIndex; v = form1.KitakuNo.options[i].value; Action=9; tblbtn("fu_syuko.asp?Action=9&KitakuNo=" + v); } //################################################ // 名称:SetKitakuData // 目的:寄託情報をセットする。 // 作成:2003/01/07 重松 //################################################ function SetSyusei() { var v,i; var Action,KitakuNo; i = form1.KitakuNo.selectedIndex; v = form1.KitakuNo.options[i].value; Action=2; ExitFlg = 0; tblbtn("fu_syuko.asp?Action=2&KitakuNo=" + v); } //################################################ // 名称:SetSyohinData // 目的:商品標準価格をセットする。 // 作成:2003/1/8 重松 //################################################ function SetSyohinData() { form1["Hanbaitanka"].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD"].value)); form1["Syohinjyuryo"].value = ConvIntToMoney(ConvSyohinJyuryo(document.form1["SyohinCD"].value)); form1["Syohinyouseki"].value = ConvIntToMoney(ConvSyohinYouseki(document.form1["SyohinCD"].value)); form1["SyohinName"].value = ConvSyohinMeisyo(document.form1["SyohinCD"].value); } //################################################ // 名称:ConvSyohinHanbaiTanka // 目的:商品リストの表示 // 作成:2002/8/26 川崎 // 概要:TS商品Mの標準販売単価を返す。 //################################################ function ConvSyohinHanbaiTanka(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("標準販売単価") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } //################################################ // 名称:ConvSyohinJyuryo // 目的:商品リストの表示 // 作成:2002/12/25 重松 // 概要:TS商品Mの商品重量を返す。 //################################################ function ConvSyohinJyuryo(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品重量") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } //################################################ // 名称:ConvSyohinYouseki // 目的:商品リストの表示 // 作成:2002/12/25 重松 // 概要:TS商品Mの商品容積を返す。 //################################################ function ConvSyohinYouseki(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品容積") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } //################################################ // 名称:ConvSyohinMeisyo // 目的:商品リストの表示 // 作成:2002/8/26 川崎 // 概要:TS商品Mの商品略名称を返す。 //################################################ function ConvSyohinMeisyo(SyohinCD) { <% 'Dim Query Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品略名称") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } //################################################ // 名称:SetKingaku // 目的:保険料金金額の値をセットする。 //################################################ function SetKingaku() { var Kingaku; if (form1["Kingaku"].value == "" || form1["Ryoritsu"].value == "" ) { form1["HokenRyokin"].value = ""; } else { Kingaku = ConvMoneyToInt(form1["Ryoritsu"].value) * ConvMoneyToInt(form1["Kingaku"].value)/1000; form1["HokenRyokin"].value = ConvIntToMoney(Kingaku, false, false); } if (form1["Tanka"].value == "" || form1["Suryo"].value == "" ) { form1["Kingaku"].value = ""; } else { Kingaku = ConvMoneyToInt(form1["Tanka"].value) * ConvMoneyToInt(form1["Suryo"].value); form1["Kingaku"].value = ConvIntToMoney(Kingaku, false, false); } } function SubmitCheck() { var HokenkikanFrom; var HokenkikanTo; var dateNum; if (form1.KitakuNo.value == "") { alert("寄託者受付番号を選択してください"); form1.KitakuNo.focus(); return false; } if (form1.SyukoYMD.value == "") { alert("出庫年月日を入力してください"); form1.SyukoYMD.focus(); return false; } if (form1.SyukoSuryo.value == "") { alert("出庫数量を入力してください"); form1.SyukoSuryo.focus(); return false; } if (form1.SokoHokenRyo.value == "") { alert("倉庫保管料を入力してください"); form1.SokoHokenRyo.focus(); return false; } if (form1.SokoNiyakukin.value == "") { alert("倉庫荷役料金を入力してください"); form1.SokoNiyakukin.focus(); return false; } SubmitReal(form1); return true; } function DeleteCheck() { var flag; flag=confirm("削除をしますか?"); if (flag) { tblbtn( "fu_syuko_bin.asp?Action=4&EnshuCD=<%= EnshuCD %>&SyukkoNo=" + document.form1["SyukkoNo"].value + "&KaisyaCD=<%= KaisyaCD %>") ; return true; } else { return false; } } //################################################ // 名称:Kisuu // 目的:期数算出 // 作成:2003/01/09 重松 //################################################ function Kisuu() { var S_KISUU; var W_KISUU; var WK_SMM, WK_SDD, WK_SKI, WK_TMM, WK_TDD, WK_TKI; var WK_SYY, WK_TYY ; var WK_KISU1, WK_KISU2; if (form1["KitakuFrom"].value == "") { alert("まだ商品が入庫されていないため出庫処理は出来ません"); return false; } //20030110-13-UPD START var DateStr; var DateStrKitaku; var DateStrSyukko; DateStrKitaku = form1["KitakuFrom"].value; DateStrSyukko = form1["SyukoYMD"].value; DateStrKitaku = new Date(DateStrKitaku); DateStrSyukko = new Date(DateStrSyukko); WK_SYY = DateStrKitaku.getFullYear(); WK_SMM = DateStrKitaku.getMonth(); WK_SDD = DateStrKitaku.getDate(); WK_TYY = DateStrSyukko.getFullYear(); WK_TMM = DateStrSyukko.getMonth(); WK_TDD = DateStrSyukko.getDate(); //寄託開始年月日の年月日取得 //*******期数計算************* if(WK_SDD <= 10){WK_SKI=1;} else if(WK_SDD <= 20){WK_SKI=2;} else{WK_SKI=3;} if( WK_SYY == WK_TYY) { if(WK_TDD <= 10){WK_TKI=1;} else if(WK_TDD <= 20){WK_TKI=2;} else{WK_TKI=3;} } else { WK_TMM=12; WK_TDD=31; WK_TKI=3; } S_KISUU=WK_TMM * 3 + WK_TKI - (WK_SMM * 3 + WK_SKI) + 1; WK_KISU1=S_KISUU; if ( WK_SYY == WK_TYY) { form1["Kisu"].value =S_KISUU; return ; } WK_SKI = 1; WK_SMM = 1; WK_SDD = 1; if(WK_TDD <= 10){WK_TKI=1;} else if(WK_TDD <= 20){WK_TKI=2;} else{WK_TKI=3;} WK_KISU2=WK_TMM * 3 + WK_TKI - (WK_SMM * 3 + WK_SKI) + 1; S_KISUU=WK_KISU1 + WK_KISU2; form1.Kisu.value =S_KISUU; return ; } //################################################ // 名称:SyukoSuryoAfter() // 目的:出庫数量変更後処理 // 作成:2003/01/10 重松 //################################################ function SyukoSuryoAfter() { var WK_SU; var TempSuryoTotal; var Jyokaryo; var Jyoryoryo; var SokoHokenRyo; var SokoNiyakukin; if (form1["SyukoSuryo"].value == "") { alert("出庫数量入力して下さい"); event.returnValue = false; return; } if (form1["SyukoSuryo"].value == 0) { alert("出庫数量が0個では出庫の意味をなしません"); event.returnValue = false; return; } if (ConvMoneyToInt(form1["TempSuryoTotal"].value) < ConvMoneyToInt(form1["SyukoSuryo"].value)) { WK_SU=ConvMoneyToInt(form1["SuryoTotal"].value)+((ConvMoneyToInt(form1["SyukoSuryo"].value))-(ConvMoneyToInt(form1["TempSuryoTotal"].value))); } else { WK_SU=ConvMoneyToInt(form1["SuryoTotal"].value)-((ConvMoneyToInt(form1["TempSuryoTotal"].value))-(ConvMoneyToInt(form1["SyukoSuryo"].value))); } if (ConvMoneyToInt(form1["KitakuSuryo"].value) < WK_SU) { alert("入庫数量より多くの出荷は許されません"); event.returnValue = false; return; } form1["SuryoTotal"].value=WK_SU; form1["SuryoTotal"].value=ConvMoneyToInt(form1["SuryoTotal"].value); form1["SyukoZentaka"].value=ConvMoneyToInt(form1["KitakuSuryo"].value) - ConvMoneyToInt(form1["SuryoTotal"].value); //請求倉庫料金計算 //従価保管料計算、従量保管料計算 Jyokaryo = (ConvMoneyToInt(form1["Jyokaritsu"].value) * ConvMoneyToInt(form1["Hanbaitanka"].value))/1000; Jyoryoryo = (ConvMoneyToInt(form1["Jyoryoritsu"].value) * ConvMoneyToInt(form1["Syohinjyuryo"].value))/1000; //倉庫保管料計算、倉庫荷役料金計算 //SokoHokenRyo=(Jyokaryo + Jyoryoryo) * (ConvMoneyToInt(form1["SyukoSuryo"].value)) * (ConvMoneyToInt(form1["Kisu"].value)); SokoHokenRyo=(Jyokaryo + Jyoryoryo) *(form1["SyukoSuryo"].value) * (form1["Kisu"].value) form1["SokoHokenRyo"].value=ConvIntToMoney(Math.floor(SokoHokenRyo), false, false); //SokoNiyakukin= (ConvMoneyToInt(form1["Niyakuritsu"].value) * ConvMoneyToInt(form1["SyukoSuryo"].value))*2; SokoNiyakukin= (form1["Niyakuritsu"].value) * (form1["SyukoSuryo"].value) * 2; //form1["SokoNiyakukin"].value=ConvIntToMoney(SokoNiyakukin, false, false); form1["SokoNiyakukin"].value=SokoNiyakukin; //請求倉庫料金計算 form1["Sokoryokin"].value=ConvIntToMoney(Sokoryokin, false, false); } function SetGokei() { var SokoHokenRyo, SokoNiyakukin; var GokeiKingaku, Syohizeigaku, ZeikomiKingaku; SokoHokenRyo = ConvMoneyToInt(form1.SokoHokenRyo.value, false, false); SokoNiyakukin = ConvMoneyToInt(form1.SokoNiyakukin.value, false, false); if(isNaN(SokoHokenRyo) || isNaN(SokoNiyakukin))return; if(SokoHokenRyo == "")SokoHokenRyo = 0; if(SokoNiyakukin == "")SokoNiyakukin = 0; GokeiKingaku = SokoHokenRyo + SokoNiyakukin; Syohizeigaku = Math.floor(GokeiKingaku * <%= GB_Shohizei %> / 100); ZeikomiKingaku = GokeiKingaku + Syohizeigaku; form1.GokeiKingaku.value = ConvIntToMoney(GokeiKingaku, false, false); form1.Syohizeigaku.value = ConvIntToMoney(Syohizeigaku, false, false); form1.ZeikomiKingaku.value = ConvIntToMoney(ZeikomiKingaku, false, false); } </script> <%= HtmlFooter %> </html> <% End Sub %>