昆仑会员此打印方式只针对用会员卡结账的消费，放开限制解决方案

昆仑会员此打印方式只针对用会员卡结账的消费，放开限制解决方案

在这个function里面

function PrintDialog()
    { 
        var print_card_fee = "<%=print_card_fee %>"
        //alert(print_card_fee)
        var balance=JStrToMoney(form1.net.value);
        var last_balance=parseFloat(balance)+parseFloat(print_card_fee);
        this.ReturnValue = "0";
        this.card_no = "<%=rs_his("card_no")%>" ;
        this.member_name = form1.chname.value;
        this.card_type = form1.card_type.value ;
        this.expirydate=form1.expiry_date.value ;
        this.trade_type = "<%=f_glo("SH01135")%>"; 
        
        this.fee = JStrToMoney(form1.total_rev.value); 

        this.last_balance = JStrToMoney(last_balance);
        this.balance = JStrToMoney(balance);
        this.check_Date = new Date(<%=year(dt)%>,<%=month(dt)-1%>,<%=day(dt)%>,<%=hour(dt)%>,<%=minute(dt)%>) ;
        this.operator = "<%=session("user_code")%>";
        this.user_code = "<%=session("user_code")%>"; 
          this.print_time = form1.print_time.value; 
        this.place_code = "<%=place_name %>";
        this.room_number="<%=room_number %>";
        if (form1.payment.value=="<%=pay_svc%>") 
        {
            var url = "../m_fee/print.asp?type_flag=R";
            showModalDialog(url,this,"dialogWidth:320px;dialogHeight:500px;help:no;scroll:yes;status:no;");     
        }
        else
        {
            alert("<%=f_glo("SH01134")%>");
        }
    }

把下面这段修改一下

if (form1.payment.value=="<%=pay_svc%>") 
        {
            var url = "../m_fee/print.asp?type_flag=R";
            showModalDialog(url,this,"dialogWidth:320px;dialogHeight:500px;help:no;scroll:yes;status:no;");     
        }
        else
        {
            alert("<%=f_glo("SH01134")%>");
        }

修改结果如下，别问我为毛在else里面又写一次，这个锅是IE的，哈哈哈哈。

if (form1.payment.value=="<%=pay_svc%>") 
        {
            var url = "../m_fee/print.asp?type_flag=R";
            showModalDialog(url,this,"dialogWidth:320px;dialogHeight:500px;help:no;scroll:yes;status:no;");     
        }
        else
        {
 　　　　　　　var url = "../m_fee/print.asp?type_flag=R";
            showModalDialog(url,this,"dialogWidth:320px;dialogHeight:500px;help:no;scroll:yes;status:no;");    
            
        }

 

 

 

svc\m_history\his_room_detail.asp

<%Option Explicit%>

<%
dim whether_bucket                                          '是否决定用子账单结帐
whether_bucket=trim(fn_get_param_value("WHETHER_BUCKET",""))'子账单结帐标志(Y:是,N:否)

dim user_code
dim continue_do
dim templet_id                      '打印模板
templet_id=trim(request("templet_id"))

continue_do= trim(request("continue_do"))

dim detail_id,sql_del_detail
detail_id=trim(request("detail_id"))
if detail_id<>"" then
    sql_del_detail="delete member_history_svc_pms_detail where id='" & detail_id & "'"
    conn.execute(sql_del_detail)
end if

user_code=session("user_code")
dim rs,rs_his,sql,sqlstr1,rs1
dim id,show
id=trim(request("id"))
show=trim(request("show"))
dim overdraft_mod
'透支额度按照主持卡人还是使用者有效
overdraft_mod=fn_get_param_value("OVERDRAFT_MOD","")
if overdraft_mod="" or overdraft_mod="null" then
    overdraft_mod="MAIN"
end if
    
    dim gh_no,membership,sub_name,balance,deposit,overdraft_spend,payment_name,dt,card_points,his_points,net
    dim arrival,departure,room_type,room_number,rate_code,room_rate,booker_no,booker_name,special
    dim room_rev,fb_rev,other_rev,total_rev,payment,discount,discount_real
    dim old_total_rev,from,operator_no,operator,check_no,check_no_spend,sweep_flag,sweep_code,entry,points,credit_no,place_name
    dim card_password,expiry_date,card_type,sql_temp,rs_temp,total_tax
    dim channel_code,market_code,source_code
    dim fee_id                  '此笔消费记录的卡值ID
    dim remark
    dim main_card_no            '主账单的卡号
    dim is_complete             '子账单是否结完
    dim promotion_code          '促销代码
    dim trace_code              '客人得知促销的渠道
    dim guests
    sql_temp="select code,name from dic_card_membership order by sort_id"
    set rs_temp=conn.execute(sql_temp)
    
    sql="select h.guests,s.id as fee_id,isnull(m.card_no,x.card_no) as card_no,isnull(m.card_password,x.card_password) as card_password,dp.name as place_name,"
    sql=sql &" h.gh_no,h.points as his_points,isnull(h.dt,getdate()) as dt,h.points,"
    sql=sql &" convert(varchar(10),h.arrival,120) as arrival,isnull(m.expiry_date,x.expiry_date) as expiry_date,"
    sql=sql &" convert(varchar(10),h.departure,120) as departure,"
    sql=sql &" h.nights,h.room_number,h.room_rate,h.room_type,h.rate_code,"
    sql=sql &" h.channel_code,h.market_code,h.source_code,"
    sql=sql &" h.total_rev,h.room_rev,h.fb_rev,h.other_rev,h.total_tax,h.special,h.payment,isnull(d.name,'') as payment_name,"
    sql=sql &" isnull(m.points,x.points) as card_points,isnull(m.balance,x.balance) as balance,isnull(m.deposit,x.deposit) as deposit,"
    sql=sql &" h.discount,isnull(m.membership_type,x.membership_type) as membership,isnull(m.sub_type,x.sub_type) as entry ,"
    sql=sql &" h.booker_card_no as booker_no,isnull(m1.chname,'') as booker_name,"
    sql=sql &" h.sub_name,h.remark,h.is_complete,"
    if overdraft_mod="MAIN" then
        sql= sql & " isnull(e.overdraft_spend,0) as overdraft_spend ,"
    else
        sql= sql & " isnull(sub.overdraft_spend,0) as overdraft_spend ,"
    end if
    sql=sql &" h.operator_id,isnull(a.name,'') as username, "
    sql=sql &" h.check_no,h.check_no_spend,(case h.sweep_flag when '1' then '" & f_glo("SH00142") & "' else '" & f_glo("SH00143") & "'"
    sql=sql &" end) as sweep_flag,h.sweep_flag as sweep_code,h.credit_no as credit_no,"
    sql=sql &" isnull(s.last_balance,isnull(m.balance,x.balance)) as last_balance,"
    sql=sql &" isnull(s.this_balance,isnull(m.balance,x.balance)) as this_balance,h.promotion_code,dm.private_info,h.trace_code "
    sql=sql &" from member_history_svc h left join member_Card_fee s on cast(h.id as varchar)=s.from_id and h.his_type=s.from_type and h.card_no=s.card_no"
    sql=sql &" left join member_info_sub sub on h.gh_no=sub.parent_gh_no and h.sub_name=sub.sub_name"
    sql=sql &" left join member_info_svc m1 on h.booker_card_no=m1.card_no left join dic_payment d on h.payment=d.code,"
    sql=sql &" member_info_svc x left join member_info_svc m on x.main_gh_no=m.gh_no,users a,dic_card_membership dm,dic_place dp,"
    sql=sql &" (select parent_gh_no,overdraft_spend from member_info_sub where main_flag='1') e "
    sql=sql &" where h.gh_no=isnull(m.gh_no,x.gh_no) and h.card_no=x.card_no and a.code=h.operator_id and dp.code=h.place_code "
    sql=sql &" and x.gh_no=e.parent_gh_no and dm.code=x.membership_type"        
    sql=sql &" and h.id=" & id

    set rs_his=conn.execute(sql)
    if rs_his.recordcount>0 then
        rs_his.movefirst
        fee_id=trim(rs_his("fee_id"))
        membership=trim(rs_his("membership"))
        entry=trim(rs_his("entry"))
        gh_no=trim(rs_his("gh_no"))
        sub_name=trim(rs_his("sub_name"))
        balance=trim(rs_his("balance"))
        deposit=trim(rs_his("deposit"))
        overdraft_spend=trim(rs_his("overdraft_spend"))
        dt=trim(rs_his("dt"))
        payment=trim(rs_his("payment"))
        payment_name=trim(rs_his("payment_name"))
        card_points=trim(rs_his("card_points"))
        his_points=trim(rs_his("his_points"))
        old_total_rev=trim(rs_his("total_rev"))
        main_card_no=trim(rs_his("card_no"))

        operator_no=trim(rs_his("operator_id"))
        operator=trim(rs_his("username"))
        check_no=trim(rs_his("check_no"))
        check_no_spend=trim(rs_his("check_no_spend"))
        sweep_flag=trim(rs_his("sweep_flag"))
        sweep_code=trim(rs_his("sweep_code"))
        points=trim(rs_his("points"))
        credit_no = trim(rs_his("credit_no"))
        is_complete = trim(rs_his("is_complete"))
        if check_no_spend = null then
           check_no_spend = 0
        end if
        booker_no=trim(rs_his("booker_no")) 
        card_password=trim(rs_his("card_password"))
        expiry_date=rs_his("expiry_date")
        remark=trim(rs_his("remark")) 
        place_name=trim(rs_his("place_name"))
        if rs_temp.recordcount>0 then 
              do while not rs_temp.EOF
                if trim(rs_his("membership"))=trim(rs_temp("code")) then
                    card_type=rs_temp("name")
                end if       
               rs_temp.movenext
               loop
        end if 
        arrival=trim(rs_his("arrival"))
        departure=trim(rs_his("departure"))
        room_type=trim(rs_his("room_type"))
        room_number=trim(rs_his("room_number"))
        rate_code=trim(rs_his("rate_code"))
        if isnull(rate_code) then 
            rate_code=""
        end if
        room_rate=trim(rs_his("room_rate"))
        special=trim(rs_his("special"))
        room_rev=trim(rs_his("room_rev"))
        fb_rev=trim(rs_his("fb_rev"))
        other_rev=trim(rs_his("other_rev"))
        total_tax=trim(rs_his("total_tax"))
        total_rev=trim(rs_his("total_rev"))
        booker_no=trim(rs_his("booker_no"))
        booker_name=trim(rs_his("booker_name"))
        discount_real=trim(rs_his("discount"))
        channel_code=trim(rs_his("channel_code"))
        market_code=trim(rs_his("market_code"))
        source_code=trim(rs_his("source_code"))
        promotion_code=trim(rs_his("promotion_code"))
        trace_code=trim(rs_his("trace_code"))
        guests=trim(rs_his("guests"))
    else
        %>
        
        <%
        response.End
    end if 
    'response.Write is_complete
    from = trim(request("from"))
    if from="discount" then'由计算折扣,刷新界面迩来
        arrival=trim(request("arrival"))
        departure=trim(request("departure"))
        room_type=trim(request("room_type"))
        room_number=trim(request("room_number"))
        rate_code=trim(request("rate_code"))
        room_rate=trim(request("room_rate"))
        special=trim(request("special"))
        room_rev=trim(request("room_rev"))
        fb_rev=trim(request("fb_rev"))
        other_rev=trim(request("other_rev"))
        total_tax=trim(request("total_tax"))
        total_rev=trim(request("total_rev"))
        booker_no=trim(request("booker_no"))
        booker_name=trim(request("booker_name"))
        discount_real=trim(request("discount_real"))
        channel_code=trim(request("channel_code"))
        market_code=trim(request("market_code"))
        source_code=trim(request("source_code"))
        promotion_code=trim(request("promotion_code"))
        trace_code=trim(request("trace_code"))
        '得到扣率
           if discount_real=0 then 
                '得到扣率
                sql="exec sp_get_discount_by_rule '11','" & membership & "','','',0"
                set rs=conn.execute(sql)
                if not rs.eof then 
                    discount=cdbl(rs("discount"))
                else
                    discount =0
                end if 
                if discount=0 then
                    discount_real=0
                else
                    discount_real=Round((discount)*cdbl(room_rev),2)
                    room_rev=Round((1-discount)*cdbl(room_rev),2)
                end if        
                total_rev=cdbl(room_rev) + cdbl(fb_rev) + cdbl(other_rev)+ cdbl(total_tax)
           end if         
    end if
    
    if room_rate="" then
        room_rate=0
    end if
    if room_rev="" then
        room_rev=0
    end if
    if fb_rev="" then
        fb_rev=0
    end if
    if other_rev="" then
        other_rev=0
    end if
    if total_tax="" then
        total_tax=0
    end if
    if total_rev="" then
        total_rev=0
    end if
    if discount_real="" then
        discount_real=0
    end if
    
    dim sql_merge,rs_merge
    sql_merge="select promotion_trace_code from [dbo].[fn_promotion_trace_merge]('"&promotion_code&"','"&trace_code&"')"
    set rs_merge=conn.execute(sql_merge)

    '从sysparam取得CASH所对应的付款方式
    dim sql_sys,rs_sys,pay_svc,pay_cash,v_param,n
    pay_svc=fn_get_param_value("PAY_SVC","")
    pay_cash=fn_get_param_value("PAY_CASH","")
    dim prt_type
    prt_type=fn_get_param_value("PRT_TYPE",session("hotel_code"))             '打印单据的选择方式
    
    '补打用的fee
    dim rs_fee,print_card_fee
    sql= " select distinct f.fee from member_card_fee f "
    sql=sql & " inner join member_history_svc h on f.gh_no=h.gh_no "
    sql=sql & " left join member_history_svc_pms_detail d on h.id= d.his_id "
    sql=sql & " left join member_info_svc m on m.card_no=d.card_no and m.gh_no=f.gh_no "
    sql=sql & " where f.from_id=cast(h.id as varchar) and f.gh_no='"&gh_no&"' "
    sql=sql & "  and h.id='"&id&"' "
    'response.Write sql
    set rs_fee = conn.execute(sql)     
    if rs_fee.recordcount>0 then 
        print_card_fee = 0-cdbl(rs_fee("fee"))
    end if
    if print_card_fee="" then 
        print_card_fee=0
    end if
