Бух 7.7.607 и Книга Покупок 1137 не формируется книга
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
При загрузке из ТиС номера и даты входящих СФ форматируются в строку без разделителей.
При заполнении раздела 8 и 9 декларации по НДС не заполняются ячейки соответствующими данными.
Соответственно не проходит выгрузка.
дата и номер документа оплаты перепутаны местами.
ошибка была ещё в з квартале.
такое ощущение что 7.7 забросили.
Исправление:
В КнигеПокупок1137
В отчёте КнигаПродаж1137
При заполнении раздела 8 и 9 декларации по НДС не заполняются ячейки соответствующими данными.
Соответственно не проходит выгрузка.
дата и номер документа оплаты перепутаны местами.
ошибка была ещё в з квартале.
такое ощущение что 7.7 забросили.
Исправление:
В КнигеПокупок1137
Процедура ПоготовитьТаблицуДляДекларации()
ТаблицаДекларации.ВыбратьСтроки();
Пока ТаблицаДекларации.ПолучитьСтроку() = 1 Цикл
Если ПустоеЗначение(ТаблицаДекларации.ДатаНомер) = 0 Тогда
//СписокДатаНомерСФ = глРазложить(ТаблицаДекларации.ДатаНомер, ";");
//
//Если СписокДатаНомерСФ.РазмерСписка() = 2 Тогда
// ТаблицаДекларации.НомерСчетаФактуры = СписокДатаНомерСФ.ПолучитьЗначение(1);
// ТаблицаДекларации.ДатаСчетаФактуры = СписокДатаНомерСФ.ПолучитьЗначение(2);
//Иначе
// ТаблицаДекларации.НомерСчетаФактуры = "";
// ТаблицаДекларации.ДатаСчетаФактуры = "";
//КонецЕсли;
НомерДокумента = "";
ДатаДокумента = "";
РазделитьНомерИДату(ТаблицаДекларации.ДатаНомер, НомерДокумента, ДатаДокумента);
ТаблицаДекларации.НомерСчетаФактуры = НомерДокумента;
ТаблицаДекларации.ДатаСчетаФактуры = ДатаДокумента;
КонецЕсли;
НомерДокумента = "";
ДатаДокумента = "";
//СписокДатаНомерОплаты = глРазложить(ТаблицаДекларации.ДатаОплаты, ";");
//
//Для Сч = 1 По СписокДатаНомерОплаты.РазмерСписка() Цикл
// //номер док. - нечетный элемент списка
// //дата док. - четный
// Если Сч % 2 = 0 Тогда
// ДатаДок = СписокДатаНомерОплаты.ПолучитьЗначение(Сч);
// РазделитьНомерИДату(ДатаДок,, ДатаДок);
//
// ДатаДокумента = ДатаДокумента + ДатаДок;
//
// Если Сч < СписокДатаНомерОплаты.РазмерСписка() Тогда
// ДатаДокумента = ДатаДокумента + ";";
// КонецЕсли;
// Иначе
// НомерДокумента = НомерДокумента + СписокДатаНомерОплаты.ПолучитьЗначение(Сч);
//
// Если Сч < СписокДатаНомерОплаты.РазмерСписка() - 1 Тогда
// НомерДокумента = НомерДокумента + ";";
// КонецЕсли;
// КонецЕсли;
//КонецЦикла;
РазделитьНомерИДату(ТаблицаДекларации.ДатаОплаты, НомерДокумента, ДатаДокумента);
ТаблицаДекларации.НомерОплаты = НомерДокумента;
ТаблицаДекларации.ДатаОплаты = ДатаДокумента;
НомерДокумента = "";
ДатаДокумента = "";
ПоказатьВ отчёте КнигаПродаж1137
Процедура ПоготовитьТаблицуДляДекларации()
ТаблицаДекларации.ВыбратьСтроки();
Пока ТаблицаДекларации.ПолучитьСтроку() = 1 Цикл
Если ПустоеЗначение(ТаблицаДекларации.ДатаНомер) = 0 Тогда
//СписокДатаНомерСФ = глРазложить(ТаблицаДекларации.ДатаНомер, ";");
//
//Если СписокДатаНомерСФ.РазмерСписка() = 2 Тогда
// ТаблицаДекларации.НомерСчетаФактуры = СокрЛП(СписокДатаНомерСФ.ПолучитьЗначение(1));
// ТаблицаДекларации.ДатаСчетаФактуры = СписокДатаНомерСФ.ПолучитьЗначение(2);
//Иначе
// ТаблицаДекларации.НомерСчетаФактуры = "";
// ТаблицаДекларации.ДатаСчетаФактуры = "";
//КонецЕсли;
НомерДокумента = "";
ДатаДокумента = "";
РазделитьНомерИДату(ТаблицаДекларации.ДатаНомер, НомерДокумента, ДатаДокумента);
ТаблицаДекларации.НомерСчетаФактуры = НомерДокумента;
ТаблицаДекларации.ДатаСчетаФактуры = ДатаДокумента;
КонецЕсли;
НомерДокумента = "";
ДатаДокумента = "";
//
//СписокДатаНомерОплаты = глРазложить(СтрЗаменить(ТаблицаДекларации.ДатаОплаты, " ", ""), ";");
//
//Для Сч = 1 По СписокДатаНомерОплаты.РазмерСписка() Цикл
// //номер док. - нечетный элемент списка
// //дата док. - четный
// Если Сч % 2 = 0 Тогда
// ДатаДок = СписокДатаНомерОплаты.ПолучитьЗначение(Сч);
// РазделитьНомерИДату(ДатаДок,, ДатаДок);
//
// ДатаДокумента = ДатаДокумента + ДатаДок;
//
// Если Сч < СписокДатаНомерОплаты.РазмерСписка() Тогда
// ДатаДокумента = ДатаДокумента + ";";
// КонецЕсли;
// Иначе
// НомерДокумента = НомерДокумента + СписокДатаНомерОплаты.ПолучитьЗначение(Сч);
//
// Если Сч < СписокДатаНомерОплаты.РазмерСписка() - 1 Тогда
// НомерДокумента = НомерДокумента + ";";
// КонецЕсли;
// КонецЕсли;
//КонецЦикла;
//
РазделитьНомерИДату(ТаблицаДекларации.ДатаОплаты, НомерДокумента, ДатаДокумента);
ТаблицаДекларации.НомерОплаты = НомерДокумента;
ТаблицаДекларации.ДатаОплаты = ДатаДокумента;
Показать
(1) *Zed*, да, спотыкался уже. приходилось загружать отчет.книгапокупок из 606-го релиза. но там с фактурами на авансы была беда
хорошо, быстро вышел 608-й.
607-й выпускали 30-го декабря. видимо торопились или праздновали уже.
тоже самое было и с зарплатой и кадры 353-й
(9) 3BEPb777, спасибо. делал обработку, причесывающую записи книги продаж/покупок к формату "номер;дата".
у Вас более лаконично. только, надо будет не забывать вернуть после обновления релиза.
хорошо, быстро вышел 608-й.
607-й выпускали 30-го декабря. видимо торопились или праздновали уже.
тоже самое было и с зарплатой и кадры 353-й
(9) 3BEPb777, спасибо. делал обработку, причесывающую записи книги продаж/покупок к формату "номер;дата".
у Вас более лаконично. только, надо будет не забывать вернуть после обновления релиза.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот