<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%nowsel=request("select")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link rel="stylesheet" href="../css/style1.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=selectlanguage_Fun(user_default_language,"Period Setup","存货会计期间设置")%></title>
<style type="text/css">
<!--
.style1 {
color: #0099ff;
font-size: 16px;
font-weight: bold;
}
body {
background-image: url(../imagers/di3.gif);
}
.style2 {
color: #FF0000;
font-weight: bold;
font-size: 14px;
}
-->
</style>
</head>
<body>
<form name="form1">
<span class="style1">选择预开期间的个数</span>
<select name="select" onChange="form1.submit()">
<option value="">请选择</option>
<%for j=1 to 12%>
<option value="<%=j%>" <%if j=nowsel then%>selected="selected" <%end if%>><%=j%></option>
<%next%>
</select>
</form>
<form name="form2">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#cccccc">
<tr bgcolor="#FFFFEE">
<td colspan="6" align="center"><span class="style1">库存会计期间设置</span></td>
</tr>
<tr bgcolor="#ffffee">
<td>字首</td>
<td>期间名称（中文）</td>
<td><%=selectlanguage_Fun(user_default_language,"Year","年度")%></td>
<td><%=selectlanguage_Fun(user_default_language,"Period Name(Eng)","期间名称(英文)")%></td>
<td><%=selectlanguage_Fun(user_default_language,"From","起始日期")%></td>
<td><%=selectlanguage_Fun(user_default_language,"To","终止日期")%></td>
</tr>
<%if nowsel<>"" then
for i=1 to request("select")%>
<tr bgcolor="#ffffee">
<td><%=i%></td>
<td><input name="data1" type="text" class="txtBoxStyle2" size="20"></td>
<td><input name="textfield" type="text" class="txtBoxStyle2" size="10"></td>
<td><input name="data2" type="text" class="txtBoxStyle2" size="15"></td>
<td> <input name="startdate" class="txtBoxStyle2" style="width:100px" value="<%=nowstartdate%>" size="20">
<img src="../imagers/date.gif" width="23" height="22" align="absmiddle" style="cursor:pointer;" onClick="JavaScript:window.open('day.asp?form=form2&field=startdate&oldDate='+startdate.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=150,left=590');"></td>
<td> <input name="enddate" class="txtBoxStyle2" style="width:100px" value="<%=nowenddate%>" size="20">
<img src="../imagers/date.gif" width="23" height="22" align="absmiddle" style="cursor:pointer;" onClick="JavaScript:window.open('day.asp?form=form2&field=enddate&oldDate='+enddate.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=150,left=740');">
</td>
</tr>
<%next
end if%>
<tr bgcolor="#ffffee">
<td colspan="6" align="center"><input name="submit" type="submit" class="go-wenbenkuang" value="提交">
<input name="reset" type="reset" class="go-wenbenkuang" onClick="javascript:self.close()" value="<%=selectlanguage_Fun(user_default_language,"Close","关闭")%>"></td>
</tr>
</table>
</form>
<span class="style2">备注：（期间中文样式为:年+月，即200801;英文形式月-年，即may-08)</span><br>
</body>
</html>
<%if request("submit")="提交" then
response.Write nowsel
num=request("data1").count
response.Write num
for y=1 to num
sql1="select period_name_cn from stock_period where period_name_cn='"&request("data1")(y)&"'"
set rs1=conn.execute(sql1)
if not rs1.eof then
response.Write("<script language='javascript'>alert('您选择的"+request("data1")+"已经存在,请选择其他期间!');history.go(-1);</script>")
response.End()
else
sql="insert into stock_period(period_name_cn,period_name_en,start_date,end_date)values('"&request("data1")(y)&"','"&request("data2")(y)&"','"&request("startdate")(y)&"','"&request("enddate")(y)&"')"
set rs=conn.execute(sql)
end if
next
response.Write("<script language='javascript'>alert('期间设置成功!');window.location.href('inventory_period.asp');</script>")
response.End()
end if%>
