|
Управляемые формы (чтение текста) | ☑ | ||
---|---|---|---|---|
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
|
спасибо огромное
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |