<!-- #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 ItakuSuryou '入庫数量 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 Syohinyouseki '商品容積 Dim SyokenNum '倉荷証券番号 Dim SyokenTesuryo '証券手数料 Dim HokenTanka '火災保険単価 Dim HokenSougaku '火災保険総額 Dim KasaiHokenKin '火災保険料金 Dim KasaiHokenRitsu '火災保険料率 Dim HokenRyokin '保険料金 Dim NiyakuKin '荷役料金 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 = 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 KitakuNo = Content.Fields("寄託受付番号") SyohinCD = Content.Fields("商品CD") ' SokoNiyakukin = Content.Fields("荷役料金") Basyo = Content.Fields("倉庫場所") SokoBetsu = Content.Fields("倉庫種別") KitakuFrom = Content.Fields("寄託開始年月日") KitakuTo = Content.Fields("寄託保管期日") Jyokaritsu = Content.Fields("従価率") Jyoryoritsu = Content.Fields("従量率") Niyakuritsu = Content.Fields("荷役料率") NyukoNengappi = Content.Fields("入庫年月日") ItakuSuryou = Content.Fields("寄託数量") SuryoTotal = Content.Fields("総出庫数") SyukoZentaka = ItakuSuryou - SuryoTotal ' Content.Fields("残高") End If 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 ((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 Hanbaitanka=Content.Fields("標準販売単価") Syohinjyuryo=Content.Fields("商品重量") Syohinyouseki=Content.Fields("商品容積") SyohinName=Content.Fields("商品略名称") End If Content.MoveNext Loop end if 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 %> <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"> <!--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="650" 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="2" WIDTH="650" HEIGHT="100%"> <tr> <td> <table border="0" width="370" CELLSPACING="0" CELLPADDING="2"> <TR valign="top"> <TD> <table border="0" width="370" CELLSPACING="0" CELLPADDING="2" class="tx1618"> <TR> <TD>出庫番号</TD> <TD><INPUT type="text" name="SyukkoNo" value="<%= SyukkoNo %>" readonly class="tbox4_ro"></TD> </TR> <TR> <TD>寄託者受付番号</TD> <TD> <% If (Action = 2) or (Action = 3) Then %> <INPUT type="text" name="KitakuNo" value="<%= KitakuNo %>" readonly class="tbox4_ro"> <% else %> <SELECT name="KitakuNo" STYLE="width:160px" 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" name="SyohinName" value="<%= SyohinName %>" readonly class="tbox4_ro"></td> </TR> <TR> <TD>倉庫場所</TD> <TD><INPUT type="text" size="35" name="Basyo" value="<%= Basyo %>" readonly class="tbox4_ro"></td> </TR> <tr> <TD>倉庫種別</TD> <TD><INPUT type="text" name="SokoBetsu" value="<%= ConvKubunMeisyo("倉庫種別", SokoBetsu) %>" readonly class="tbox4_ro"></td> </tr> <TR> <TD>寄託期間</TD> <TD><INPUT type="text" name="KitakuFrom" value="<%= SetDateStr(KitakuFrom, "YYYY/MM/DD") %>" readonly class="tbox4_ro" size="15"> ~ <INPUT type="text" name="KitakuTo" value="<%= SetDateStr(KitakuTo,"YYYY/MM/DD") %>" readonly class="tbox4_ro" size="15"></td> </TR> </TABLE> </TD> </TR> <TR> <TD> <table border="1" width="370" bordercolor="#000000" cellspacing="0" cellpadding="2" style="border-collapse: collapse" class="tx1618"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">寄託情報</TD> </TR> <TR> <TD> <!--<TABLE bgcolor="#6699CC">--> <table border="0" width="370" cellspacing="0" cellpadding="2" class="tx1618"> <TR> <TD width="150">出庫年月日</TD> <TD width="120">出庫数量</TD> <TD width="100">期数</TD> </TR> <TR> <TD><INPUT type="text" name="SyukoYMD" value="<%= SyukoYMD %>" onBlur="SetDate(this, 1, true, '<%= KitakuFrom %>', '<%= KitakuTo %>');Kisuu()" class="tbox4" size="15"></TD> <TD><input type="text" name="SyukoSuryo" value="<%= SetNumber(SyukoSuryo, false) %>" onBlur="SetNumber(this, false, 9)" class="tbox5" size="8"></TD> <TD><input type="text" name="Kisu" value="<%= SetNumber(Kisu, false) %>" readonly class="tbox5_ro" size="6"></TD> </TR> <TR> <TD colspan="3">摘要 <INPUT type="text" name="Tekiyo" value="<%= Tekiyo %>" onBlur="SetString(this, 30, true)" class="tbox4_ime" size="38"></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD> <table border="1" width="100%" bordercolor="#000000" cellspacing="0" cellpadding="2" STYLE="border-collapse: collapse" class="tx1618"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">料金</TD> </TR> <TR> <TD> <table width="280" cellspacing="0" cellpadding="2" class="tx1618"> <TR> <TD>倉庫保管料</TD> <TD>倉庫荷役料</TD> <TD> </TD> </TR> <TR> <TD><INPUT type="text" name="SokoHokenRyo" value="<%= SetMoney(SokoHokenRyo, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="15"></TD> <TD><INPUT type="text" name="SokoNiyakukin" value="<%= SetMoney(SokoNiyakukin, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, false);SetGokei();" class="tbox5" size="15"></TD> <TD> </TD> </TR> <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="15"></TD> <TD><INPUT type="text" name="ZeikomiKingaku" value="<%= SetMoney(ZeikomiKingaku, false, true) %>" class="tbox5_ro" readonly size="15"></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> <TD valign="top"> <TABLE width="280" height="100%" align="center" class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2" STYLE="border-collapse: collapse"> <tr> <td> <table border="1" width="280" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" CELLSPACING="0" CELLPADDING="2"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">商品情報</TD> </TR> <TR> <TD> <table border="0" class="tx1618" width="280" CELLSPACING="0" CELLPADDING="2"> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <TR> <TD width="130">標準販売単価</TD> <TD><INPUT type="text" name="Hanbaitanka" value="<%= SetMoney(Hanbaitanka, false, true) %>" readonly class="tbox5_ro" size="15"></TD> <TD></TD> </TR> <% Else %> <INPUT type="hidden" name="Hanbaitanka" value="<%= SetMoney(Hanbaitanka, false, true) %>"> <% End If %> <TR> <TD>商品重量</TD> <TD> <input type="text" name="Syohinjyuryo" value="<%= SetNumber(Syohinjyuryo, false) %>" readonly class="tbox5_ro" size="15"></TD> <TD align="right">kg</TD> </TR> <TR> <TD>商品容積</TD> <TD> <input type="text" name="Syohinyouseki" value="<%= SetNumber(Syohinyouseki, false) %>" readonly class="tbox5_ro" size="15"></TD> <TD></TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> <tr> <td> <table border="1" width="280" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000" STYLE="border-collapse: collapse"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">入庫情報</TD> </TR> <TR> <TD> <TABLE border="0" class="tx1618" width="280" CELLSPACING="0" CELLPADDING="2"> <TR> <TD width="130">入庫日</TD> <TD><input type="text" name="NyukoNengappi" value="<%= NyukoNengappi %>" readonly class="tbox5_ro" size="15"></TD> </TR> <TR> <TD>入庫数量</TD> <TD><input type="text" name="ItakuSuryou" value="<%= SetNumber(ItakuSuryou, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> </TABLE> </TD> </TR> </table> </td> </tr> <tr> <td> <table border="1" width="280" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000" STYLE="border-collapse: collapse"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">出庫情報</TD> </TR> <TR> <TD> <TABLE border="0" class="tx1618" width="280" CELLSPACING="0" CELLPADDING="2"> <TR> <TD width="130">総出庫数</TD> <TD> <input type="text" name="SuryoTotal" value="<%= SetNumber(SuryoTotal, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> <TR> <TD>出庫残高</TD> <TD><INPUT type="text" name="SyukoZentaka" value="<%= SetMoney(SyukoZentaka, false, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> </TABLE> </TD> </TR> </table> </td> </tr> <tr> <td> <table border="1" width="280" CELLSPACING="0" CELLPADDING="2" BORDERCOLOR="#000000" STYLE="border-collapse: collapse"> <TR> <TD bgcolor="#DDDDDD" align="center" height="23">倉庫料金 計算用料金</TD> </TR> <TR> <TD> <TABLE border="0" class="tx1618" width="280" CELLSPACING="0" CELLPADDING="2"> <TR> <TD width="130">従価率</TD> <TD><INPUT type="text" name="Jyokaritsu" value="<%= SetNumber(Jyokaritsu, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> <TR> <TD>従量率</TD> <TD><INPUT type="text" name="Jyoryoritsu" value="<%= SetNumber(Jyoryoritsu, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> <TR> <TD>荷役率</TD> <TD><INPUT type="text" name="Niyakuritsu" value="<%= SetNumber(Niyakuritsu, false) %>" readonly class="tbox5_ro" size="15"></TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </form> </div> </body> <SCRIPT LANGUAGE="JavaScript"> 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["ItakuSuryou"].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["ItakuSuryou"].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 %>