LOCAL CurREPORT
LOCAL ltFromDate, ltToDate
LOCAL lnMasof 
 
 ltFromDate = thisform.Olecontrol1._value
 ltToDate = thisform.Olecontrol2._value
 
 SET DECIMALS TO  0 
 lnMasof = VAL(thisform.Combo1.Value)
 
* 	
     IF NOT USED ('rikuz')
     USE rikuz EXCLUSIVE IN   0  ALIAS rikuz
     ENDIF  
	SELECT rikuz
	DELETE FROM rikuz 
	PACK

    INSERT INTO Rikuz ;
               (Masof, ;
                TransDate,;
                FileNo,;
                Rikuz,;
                Matbea,;
                CardSolek,;
                PiraonDate,;
                Totragil );
         SELECT Query_Zikui_Ragil.Masof,;
                Query_Zikui_Ragil.TransDate,;
                Query_Zikui_Ragil.FileNo,;
                Query_Zikui_Ragil.Rikuz,;
                Query_Zikui_Ragil.Matbea,;
                Query_Zikui_Ragil.CardSolek,;
                Query_Zikui_Ragil.PiraonDate,;
                Query_Zikui_Ragil.SumOfTotal ; 
           FROM Query_Zikui_Ragil ;
          WHERE Query_Zikui_Ragil.Masof = m.lnMasof;
            AND Query_Zikui_Ragil.transdate BETWEEN m.ltFromDate AND m.ltToDate  
 

         INSERT INTO Rikuz ;
                    (Masof, ;
                     TransDate,;
                     FileNo,;
                     Rikuz,;
                     Matbea,;
                     CardSolek,;
                     PiraonDate,;
                     TotRagil );  &&& TotTashlumim ???
         SELECT Query_Zikui_Tashlumim.Masof,;
                Query_Zikui_Tashlumim.TransDate,;
                Query_Zikui_Tashlumim.FileNo,;
                Query_Zikui_Tashlumim.Rikuz,;
                Query_Zikui_Tashlumim.Matbea,;
                Query_Zikui_Tashlumim.CardSolek,;
                Query_Zikui_Tashlumim.PiraonDate,;
                Query_Zikui_Tashlumim.SumOfTotal; 
           FROM Query_Zikui_Tashlumim ;
          WHERE Query_Zikui_Tashlumim.Masof = m.lnMasof;
            AND Query_Zikui_Tashlumim.transdate BETWEEN m.ltFromDate AND m.ltToDate  	     

SELECT Tranb.masof, Statis.transdate, Tranb.rikuz, Tranb.fileno,;
  Tranb.cardsolek, Tranb.matbea, Tranb.credittype, Tranb.piraondate,;
  SUM(Tranb.total) AS sumoftotal;
 FROM FORCE ;
     vfppeledat!statis ;
    INNER JOIN vfppeledat!tranb ;
   ON (  Statis.masof = Tranb.masof;
   AND  Statis.rikuz = Tranb.rikuz );
   AND  Statis.fileno = Tranb.fileno;
 GROUP BY Tranb.masof, Statis.transdate, Tranb.fileno, Tranb.rikuz,;
  Tranb.credittype, Tranb.matbea, Tranb.cardsolek, Tranb.piraondate
 ORDER BY Tranb.masof, Statis.transdate, Tranb.fileno, Tranb.piraondate