Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Перенос даты из EXCEL в справочник 1с8.1( реквизит"когда выдан")

НаходящийНепонятное
читатель
офлайн
Дата регистрации: 25.09.2009
Сообщений: 7
Пост №1
 
09.10.2009 09:39

Пишу полностью самописную базу.Вопрос: В EXCEL имеется файл Комитенты.xls, где в колонке G размещены в формате дата - даты,когда выдан документ.<br>Написал обработку - перенос из Эксель - при ее запуске строковые реквизиты переносятся прекрасно из экселя в справочник 1с8. А реквизит КогдаВыдан в справочнике остается пустая.<br>Справочники.Комитенты - реквизит КогдаВыдан - тип дата.

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №2
 
09.10.2009 09:46

Возникает вопрос, а как присваиваете - обычным "="? 1С хочет видитеть дату в виде "дд.мм.гггг ЧЧ:ММ:СС". Поставте точку прерывания и посмотрите, что получаете из Excel-я и попробуйте преобразовать дату под нужный формат.

НаходящийНепонятное
читатель
офлайн
Дата регистрации: 25.09.2009
Сообщений: 7
Пост №3
 
09.10.2009 10:15

Да, я понимаю, что формат даты 1с хочет видеть в виде "дд.мм.гггг ЧЧ:ММ:СС". Сейчас все даты в таблицах Екселя в формате "текстовый", но могут быть и другие форматы. Попробую преобразовать.

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №4
 
09.10.2009 10:30

Интересно, как тогда понимать фразу: "колонке G размещены в формате дата"?<br>Если у вас текстовый формат и вид соответствует, тогда используйте функцию Дата(...)

НаходящийНепонятное
читатель
офлайн
Дата регистрации: 25.09.2009
Сообщений: 7
Пост №5
 
09.10.2009 16:14

"Для кого интересно сделал так:<br>данные в ячейках Экселя представлены в текстовом формате.<br>12.01.2003<br>1С понимает в другом формате:<br>‘20030112000000’<br>Для этого надо вытаскивать цифры между точками, следовательно в модуль обработки пишем функцию:<br>Функция ВыделитьДаты(ИсходнаяСтрока) Экспорт<br> Буфер = СокрЛ(ИсходнаяСтрока);<br> ПозицияПослПробела = Найти(Буфер, " ");<br><br> Если ПозицияПослПробела = 0 Тогда<br> ИсходнаяСтрока = """";<br> Возврат Буфер;<br> КонецЕсли;<br> <br> ВыделенноеСлово = СокрЛП(Лев(Буфер, ПозицияПослПробела));<br> ИсходнаяСтрока = Сред(ИсходнаяСтрока, ПозицияПослПробела + 1);<br> <br> Возврат ВыделенноеСлово;<br><br> КонецФункции<br>А в процедуру ОсновныеДействияФормыКомитентыВСправочник(Кнопка)<br><br>...<br> КогдаВыданСтрока = СтрЗаменить(КогдаВыдан1,".", " ");<br> ДатДата = ВыделитьДаты(КогдаВыданСтрока);<br> ДатМесяц = ВыделитьДаты(КогдаВыданСтрока);<br> ДатГод = ВыделитьДаты(КогдаВыданСтрока);<br> ДатДата1=Лев(ДатДата,2);<br> ДатМесяц1=Лев(ДатМесяц,2);<br> ДатГод1=Лев(ДатГод,4);<br>        ДатДляПереноса = ДатГод1 + ДатМесяц1 + ДатДата1;<br> КогдаВыдан1=Дата(ДатДляПереноса);<br> <br> <br> Справочник.КогдаВыдан=КогдаВыдан1;<br>...<br><br>Все классно."

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация