помогите с кодом

  • Автор темы Автор темы nub
  • Дата начала Дата начала
N

nub

Хочу создать DBF файл с тремя полями и выгрузить в него справочник тарифы,Вот код
&НаКлиенте
Процедура выгрузка(Команда)
ФайлBBP =Новый XBase;
ФайлBBP.поля.Добавить("Name","S",100);
ФайлBBP.поля.Добавить("Bep","S",5,0);
ФайлBBP.поля.Добавить("Sum","N",10,2);
ФайлBBP.Кодировка = КодировкаXBase.OEM; //кодировка BOS
ФайлBBP.СоздатьФайл("C:\Documents and Settings\user\Рабочий стол");
Тарифы = Справочники.Тарифы.Выбрать();
Пока Тарифы.Следующий() Цикл
ФайлBBP.Добавить();
ФайлBBP.Name =Тарифы.ТарифыПоЗонам;
ФайлBBP.Ber =Тарифы.ОдноставочныйТариф;
ФайлBBP.Sum =Тарифы.ДвуставочныйТариф;
ФайлBBP.Записать();
КонецЦикла;
ФайлBBP.ЗакрытьФайл();
КонецПроцедуры

пишет ошибку
{Справочник.Тарифы.Форма.ФормаЭлемента.Форма(26,10)}: Переменная не определена (Справочник)
Тарифы =<<?>>Справочник.Тарифы.Выбрать(); (Проверка: Тонкий клиент
может помочь кто нибудь?
 
На клиенте менеджер справочника недоступен. Выгружайте на сервере. Переместите все в серверную процедуру, и вызывайте ее из своей.
Однако, если вариант скульный, путь будет искаться с сервера... придется использовать временное хранилище.
 
Переменная не определена (Справочник)
Нажмите, чтобы раскрыть...

Да не верю! В сообщении об ошибке: Тарифы = Справочник.
а должно быть Справочники
Чтобы 1С сама извратила слово - такого не знаю.

Далее. Сообщение выдала "Проверка: Тонкий клиент". Я этим вариантом клиента не пользуюсь, но подозреваю, что unknown181538 прав, что и не заработает. Может Запросом справочник получить?
 
Дайнеко сказал(а):
Да не верю! В сообщении об ошибке: Тарифы = Справочник.
а должно быть Справочники
Чтобы 1С сама извратила слово - такого не знаю.

Далее. Сообщение выдала "Проверка: Тонкий клиент". Я этим вариантом клиента не пользуюсь, но подозреваю, что unknown181538 прав, что и не заработает. Может Запросом справочник получить?
Нажмите, чтобы раскрыть...
поменял клиент на сервер всё заработало,вот только значения не вводятся



Добавлено: при обратной процедуре
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ФайлBBP =Новый XBase;
ФайлBBP.ОткрытьФайл("C:\Documents and Settings\user\Рабочий стол\електро\Мощность", Истина);
ФайлBBP.Первая();
Пока НЕ ФайлBBP.ВКонце() Цикл
Сотрудники =Справочники.Сотрудники.СоздатьЭлемент();
Сотрудники.Организация =ФайлBBP.DTA;
Сотрудники.Должность =ФайлBBP.KOL;
Сотрудники.Записать();
ФайлBBP.Следующая();
КонецЦикла;
ФайлBBP.ЗакрытьФайл();

КонецПроцедуры

не каких ошибок не пишет,переходишь в режим пользователя,открываешь справочник пишет ошибку

{Справочник.Сотрудники.Форма.ФормаЭлемента.Форма(6)}: Ошибка при вызове метода контекста (Первая): Перед выполнением операции нужно открыть базу
ФайлBBP.Первая();
по причине:
Перед выполнением операции нужно открыть базу
 
Мне вот такая строка с первого раза не понравилась:
ФайлBBP.ОткрытьФайл("C:\Documents and Settings\user\Рабочий стол\електро\Мощность", Истина);

Ну несерьезно так указывать имя файла прямо в тексте программы! Надо спросить у пользователя.
Сначала решил не писать свое замечание. А тут вижу что, плохой стиль письма всегда создает проблемы.
Да причина одна - файл не создался. Еще со времен 7-ки методы работы с DBF ОткрытьФайл(), СоздатьФайл() не давали никакой реакции в случае неудачи. Поэтому я делаю так:
Код: 
		Рез.СоздатьФайл(ИмяФайла);
Если НЕ(Рез.Открыта() = 1) Тогда
Предупреждение ("Не могу создать файл:"+ ИмяФайла+ "
|Проверьте права на запись", 10);
Возврат;
КонецЕсли;
 
Дайнеко сказал(а):
Мне вот такая строка с первого раза не понравилась:
ФайлBBP.ОткрытьФайл("C:\Documents and Settings\user\Рабочий стол\електро\Мощность", Истина);

Ну несерьезно так указывать имя файла прямо в тексте программы! Надо спросить у пользователя.
Сначала решил не писать свое замечание. А тут вижу что, плохой стиль письма всегда создает проблемы.
Да причина одна - файл не создался. Еще со времен 7-ки методы работы с DBF ОткрытьФайл(), СоздатьФайл() не давали никакой реакции в случае неудачи. Поэтому я делаю так:
Код: 
		Рез.СоздатьФайл(ИмяФайла);
Если НЕ(Рез.Открыта() = 1) Тогда
Предупреждение ("Не могу создать файл:"+ ИмяФайла+ "
|Проверьте права на запись", 10);
Возврат;
КонецЕсли;
Нажмите, чтобы раскрыть...


так вы делаете в 8-ки?
 
Это фрагмент из 7-ки. Суть та-же. После команды Создать и Открыть проверяю на Открыта()
Только так программа может убедится, что файл создался или открылся.

Добавлено:
nub сказал(а):
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ФайлBBP =Новый XBase;
ФайлBBP.ОткрытьФайл("C:\Documents and Settings\user\Рабочий стол\електро\Мощность", Истина);
Нажмите, чтобы раскрыть...

Потом я подумал. Процедура выполняется на сервере. А файл с этим длинным именем где находится? На вашем локальном?
 
Дайнеко сказал(а):
Это фрагмент из 7-ки. Суть та-же. После команды Создать и Открыть проверяю на Открыта()
Только так программа может убедится, что файл создался или открылся.

Добавлено:

Потом я подумал. Процедура выполняется на сервере. А файл с этим длинным именем где находится? На вашем локальном?
Нажмите, чтобы раскрыть...
да
 
Определись, что тебе надо. Самой простой случай - только под толстого клиента. Тогда верни &НаКлиенте и запрограммируй нормальный диалог выбора файла. А чтобы 1С не выпендривалась - отключить проверку синтаксиса для тонкого клиента.
Если же для тонкого нужно, то надо мудрить как пишет, нет, намекает unknown181538 про какое-то хранилище.
 
Дайнеко сказал(а):
Определись, что тебе надо. Самой простой случай - только под толстого клиента. Тогда верни &НаКлиенте и запрограммируй нормальный диалог выбора файла. А чтобы 1С не выпендривалась - отключить проверку синтаксиса для тонкого клиента.
Если же для тонкого нужно, то надо мудрить как пишет, нет, намекает unknown181538 про какое-то хранилище.
Нажмите, чтобы раскрыть...
спасибо за мощь,но она не потребовалась
 
адрес временного хранилища делаем реквизитом формы (невидимым конечно).
Файл помещаем в него на клиенте, а на сервере извлекаем, и записываем в каталог временных файлов.
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