CLOSE TABLES All
IF !File("Katalog.dbf")
 Create table Katalog free (Kodn C(7), name C(50), group L)
 Insert into Katalog value("10","Двигатель",.t.)
 Insert into Katalog value("1005","Коленчатый вал и маховик",.t.)
 Insert into Katalog value("1005034","Сальник к/вала",.f.)
ELSE
 USE Katalog IN 0
ENDIF

IF !File("Ost.dbf")
 Create table ost free (Kodn C(7), snm N(8.2))
 Insert into ost value("10",100)
 Insert into ost value("1005",200)
 Insert into ost value("1005034",580)
ELSE
 USE Ost IN 0
ENDIF

SELECT b.KodN, b.Name, SUM(b.snm) ;
FROM (Select z.KodN, ;
             SUBSTR(trim(d.KodN)+REPLICATE("*",7),1,LEN(trim(z.KodN))) as KodZ,;
             z.Name, d.snm from Katalog z, Ost d) b;
WHERE b.KodN=b.KodZ ;
GROUP BY 1, 2 ;
Order by 1

CLOSE TABLES All