|
Управляемые формы (чтение текста) |
☑ |
0
Novicadmin
08.06.14
✎
13:19
|
&НаКлиенте
Функция ПрочитатьДанныеИзФайла()
ПутьКФайлуДляЗагрузки = "C:\1C8bases\цены.csv";
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ПутьКФайлуДляЗагрузки);
возврат Текст;
КонецФункции
&НаСервере
Процедура СоздатьДокументЦеныНоменклатуры()
СимволРазделитель = ";";
Текст = ПрочитатьДанныеИзФайла();
КонецПроцедуры
{Форма.Форма.Форма(18,10)}: Процедура или функция с указанным именем не определена (ПрочитатьДанныеИзФайла)
Текст = <<?>>ПрочитатьДанныеИзФайла(); (Проверка: Сервер)
Пожалуйста подскажите что не так?
|
|
1
Wobland
08.06.14
✎
13:20
|
а не видно
|
|
2
Господин ПЖ
08.06.14
✎
13:20
|
сервер про клиента не знает ничего
|
|
3
Novicadmin
08.06.14
✎
13:21
|
ударь влоб инфой плиз, прям срочно допилить надо
(1)
|
|
4
Господин ПЖ
08.06.14
✎
13:21
|
клиент -> сервер -> возврат на клиент
|
|
5
Novicadmin
08.06.14
✎
13:21
|
файл на клиенте лежит, пожтому прочитать на сервере не получится
|
|
6
Wobland
08.06.14
✎
13:23
|
(3) &НаКлиенте
Процедура Загрузить(Команда)
ВыбранноеИмя="";
Диалог=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Фильтр=ПолучитьФильтрFB2();
Если Диалог.Выбрать() Тогда
ПоместитьФайл(Адрес, Диалог.ПолноеИмяФайла, ВыбранноеИмя, Ложь, УникальныйИдентификатор);
Модифицированность=Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Сохранить(Команда)
Диалог=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.Фильтр=ПолучитьФильтрFB2();
Если Диалог.Выбрать() Тогда
СохранитьНаСервере();
Если ЭтоАдресВременногоХранилища(Адрес) Тогда
ПолучитьФайл(Адрес, Диалог.ПолноеИмяФайла, Ложь);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
|
|
7
Novicadmin
08.06.14
✎
13:23
|
ща пробну&НаКлиенте
Функция ПрочитатьДанныеИзФайла()
ПутьКФайлуДляЗагрузки = "C:\1C8bases\цены.csv";
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ПутьКФайлуДляЗагрузки);
СоздатьДокументЦеныНоменклатуры(Текст);
КонецФункции
&НаСервере
Функция СоздатьДокументЦеныНоменклатуры(текст)
СимволРазделитель = ";";
|
|
8
Wobland
08.06.14
✎
13:23
|
&НаКлиенте
Процедура ПрочитатьСвойства(Команда)
ПрочитатьСвойстваНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПрочитатьСвойстваНаСервере()
объ=РеквизитФормыВЗначение("Объект");
ИмяФайлаСхемы=ПолучитьИмяВременногоФайла();
ПолучитьОбщийМакет("FictionBook2_xsd").Записать(ИмяФайлаСхемы);
ИмяФайлаКниги=ПолучитьИмяВременногоФайла();
Запись=РегистрыСведений.Файлы.СоздатьМенеджерЗаписи();
Запись.Книга=Объект.Ссылка;
Запись.Прочитать();
ДД=Запись.Файл.Получить();
Если ДД=Неопределено Тогда
Возврат;
КонецЕсли;
ДД.Записать(ИмяФайлаКниги);
|
|
9
Господин ПЖ
08.06.14
✎
13:23
|
суй в врем. хранилище
|
|
10
Novicadmin
08.06.14
✎
13:24
|
спасибо огромное
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший