Работа с Дбф в клиент серверном варианте, как через временное хранилище передать с сервера заполненную dbf?
&НаСервере
Функция Команда2НаСервере()
НашеИмяФайла= "PriceP.dbf";
НашПолныйПутьФайла = КаталогВременныхФайлов()+НашеИмяФайла;
БД.СоздатьФайл(НашПолныйПутьФайла);
Цикл
БД.Добавить()
**заполняю
БД.Записать();
КонецЦикла
БД.Записать();
БД.ЗакрытьФайл();
АдресВХ = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(НашПолныйПутьФайла));
Возврат АдресВХ;
КонецФункции
&НаКлиенте
Процедура ПоКнВыгрузитьПрайс(Команда)
ФайлПриемник = ПолучитьИмяВременногоФайла("dbf"); //х.з. в инете нашел
Адрес = Команда2НаСервере();
ДанныеХранилища = ПолучитьИзВременногоХранилища(Адрес);
ДанныеХранилища.Записать(ИмяФайла); Показать{ВнешняяОбработка.ВыгрузкаВDBF.Форма.Форма.Форма(396)}: Ошибка при вызове конструктора (ДвоичныеДанные)
АдресВХ = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(НашПолныйПутьФайла));
по причине:
Файл не обнаружен '/tmp/PriceP.dbf'
Найденные решения
В общем как я сделал чтоб сэкономить время, завел ТЗ с колонками соответствующими в ДБФ
Сэкономил время, не пришлось переписывать процедуру заполения.
Далее на форме сделал такую же тз с такими же переменными(все неопределенного типа, чтоб не копаться)
после заполнения ТЗ на сервере делаю:
и далее на клиенте создаю свою ДБФ из табл. все заработало.
БДТ = Новый ТаблицаЗначений;
Табл.БДТ.Добавить("CODEPST");
Табл.БДТ.Добавить("NAME");
Табл.БДТ.Добавить("CNTR");
Табл.БДТ.Добавить("GDATE");
Пока Выборка.Следующий() Цикл
БД = БДТ.Добавить();
БД.CODEPST = СокрЛП(Выборка.Номенклатура.Код);
Наим = СокрЛП(Выборка.Номенклатура.НаименованиеПолное);
Если ПустаяСтрока(Наим)=Истина Тогда ПоказатьСэкономил время, не пришлось переписывать процедуру заполения.
Далее на форме сделал такую же тз с такими же переменными(все неопределенного типа, чтоб не копаться)
после заполнения ТЗ на сервере делаю:
Объект.Реквизит1.Загрузить(БДТ);
и далее на клиенте создаю свою ДБФ из табл. все заработало.
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
ПолучитьИмяВременногоФайла("dbf")возвращает длину более 8 символов, с ним dbf уже не может работать. поэтому я назначаю принудительно свое.
НашеИмяФайла= "PriceP.dbf";
НашПолныйПутьФайла = КаталогВременныхФайлов()+НашеИмяФайла;
ФайлНаДиске = Новый Файл(НашПолныйПутьФайла);
Если ФайлНаДиске.Существует() Тогда
УдалитьФайлы(НашПолныйПутьФайла);
КонецЕсли;
(13) да мой файл в темпе есть. я проверил перебором.
НайденныеФайлы = НайтиФайлы(КаталогВременныхФайлов(), "*");
Для каждого Файл из НайденныеФайлы Цикл
Если Файл.ЭтоКаталог() Тогда
Продолжить;
КонецЕсли;
ИмяФайла = Файл.ПолноеИмя;
Сообщить(ИмяФайла);
КонецЦикла;
НайденныеФайлы = НайтиФайлы(КаталогВременныхФайлов(), "*");
Для каждого Файл из НайденныеФайлы Цикл
Если Файл.ЭтоКаталог() Тогда
Продолжить;
КонецЕсли;
ИмяФайла = Файл.ПолноеИмя;
Сообщить(ИмяФайла);
КонецЦикла;
ээээ.....на форме сделайте реквизит с типом "ТаблицаЗначений", напихайте в нее нужные колонки и загружайте сразу весь результат запроса.
Если задача именно сделать DBF, то на клиенте его, однако, не создать от слова совсем.
Т.е. у вас выбора нет, кроме как просить админов настроить правильно доступ.
Если задача именно сделать DBF, то на клиенте его, однако, не создать от слова совсем.
Т.е. у вас выбора нет, кроме как просить админов настроить правильно доступ.
В общем как я сделал чтоб сэкономить время, завел ТЗ с колонками соответствующими в ДБФ
Сэкономил время, не пришлось переписывать процедуру заполения.
Далее на форме сделал такую же тз с такими же переменными(все неопределенного типа, чтоб не копаться)
после заполнения ТЗ на сервере делаю:
и далее на клиенте создаю свою ДБФ из табл. все заработало.
БДТ = Новый ТаблицаЗначений;
Табл.БДТ.Добавить("CODEPST");
Табл.БДТ.Добавить("NAME");
Табл.БДТ.Добавить("CNTR");
Табл.БДТ.Добавить("GDATE");
Пока Выборка.Следующий() Цикл
БД = БДТ.Добавить();
БД.CODEPST = СокрЛП(Выборка.Номенклатура.Код);
Наим = СокрЛП(Выборка.Номенклатура.НаименованиеПолное);
Если ПустаяСтрока(Наим)=Истина Тогда ПоказатьСэкономил время, не пришлось переписывать процедуру заполения.
Далее на форме сделал такую же тз с такими же переменными(все неопределенного типа, чтоб не копаться)
после заполнения ТЗ на сервере делаю:
Объект.Реквизит1.Загрузить(БДТ);
и далее на клиенте создаю свою ДБФ из табл. все заработало.
(1) Может кому пригодиться:
Переделывал обработку .dbf под sql, взял за пример ОбменДаннымиXML.epf (там есть возможность выбора работы на клиенте/сервере, с правами к временным файлам у меня было всё нормально)
Переделывал обработку .dbf под sql, взял за пример ОбменДаннымиXML.epf (там есть возможность выбора работы на клиенте/сервере, с правами к временным файлам у меня было всё нормально)
&НаСервере
Функция СформироватьDBF(
Таблица = Новый XBase;
Таблица.Кодировка = КодировкаXBase.OEM;
Таблица.Поля.Добавить("DocNumber","S",100,);
//*****
ПутьКНовомуDBF = КаталогВременныхФайлов()+Лев(Новый УникальныйИдентификатор(),4)+".dbf";
Объект.ИмяФайлаОбмена = ПутьКНовомуDBF;
Таблица.СоздатьФайл(ПутьКНовомуDBF,);
//**********
Таблица.ЗакрытьФайл();
АдресФайлаДанных = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Объект.ИмяФайлаОбмена), УникальныйИдентификатор);
УдалитьФайлы(Объект.ИмяФайлаОбмена);
Возврат АдресФайлаДанных;
КонецФункции
&НаКлиенте
Процедура СохранитьФайл(ИмяСохраняемогоФайла,АдресФайлаДанных)
ПолучитьФайл(АдресФайлаДанных, ИмяСохраняемогоФайла);
КонецПроцедуры Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот