SELECT Goods.Key Goods.Name Goods.Kod,;
  SUM(IIF(table1.date=01.2018,table1.Kol,000000.000) AS suma1,;
  SUM(IIF(table1.date=02.2018,table1.Kol,000000.000) AS suma2,;
  SUM(IIF(table1.date=03.2018,table1.Kol,000000.000) AS suma3,;
  SUM(IIF(table1.date=04.2018,table1.Kol,000000.000) AS suma4,;
  SUM(IIF(table1.date=05.2018,table1.Kol,000000.000) AS suma5,;
  SUM(IIF(table1.date=06.2018,table1.Kol,000000.000) AS suma6,;
  SUM(IIF(table1.date=07.2018,table1.Kol,000000.000) AS suma7,;
  SUM(IIF(table1.date=08.2018,table1.Kol,000000.000) AS suma8,;
  SUM(IIF(table1.date=09.2018,table1.Kol,000000.000) AS suma9,;
  SUM(IIF(table1.date=10.2018,table1.Kol,000000.000) AS suma10,;
  SUM(IIF(table1.date=11.2018,table1.Kol,000000.000) AS suma11,;
  SUM(IIF(table1.date=12.2018,table1.Kol,000000.000) AS suma12;
 FROM goods LEFT OUTER JOIN table1;
  ON Goods.key = table1.key;
 WHERE goods.kod=1;
 ORDER BY goods.key;
 GROUP BY goods.key;
 INTO CURSOR SQL1

SELECT 0
CREATE CURSOR cTovar (Key i, Name c(80), Kod i)
INSERT INTO cTovar (Key, Name, Kod) VALUES (1, 'Товар1', 1)
INSERT INTO cTovar (Key, Name, Kod) VALUES (2, 'Товар2', 2)
INSERT INTO cTovar (Key, Name, Kod) VALUES (3, 'Товар3', 1)
SELECT 0
CREATE CURSOR cTable1 (Key i, pDate d, Kol i)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (3, {^2017-12-01}, 3)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (1, {^2018-01-01}, 10)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (2, {^2018-02-01}, 6)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (1, {^2018-02-04}, 5)

lcDate={^2017-12-31}
SELECT b.key, MAX(b.name) as name, SUM(a.kol) as nsum;
    FROM cTable1 a JOIN cTovar b ON a.key=b.key;
    WHERE b.kod=1 AND a.pdate>lcDate;
    INTO CURSOR c1 READWRITE;
    GROUP BY b.key

SELECT 0
CREATE CURSOR cTovar (Key i, Name c(80), Kod i)
INSERT INTO cTovar (Key, Name, Kod) VALUES (1, 'Товар1', 1)
INSERT INTO cTovar (Key, Name, Kod) VALUES (2, 'Товар2', 2)
INSERT INTO cTovar (Key, Name, Kod) VALUES (3, 'Товар3', 1)
SELECT 0
CREATE CURSOR cTable1 (Key i, pDate d, Kol i)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (3, {^2017-12-01}, 3)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (1, {^2018-01-01}, 10)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (2, {^2018-02-01}, 6)
INSERT INTO cTable1 (Key, pDate, Kol) VALUES (1, {^2018-02-04}, 5)

lcDate={^2015-12-31}
    
SELECT a1.key, a1.name, a1.kod, a.nsum;
    FROM cTovar a1;
    LEFT JOIN (;
        select b.key, SUM(b.kol) as nsum from cTable1 b where b.pdate>lcDate group by b.key;
        ) a ON a1.key=a.key;
    WHERE a1.kod=1

CREATE CURSOR goods (KEY i, NAME c(80), Kod i)
INSERT INTO goods (KEY, NAME, Kod) VALUES (1, 'Товар1', 1)
INSERT INTO goods (KEY, NAME, Kod) VALUES (2, 'Товар2', 2)
INSERT INTO goods (KEY, NAME, Kod) VALUES (3, 'Товар3', 1)
INDEX ON KEY TAG KEY CANDIDATE
INDEX ON Kod TAG Kod

CREATE CURSOR Table1 (KEY i, DATE d, Kol B(3))
INSERT INTO Table1 (KEY, DATE, Kol) VALUES (3, {^2017-12-01}, 3)
INSERT INTO Table1 (KEY, DATE, Kol) VALUES (1, {^2018-01-01}, 10)
INSERT INTO Table1 (KEY, DATE, Kol) VALUES (2, {^2018-02-01}, 6)
INSERT INTO Table1 (KEY, DATE, Kol) VALUES (1, {^2018-02-04}, 5)
INDEX ON KEY TAG KEY
INDEX ON DATE TAG DATE

SYS(3054,12)

LOCAL lnYear, lnKod
lnYear = 2018
lnKod = 1

SELECT goods.KEY, goods.NAME, goods.Kod,;
 CAST(SUM(IIF(MONTH(Table1.DATE)=1, Table1.Kol, 0)) AS B(3)) AS suma1, ;
 CAST(SUM(IIF(MONTH(Table1.DATE)=2, Table1.Kol, 0)) AS B(3)) AS suma2, ;
 CAST(SUM(IIF(MONTH(Table1.DATE)=12, Table1.Kol, 0)) AS B(3)) AS suma12 ;
 FROM goods LEFT OUTER JOIN Table1 ;
 ON goods.KEY = Table1.KEY AND ;
 Table1.DATE BETWEEN DATE(m.lnYear, 1, 1) AND DATE(m.lnYear, 12, 31) ;
 WHERE goods.Kod = m.lnKod ;
 ORDER BY goods.KEY ;
 GROUP BY goods.KEY, goods.NAME, goods.Kod ;
 INTO CURSOR SQL1
BROWSE