Имя: Пароль:
1C
1C 7.7
v7: Не заносит в фалй..в чем проблема..может кто лучше видит))) ☑
0 serg-lom89
 
06.12.12
✎
13:47
Хочу справочника элементы занести в файл ....может кто лучше зреет в чем проблема))



Процедура ВыборФайла()
   ИмяПути=КаталогПользователя();
   ИмяФайла=СокрЛП(ИмяФайла);
   Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл загрузки","Все файлы(*.txt)|*.txt","txt",)=1 Тогда
       ИмяФайла=ИмяПути+ИмяФайла;
   КонецЕсли;
КонецПроцедуры


Процедура ПриОткрытии()
   ИмяФайла = ВосстановитьЗначение("ПутьФайлаВыгрОС");
КонецПроцедуры  


Процедура Выполнить()

   
   СправМат=СоздатьОбъект("Справочник.Материалы");
   
   ТЗ = СоздатьОбъект ("ТаблицаЗначений");
   ТЗ.НоваяКолонка ("Код", "Число");
   ТЗ.НоваяКолонка ("Наименование","Строка");
   ТЗ.НоваяКолонка ("Цена","Число");

   
   
   СправМат.ВыбратьЭлементы();
   Пока СправМат.ПолучитьЭлемент()>0 Цикл
       ТЗ.НоваяСтрока();
       ТЗ.Код=СправМат.Код;
       ТЗ.Наименование=СправМат.Наименование;
       ТЗ.Цена=СправМат.Цена;          
//        ТЗ.ЕдИзмер=СправМат.ЕдИзм;
       
       КонецЦикла;

   
   ЗначениевФайл(ИмяФайла,ТЗ,1);
   СохранитьЗначение("ПутьФайлаВыгрОС", ИмяФайла);
   
КонецПроцедуры;
1 1Сергей
 
06.12.12
✎
13:48
ИмяФайла - реквизит диалога?
2 serg-lom89
 
06.12.12
✎
13:48
(1) да
3 1Сергей
 
06.12.12
✎
13:49
ЗначениевФайл(СокрЛП(ИмяФайла),ТЗ,1);
4 serg-lom89
 
06.12.12
✎
13:49
в отладчике видит все
5 1Сергей
 
06.12.12
✎
13:49
вот это смешно: ИмяФайла=СокрЛП(ИмяФайла);
6 zladenuw
 
06.12.12
✎
13:51
(0) какой нафиг тхт.
Если ты делаешь
<Формат> - необязательный параметр. Число: 1 - сохранение во внутреннем формате; иначе во внешнем. Значение по умолчанию: 1.
7 serg-lom89
 
06.12.12
✎
14:01
(6)  поставил 0 .не занесло
8 zladenuw
 
06.12.12
✎
14:02
Да сделай на конец так
Если ЗначениевФайл(ИмяФайла,ТЗ,1)=1 Тогда
Сообщить("есть файл!");
Иначе
 Сообщить("Имя файла не правильное !");
КонецЕсли;
9 zladenuw
 
06.12.12
✎
14:05
все работает.
   мСпЗнСписокНастройки = СоздатьОбъект("СписокЗначений");
       мСпЗнСписокНастройки.ДобавитьЗначение(мКаталогДанных,"КаталогДанных");
       ЗначениеВФайл(КаталогПрограммы()+"ExportSettings.ini" ,мСпЗнСписокНастройки);
10 serg-lom89
 
06.12.12
✎
14:07
есть файл!
но в самом файле нету его...тока еще появился какой то файл dbfный с таким же именем как тхт