<!-- #include file="../../../../include.asp" --> <% '<!-- '################################################ ' 名称 :寄託出庫依頼処理 ' 作成日:2006/12/11 ' 作成者:鈴木 ' 目的 :寄託出庫依頼を表示する。 ' 概要 : '################################################ '--> ' %> <% main() Sub main() Dim SakuseiKaisyaCD '作成会社CD Dim KitakuIraiKaisyaCD '寄託依頼会社CD Dim KitakuNo '寄託受付番号 Dim NyukoDay '入庫年月日 Dim YukoFlg '有効フラグ Dim UnsoGaisyaCD '運送会社CD(とりあえず使用しない) Dim BunsyoSyuruiCD '文書種類CD(使用しない) Dim Kakaku(6) '標準単価 Dim SyohinCD(6) '商品コード Dim SyohinName(6) '商品名称 Dim Suryo(6) '数量 Dim Tanka(6) '仕入単価 Dim MotoTanka(6) '元単価 Dim UnsoTanka(6) '運送単価 Dim Zaiko(6) '在庫数量 Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei '書類名 Dim Query Dim Content Dim Shimei '氏名 Dim ShijyoCD(5) '市場CD Dim Syoribi '処理日 'ページング処理用 Dim Page If Request("Page") = "" Then Page = 0 Else Page = CInt(Request("Page")) End If SakuseiKaisyaCD = Request("SakuseiKaisyaCD") KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD") KitakuNo = Request("KitakuNo") 'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD) SyoruiMei = "寄託入庫" If KitakuNo <> "" Then Query = "exec SPD寄託入庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & KitakuIraiKaisyaCD & "', '" & KitakuNo & "'" 'Response.Write(Query) Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NyukoDay = Content.Fields("入庫年月日") YukoFlg = Content.Fields("有効フラグ") Syoribi = Content.Fields("処理日") 'ページング処理 Dim PreDenpyoSEQ PreDenpyoSEQ = 0 Dim DenpyoSEQ Dim PageCnt PageCnt = 0 Dim SkipCnt SkipCnt = Page * 5 Do While Not(Content.BOF Or Content.EOF) If PageCnt = SkipCnt Then Exit Do End If DenpyoSEQ = Content.Fields("寄託受付番号SEQ") If PreDenpyoSEQ <> DenpyoSEQ Then PreDenpyoSEQ = DenpyoSEQ PageCnt = PageCnt + 1 End If Content.MoveNext Loop Dim MeisaiCnt MeisaiCnt = 0 Do While Not(Content.BOF Or Content.EOF) DenpyoSEQ = Content.Fields("寄託受付番号SEQ") 'ページング処理 If PreDenpyoSEQ <> DenpyoSEQ Then PreDenpyoSEQ = DenpyoSEQ MeisaiCnt = MeisaiCnt + 1 If MeisaiCnt > 5 Then Exit Do End If End If SyohinCD(DenpyoSEQ - SkipCnt) = Content.Fields("商品CD") ShijyoCD(DenpyoSEQ - SkipCnt) = Content.Fields("市場CD") SyohinName(DenpyoSEQ - SkipCnt) = ConvSyohinMeisyo(Content.Fields("商品CD")) Kakaku(DenpyoSEQ - SkipCnt) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Zaiko(DenpyoSEQ - SkipCnt) = ConvSyohinZaiko(Content.Fields("商品CD")) Suryo(DenpyoSEQ - SkipCnt) = Content.Fields("数量") Tanka(DenpyoSEQ - SkipCnt) = Content.Fields("仕入単価") Content.MoveNext Loop End If End If Dim FordBtn Dim FordUrl Dim BackBtn Dim BackUrl 'ページング処理 If Not(Content.BOF Or Content.EOF) Then FordBtn = "次ページ" FordUrl = "tblbtn( 'fu_kitaku_nyuko.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&KitakuIraiKaisyaCD=" & KitakuIraiKaisyaCD & "&KitakuNo=" & KitakuNo & "&Page=" & Page + 1 &"')" End If If Page > 0 Then BackBtn = "前ページ" BackUrl = "tblbtn( 'fu_kitaku_nyuko.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&KitakuIraiKaisyaCD=" & KitakuIraiKaisyaCD & "&KitakuNo=" & KitakuNo & "&Page=" & Page - 1 &"')" End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" Else SyohinMeisyo = "商品名称" End If Dim Kitakuriyou Dim Jissenbi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") Jissenbi = Content.Fields("実践日") End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; ///////////////////////////////////////// //function CngShohin //市場を選択し商品を変更する //060803suzuki //配列をASPでJavaScript内で作成しResponse.Write。 ///////////////////////////////////////// function CngShohin(selindex,selname){ //商品CD及び商品名の配列を作成 Val = new Array(); Tex = new Array(); //debug //alert(selindex); //alert(selname); <% Dim Query2,Content2,i,j i=0 j=0 'TDA市場Mから市場(市場CD)を取得 Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Response.Write("Val[" & i & "] = new Array()" & vbCrLf) Response.Write("Tex[" & i & "] = new Array()" & vbCrLf) 'TDA商品Mから商品CDと商品名を取得し、JavaScript用の配列として書き出す if i = 0 then Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','', '" & GB_GakuseiNo & "'" else Query2 = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & Content.Fields("市場CD") & "', '" & GB_GakuseiNo & "'" end if Set Content2 = OpenQuery(Query2) If Not(Content2.BOF Or Content2.EOF) Then j = 0 Response.Write("Val[" & i & "][" & j & "] = ''" & vbCrLf ) Response.Write("Tex[" & i & "][" & j & "] = ' '" & vbCrLf ) j = j + 1 Do While Not(Content2.BOF Or Content2.EOF) Response.Write("Val[" & i & "][" & j & "] = '" & Content2.Fields("商品CD") & "'" & vbCrLf ) Response.Write("Tex[" & i & "][" & j & "] = '" & Content2.Fields(SyohinMeisyo) & "'" & vbCrLf ) Content2.MoveNext j = j + 1 Loop End If if i <> 0 then Content.MoveNext end if i = i + 1 Loop End If %> switch (selname) { case 'S1': document.form1.SyohinCD1.options.length = Val[selindex].length //配列長を変更 for(i=0;i<Val[selindex].length;i++){ document.form1.SyohinCD1.options[i].value = Val[selindex][i] document.form1.SyohinCD1.options[i].text = Tex[selindex][i] } document.form1.SyohinCD1.selectedIndex = 0 break; case 'S2': document.form1.SyohinCD2.options.length = Val[selindex].length //配列長を変更 for(i=0;i<Val[selindex].length;i++){ document.form1.SyohinCD2.options[i].value = Val[selindex][i] document.form1.SyohinCD2.options[i].text = Tex[selindex][i] } document.form1.SyohinCD2.selectedIndex = 0 break; case 'S3': document.form1.SyohinCD3.options.length = Val[selindex].length //配列長を変更 for(i=0;i<Val[selindex].length;i++){ document.form1.SyohinCD3.options[i].value = Val[selindex][i] document.form1.SyohinCD3.options[i].text = Tex[selindex][i] } document.form1.SyohinCD3.selectedIndex = 0 break; case 'S4': document.form1.SyohinCD4.options.length = Val[selindex].length //配列長を変更 for(i=0;i<Val[selindex].length;i++){ document.form1.SyohinCD4.options[i].value = Val[selindex][i] document.form1.SyohinCD4.options[i].text = Tex[selindex][i] } document.form1.SyohinCD4.selectedIndex = 0 break; case 'S5': document.form1.SyohinCD5.options.length = Val[selindex].length //配列長を変更 for(i=0;i<Val[selindex].length;i++){ document.form1.SyohinCD5.options[i].value = Val[selindex][i] document.form1.SyohinCD5.options[i].text = Tex[selindex][i] } document.form1.SyohinCD5.selectedIndex = 0 break; default: break; } } --> </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"> <form OnKeyDown="FormKeyDown(this)" method="POST" action="fu_kitaku_nyuko_bin.asp" name="form1" autocomplete="off"> <input type="hidden" name="Action" value=""> <input type="hidden" name="SakuseiKaisyaCD" value="<% =SakuseiKaisyaCD %>"> <% 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')", "入庫一覧", "tblbtn( 'fu_kitaku_nyuko_ichiran.asp')", "寄託入庫", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If YukoFlg <> 1 Then Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", FordBtn, FordUrl, BackBtn, BackUrl, "", "", "", "")) Else Response.Write(HttpL3_1(FordBtn, FordUrl, BackBtn, BackUrl, "", "", "", "", "", "")) End If Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_kitaku_nyuko_ichiran.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei,"")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td align="CENTER" valign="middle"> <table width="540" height="355" border="0" cellpadding="10" cellspacing="0" style="border:solid 1px #000000" bgcolor="#FFFFFF"> <tr> <td height="355" align="CENTER" valign="BOTTOM"> <table width="600" border="0" cellspacing="0" cellpadding="0" height="355"> <tr> <td height="40" align="CENTER" valign="middle"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="30" width="580" class="tx1416"> <tr> <td width="25%"> <table width="190" border="0" cellpadding="0" cellspacing="0"> <tr class="tx1214"> <td width="190" align="left"> <table class="tx2224b" border="0" cellpadding="0" cellspacing="0" > <tr> <td align="center" nowrap><% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %></td> </tr> </table> </td> </tr> </table> </td> <td> </td> </tr> </table> </td> </tr> <tr> <td height="45" align="CENTER" valign="BOTTOM"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="80" width="520" class="tx1618"> <tr> <td width="14%" height="20">受付番号</td> <td height="20"> <input type="hidden" name="KitakuNo" size="15" readonly class="tbox4_ro" value="<% = KitakuNo %>"><% = KitakuNo %> </td> <td width="12%" height="20" align="center">入庫日</td> <td width="18%" height="20"> <% 'TGC寄託在庫Fの中では、処理日が仕入先から商品が入った日になっている。 'ここで入力した処理日は、入庫年月日として挿入することとする。(逆にする必要があるかも) If YukoFlg = 1 Then %> <input type="hidden" name="NyukoDay" size="12" readonly class="tbox4_ro" value="<% = NyukoDay %>"><% = NyukoDay %> <% ElseIf Jissenbi <> "" Then %> <input type="text" name="NyukoDay" size="12" readonly class="tbox4_ro" value="<% = Jissenbi %>"> <% Else %> <input type="text" name="NyukoDay" size="12" value="" onBlur="SetDate(this, 1, true)" class="tbox4"> <% End If %> </td> </tr> <tr> <td height="20">依頼会社</td> <td height="20"> <input type="hidden" name="KitakuIraiKaisyaMei" size="20" readonly class="tbox4_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, KitakuIraiKaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, KitakuIraiKaisyaCD) %> <input type="hidden" name="KitakuIraiKaisyaCD" value="<% =KitakuIraiKaisyaCD %>"> </td> <td height="20" align="center">納入日</td> <td height="20"> <input type="hidden" name="Syoribi" size="16" readonly class="tbox4_ro" value="<% = Syoribi %>"><% = Syoribi %> </td> </tr> <tr> <td height="20">仕 入 先</td> <td height="20"> <% If KitakuNo <> "" Then %> <input type="hidden" name="SakuseiKaisyaMei" size="20" readonly class="tbox4_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %> <% Else %> <input type="hidden" name="SakuseiKaisyaMei" size="20" value="<% =ConvKaisyaMeisyo(SakuseiKaisyaCD) %>" readonly class="tbox4_ro"><% =ConvKaisyaMeisyo(SakuseiKaisyaCD) %> <input type="hidden" name="SakuseiKaisyaCD" value="<% =SakuseiKaisyaCD %>"> <% End If %> </td> <td height="20" align="center"></td> <td height="20"></td> </tr> </table> </td> </tr> <tr> <td align="CENTER"> <table width="520" height="180" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF"> <tr> <td width="100%" align="RIGHT"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="580" bordercolor="#000000"> <tr> <td height="30" valign="TOP"> <table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" class="tx1618" bgcolor="#CCCCCC"> <tr> <td align="center">商品名称</td> <td align="center" width="17%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %></td> <td align="center" width="16%">数 量</td> </tr> </table> </td> </tr> <tr> <td> <!-- ■市場選択機能追加060803suzuki //--> <table width="100%" height="180" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" class="tx1618"> <% dim ii For ii = 1 to 5 Response.Write("<tr>") If KitakuNo <> "" Then Response.Write("<td align='left'>" & ConvSyohinRyakuMeisyo(SyohinCD(ii)) & "<br></td>" & vbCrLf) Response.Write("<td align='right' width='17%'>" & SetMoney(Kakaku(ii), false, true) & "<br></td>" & vbCrLf) 'Response.Write("<td align='right' width='15%'>" & SetMoney(Zaiko(ii), false, true) & "<br></td>" & vbCrLf) Response.Write("<td align='right' width='16%'>" & SetMoney(Suryo(ii), false, true) & "<br></td>" & vbCrLf) 'Response.Write("<td align='right' width='15%'>" & SetMoney(MotoTanka(ii), false, true) & "<br></td>" & vbCrLf) Else Response.Write("<td align='center'>") %> <select name="S<% =ii %>" size="1" style="<% = ShijyoListWidth %>" onChange="CngShohin(this.selectedIndex,this.name)" class="tbox4"> <option value=""> </option> <% Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("市場CD") & """") If Content.Fields("市場CD") = ShijyoCD(ii) Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf) Content.MoveNext Loop %> </select> <% Response.Write("<select name='SyohinCD" & ii & "' size='1' class='tbox4' style='" & SyohinMeisyoListWidth & "' onChange='SetSyohinHanbaiTanka(" & ii & ");SetSyohinZaiko(" & ii & ");'>") Response.Write("<option value=''> </option>") Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(ii) & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If BunsyoSyuruiCD <> "SC" Or (BunsyoSyuruiCD = "SC" And Content.Fields("所有会社CD") = KaisyaCD ) Then Response.Write("<option value='" & Content.Fields("商品CD") & "'") If Content.Fields("商品CD") = SyohinCD(ii) Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("商品略名称") & "</option>" & vbCrLf) End If Content.MoveNext Loop Response.Write("</select></td>") Response.Write("<td align='center' width='17%'><input type='text' name='Kakaku" & ii & "' size='12' value='" & SetMoney(Kakaku(ii), false, true) & "' class='tbox5_ro' readonly></td>" & vbCrLf) 'Response.Write("<td align='center' width='15%'><input type='text' name='Zaiko" & ii & "' size='12' value='" & SetMoney(Zaiko(ii), false, true) & "' class='tbox5_ro' readonly></td>" & vbCrLf) Response.Write("<td align='center' width='16%'><input type='text' name='Suryo" & ii & "' size='12' value='" & SetMoney(Suryo(ii), false, true) & "' onBlur='SetNumber(this, false, 9);SetUntin();' onkeyup='ChangeMoney(this);' class='tbox5' ></td>" & vbCrLf) 'Response.Write("<td align='center' width='15%'><input type='text' name='MotoTanka" & ii & "' size='12' value='" & SetMoney(MotoTanka(ii), false, true) & "' onBlur='SetNumber(this, false, 9);SetUntin();' onkeyup='ChangeMoney(this);' class='tbox5' ></td>" & vbCrLf) End If Response.Write("</tr>" & vbCrLf) Next %> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> SetUntin(); </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> //################################################ // 名称:SetSyohinHanbaiTanka // 目的:商品標準販売価格をセットする。 // 作成:2002/11/1 山崎 //################################################ function SetSyohinHanbaiTanka(iiflag) { form1["Kakaku" + iiflag].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + iiflag].value)); } //################################################ // 名称:SetSyohinZaiko // 目的:商品在庫数をセットする。 // 作成:2002/11/1 山崎 //################################################ function SetSyohinZaiko(iiflag) { if(typeof(form1["Zaiko" + iiflag]) == "object") { form1["Zaiko" + iiflag].value = ConvIntToMoney(ConvSyohinZaiko(document.form1["SyohinCD" + iiflag].value)); } } //################################################ // 名称:SetUntin // 目的:運賃請求額を更新する // 概要:運賃諸掛をチェックし、UnsohiSeikyuFlgを更新し、運賃とUnsohiSeikyuFlgを掛け運賃請求額を求める //################################################ function SetUntin() { <% If 1 = 0 Then %> var GokeiSuryo, UnsoTanka; GokeiSuryo = 0; for(ii = 1; ii<= 5; ii++) { if(form1["SyohinCD" + ii].value != "") { GokeiSuryo = GokeiSuryo + ConvMoneyToInt(form1["Suryo" + ii].value); form1["UnsoTanka" + ii].value = 0; } else { form1["UnsoTanka" + ii].value = ""; } } if(form1.UntinSyogakariKubun.value == "K") { if(GokeiSuryo != 0) { UnsoTanka = Math.floor(ConvMoneyToInt(form1.Unsohi.value) / GokeiSuryo); for(ii = 1; ii<= 5; ii++) { if(form1["SyohinCD" + ii].value != "") { form1["UnsoTanka" + ii].value = UnsoTanka ; } } } } <% End If %> } //################################################ // 名称:SubmitCheck // 目的:更新前に入力値をチェックする。 //################################################ function SubmitCheck() { if(form1.NyukoDay.value == "") { alert("入庫日を入力してください "); form1.NyukoDay.focus(); return false; } //日付の前後チェック if(Date.parse(form1.Syoribi.value) > Date.parse(form1.NyukoDay.value)) { alert("入庫日が納入日より過去の日付になっています \r\n正しい日付を入力してください "); return false; } <% If KitakuNo = "" Then %> if(typeof(form1.TorihikisakiCD) == "object") { if(form1.TorihikisakiCD.value == "") { alert("取引先を入力してください "); form1.TorihikisakiCD.focus(); return false; } } if(typeof(form1.SenpoSyoribi) == "object") { if(form1.SenpoSyoribi.value == "") { alert("納入日を入力してください "); form1.SenpoSyoribi.focus(); return false; } } //寄託会社CDのチェック <% If Kitakuriyou = 1 Then %> if(typeof(form1.KitakuGaisyaCD) == "object") { if(form1.KitakuGaisyaCD.value == "") { alert("寄託倉庫が設定されていません "); //readonlyなのでフォーカスは特にあてない //form1.SenpoKitakuGaisyaCD.focus(); return false; } } if(typeof(form1.SenpoKitakuGaisyaCD) == "object") { if(form1.SenpoKitakuGaisyaCD.value == "") { alert("取引先の寄託倉庫が設定されていません "); //readonlyなのでフォーカスは特にあてない //form1.SenpoKitakuGaisyaCD.focus(); return false; } } <% End If %> //** 2.運送会社のチェック if(typeof(form1.UnsoGaisyaCD) == "object") { if(form1.UnsoGaisyaCD.value == "") { alert("運送会社を入力してください "); form1.UnsoGaisyaCD.focus(); return false; } } //** 3.明細部のチェック var ii; var cnt; cnt=0; for(ii = 1;ii <= 5; ii++) { var SyohinCD; var Suryo; var Tanka; var Zaiko; var Kubun; SyohinCD = document.form1["SyohinCD" + ii].value; if(SyohinCD != "") { if(SyohinCD == "") { alert("商品を選択してください "); form1["SyohinCD" + ii].focus(); return false; } Suryo = Math.floor(ConvMoneyToInt(document.form1["Suryo" + ii].value)); if ((isNaN(Suryo)) || (Suryo == 0)) { alert("数量を入力してください "); form1["Suryo" + ii].focus(); return false; } <% If GB_Gyosyu <> "K" AND BunsyoNaiyoCD = "" AND SyohinNyusyukkoSeikousei = "1" AND (BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX") Then %> Zaiko = Math.floor(ConvMoneyToInt(document.form1["Zaiko" + ii].value, false, false)); if (isNaN(Zaiko)) { Zaiko = 0; } if (Suryo > Zaiko) { alert("在庫数量が不足しています。数量を正しく入力してください "); return false; } <% End If %> <% If 1 = 0 Then %> Zaiko = Math.floor(ConvMoneyToInt(document.form1["Zaiko" + ii].value, false, false)); if (isNaN(Zaiko)) { Zaiko = 0; } if (Suryo > Zaiko) { if(!confirm("在庫数量が不足している可能性がありますが、出庫してもよろしいですか? ")) { return false; } } <% End If %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> MotoTanka = document.form1["MotoTanka" + ii].value; if(MotoTanka == "") { alert("仕入単価を入力してください "); form1["MotoTanka" + ii].focus(); return false; } <% End If %> cnt = 1 } } //** 3.明細部に入力が有るかどうかのチェック if (cnt == 0) { alert("商品明細を入力してください "); form1["SyohinCD1"].focus(); return false; } <% End If %> SubmitReal(form1); return true; } //################################################ // 名称: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 ""; } //################################################ // 名称:ConvSyohinZaiko // 目的:商品在庫数リストの表示 // 作成:2002/8/26 川崎 // 概要:指定日時の商品在庫数を返す。 //################################################ function ConvSyohinZaiko(SyohinCD) { <% Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "','" & KitakuIraiKaisyaCD & "','" & GB_KaikeiSyuryobi & "'" 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 %> if(SyohinCD != "")return "0"; return ""; } //寄託倉庫を利用する設定で使用するスクリプトを作成 <% If Kitakuriyou = 1 Then %> //################################################ // 名称:SetSenpoKitakuGaisya // 目的:先方寄託倉庫会社をセットする。 // 作成:2006/12/10 鈴木 //################################################ function SetSenpoKitakuGaisya() { form1.SenpoKitakuGaisyaCD.value = ConvKitakuGaisya(document.form1.TorihikisakiCD.value); form1.SenpoKitakuGaisyaMei.value = ConvKaisyaMei(ConvKitakuGaisya(document.form1.TorihikisakiCD.value)); } //################################################ // 名称:ConvKitakuGaisya // 目的:寄託倉庫会社表示 // 作成:2006/12/10 鈴木 // 概要:TDA会社Mの寄託会社CDを返す //################################################ function ConvKitakuGaisya(KaisyaCD) { <% Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '1'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(KaisyaCD == """ & Content.Fields("会社CD") & """)return """ & Content.Fields("寄託会社CD") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } //################################################ // 名称:ConvKaisyaMei // 目的:会社名表示 // 作成:2006/12/10 鈴木 // 概要:TDA会社Mの会社名称を返す //################################################ function ConvKaisyaMei(KaisyaCD) { <% Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '1'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(KaisyaCD == """ & Content.Fields("会社CD") & """)return """ & Content.Fields("会社名称") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } <% End If %> //寄託利用スクリプトここまで </SCRIPT> <% = HtmlFooter %> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> <% If YukoFlg <> 1 Then %> form1.NyukoDay.select; form1.NyukoDay.focus(); form1.NyukoDay.select(); event.returnValue = false; return; <% End If %> </SCRIPT> </html> <% End Sub %>