【调度系统】广东民航医疗快线调度系统源代码
hzj
2025-07-09 4418374d26a16ec759e06059c2b1fedabe1827e6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
'Response.Cookies("OA")("adminID")=""
'Response.end
InvoiceID=request("InvoiceID")
ServiceOrdID=request("ServiceOrdID")
state=request("state")
If state<>"" Then
    stateSP=split(state,"|")
    for i = 0 to UBOUND(stateSP)
        If InStr(stateSP(i),"InvoiceID=")=1 Then
            InvoiceID=Replace(stateSP(i),"InvoiceID=","")
        ElseIf InStr(stateSP(i),"ServiceOrdID=")=1 Then
            ServiceOrdID=Replace(stateSP(i),"ServiceOrdID=","")
        End If
    Next
End If
if InvoiceID="" And ServiceOrdID="" then Response.Redirect "/"
If InvoiceID<>"" And InvoiceID<>"0" then
    InvoiceSql=" and InvoiceID="&InvoiceID
    state=InvoiceID
Else
    InvoiceSql=" and ServiceOrdID="&ServiceOrdID
    state=ServiceOrdID
End If
%>
<!--#include virtual="/weixin/OAuth2.gds"-->
<!--#include virtual="/inc/function.gds"-->
<!--#include virtual="/weixin/sha1.gds"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">  
<title>发票申请信息</title>
<link href="css/main.css" type="text/css" rel="stylesheet">
</head>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select InvoiceID,InvoiceType,InvoiceName,InvoiceMakeout,InvoiceCompanyPhone,InvoiceCompanyID,InvoiceCompanyAdd,InvoiceCompanyBank,InvoiceCompanyBankNo,InvoiceZipCode,Invoice_strAdd,Invoice_strName,Invoice_strPhone,ApplicationTime=CONVERT(nvarchar(20),ApplicationTime,111),AuditTime=CONVERT(nvarchar(20),AuditTime,111),AuditStatus,AuditOAID,AuditMakeout,InvoiceMoney,InvoiceNo,InvoiceURL,ServiceOrdID,ServiceOrdType,ServiceOrdNo=ServiceOrdClass+convert(nvarchar(10),year(ServiceOrd_CC_Time))+right('0'+convert(nvarchar(10),month(ServiceOrd_CC_Time)),2)+right('0'+convert(nvarchar(10),day(ServiceOrd_CC_Time)),2)+'-'+right('00'+convert(nvarchar(10),ServiceOrdNo),3),OrdTraPrice=ServiceOrdTraTxnPrice from InvoiceData,ServiceOrder where ServiceOrderIDPK=ServiceOrdID"&InvoiceSql&" order by InvoiceID desc"
rs.open sql,objConn,1,1
If not rs.Eof Then
    ServiceOrdID            = rs("ServiceOrdID")    '服务单ID
    ServiceOrdNo        = rs("ServiceOrdNo")        '服务单号
 
    InvoiceID            = rs("InvoiceID")            '开票信息ID
    InvoiceType        = rs("InvoiceType")        '开票类型
    InvoiceName        = rs("InvoiceName")        '发票抬头
    InvoiceMakeout        = rs("InvoiceMakeout")    '发票备注
    InvoiceCompanyPhone= rs("InvoiceCompanyPhone")'企业电话
    InvoiceCompanyID    = rs("InvoiceCompanyID")    '纳税识别号
    InvoiceCompanyAdd    = rs("InvoiceCompanyAdd")    '企业注册地址
    InvoiceCompanyBank    = rs("InvoiceCompanyBank")'企业开户银行
    InvoiceCompanyBankNo=rs("InvoiceCompanyBankNo")'企业银行账号
    InvoiceZipCode        = rs("InvoiceZipCode")    '邮编
    Invoice_strAdd        = rs("Invoice_strAdd")    '邮寄地址
    Invoice_strName    = rs("Invoice_strName")    '联系人
    Invoice_strPhone    = rs("Invoice_strPhone")    '联系电话
    ApplicationTime    = rs("ApplicationTime")    '申请时间
    AuditTime            = rs("AuditTime")            '处理时间
    AuditStatus        = rs("AuditStatus")        '处理状态
    AuditOAID            = rs("AuditOAID")            '处理人
    AuditMakeout        = rs("AuditMakeout")        '处理备注
    InvoiceMoney        = rs("InvoiceMoney")        '发票金额
    InvoiceNo            = rs("InvoiceNo")            '发票编号
    InvoiceURL            = rs("InvoiceURL")        '发票链接
    If InvoiceMoney=0 Then InvoiceMoney=rs("OrdTraPrice")
 
    If InvoiceType="1" Then
        InvoiceTypeTXT="不开发票"
    ElseIf InvoiceType="2" Then
        InvoiceTypeTXT="电子发票"
    ElseIf InvoiceType="3" Then
        InvoiceTypeTXT="增值税普票"
    ElseIf InvoiceType="4" Then
        InvoiceTypeTXT="增值税专票"
    Else
        InvoiceTypeTXT="其它类型"
    End If
 
    Call OA_Running("手机端打开开票申请:"&ServiceOrdNo&" ID:"&ServiceOrdID)
 