%>
"http://www.w3.org/1999/xhtml">


"Content-Type" content="text/html; charset=gb2312" />
"stylesheet" type="text/css" href="../../include/main.css" />




<%include_jquery() ' 引入jquery.js%>


"h_cele_date();">

<%=f_glo("SH00100")%>
"form1" method="post" action="his_detail_save.asp" class="input-9-frm">
  "0" cellPadding="1" cellSpacing="1" width="100%"class="input-9-tb" align="center">
   
  <% if payment <> pay_cash then %>
    
  <%else%>
    
  <%end if %>
    
    <%
        sqlstr1="select * from dic_channel where code='"& channel_code &"'"set rs1 = conn.execute(sqlstr1)
    if rs1.recordcount>0 then%>
    
    <%else%>
    
    <%end if %>
  
      <%
        sqlstr1="select * from dic_segment where code='"& market_code &"'"set rs1 = conn.execute(sqlstr1)
    if rs1.recordcount>0 then%>
    
    <%else%>
    
    <%end if %>
    
    <%
        sqlstr1="select * from dic_source where code='"& source_code &"'"set rs1 = conn.execute(sqlstr1)
    if rs1.recordcount>0 then%>
    
    <%else%>
    
    <%end if %>
  
    <%
            dim prt_chit,prt_right
            '打印单据的选择方式
            prt_chit=fn_get_param_value("PRT_CHIT",session("hotel_code"))
            prt_right=fn_check_right(user_code,"S311")
            if prt_chit="" or prt_chit="null" then
               prt_chit="N"
            end ifif prt_chit="Y" and prt_right=true then
                  if prt_type="H" then
     %>
    
    <%          else 
    %>
    
    <%          end ifelse%>
    
    <% end if%>     
  
 

    
