func_ingoods.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
	function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	function DoSubmit0(value)
	{
		document.selectform.selectid.value=value;
		document.selectform.submit();
	}

	function dochange1(value)
	{
		document.selectform2.srcid.value=value;
		document.selectform2.submit();
	}

	function DoSubmit1(value,value2)
	{
		if(value2==1)
		{
			if(!confirm("删除后将无法恢复，一定要删除吗？"))
				return;	
		}
		else if(value2==2)
		{
			if(!confirm("密码清除后将无法恢复，一定要清除密码吗？"))
				return;
		}
		document.deleform.deleteid.value=value;
		document.deleform.deleteflag.value=value2;
		document.deleform.submit();
	}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial

set rs = Server.CreateObject("ADODB.Recordset")

if request("deleteflag")="1" then
	sql="delete from cci_jxc_ingoods where id=" & request("deleteid")
	ConnObj.execute(sql)

	sql="delete from cci_jxc_inmxgoods where srcid=" & request("deleteid")
	ConnObj.execute(sql)
	
	msg="信息删除成功，编号为:" & request("deleteid")
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


if request("saveflag")<>"" then
	dim msg
	saveserial=1
	msg=""

	if trim(request("providorid"))="" then
		msg=msg & saveserial & "、请选择供应商!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("depotid"))="" then
		msg=msg & saveserial & "、请选择入库仓位!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("code"))="" then
		msg=msg & saveserial & "、请输入单据编码!<br>"
		saveserial=saveserial+1
	end if	
	if trim(request("userid"))="" then
		msg=msg & saveserial & "、请选择采购员!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("paymode"))="" then
		msg=msg & saveserial & "、请选择付款方式!<br>"
		saveserial=saveserial+1
	end if
		if trim(request("totalmoney"))="" then
		msg=msg & saveserial & "、请输入总金额!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("iotype"))="" then
		msg=msg & saveserial & "、请选择入库类别!<br>"
		saveserial=saveserial+1
	end if
	
	if saveserial<=1 then
		if request("saveflag")<>"1" then
			sql="select * from cci_jxc_ingoods where id=" & request("id")
		else
			sql="select * from cci_jxc_ingoods"
		end if
		rs.open sql,connobj,3,3
		if request("saveflag")="1" then
			rs.addnew
		end if
		rs("providorid")=request("providorid")
		rs("depotid")=request("depotid")

		rs("code")=request("code")
		
		rs("operid")=session("userid")
		
		rs("userid")=request("userid")
		rs("paymode")=request("paymode")

		rs("totalmoney")=request("totalmoney")
		rs("iotype")=request("iotype")
		
		rs("intime")=now
		
		
		rs.update
		rs.close



		msg="进货资料保存成功！!"
	end if
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


SQL = "select a.id,a.code,b.thename,c.depotname,a.totalmoney,a.intime From cci_jxc_ingoods a,cci_jxc_providor b,cci_jxc_depot c where a.providorid=b.id and a.depotid=c.id order by a.id desc"
Rs.Open Sql,connObj,1,1
sumcount=rs.recordcount
%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		<th  height="25" align="center"> 
		  <b><%=site_title%>进货资料管理</b> 
      <div align="right"></div></th>
        </tr>
       
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF" > 
                  
             <table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
              <tr align="center" height=25> 
                
          <td class=TopLighNav ><b>单据编号</b></td>
          <td class=TopLighNav width="80"><b>供应商</b></td>
          <td class=TopLighNav width="60"><b>仓库</b></td>
          <td class=TopLighNav width="80"><b>金额</b></td>
		  <td class=TopLighNav width="80"><b>日期</b></td>
		  <td width="30" class=TopLighNav><b>修改</b></td>
		  <td width="30" class=TopLighNav><b>删除</b></td>
              </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 20
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					ars = Rs.Getrows(page_size)
			  
					For i = 0 To Ubound(ars,2)
				%>
              <tr bgcolor=#FFFFFF align="center" height= 20> 
                <td><%=ars(1,i)%></td>
                <td> <% = ars(2,i) %> </td>
				<td> <% = ars(3,i) %> </td>
				<td><%=ars(4,i)%></td>
				<td><%=formatdatetime(ars(5,i),1)%></td>
				<td><input type=radio name=abc <%if request("selectid")=cstr(ars(0,i)) then response.Write(" checked")%>  onclick="DoSubmit0(<%=trim(Ars(0,i))%>)"></td>
				<td><input type=radio name=bcd onclick="DoSubmit1(<%=trim(Ars(0,i))%>,1)"></td>
              </tr>
              <%
			    
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=7>目前没有进货资料录入!</td></tr>")
			End If
			rs.close
				%>
            </table>
                
                </td>
              </tr>
              
                <tr bgcolor="#EEEEEE">  <form name="form1">
                  <td height="24" align="right" bgcolor="#ffffff" >
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="ingoods.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="ingoods.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="ingoods.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="ingoods.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%>
                  </td> </form>
                </tr>
             
          
      </table>