Else
    Response.Redirect "/"
End If
rs.close()
%>
<body>
<div id="m_Orer">
    <!--#include virtual="/m_DispatchOrder_header.gds"-->
    <!--<div class="order_head"><a href="order_List.asp"><font></font></a>调度详情</div>-->
    <!--<div class="os_status"><span class="os_statusfirst">订单状态:等待卖家发货</span><span class="os_refresh">刷新</span></div>-->
    
    <!--<div class="os_line"></div>-->
 
    <form id="form1" name="form1" action="admin_save.gds" method="post" onsubmit="return check()">
    <input name="admin_save" type="hidden" value="">
    <input name="ServiceOrdID" type="hidden" value="<%=ServiceOrdID%>">
    <input name="InvoiceID" type="hidden" value="<%=InvoiceID%>">
 
        <div class="os_shopname"></div>
        <div class="os_shopname">服务单号:<%=ServiceOrdNo%></div>
        <div class="os_shopname">申请日期:<%=ApplicationTime%></div>
        <div class="os_shopname">处理状态:<%=AuditStatus_A(AuditStatus)%></div>
        <%If AuditTime<>"" Then%><div class="os_shopname">处理日期:<%=AuditTime%></div><%End If%>
        <%If AuditOAID<>"" Then%><div class="os_shopname">处理人员:<%=OAUser(AuditOAID,"UserName")%></div><%End If%>
        <%If AuditMakeout<>"" Then%><div class="os_shopname">处理备注:<%=AuditMakeout%></div><%End If%>
        
        <%If InvoiceNo<>"" Then%><div class="os_shopname">发票号码:<%=InvoiceNo%></div><%End If%>
        <div class="os_shopname">发票类型:<%=InvoiceTypeTXT%>&nbsp;&nbsp;&nbsp;&nbsp;开票金额:<%=InvoiceMoney%></div>
        <%If InvoiceName<>"" Then%><div class="os_shopname">发票抬头:<%=InvoiceName%></div><%End If%>
        <%If Invoice_strName<>"" Then%><div class="os_shopname">联系人:<%=Invoice_strName%></div><%End If%>
        <%If Invoice_strPhone<>"" Then%><div class="os_shopname">联系电话:<%=Invoice_strPhone%></div><%End If%>
        
        <%If InvoiceMakeout<>"" Then%><div class="os_shopname">发票备注:<%=InvoiceMakeout%></div><%End If%>
        <%If InvoiceCompanyID<>"" Then%><div class="os_shopname">纳税识别号:<%=InvoiceCompanyID%></div><%End If%>
        <%If InvoiceCompanyAdd<>"" Then%><div class="os_shopname">企业注册地址:<%=InvoiceCompanyAdd%></div><%End If%>
        <%If InvoiceCompanyPhone<>"" Then%><div class="os_shopname">企业电话:<%=InvoiceCompanyPhone%></div><%End If%>
        <%If InvoiceCompanyBank<>"" Then%><div class="os_shopname">企业开户银行:<%=InvoiceCompanyBank%></div><%End If%>
        <%If InvoiceCompanyBankNo<>"" Then%><div class="os_shopname">企业银行账号:<%=InvoiceCompanyBankNo%></div><%End If%>
        <%If Invoice_strAdd<>"" Then%><div class="os_shopname">邮寄地址:<%=Invoice_strAdd%></div><%End If%>
        <%If InvoiceURL<>"" Then%><div class="os_shopname">发票下载:<%=InvoiceURL%></div><%End If%>
        
</div>
 
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
</body>
</html>