<%
|
'--------------------------事务结束处理---------------------begin
|
Function rsRollbackTrans(rsErrors)
|
'sql="Insert into OA_OperationRecord (OperationID,OperationAction,OperationRecord,OperationIP) values ('"&session("adminID")&"','"&admin_save&"','"&OperationRecord&"','"&Request.ServerVariables("REMOTE_ADDR")&"')"
|
'objConn.Execute sql
|
if rsErrors=0 then
|
objConn.CommitTrans
|
else
|
objConn.RollbackTrans
|
%>
|
<script language=javascript>
|
alert("网络错误,请稍后再试!!")
|
window.history.go(-1)
|
</script>
|
<%
|
Response.End
|
end if
|
End Function
|
'--------------------------事务结束处理---------------------end
|
|
'--------------------------生成唯一ID---------------------begin
|
'生成时间ID
|
Function DTimeID()
|
Ye=Year(date())
|
Mo=Month(date())
|
Da=Day(date())
|
Ho=Hour(time())
|
Mi=Minute(time())
|
Se=Second(time())
|
if len(Mo)=1 then Mo="0" & Mo
|
if len(Da)=1 then Da="0" & Da
|
if len(Ho)=1 then Ho="0" & Ho
|
if len(Mi)=1 then Mi="0" & Mi
|
if len(Se)=1 then Se="0" & Se
|
DTimeID = Mo&Da&Ho&Mi&Se
|
End Function
|
|
'生成日期ID
|
Function DDateID()
|
Ye=Year(date())
|
Mo=Month(date())
|
Da=Day(date())
|
Ho=Hour(time())
|
Mi=Minute(time())
|
Se=Second(time())
|
if len(Mo)=1 then Mo="0" & Mo
|
if len(Da)=1 then Da="0" & Da
|
if len(Ho)=1 then Ho="0" & Ho
|
if len(Mi)=1 then Mi="0" & Mi
|
if len(Se)=1 then Se="0" & Se
|
DDateID = Ye&Mo&Da
|
End Function
|
|
'创建随机ID过程
|
function getID()
|
dim numbers
|
dim letters
|
dim i
|
dim ID
|
Randomize
|
numbers = "0123456789"
|
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
for i = 1 to 10
|
if i mod 2 <> 0 then
|
ID = ID & mid(letters, Int((26 * Rnd) + 1),1)
|
else
|
ID = ID & mid(numbers, Int((10 * Rnd) + 1),1)
|
end if
|
next
|
getID = ID
|
end function
|
|
'创建随机ID过程2
|
Function randKey(obj)
|
Dim char_array(80)
|
Dim temp
|
For i = 0 To 9
|
char_array(i) = Cstr(i)
|
Next
|
For i = 10 To 35
|
char_array(i) = Chr(i + 55)
|
Next
|
For i = 36 To 61
|
char_array(i) = Chr(i + 61)
|
Next
|
Randomize
|
For i = 1 To obj
|
'rnd函数返回的随机数在0~1之间，可等于0，但不等于1
|
'公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限
|
temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)
|
Next
|
randKey = temp
|
End Function
|
|
'创建唯一ID过程,调用DTimeID()、getID()
|
Function CreateMyID()
|
dim MyID
|
MyID=DTimeID()&"-"&getID()
|
CreateMyID = MyID
|
End Function
|
'response.write CreateMyID()
|
'--------------------------生成唯一ID---------------------end
|
|
'日期格式整理
|
Function DateFormat(DateA)
|
If DateA<>"" Then
|
DateA1=Month(DateA)&"/"&day(DateA)&" "&Right("0"&hour(DateA),2)&":"&Right("0"&Minute(DateA),2)
|
End If
|
DateFormat=DateA1
|
End Function
|
|
Function NewMRPOrderID(OrderType)
|
NewMRPOrderID="MRP-"&OrderType&"-"&DDateID()&"-"&randKey(4)
|
End Function
|
|
'出车物品单号生成
|
Function NewDispatchMRPOrderID(OrderType,DispatchOrdID,Type1)
|
NewDispatchMRPOrderID="MRP-"&OrderType&"-"&DispatchOrdID&Type1
|
End Function
|
|
'出车物品单返回
|
Function DispatchMRPOrderReturn(OrderType,DispatchOrdID)
|
MRP_OrderID_Out=NewDispatchMRPOrderID(OrderType,DispatchOrdID,"Out")
|
MRP_OrderID=NewDispatchMRPOrderID(OrderType,DispatchOrdID,"In")
|
OutWarehouseID=5 '转出仓(出车任务)
|
InWarehouseID=2 '转入仓(集盛总部正常仓一)
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select MRP_OrderID from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID&"' and OrderState=3"
|
adminrs.open sql,objConn,1,1
|
if adminrs.Eof Then
|
adminrs.close()
|
sql="select MRP_OrderID from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID_Out&"' and OrderState=3"
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
'新建转仓单
|
sql="insert into MRP_OrderManoeuvre (MRP_OrderID,OutWarehouseID,InWarehouseID,OrderState,OrderTime_OAid,TotalQty,OrderRemarks,AuditTime,AuditTime_OAid,OutTime,OutTime_OAid,InTime,InTime_OAid) select '"&MRP_OrderID&"',"&OutWarehouseID&","&InWarehouseID&",3,"&session("adminID")&",TotalQty,OrderRemarks,getdate(),"&session("adminID")&",getdate(),"&session("adminID")&",getdate(),"&session("adminID")&" from MRP_OrderManoeuvre where MRP_OrderID='"&MRP_OrderID_Out&"' and OrderState=3"
|
objConn.Execute sql
|
sql="insert into MRP_OrderDetail (MRP_OrderIDPK,StItmIDPK,OD_Qty,OD_QtyA,OD_Price,OD_Remarks) select '"&MRP_OrderID&"',StItmIDPK,OD_Qty,OD_QtyA,OD_Price,OD_Remarks from MRP_OrderDetail where MRP_OrderIDPK='"&MRP_OrderID_Out&"'"
|
objConn.Execute sql
|
sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) select StItmIDPK,-StockQty,"&OutWarehouseID&",'"&MRP_OrderID&"',"&session("adminID")&" from MRP_Stock where MRP_OrderIDPK='"&MRP_OrderID_Out&"' and StockWarehouseID="&OutWarehouseID
|
objConn.Execute sql
|
sql="insert into MRP_Stock (StItmIDPK,StockQty,StockWarehouseID,MRP_OrderIDPK,StockTime_OAid) select StItmIDPK,StockQty,"&InWarehouseID&",'"&MRP_OrderID&"',"&session("adminID")&" from MRP_Stock where MRP_OrderIDPK='"&MRP_OrderID_Out&"' and StockWarehouseID="&OutWarehouseID
|
objConn.Execute sql
|
end If
|
End If
|
adminrs.close()
|
End Function
|
|
'-------------------------供应商状态--------------------begin
|
Function Supplier_A(execLevel)
|
select case execLevel
|
case -1
|
Supplier_A="等待审核"
|
case 0
|
Supplier_A="正常"
|
end select
|
End Function
|
'-------------------------供应商状态--------------------end
|
|
'-------------------------采购入库/出库单状态--------------------begin
|
Function PurchaseOrderState_A(OrderState,OrdType)
|
If OrdType="10" Then
|
OrdTypeName="入库"
|
Else
|
OrdTypeName="出库"
|
End If
|
If OrderState=0 Then
|
PurchaseOrderState_A = "未审核"
|
ElseIf OrderState=1 Then
|
PurchaseOrderState_A = "已审核,等待"&OrdTypeName
|
ElseIf OrderState=2 Then
|
PurchaseOrderState_A = "部分"&OrdTypeName
|
ElseIf OrderState=3 Then
|
PurchaseOrderState_A = "已"&OrdTypeName
|
ElseIf OrderState=4 Then
|
PurchaseOrderState_A = "取消"
|
End If
|
End Function
|
'-------------------------采购入库/出库单状态--------------------end
|
|
|
'-------------------------销售出库/入库单状态--------------------begin
|
Function TradeOrderState_A(OrderState,OrdType)
|
If OrdType="11" Then
|
OrdTypeName="出库"
|
Else
|
OrdTypeName="入库"
|
End If
|
If OrderState=0 Then
|
TradeOrderState_A = "未审核"
|
ElseIf OrderState=1 Then
|
TradeOrderState_A = "已审核,等待"&OrdTypeName
|
ElseIf OrderState=2 Then
|
TradeOrderState_A = "部分"&OrdTypeName
|
ElseIf OrderState=3 Then
|
TradeOrderState_A = "已"&OrdTypeName
|
ElseIf OrderState=4 Then
|
TradeOrderState_A = "取消"
|
End If
|
End Function
|
'-------------------------采购入库/出库单状态--------------------end
|
|
|
'-------------------------领用出库/入库单状态--------------------begin
|
Function ApplyOrderState_A(OrderState,OrdType)
|
If OrdType="11" Then
|
OrdTypeName="出库"
|
Else
|
OrdTypeName="入库"
|
End If
|
If OrderState=0 Then
|
ApplyOrderState_A = "未审核"
|
ElseIf OrderState=1 Then
|
ApplyOrderState_A = "已审核,等待"&OrdTypeName
|
ElseIf OrderState=2 Then
|
ApplyOrderState_A = "部分"&OrdTypeName
|
ElseIf OrderState=3 Then
|
ApplyOrderState_A = "已"&OrdTypeName
|
ElseIf OrderState=4 Then
|
ApplyOrderState_A = "取消"
|
End If
|
End Function
|
'-------------------------领用入库/出库单状态--------------------end
|
|
'--------------------------字符转换---------------------begin
|
Function DealInput1(exp1)
|
dim exp2
|
exp2=Replace(exp1,chr(13),"<p></p>")
|
exp2=Replace(exp2,chr(10),"")
|
DealInput1=trim(exp2)
|
End Function
|
'--------------------------字符转换---------------------end
|
|
'--------------------------字符转换2---------------------begin
|
Function DealInput2(exp1)
|
dim exp2
|
exp2=Replace(exp1,chr(13),"<br> ")
|
exp2=Replace(exp2,chr(10),"")
|
DealInput2=trim(exp2)
|
End Function
|
'--------------------------字符转换2---------------------end
|
|
'--------------------------字符转换2---------------------begin
|
Function DealInput3(exp1)
|
dim exp2
|
exp2=Replace(exp1,chr(13),"<br>")
|
exp2=Replace(exp2,chr(10),"")
|
DealInput3=trim(exp2)
|
End Function
|
'--------------------------字符转换2---------------------end
|
|
'是否判断
|
Function is_B(isInt)
|
select case isInt
|
case 0
|
is_B="否"
|
case 1
|
is_B="是"
|
end select
|
End Function
|
|
'--------------------------仓库查找---------------------begin
|
Function Warehouse_A(WarehouseID,DataID)
|
if WarehouseID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select WarehouseID,WarehouseName from MRP_Warehouse where WarehouseID="&WarehouseID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINWarehouseID = adminrs("WarehouseID")
|
ADMINWarehouseName = adminrs("WarehouseName")
|
else
|
DataID="ID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "ID"
|
Warehouse_A = WarehouseID
|
case "Name"
|
Warehouse_A = ADMINWarehouseName
|
end select
|
end if
|
End Function
|
'--------------------------仓库查找---------------------end
|
|
'--------------------------供应商查找---------------------begin
|
Function Supplier_A(SupplierID,DataID)
|
if SupplierID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select SupplierID,SupplierName from MRP_Supplier where SupplierID="&SupplierID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINSupplierID = adminrs("SupplierID")
|
ADMINSupplierName = adminrs("SupplierName")
|
else
|
DataID="ID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "ID"
|
Supplier_A = SupplierID
|
case "Name"
|
Supplier_A = ADMINSupplierName
|
end select
|
end if
|
End Function
|
'--------------------------供应商查找---------------------end
|
|
'--------------------------企业用户查找---------------------begin
|
Function UnitUser(UnitID,DataID)
|
if UnitID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select UnitID,UnitName,UnitShort,APPID from IntroducerUnitData where UnitID="&UnitID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
ADMINUnitID = adminrs("UnitID")
|
ADMINUnitName = adminrs("UnitName")
|
ADMINUnitShort = adminrs("UnitShort")
|
ADMINAPPID = adminrs("APPID")
|
adminrs.close()
|
else
|
DataID="UnitID"
|
End If
|
|
select case DataID
|
case "UnitID"
|
UnitUser = ADMINUnitID
|
case "UnitName"
|
UnitUser = ADMINUnitName
|
case "UnitShort"
|
UnitUser = ADMINUnitShort
|
case "UnitAPPID"
|
UnitUser = ADMINAPPID
|
end Select
|
End If
|
End Function
|
'--------------------------企业用户查找---------------------end
|
|
'--------------------------企业用户查找---------------------begin
|
Function UnitIntroducer(ServiceOrdIntroducer,DataID)
|
if ServiceOrdIntroducer<>"" Then
|
If IsNumeric(ServiceOrdIntroducer) Then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerID="&ServiceOrdIntroducer
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
IntroducerID = adminrs("IntroducerID")
|
IntroducerName = adminrs("IntroducerName")
|
IntroducerUnitID = adminrs("IntroducerUnitID")
|
Else
|
DataID="TXT"
|
End If
|
adminrs.close()
|
Else
|
DataID="TXT"
|
End If
|
else
|
DataID="TXT"
|
End If
|
|
select case DataID
|
case "TXT"
|
UnitIntroducer = ServiceOrdIntroducer
|
case "UnitName"
|
UnitIntroducer = IntroducerName
|
case "UnitID"
|
UnitIntroducer = IntroducerUnitID
|
end Select
|
End Function
|
'--------------------------企业用户查找---------------------end
|
|
'--------------------------用户查找---------------------begin
|
Function OAUser(adminID,DataID)
|
If adminID="10" Then
|
OAUser = "线上支付"
|
elseif adminID<>"" Then
|
If Mid(adminID,1,1)="," Then adminID=Mid(adminID,2)
|
If Right(adminID,1)="," Then adminID=Mid(adminID,1,Len(adminID)-1)
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_User,OA_Name,OA_weixinAvatar,OA_Img_64,OA_mobile,OA_DepartmentID from OA_User where OA_User_ID in ("&adminID&")"
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof Then
|
do while not adminrs.Eof
|
ADMINuserID = ADMINuserID&","& adminrs("OA_User_ID")
|
ADMINuser = ADMINuser&","& adminrs("OA_User")
|
ADMINName = ADMINName&","& adminrs("OA_Name")
|
ADMINMobile = ADMINMobile&","& adminrs("OA_mobile")
|
ADMINDepartmentID = ADMINDepartmentID&","& adminrs("OA_DepartmentID")
|
ADMINAvatarNew = adminrs("OA_Img_64")
|
If ADMINAvatarNew="" Or isnull(ADMINAvatarNew) Then
|
ADMINAvatarNew = adminrs("OA_weixinAvatar")
|
If ADMINAvatarNew="" Then ADMINAvatarNew="/resources/images/icon_avatar_default.png"
|
Else
|
ADMINAvatarNew = OAImgURL&ADMINAvatarNew
|
End If
|
ADMINAvatar = ADMINAvatar&","& ADMINAvatarNew
|
adminrs.movenext
|
Loop
|
ADMINuserID = Mid(ADMINuserID,2)
|
ADMINuser = Mid(ADMINuser,2)
|
ADMINName = Mid(ADMINName,2)
|
ADMINMobile = Mid(ADMINMobile,2)
|
ADMINDepartmentID = Mid(ADMINDepartmentID,2)
|
ADMINAvatar = Mid(ADMINAvatar,2)
|
else
|
DataID="adminID"
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "userID"
|
OAUser = ADMINuserID
|
case "UserName"
|
OAUser = ADMINName
|
case "UserPhone"
|
OAUser = ADMINMobile
|
case "adminID"
|
OAUser = adminID
|
case "Avatar"
|
OAUser = ADMINAvatar
|
case "DepartmentID"
|
OAUser = ADMINDepartmentID
|
end select
|
Else
|
OAUser = "--"
|
end if
|
End Function
|
'--------------------------用户查找---------------------end
|
|
'--------------------------部门查找---------------------begin
|
Function OADepartment(OA_DepartmentID,DataID)
|
if OA_DepartmentID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='OA_Department' and vID="&OA_DepartmentID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Did = adminrs("id")
|
DepartmentID = adminrs("vID")
|
DepartmentName = adminrs("vtext")
|
DepartmentParentid = adminrs("vType")
|
DepartmentOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "Did"
|
OADepartment = Did
|
case "DepartmentID"
|
OADepartment = DepartmentID
|
case "DepartmentName"
|
OADepartment = DepartmentName
|
Case Else
|
OADepartment = OA_DepartmentID
|
end select
|
end if
|
End Function
|
'--------------------------部门查找---------------------end
|
|
'--------------------------职能查找---------------------begin
|
Function OACompetency(OA_Competency,DataID)
|
if OA_Competency<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='OA_Competency' and vID="&OA_Competency
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Cid = adminrs("id")
|
CompetencyID = adminrs("vID")
|
CompetencyName = adminrs("vtext")
|
CompetencyOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "Cid"
|
OACompetency = Cid
|
case "CompetencyID"
|
OACompetency = CompetencyID
|
case "CompetencyName"
|
OACompetency = CompetencyName
|
Case Else
|
OACompetency = OA_Competency
|
end select
|
end if
|
End Function
|
'--------------------------职能查找---------------------end
|
|
'--------------------------科室查找---------------------begin
|
Function HospitalDepartment(ServiceOrdPtServicesID)
|
HospitalDepartmentName=""
|
if ServiceOrdPtServicesID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='HospitalDepartment' and vID="&ServiceOrdPtServicesID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
HospitalDepartmentName = adminrs("vtext")
|
end if
|
adminrs.close()
|
end If
|
HospitalDepartment=HospitalDepartmentName
|
End Function
|
'--------------------------科室查找---------------------end
|
|
'--------------------------介绍人查询---------------------begin
|
Function IntroducerData(IntroducerID)
|
IntroducerData=""
|
if IntroducerID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select IntroducerID,IntroducerName from IntroducerData where IntroducerID="&IntroducerID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
IntroducerName = adminrs("IntroducerName")
|
end if
|
adminrs.close()
|
end If
|
IntroducerData=IntroducerName
|
End Function
|
'--------------------------介绍人查询---------------------end
|
|
'--------------------------调度单跟随人员---------------------begin
|
Function EntourageOANameA(EntourageID,DispatchOrdID,DataID)
|
if EntourageID<>"" And DispatchOrdID<>"" then
|
Set EntourageOArs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_User,OA_Name,OA_weixinAvatar,EntourageLead,EntourageState,EntourageDKP,EntourageDKPScale,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageEnd_Time,EntourageState_Time,Stretcher_is,StretcherM=isnull((select b.StretcherMoney/COUNT(a.Stretcher_is) from DispatchOrd_Entourage as a,DispatchOrd as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.DispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.StretcherMoney>0 GROUP BY b.StretcherMoney),0),Guest_PointE,Guest_Point_1,Guest_Point_2,Guest_Point_3,RV_PointE,RV_Point_1,RV_Point_2,RV_Point_3 from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageID="&EntourageID
|
EntourageOArs.open sql,objConn,1,1
|
if not EntourageOArs.Eof then
|
EntourageOAuserID = EntourageOArs("OA_User_ID")
|
EntourageOAuser = EntourageOArs("OA_User")
|
EntourageOAName = EntourageOArs("OA_Name")
|
EntourageOAAvatar = EntourageOArs("OA_weixinAvatar")
|
If EntourageOAAvatar="" Then EntourageOAAvatar="/resources/images/icon_avatar_default.png"
|
EntourageOALead = EntourageOArs("EntourageLead")
|
EntourageOAState= EntourageOArs("EntourageState")
|
EntourageOT_is = EntourageOArs("EntourageOT_is") '是否休息出车
|
EntourageLong_is= EntourageOArs("EntourageLong_is") '是否跟车
|
EntourageBetimesHH= EntourageOArs("EntourageBetimesHH")'提出出车N小时
|
EntourageDKP = EntourageOArs("EntourageDKP") '个人绩效
|
EntourageDKPScale = EntourageOArs("EntourageDKPScale")'分成比例
|
EntourageEnd_Time = EntourageOArs("EntourageEnd_Time")'报告提交时间
|
EntourageState_Time = EntourageOArs("EntourageState_Time")'调度时间
|
Stretcher_is = EntourageOArs("Stretcher_is")
|
StretcherM = Stretcher_is*EntourageOArs("StretcherM")
|
Guest_PointE = EntourageOArs("Guest_PointE") '客户微信评分(2020.12.22)
|
Guest_Point_1 = EntourageOArs("Guest_Point_1") '客户微信评分1
|
Guest_Point_2 = EntourageOArs("Guest_Point_2") '客户微信评分2
|
Guest_Point_3 = EntourageOArs("Guest_Point_3") '客户微信评分3
|
RV_PointE = EntourageOArs("RV_PointE") '电话回访评分(2020.12.22)
|
RV_Point_1 = EntourageOArs("RV_Point_1") '电话回访评分1
|
RV_Point_2 = EntourageOArs("RV_Point_2") '电话回访评分2
|
RV_Point_3 = EntourageOArs("RV_Point_3") '电话回访评分3
|
else
|
DataID="userID"
|
end if
|
EntourageOArs.close()
|
|
select case DataID
|
case "userID"
|
EntourageOANameA = EntourageOAuserID
|
case "UserName"
|
EntourageOANameA = EntourageOAName
|
If EntourageOAState="3" Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&"</font>"
|
ElseIf EntourageOAState="2" Then
|
EntourageOANameA = "<font color='#C3C3C3'>"&EntourageOANameA&"</font>"
|
End if
|
If EntourageOALead="1" Then EntourageOANameA = "<img src='/resources/images/2016020401.png'>"&EntourageOANameA
|
case "UserNameList"
|
EntourageOANameA = EntourageOAName
|
If EntourageOT_is="1" Then
|
EntourageOT_is="/休"
|
Else
|
EntourageOT_is=""
|
End If
|
If EntourageLong_is="1" Then
|
EntourageLong_is="/跟"
|
Else
|
EntourageLong_is=""
|
End If
|
If EntourageBetimesHH>0 Then
|
EntourageBetimesHH="/提"&EntourageBetimesHH
|
Else
|
EntourageBetimesHH=""
|
End If
|
If EntourageOAState="3" Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&EntourageOT_is&EntourageLong_is&EntourageBetimesHH&"</font>"
|
ElseIf EntourageOAState="2" Then
|
EntourageOANameA = "<font color='#C3C3C3'>"&EntourageOANameA&EntourageOT_is&EntourageLong_is&EntourageBetimesHH&"</font>"
|
End If
|
If EntourageOALead="1" Then EntourageOANameA = EntourageOANameA&"<img src='/resources/images/2016020401.png'>"
|
EntourageOANameA=EntourageOANameA&"EntourageName"
|
If Guest_PointE<>"" And Guest_PointE<>"0" Then
|
EntourageOANameA = EntourageOANameA&" <font color='#6699ff'>"&Guest_PointEA(Guest_PointE)&"</font>"
|
ElseIf RV_PointE<>"" And RV_PointE<>"0" Then
|
EntourageOANameA = EntourageOANameA&" "&Guest_PointEA(RV_PointE)
|
ElseIf (Guest_Point_1>0 And Guest_Point_2>0) And Guest_Point_3=0 Then
|
EntourageOANameA = EntourageOANameA&" 技能:"&Guest_Point_1&" 服务:"&Guest_Point_2
|
ElseIf Guest_Point_1>0 and Guest_Point_2=0 and Guest_Point_3=0 Then
|
EntourageOANameA = EntourageOANameA&" 评分:"&Guest_Point_1
|
ElseIf Guest_Point_1>0 And Guest_Point_2>0 And Guest_Point_3>0 And (EntourageID=1 Or EntourageID=2) Then
|
EntourageOANameA = EntourageOANameA&" 安全:"&Guest_Point_1&" 服务:"&Guest_Point_2&" 平稳:"&Guest_Point_3
|
ElseIf Guest_Point_1>0 Or Guest_Point_2>0 Or Guest_Point_3>0 Then
|
EntourageOANameA = EntourageOANameA&" 技能:"&Guest_Point_1&" 服务:"&Guest_Point_2&" 指导:"&Guest_Point_3
|
ElseIf (RV_Point_1>0 And RV_Point_2>0) And RV_Point_3=0 Then
|
EntourageOANameA = EntourageOANameA&" <font color='#6699ff'>技能:"&RV_Point_1&" 服务:"&RV_Point_2&"</font>"
|
ElseIf RV_Point_1>0 and RV_Point_2=0 and RV_Point_3=0 Then
|
EntourageOANameA = EntourageOANameA&" <font color='#6699ff'>评分:"&RV_Point_1&"</font>"
|
ElseIf RV_Point_1>0 And RV_Point_2>0 And RV_Point_3>0 And (EntourageID=1 Or EntourageID=2) Then
|
EntourageOANameA = EntourageOANameA&" <font color='#6699ff'>安全:"&RV_Point_1&" 服务:"&RV_Point_2&" 平稳:"&RV_Point_3&"</font>"
|
ElseIf RV_Point_1>0 Or RV_Point_2>0 Or RV_Point_3>0 Then
|
EntourageOANameA = EntourageOANameA&" <font color='#6699ff'>技能:"&RV_Point_1&" 服务:"&RV_Point_2&" 指导:"&RV_Point_3&"</font>"
|
End If
|
case "UserNameReport"
|
EntourageOANameA = EntourageOAName
|
If Len(EntourageOANameA)=2 Then EntourageOANameA=EntourageOANameA&" "
|
If EntourageOT_is="1" Then
|
EntourageOANameA = "<font color='#ff0033'>"&EntourageOANameA&"</font>"
|
ElseIf EntourageBetimesHH>0 Then
|
EntourageOANameA = "<font color='#6699ff'>"&EntourageOANameA&"</font> 提前"&EntourageBetimesHH&"小时"
|
End If
|
If EntourageDKP>0 Then
|
If EntourageDKPScale=1 Then
|
EntourageOANameA = EntourageOANameA &" 驻点提成:"&EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)&"元"
|
else
|
EntourageOANameA = EntourageOANameA &"绩效:"&EntourageDKP&" 提成:"&EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)+StretcherM&"元"
|
End if
|
Else
|
EntourageOANameA = EntourageOANameA &" <font color='#6699ff'>未填写完成报告单</font>"
|
End If
|
case "UserNameReport2"
|
EntourageOANameA = EntourageOAName
|
If EntourageOT_is="1" Then
|
EntourageOT_is="/休"
|
Else
|
EntourageOT_is=""
|
End If
|
If EntourageLong_is="1" Then
|
EntourageLong_is="/跟"
|
Else
|
EntourageLong_is=""
|
End If
|
If EntourageBetimesHH>0 Then
|
EntourageBetimesHH="/提"&EntourageBetimesHH
|
Else
|
EntourageBetimesHH=""
|
End If
|
EntourageOANameA=EntourageOANameA&EntourageOT_is&EntourageLong_is&EntourageBetimesHH
|
If EntourageID=5 Or EntourageID=6 Or EntourageID=2 Then
|
EntourageOANameA="，"&EntourageOANameA
|
End If
|
'If EntourageOALead="1" Then EntourageOANameA = EntourageOANameA&"<img src='/resources/images/2016020401.png'>"
|
case "Avatar"
|
EntourageOANameA = EntourageOAuser
|
end select
|
end if
|
End Function
|
'--------------------------调度单跟随人员---------------------end
|
|
|
'--------------------------调度单跟随人员权限---------------------begin
|
Function EntourageOAidA(DispatchOrdID)
|
EntourageOAidA=0
|
if DispatchOrdID<>"" then
|
Set EntourageOArs = Server.CreateObject("ADODB.Recordset")
|
sql="select EntourageLead,EntourageState from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid="&session("adminID")
|
EntourageOArs.open sql,objConn,1,1
|
if not EntourageOArs.Eof Then
|
EntourageOALead = EntourageOArs("EntourageLead")
|
EntourageOAState= EntourageOArs("EntourageState")
|
else
|
EntourageOALead="-1"
|
end if
|
EntourageOArs.close()
|
|
select case EntourageOALead
|
case "0" '参考者
|
EntourageOAidA = 1
|
case "1" '领队
|
EntourageOAidA = 2
|
end select
|
end if
|
End Function
|
'--------------------------调度单跟随人员权限---------------------end
|
|
'--------------------------车辆资料查询---------------------begin
|
Function CarDataA(CarID,CarLicense,DataID)
|
Set CarDataRS = Server.CreateObject("ADODB.Recordset")
|
If CarID<>"" then
|
CarDataA=CarID
|
sql="select * from CarData where CarID="&CarID
|
ElseIf CarLicense<>"" Then
|
CarDataA=CarLicense
|
sql="select * from CarData where CarLicense='"&CarLicense&"'"
|
End if
|
CarDataRS.open sql,objConn,1,1
|
if not CarDataRS.Eof then
|
CarDataAID = CarDataRS("CarID")
|
CarDataALicense = CarDataRS("CarLicense")
|
CarDataAAVIN = CarDataRS("CarVIN")
|
CarDataAModels = CarDataRS("CarModels")
|
CarDataAGPS_IMEI= CarDataRS("GPS_IMEI")
|
CarDataAVideo_ID= CarDataRS("Video_ID")
|
end if
|
CarDataRS.close()
|
|
select case DataID
|
case "CarID"
|
CarDataA = CarDataAID
|
case "CarLicense"
|
CarDataA = CarDataALicense
|
case "CarVIN"
|
CarDataA = CarDataAAVIN
|
case "CarModels"
|
CarDataA = CarDataAModels
|
case "CarIMEI"
|
CarDataA = CarDataAGPS_IMEI
|
case "CarVideoID"
|
CarDataA = CarDataAVideo_ID
|
end select
|
End Function
|
'--------------------------车辆资料查询---------------------end
|
|
'--------------------------医院资料查询---------------------begin
|
Function HospA(HospID,DataID)
|
if HospID<>"" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='HospName' and vID="&HospID
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
Hid = adminrs("id")
|
HospID = adminrs("vID")
|
HospName = adminrs("vtext")
|
HosOrder = adminrs("vOrder")
|
end if
|
adminrs.close()
|
|
select case DataID
|
case "HospName"
|
HospA = HospName
|
Case Else
|
HospA = HospName
|
end select
|
end if
|
End Function
|
'--------------------------医院资料查询---------------------end
|
|
'--------------------------用户账号类型---------------------begin
|
Function AdminType_A(AdminType)
|
select case AdminType
|
case 1
|
AdminType_A=Ch("管理员")
|
case 2
|
AdminType_A=Ch("经销商")
|
case 3
|
AdminType_A=Ch("供应商")
|
end select
|
End Function
|
'--------------------------用户账号类型---------------------end
|
|
'--------------------------账号状态---------------------begin
|
Function AdminExecLevel_A(AdminExecLevel)
|
select case AdminExecLevel
|
case -1
|
AdminExecLevel_A="停用"
|
case 0
|
AdminExecLevel_A="只读"
|
case 1
|
AdminExecLevel_A="正常"
|
case 2
|
AdminExecLevel_A="管理员"
|
case 3
|
AdminExecLevel_A="系统"
|
end select
|
End Function
|
'--------------------------账号状态---------------------end
|
|
'--------------------------账号状态B---------------------begin
|
Function AdminExecLevel_B(AdminExecLevel,weixinStatus,Status)
|
select case AdminExecLevel
|
case -1
|
AdminExecLevel_B="停用"
|
case 0
|
AdminExecLevel_B="只读"
|
case 1
|
AdminExecLevel_B="正常"
|
case 2
|
AdminExecLevel_B="管理员"
|
case 3
|
AdminExecLevel_B="系统"
|
end Select
|
|
If Status="1" then
|
select case weixinStatus
|
case 1
|
AdminExecLevel_B=AdminExecLevel_B&"-已关注微信OA"
|
case 2
|
AdminExecLevel_B=AdminExecLevel_B&"-已禁用微信OA"
|
case 4
|
AdminExecLevel_B=AdminExecLevel_B&"-未关注微信OA"
|
end Select
|
ElseIf Status="2" Then
|
select case weixinStatus
|
case 1
|
AdminExecLevel_B="[已关注]"
|
case 2
|
AdminExecLevel_B="[已禁用]"
|
case 4
|
AdminExecLevel_B="[未关注]"
|
end Select
|
ElseIf weixinStatus=4 And (AdminExecLevel=1 Or AdminExecLevel=2) Then
|
AdminExecLevel_B="未关注"
|
End if
|
End Function
|
'--------------------------账号状态B---------------------end
|
|
'--------------------------审核状态---------------------begin
|
Function AP_Check_A(AP_Check)
|
select case AP_Check
|
case "1"
|
AP_Check_A="审核"
|
case "2"
|
AP_Check_A="审核"
|
case "0"
|
AP_Check_A="未审核"
|
case "-1"
|
AP_Check_A="作废"
|
case "4"
|
AP_Check_A="不通过"
|
end select
|
End Function
|
'--------------------------审核状态---------------------end
|
|
'--------------------------语言类型---------------------begin
|
Function AdminLanguage_A(AdminLanguage)
|
select case AdminLanguage
|
case "zh-CN"
|
AdminLanguage_A=Ch("简体中文")
|
case "En"
|
AdminLanguage_A=Ch("英文")
|
end select
|
End Function
|
'--------------------------语言类型---------------------end
|
|
'--------------------------是否有效---------------------begin
|
Function Is_A(IsInt)
|
select case IsInt
|
case 0
|
Is_A=Ch("有效")
|
case 1
|
Is_A=Ch("无效")
|
end select
|
End Function
|
'--------------------------语言类型---------------------end
|
|
'--------------------------订单级别查询---------------------begin
|
Function OrderLevelA(OrderLevel)
|
OrderLevelA=""
|
if OrderLevel<>"" And OrderLevel<>"0" then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id,vID,vtext,vType,vOrder from dictionary where vtitle='OrderLevel' and vID="&OrderLevel
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof then
|
OrderLevelID = adminrs("vID")
|
OrderLevelName = adminrs("vtext")
|
end if
|
adminrs.close()
|
|
OrderLevelA = OrderLevelName
|
end if
|
End Function
|
'--------------------------订单级别查询---------------------end
|
|
'--------------------------公司名称---------------------begin
|
Function Companies_B(B2bID,DataID)
|
Set Crs = Server.CreateObject("ADODB.Recordset")
|
if B2bID<=1999 then
|
CompaniesName_zh="管理员"
|
CompaniesName_en="ADMIN"
|
Companies_is=1
|
elseif B2bID<=2999 then
|
sql="select DealerID,DealerName_zh,DealerName_en,Dealer_is,Dealer_Language from B2B_Dealer where DealerID="&B2bID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
CompaniesName_zh = Crs("DealerName_zh")
|
CompaniesName_en = Crs("DealerName_en")
|
Companies_Language = Crs("Dealer_Language")
|
Companies_is = Crs("Dealer_is")
|
end if
|
Crs.close()
|
|
elseif B2bID<=3999 then
|
sql="select SupplierID,SupplierName_zh,SupplierName_en,Supplier_is,Supplier_Language from B2B_Supplier where SupplierID="&B2bID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
CompaniesName_zh = Crs("SupplierName_zh")
|
CompaniesName_en = Crs("SupplierName_en")
|
Companies_Language = Crs("Supplier_Language")
|
Companies_is = Crs("Supplier_is")
|
end if
|
Crs.close()
|
|
end if
|
|
select case DataID
|
case "CompaniesName"
|
if session("Admin_Language")="zh-CN"then
|
CompaniesName= CompaniesName_zh
|
elseif session("Admin_Language")="En"then
|
CompaniesName= CompaniesName_en
|
end if
|
Companies_B = CompaniesName
|
case "CompaniesNameAll"
|
if session("Admin_Language")="zh-CN"then
|
CompaniesName= CompaniesName_zh
|
if CompaniesName_en<>"" then CompaniesName = CompaniesName &" ("&CompaniesName_en&")"
|
elseif session("Admin_Language")="En"then
|
CompaniesName= CompaniesName_en
|
if CompaniesName_zh<>"" then CompaniesName = CompaniesName &" ("&CompaniesName_zh&")"
|
end if
|
Companies_B = CompaniesName
|
end select
|
|
if Companies_is=1 then Companies_B = Companies_B &" ["&Is_A(Companies_is)&"]"
|
End Function
|
'--------------------------公司名称---------------------end
|
|
'--------------------------公司服务类型---------------------begin
|
Function CompaniesType_A(ID,CompaniesType)
|
Set Crs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from GBR.dbo.dictionary WHERE vtitle = '"&CompaniesType&"' and vID="&ID
|
Crs.open sql,objConn,1,1
|
if not Crs.eof then
|
vtext = Crs("vtext")
|
vtextEn= Crs("vtextEn")
|
end if
|
Crs.close()
|
if session("Admin_Language")="En" then
|
CompaniesType_A = vtextEn
|
else
|
CompaniesType_A = vtext
|
end if
|
End Function
|
'--------------------------公司服务类型---------------------end
|
|
'--------------------------服务单据状态---------------------begin
|
Function ServiceOrdStateA(ServiceOrdState)
|
Set ServiceOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ServiceOrderState' and vID="&ServiceOrdState
|
ServiceOrdStateRS.open sql,objConn,1,1
|
if not ServiceOrdStateRS.Eof then
|
ServiceOrdStateA = ServiceOrdStateRS(0)
|
else
|
ServiceOrdStateA = "问题订单"
|
end if
|
ServiceOrdStateRS.close()
|
End Function
|
'--------------------------服务单据状态---------------------end
|
|
|
'--------------------------服务单据状态(配色版)---------------------begin
|
Function ServiceOrdStateB(ServiceOrdState)
|
Set ServiceOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ServiceOrderState' and vID="&ServiceOrdState
|
ServiceOrdStateRS.open sql,objConn,1,1
|
if not ServiceOrdStateRS.Eof then
|
If ServiceOrdStateRS(0)="咨询单" Then
|
ServiceOrdStateB = "<font color='#2196f3'>"&ServiceOrdStateRS(0)&"</font>"
|
ElseIf ServiceOrdStateRS(0)="取消单" Then
|
ServiceOrdStateB = "<font color='#4CAF50'>"&ServiceOrdStateRS(0)&"</font>"
|
ElseIf ServiceOrdStateRS(0)="未调度" Then
|
ServiceOrdStateB = "<font color='#f44336'>"&ServiceOrdStateRS(0)&"</font>"
|
Else
|
ServiceOrdStateB = ServiceOrdStateRS(0)
|
End If
|
else
|
ServiceOrdStateB = "问题订单"
|
end if
|
ServiceOrdStateRS.close()
|
End Function
|
'--------------------------服务单据状态(配色版)---------------------end
|
|
'--------------------------调度单据状态---------------------begin
|
Function DispatchOrdStateA(DispatchOrdState)
|
Set DispatchOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
DispatchOrdState1=DispatchOrdState
|
If InStr(DispatchOrdState1,"_")>0 Then DispatchOrdState1=Left(DispatchOrdState1,InStr(DispatchOrdState1,"_")-1)
|
sql="select vtext from dictionary where vtitle='DispatchOrdState' and vID="&DispatchOrdState1
|
DispatchOrdStateRS.open sql,objConn,1,1
|
if not DispatchOrdStateRS.Eof then
|
DispatchOrdStateA = DispatchOrdStateRS(0)
|
else
|
DispatchOrdStateA = "问题订单"
|
end if
|
DispatchOrdStateRS.close()
|
End Function
|
'--------------------------调度单据状态---------------------end
|
|
'--------------------------调度单据状态(配色版)---------------------begin
|
Function DispatchOrdStateC(DispatchOrdState)
|
Set DispatchOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
DispatchOrdState1=DispatchOrdState
|
If InStr(DispatchOrdState1,"_")>0 Then DispatchOrdState1=Left(DispatchOrdState1,InStr(DispatchOrdState1,"_")-1)
|
sql="select vtext from dictionary where vtitle='DispatchOrdState' and vID="&DispatchOrdState1
|
DispatchOrdStateRS.open sql,objConn,1,1
|
if not DispatchOrdStateRS.Eof then
|
If DispatchOrdState="4" Or DispatchOrdState="5" Or DispatchOrdState="6" Or DispatchOrdState="7" Then
|
DispatchOrdStateC = "<font color='#f44336'>"&DispatchOrdStateRS(0)&"</font>"
|
ElseIf DispatchOrdState="0" Then
|
DispatchOrdStateC = "<font color='#009636'>"&DispatchOrdStateRS(0)&"</font>"
|
'ElseIf DispatchOrdState="4" Then
|
' DispatchOrdStateC = "<font color='#2196f3'>"&DispatchOrdStateRS(0)&"</font>"
|
Else
|
DispatchOrdStateC = DispatchOrdStateRS(0)
|
End If
|
else
|
DispatchOrdStateC = "问题订单"
|
end if
|
DispatchOrdStateRS.close()
|
End Function
|
'--------------------------调度单据状态(配色版)---------------------end
|
|
'--------------------------调度单取消详情---------------------begin
|
Function CancelReasonB(DispatchOrdCancelReason,DispatchOrdCancelReasonTXT)
|
If DispatchOrdCancelReason<>"" then
|
Set DispatchOrdStateRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='CancelReason' and vID="&DispatchOrdCancelReason
|
DispatchOrdStateRS.open sql,objConn,1,1
|
if not DispatchOrdStateRS.Eof then
|
CancelReasonB = DispatchOrdStateRS(0)
|
else
|
CancelReasonB = "其它取消"
|
end If
|
If DispatchOrdCancelReasonTXT<>"" Then CancelReasonB=CancelReasonB&"("&DispatchOrdCancelReasonTXT&")"
|
DispatchOrdStateRS.close()
|
End If
|
End Function
|
'--------------------------调度单取消详情---------------------end
|
|
'--------------------------调度单据列表---------------------begin
|
Function DispatchOrdStateB(DispatchOrdState)
|
if DispatchOrdState="1" Or DispatchOrdState="2" then
|
DispatchOrdStateB = "未确认列表"
|
ElseIf DispatchOrdState="3" Then
|
DispatchOrdStateB = "未出车列表"
|
ElseIf DispatchOrdState="4" Or DispatchOrdState="5" Or DispatchOrdState="6" Or DispatchOrdState="7" Then
|
DispatchOrdStateB = "执行中列表"
|
ElseIf DispatchOrdState="8" Then
|
DispatchOrdStateB = "已返回列表"
|
ElseIf DispatchOrdState="9" Then
|
DispatchOrdStateB = "跑空单列表"
|
ElseIf DispatchOrdState="10" Then
|
DispatchOrdStateB = "取消单据列表"
|
ElseIf DispatchOrdState="12" Or DispatchOrdState="100" Then
|
DispatchOrdStateB = "历史任务列表"
|
else
|
DispatchOrdStateB = "全部调度单"
|
end if
|
End Function
|
'--------------------------调度单据列表---------------------end
|
|
|
'--------------------------个人任务-调度单据状态---------------------begin
|
Function TaskStateA(TaskState)
|
If TaskState="2" then
|
TaskStateA = "新任务"
|
ElseIf TaskState="3" then
|
TaskStateA = "进行中"
|
ElseIf TaskState="8" then
|
TaskStateA = "已完成"
|
else
|
TaskStateA = "问题订单"
|
end if
|
End Function
|
'--------------------------个人任务-调度单据状态---------------------end
|
|
'--------------------------单据号码类型---------------------begin
|
Function OrderClassA(OrderClass)
|
Set OrderClassRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='OrderClass' and vOrder2='"&Trim(OrderClass)&"'"
|
OrderClassRS.open sql,objConn,1,1
|
if not OrderClassRS.Eof then
|
OrderClassA = OrderClassRS(0)
|
else
|
OrderClassA = "单据类型错误"
|
end if
|
OrderClassRS.close()
|
End Function
|
'--------------------------单据号码类型---------------------end
|
|
'--------------------------单据号码类型B---------------------begin
|
Function OrderClassB(OrderClass,ClassType)
|
Set OrderClassRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext,vType,vMono,UnitState from dictionary left join IntroducerUnitData on ServiceBranch=vOrder2 where vtitle='OrderClass' and vOrder2='"&Trim(OrderClass)&"'"
|
OrderClassRS.open sql,objConn,1,1
|
if not OrderClassRS.Eof then
|
If ClassType="vType" Then
|
OrderClassB = OrderClassRS("vType")
|
ElseIf ClassType="vMono" Then
|
OrderClassB = OrderClassRS("vMono")
|
ElseIf ClassType="UnitState" Then
|
OrderClassB = OrderClassRS("UnitState")
|
ElseIf ClassType="vtext" Then
|
If OrderClassRS("UnitState")="0" Then
|
OrderClassB = OrderClassRS("vtext")&"(停用)"
|
Else
|
OrderClassB = OrderClassRS("vtext")
|
End If
|
Else
|
OrderClassB = OrderClassRS(0)
|
End If
|
else
|
OrderClassB = "类型错误"
|
end if
|
OrderClassRS.close()
|
End Function
|
'--------------------------单据号码类型---------------------end
|
|
'--------------------------单据出发地类型---------------------begin
|
Function OrderClassC(OrderClass,ClassType)
|
Set OrderClassRS = Server.CreateObject("ADODB.Recordset")
|
sql="select ServiceBranch,ServiceAddress,ServiceAddress_lat,ServiceAddress_lng,UnitName,UnitShort,ServiceMinPrice,ServiceUnitPrice,ServiceLong from IntroducerUnitData where UnitState>0 and ServiceAddress_lat is not null and ServiceAddress_lng is not null and ServiceBranch='"&Trim(OrderClass)&"'"
|
OrderClassRS.open sql,objConn,1,1
|
if not OrderClassRS.Eof then
|
If ClassType="Address" Then
|
OrderClassC = OrderClassRS("ServiceAddress")
|
ElseIf ClassType="LatLng" Then
|
OrderClassC = OrderClassRS("ServiceAddress_lat")&","&OrderClassRS("ServiceAddress_lng")
|
ElseIf ClassType="UnitName" Then
|
OrderClassC = OrderClassRS("UnitName")
|
ElseIf ClassType="UnitShort" Then
|
OrderClassC = OrderClassRS("UnitShort")
|
ElseIf ClassType="UnitPrice" Then
|
OrderClassC = OrderClassRS("ServiceMinPrice")&","&OrderClassRS("ServiceUnitPrice")&","&OrderClassRS("ServiceLong")
|
Else
|
OrderClassC = OrderClassRS(0)
|
End If
|
else
|
OrderClassC = ""
|
end if
|
OrderClassRS.close()
|
End Function
|
'--------------------------单据号码类型---------------------end
|
|
'--------------------------服务单类型---------------------begin
|
Function ServiceOrdTypeA(ServiceOrdType)
|
Set OrderTypeRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ServiceOrderType' and vID="&ServiceOrdType
|
OrderTypeRS.open sql,objConn,1,1
|
if not OrderTypeRS.Eof then
|
ServiceOrdTypeA = OrderTypeRS(0)
|
else
|
ServiceOrdTypeA = ""
|
end if
|
OrderTypeRS.close()
|
End Function
|
'--------------------------服务单类型---------------------end
|
|
'--------------------------服务单类型---------------------begin
|
Function ServiceOrdTypeB(ServiceOrdType,DataID)
|
If ServiceOrdType<>"" Then
|
Set OrderTypeRS = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where vtitle='ServiceOrderType' and vID="&ServiceOrdType
|
OrderTypeRS.open sql,objConn,1,1
|
if not OrderTypeRS.Eof then
|
If DataID<>"" Then
|
ServiceOrdTypeB=OrderTypeRS(DataID)
|
Else
|
ServiceOrdTypeB=OrderTypeRS("vtext")
|
End If
|
else
|
ServiceOrdTypeB = ""
|
end if
|
OrderTypeRS.close()
|
End If
|
End Function
|
'--------------------------服务单类型---------------------end
|
|
'--------------------------取消类型---------------------begin
|
Function CancelReasonA(CancelReason)
|
Set OrderTypeRS = Server.CreateObject("ADODB.Recordset")
|
If IsNumeric(CancelReason) then
|
sql="select vtext from dictionary where vtitle='CancelReason' and vID="&CancelReason
|
OrderTypeRS.open sql,objConn,1,1
|
if not OrderTypeRS.Eof then
|
CancelReasonA = OrderTypeRS(0)
|
else
|
CancelReasonA = "其它"
|
end if
|
OrderTypeRS.close()
|
Else
|
CancelReasonA = CancelReason
|
End If
|
End Function
|
'--------------------------取消类型---------------------end
|
|
'--------------------------医院级别---------------------begin
|
Function HospLevelA(HospLevel)
|
Set HospLevelRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='HospLevel' and vID="&HospLevel
|
HospLevelRS.open sql,objConn,1,1
|
if not HospLevelRS.Eof then
|
HospLevelA = HospLevelRS(0)
|
else
|
HospLevelA = "未知"
|
end if
|
HospLevelRS.close()
|
End Function
|
'--------------------------医院级别---------------------end
|
|
'--------------------------文档类型---------------------begin
|
Function ImageTypeA(ImageType)
|
Set ImageTypeRS = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from dictionary where vtitle='ImageType' and vID="&ImageType
|
ImageTypeRS.open sql,objConn,1,1
|
if not ImageTypeRS.Eof then
|
ImageTypeA = ImageTypeRS(0)
|
else
|
ImageTypeA = "其它"
|
end if
|
ImageTypeRS.close()
|
End Function
|
'--------------------------取消类型---------------------end
|
|
'--------------------------客户评价(2020.12.22)---------------------begin
|
Function Guest_PointEA(Guest_PointE)
|
Guest_PointESP=split(Guest_PointE,",")
|
for z=1 to ubound(Guest_PointESP)
|
if Guest_PointESP(z)="9" then
|
Guest_PointEA = Guest_PointEA&",满意"
|
ElseIf Guest_PointESP(z)="8" then
|
Guest_PointEA = Guest_PointEA&",满意"
|
ElseIf Guest_PointESP(z)="1" then
|
Guest_PointEA = Guest_PointEA&",不满意技能水平"
|
ElseIf Guest_PointESP(z)="2" then
|
Guest_PointEA = Guest_PointEA&",不满意服务水平"
|
else
|
Guest_PointEA = Guest_PointE
|
end if
|
Next
|
If Guest_PointEA<>"" Then Guest_PointEA=Mid(Guest_PointEA,2)
|
|
End Function
|
'--------------------------客户评价---------------------end
|
|
|
'--------------------------小数显示---------------------begin
|
Function FN(n)
|
if IsNumeric(n)=False then
|
FN=n
|
elseif InStr(n,".")<=0 then
|
FN=FormatNumber(n,0,-1,,0)
|
elseif len(Mid(n,InStr(n,".")))=2 then
|
FN=FormatNumber(n,1,-1,,0)
|
else
|
FN=FormatNumber(n,2,-1,,0)
|
end if
|
End Function
|
'--------------------------小数显示---------------------end
|
|
'======================去掉UBB代码(单图片)======================
|
Private Function ReUBBimg(ByVal inVal) '转换成UBB代码：inVal 为需要转换的字符串
|
|
'inVal = Server.HTMLEncode(inVal)
|
inVal = Replace(inVal," "," ")
|
inVal = Replace(inVal,vbCrlf,"")
|
|
Dim regEx
|
Set regEx = New RegExp
|
regEx.IgnoreCase = True
|
regEx.Global = True
|
|
|
regEx.Pattern = "\[IMG]http://(.[^\[]*)(\.gif|\.jpg|\.jpeg)\[\/IMG]"
|
inVal = regEx.Replace(inVal,",http://$1$2")
|
|
regEx.Pattern = "\[IMG](.[^\[]*)(\.gif|\.jpg|\.jpeg)\[\/IMG]"
|
inVal = regEx.Replace(inVal,",$1$2")
|
|
Set regEx = Nothing
|
ReUBBimg = inVal
|
End Function
|
|
'验证字段2
|
Function SafeRequestHtml(ParaName)
|
ParaValue=ParaName
|
if not isnull(ParaValue) then
|
ParaValue = replace(ParaName,"'","''")
|
'ParaValue = replace(ParaValue,"""",""")
|
ParaValue = replace(ParaValue,"http://v.com.cn:8080","")
|
ParaValue = replace(ParaValue,"http://www.v.com.cn:8080","")
|
end if
|
OperationRecord=OperationRecord&ParaValue
|
SafeRequestHtml=ParaValue
|
End Function
|
|
'去掉字符串中的空格和?
|
Function StrTrim(ParaName)
|
ParaValue=ParaName
|
if not isnull(ParaValue) then
|
ParaValue = trim(ParaValue)
|
ParaValue = replace(ParaValue," ","")
|
ParaValue = replace(ParaValue,"?","")
|
end if
|
StrTrim=ParaValue
|
End function
|
|
|
'缩略图生成
|
Function strPICTurn(PicID,strPIC,strPICs,scaleW,scaleH,S)
|
if Instr(strPICs,scaleW&"x"&scaleH)>=1 or Request.ServerVariables("SERVER_NAME")="192.168.0.250" then '已有合适图片
|
'if Instr(strPICs,scaleW&"x"&scaleH)=0 then '已有合适图片 or Request.ServerVariables("SERVER_NAME")="new.v.com.cn"
|
strPICTurn=replace(strPIC,".","_"&scaleW&"x"&scaleH&".")
|
else '产生缩略图
|
org_file = server.mappath(strPIC)
|
org_FileName = Right(org_file, Len(org_file)-InstrRev(org_file,"\")) '源文件名
|
org_FilePath = Left(org_file, InstrRev(org_file,"\")) '文件路径
|
new_FileName = replace(org_FileName,".","_"&scaleW&"x"&scaleH&".") '新文件名
|
new_file = org_FilePath & new_FileName '新文件路径+新文件名
|
org_webPath = replace(strPIC,org_fileName,"") '文件网页路径
|
CreatThumbPhoto org_FilePath,org_FileName,org_FilePath,new_FileName,scaleW,scaleH,S,PicID
|
objConn.Execute "update ImageData set ImageUrls='"&strPICs&","&scaleW&"x"&scaleH&"' where PicID="&PicID
|
strPICTurn = org_webPath & new_FileName
|
end if
|
End Function
|
|
sub CreatThumbPhoto(org_path,org_name,target_path,target_name,scaleW,scaleH,S,PicID)
|
set fso = Server.CreateObject("scripting.FileSystemObject")
|
if fso.FileExists(org_path&org_name) then
|
Response.Expires = 0
|
' create instance of AspJpeg
|
Set jpeg = Server.CreateObject("Persits.Jpeg")
|
' Open source file
|
jpeg.Open( org_path & org_name )
|
W = cint(scaleW)
|
H = cint(scaleH)
|
PicWidth=cint(jpeg.OriginalWidth)
|
PicHeight=cint(jpeg.OriginalHeight)
|
SaveWidth=0
|
SaveHeight=0
|
if cint(jpeg.OriginalWidth) > W or cint(jpeg.OriginalHeight) > H then
|
|
if S="W" then
|
SaveWidth=W
|
SaveHeight=jpeg.OriginalHeight * W / jpeg.OriginalWidth
|
elseif S="H" then
|
SaveWidth=H
|
SaveHeight=jpeg.OriginalWidth * H / jpeg.OriginalHeight
|
else
|
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
|
SaveWidth=jpeg.OriginalWidth * W / jpeg.OriginalHeight
|
SaveHeight=W
|
Else
|
SaveWidth=H
|
SaveHeight=jpeg.OriginalHeight * H / jpeg.OriginalWidth
|
End If
|
end if
|
jpeg.Width = SaveWidth
|
jpeg.Height = SaveHeight
|
|
if SaveWidth<>W or SaveHeight<>H then
|
x = 0
|
y = 0
|
if SaveWidth>SaveHeight then
|
x = (SaveWidth-W)/2
|
else
|
y = (SaveHeight-H)/2
|
end if
|
jpeg.crop x,y,W+x,H+y '开始切割其实是把超过52象素的下部分去掉
|
end if
|
'jpeg.Sharpen 1, 130
|
'jpeg.Quality = 100 ' 默认值为80，最佳为100
|
jpeg.Sharpen 1, 101 ' 设定锐化效果第一个阐述为半径（1或2），第二个为数量（百分比，大于100）
|
'jpeg.Interpolation 2 ' 设定锐化效果 2最慢，默认值为1，最快为0
|
|
|
else
|
jpeg.Height = jpeg.OriginalHeight
|
jpeg.Width = jpeg.OriginalWidth
|
end if
|
Jpeg.Save target_path & target_name
|
end if
|
end Sub
|
|
|
'--------------------------商品价格类型---------------------begin
|
Function Shop_StrItm_Money(TM_slevel)
|
Set StrItm_Moneyrs = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='商品价格分类' and vID="&TM_slevel
|
StrItm_Moneyrs.open sql,objConn,1,1
|
if not StrItm_Moneyrs.Eof then
|
Shop_StrItm_Money = StrItm_Moneyrs(0)
|
else
|
Shop_StrItm_Money = "热卖价"
|
end if
|
StrItm_Moneyrs.close()
|
End Function
|
'--------------------------商品价格类型---------------------end
|
|
|
'--------------------------会员类型---------------------begin
|
Function Shop_user_slevel(TM_slevel,UserSlevel)
|
Set StrItm_slevelrs = Server.CreateObject("ADODB.Recordset")
|
if TM_slevel=0 then
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='TV_UserSlevel' and vID="&UserSlevel
|
else
|
sql="select vtext from TVDV.dbo.dictionary where vtitle='商品价格分类' and vID="&TM_slevel
|
end if
|
StrItm_slevelrs.open sql,objConn,1,1
|
if not StrItm_slevelrs.Eof then
|
Shop_user_slevel = StrItm_slevelrs(0)
|
else
|
Shop_user_slevel = "问题会员"
|
end if
|
StrItm_slevelrs.close()
|
End Function
|
'--------------------------会员类型---------------------end
|
|
'--------------------------会员类型---------------------begin
|
Function CAction_A(CAction)
|
select case CAction
|
case 0
|
CAction_A="(去电)"
|
case 1
|
CAction_A="(来电)"
|
end select
|
End Function
|
'--------------------------会员类型---------------------end
|
|
|
'--------------------------提交记录Form---------------------begin
|
Function RequestForm(Origin)
|
ReDim arr(Request.form.Count,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=Request.form
|
t=Request.form.Count
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
For i = 0 To t-1
|
If arr(i,1)="province" Then arr(i,1)="ServiceOrdTraProvince"
|
If arr(i,1)="city" Then arr(i,1)="ServiceOrdTraCity"
|
If oldv<>arr(i,1) then
|
oldv=arr(i,1)
|
Origin=Origin & "|" & arr(i,1) & "=" & URLDecode(arr(i,2))
|
Else
|
Origin=Origin & "," & URLDecode(arr(i,2))
|
End If
|
Next
|
End Function
|
'--------------------------提交记录Form---------------------end
|
|
'--------------------------提交记录QueryString---------------------begin
|
Function RequestQueryString()
|
ReDim arr(Request.QueryString.Count,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=Request.QueryString
|
t=Request.QueryString.Count
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
oldv=""
|
For i = 0 To t-1
|
If arr(i,1)="province" Then arr(i,1)="ServiceOrdTraProvince"
|
If arr(i,1)="city" Then arr(i,1)="ServiceOrdTraCity"
|
If oldv<>arr(i,1) then
|
oldv=arr(i,1)
|
Origin=Origin & "|" & arr(i,1) & "=" & URLDecode(arr(i,2))
|
Else
|
Origin=Origin & "," & URLDecode(arr(i,2))
|
End If
|
Next
|
End Function
|
'--------------------------提交记录QueryString---------------------end
|
|
'--------------------------URL反编码函数---------------------begin
|
Function URLDecode(ByVal urlcode)'URL反编码函数
|
Dim start,final,length,char,i,butf8,pass
|
Dim leftstr,rightstr,finalstr
|
Dim b0,b1,bx,blength,position,u,utf8
|
On Error Resume Next
|
|
b0 = Array(192,224,240,248,252,254)
|
urlcode = Replace(urlcode,"+"," ")
|
pass = 0
|
utf8 = -1
|
|
length = Len(urlcode) : start = InStr(urlcode,"%") : final = InStrRev(urlcode,"%")
|
If start = 0 or length < 3 Then URLDecode = urlcode : Exit Function
|
leftstr = Left(urlcode,start - 1) : rightstr = Right(urlcode,length - 2 - final)
|
|
For i = start To final
|
char = Mid(urlcode,i,1)
|
If char = "%" Then
|
bx = URLDecode_Hex(Mid(urlcode,i + 1,2))
|
If bx > 31 And bx < 128 Then
|
i = i + 2
|
finalstr = finalstr & ChrW(bx)
|
ElseIf bx > 127 Then
|
i = i + 2
|
If utf8 < 0 Then
|
butf8 = 1 : blength = -1 : b1 = bx
|
For position = 4 To 0 Step -1
|
If b1 >= b0(position) And b1 < b0(position + 1) Then
|
blength = position
|
Exit For
|
End If
|
Next
|
If blength > -1 Then
|
For position = 0 To blength
|
b1 = URLDecode_Hex(Mid(urlcode,i + position * 3 + 2,2))
|
If b1 < 128 or b1 > 191 Then butf8 = 0 : Exit For
|
Next
|
Else
|
butf8 = 0
|
End If
|
If butf8 = 1 And blength = 0 Then butf8 = -2
|
If butf8 > -1 And utf8 = -2 Then i = start - 1 : finalstr = "" : pass = 1
|
utf8 = butf8
|
End If
|
If pass = 0 Then
|
If utf8 = 1 Then
|
b1 = bx : u = 0 : blength = -1
|
For position = 4 To 0 Step -1
|
If b1 >= b0(position) And b1 < b0(position + 1) Then
|
blength = position
|
b1 = (b1 xOr b0(position)) * 64 ^ (position + 1)
|
Exit For
|
End If
|
Next
|
If blength > -1 Then
|
For position = 0 To blength
|
bx = URLDecode_Hex(Mid(urlcode,i + 2,2)) : i = i + 3
|
If bx < 128 or bx > 191 Then u = 0 : Exit For
|
u = u + (bx And 63) * 64 ^ (blength - position)
|
Next
|
If u > 0 Then finalstr = finalstr & ChrW(b1 + u)
|
End If
|
Else
|
b1 = bx * &h100 : u = 0
|
bx = URLDecode_Hex(Mid(urlcode,i + 2,2))
|
If bx > 0 Then
|
u = b1 + bx
|
i = i + 3
|
Else
|
If Left(urlcode,1) = "%" Then
|
u = b1 + Asc(Mid(urlcode,i + 3,1))
|
i = i + 2
|
Else
|
u = b1 + Asc(Mid(urlcode,i + 1,1))
|
i = i + 1
|
End If
|
End If
|
finalstr = finalstr & Chr(u)
|
End If
|
Else
|
pass = 0
|
End If
|
End If
|
Else
|
finalstr = finalstr & char
|
End If
|
Next
|
URLDecode = leftstr & finalstr & rightstr
|
End Function
|
|
Function URLDecode_Hex(ByVal h)
|
On Error Resume Next
|
h = "&h" & Trim(h) : URLDecode_Hex = -1
|
If Len(h) <> 4 Then Exit Function
|
If isNumeric(h) Then URLDecode_Hex = cInt(h)
|
End Function
|
'--------------------------URL反编码函数---------------------end
|
|
'--------------------------秒数转X小时X分X秒---------------------begin
|
function SplitTime(secondTime)
|
HourTime=int(secondTime/3600)
|
MinuteTime=int((secondTime mod 3600)/60)
|
SecondTime=(secondTime mod 3600) mod 60
|
if len(MinuteTime)<2 then MinuteTime="0" & MinuteTime end if
|
if len(SecondTime)<2 then SecondTime="0" & SecondTime end if
|
SplitTime=""
|
If HourTime>0 Then SplitTime=HourTime&"小时 "
|
If MinuteTime>0 Then SplitTime=SplitTime & MinuteTime&"分 "
|
If SecondTime>0 Then SplitTime=SplitTime & SecondTime&"秒"
|
end function
|
'--------------------------秒数转X小时X分X秒---------------------end
|
|
'--------------------------支付记录---------------------begin
|
Function PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
|
If DispatchOrdID="" Then DispatchOrdID=0
|
If PaidMoneyCheck="" Then PaidMoneyCheck=0
|
If Len(ServiceOrdID)=12 And Not IsNumeric(Left(ServiceOrdID,2)) And IsNumeric(Right(ServiceOrdID,10)) Then ServiceOrdID=Right(ServiceOrdID,10)
|
If Len(DispatchOrdID)=12 And Not IsNumeric(Left(DispatchOrdID,2)) And IsNumeric(Right(DispatchOrdID,10)) Then DispatchOrdID=Right(DispatchOrdID,10)
|
Set PaidMoneyRS = Server.CreateObject("ADODB.Recordset")
|
|
NC_OAID=""
|
DO_State=""
|
If DispatchOrdID<>"0" then
|
'调度员ID
|
sql="select DispatchOrd_NS_ID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrdState from DispatchOrd where DispatchOrdID="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
'NC_OAID=PaidMoneyRS(0)
|
DO_State = PaidMoneyRS("DispatchOrdState")
|
DispatchOrdNo = PaidMoneyRS("DispatchOrdClass")& year(PaidMoneyRS("DispatchOrd_NS_Time"))&Right("0"&month(PaidMoneyRS("DispatchOrd_NS_Time")),2)&Right("0"&day(PaidMoneyRS("DispatchOrd_NS_Time")),2) & "-"&Right("00"&PaidMoneyRS("DispatchOrdNo"),3) '调度单编号
|
end if
|
PaidMoneyRS.close()
|
'领队ID
|
touser=""
|
sql="select OA_weixinUserID,EntourageOAid from DispatchOrd,DispatchOrd_Entourage,OA_User where EntourageLead=1 and EntourageState=3 and EntourageOAid=OA_User_ID and DispatchOrdIDDt=DispatchOrdID and OA_weixinUserID<>'' and DispatchOrdID="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
NC_OAID = PaidMoneyRS("EntourageOAid")
|
OA_weixinUserID = PaidMoneyRS("OA_weixinUserID")
|
touser=OA_weixinUserID
|
End if
|
PaidMoneyRS.close()
|
Else
|
'客服ID
|
sql="select ServiceOrd_CC_ID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
'NC_OAID=PaidMoneyRS(0)
|
ServiceOrdNo=PaidMoneyRS("ServiceOrdClass")& year(PaidMoneyRS("ServiceOrd_CC_Time"))&Right("0"&month(PaidMoneyRS("ServiceOrd_CC_Time")),2)&Right("0"&day(PaidMoneyRS("ServiceOrd_CC_Time")),2) & "-"&Right("00"&PaidMoneyRS("ServiceOrdNo"),3) '服务单单编号
|
end if
|
PaidMoneyRS.close()
|
End If
|
If PaidMoney<0 Then '查询退款审核人员
|
touser=""
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_execLevel>=0 and OA_Power like '%030209%'"
|
PaidMoneyRS.open sql,objConn,1,1
|
do while not PaidMoneyRS.Eof
|
NC_OAID = PaidMoneyRS("OA_User_ID")
|
OA_weixinUserID = PaidMoneyRS("OA_weixinUserID")
|
touser=touser&"|"&OA_weixinUserID
|
PaidMoneyRS.movenext
|
loop
|
PaidMoneyRS.close()
|
End If
|
|
sql="select id from PaidMoney where PaidMoneyOaID="&session("adminID")&" and PaidMoneyTimestamp='"&PaidMoneyTimestamp&"'"
|
PaidMoneyRS.open sql,objConn,1,1
|
if PaidMoneyRS.Eof then
|
If PaidMoneyCheck=1 Then
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono,PaidMoney_AP_Check,PaidMoney_AP_Time,PaidMoney_AP_ID) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&PaidMoney&","&PaidMoneyType&","&session("adminID")&",'"&PaidMoneyTimestamp&"','"&PaidMoneyMono&"',1,getdate(),"&session("adminID")&")"
|
else
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&PaidMoney&","&PaidMoneyType&","&session("adminID")&",'"&PaidMoneyTimestamp&"','"&PaidMoneyMono&"')"
|
End if
|
objConn.Execute sql
|
If ServiceOrdID<>"" Then
|
sql="update ServiceOrder set ServiceOrdTraPaidPrice=ServiceOrdTraPaidPrice+"&PaidMoney&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
If NC_OAID<>"" And PaidMoney>0 Then '支付成功推送
|
If DispatchOrdNo<>"" then
|
NC_Name="【调度单成功支付】"
|
NC_Content="调度单:"&DispatchOrdNo&"客户已通过["&PaidMoneyType&"]成功支付"&PaidMoney&"元 "&PaidMoneyMono
|
NC_PageUrl="/DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
NC_PageUrlM="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
Else
|
NC_Name="【服务单成功支付】"
|
NC_Content="服务单:"&ServiceOrdNo&"客户已通过["&PaidMoneyType&"]成功支付"&PaidMoney&"元 "&PaidMoneyMono
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
End If
|
'Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
|
'微信OA信息推送
|
If touser<>"" then
|
agentid=21
|
articles="{"
|
articles=articles&"""title"": ""【订单支付成功】"","
|
If DispatchOrdNo<>"" Then
|
articles=articles&"""description"": ""调度单号："&DispatchOrdNo&"\n支付金额："&PaidMoney&"元\n支付时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID&""""
|
Else
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n支付金额："&PaidMoney&"元\n支付时间："&Now()&""","
|
articles=articles&"""url"": """""
|
End If
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
|
ElseIf PaidMoney<0 And (PaidMoneyType="3" Or PaidMoneyType="4") And InStr(PaidMoneyMono,"收款编号:")>0 Then '退款申请推送
|
PaidMoneyRS.close()
|
sql="select top 1 id from PaidMoney where PaidMoneyOaID="&session("adminID")&" order by id desc"
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.Eof Then
|
PaidMoneyID=PaidMoneyRS("id")
|
End If
|
'微信OA信息推送
|
If touser<>"" then
|
agentid=21
|
articles="{"
|
articles=articles&"""title"": ""【退款申请】"","
|
If DispatchOrdNo<>"" Then
|
articles=articles&"""description"": ""调度单号："&DispatchOrdNo&"\n退款金额："&PaidMoney&"元\n申请时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_PaidMoneyRefund.gds?PaidMoneyID="&PaidMoneyID&""""
|
Else
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n退款金额："&PaidMoney&"元\n申请时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_PaidMoneyRefund.gds?PaidMoneyID="&PaidMoneyID&""""
|
End If
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
|
End If
|
end if
|
PaidMoneyRS.close()
|
|
'更新跑空单成交价与绩效
|
If DO_State="9" And DispatchOrdID<>"" And ServiceOrdID<>"" Then
|
call PaidMoneyB(ServiceOrdID,DispatchOrdID)
|
End If
|
End Function
|
'--------------------------支付记录---------------------end
|
|
'更新跑空单成交价与绩效
|
Function PaidMoneyB(ServiceOrdID,DispatchOrdID)
|
Set PaidMoneyRS = Server.CreateObject("ADODB.Recordset")
|
DO_State=""
|
sql="select DispatchOrdState from DispatchOrd where DispatchOrdID="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.eof Then
|
DO_State=PaidMoneyRS(0)
|
End If
|
PaidMoneyRS.close()
|
If DO_State="9" Then
|
sql="select isnull(SUM(PaidMoney),0) from PaidMoney where PaidMoney_AP_Check<>-1 and DispatchOrdIDDt="&DispatchOrdID
|
PaidMoneyRS.open sql,objConn,1,1
|
If not PaidMoneyRS.eof Then
|
DispatchOrdPerfomance=PaidMoneyRS(0)
|
End If
|
PaidMoneyRS.close()
|
If DispatchOrdPerfomance="" Or isnull(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0
|
sql="update DispatchOrd set DispatchOrdPerfomance="&DispatchOrdPerfomance&" where DispatchOrdState=9 and DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
sql="update ServiceOrder set ServiceOrdTraTxnPrice="&DispatchOrdPerfomance&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
End If
|
End Function
|
'--------------------------更新跑空单成交价与绩效---------------------end
|
|
'--------------------------UNIX时间戳---------------------begin
|
'ToUnixTime(now(), +8)
|
Function ToUnixTime(strTime, intTimeZone)
|
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
|
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
|
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
|
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
|
End Function
|
'--------------------------UNIX时间戳---------------------end
|
|
'--------------------------远程获取图片至本地---------------------begin
|
Function downFile(url,filePath,fileSuffix)
|
'远程获取文件
|
'------------------------------------------------------
|
set xmlhttp = server.CreateObject("Microsoft.XMLHTTP")
|
xmlhttp.open "get",url,false
|
xmlhttp.send
|
html = xmlhttp.ResponseBody
|
|
'获取文件名
|
'-----------------------------------------------------
|
If fileSuffix<>"" Then
|
fileName = ToUnixTime(now(),+8)&randKey(4) &"."&fileSuffix
|
else
|
fileNameSplit = Split(url,"/")
|
fileName = fileNameSplit(Ubound(fileNameSplit))
|
End If
|
|
'开始保存文件到本地
|
'-----------------------------------------------------
|
Set saveFile = Server.CreateObject("Adodb.Stream")
|
saveFile.Type = 1
|
saveFile.Open
|
saveFile.Write html
|
saveFile.SaveToFile server.MapPath(filePath)&"\"&fileName, 2
|
|
downFile=filePath&fileName
|
End Function
|
|
'--------------------------调度单绩效算法---------------------begin
|
Function EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
Set EntourageDKPRS = Server.CreateObject("ADODB.Recordset")
|
EntourageDoctors=0 '医生人数
|
EntourageNurse=0 '护士人数
|
EntourageDriver=0 '司机人数
|
EntourageSum=0 '总随行人数
|
sql="select vtext,COUNT(EntourageID) from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" GROUP BY vtext"
|
EntourageDKPRS.open sql,objConn,1,1
|
do while not EntourageDKPRS.Eof
|
select case EntourageDKPRS("vtext")
|
case "医生"
|
EntourageDoctors=EntourageDKPRS(1)
|
case "护士"
|
EntourageNurse=EntourageDKPRS(1)
|
case "司机"
|
EntourageDriver=EntourageDKPRS(1)
|
end Select
|
EntourageSum=EntourageSum+EntourageDKPRS(1)
|
EntourageDKPRS.movenext
|
loop
|
EntourageDKPRS.close()
|
'计价分里数
|
sql="select top 1 ServiceOrdTraDistance,OrderLevel,DispatchOrd_NS_Time,ServiceOrdTraTxnPrice,ServiceOrdID,ServiceOrdType from ServiceOrder,DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrdID="&DispatchOrdID
|
EntourageDKPRS.open sql,objConn,1,1
|
if not EntourageDKPRS.Eof Then
|
OrdDistance=EntourageDKPRS(0)
|
If InStr(OrdDistance,"公里")>0 Or InStr(OrdDistance,"km")>0 Then
|
OrdDistance=Replace(Replace(OrdDistance,"公里",""),"km","")
|
Else
|
OrdDistance=0
|
End If
|
OrderLevel=EntourageDKPRS(1)
|
DispatchOrd_NS_Time=EntourageDKPRS(2)
|
OrdPrice=EntourageDKPRS(3)
|
ServiceOrdID=EntourageDKPRS(4)
|
ServiceOrdType=EntourageDKPRS(5)
|
Else
|
OrdDistance=0
|
OrderLevel=0
|
DispatchOrd_NS_Time=now()
|
End If
|
If IsNumeric(OrdDistance) Then
|
OrdDistance=clng(OrdDistance)
|
Else
|
OrdDistance=0
|
End If
|
EntourageDKPRS.close()
|
|
If EntourageSum>0 Then
|
|
'提成算法
|
DKPScale_Doctors=0.16+0.05 '医生正常绩效(16%)+超时补贴(5%)
|
DKPScale_Nurse=0.11+0.04 '护士正常绩效(16%)+超时补贴(5%)
|
DKPScale_Driver=0.09+0.03 '司机正常绩效(9%)+超时补贴(3%)
|
|
'跟车绩效算法
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*(1/EntourageSum) '跟车医生绩效比例
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*(1/EntourageSum) '跟车护士绩效比例
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*(1/EntourageSum) '跟车司机绩效比例
|
|
'里程系数
|
MileageFactor_Doctors=1 '医生正常里程系数
|
MileageFactor_Nurse=1 '护士正常里程系数
|
MileageFactor_Driver=1 '司机正常里程系数
|
|
'跟车里程系数
|
LongMileageFactor_Doctors=0.5 '跟车医生里程系数
|
LongMileageFactor_Nurse=0.5 '跟车护士里程系数
|
LongMileageFactor_Driver=0.5 '跟车司机里程系数
|
|
'Z计划 个人系列默认1.2倍
|
If OrderLevel=2 Then
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2 '医生正常里程系数
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2 '护士正常里程系数
|
MileageFactor_Driver=MileageFactor_Driver*1.2 '司机正常里程系数
|
|
LongMileageFactor_Doctors=LongMileageFactor_Doctors*1.2 '跟车医生里程系数
|
LongMileageFactor_Nurse=LongMileageFactor_Nurse*1.2 '跟车护士里程系数
|
LongMileageFactor_Driver=LongMileageFactor_Driver*1.2 '跟车司机里程系数
|
End If
|
|
If (CDate(DispatchOrd_NS_Time)>=CDate("2021-8-9") And ServiceOrdType<>"7") Or CDate(DispatchOrd_NS_Time)>=CDate("2021-9-1") Then '最新绩效计算公式(2021-8-9 开始使用)
|
'提成算法
|
DKPScale_Doctors=8 '医生400公里绩效(8%)+长途(4.5%)
|
DKPScalelong_Doctors=4.5
|
DKPScalelong_Doctors2=0
|
DKPScale_Nurse=6 '护士400公里绩效(6%)+长途(3.5%)
|
DKPScalelong_Nurse=3.5
|
DKPScalelong_Nurse2=0
|
DKPScale_Driver=6 '司机400公里绩效(6%)+长途(3.5%)
|
DKPScalelong_Driver=3.5
|
DKPScalelong_Driver2=0
|
If DispatchOrdPerfomance=50 Then '驻点绩效 不出车情况下，绩效为0，补贴50元
|
sql="update DispatchOrd_Entourage set EntourageDKP=50,EntourageDKPScale=1 from DispatchOrd_Entourage as b where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid not in (select a.EntourageOAid from DispatchOrd_Entourage as a,DispatchOrd,ServiceOrder where a.DispatchOrdIDDt=DispatchOrdID and DispatchOrdID<>b.DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and a.EntourageState<>4 and (ServiceOrdApptDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdTraSDTime between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdActualDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time)))"
|
objConn.Execute sql
|
|
ElseIf OrdDistance>400 Then '大于400公里
|
|
'标准报价计算
|
If OrdDistance<=500 Then '小于500公里
|
If EntourageDoctors=0 And EntourageNurse=0 And EntourageDriver>=1 Then
|
StandardUnitPricee=11
|
ElseIf EntourageDoctors=0 And EntourageNurse>=1 And EntourageDriver>=1 Then
|
StandardUnitPricee=13
|
Else
|
StandardUnitPricee=14
|
End If
|
Else
|
If EntourageDoctors=0 And EntourageNurse=0 And EntourageDriver>=1 Then
|
StandardUnitPricee=10
|
ElseIf EntourageDoctors=0 And EntourageNurse>=1 And EntourageDriver>=1 Then
|
StandardUnitPricee=12
|
Else
|
StandardUnitPricee=13
|
End If
|
End If
|
StandardPricee=StandardUnitPricee*400
|
sql="update ServiceOrder set ServiceOrdTraUnitPrice="&StandardUnitPricee&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
|
If EntourageDoctors=0 And EntourageNurse=0 And EntourageDriver=1 Then '特殊情况1 仅单司机(绩效+3%)
|
DKPScalelong_Driver2=3
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And EntourageDriver=1 Then '特殊情况2 单医生单司机(绩效+2%)
|
DKPScalelong_Driver2=2
|
DKPScalelong_Doctors2=2
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And EntourageDriver=1 Then '特殊情况3 单护士单司机(绩效+2%)
|
DKPScalelong_Driver2=2
|
DKPScalelong_Nurse2=2
|
ElseIf (EntourageDoctors=0 And EntourageNurse=0 And EntourageDriver=2) Or EntourageDriver=1 Then '特殊情况4 仅双司机或单司机(绩效+2%)
|
DKPScalelong_Driver2=2
|
End If
|
|
If StandardPricee<OrdPrice Then
|
PriceDifference=OrdPrice-StandardPricee
|
Else
|
PriceDifference=0
|
End If
|
'Response.Write StandardPricee
|
'Response.end
|
DKPScale_Doctors=((StandardPricee*DKPScale_Doctors)+(PriceDifference*DKPScalelong_Doctors)+(OrdPrice*DKPScalelong_Doctors2))/OrdPrice
|
DKPScale_Nurse=((StandardPricee*DKPScale_Nurse)+(PriceDifference*DKPScalelong_Nurse)+(OrdPrice*DKPScalelong_Nurse2))/OrdPrice
|
DKPScale_Driver=((StandardPricee*DKPScale_Driver)+(PriceDifference*DKPScalelong_Driver)+(OrdPrice*DKPScalelong_Driver2))/OrdPrice
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
|
Else '小于400公里
|
If EntourageDriver=2 Then '特殊情况1 仅双司机(绩效/2)
|
DKPScale_Driver=DKPScale_Driver/2
|
End If
|
If ServiceOrdType="7" Then '保障任务单不计算收入提成
|
DKPScale_Doctors=0
|
DKPScale_Nurse=0
|
DKPScale_Driver=0
|
End If
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor=0,EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
ElseIf CDate(DispatchOrd_NS_Time)>=CDate("2021-4-1") Then '最新绩效计算公式(2021-4-1 开始使用)
|
If DispatchOrdPerfomance=50 Then '驻点绩效 不出车情况下，绩效为0，补贴50元
|
sql="update DispatchOrd_Entourage set EntourageDKP=50,EntourageDKPScale=1 from DispatchOrd_Entourage as b where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid not in (select a.EntourageOAid from DispatchOrd_Entourage as a,DispatchOrd,ServiceOrder where a.DispatchOrdIDDt=DispatchOrdID and DispatchOrdID<>b.DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and a.EntourageState<>4 and (ServiceOrdApptDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdTraSDTime between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdActualDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time)))"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And OrderLevel<>2 Then '特殊情况① 单医生(医生里程系数1.2)
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And OrderLevel<>2 Then '特殊情况② 单护士(护士里程系数1.2)
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=0 And EntourageDriver=1 And OrderLevel<>2 Then '特殊情况3 单司机(司机里程系数1.2)
|
MileageFactor_Driver=MileageFactor_Driver*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
Else '一般情况
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
|
If OrdDistance>250 And EntourageDriver=1 And MileageFactor_Driver<=1 Then '不论医护多少人，1个司机，大于250KM,(司机里程系数1.2)
|
MileageFactor_Driver=MileageFactor_Driver*1.2
|
sql="update DispatchOrd_Entourage set EntourageMileageFactor="&MileageFactor_Driver&" from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
|
Else '2021-4-1前的提成公式
|
If DispatchOrdPerfomance=50 Then '驻点绩效 不出车情况下，绩效为0，补贴50元
|
sql="update DispatchOrd_Entourage set EntourageDKP=50,EntourageDKPScale=1 from DispatchOrd_Entourage as b where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid not in (select a.EntourageOAid from DispatchOrd_Entourage as a,DispatchOrd,ServiceOrder where a.DispatchOrdIDDt=DispatchOrdID and DispatchOrdID<>b.DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and a.EntourageState<>4 and (ServiceOrdApptDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdTraSDTime between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time) or DispatchOrdActualDate between b.EntourageEnd_Time and dateadd(d,1,b.EntourageEnd_Time)))"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And EntourageDriver=1 Then '特殊情况① 1个医生,1个司机(分摊收入占比60%:40%),(医生里程系数1.2)
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*0.6
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.6&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vtitle='DispatchOrdEntourage' and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And EntourageDriver=1 Then '特殊情况② 1个护士,1个司机(分摊收入占比60%:40%),(护士里程系数1.2)
|
DKPScale_Nurse=0.16+0.05
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*0.6
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.6&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
DKPScale_Driver=0.11+0.04
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.4
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=1 And EntourageNurse=0 And EntourageDriver=2 Then '特殊情况③ 1个医生,2个司机(分摊收入占比40%:30%:30%),(医生里程系数1.2)
|
EntourageLongDKP_Doctors=DispatchOrdPerfomance*0.4
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.3
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.3&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=1 And EntourageDriver=2 Then '特殊情况④ 1个护士,2个司机(分摊收入占比40%:30%:30%),(护士里程系数1.2)
|
EntourageLongDKP_Nurse=DispatchOrdPerfomance*0.4
|
EntourageLongDKP_Nurse=0.11+0.04
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.4&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
EntourageLongDKP_Driver=DispatchOrdPerfomance*0.3
|
DKPScale_Driver=0.09+0.03
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*0.3&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=0 And (EntourageDriver=2 Or EntourageDriver=1) Then '特殊情况5 1或2个司机(分摊收入占比50%:50% 司机绩效15%),(司机里程系数1.2)
|
DKPScale_Driver=0.11+0.04
|
MileageFactor_Driver=MileageFactor_Driver*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=2 And EntourageDriver=1 And DateDiff("s",DispatchOrd_NS_Time,"2021-2-25")>0 Then '特殊情况6 2个护士,1个司机(分摊收入占比正常),(医护里程系数1.2)(2021.2.25起取消)
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=2 And EntourageNurse=0 And EntourageDriver=1 And DateDiff("s",DispatchOrd_NS_Time,"2021-2-25")>0 Then '特殊情况7 2个医生,1个司机(分摊收入占比正常),(医护里程系数1.2)(2021.2.25起取消)
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=2 And EntourageNurse=0 And EntourageDriver=2 And DateDiff("s",DispatchOrd_NS_Time,"2021-2-25")>0 Then '特殊情况8 2个医生,2个司机(分摊收入占比正常),(医护里程系数1.2)(2021.2.25起取消)
|
MileageFactor_Doctors=MileageFactor_Doctors*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
ElseIf EntourageDoctors=0 And EntourageNurse=2 And EntourageDriver=2 And DateDiff("s",DispatchOrd_NS_Time,"2021-2-25")>0 Then '特殊情况9 2个护士,2个司机(分摊收入占比正常),(医护里程系数1.2)(2021.2.25起取消)
|
MileageFactor_Nurse=MileageFactor_Nurse*1.2
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
Else '一般情况
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Doctors&",EntourageMileageFactor="&MileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Nurse&",EntourageMileageFactor="&MileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&DispatchOrdPerfomance*(1/EntourageSum)&",EntourageDKPScale="&DKPScale_Driver&",EntourageMileageFactor="&MileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
|
If OrdDistance>250 And EntourageDriver=1 And MileageFactor_Driver<=1 Then '特殊情况10 不论医护多少人，1个司机，大于250KM,(司机里程系数1.5)
|
MileageFactor_Driver=MileageFactor_Driver*1.5
|
sql="update DispatchOrd_Entourage set EntourageMileageFactor="&MileageFactor_Driver&" from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=0 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
End If
|
|
End If
|
|
'跟车正常系数0.5
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Doctors&",EntourageDKPScale="&DKPScale_Doctors/2&",EntourageMileageFactor="&LongMileageFactor_Doctors&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='医生'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Nurse&",EntourageDKPScale="&DKPScale_Nurse/2&",EntourageMileageFactor="&LongMileageFactor_Nurse&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='护士'"
|
objConn.Execute sql
|
sql="update DispatchOrd_Entourage set EntourageDKP="&EntourageLongDKP_Driver&",EntourageDKPScale="&DKPScale_Driver/2&",EntourageMileageFactor="&LongMileageFactor_Driver&",EntourageP1=Post_MoneyP1 from DispatchOrd_Entourage,dictionary,OA_User where OA_User_ID=EntourageOAid and vID=EntourageID and EntourageState<>4 and EntourageLong_is=1 and DispatchOrdIDDt="&DispatchOrdID&" and (DKPEdit_Reason is null or DKPEdit_Reason='') and vtext='司机'"
|
objConn.Execute sql
|
|
End If
|
End Function
|
'--------------------------调度单绩效算法---------------------end
|
|
'--------------------------个人绩效提成算法---------------------begin
|
Function EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)
|
EntourageDKP_Money=0
|
If EntourageOT_is=1 Then '加班绩效提成计算方式
|
If DispatchOrdPerfomance<=1000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=100
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=80
|
Else
|
EntourageDKP_Money=70
|
End If
|
ElseIf DispatchOrdPerfomance>1000 And DispatchOrdPerfomance<=2000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=200
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=160
|
Else
|
EntourageDKP_Money=140
|
End If
|
ElseIf DispatchOrdPerfomance>2000 And DispatchOrdPerfomance<=3000 then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=300
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=240
|
Else
|
EntourageDKP_Money=210
|
End If
|
Else
|
If EntourageName="医生" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.1,0)
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.08,0)
|
Else
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.07,0)
|
End If
|
End If
|
If (EntourageDKP*EntourageDKPScale)>EntourageDKP_Money Then EntourageDKP_Money=FormatNumber(EntourageDKP*EntourageDKPScale,0)
|
Else '正常上班时间
|
If CInt(EntourageBetimesHH)>0 Then
|
If CInt(EntourageBetimesHH)>2 And DateDiff("d",EntourageState_Time,"2016-12-5")<=0 Then EntourageBetimesHH=2
|
EntourageDKP_Money=EntourageBetimesHH*30
|
End If
|
If EntourageDKP>0 Then EntourageDKP_Money=EntourageDKP_Money+FormatNumber(EntourageDKP*EntourageDKPScale,0)
|
End If
|
EntourageDKP_Money_A=EntourageDKP_Money
|
|
End Function
|
'--------------------------个人绩效提成算法---------------------end
|
|
'--------------------------个人绩效提成算法2---------------------begin
|
Function EntourageDKP_Money_B(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time,StretcherM)
|
EntourageDKP_Money=0
|
If EntourageOT_is=1 Then '加班绩效提成计算方式
|
If DispatchOrdPerfomance<=1000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=100
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=80
|
Else
|
EntourageDKP_Money=70
|
End If
|
ElseIf DispatchOrdPerfomance>1000 And DispatchOrdPerfomance<=2000 Then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=200
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=160
|
Else
|
EntourageDKP_Money=140
|
End If
|
ElseIf DispatchOrdPerfomance>2000 And DispatchOrdPerfomance<=3000 then
|
If EntourageName="医生" Then
|
EntourageDKP_Money=300
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=240
|
Else
|
EntourageDKP_Money=210
|
End If
|
Else
|
If EntourageName="医生" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.1,0)
|
ElseIf EntourageName="护士" Then
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.08,0)
|
Else
|
EntourageDKP_Money=FormatNumber(DispatchOrdPerfomance*0.07,0)
|
End If
|
End If
|
Else '正常上班时间
|
If CInt(EntourageBetimesHH)>0 Then
|
If CInt(EntourageBetimesHH)>2 And DateDiff("d",EntourageState_Time,"2016-12-5")<=0 Then EntourageBetimesHH=2
|
EntourageDKP_Money=EntourageBetimesHH*30
|
End If
|
EntourageDKP_Money=EntourageDKP_Money+FormatNumber(EntourageDKP*EntourageDKPScale,0)
|
End If
|
EntourageDKP_Money_B=EntourageDKP_Money+StretcherM
|
|
End Function
|
'--------------------------个人绩效提成算法2---------------------end
|
|
'--------------------------个人绩效提成算法3_保存版2 2018-90-25开始使用---------------------begin
|
Function EntourageDKP_Money_C2(DispatchOrdID)
|
If DispatchOrdID<>"" Then
|
Set DKP_Rs = Server.CreateObject("ADODB.Recordset")
|
sql="select DispatchOrd_Entourage.id,EntourageID,EntourageOAid,ServiceOrdID,DispatchOrdID,DispatchOrdState,ServiceOrdType,DispatchOrd_NS_Time,OrderLevel,ServiceOrdTraTxnPrice,OrdDistance=case when PATINDEX('%[^0-9|.|-|+]%',Replace(Replace(ServiceOrdTraDistance,'公里',''),'km',''))=0 then convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')) else -1 end,OrdViaDistance=case when PATINDEX('%[^0-9|.|-|+]%',Replace(Replace(ServiceOrdViaDistance,'公里',''),'km',''))=0 then convert(money,Replace(Replace(ServiceOrdViaDistance,'公里',''),'km','')) else 0 end,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,Stretcher_Money=(isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0)*Stretcher_is),EntourageP1,Condition_is=(select COUNT(id) from ServiceOrd_Condition where ConditionID in (4,22,24) and ServiceOrdCoID=ServiceOrdID) from DispatchOrd_Entourage,OA_User,dictionary,DispatchOrd,ServiceOrder where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and ServiceOrdID=ServiceOrdIDDt and DispatchOrdID=DispatchOrdIDDt and DispatchOrdState in (8,9) and DispatchOrdID="&DispatchOrdID
|
'Response.Write sql
|
'Response.end
|
DKP_Rs.open sql,objConn,1,1
|
do while not DKP_Rs.Eof
|
If CDate(DKP_Rs("DispatchOrd_NS_Time"))<CDate("2021-4-1") Then '2021-4-1前的提成公式
|
sql="exec EntourageDKP_Money_C2 "&DKP_Rs("id")&","&DKP_Rs("EntourageOAid")&","&DKP_Rs("DispatchOrdID")&","&DKP_Rs("ServiceOrdType")&","&DKP_Rs("OrdDistance")&","&DKP_Rs("TimeLength_Program")&","&DKP_Rs("TimeLength_ICU")&","&DKP_Rs("TimeLength_Wait")&","&DKP_Rs("EntourageMileageFactor")&","&DKP_Rs("EntourageOT_is")&","&DKP_Rs("EntourageBetimesHH")&","&DKP_Rs("Stretcher_Money")&","&DKP_Rs("EntourageP1")&","&DKP_Rs("Condition_is")
|
objConn.Execute sql
|
ElseIf CDate(DKP_Rs("DispatchOrd_NS_Time"))<CDate("2021-8-9") or (DKP_Rs("ServiceOrdType")="7" And CDate(DKP_Rs("DispatchOrd_NS_Time"))<CDate("2021-9-1")) Then '2021-8-9前的提成公式
|
If DKP_Rs("OrderLevel")="2" And DKP_Rs("EntourageBetimesHH")>0 Then
|
OrdDistance=DKP_Rs("OrdViaDistance")
|
Else
|
OrdDistance=DKP_Rs("OrdDistance")
|
End If
|
'Z计划 里程提成不足100元按100元算
|
If OrdDistance<70 Then
|
OrdDistance1=70
|
Else
|
OrdDistance1=OrdDistance
|
End If
|
'Response.Write OrdDistance1&"*"&DKP_Rs("EntourageMileageFactor")&"*"&DKP_Rs("EntourageP1")&"="&OrdDistance1*DKP_Rs("EntourageMileageFactor")*DKP_Rs("EntourageP1")&"<br>"
|
If DKP_Rs("OrderLevel")="2" And OrdDistance1*DKP_Rs("EntourageMileageFactor")*DKP_Rs("EntourageP1")<100 Then
|
OrdDistance=100/DKP_Rs("EntourageMileageFactor")/DKP_Rs("EntourageP1")
|
End If
|
|
sql="exec EntourageDKP_Money_D1 "&DKP_Rs("id")&","&DKP_Rs("EntourageOAid")&","&DKP_Rs("DispatchOrdID")&","&DKP_Rs("ServiceOrdType")&","&OrdDistance&","&DKP_Rs("TimeLength_Program")&","&DKP_Rs("TimeLength_ICU")&","&DKP_Rs("TimeLength_Wait")&","&DKP_Rs("EntourageMileageFactor")&","&DKP_Rs("EntourageOT_is")&","&DKP_Rs("EntourageBetimesHH")&","&DKP_Rs("Stretcher_Money")&","&DKP_Rs("EntourageP1")&","&DKP_Rs("Condition_is")&","&DKP_Rs("DispatchOrdState")
|
objConn.Execute sql
|
Else '2021-8-10后提成公式
|
EntourageOT_Money=0
|
If DKP_Rs("TimeLength_Program")>0 Then '大型活动保障时长 提成
|
If DKP_Rs("EntourageID")=3 Or DKP_Rs("EntourageID")=5 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_Program")*25)
|
ElseIf DKP_Rs("EntourageID")=4 Or DKP_Rs("EntourageID")=6 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_Program")*23)
|
ElseIf DKP_Rs("EntourageID")=1 Or DKP_Rs("EntourageID")=2 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_Program")*20)
|
End If
|
End If
|
If DKP_Rs("TimeLength_ICU")>0 Then '居家ICU时长 提成
|
If DKP_Rs("EntourageID")=3 Or DKP_Rs("EntourageID")=5 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_ICU")*50)
|
ElseIf DKP_Rs("EntourageID")=4 Or DKP_Rs("EntourageID")=6 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_ICU")*40)
|
ElseIf DKP_Rs("EntourageID")=1 Or DKP_Rs("EntourageID")=2 Then
|
EntourageOT_Money=EntourageOT_Money+(DKP_Rs("TimeLength_ICU")*30)
|
End If
|
End If
|
sql="update DispatchOrd_Entourage set EntourageOA_Name=(select top 1 OA_Name from OA_User where OA_User_ID=EntourageOAid),EntourageOA_DepartmentName=(select top 1 vtext from OA_User,dictionary where vtitle='OA_Department' and vID=OA_DepartmentID and OA_User_ID=EntourageOAid),EntourageOutHosp=(select top 1 vtext from DispatchOrd,ServiceOrder,dictionary where vtitle='HospName' and vType=1 and vID=ServiceOrdPtOutHosp and DispatchOrdID=DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt),EntourageInHosp=(select top 1 vtext from DispatchOrd,ServiceOrder,dictionary where vtitle='HospName' and vType=1 and vID=ServiceOrdPtInHosp and DispatchOrdID=DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt),ConversionDistance=0,EntourageOT_Money="&EntourageOT_Money&",Stretcher_Money="&DKP_Rs("Stretcher_Money")&",EntourageMileageFactor="&DKP_Rs("EntourageMileageFactor")&",Condition_Money=0 where id="&DKP_Rs("id")
|
objConn.Execute sql
|
End If
|
DKP_Rs.movenext
|
loop
|
DKP_Rs.close()
|
End If
|
End Function
|
'--------------------------个人绩效提成算法3_保存版2 2018-10-25~2021-3-24---------------------end
|
|
'--------------------------个人绩效提成算法3_保存版 2018-10-25~2021-3-24---------------------begin
|
Function EntourageDKP_Money_C1(Eid,OA_User_ID,DispatchOrdID,ServiceOrdType,OrdDistance,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,Stretcher_Money,EntourageP1,ConversionDistance,EntourageOT_Money,EntourageDKP_Money,Condition_is,Condition_Money)
|
Set EntourageDKP_MoneyRs = Server.CreateObject("ADODB.Recordset")
|
sql="exec EntourageDKP_Money_C1 "&Eid&","&OA_User_ID&","&DispatchOrdID&","&ServiceOrdType&","&OrdDistance&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&","&EntourageMileageFactor&","&EntourageOT_is&","&EntourageBetimesHH&","&Stretcher_Money&","&EntourageP1&","&Condition_is&""
|
'Response.Write sql
|
objConn.Execute sql
|
sql="SELECT ConversionDistance,EntourageOT_Money,Stretcher_Money,Condition_Money,EntourageMileageFactor FROM DispatchOrd_Entourage where id="&Eid
|
'Response.Write sql
|
EntourageDKP_MoneyRs.open sql,objConn,1,1
|
ConversionDistance = EntourageDKP_MoneyRs("ConversionDistance") '折算公里数 L
|
EntourageOT_Money = EntourageDKP_MoneyRs("EntourageOT_Money") '加班费
|
Stretcher_Money = EntourageDKP_MoneyRs("Stretcher_Money") '担架费
|
Condition_Money = EntourageDKP_MoneyRs("Condition_Money") '特殊项目金额
|
EntourageMileageFactor = EntourageDKP_MoneyRs("EntourageMileageFactor") '个人系数
|
EntourageDKP_Money = ConversionDistance*EntourageP1+EntourageOT_Money+Stretcher_Money+Condition_Money '提成金额
|
EntourageDKP_MoneyRs.close()
|
End Function
|
'--------------------------个人绩效提成算法3_保存版 2018-10-25~2021-3-24---------------------end
|
|
'--------------------------个人绩效提成算法3 2018-10-25~2021-3-24---------------------begin
|
Function EntourageDKP_Money_C(OA_User_ID,DispatchOrdID,ServiceOrdType,OrdDistance,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,Stretcher_Money,EntourageP1,ConversionDistance,EntourageOT_Money,EntourageDKP_Money,Condition_is,Condition_Money)
|
Set EntourageDKP_MoneyRs = Server.CreateObject("ADODB.Recordset")
|
sql="SELECT * FROM dbo.EntourageDKP_Money_C("&OA_User_ID&","&DispatchOrdID&","&ServiceOrdType&","&OrdDistance&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&","&EntourageMileageFactor&","&EntourageOT_is&","&EntourageBetimesHH&","&Stretcher_Money&","&EntourageP1&","&Condition_is&")"
|
'Response.Write sql
|
EntourageDKP_MoneyRs.open sql,objConn,1,1
|
ConversionDistance = EntourageDKP_MoneyRs("ConversionDistance") '折算公里数 L
|
EntourageOT_Money = EntourageDKP_MoneyRs("EntourageOT_Money") '加班费
|
Stretcher_Money = EntourageDKP_MoneyRs("Stretcher_Money") '担架费
|
EntourageDKP_Money = EntourageDKP_MoneyRs("EntourageDKP_Money") '提成金额
|
Condition_Money = EntourageDKP_MoneyRs("Condition_Money") '特殊项目金额
|
EntourageMileageFactor = EntourageDKP_MoneyRs("EntourageMileageFactor") '个人系数
|
EntourageDKP_MoneyRs.close()
|
End Function
|
'--------------------------个人绩效提成算法3 2018-10-25~2021-3-24---------------------end
|
|
'--------------------------个人月度绩效提成算法 2018-10-25-2018-12-24 ---------------------begin
|
Function EntourageDKP_Money_M(OA_User_ID,ConversionDistance,Stretcher_Money,EntourageOT_Money,EntourageP1)
|
OA_DKPMoney_Sum=0
|
Set EntourageDKP_MoneyRs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_Name,OA_DepartmentID,Post_Name,Post_MoneyP,Post_MoneyP1 from OA_User where OA_User_ID="&OA_User_ID
|
EntourageDKP_MoneyRs.open sql,objConn,1,1
|
If not EntourageDKP_MoneyRs.Eof Then
|
M_OA_User_ID = EntourageDKP_MoneyRs("OA_User_ID")
|
M_OA_Name = EntourageDKP_MoneyRs("OA_Name")
|
M_OA_DepartmentID=EntourageDKP_MoneyRs("OA_DepartmentID")
|
M_Post_Name = EntourageDKP_MoneyRs("Post_Name")
|
M_Post_MoneyP = EntourageDKP_MoneyRs("Post_MoneyP")
|
M_Post_MoneyP1 = EntourageDKP_MoneyRs("Post_MoneyP1")
|
'M_Post_MoneyP1 = 0.71
|
'加权系数设定 K
|
If M_OA_DepartmentID=11 Then '医生
|
K=3500
|
ElseIf M_OA_DepartmentID=5 Then '司机
|
K=3500
|
ElseIf M_OA_DepartmentID=8 Then '护士
|
K=3000
|
Else
|
K=3500
|
End If
|
|
If ConversionDistance>K Then
|
OA_DKPMoney_Sum=(K*EntourageP1)+((ConversionDistance-K)*(ConversionDistance/K)*EntourageP1)
|
'Response.Write "("&K&"*"&M_Post_MoneyP1&")+(("&ConversionDistance&"-"&K&")*("&ConversionDistance&"/"&K&")*"&M_Post_MoneyP1&")"&"<br>"
|
Else
|
OA_DKPMoney_Sum=ConversionDistance*EntourageP1
|
End If
|
End If
|
EntourageDKP_MoneyRs.close()
|
EntourageDKP_Money_M=FormatNumber((OA_DKPMoney_Sum+Stretcher_Money+EntourageOT_Money),2,-1,,0)
|
End Function
|
'--------------------------个人月度绩效提成算法 2018-10-25-2018-12-24 ---------------------end
|
|
'--------------------------个人月度绩效提成算法 2018-12-25开始使用---------------------begin
|
Function EntourageDKP_Money_M1(OA_User_ID,ConversionDistance,Stretcher_Money,EntourageOT_Money,Condition_Money,EntourageP1)
|
OA_DKPMoney_Sum=0
|
Set EntourageDKP_MoneyRs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_User_ID,OA_Name,OA_DepartmentID,Post_Name,Post_MoneyP,Post_MoneyP1 from OA_User where OA_User_ID="&OA_User_ID
|
EntourageDKP_MoneyRs.open sql,objConn,1,1
|
If not EntourageDKP_MoneyRs.Eof Then
|
M_OA_User_ID = EntourageDKP_MoneyRs("OA_User_ID")
|
M_OA_Name = EntourageDKP_MoneyRs("OA_Name")
|
M_OA_DepartmentID=EntourageDKP_MoneyRs("OA_DepartmentID")
|
M_Post_Name = EntourageDKP_MoneyRs("Post_Name")
|
M_Post_MoneyP = EntourageDKP_MoneyRs("Post_MoneyP")
|
M_Post_MoneyP1 = EntourageDKP_MoneyRs("Post_MoneyP1")
|
'M_Post_MoneyP1 = 0.71
|
'加权系数设定 K
|
If M_OA_DepartmentID=11 Then '医生
|
K=1000000
|
ElseIf M_OA_DepartmentID=5 Then '司机
|
K=1000000
|
ElseIf M_OA_DepartmentID=8 Then '护士
|
K=1000000
|
Else
|
K=1000000
|
End If
|
|
If ConversionDistance>K Then
|
OA_DKPMoney_Sum=(K*EntourageP1)+((ConversionDistance-K)*(ConversionDistance/K)*EntourageP1)
|
'Response.Write "("&K&"*"&M_Post_MoneyP1&")+(("&ConversionDistance&"-"&K&")*("&ConversionDistance&"/"&K&")*"&M_Post_MoneyP1&")"&"<br>"
|
Else
|
OA_DKPMoney_Sum=ConversionDistance*EntourageP1
|
End If
|
End If
|
EntourageDKP_MoneyRs.close()
|
EntourageDKP_Money_M1=FormatNumber((OA_DKPMoney_Sum+Stretcher_Money+EntourageOT_Money+Condition_Money),2,-1,,0)
|
End Function
|
'--------------------------个人月度绩效提成算法 2018-12-25开始使用---------------------end
|
|
'--------------------------条形报表日期算法---------------------begin
|
Function labelsArr_A(DateA,DateB)
|
labelsArr=""
|
DateC=DateA
|
DateDay = DateDiff("d",DateA,DateB)+1
|
'日
|
If DateDay=1 Then
|
labelsArr="'0时','','','','','','6','','','','','12','','','','','','18','','','','','','23'"
|
'周
|
ElseIf DateDay=7 Then
|
labelsArr="'"&Month(DateC)&"."&Day(DateC)&"'"
|
do while DateC<dateadd("d",-1,DateB)
|
DateD=dateadd("d",1,DateC)
|
If Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"."&Day(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",'"&Day(DateD)&"'"
|
End If
|
DateC=DateD
|
Loop
|
labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
'月
|
ElseIf DateDay=30 Or DateDay=31 Or DateDay=28 Or DateDay=29 Then
|
labelsArr="'"&Month(DateC)&"."&Day(DateC)&"'"
|
do while DateC<dateadd("d",-1,DateB)
|
DateD=dateadd("d",1,DateC)
|
If Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"."&Day(DateD)&"'"
|
ElseIf Day(DateD)=5 Or Day(DateD)=10 Or Day(DateD)=15 Or Day(DateD)=20 Or Day(DateD)=25 then
|
labelsArr=labelsArr&",'"&Day(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",''"
|
End If
|
DateC=DateD
|
Loop
|
labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
'年
|
ElseIf DateDay=366 Or DateDay=365 Then
|
labelsArr="'"&Month(DateC)&"月'"
|
i=1
|
do while DateC<dateadd("m",-1,DateB)
|
DateD=dateadd("m",1,DateC)
|
If Month(DateD)<>Month(DateC) And (i=5 Or i=11) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"月'"
|
ElseIf Month(DateD)<>Month(DateC) Then
|
labelsArr=labelsArr&",'"&Month(DateD)&"'"
|
Else
|
labelsArr=labelsArr&",''"
|
End If
|
DateC=DateD
|
i=i+1
|
Loop
|
'labelsArr=labelsArr&",'"&Month(DateB)&"."&Day(DateB)&"'"
|
|
End If
|
labelsArr_A=labelsArr
|
End Function
|
'--------------------------条形报表日期算法---------------------end
|
|
'中文转拼音首字
|
Function Pinyin_A(Str)
|
Str=Replace(Str,"（","")
|
Str=Replace(Str,"）","")
|
Str=Replace(Str," ","")
|
Str=Replace(Str,"、","")
|
Pinyin_A=GetBody("https://sys.966120.com.cn/inc/GB2312.gds","zhoz_txt="&server.urlencode(Str))
|
Pinyin_A=Replace(Pinyin_A,"?","")
|
End Function
|
|
'Get方法
|
Function GetBody(appUrl,Origin)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
With https
|
.Open "GET", appUrl&"?"&Origin, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send ""
|
GetBody = .ResponseBody
|
End With
|
GetBody = BytesToBstr(GetBody,"utf-8")
|
Set https = Nothing
|
End Function
|
|
Function BytesToBstr(body,Cset) '飘易：转换GB2312
|
dim objstream
|
set objstream = Server.CreateObject("adodb.stream")
|
objstream.Type = 1
|
objstream.Mode =3
|
objstream.Open
|
objstream.Write body
|
objstream.Position = 0
|
objstream.Type = 2
|
objstream.Charset = Cset
|
BytesToBstr = objstream.ReadText
|
objstream.Close
|
set objstream = nothing
|
End Function
|
|
|
'--------------------------名传无线-短信发送---------------------begin
|
Function Get_SMS(Send_Phone,Send_Text,Send_Remarks)
|
'账号：201453
|
'密码：b9d04e62652a47f317616e122e819918
|
'地址：yun.mchuan.com
|
If Len(Send_Phone)>=11 Then
|
url="http://112.74.139.4:8002/sms3_api/jsonapi/jsonrpc2.jsp" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="{"
|
Origin=Origin&"""id"": 1 ,"
|
Origin=Origin&"""method"":""send"","
|
Origin=Origin&"""params"":{"
|
Origin=Origin&"""userid"":""201453"","
|
Origin=Origin&"""password"":""b9d04e62652a47f317616e122e819918"","
|
Origin=Origin&"""submit"": [{"
|
Origin=Origin&"""content"":"""&Send_Text&""","
|
Origin=Origin&"""phone"":"""&Send_Phone&""""
|
Origin=Origin&"}]}}"
|
'Response.Write url&"?"&Origin&"<br>"
|
'Response.end
|
HTMLCODE= GetBody(url,Server.URLEncode(Origin))
|
If InStr(HTMLCODE,"error")>=1 Then
|
Response.Write HTMLCODE
|
Response.end
|
End If
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=HTMLCODE
|
str=right(str,len(str)-instr(str,"[")+1)
|
str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
for i=0 to obj.length-1
|
phone = obj.get(i).phone
|
msgid = obj.get(i).msgid
|
return = obj.get(i).return
|
errMsg = obj.get(i).info
|
sql="Insert into Sms_Log (Log_Id,Send_Text,Send_Phone,Send_OA,Send_errMsg,Send_Remarks) values ('"&msgid&"','"&Send_Text&"','"&phone&"',"&session("adminID")&",'"&errMsg&"','"&Send_Remarks&"')"
|
objConn.Execute sql
|
Next
|
End If
|
End Function
|
'--------------------------名传无线-短信发送---------------------end
|
|
|
|
'--------------------------第三方平台数据更新---------------------begin
|
Function Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
|
If ServiceOrdID<>"" Then
|
sysUnix=ToUnixTime(now(),+8)
|
If ServiceOrdUnitID="2" Then '医护通平台
|
url="http://www.emtsos.com/emtApi.do" '//定义要获取源代码的网址，一般是通过变量传递过来
|
sql="select ServiceOrdTraTxnPrice from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
|
If ServiceOrdState="4" Or ServiceOrdState="5" Then
|
msg="无效取消"
|
ElseIf ServiceOrdTraTxnPrice>0 And ServiceOrdState<>"4" And ServiceOrdState<>"5" Then
|
msg="已报价 "&ServiceOrdTraTxnPrice
|
'msg="已报价"
|
Else
|
msg="未报价"
|
End If
|
'msg="1"
|
If DispatchOrdState<>"" Then msg=DispatchOrdStateA(DispatchOrdState)
|
Origin=""
|
Origin=Origin&"method=statusUpdate&"
|
Origin=Origin&"msg1="&msg&"&"
|
Origin=Origin&"ServiceOrdID="&ServiceOrdID&"&"
|
Origin=Origin&"UnixTime="&sysUnix&""
|
'Origin=Origin&"""sign"":"""&signA&""""
|
'Response.Write url&"?"&Origin&"<br>"
|
'Response.end
|
%>
|
<script src="/js/jquery-1.7.1.min.js" type=text/javascript></script>
|
<script type="text/javascript">
|
$.ajax({
|
type:'get',
|
url:'<%=url%>',
|
data:{"method":"statusUpdate","msg1":"<%=msg%>","ServiceOrdID":"<%=ServiceOrdID%>","UnixTime":"<%=sysUnix%>"},
|
dataType:'json',
|
cache:true
|
});
|
</script>
|
<%
|
Call OA_Running(url&"?"&Origin)
|
If InStr(ReturnURL,"SystemMessageType")<=0 Then ReturnURL=ReturnURL&"&SystemMessageType=3&SMT=3"
|
response.write ("<script language=""javascript"">setTimeout(location.href='"&ReturnURL&"',1000)</script>")
|
Response.end
|
'Call GetBody(url,Origin)
|
End If
|
rs.close()
|
Else
|
|
End If
|
End If
|
End Function
|
'--------------------------第三方平台数据更新---------------------end
|
|
'--------------------------写入通知中心_旧---------------------begin
|
Function Notification_Add_old(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
If NC_Name="" Then NC_Name=now()
|
If NC_OAID<>"" And (InStr(NC_Name,"BF")>0 Or InStr(NC_Name,"SA")>0) Then '分公司通知临时注销
|
NC_OAIDSP=SPLIT(NC_OAID,",")
|
for n = 0 to UBOUND(NC_OAIDSP)
|
If InStr(NC_Name,"派单时间提醒")>0 Then
|
sql="insert into Notification (NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM,NC_Time) values ("&NC_OAIDSP(n)&",'"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','','"&NC_PageUrlM&"')"
|
Else
|
sql="insert into Notification (NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM) values ("&NC_OAIDSP(n)&",'"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"')"
|
End If
|
objConn.Execute sql
|
next
|
End If
|
End Function
|
'--------------------------写入通知中心_旧---------------------end
|
|
'--------------------------写入通知中心_2019.8.20---------------------begin
|
Function Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
If NC_Name="" Then NC_Name=now()
|
NC_Content=Replace(NC_Content,"单号","单")
|
NC_Content=Replace(NC_Content,"：",":")
|
If NC_OAID="78" Or NC_OAID="" Then NC_OAID="0"
|
If InStr(NC_Name,"派单时间提醒")>0 Then
|
NC_Time=NC_PageUrlM
|
NC_PageUrlM=""
|
Else
|
NC_Time=now()
|
End If
|
If NC_OAID<>"0" Then '点对点发送通知
|
NC_OAIDSP=SPLIT(NC_OAID,",")
|
for n = 0 to UBOUND(NC_OAIDSP)
|
sql="insert into Notification (NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM,NC_Time) values ("&NC_OAIDSP(n)&",'"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"','"&NC_Time&"')"
|
objConn.Execute sql
|
next
|
Else
|
If InStr(NC_Content,":")>0 Then
|
NC_OAClass=Mid(NC_Content,InStr(NC_Content,":")+1,2)
|
sql="insert into Notification (NC_OAID,NC_OAClass,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM,NC_Time) values (0,'"&NC_OAClass&"','"&NC_Name&"','"&NC_Content&"','"&NC_PageUrl&"','"&NC_PageUrlM&"','"&NC_Time&"')"
|
objConn.Execute sql
|
End If
|
End If
|
End Function
|
'--------------------------写入通知中心_2019.8.20---------------------end
|
|
'--------------------------微信OA信息下发接口---------------------begin
|
Function WeiXin_MessageSend(access_token,touser,agentid,articles)
|
access_token=GetAccess_token1()
|
appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token
|
If touser<>"" Then
|
If InStr(touser,"|")=1 Then touser=Mid(touser,2)
|
'agentid=21
|
args1="{"
|
args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang
|
args1=args1&"""toparty"": """&toparty&"""," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数
|
args1=args1&"""totag"": """&totag&"""," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数
|
args1=args1&"""agentid"": "&agentid&"," '企业应用的id，整型。可在应用的设置页面查看
|
args1=args1&"""msgtype"": ""news"","
|
args1=args1&"""news"": {"
|
args1=args1&"""articles"":["&articles&"]"
|
args1=args1&"}"
|
args1=args1&"}"
|
call PostBody1(appUrl,args1)
|
'Response.Write args1&"<br>"
|
'HTMLCODE= PostBody1(appUrl,args1)
|
'Response.Write HTMLCODE
|
'Response.end
|
End If
|
End Function
|
'--------------------------微信OA信息下发接口---------------------end
|
|
'Post方法
|
Function PostBody1(appUrl,args1)
|
Set PBrs = Server.CreateObject("ADODB.Recordset")
|
sql="select id from API_Json where DATEDIFF (ss,Json_time,GETDATE())<=30 and Json='"&args1&"'"
|
PBrs.open sql,objConn,1,1
|
If PBrs.Eof Then
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
'Set https = Server.CreateObject("MSXML2.XMLHTTP")
|
With https
|
.Open "Post", appUrl, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send args1
|
PostBody1 = .ResponseBody
|
End With
|
PostBody1 = BytesToBstr(PostBody1,"utf-8")
|
Set https = Nothing
|
End If
|
PBrs.close()
|
End Function
|
|
'获取微信access_token
|
Function GetAccess_token1()
|
'接口信息
|
corpid="wx248505bfbab6d0c1"
|
corpsecret="2MCilqWYC0FWjOQ894sbb-s7Lb5sVH4HHuJgOsd9l1k"
|
access_tokenID=1 '对应数据库ID
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select vtext,vMono from dictionary where id="&access_tokenID
|
rs.open sql,objConn,1,1
|
access_token=rs("vtext")
|
access_token_time=cdate(rs("vMono"))
|
rs.close()
|
If DateDiff("s",access_token_time,now())>0 then
|
'获取新的access_token
|
url="https://qyapi.weixin.qq.com/cgi-bin/gettoken" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="corpid="&corpid&"&corpsecret="&corpsecret
|
HTMLCODE= GetBody(url,Origin)
|
str="["&HTMLCODE&"]"
|
set obj = getjson(str)
|
access_token = obj.get(0).access_token
|
expires_in = obj.get(0).expires_in
|
'access_token=replace(replace(HTMLCODE,"{""access_token"":""",""),""",""expires_in"":7200}","")
|
access_token_time=DateAdd("s",500,now())
|
'写入数据库
|
sql="update dictionary set vtext='"&access_token&"',vMono='"&access_token_time&"' where id="&access_tokenID
|
objConn.Execute sql
|
End if
|
GetAccess_token1 = access_token
|
End Function
|
|
'--------------------------分钟转小时---------------------end
|
function mtodhm(mnum)
|
dim m,h0,h,d
|
m=(mnum mod 60)
|
h=int(mnum/60)
|
mtodhm=h&"小时"&m&"分"
|
end Function
|
'--------------------------分钟转小时---------------------end
|
|
'--------------------------生成短链接---------------------begin
|
Function dwzURL(LongURL)
|
Randomize
|
Do While Len(pass)<4 '随机密码位数
|
num1=CStr(Chr((57-48)*rnd+48)) '0~9
|
num2=CStr(Chr((90-65)*rnd+65)) 'A~Z
|
num3=CStr(Chr((122-97)*rnd+97)) 'a~z
|
pass=pass&num1&num2&num3
|
Loop
|
sql="insert into dwzURL (n,URL) values ('"&pass&"','"&LongURL&"')"
|
objConn.Execute sql
|
dwzURL="wx.966120.com.cn/?n="&pass
|
End Function
|
'--------------------------生成短链接---------------------end
|
|
'--------------------------字符串签名---------------------begin
|
'待签名字符串
|
Function SignArgs(args1)
|
args1SP=SPLIT(args1,"&")
|
ReDim arr(UBOUND(args1SP)+1,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=args1
|
t=UBOUND(args1SP)+1
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
For i = 0 To t-1
|
For j = i + 1 To t-1
|
If arr(i,1) > arr(j,1) Then
|
tmp1 = arr(i,1)
|
arr(i,1) = arr(j,1)
|
arr(j,1) = tmp1
|
tmp2 = arr(i,2)
|
arr(i,2) = arr(j,2)
|
arr(j,2) = tmp2
|
End If
|
Next
|
Next
|
For i = 0 To t-1
|
'response.write arr(i,1) & "=" & arr(i,2) & "<br>"
|
If arr(i,1)="Sign" Then
|
reserve=arr(i,2)
|
else
|
If arr(i,2)="timestamp" Then arr(i,2)=Date() &" "& Time()
|
sParaSort=sParaSort & arr(i,1) & arr(i,2)
|
sParaRunning=sParaRunning &"&"& arr(i,1) &"="& arr(i,2)
|
End if
|
Next
|
sign_type = "MD5"
|
input_charset="utf-8"
|
stringA=sParaSort&key
|
'response.write stringA & "<br>"
|
'SignArgs=stringA
|
|
SignArgs=Md5Sign(sParaSort,key,input_charset)
|
End Function
|
'--------------------------字符串签名---------------------end
|
|
'--------------------------获取客户端真实IP地址---------------------begin
|
Private Function getIP()
|
Dim strIPAddr
|
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
|
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
|
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
|
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)
|
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
|
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")-1)
|
Else
|
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
|
End If
|
getIP = Trim(Mid(strIPAddr, 1, 30))
|
End Function
|
'--------------------------获取客户端真实IP地址---------------------end
|
|
'--------------------------核销优惠券---------------------begin
|
Function CouponUse(OrdTraPriceReason,ServiceOrdID)
|
If OrdTraPriceReason<>"" Then
|
If InStr(OrdTraPriceReason,"优惠券:")>=1 Then
|
CouponNO=Mid(OrdTraPriceReason,InStr(OrdTraPriceReason,"优惠券:")+4)
|
CouponNO=Mid(CouponNO,1,InStr(CouponNO," ")-1)
|
If Len(CouponNO)>1 Then
|
'If isnumeric(CouponNO) And Len(CouponNO)=18 Then
|
'写入数据库
|
sql="update Coupon set CouponState=1,CouponRemarks='"&ServiceOrdID&"' where CouponState=0 and CouponNO='"&CouponNO&"'"
|
objConn.Execute sql
|
End If
|
End If
|
End If
|
End Function
|
'--------------------------核销优惠券---------------------end
|
|
'--------------------------用户ID注册&查询---------------------begin
|
Function User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
|
key="966120API"
|
url="https://api.966120.com.cn/user/"
|
If UserID="" Then UserID=0
|
If UserPhone<>"" Then
|
LoginType=1
|
ElseIf wxOpenid<>"" Then
|
LoginType=3
|
ElseIf UserID<>"0" Then
|
LoginType=0
|
Else
|
LoginType=-1
|
End If
|
If UserName="先生" Or UserName="小姐" Or UserName="test" Or UserName="测试" Or UserName="无" Or UserName="AA" Or Len(UserName)=11 Then
|
UserName=""
|
End If
|
If LoginType>=0 Then
|
Origin="method=User_Login"
|
Origin=Origin&"&LoginType="&LoginType
|
Origin=Origin&"&UserID="&UserID
|
Origin=Origin&"&UserPhone="&UserPhone
|
Origin=Origin&"&wxOpenid="&wxOpenid
|
Origin=Origin&"&wxOriginalID="&wxOriginalID
|
Origin=Origin&"&wxUnionID="&wxUnionID
|
Origin=Origin&"&UserName="&UserName
|
Origin=Origin&"&UnixTime="&ToUnixTime(now(),+8)
|
|
sParaSort=SignArgs(Origin)
|
Origin=Origin&"&Sign="&sParaSort
|
|
'Response.Write url&"?"&Origin&"<br>"
|
'Response.end
|
HTMLCODE= GetBody(url,Origin)
|
'Response.Write HTMLCODE&"<br>"
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=HTMLCODE
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
If obj.result=1 Then
|
UserID = obj.UserID
|
End If
|
End If
|
End Function
|
'--------------------------用户ID注册&查询---------------------end
|
|
'--------------------------发票状态查询---------------------begin
|
Function AuditStatus_A(AuditStatus)
|
if AuditStatus<>"" Then
|
Set adminrs = Server.CreateObject("ADODB.Recordset")
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='AuditStatus' and vID="&AuditStatus&" order by vOrder"
|
adminrs.open sql,objConn,1,1
|
if not adminrs.Eof Then
|
AuditStatus_A=adminrs("vtext")
|
end if
|
adminrs.close()
|
Else
|
AuditStatus_A = "--"
|
end if
|
End Function
|
'--------------------------发票状态查询---------------------end
|
|
|
'--------------------------发票类型查询---------------------begin
|
Function InvoiceType_A(InvoiceType)
|
if InvoiceType="1" Then
|
InvoiceType_A = "不开发票"
|
Elseif InvoiceType="2" Then
|
InvoiceType_A = "电子发票"
|
Elseif InvoiceType="3" Then
|
InvoiceType_A = "增值税普票"
|
Elseif InvoiceType="4" Then
|
InvoiceType_A = "增值税专票"
|
Else
|
InvoiceType_A = "--"
|
end if
|
End Function
|
'--------------------------发票类型查询---------------------end
|
|
'--------------------------支付方式查询---------------------begin
|
Function PaidMoneyType_A(PaidMoneyTypeID)
|
if PaidMoneyTypeID<>"" Then
|
Set PaidMoneyTypers = Server.CreateObject("ADODB.Recordset")
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='PaidMoneyType' and vID="&PaidMoneyTypeID&" order by vOrder"
|
PaidMoneyTypers.open sql,objConn,1,1
|
if not PaidMoneyTypers.Eof Then
|
PaidMoneyType_A=PaidMoneyTypers("vtext")
|
end if
|
PaidMoneyTypers.close()
|
Else
|
PaidMoneyType_A = "--"
|
end if
|
End Function
|
'--------------------------支付方式查询---------------------end
|
|
'--------------------------员工组别查询---------------------begin
|
Function EmployeeGroup_A(EmployeeGroupID)
|
if EmployeeGroupID<>"" Then
|
Set EmployeeGrouprs = Server.CreateObject("ADODB.Recordset")
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='EmployeeGroup' and vID="&EmployeeGroupID&" order by vOrder"
|
EmployeeGrouprs.open sql,objConn,1,1
|
if not EmployeeGrouprs.Eof Then
|
EmployeeGroup_A=EmployeeGrouprs("vtext")
|
end if
|
EmployeeGrouprs.close()
|
Else
|
EmployeeGroup_A = "--"
|
end if
|
End Function
|
'--------------------------员工组别查询---------------------end
|
%>
|
