页面统计&更新问题？

homel 2008-11-05 09:44:58
各位高手，请给点思路，谢谢了！
实现效果，如下：
单据号 业务类型 开单日期 单位 收入|数量 发出|数量 结存|数量
货品编码：A304 品名：牛 皮 纸() 张
期初结存 32590
AT-2008-11-00001 报损单 2008-11-4 10 32580
DR-2008-11-00001 领退料单 2008-11-4 65 32515
DR-2008-11-00002 领退料单 2008-11-4 11 32504
2008-11-00001 采购入库 2008-11-4 200 32704
期末结存 32704

现在没有办法获取每一个明细行的结存数量，用数组话，如果有n个货品编码记录的话，数据就会累计？
请大家给点建议，这些数据都是利用sql写出来的，关于单据类型，也是根据记录集的数据判断的
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="../../common/public_function.asp" -->

<!--#include  file="../../common/menuinc.asp"-->

<%title=selectLanguage_Fun(user_default_language,"stock-account","账面库存明细表")

 dim a(20)%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet"  href="../css/style1.css" type="text/css">

<title><%=title%></title>

<style type="text/css">

<!--

body {

	background-color: #dcdbdb;

	margin-top: 0px;

}

.style3 {color: #ffffff; font-weight: bold; }

.style4 {

	color: #0099ff;

	font-weight: bold;

	font-size: 18px;

}

-->

</style></head>



<body>



<table width="90%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#cccccc">

  <tr bgcolor="#ffffff">

    <td colspan="8"><div align="center"><img src="../imagers/xtreme_logo.gif" width="70" height="71">  <span class="style4">账面库存明细表</span></div></td>

  </tr>

  </table>



  <table width="90%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#cccccc">

    <tr bgcolor="000">

      <td width="10%"><span class="style3">序号</span></td>

	  <td width="16%"><span class="style3">单据号</span></td>

      <td width="10%"><span class="style3">业务类型</span></td>

      <td width="11%"><span class="style3">开单日期</span></td>

      <td width="13%"><span class="style3">单位</span></td>

      <td width="13%"><span class="style3">收入</span></td>

      <td width="12%"><span class="style3">发出</span></td>

      <td width="6%"><span class="style3">结存</span></td>

      <td width="9%"> </td>

	</tr>

	<%i=1

	sql="select a.period,a.inventory_item_id,sum(a.banlance)as total,b.prod_name_cn,b.prod_name_en,b.id_talk_code from stocks a inner join [020_product_main] b on a.inventory_item_id=b.id and  a.period=convert(char(6),dateadd(m,-1,getdate()),112) group by   a.period,a.inventory_item_id,b.prod_name_cn,b.prod_name_en,b.id_talk_code"

  set rs=server.CreateObject("adodb.recordset")

  rs.open sql,conn,1,1

  y=0

  do while not rs.eof%>

  

  <tr  <%if y mod 2=0 then

  response.Write("bgcolor='#efefef'")

  else

  response.Write("bgcolor='#ffffff'")

  end if%>>

    <td><%=i%></td>

    <td>料号：<%=rs("id_talk_code")%></td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

  </tr>  

  <tr <%if y mod 2=0 then

  response.Write("bgcolor='#ffffff'")

  else

  response.Write("bgcolor='#efefef'")

  end if%>>

    <td> </td>

    <td>期初结存</td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td> </td>

    <td><%=rs("total")%></td>

    <td></td>

  </tr>

  <%m=0

  set rs1=server.CreateObject("adodb.recordset")

  'sql="select a.inventory_item_id,a.transaction_action_id,a.transaction_quantity,a.create_date,(case  transaction_action_id  when 3 then '入库单'when 1 then '出库单'  when 6 then '报损单'end )as receipt_type ,b.prod_name_cn,b.prod_name_en,b.id_talk_code    from mtl_material_transactions a inner join [020_product_main] b on a.inventory_item_id=b.id and  convert(char(6),create_date,112)=convert(char(6),getdate(),112) and a.inventory_item_id="&rs("inventory_item_id")

sql="select a.inventory_item_id,a.transaction_action_id,a.create_date,a.transaction_quantity,b.rec_no as receipt_type,b.buy_count from mtl_material_transactions a inner join to_depot b on a.inventory_item_id=b.inventory_item_id and a.transaction_action_id=3 and  convert(char(6),a.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),b.create_date,112)=convert(char(6),getdate(),112) and a.inventory_item_id="&rs("inventory_item_id")&""

sql=sql &"union all"

sql=sql &"  select  c.inventory_item_id,c.transaction_action_id,c.create_date,c.transaction_quantity, d.outlist as receipt_type,d.total from mtl_material_transactions c inner join (select  m.inventory_item_id,m.total,m.out_id,n.outlist,n.out_date from out_depot_lines_all m inner join out_depot n   on m.out_id=n.out_id and convert(char(6),n.create_date,112)=convert(char(6),getdate(),112)) d on c.inventory_item_id=d.inventory_item_id and c.transaction_action_id=1 and  convert(char(6),c.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),d.out_date,112)=convert(char(6),getdate(),112) and c.inventory_item_id="&rs("inventory_item_id")&""

sql=sql &"union all"

sql=sql&"  select  e.inventory_item_id,e.transaction_action_id,e.create_date,e.transaction_quantity,f.damage_no as receipt_type,f.damage_qty from mtl_material_transactions e inner join product_damage f on e.inventory_item_id=f.inventory_item_id and e.transaction_action_id=6 and  convert(char(6),e.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),f.create_date,112)=convert(char(6),getdate(),112) and e.inventory_item_id="&rs("inventory_item_id")&""

  rs1.open sql,conn,1,1

  do while not rs1.eof%>

  <tr <%if m mod  2=0 then 

  response.Write("bgcolor='#efefff'")

  else

  response.Write("bgcolor='#ffffff'")

  end if%>>



    <td></td>

    <td><%=rs1("receipt_type")%></td>

    <td><%if rs1("transaction_action_id")=3 then%>入库单<%elseif rs1("transaction_action_id")=1 then%>出库单<%elseif rs1("transaction_action_id")=6 then%>报损单<%end if%></td>

    <td><%=rs1("create_date")%></td>

    <td> </td>

    <td><%if rs1("transaction_action_id")=3  then%><%=rs1("transaction_quantity")%><%end if%></td>

    <td><%if rs1("transaction_action_id")=1  or  rs1("transaction_action_id")=6 then%><%=rs1("transaction_quantity")%><%end if%></td>

    <td><%if rs1("transaction_action_id")=3 then%><%=rs1("transaction_quantity")+rs("total")%><%else%><%a(1)=rs("total")-rs1("transaction_quantity")%><%=a(1)%><%end if%></td>

    <td> </td>

  </tr>

  <%m=m+1

  rs1.movenext

  loop

  rs1.close

  set rs1=nothing

  i=i+1

  y=y+1

  rs.movenext

  loop%>

</table>





</body>

</html>


...全文
75 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
homel 2008-11-06
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 g125989100 的回复:]
<%
dim j:j=0
for i=0 to 10
j=j+i
next
%>
这个道理 ’累计‘
[/Quote]
累计谁都会啊，
数组也可以
请看清楚我后面的代码!!
3ks!
不耐烦 2008-11-06
  • 打赏
  • 举报
 回复
<%
dim j:j=0
for i=0 to 10
j=j+i
next
%>
这个道理 ’累计‘
homel 2008-11-06
  • 打赏
  • 举报
 回复
ls的谢谢你了，能不能给我讲一下你的额思路呢？
homel 2008-11-06
  • 打赏
  • 举报
 回复
谢谢ls的耐心，谢谢啦
babo021 2008-11-06
  • 打赏
  • 举报
 回复 


'以下新增，用于计算每一个明细行的结存数量

1、    sqltemp="select top "&m+1&replace(sql,"select a.inventory_item_id,a.transaction_action_id,a.create_date,a.transaction_quantity,b.rec_no as receipt_type,b.buy_count","")

2、   sqltemp="select case transaction_action_id when '报损单' then -1*sum(transaction_quantity) when '领退料单' then -1*sum(transaction_quantity) when '采购入库' then sum(transaction_quantity) end as Expr1 from "&sqltemp&" group by transaction_action_id)"

3、    sqltemp="select sum(Expr1) from "&sqltemp

    rstemp.open sqltemp,conn,1,1

4、    rowTotal=rs("total")+rstemp(0)

'新增完毕


从“do while not rs1.eof”，你开始循环显示明细行
1、读取明细行的前面m+1行
2、按transaction_action_id进行分组累加，'报损单' 和'领退料单'做负数处理，'采购入库'做正数处理
3、将'报损单' 、'领退料单'和'采购入库'再做累加，结果为前m+1行产生的变化
4、再与的期初结存相加
homel 2008-11-05
  • 打赏
  • 举报
 回复
请大鸟们给看看啊
babo021 2008-11-05
  • 打赏
  • 举报
 回复 


......

  <%m=0

  set rs1=server.CreateObject("adodb.recordset")

  'sql="select a.inventory_item_id,a.transaction_action_id,a.transaction_quantity,a.create_date,(case  transaction_action_id  when 3 then '入库单'when 1 then '出库单'  when 6 then '报损单'end )as receipt_type ,b.prod_name_cn,b.prod_name_en,b.id_talk_code    from mtl_material_transactions a inner join [020_product_main] b on a.inventory_item_id=b.id and  convert(char(6),create_date,112)=convert(char(6),getdate(),112) and a.inventory_item_id="&rs("inventory_item_id")

sql="select a.inventory_item_id,a.transaction_action_id,a.create_date,a.transaction_quantity,b.rec_no as receipt_type,b.buy_count from mtl_material_transactions a inner join to_depot b on a.inventory_item_id=b.inventory_item_id and a.transaction_action_id=3 and  convert(char(6),a.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),b.create_date,112)=convert(char(6),getdate(),112) and a.inventory_item_id="&rs("inventory_item_id")&""

sql=sql &"union all"

sql=sql &"  select  c.inventory_item_id,c.transaction_action_id,c.create_date,c.transaction_quantity, d.outlist as receipt_type,d.total from mtl_material_transactions c inner join (select  m.inventory_item_id,m.total,m.out_id,n.outlist,n.out_date from out_depot_lines_all m inner join out_depot n   on m.out_id=n.out_id and convert(char(6),n.create_date,112)=convert(char(6),getdate(),112)) d on c.inventory_item_id=d.inventory_item_id and c.transaction_action_id=1 and  convert(char(6),c.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),d.out_date,112)=convert(char(6),getdate(),112) and c.inventory_item_id="&rs("inventory_item_id")&""

sql=sql &"union all"

sql=sql&"  select  e.inventory_item_id,e.transaction_action_id,e.create_date,e.transaction_quantity,f.damage_no as receipt_type,f.damage_qty from mtl_material_transactions e inner join product_damage f on e.inventory_item_id=f.inventory_item_id and e.transaction_action_id=6 and  convert(char(6),e.create_date,112)=convert(char(6),getdate(),112) and convert(char(6),f.create_date,112)=convert(char(6),getdate(),112) and e.inventory_item_id="&rs("inventory_item_id")&""



'以下新增，用于计算每一个明细行的结存数量

	sqltemp="select top "&m+1&replace(sql,"select a.inventory_item_id,a.transaction_action_id,a.create_date,a.transaction_quantity,b.rec_no as receipt_type,b.buy_count","")

	sqltemp="select case transaction_action_id when '报损单' then -1*sum(transaction_quantity) when '领退料单' then -1*sum(transaction_quantity) when '采购入库' then sum(transaction_quantity) end as Expr1 from "&sqltemp&" group by transaction_action_id)"

	sqltemp="select sum(Expr1) from "&sqltemp

	rstemp.open sqltemp,conn,1,1

	rowTotal=rs("total")+rstemp(0)

'新增完毕



  rs1.open sql,conn,1,1

  do while not rs1.eof%>

......
2小时候学会SpringBoot整合Thymeleaf生成静态页面
大家能想到什么办法来解决这个问题？ 首先我们能想到的就是缓存技术，比如之前学习过的Redis。不过Redis适合数据规模比较小的情况。假如数据量比较大，例如我们的商品详情页。每个页面如果10kb，100万商品，就是10...
访客统计PHP代码
最简单的方法便是使用平台的统计功能，比如cnzz，百度统计等等平台，但这篇文章的重点是自己写代码实现统计功能 一、文件方式简单统计 用php实现一个简单的访客统计功能，统计网站的总访问量是多少，简单实用...
wordpress最新文章实现的三种方法
如果你是一个WordPress主题开发者，或者wordpress谜，那么... //显示10篇最新更新文章 或者 <?php wp_get_archives(‘type=postbypost&limit=20&format=custom’); ?>//显示20篇最新更新文章 后面这
vue 单页面 使用百度统计不能统计到内页访问的问题
然后测试说只能统计到入口主页的访问次数，不能统计到内页，然后咨询一下前端的大神，怪自己是新手，vue是单页面应用，head 头部加载一次之后，若不主动刷新的话，代码不会更新或者添加，切换的时候也不会带动头部...
java实现网站的访问量_如何实现对网站页面访问量的统计（javaweb和php）
如何实现对网站页面访问量的统计(javaweb和php)...用拦截器+定时更新要对页面访问量统计也就是pv，主要就是拦截，写一个拦截器类实现HandlerInterceptor接口，拦截所有请求然后拦截请求需要做的是什么？从数据库取出...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章