Autor: Ryszard Glab (rGLAB_at_waw.pdi.net)
Data: Sun 20 Apr 1997 - 17:48:56 MET DST
In article <5jdbe0$h6e$1_at_sunsite.icm.edu.pl>,
rGLAB_at_waw.pdi.net (Ryszard Glab) wrote:
[...]
Troche namieszalem :(
Powinno byc:
DBCREATE( 'TEMP', {{'kolor', 'C', 10, 0}, ;
{'nr_szkody', 'N',10,0}, {'ilosc','N',10,0}} )
USE temp NEW EXCLUSIVE
INDEX ON kolor+STR(nr_szkody,10) TO temp
SET ORDER TO temp
SELECT szkody
SET SCOPE TO '19960101', '19960630'
GOTO TOP
DO WHILE( !EOF() )
IF( polisy->(DBSEEK(szkody->nr_samoch)) .AND. ;
polisy->samochod = 'MALUCH' )
IF( klienci->(DBSEEK(polisy->nr_klienta)) .AND. ;
!(klienci->miasto = 'WARSZAWA') .AND. klienci->wiek < 25 )
IF( temp->(DBSEEK(polisy->kolor_samochodu+;
STR(szkody->nr_szkody,10) )) )
temp->ilosc++
ELSE
temp->(DBAPPEND())
temp->nr_szkody := szkody->nr_szkody
temp->kolor := polisy->kolor_samochodu
ENDIF
ENDIF
ENDIF
SKIP
ENDDO
SET SCOPE TO
SELECT temp
BROWSE
USE
Komentarz pozostaje bez zmian. Jesli teraz nie jest dobrze to robie
sobie urlop.
Pozdrawiam, Ryszard
-- r(ycho)GLAB Warsaw, Poland http://www.waw.pdi.net/~rglab
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 16:03:12 MET DST