Имя: Пароль:
1C
1С v8
Управляемые формы (чтение текста)
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
спасибо огромное