SET DATE GERMAN
SET CENTURY on
SET DELETED on
USE vipkup ALIAS vipkup IN 0
USE promet alias promet IN 0
SELECT vipkup
GOTO top
DO WHILE !EOF()
	a1=vipkup.barkod
	FOR i=1 TO 12
		SELECT promet
		APPEND BLANK
		replace promet.klubkart WITH a1
		replace promet.mesec WITH i
	NEXT i
SELECT vipkup
SKIP
ENDDO
