<!-- #include virtual="/sj4web/include.asp" -->
<%
'<!--
'################################################
' 名称 ：繰越残高設定
' 作成日：2003/1/20
' 作成者：山崎
' 目的 ：繰越残高設定を表示する。
' 概要 ：
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim GenkinNyusyukinCD, Genkin , Kingaku
Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1
Dim NumSyohin, NumGinko
NumSyohin = 0
NumGinko = 0
Dim ii, jj, kk
Dim bCheck
Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Genkin = Content.Fields("金額")
End If
Dim SyohinSelect
SyohinSelect = ""
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content1 = OpenQuery(Query)
Do While Not(Content1.BOF Or Content1.EOF)
SyohinSelect = SyohinSelect & "<option value=""" & Content1.Fields("商品CD") & """"
SyohinSelect = SyohinSelect & ">" & ConvSyohinMeisyo(Content1.Fields("商品CD")) & "</option>" & vbCrLf
Content1.MoveNext
Loop
Dim Kitakuriyou
Dim KitakuKeiyaku
Dim KitakuGaisyaCD
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuGaisyaCD = "" & Content.Fields("寄託会社CD")
End If
End If
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
'GyosyuCDをGB_Gyosyuに引継ぎ（運用管理用）
If Request("GyosyuCD") <> "" Then
GB_Gyosyu = Request("GyosyuCD")
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" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js"></script>
<script language="JScript" src="../../../includesj.js"></script>
<script language="JScript.Encode" src="../../../include_enc.js"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js"></script>
<% Response.Write("<script type=""text/javascript"" src=""../../../javascript.js?" & TimeUniq() & """></script>" & vbCrLf) %>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="fk_kurikoshizandaka_bin.asp">
<input type="hidden" name="DenpyoNo" value="0000000">
<input type="hidden" name="SendValue" value="">
<input type="hidden" name="KaisyaCD" value="<% = KaisyaCD %>">
<input type="hidden" name="Kitakuriyou" value="<% = Kitakuriyou %>">
<input type="hidden" name="KitakuGaisyaCD" value="<% = KitakuGaisyaCD %>">
<%
Response.Write(HtmlDesign(1))
If GB_Admin >= 1 Then
Response.Write(HttpL1(4))
Else
Response.Write(HttpL1(2))
End If
If GB_Admin >= 1 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu.asp')", "マスター管理", "tblbtn( '/sj4web/admin/master/fm_master_select.asp')", "会社マスター", "tblbtn( '/sj4web/admin/master/kaisya/fm_kaisya_view.asp?Action=2&KaisyaCD=" & KaisyaCD & "' )", "繰越残高設定", "", "", "", "", ""))
ElseIf GB_Gyosyu <> "B" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/sj4web/user/bk/menu_s1.asp')", "繰越残高設定", "", "", "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & "1.asp')", "繰越残高設定", "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("繰越残高設定", ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD)))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table width="770" height="390" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table width="760" height="345" border="0" cellpadding="0" cellspacing="0" style="border:solid 0px #111111">
<tr>
<td align="center">
<table width="750" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="155" align="center" valign="bottom">
<table width="750" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td valign="top" align="center" background="/sj4web/images/window_bk.gif">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:750px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<table border="0" class="tx1618" width="100%" cellspacing="0">
<tr>
<td width="50%" valign="top">
<table border="0" class="tx1618" width="100%" cellspacing="0">
<tr>
<td height="30">期首現金設定<br>
<table border="1" class="tx1416" STYLE="border-collapse: collapse" bordercolor="#000000" cellspacing="0" cellpadding="3" bgcolor="#EEFFFF">
<tr align="center">
<td bgcolor="#FFFFCC">金額</td>
</tr>
<tr>
<td>
<input type="text" name="Genkin" class="tbox3" onkeyup='ChangeMoney(this);' onblur='SetMoney(this, false, true);' maxlength="13" size="15" value="<% = ConvIntToMoney(Genkin, false, false) %>">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table border="0" class="tx1618" cellspacing="0" cellpadding="0">
<tr>
<td>
期首銀行設定
</td>
</tr>
<tr>
<td>
<table border="1" class="tx1416" STYLE="border-collapse: collapse" bordercolor="#000000" cellspacing="0" cellpadding="3" bgcolor="#EEFFFF">
<tr align="center">
<td bgcolor="#FFFFCC">銀行口座</td>
<td bgcolor="#FFFFCC">金額</td>
<% If GB_Admin >= 1 Then %>
<td bgcolor="#FFFFCC" width="50">削除</td>
<% End If %>
</tr>
<%
Query1 = "exec SPM会社市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content1 = OpenQuery(Query1)
QueryKoza = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set ContentKoza = OpenQuery(QueryKoza)
Dim KozaSyuruiSu, GinkoSoGokei
Dim RiyoGinkoKozaSyurui, RiyoGinkoKozaSu
GinkoSoGokei = 0
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoGinkoKozaSyurui = Content.Fields("利用銀行口座種類")
End If
RiyoGinkoKozaSyurui = Replace(RiyoGinkoKozaSyurui, "0", "")
RiyoGinkoKozaSu = Len(RiyoGinkoKozaSyurui)
Dim KozaKubun(5)
For ii = 0 To RiyoGinkoKozaSu - 1
KozaKubun(ii) = Mid(RiyoGinkoKozaSyurui, ii + 1, 1)
Next
Set Content = OpenQuery(Query1)
KozaSyuruiSu = 0
Do While Not(Content.BOF Or Content.EOF)
If GB_Admin >= 1 Or (GB_Admin = 0 And Content.Fields("市場CD") = GB_ShijyoCD) Then
If Content.Fields("業種CD") = "B" Then
KozaSyuruiSu = KozaSyuruiSu + RiyoGinkoKozaSu '当座と普通
End If
End If
Content.MoveNext
Loop
ii = 0
Dim aa,bb,cc,dd
For ii = 1 To KozaSyuruiSu
Response.Write("<tr>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
Response.Write("<select name=""GinkoCD" & ii & """ class=""tbox3"" onChange=""GokeiChangeGinko();"">" & vbCrLf)
Response.Write("<option value=""""> </option>" & vbCrLf)
NumGinko = NumGinko + 1
Set Content1 = OpenQuery(Query1)
bCheck = 0
Kingaku = 0
Do While Not(Content1.BOF Or Content1.EOF)
If GB_Admin >= 1 Or (GB_Admin = 0 And Content1.Fields("市場CD") = GB_ShijyoCD) Then
If Content1.Fields("業種CD") = "B" Then
For kk = 0 To RiyoGinkoKozaSu - 1
Dim MyGinkoCD, MyKozaKubun
MyGinkoCD = ""
MyKozaKubun = ""
If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
MyGinkoCD = ContentKoza.Fields("銀行CD")
MyKozaKubun = ContentKoza.Fields("口座区分")
End If
Response.Write("<option value=""" & Content1.Fields("会社CD") & "_" & KozaKubun(kk) & """")
If MyGinkoCD = Content1.Fields("会社CD") And MyKozaKubun = KozaKubun(kk) Then
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("処理時期区分") = 0 Then
Kingaku = Content.Fields("金額")
GinkoSoGokei = GinkoSoGokei + Kingaku
End If
Content.MoveNext
Loop
Response.Write(" selected")
bCheck = 1
End If
Response.Write(">" & Content1.Fields("会社略名称") & " " & ConvKubunMeisyo("口座区分", KozaKubun(kk)) & "</option>" & vbCrLf)
Next
End If
End If
Content1.MoveNext
Loop
If bCheck = 1 Then
ContentKoza.MoveNext
End If
Response.Write("</td>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
Response.Write("<input type=""text"" name=""GinkoKingaku" & ii & """ class=""tbox3"" onkeyup='ChangeMoney(this);' onblur='SetMoney(this, false, true);GokeiChangeGinko();' size=""12"" value=""" & ConvIntToMoney(Kingaku, false, true) & """>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
If GB_Admin >= 1 Then
Response.Write("<td align='center'>" & vbCrLf)
Response.Write("<input type=""checkbox"" value=""ON"" name=""GinkoSakujyo" & ii & """>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
End If
Response.Write("</tr>" & vbCrLf)
Next
%>
</table>
</td>
</tr>
<tr>
<td align="right">
合計金額：<input type="text" name="GinkoSoGokei" size="12" value="<% = SetMoney(GinkoSoGokei, false, true) %>" class="tbox3_ro" readonly >
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top">
<% If GB_Gyosyu <> "B" Then %>
<table border="0" class="tx1618" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
期首商品設定
</td>
</tr>
<%
If GB_Gyosyu = "S" And Kitakuriyou = 1 And KitakuKeiyaku < 1 Then
If GB_Admin >= 1 Then
Response.Write("<tr><td height=""100"" align=""center"" valign=""middle""><font color=""#FF0000"">寄託倉庫会社が設定されておりません</font></td></tr>" & vbCrLf)
Else
Response.Write("<tr><td height=""100"" align=""center"" valign=""middle""><font color=""#FF0000"">倉庫会社との間で寄託契約を締結してください</font></td></tr>" & vbCrLf)
End If
Else
%>
<tr>
<td>
<table border="1" class="tx1416" STYLE="border-collapse: collapse" bordercolor="#000000" cellspacing="0" cellpadding="3" bgcolor="#EEFFFF">
<tr align="center">
<td bgcolor="#FFFFCC">商品</td>
<td bgcolor="#FFFFCC">標準単価</td>
<td bgcolor="#FFFFCC">個数</td>
<td bgcolor="#FFFFCC">仕入単価</td>
<td bgcolor="#FFFFCC">金額</td>
<td bgcolor="#FFFFCC" class="tx1214">削除</td>
</tr>
<%
Dim SyohinSu, ShohinSogokei
Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
ShohinSogokei = 0
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS', '" & NyusyukoBango & "'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Set Content1 = OpenQuery(Query)
SyohinSu = 0
If Not(Content1.BOF Or Content1.EOF) Then
Do While Not(Content1.BOF Or Content1.EOF)
SyohinSu = SyohinSu + 1
Content1.MoveNext
Loop
Content1.MoveFirst
End If
ii = 0
For ii = 1 To SyohinSu
bCheck = 0
Dim MySuryo, MyTanka, MySyohinCD, Gokei
MySuryo = ""
MyTanka = ""
MySyohinCD = ""
Gokei = ""
If Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) Then
MySuryo = ContentNyusyuko.Fields("数量")
MyTanka = ContentNyusyuko.Fields("単価")
MySyohinCD = ContentNyusyuko.Fields("商品CD")
Gokei = MySuryo * MyTanka
ShohinSogokei = ShohinSogokei + Gokei
End If
NumSyohin = NumSyohin + 1
Response.Write("<tr>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
Response.Write("<select name=""SyohinCD" & ii & """ class=""tbox3"" style=""width: 154;"" onChange=""SetSyohinHanbaiTanka(" & ii & ");"">" & vbCrLf)
Response.Write("<option value=""""> </option>" & vbCrLf)
Response.Write(Replace(SyohinSelect, "value=""" & MySyohinCD & """", "value=""" & MySyohinCD & """ selected"))
Response.Write("</select>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
Response.Write("<input type='text' name='Kakaku" & ii & "' size='12' value='" & SetMoney(ConvSyohinHanbaiTanka(MySyohinCD), false, true) & "' class='tbox3_ro' readonly >" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
'Response.Write("<input type=""text"" name=""SyohinKosu" & ii & """ class=""tbox3"" onkeyup=""FormStrFloat(this.value,this.name,10,4)"" onblur=""FormStrMoneyCutoff(this.value,this.name);GokeiChangeSyohin(" & ii & ")"" size=""12"" value=""" & ConvIntToMoney(MySuryo, false, false) & """>" & vbCrLf)
Response.Write("<input type=""text"" name=""SyohinKosu" & ii & """ class=""tbox3"" onkeyup=""ChangeMoney(this);"" onblur=""SetMoney(this, false, true);GokeiChangeSyohin(" & ii & ")"" size=""12"" value=""" & ConvIntToMoney(MySuryo, false, false) & """>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
'Response.Write("<input type=""text"" name=""SyohinKingaku" & ii & """ class=""tbox3"" onkeyup=""FormStrFloat(this.value,this.name,10,4);"" onblur=""FormStrMoneyCutoff(this.value,this.name);GokeiChangeSyohin(" & ii & ")"" size=""12"" value=""" & ConvIntToMoney(MyTanka, false, false) & """>" & vbCrLf)
Response.Write("<input type=""text"" name=""SyohinKingaku" & ii & """ class=""tbox3"" onkeyup=""ChangeMoney(this);"" onblur=""SetMoney(this, false, true);GokeiChangeSyohin(" & ii & ")"" size=""12"" value=""" & ConvIntToMoney(MyTanka, false, false) & """>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("<td>" & vbCrLf)
Response.Write("<input type='text' name='Gokei" & ii & "' size='12' value='" & SetMoney(Gokei, false, true) & "' class='tbox3_ro' readonly >" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("<td align='center'>" & vbCrLf)
Response.Write("<input type=""checkbox"" value=""ON"" name=""SyohinSakujyo" & ii & """>" & vbCrLf)
Response.Write("</td>" & vbCrLf)
Response.Write("</tr>" & vbCrLf)
If Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) Then
ContentNyusyuko.MoveNext
End If
Content.MoveNext
Next
%>
</table>
</td>
</tr>
<%
Dim SoGokeiHyoji
If SyohinSu < 120 Then
SoGokeiHyoji = 1
Else
SoGokeiHyoji = 0
End If
%>
<% If SoGokeiHyoji > 0 Then %>
<tr>
<td align="right">
合計金額：<input type="text" name="ShohinSogokei" size="12" value="<% = SetMoney(ShohinSogokei, false, true) %>" class="tbox3_ro" readonly >
</td>
</tr>
<% End If %>
<%
End If
%>
</table>
<% End If %>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<input type="hidden" name="NumGinko" value="<% = NumGinko %>">
<input type="hidden" name="NumSyohin" value="<% = NumSyohin %>">
</form>
</body>
<% = HtmlFooter %>
<script language="JavaScript">
function SubmitCheck()
{
ii = 1;
var GinkoCDs, aGinkoCD;
aGinkoCD = "";
GinkoCDs = "";
while( typeof(form1["GinkoCD" + ii]) == "object" )
{
if(form1["GinkoCD" + ii].value == "" && form1["GinkoKingaku" + ii].value != "")
{
alert("口座を選択してください");
form1["GinkoCD" + ii].focus();
return;
}
aGinkoCD = GinkoCDs.split(",");
for(kk = 0; kk< aGinkoCD.length; kk++)
{
if(aGinkoCD[kk] != "" && aGinkoCD[kk] == form1["GinkoCD" + ii].value)
{
alert("口座が重複しています");
form1["GinkoCD" + ii].focus();
return;
}
}
GinkoCDs = GinkoCDs + form1["GinkoCD" + ii].value + ","
ii = ii + 1;
}
ii = 1;
var SyohinCDs, aSyohinCD;
aSyohinCD = "";
SyohinCDs = "";
while( typeof(form1["SyohinCD" + ii]) == "object" )
{
if(form1["SyohinCD" + ii].value != "" || form1["SyohinKosu" + ii].value != "" || form1["SyohinKingaku" + ii].value != "" )
{
if(form1["SyohinCD" + ii].value == "")
{
alert("商品を選択してください");
form1["SyohinCD" + ii].focus();
return;
}
if(form1["SyohinKosu" + ii].value == "")
{
alert("個数を選択してください");
form1["SyohinKosu" + ii].focus();
return;
}
if(form1["SyohinKingaku" + ii].value == "")
{
alert("仕入単価を選択してください");
form1["SyohinKingaku" + ii].focus();
return;
}
if(form1["SyohinKosu" + ii].value == "")
{
alert("個数を選択してください");
form1["SyohinKosu" + ii].focus();
return;
}
if(ConvMoneyToInt(form1["SyohinKosu" + ii].value, false, true) * ConvMoneyToInt(form1["SyohinKingaku" + ii].value, false, true) > 900000000000000)
{
alert("個数 x 仕入単価が 900,000,000,000,000円以下の金額になるようにデータを修正してください。");
form1["SyohinKingaku" + ii].focus();
return;
}
}
aSyohinCD = SyohinCDs.split(",");
for(kk = 0; kk< aSyohinCD.length; kk++)
{
if(aSyohinCD[kk] != "" && aSyohinCD[kk] == form1["SyohinCD" + ii].value)
{
alert("商品が重複しています");
form1["SyohinCD" + ii].focus();
return;
}
}
SyohinCDs = SyohinCDs + form1["SyohinCD" + ii].value + ","
ii = ii + 1;
}
//↓ランダムにウェイトを挟み保存処理（2006/10/11小野）
if(new Boolean(GetObj("BaseL5")) == true)
{
document.all.item("BaseL5").innerHTML = "更新中です。しばらくお待ちください。"
}
document.body.style.cursor="wait";
var RandomLength = 2000;//ウェイト幅（0～指定数値ミリ秒）
var RandomWaitTime = Math.floor( Math.random() * RandomLength );//RandomLengthに1未満の乱数を掛け合わせ小数点以下切り捨て
setTimeout( "SubmitReal(form1)", RandomWaitTime );
//↑ランダムにウェイトを挟み保存処理（2006/10/11小野）
// SubmitReal(form1);
}
function GokeiChangeSyohin(gyou) {
var Sogokei, Gokei, ii;
Sogokei = 0;
Gokei = 0;
if (typeof(form1["SyohinCD" + gyou]) == "object") {
Gokei = 0;
if (form1["SyohinKosu" + gyou].value != "" && form1["SyohinKingaku" + gyou].value != "") {
Gokei = ConvMoneyToInt(form1["SyohinKosu" + gyou].value) * ConvMoneyToInt(form1["SyohinKingaku" + gyou].value);
}
if (Gokei > 0) {
form1["Gokei" + gyou].value = ConvIntToMoney(Gokei);
} else {
form1["Gokei" + gyou].value = "";
}
}
<% If SoGokeiHyoji > 0 Then %>
ii = 1;
while (typeof(form1["Gokei" + ii]) == "object") {
Gokei = 0;
if (form1["SyohinKingaku" + ii].value != "") {
Gokei = ConvMoneyToInt(form1["Gokei" + ii].value);
}
Sogokei = Sogokei + Gokei;
ii = ii + 1;
}
if (Sogokei > 0) {
form1["ShohinSogokei"].value = ConvIntToMoney(Sogokei);
} else {
form1["ShohinSogokei"].value = "";
}
<% End If %>
}
function GokeiChangeGinko() {
Sogokei = 0;
ii = 1;
while (typeof(form1["GinkoCD" + ii]) == "object") {
var Gokei = 0;
if (form1["GinkoKingaku" + ii].value != "") {
Gokei = ConvMoneyToInt(form1["GinkoKingaku" + ii].value);
}
Sogokei = Sogokei + Gokei;
ii = ii + 1;
}
form1["GinkoSoGokei"].value = ConvIntToMoney(Sogokei);
}
function SetSyohinHanbaiTanka(iiflag)
{
document.form1["Kakaku" + iiflag].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + iiflag].value));
}
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 "";
}
</script>
</html>
<%
End Sub
%>