kq_jbsq_add_save.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 98 行

<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #include file="../share/connectdb.asp" -->
<!-- #include file="../share/pop_scspjl.asp" -->
<!-- #include file="../share/pubfunction.asp" -->
<!-- #include file="../inc/pubfun_a.inc" -->
<%call checkqx("0803")%> 
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim ssqxh,ssqr,stbr,ssqzw,ssqsj,ssqbm,ssqsy
	dim syjkssj,syjjssj,ssjkssj,ssjjssj,ssplc,syjgs
	ssqxh=""
	ssqr=""
	stbr=""
	ssqzw=""
	ssqsj=""
	ssqbm=""
	ssqsy=""
	ssyjkssj=""
	ssyjjssj=""
	ssjkssj=""
	ssjjssj=""
	ssplc=""
	syjgs=0
	ssqr=session("LoginID")
	stbr=session("LoginID")
	ssqzw=Request.Form("sqzw")
	ssqsj=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn:ss")
	ssqbm=Request.Form("sqbm")
	ssqsy=Request.Form("sqsy")
	syjkssj=Request.Form("yjkssj")
	syjjssj=Request.Form("yjjssj")
	ssplc=Request.Form("splc")
	syjgs=Request.Form("yjgs")
	Response.Write ssplc & "aaa<br>"
	conn.begintrans
	ssqxh=1
	rs.Open "select max(sqxh) from oa_sqjbxx",conn,1,1
	if not rs.EOF then
	    if rs(0) & ""<>"" then
	        ssqxh=clng(rs(0))+1
	    end if
	end if
	rs.Close
	'保存申请基本信息
	rs.Open "Select * from oa_sqjbxx where sqxh=" & ssqxh,conn,3,2
	rs.AddNew
	rs("sqxh")=ssqxh
	rs("sqlb")="09"
	rs("sqr")=ssqr
	rs("tbr")=stbr
	rs("sqzw")=ssqzw
	rs("sqsj")=ssqsj
	rs("sqbm")=ssqbm
	rs("sqsy")=ssqsy
	rs("spbz")="N"
	rs("DJBZ")="0"
	rs.Update
	rs.Close
	'保存审批记录
	Response.Write ssqxh & "<br>"
	Response.Write ssplc & "<br>"
	if pub_first_spjl(ssqxh,ssplc,"09")<>"OK" then
	    conn.rollbacktrans
	    set rs=nothing
      conn.close
      set conn=nothing
      Response.Write "保存失败"
      Response.End
	end if
	'保存加班申请信息
	rs.Open "select * from oa_jbmx where sqxh=" & ssqxh,conn,3,2
	rs.AddNew
	rs("sqxh")=ssqxh
	rs("yjkssj")=syjkssj
	rs("yjjssj")=syjjssj
	rs("yjgs")=syjgs
	'事后报加班
	if syjjssj<=ssqsj then
	    rs("sjkssj")=syjkssj
	    rs("sjjssj")=syjjssj
	    rs("hzqk")="3"
	    rs("sjgs")=syjgs
	else
	    rs("sjkssj")=""
	    rs("sjjssj")=""
	    rs("hzqk")="0"
	    rs("sjgs")=0
	end if
	rs.Update
	rs.Close
	conn.committrans
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_jbsq.asp"
%>