let
    DateBegin = DateTime.ToText( Excel.CurrentWorkbook(){[Name="DateBegin"]}[Content]{0}[Column1], "yyyy-MM-dd"),
    DateEnd = DateTime.ToText( Excel.CurrentWorkbook(){[Name="DateEnd"]}[Content]{0}[Column1], "yyyy-MM-dd"),
    ConnectionString = 
            "Select   
            m.DocDate [дата чека], m.StockID [код склада], d.Qty [кол-во проданного] 
                from t_CRRet m With(NoLock)   
            Inner Join t_CRRetD d With(NoLock) On d.ChID = m.ChID
            Inner Join r_Prods p With(NoLock) On p.ProdID = d.ProdID
            Inner Join r_ProdC c With(NoLock) On c.PCatID = p.PCatID
            Inner Join r_ProdG g With(NoLock) On g.PgrID  = p.PgrID
            Inner Join r_ProdG1 g1 With(NoLock) On g1.PgrID1  = p.PgrID1
            Inner Join r_ProdG2 g2 With(NoLock) On g2.PgrID2  = p.PgrID2
            Inner Join r_ProdG3 g3 With(NoLock) On g3.PgrID3  = p.PgrID3
            Inner Join ir_ProdG7 g7 With(NoLock) On g7.PgrID7  = p.PgrID7
            Inner Join ir_ProdG8 g8 With(NoLock) On g8.PgrID8  = p.PgrID8
            Inner Join t_PInP pp With(NoLock) On pp.ProdID  = d.ProdID and pp.PPID  = d.PPID
            Inner Join r_Comps cc With(NoLock) On cc.CompID  = pp.CompID
        where m.DocDate Between '" & DateBegin & "' and '" & DateEnd & "'    
        and m.StockID in (160,168)
        Order By m.DocDate --Desc",

    Источник = Sql.Database(
        "DB-GMS-SRV", 
        "GMSData38", 
        [Query=ConnectionString])
in
    Источник