SET DATE GERMAN
SET CENTURY on	
USE D:\2017\BAZE\roba ALIAS roba IN 0
SELECT roba
DO WHILE !EOF()
IF ukol=0 AND ikol=0 AND uvrednost=0 AND ivrednost=0 AND procen=0
	DELETE
ENDIF
replace roba.datinv WITH CTOD("  .  .    ")
SKIP
ENDDO
RETURN
	