Clear All

Select M.PRODUKT, M.Bolge_trx, Sum(M.KOLICESTVO) ;
  FROM MEXARIC m;
  GROUP By M.PRODUKT, M.Bolge_trx ;
  ORDER By M.PRODUKT, M.Bolge_trx ;
  WHERE Date>=Date(2020, 01, 25);
  INTO Cursor CrossTab
Do (_Genxtab) With 'Query',.T.,.T.,.T.,,,,.T.,0,.F.

Select q.*, M.SENA1, M.SENA2, total*M.SENA1 as STOIMOST1, total*M.SENA2 as STOIMOST2 ;
  from Query q ;
  inner Join MEXARIC m on q.PRODUKT= M.PRODUKT;
  INTO Cursor  FinalCursor
Browse

Select  M.Bolge_trx, M.PRODUKT,  Sum(M.KOLICESTVO) ;
  FROM MEXARIC m;
  GROUP By  M.Bolge_trx, M.PRODUKT ;
  ORDER By  M.Bolge_trx, M.PRODUKT ;
  WHERE Date>=Date(2020, 01, 25);
  INTO Cursor CrossTab
Do (_Genxtab) With 'Query',.T.,.T.,.T.,,,,.T.,0,.F.
BROW

CLEAR ALL

SELECT M.Bolge_trx, M.PRODUKT, SUM(M.KOLICESTVO) ;
    FROM MEXARIC m ;
    GROUP BY M.Bolge_trx, M.PRODUKT ;
    WHERE DATE>=Date(2020, 1, 25) ;
    INTO cursor TabItems
DO (_GENXTAB) WITH 'CrossTabItems',.t.,.t.,.t.,,,,.t.,0,.f.
*BROWSE

SELECT '' as Bolge_trx, M.PRODUKT, SUM(M.KOLICESTVO) ;
    FROM MEXARIC m ;
    GROUP BY M.Bolge_trx, M.PRODUKT ;
    WHERE DATE>=Date(2020, 1, 25) ;
    INTO cursor TabTotals
DO (_GENXTAB) WITH 'CrossTabTotals',.t.,.t.,.t.,,,,.t.,0,.f.
*BROWSE

SELECT M.Bolge_trx, Sum(M.sena1*KOLICESTVO) as stiomost1, Sum(M.SENA2*KOLICESTVO) as stiomost2 ;
    FROM MEXARIC m;
    GROUP BY M.Bolge_trx;
    WHERE DATE>=Date(2020, 1, 25) ;
    INTO cursor SubTotals
*BROWSE

SELECT '' as Bolge_trx, stiomost1, stiomost2 ;
    FROM SubTotals ;
    INTO cursor Totals
*BROWSE

Select Bolge_trx, Sum(stiomost1) as stiomost1, Sum(stiomost2) as stiomost2 ;
    From Totals ;
    GROUP BY Bolge_trx;
    INTO cursor AllTotals
*BROWSE

Select cti.*, stiomost1, stiomost2 from CrossTabItems cti ;
inner join SubTotals ctt on cti.Bolge_trx = ctt.Bolge_trx  ;
union all ;
Select ctt.*, stiomost1, stiomost2 from CrossTabTotals as ctt inner join AllTotals att on .t.