JCK.Web/declaration/print/pi_cs_prt.aspx

(开头部分) 6KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。



<%@ Page Language="C#" %>

using System.Web.Security;

<script runat="server"> 
    protected void Page_Load(object sender, EventArgs e)
    {
        //★特别提示★:

        //不同的数据库应该选用不同的报表XML数据生成类,SQL Server数据库用SqlReportData,Oracle数据库用OracleReportData
        //OledbReportData适合于Access等本地数据库,为了演示方便,这里从Grid++Report的Access例子数据库中获取报表数据



        string ls_sql = "", gl_id = "", type="";
        JCK.Web.UI.ManagePage mp = new JCK.Web.UI.ManagePage();
        JCK.Model.Online_User on_u = mp.GetUserInfo();
        
        gl_id = Request.QueryString["gl_id"];
        type = Request.QueryString["type"];

        if (type == "list")
        {
            ls_sql = @"
declare @total_qty int 
declare @total_total float

select @total_qty=SUM(qty) from DEC_LIST_DETAIL where gl_id='" + gl_id + @"'
select @total_total=SUM(Dec_Total) from DEC_LIST_DETAIL where gl_id='" + gl_id + @"'
                
    select 

    ISNULL((select top 1 name from Offline_Customer where hgbm=a.Business and ParentNo=a.ParentNo),
    (select top 1 name from Online_Enterprise where hgbm=a.Business and bh=a.ParentNo)) name,
    ISNULL((select top 1 dz from Offline_Customer where hgbm=a.Business and ParentNo=a.ParentNo),
    (select top 1 dz from Online_Enterprise where hgbm=a.Business and Bh=a.ParentNo)) dz,
    ISNULL((select top 1 lxdh from Offline_Customer where hgbm=a.Business and ParentNo=a.ParentNo),
    (select top 1 lxdh from Online_Enterprise where hgbm=a.Business and Bh=a.ParentNo)) lxdh,
    ISNULL((select top 1 fax from Offline_Customer where hgbm=a.Business and ParentNo=a.ParentNo),
    (select top 1 fax from Online_Enterprise where hgbm=a.Business and Bh=a.ParentNo)) fax,    
    
    a.buyer Buyer_EN,
    
    convert(varchar(10),a.DbillDate,23) DbillDate, a.Invoice_no,a.Contract_No,
    (select CT_NAME from COUNTRY where COUNTRY=a.Country) Country,    
    
    b.G_Name+' '+cast(cast(b.qty as numeric(12,3)) as varchar)+' '+(select UT_NAME from Unit where UNIT=b.Unit) g_name_g_model_qty_unit,
    cast(b.qty as numeric(12,3)) qty,cast(b.dec_price as numeric(12,4)) price,cast(b.Dec_Total as numeric(18,2)) as total,    
    
    @total_qty total_qty,@total_total total_total
    ,(select pic from dbo.Online_Enterprise where bh=a.ParentNo) pic   
    from dbo.DEC_LIST_HEAD a
    left join dbo.DEC_LIST_DETAIL b on a.gl_id=b.gl_id
where a.gl_id='" + gl_id + @"' 
        ";
        }
        else if (type == "dec")
        {
后面还有 73 行代码,购买后查看完整代码

24 小时内免费解锁 3 个项目,之后 1 积分/个。 规则说明

AI 解读

登录后可用,每次 10 积分,解读结果公开显示在下面。

还没有人解读过这个文件。