<%
	if request("selectflag")="1" then
		sql="select * from cci_jxc_ingoods where id=" & request("selectid")
		Rs.Open Sql,connObj,1,1
		if not rs.eof then
			Id=rs("id")
			providorid=rs("providorid")
			depotid=rs("depotid")
			code=rs("code")
			operid=rs("operid")
			paymode=rs("paymode")
			totalmoney=rs("totalmoney")
			userid=rs("userid")
			iotype=rs("iotype")
		end if
		rs.close
	end if
%>
  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform" method="post" action="" > <input type=hidden name=id value="<%=id%>"> 
    <tr > 
      <th height="25" colspan="4" align="center" class=TopLighNav>进货资料录入</th>
    </tr>
    <tr> 
      <td width="100" class=tablebody1>单据编号</td>
      <td class=tablebody1><input name="code" type="text" size="30" value="<%=code%>"> 
      </td>
	  <td width="100" class=tablebody1>供应商</td>
      <td class=tablebody1><select name=providorid>
          <%
	  		sql="select id,thename from cci_jxc_providor"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if providorid=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("thename") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("thename") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  %> </select>
      </td>
    </tr>
    <tr> 
      <td class=tablebody1>仓库</td>
      <td  width="250" class=tablebody1><select name=depotid>
          <%
	  		sql="select id,depotname from cci_jxc_depot"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if depotid=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("depotname") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("depotname") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  %> </select></td>
      <td width="100" class=tablebody1>付款方式</td>
      <td class=tablebody1>
	  <select name=paymode>
          <%
	  		sql="select id,paymode from cci_jxc_paymode"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if paymode=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("paymode") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("paymode") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  %> </select> </td>
    </tr>

    <tr> 
      <td class=tablebody1>总金额</td>
      <td class=tablebody1><input name="Totalmoney" type="text"  size="10" value="<%=Totalmoney%>">(元) </td>
      <td class=tablebody1>采购员</td>
      <td class=tablebody1><select name=UserID>
          <%
	  		sql="select id,name from cci_user"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if UserID=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("name") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("name") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  %> </select></td>
    </tr>
	
    <tr> 
      <td class=tablebody1>入库类别</td>
      <td class=tablebody1 colspan="3"><select name=iotype>
          <%
	  		sql="select id,typename from cci_jxc_iotype"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if iotype=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("typename") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("typename") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  %> </select>
	  
	  </td>
	</tr>

    <input type=hidden name=saveflag value="<%
  if request("selectflag")="1" then
  	response.Write "2"
  else
  	response.Write "1"
  end if
  %>">
  <% if request("selectflag")="1" then%>
  <tr> 
      <td colspan="4" align="center" class=tablebody1><input type="button" name="button1" value="进货明细" onClick="dochange1(<%=id%>)"></td>
	  
    </tr>
  <% end if
  %>
   <tr> 
  <td colspan="4" align="center" class=tablebody1><input type="submit" name="Submit" value=" 保 存 "></td>
   </tr>
  </form>
  
</table>
<form name=deleform action="" method=post>
<input type=hidden name=deleteid>
<input type=hidden name=deleteflag>
</form>
<form name=selectform action="" method=post>
<input type=hidden name=selectid>
<input type=hidden name=selectflag value="1">
</form>
<form name=selectform2 action="inmxgoods.asp" method=post>
<input type=hidden name=srcid>
</form>