Local nKodHddoc, nKodStdoc, dBegDate, lReadOnly, nkodtype, ndays

ndays = 12
dBegDate = lv.begdata  

WAIT window "Отбираем данные..." nowait
ThisForm.grdb1.RecordSource = ''

USE IN SELECT("ma")

&& собираем нужные нам значения в нужные колонки
&& Колонок столько, столько нужно. В данном случае 12
TEXT TO lcSelect TEXTMERGE NOSHOW PRETEXT 7
   SELECT mtrx.kodd, mtrx.kodst, min(mtrx.begdata) as begdata,
     sum(case when date_part('month',mtrx.begdata) = 1 then mtrx.quantity else 0 end) as day1,
     sum(case when date_part('month',mtrx.begdata) = 2 then mtrx.quantity else 0 end) as day2,
     sum(case when date_part('month',mtrx.begdata) = 3 then mtrx.quantity else 0 end) as day3,
     sum(case when date_part('month',mtrx.begdata) = 4 then mtrx.quantity else 0 end) as day4,
     sum(case when date_part('month',mtrx.begdata) = 5 then mtrx.quantity else 0 end) as day5,
     sum(case when date_part('month',mtrx.begdata) = 6 then mtrx.quantity else 0 end) as day6,
     sum(case when date_part('month',mtrx.begdata) = 7 then mtrx.quantity else 0 end) as day7,
     sum(case when date_part('month',mtrx.begdata) = 8 then mtrx.quantity else 0 end) as day8,
     sum(case when date_part('month',mtrx.begdata) = 9 then mtrx.quantity else 0 end) as day9,
     sum(case when date_part('month',mtrx.begdata) = 10 then mtrx.quantity else 0 end) as day10,
     sum(case when date_part('month',mtrx.begdata) = 11 then mtrx.quantity else 0 end) as day11,
     sum(case when date_part('month',mtrx.begdata) = 12 then mtrx.quantity else 0 end) as day12,
     mtrx.kodm as code,
     min(sprm.name)::varchar(200) as namem,
     MIN(coalesce(unitd.kod,0)) as kodunitdim,
     MIN(coalesce(unitd.smallname,'')) as unitdimname 
    FROM ma_vm mtrx
    inner join hdd doc on mtrx.kodd = doc.kod
    inner join std on std.kod = mtrx.kodstd
    inner join sprm on mtrx.kodmsc = sprm.kod
    left join unitd on sprm.kodunitd = unitd.kod
    where <условие отбора записей>
    group by mtrx.kodhddoc, mtrx.kodstdoc, mtrx.kodmsc
ENDTEXT

SqlExecute(lcSelect,"Ma")

WITH ThisForm.grdb1
	.RecordSource = "Ma"
	.Column1.ControlSource = .RecordSource + ".code"
	.Column1.Width = 74
	.Column2.ControlSource = .RecordSource + ".namem"
	.Column2.Width = 274
	.Column3.ControlSource = .RecordSource + ".day1"
	.Column4.ControlSource = .RecordSource + ".day2"
	.Column5.ControlSource = .RecordSource + ".day3"
	.Column6.ControlSource = .RecordSource + ".day4"
	.Column7.ControlSource = .RecordSource + ".day5"
	.Column8.ControlSource = .RecordSource + ".day6"
   	.Column9.ControlSource = .RecordSource + ".day7"
  	.Column10.ControlSource = .RecordSource + ".day8"
	.Column11.ControlSource = .RecordSource + ".day9"
	.Column12.ControlSource = .RecordSource + ".day10"
	.Column13.ControlSource = .RecordSource + ".day11"
 	.Column14.ControlSource = .RecordSource + ".day12"

	.Column1.header1.Caption = "Код"
	.Column2.header1.Caption = "Наименование"
	.Column3.header1.Caption = "Январь"
	.Column4.header1.Caption = "Февраль"
	.Column5.header1.Caption = "Март"
	.Column6.header1.Caption = "Апрель"
	.Column7.header1.Caption = "Май"
	.Column8.header1.Caption = "Июнь"
	.Column9.header1.Caption = "Июль"
	.Column10.header1.Caption = "Август"
	.Column11.header1.Caption = "Сентябрь"
	.Column12.header1.Caption = "Октябрь"
	.Column13.header1.Caption = "Ноябрь"
	.Column14.header1.Caption = "Декабрь"
	
	FOR i = 3 TO .ColumnCount
	 lcColumn = ".Column"+ALLTRIM(STR(i))
	 &lccolumn..width = 59
         &lccolumn..FORMAT = 'ZK'
	 &lccolumn..InputMask = '999999999.999'
	 
          &lccolumn..DynamicFontBold = 'IIF(Ma.day'+ALLTRIM(STR(i-2))+' <> 0, .T., .F.)'
	ENDFOR 

	FOR EACH loCol IN .Columns
		BINDEVENT(loCol.Header1, "Click", ThisForm.grdb1, "SortAuto")
	ENDFOR
	.Refresh()
ENDWITH
WAIT CLEAR