"20%"><%=f_glo("SH00101")%>
    
"30%">
        <%if gh_no<>""  then  '姓名屏蔽%>
            <%if fn_check_private_value(rs_his("private_info"),"NAME") then %> 
                ******
            <%else%>
                "2" color="#0000ff">class="link1" title="<%=f_glo("SH00140")%>" href="../m_info/memberinfo_sub_detail.asp?gh_no=<%=gh_no%>&sub_name=<%=sub_name%>"><%=sub_name%>
            <%end if%>
        <%end if %>
    
    
<%=f_glo("SH00141")%>
    
"#00ccff"><%=sweep_flag%>
   
  
    

    
"20%">"#808080"><%=f_glo("SH00102")%>
    
"30%">
        "net" style="width:100%" readonly="readonly"
            <%if gh_no<>""  then  '余额屏蔽%>
                <%if fn_check_private_value(rs_his("private_info"),"FEE") then %> 
                    value="******"
                <%else%>
                    value="<%=StrToMoney(CStr(cDbl(balance)-cDbl(deposit)))%>"
                <%end if%>
            <%end if %>
            />
    
    
"20%">"#808080"><%=f_glo("SH00103")%>
    
"30%">"deposit" style="width :100%" value="<%=StrToMoney(deposit)%>" readonly>
  
   

    
"20%">"#808080"><%=f_glo("SH00104")%>
    
"30%">"overdraft_spend" style="width :100%" value="<%=StrToMoney(overdraft_spend)%>" readonly>
    
"20%">"#808080"><%=f_glo("SH00105")%> = 
<%=f_glo("SH00102")%> + <%=f_glo("SH00104")%>
    
"30%">
        "used_sum" style="width :100%" readonly="readonly"
            <%if gh_no<>""  then  '余额屏蔽%>
                <%if fn_check_private_value(rs_his("private_info"),"FEE") then %> 
                    value="******"
                <%else%>
                    value="<%=StrToMoney(CStr(cDbl(balance)-cDbl(deposit)+cDbl(overdraft_spend)))%>"
                <%end if%>
            <%end if %>
            />
    
   
   

    
"20%">"#808080"><%=f_glo("SH00144")%>
    
"30%">"his_points" style="width :100%" value="<%=his_points%>" readonly>
    
"20%">"#808080"><%=f_glo("SH00145")%>
    
"30%">
        "card_points" style="width :100%" readonly="readonly"
            <%if gh_no<>""  then  '积分屏蔽%>
                <%if fn_check_private_value(rs_his("private_info"),"POINT") then %> 
                    value="******"
                <%else%>
                    value="<%=card_points%>"
                <%end if%>
            <%end if %>
            />
    
  
  

    
"4" background="../../images/login_line5.gif" height="10">
 
  

    
"20%"><%=f_glo("SH00106")%>"red">*
    
"30%">"width:100%" name="arrival" value="<%=arrival%>" onClick="get_s_date(form1.arrival,form1.arrival  );" language="javascript">
    
"20%"><%=f_glo("SH00107")%>"red">*
    
"30%">"width:100%" name="departure" value="<%=departure%>" onClick="get_s_date(form1.departure,form1.departure  );" language="javascript">
  
  

    
"20%"><%=f_glo("SH00108")%>
    
"30%">
        <%    
            dim room_type_name
        
            sql="select code,name from dic_roomtype where code='"& room_type &"' order by code"
            set rs=conn.execute(sql)
            if rs.recordcount>0 then
                room_type_name=rs("name")
            else
                room_type_name=""
            end if
        %>
        "room_type" id="room_type" type="hidden" value="<%=room_type%>" />
        "room_type_name" id="room_type_name" style="width:100%" value="[<%=room_type%>]<%=room_type_name%>" readonly="readonly"/>
    
    
"20%"><%=f_glo("SH00109")%>
    
"30%">"width :100%" name="room_number" value="<%=room_number%>" readonly="readonly"/>
  
  

    
"20%"><%=f_glo("SH00110")%>
    
"30%">
        <%    
            dim rate_name
        
            sql="select code,name from V_dic_rate where code='"& rate_code &"' order by code"
            set rs=conn.execute(sql)
            if rs.recordcount>0 then
                rate_name=f_spl_name(rs("name"))
            else
                rate_name=""
            end if
        %>
        "rate_code" id="rate_code" type="hidden" value="<%=rate_code%>">
        "rate_name" id="rate_name" style="width:100%" value="[<%=rate_code%>]<%=rate_name%>" readonly>
    
    
"20%"><%=f_glo("SH00111")%>
    
"30%">"width :100%" name="room_rate" value="<%=StrToMoney(room_rate)%>" onKeyPress="checkMoney(this.value,this.Tabindex)"  readonly>
  
  

    
"20%"><%=f_glo("SH00112")%>
    
"30%">"width :100%" name="booker_name" readonly value="<%=booker_name%>">
    
"20%"><%=f_glo("SH00113")%>
    
"30%">"width :100%" name="special" value="<%=special%>" readonly>
  
  

    
"20%"><%=f_glo("SH00114")%>
    
"30%">"room_rev" style="width:100%" value="<%=StrToMoney(room_rev)%>" onKeyPress="checkMoney(this.value,this.Tabindex)" readonly>
    
"20%"><%=f_glo("SH00115")%>
    
"30%">"width :100%" name="fb_rev" value="<%=StrToMoney(fb_rev)%>" onKeyPress="checkMoney(this.value,this.Tabindex)" readonly>
  
 

    
"20%"><%=f_glo("SH00116")%>
    
"30%">"other_rev" style="width:100%" value="<%=StrToMoney(other_rev)%>" onKeyPress="checkMoney(this.value,this.Tabindex)" readonly>
       
"20%">总税费金额
    
"30%">"total_tax" style="width:100%" value="<%=StrToMoney(total_tax)%>" onKeyPress="checkMoney(this.value,this.Tabindex)" readonly>
  
   

"20%">"#808080"><%=f_glo("SH00117")%>
"30%">"total_rev" style="width:100%" value="<%=StrToMoney(total_rev)%>" readonly>
  
  

  
"20%">"#808080"><%=f_glo("SH00118")%>
    
  
"30%">"discount_real" style="width:100%" onKeyPress="checkMoney(this.value,this.Tabindex)" value="<%=discount_real%>" readonly>
    
"20%"><%=f_glo("SH00120")%>
    
"30%">"check_no" style="width:100%" value="<%=check_no%>" readonly>
  
  

    
"20%"><%=f_glo("SH00146")%>
    
"30%"><%=dt%>
    
"20%"><%=f_glo("SH00122")%>
    
"30%"><%=payment_name%>
  
  
  

    
"20%" style="display:none"><%=f_glo("SH00123")%>
"30%" style="display:none">"width :100%" name="credit_no" value="<%=credit_no%>" readonly>
"30%">
"20%"><%=f_glo("SH00151")%>
        
"30%">[<%=trim(rs1("code"))%>]...<%=trim(rs1("name"))%>
"30%">
  

    
"20%"><%=f_glo("SH00152")%>
        
"30%">[<%=trim(rs1("code"))%>]...<%=trim(rs1("name"))%>
"30%">
"20%"><%=f_glo("SH00153")%>
        
"30%">[<%=trim(rs1("code"))%>]...<%=trim(rs1("name"))%>
"30%">
  

    
<%=f_glo("SH00124")%>
    
"width :100%" name="operator" value="<%=operator%>" readonly="readonly" />
 
            
"width:20%"><%=f_glo("SF00735")%>
    
"width:30%">
        <select id="print_templet" name="print_templet" style="width:100%">
          
            <%dim sql_templet,rs_templet
              sql_templet=" select id,name from email_templet where templet_type='G' and valid='1' "
              set rs_templet=conn.execute(sql_templet)
              if rs_templet.recordcount>0 then 
                do while not rs_templet.eof
             %>
            "<%=rs_templet("id") %>" <%if templet_id=trim(rs_templet("id")) then %> selected <%end if %> ><%=rs_templet("name") %>
            <%
                rs_templet.movenext
                loop
            else %>
            "">
            <%end if %>
        select>
    

     

    

     

    

        
"20%">促销代码
        
"30%">"width :100%" name="promotion_code" value="<%=rs_merge("promotion_trace_code")%>" readonly="readonly" />
        
"20%">入住总人数（成人+小孩）
        
"30%">"guests" style="width :100%" value="<%=guests%>" readonly="readonly">
    
   

    
"width:20%"><%=f_glo("SF00024")%>
    
"3">
        "</span><span style="color: #800000;">3</span><span style="color: #800000;">"</span> cols=<span style="color: #800000;">"</span><span style="color: #800000;">20</span><span style="color: #800000;">"</span> id=<span style="color: #800000;">"</span><span style="color: #800000;">m_history_remark</span><span style="color: #800000;">"</span> name=<span style="color: #800000;">"</span><span style="color: #800000;">m_history_remark</span><span style="color: #800000;">"</span> style=<span style="color: #800000;">"</span><span style="color: #800000;">width:100%;</span><span style="color: #800000;">"</span>><%=remark%>
    
   
 
  

  

    "hidden" name="operator_id" value="<%=operator_no%>"/>
    "hidden" name="points" value="<%=points%>"/>
    "hidden" name="id" value="<%=id%>"/>
    "hidden" name="booker_no" value="<%=booker_no%>"/>
    "hidden" name="gh_no" value="<%=gh_no%>"/>
    "hidden" name="old_total_rev" value="<%=old_total_rev%>"/>
    "hidden" name="payment" value="<%=payment%>"/>
    "hidden" name="membership" value="<%=membership%>"/>
    "hidden" name="entry" value="<%=entry%>"/>
    "hidden" name="chname" value="<%=sub_name%>"/>
    "hidden" name="last_net" value="<%=balance-deposit%>"/>
    "hidden" name="last_deposit" value="<%=deposit%>"/>
    "hidden" name="card_type" value="<%=card_type%>" />
    "hidden" name="expiry_date" value="<%=expiry_date %>"/>
    "hidden" name="channel_code" value="<%=channel_code%>"/>
    "hidden" name="market_code" value="<%=market_code %>"/>
    "hidden" name="source_code" value="<%=source_code %>"/>
    "hidden" name="b_balance"/>
    "hidden" name="b_points"/>
    "hidden" name="his_type" value="R"/>
    "hidden" name="his_id" value="<%=id%>"/>
    "hidden" name="print_time" value="<%=date & chr(32) & FormatDateTime(time,vbShortTime)%>" />  
    
    "hidden" id="fee_id" name="fee_id" value="<%=fee_id %>" />
    "hidden" id="form_action" name="form_action" />
    
    
    <%if is_complete="Y" then  %>
    <%if fn_check_right(user_code,"S302") then  '修改权限%>     
    "button" name="button" value="<%=f_glo("SH00125")%>" class="buttonface" onclick="fn_save_remark()" /> &nbsp;
    <%end if %>
    <%if fn_check_right(user_code,"S310") then  '补打控制%>
    "button" name="print" value="<%=f_glo("SH01081")%>" onclick="fn_print_new()" class="buttonface" /> &nbsp;
    <%end if%>
    <%end if %>
    "button" name="cancel" value="<%=f_glo("SH00126")%>" class="buttonface" onclick="fn_return()" />


<%if whether_bucket="Y" then %>
<%=f_glo("SH01144")%>
<%dim sql_dic_child,rs_dic_child 
if is_complete="N" then 
%>
"100%"class="input-9-tb" cellpadding=1 cellspacing=1>
    
  

        
"width:20%"><%=f_glo("SH01145")%>"red">*
        
"width:30%">
            "hidden" name="source_detail" value="<%=source_code %>"/>
            "hidden" name="market_detail" value="<%=market_code %>"/>
            "text" name="post_date_detail" style="width:100%" value="<%=date() %>" onClick="get_s_date(form1.post_date_detail,form1.post_date_detail);" />
        
        
        
"width:2%"><%=f_glo("SH01147")%>"red">*
        
"width:30%">
            "hidden" name="trans_item" id="trans_item" />
            "hidden" name="payment_detail" id="payment_detail" />
            "trans_code_detail" id="trans_code_detail" type="hidden">
            "trans_name_detail" id="trans_name_detail" style="width:85%" onClick="ShowFinder_trans_code('form1.trans_code_detail','form1.trans_name_detail','form1.trans_item','form1.payment_detail');">
            "javascript:ShowFinder_trans_code('form1.trans_code_detail','form1.trans_name_detail','form1.trans_item','form1.payment_detail');">
            "../../images/imgbtn_Date.jpg" align="absMiddle" border="0">
        
    
    

        
"width:20%"><%=f_glo("SH01148")%>
        
"width:30%">
            "text" name="room_no_detail" value="<%=room_number %>" style="width:100%" />
        
        
"width:20%"><%=f_glo("SH01150")%>"red">*
        
"width:30%">
            "rate_code_detail" id="rate_code_detail" type="hidden" value="<%=rate_code %>" >
            "rate_name_detail" id="rate_name_detail" style="width:85%" value="<%=rate_name %>"  onClick="ShowFinder_rate('form1.rate_code_detail','form1.rate_name_detail');">
            "javascript:ShowFinder_rate('form1.rate_code_detail','form1.rate_name_detail');">
            "../../images/imgbtn_Date.jpg" align="absMiddle" border="0">
        
    
     

        
"width:20%"><%=f_glo("SH01151")%>"red">*
        
"width:30%">
            "text" name="price_per_unit_detail" style="width:100%" onKeyPress="checkMoneyNew(this.value,this.Tabindex)"  onBlur="fn_get_amount()" />
        
        
"width:20%"><%=f_glo("SH01152")%>
        
"width:30%">
            "text" name="quantity_detail" style="width:100%" onBlur="fn_get_amount()"/>
        
        
    
    

        
"width:20%"><%=f_glo("SH01154")%>"red">*
        
"width:30%">
            "text" name="amount_detail" style="width:100%" readonly />
        
        
"width:20%">
"card_no_text" style="display:none;float: left;"><%=f_glo("SH00805") %>"red">*
        
"width:30%">
            "width :85%;display:none;float: left;" name="cardno_detail" id="cardno_detail" 
            readonly 
            onclick="javascript:ShowFinder_card_more_his('form1.cardno_detail','form1.card_balance_detail','form1.card_overdraft_detail','form1.card_used_sum_detail','');"/>
            "javascript:ShowFinder_card_more_his('form1.cardno_detail','form1.card_balance_detail','form1.card_overdraft_detail','form1.card_used_sum_detail','');">
            "../../images/imgbtn_Date.jpg" align="absMiddle" border="0" id="img_0" style="display:none;float: left;"/>
            "hidden" name="card_balance_detail" id="card_balance_detail" />
            "hidden" name="card_overdraft_detail" id="card_overdraft_detail" />
            "hidden" name="card_used_sum_detail" id="card_used_sum_detail" />
        
        
    
    

        
"3">
        
"right">
            "width:30%" type="button" name="new_his_trans" value="<%=f_glo("SH01155")%>" class="buttonface" onclick="fn_add_his_trans()" />
        
    

<%end if %>

 
class="input-9-tb" align="center" cellpadding=2 cellspacing=1 width="100%" id="table_his_detail">
    
    <%
    dim sql_his_detail,rs_his_detail
    sql_his_detail = " select tc.code as transaction_code,tc.name transaction_name,s.name as source,m.name as market, " & _
                     " isnull(p.name,'') as payment,r.name as rate_name," & _
                     " case when hpd.transaction_type='FC' then '支付方式' when hpd.transaction_type='C'" & _
                     " then '消费品' when hpd.transaction_type='BT' then 'Balance Transfer'  else 'package' end as transaction_type," & _
                     " hpd.id,hpd.post_date,hpd.amount,hpd.room_no,hpd.quantity,hpd.price_per_unit,hpd.card_no " & _
                     " from member_history_svc_pms_detail hpd" & _
                     " inner join dic_transaction_code tc on hpd.transaction_code=tc.code " & _
                     " left join dic_source s on hpd.source=s.code " & _
                     " left join dic_segment m on hpd.market=m.code" & _
                     " left join dic_payment p on hpd.payment=p.code" & _
                     " left join V_dic_rate r on hpd.rate_code=r.code and r.hotel_code=hpd.hotel_code" & _
                     " where hpd.his_id='"&id&"' " & _
                     " order by hpd.post_date"set rs_his_detail = conn.execute(sql_his_detail)

    dim trans_payment_total,trans_item_total
    trans_payment_total=0
    trans_item_total=0if rs_his_detail.recordcount>0 then 
        dowhile not rs_his_detail.eof
    %>
        
    <%
        if rs_his_detail("transaction_type")="支付方式" then
            trans_payment_total=trans_payment_total+StrToMoney(cdbl(rs_his_detail("amount")))
        else
            trans_item_total=trans_item_total+StrToMoney(cdbl(rs_his_detail("amount")))
        end if

        rs_his_detail.movenext
        loop  
    end if
    %>

        
<%=f_glo("SH01156")%>
        
<%=f_glo("Z0000874")%>
        
<%=f_glo("SH01157")%>
        
<%=f_glo("SH01158")%>
        
<%=f_glo("SH01159")%>
        
<%=f_glo("SH01151")%>
        
<%=f_glo("SH01152")%>
        
<%=f_glo("SH01163")%>
        
    
    
    
     

            
<%=rs_his_detail("transaction_name") %>[<%=rs_his_detail("transaction_code")%>]
                <%if rs_his_detail("transaction_type")="支付方式" then %>
                    "hidden" class='classpayment' value="<%=rs_his_detail("transaction_code") %>" />
                <%end if %>
            
            
<%=rs_his_detail("transaction_type") %>
            
<%=rs_his_detail("post_date") %>
            
<%=rs_his_detail("rate_name") %>
            
<%=rs_his_detail("room_no") %>
            
<%=StrToMoney(rs_his_detail("price_per_unit")) %>
            
<%=rs_his_detail("quantity") %>
            
<%=StrToMoney(rs_his_detail("amount")) %>
            
'center' style='width:40px'>'javascript:;' onclick="fn_deleteHistoryRow(<%=rs_his_detail("id") %>)">删除
        



<%if is_complete="N" then %>
"btnSaveTrans" value="<%=f_glo("SH01166")%>" class="buttonface" onclick="fn_save_trans()" />
<%end if %>
<%if rs_his_detail.recordcount>0 and is_complete="N" then  %>
"btnSaveTrans" value="<%=f_glo("S00267")%>" class="buttonface" onclick="fn_save_trans_complete()" />
<%end if %>
<%end if %>
"hidden" name="tr_lastIndex" value="1" id="tr_lastIndex" />
"hidden" name="pay_svc_limit" value="0" id="pay_svc_limit" />
"hidden" name="trans_item_total" value="<%=trans_item_total %>" id="trans_item_total" />
"hidden" name="trans_payment_total" value="<%=trans_payment_total %>" id="trans_payment_total" />
"hidden" name="main_card_no" value="<%=main_card_no %>" />
"hidden" name="templet_id" value="<%=templet_id %>" />
"hidden" name="is_complete" value="<%=is_complete %>" />
"hidden" name="trace_code" value="<%=trace_code %>" />