~~~ '判断是否生成过 set kkklll=server.CreateObject("adodb.recordset") set kkklll=conn.execute("select * from myprint where id="&smyid(mmm)&"") if kkklll("qianshou")=0 then set m=conn.execute("update myprint set qianshou=1,songhuo='"&now&"' where id="&smyid(mmm)&"") else 'set m=conn.execute("update myprint set songhuo='"&now&"' where id="&smyid(mmm)&"") end if ~~~ 如果签收过，则明细表 更新送货时间 songhuo 如果没有签收过 更新明细表 qianshou=1 songhuo时间为当前时间 ~~~ SqlEasy.ExecuteNonQuery("update jydOrderDetail set qianshou=1,songhuo='"+DateTime.Now.ToString()+ "' where orderid='" + dateii + "' and keyid in (" + Request["dids"] ~~~ jydorder主表增加字段 szpje 收支票金额 sxjje 收现金金额 zrrid 责任人ID 为兼容老系统 szp sxj 修改为datetime 字段 明细表新增字段 szpje 收支票金额 sxjje 收现金金额 zrrid 责任人ID myxd 后加工下单人 myxdid 后加工下单人id myxdrq 后加工下单日期 mysh 后加工收货人 myshid 后加工收货人id myjhrq 后加工收货日期 mycc 后加工尺寸 mynum 后加工数量 mydj 后加工单价 myje 后加工金额（作废） mytotal 后加工金额小计（作废） myzzxm 后加工制作项目 myws 后加工印刷厂 已有 myysf 后加工费用 O_myhjg 后加工方式 wsjgbz 后加工备注 为兼容老系统 szp sxj 修改为datetime 字段 ~~~ if request("szp_all")<>"" or request("sxj_all")<>"" then '假如全单收款状态为3 '生成送货单写状态 set stat=server.CreateObject("adodb.recordset") set stat=conn.execute("update ks_order set mystatus=3,status=status + ',3' where orderid='"&request("myorderid")&"' ") ~~~ ## 原后台操作结清 ~~~ <% if request("cmd")="sk" then 'response.Write(request("id")) 'response.end 'response.Write("insert into MyPrint (sxj,skje) values ('"&now&"',"&request("shoukuan")&") where id="&request("id")&" ") 'response.Write("update MyPrint set sxj='"&now&"',skje="&request("shoukuan")&" where id="&request("id")&" ") 'response.End() 'response.Write("测试2") set sk=server.CreateObject("adodb.recordset") if request("sktype")="xj" then '收现金时 set sk=conn.execute("update MyPrint set sxj='"&now&"',skje=je where id="&request("id")&" ") response.Write("收现金") end if if request("sktype")="zp" then '收支票时 set sk=conn.execute("update MyPrint set szp='"&now&"',skje=je where id="&request("id")&" ") response.Write("AAAupdate MyPrint set szp='"&now&"',skje=je where id="&request("id")&" AAA") response.Write("收支票") end if 'sk.close set tj=server.CreateObject("adodb.recordset") '统计该订单已经收款的总金额 set tj=conn.execute("select sum(skje) as alskje from myprint where orderid='"&request("ooid")&"'") response.Write("统计总金额") ddskje=tj("alskje") 'tj.close '计算出订单金额 'response.Write("测试w") set js=server.CreateObject("adodb.recordset") '计算出订单金额 set js=conn.execute("select jexx from ks_order where orderid='"&request("ooid")&"' ") 'response.Write("select jexx from ks_order where orderid='"&request("ooid")&"' ") jexxxxx=js("jexx") response.Write("测试x") 'js.close 'response.End() '如果总收款金额大于订单金额的时候则更新mystatus=3 if ddskje>=jexxxxx then set gxxx=server.CreateObject("adodb.recordset") set gxxx=conn.execute("update ks_order set mystatus=3 where orderid='"&request("ooid")&"' ") response.Write("update ks_order set mystatus=3 where orderid='"&request("ooid")&"' ") 'response.End() 'gxxx.close end if 'response.Write("测试！1") 'response.End() '蒋收款流水写入数据库 set ls=server.CreateObject("adodb.recordset") set ls=conn.execute("insert into ks_skls (ddid,khmc,jjdh,yspm,dept,skje) values ("&request("id")&",'"&request("khmc")&"','"&request("ooid")&"','"&request("yspmc")&"','"&request("dept")&"',"&request("jqje")&")") response.Write("test charu !") '保留小数点两位 GetCaozuo "后台结清款项","用户："&session("username")&"操作了一笔结算业务！订单id："&request("id")&".客户是："&request("khmc")&"" 'response.Redirect "hzb.asp?khmc="&request("khmc")&"" response.write "<script>alert('操作成功!');</script>" response.Redirect "hzb.asp?jjjjjj=0"&request("urlold")&"" response.Write("成功!") response.End() end if %> ~~~ ### 增加外加工字段   后加工厂:下单:开单日期: 后加工收货人:交货日期: