Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 11:35

вывести в табличный документ данные по колонке дата

Автор GanG031, 30 мар 2016, 17:34

0 Пользователей и 1 гость просматривают эту тему.

GanG031

Доброго времени суток! Имеется обычная форма, на ней табличный документ, в этом документе 3 колонки: сотрудник, номер счета, дат рождения. НУжно из файла прочитать данные, и заполнить ими эту самую табличную часть. вот код:

Процедура ОсновныеДействияФормыИзФайла(Кнопка)
            ТабличнаяЧасть1.Очистить();
          ЗагружаемыйФайл = Новый ТекстовыйДокумент;
      ЗагружаемыйФайл.Прочитать(ВыборФайла, КодировкаТекста.UTF8);
      СимволРазделитель = ";";
      
      Для a = 1 по ЗагружаемыйФайл.КоличествоСтрок() Цикл   
               
                      ВременнаяСтрока =    ЗагружаемыйФайл.ПолучитьСтроку(a);
                                                                                 
                  //найдем разделитель
                  НомерСимвола = Найти(ВременнаяСтрока, СимволРазделитель);
                  
                  //найдем номер счета
                  НомерСчета =           СокрЛП(Лев(ВременнаяСтрока, НомерСимвола -1));
                  ВременнаяСтрока =   Сред(ВременнаяСтрока,НомерСимвола + 1);
                  
                   //найдем фио
                  НомерСимвола       = Найти(ВременнаяСтрока,СимволРазделитель);
                  ФИО =       СокрЛП(  Лев(ВременнаяСтрока,НомерСимвола - 1));
                  ВременнаяСтрока =   Сред(ВременнаяСтрока,НомерСимвола + 1);
                  
                  ФиоБезПробелов =  СтрЗаменить(ФИО, " ", "");
                  
                   //найдем дату рождения
                   НомерСимвола       = Найти(ВременнаяСтрока,СимволРазделитель);
                  ДатаРождения =       СокрЛП(  Лев(ВременнаяСтрока,НомерСимвола - 1));
                  ВременнаяСтрока =   Сред(ВременнаяСтрока,НомерСимвола + 1);
                                    
                  НоваяСтрокаТабличнойЧасти = ТабличнаяЧасть1.Добавить();
                  НоваяСтрокаТабличнойЧасти.СотрудникСтр = ФИО;
                  НоваяСтрокаТабличнойЧасти.ДатаРождения = ДатаРождения;
                  НоваяСтрокаТабличнойЧасти.Счет = НомерСчета;
                  

            КонецЦикла

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


Не выводит данные по колонке дата рождения(эта колонка имеет тип дата). Если исправляю тип на строка, то все прекрасно выводит, но мне нужно, что бы тип колонки был именно дата. Подскажите, как решить эту проблему? Заранее спасибо! Пробовал делать вот так: ДатаРождения =    Дата(СокрЛП(  Лев(ВременнаяСтрока,НомерСимвола - 1)));, но 1с ругается...

Rasty

вы получаете строку и суете ее в тип дата, естественно ничего не будет а нужно Дата(датарождения) и еще учитывать, что формат даты в 1с ГГГГммДДччММсс
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

GanG031

сделал Дата(ДатаРождения) = ......
ругается "Встроенная функция может быть использована только в выражении. (Дата)"
Добавлено: 30 мар 2016, 17:43


попробовал вот так еще: ДатаРождения = Дата(ДатаРождения);
но тоже что то не так....

Rasty

Цитата: Rasty от 30 мар 2016, 17:37
вы получаете строку и суете ее в тип дата, естественно ничего не будет а нужно Дата(датарождения) и еще учитывать, что формат даты в 1с ГГГГммДДччММсс
Добавлено: 30 мар 2016, 17:49


ДатаРождения из файл должна иметь вид 12345678 1234-год 56-месяц 78-день
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

vitasw

Хреново, наверное, жить с таким днем рождения

Rasty

Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск