Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Запись данных в табличное поле (http://forums.kuban.ru/f1040/zapis-_dannyh_v_tablichnoe_pole-5604512.html)

Inna110850 09.04.2014 14:53

Запись данных в табличное поле
 
Здравствуйте. Подскажите пожалуйста. Создается обработка. В форму вставлена ТаблицаЗначений.Колонки у нее меняются взависимости от выбранного банка. Проблема в том что присчитывании данных из текстового файла данные в таблицу не записываются.

ИначеЕсли Банк="Интеркама" Тогда
Сообщить("======== Начало обработки файлов для объединения и выгрузки в банк Интеркама ======= ");
Пользователь="";

Для каждого Строка Из Список Цикл
Если строка.Пометка=Истина ТОгда
Пользователь=Строка.Значение;
ПутьКФайлу=Диск+"Users\"+Пользователь+"\Zarplata\Interkama\";
Сообщить("Начало загрузки с "+ПутьКФайлу);
НайденныеФайлы=НайтиФайлы(ПутьКФайлу,"*.075");

Для каждого файла из НайденныеФайлы Цикл
ДатаСозданияФайла=Формат(Файла.получитьВремяИзменения(),"ДФ=dd.MM.yyyy");
Если ДатаСозданияФайла=Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy") ТОгда
//Текст = Новый ЧтениеТекста(Файла.полноеИмя,КодировкаТекста.ANSI);
//Стр = Текст.Прочитать();
//сообщить(стр);
Текст.Прочитать(Файла.ПолноеИмя);
Текст.УстановитьТипФайла(КодировкаТекста.OEM);

Для номерстроки=1 по Текст.КоличествоСтрок()Цикл
Сообщить(Текст.ПолучитьСтроку(номерстроки));
Стр=Текст.ПолучитьСтроку(НомерСтроки);

СтрокаТаблицы=ЭлементыФормы.ТЗ.ТекущаяСтрока;
**** СтрокаТаблицы.Таб=Сред(Стр,1,14
);

КонецЦикла;
Иначе
Сообщить("Файл "+Файла.ПолноеИмя+" НЕ ЗАГРУЖЕН, дата создания "+ДатаСозданияФайла+" сегодня "+ТекущаяДата()+" возможно это старый файл, перед загрузкой очистите каталоги от старых файлов.");
возврат;
КонецЕсли;
Конеццикла;
КонецЕсли;
КонецЦикла;

Сообщить("======== Конец обработки файлов для объединения и выгрузки в банк Интеркама ======= ");
КонецЕсли;

Пишет что Значение не является значением объектного типа (таб)

roma n 09.04.2014 14:59

1) В форму нельзя вставить ТаблицуЗначений. Можно элемент управления "Табличное поле" поставщиком данных для которого будет таблица значений.
2) Для добавления строк в коллекцию строк таблицы значений есть методы Добавить() и Вставить(). Не увидел их в приведённом куске кода.

Inna110850 09.04.2014 15:11

(1) В форму вставлен элемент управления, который просто назван ТЗ.

Получилось. Спасибо. странно а ведь так тоже пробовала

Inna110850 09.04.2014 15:22

(0) Можно еще вопрос. хоть и ставишь кодировку виндовс. все равно текстовая часть файла в dos-кодировки.В чем ошибка?

Текст.УстановитьТипФайла(КодировкаТекста.Ansi);

Uho 09.04.2014 16:28

Описание:

Устанавливает кодировку файла, в которой будет сохранен текстовый документ при интерактивной записи (например, при выборе пункта "Файл - Печать").

user1C 09.04.2014 16:30

(3)
в какой кодировке приходят файлы из банка?

Inna110850 10.04.2014 06:39

(5) dos

Inna110850 10.04.2014 07:05

(6) Пишу Текст.Прочитать(Файла.ПолноеИмя,КодировкаТекста.ANSI); все равно выходят калябаля

Uho 10.04.2014 09:21

7-Inna110850 > а прочитать в дос-кодировке религия не позволяет?

user1C 10.04.2014 09:27

(7)
ты указываешь здесь кодировку совсем не для дос...
нужно .OEM или "cp866"

Inna110850 10.04.2014 09:43

(9) спасибо большое.


Текущее время: 21:08. Часовой пояс GMT +3.