Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: выгрузка РН в *.xls 1С 7.7
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
apsorry
Доброго времени суток. Столкнулся с ужасной проблемой и рассчитываю на вашу помощь.

1с 7,7 версии. Делаю обработку выгрузки расходной накладной в файл *.xls и возникла следующая проблема. при экспорте строки которая содержит дату в формате ДДММГГГГ, без точек, например 01022013 при открытии файла который получился данной обработкой я наблюдаю что из этой даты пропадает первая цифра "0"

Происходит это потому что Эксель не отображает в числе цифру "0" если он идет в начале числа, решить проблему в самом Экселе можно изменив формат ячейки но как сделать чтобы данная проблема не возникала при экспорте.

Вот часть кода.
    СтрДок = спРН.ПолучитьЗначение(i);
                    тНомерДокумента = СокрЛП(СтрДок.НомерДок) + СимволТабуляции;
                    тТнпп = "№ п/п" + СимволТабуляции;
                    тТнаим = "Название товара и его лекарственная форма" + СимволТабуляции;
                    тТсерия = "Серия" + СимволТабуляции;
                    тТсрокгод = "Срок годности" + СимволТабуляции;
                    тТпроизвод = "Производитель / Страна" + СимволТабуляции;
                    тТрегном = "Регистрационный номер документа качества" + СимволТабуляции;            
                    тТдатавыд = "Дата выдачи" + СимволТабуляции;                    
                    Т.ДобавитьСтроку(тТнпп + тТнаим + тТсерия + тТсрокгод + тТпроизвод + тТрегном + тТдатавыд);
                
                СтрДок.ВыбратьСтроки();
                Пока СтрДок.ПолучитьСтроку() = 1 Цикл
                    //Состояние("Экспорт: "+Цел(СтрДок.НомерСтроки/СтрДок.КоличествоСтрок()*100)+"%");
                    тНомерпп = + СимволТабуляции;
                    тТовар = СокрЛП(СтрДок.ТМЦ.ПолнНаименование) + СимволТабуляции;
                    тСтрана = СокрЛП("Украина") + СимволТабуляции;  
                    
                    
                    тСерия =  СокрЛП(Формат(СтрДок.Выпуск,"Д ДДММГГГГ"));
                    тСерия =  СокрЛП(СтрЗаменить(тСерия, ".", "")) + СимволТабуляции;    
                    
                    тСрокгодн =СокрЛП(Формат(СтрДок.Выпуск,"Д ДДММГГГГ"));
                    тСрокгодн =СокрЛП(ДобавитьМесяц(тСрокгодн, 24)) + СимволТабуляции;
                    
                    тРегномердок = СокрЛП(СтрДок.ТМЦ.НомДокКачества) + СимволТабуляции;
                    тДатаВыдКачДок = СокрЛП(формат(СтрДок.ТМЦ.ДатаНомДокКачества,"Д ДДММГГГГ")) + СимволТабуляции;
                    
                    Т.ДобавитьСтроку(тНомерпп + тТовар + тСерия + тСрокгодн + тСтрана + тРегномердок + тДатаВыдКачДок );
                    
                КонецЦикла;


проблемма в экспорте СЕРИИ
тСерия =  СокрЛП(Формат(СтрДок.Выпуск,"Д ДДММГГГГ")); 
тСерия =  СокрЛП(СтрЗаменить(тСерия, ".", "")) + СимволТабуляции;

Если данную вещь экспортировать в txt то проблеммы не возникает но нужный формат xls

logist
Экспортируйте дату, в формате понятном экселю. Либо экспортируйте как строку (если что строку можно обозначить в начале символом ' )
apsorry
Цитата(logist @ 22.02.13, 11:17) необходимо зарегистрироваться для просмотра ссылки
Экспортируйте дату, в формате понятном экселю. Либо экспортируйте как строку (если что строку можно обозначить в начале символом ' )

Вот если бы я знал как экспортировать в формате понятном экселю ((
logist
Разделитель даты точка или /
apsorry
Цитата(logist @ 22.02.13, 11:36) необходимо зарегистрироваться для просмотра ссылки
Разделитель даты точка или /


Решил проблему следующим путем: добавил пробел переддатой
тСерия =  Симв(160) + СокрЛП(Формат(СтрДок.Выпуск,"Д ДДММГГГГ"));


Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.