transfer

SET TALK OFF
CLEAR
CLOSE ALL
SELECT 1
USE elevi
SELECT 2
USE respinsi
select 1
SCAN
vcod = cod
vnume = nume
vmed = med
vrez = rez
IF vrez=.F.
    ?"sterg " + vnume
    SELECT 2
    APPEND BLANK
    replace cod WITH vcod, med WITH vmed, rez WITH vrez
    SELECT 1
ENDIF
ENDSCAN
DELETE FOR vrez=.F.
PACK
USE
SELECT 2