~~~ '判斷是否生成過 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 %> ~~~ ### 增加外加工字段   后加工廠:下單:開單日期: 后加工收貨人:交貨日期: