@sn:=@sysnomer writefile("c:\Doc\"<<GETFILENAME(ПОЛЕ БАЗЫ С ДОКУМЕНТОМ)<<@sn<<"."<<GETEXT(ПОЛЕ БАЗЫ С ДОКУМЕНТОМ), GETTEXT(ПОЛЕ БАЗЫ С ДОКУМЕНТОМ))
writefile("c:\Doc\"<<@sn<<"_"<<@I<<"_"<<GETFILENAME(ЛЦ15(@I))<<"."<<GETEXT(ЛЦ15(@I)), GETTEXT(ЛЦ15(@I)));
@I:=1; @CNT:=VALCOUNT(ЛЦ1); WHILE(@I<=@CNT) DO [ @cont:=GETTEXT(ЛЦ1(@I)); if @cont then (WRITEFILE("c:\temp\"<<@SYSNOMER<<"_"<<@I<<"_"<<GETFILENAME(ЛЦ1(@I))<<"."<<GETEXT(ЛЦ1(@I)),@cont)); @I:=@I+1 ]