DIMENSION mat(7)
SELECT tov_out
 SET DEFAULT To c:\material
 SET PATH To c:\material
GO TOP
DO WHILE .NOT. EOF()
   IF nom_tr=VAL(ALLTRIM(thisform.text6.Text)) then
      mat(1)=nom_tr
      mat(2)=tov
      mat(3)=nomenkl
      mat(4)=izm
      mat(5)=kol_vo
      mat(6)=price
      mat(7)=sum
      SELECT material
      APPEND BLANK
      replace treb WITH mat(1),naim WITH mat(2),nom WITH mat(3),izm WITH mat(4)
      SELECT tov_out
      skip
   ELSE
      SKIP
   ENDIF
ENDDO
Thisform.release