GRUPPA           N    3     0
TOVAR            C    30
DATE_P           D 
CENA             N    6     2
KOL_VO           N    3     0

*.Task2 page44
SET TALK OFF
SET DATE BRITISH
CLEAR
SET COLOR TO W+/N, GR+/B
USE DAN
IF .NOT.FILE("DAN_K.IDX"))
   INDEX ON TOVAR to DAN_K
ENDIF
SET INDEX TO DAN_K
? "SHOW RESULTS"
D1={ 01 / 01 / 05 }
D2={ 31 / 03 / 05 }
N= 1 
M1=SPACE( 10 )
FLAG=.f.
GOTO RECORD  1 
   LOCATE FOR ((DATE_P>D1)AND(DATE_P<D2))
   IF FOUND()
       DO WHILE !EOF()
          M=TOVAR
          S= 0 
          N=RECNO()
             IF M1=M
                 CONTINUE
             ENDIF
                 DO WHILE M=TOVAR
                      S=S+CENA*KOL_VO
                      CONTINUE
                      FLAG=.T.
                 ENDDO
             IF FLAG=.T. 
                 ?"TOBAP",M,"cmouMocmb",S  
                 M1=M
             ENDIF
             FLAG=.F.
          GOTO RECORD N    
          CONTINUE      
       ENDDO
   ENDIF
WAIT "PLEASE, PRESS ANY KEY FOR EXIT..."  
USE
CLEAR

M=''
--------------
IF M<>'' 

M=space( 1 )
--------------
IF M<>SPACE( 1 )

SET DATE TO GERMAN
D1={ 01 / 01 / 2005 }
D2={ 31 / 03 / 2005 }

SELECT ;
	Tovar, ;
	SUM(Cena*Kol_Vo) as Sum_Tov ;
FROM dan ;
INTO CURSOR curResult ;
WHERE Date_P Between m.D1 AND m.D1 ;
GROUP BY Tovar ;
ORDER BY Tovar 

select curResult
SCAN
	?"TOBAP ",Tovar," Сумма=",Sum_Tov  
ENDSCAN

SELECT-SQL

 GRUPPA           N    3     0 
TOVAR            C    30
DATE_P           D 
CENA             N    6     2
KOL_VO           N    3     0

USE DAN
INDEX ON TOVAR TAG TOVAR
? "SHOW RESULTS"
D1={ 01 / 01 / 05 }
D2={ 31 / 03 / 05 }

GO top

M=''
S= 0 

scan  FOR (DATE_P>D1)AND(DATE_P<D2)
    if   M<>TOVAR
       if M<>'' 
          ?"TOBAP",M,"cmouMocmb",S  
       endif
       M=TOVAR
       S=CENA*KOL_VO
    else
       S=S+CENA*KOL_VO
    endif
endscan

USE DAN
INDEX ON TOVAR TAG TOVAR
D1={ 01 / 01 / 05 }
D2={ 31 / 03 / 05 }

GO TOP

M=SPACE( 5 )

DO WHILE !EOF()
   S= 0 
   M=TOVAR
       DO WHILE (M=TOVAR)
            IF (DATE_P>=D1) AND (DATE_P<=D2)
                 S=S+CENA*KOL_VO
                 SKIP
            ELSE
                 SKIP
            ENDIF
       ENDDO
     IF S<> 0 
         ?M,S
     ENDIF  
ENDDO