Создание файла DBF
☑
0
Niel
30.07.21
✎
17:15
Доброго времени суток. Подскажите, пожалуйста, почему не создается файл?
&НаКлиенте
Процедура Команда1(Команда)
ВыполнитьКоманду("ВыгрузкаНомен");
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды)
ЭкспортНомен();
КонецПроцедуры
&НаСервере
Процедура ЭкспортНомен()
ф=Новый XBase;
ф.Поля.Добавить("cod","S",40);
ф.Кодировка=КодировкаXBase.OEM;
ф.АвтоСохранение=Истина;
ф.СоздатьФайл("c:\nom.dbf");
//ф.ОчиститьФайл();
Запрос=Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 10
| Номенклатура.Ссылка КАК Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() цикл
ф.Добавить();
ф.cod = Выборка.Ссылка;
КонецЦикла;
ф.ЗакрытьФайл();
КонецПроцедуры
1
ДенисЧ
30.07.21
✎
17:18
На сервере
запрещена запись
ф.СоздатьФайл("c:\nom.dbf");
2
bolder
30.07.21
✎
18:06
(1) Внезапненько))Лайк!
Давно все говорят что порог в 1С вырос.
3
Niel
30.07.21
✎
20:11
(2) Подскажите, пожалуйста, а как надо?
4
kubik_live
30.07.21
✎
20:23
(3) Закусыва... ой Записывать НАДО! :)))))))))))
Пока Выборка.Следующий() цикл
ф.Добавить();
ф.cod = Выборка.Ссылка;
ф.Записать();
КонецЦикла;
5
kubik_live
30.07.21
✎
20:31
+(4) А учитывая что:
ф.Поля.Добавить("cod","S",40);
Тогда
ф.cod = Лев(СокрЛП(Выборка.Ссылка),40);
6
Niel
30.07.21
✎
20:34
(4) после первой не закусыва..ой записываю ))
спасибо БООЛЬШОЕ!!! Всё получилось.
7
kubik_live
30.07.21
✎
20:37
(6) +++
Так много примеров записи в dBase в инете, неужели сразу не нашли?
8
kubik_live
30.07.21
✎
20:42
(6) Если будете писать в поля MEMO - обращайтесь
9
Niel
30.07.21
✎
20:42
(7) глаз замылился ((
10
Niel
30.07.21
✎
20:42
(8) спасибо большое
Независимо от того, куда вы едете — это в гору и против ветра!