o1=thisform.olecontrol1
o2=thisform.olecontrol2
date1=CTOD(STR(o1.day, 2 )+'/'+STR(o1.month, 2 )+'/'+STR(o1.year, 4 ))
date2=CTOD(STR(o2.day, 2 )+'/'+STR(o2.month, 2 )+'/'+STR(o2.year, 4 ))

SELECT a.kod_nazv,;
       b.naim1 as naim,;
       c.naim1 as avtor,;
       b.god_izd,;
       d.kod as kod_izd;           
FROM soc a,nazv b,avtor c,izdatel d;
WHERE a.kod_nazv = b.kod AND;
      b.kod_avtor = c.kod AND;
      b.kod_izd = d.kod; 
INTO CURSOR _1
  
SELECT a.kod_nazv,;
       a.naim,;
       a.avtor,;
       a.god_izd,;
       a.kod_izd,;
       ROUND(b.cena_post*( 100 +b.nds)/ 100 , 0 ) as cenands,;
       IIF(ISNULL(c.kol), 0 ,c.kol) as kol,;
       IIF(ISNULL(e.publGrID), 0 ,e.publGrID) as publGrID;
FROM _1 a INNER JOIN;
       (prihod b LEFT OUTER JOIN; 
         (rashod c INNER JOIN;
           (bibl d LEFT OUTER JOIN bibl_publGr e ON d.publGrID = e.publGrID);
         ON c.k_k = d.k_k);
        ON b.kod_nazv = c.kod_nazv AND b.kcen = c.kcen;
          AND c.dt_dok BETWEEN date1 AND date2);
     ON a.kod_nazv = b.kod_nazv ; 
INTO CURSOR _2;
    
SELECT kod_nazv,naim,avtor,god_izd,kod_izd,cenands,publGrID,SUM(kol) as kol;
FROM _2 GROUP BY  1 , 2 , 3 , 4 , 5 , 6 , 7 ;
INTO CURSOR _rash  

  DO bibl_otch4 WITH date1,date2 
  REPORT FORM rep_2 TO PRINTER PROMPT preview

.....................
SELECT MAX(god_izd) AS god FROM _rash;
INTO CURSOR _god
SELECT a.PublGrID,;
       b.Name,;
       SUM(a.kol) AS kolt,;
       SUM(a.kol*a.cenands) AS sumt,;
       SUM(IIF(a.god_izd = _god.god,a.kol, 0 )) AS kol,;
       SUM(IIF(a.god_izd = _god.god,a.kol * a.cenands, 0 )) AS sum;
FROM _rash a INNER JOIN bibl_publGr b ON a.publGrID = b.publGrID;
WHERE a.PublGrID >  0  AND a.kod_izd = _izd_kod;
GROUP BY  1 , 2 ;
ORDER BY  2 ;
INTO CURSOR _otch
......................

SELECT a.kod_nazv,;
       a.naim,;
       a.avtor,;
       a.god_izd,;
       a.kod_izd,;
       ROUND(b.cena_post*( 100 +b.nds)/ 100 , 0 ) as cenands,;
       IIF(ISNULL(c.kol), 0 ,c.kol) as kol,;
       IIF(ISNULL(e.publGrID), 0 ,e.publGrID) as publGrID,;
       IIF(ISNULL(d.Shkol),.F.,d.Shkol) as Shkol;       
FROM _1 a INNER JOIN;
       (prihod b LEFT OUTER JOIN; 
         (rashod c INNER JOIN;
*вот что то по онологии с publGrID надо написать про shkol только не обращаясь к таблице
*bibl_publGr она просто со shkol не нужна
           (bibl d LEFT OUTER JOIN bibl_publGr e ON d.publGrID = e.publGrID);
         ON c.k_k = d.k_k);
        ON b.kod_nazv = c.kod_nazv AND b.kcen = c.kcen;
          AND c.dt_dok BETWEEN date1 AND date2);
     ON a.kod_nazv = b.kod_nazv ; 
INTO CURSOR _2;

ELECT a.PublGrID,;
       b.Name,;
       SUM(a.kol) AS kolt,;
       SUM(a.kol*a.cenands) AS sumt,;
       SUM(IIF(a.god_izd = _god.god,a.kol, 0 )) AS kol,;
       SUM(IIF(a.god_izd = _god.god,a.kol * a.cenands, 0 )) AS sum;
*по ходу и тут надо исправить под поле Shkol
FROM _rash a INNER JOIN bibl_publGr b ON a.publGrID = b.publGrID;
WHERE a.Shkol AND a.kod_izd = _izd_kod;
GROUP BY  1 , 2 ;
ORDER BY  2 ;
INTO CURSOR _otch