|
по книге покупок в печатной форме в нашей базе не формируется итоговая сумма | ☑ | ||
---|---|---|---|---|
0
Новичок78
03.04.15
✎
05:26
|
Что делать?
|
|||
1
Cyberhawk
03.04.15
✎
05:41
|
Покажи на картинке
|
|||
2
Новичок78
03.04.15
✎
07:17
|
ячейка Всего пустая, получается - не считает итог
|
|||
3
Новичок78
03.04.15
✎
08:18
|
документ называется книга покупок по постановлению 1137
|
|||
4
Новичок78
03.04.15
✎
09:11
|
я считаю что косяк здесь:
Процедура СформироватьКнигуПокупок735(Организация,НачалоПериода, КонецПериода, ЭлементыФормы, ОтборК) Экспорт ПрефиксыРИБиОрганизации = СформироватьМассивПрефиксовДляРИБИОрганизации(Организация); ПанельРазделовКниги = ЭлементыФормы.ПанельРазделовКниги; ОсновнойРаздел = ПанельРазделовКниги.Страницы.ОсновнойРаздел; КоличествоОтображаемыхРазделов = ПанельРазделовКниги.Страницы.Количество(); Для НомерСтраницы = 1 по КоличествоОтображаемыхРазделов Цикл Если ПанельРазделовКниги.Страницы[КоличествоОтображаемыхРазделов - НомерСтраницы] = ОсновнойРаздел Тогда Продолжить; КонецЕсли; ПанельРазделовКниги.Страницы.Удалить(КоличествоОтображаемыхРазделов - НомерСтраницы); КонецЦикла; //ОсновнойРаздел = ПанельРазделовКниги.Страницы.ОсновнойРаздел; ТабличныйДокумент = ЭлементыФормы.ТабличныйДокумент; Результат = ПолучитьЗаписиКнигиПокупок(Организация,НачалоПериода, КонецПериода, ЭлементыФормы.Фильтр.Значение,ОтборК); ТабличныйДокумент.Очистить(); УчетнаяПолитикаНУ = ПолучитьПараметрыУчетнойПолитики(КонецПериода, Неопределено, Организация, "Нал"); ///////////////////////////////////////////////////////////////////////// // Макет книги покупок выбирается в зависимости от налогового периода Макет = ПолучитьМакет("КнигаПокупок735"); // Макет книги покупок выбирается в зависимости от налогового периода ///////////////////////////////////////////////////////////////////////// ЕстьЗаписиПоКолонке20 = Ложь; ///////////////////////////////////////////////////////////////////////// // Вывод шапки книги покупок Секция = Макет.ПолучитьОбласть("Шапка"); Секция.Параметры.УстановленныйОтбор = ""; Секция.Параметры.НачалоПериода = Формат(НачалоПериода, "ДФ=dd.MM.yyyy"); Секция.Параметры.КонецПериода = Формат(КонецПериода, "ДФ=dd.MM.yyyy"); Секция.Параметры.НазваниеОрганизации = Организация.НаименованиеПолное; Секция.Параметры.ИННОрганизации = "" + Организация.ИНН + ?(ЗначениеНеЗаполнено(Организация.КПП), "", ("/" + Организация.КПП)); ТабличныйДокумент.Вывести(Секция); // Вывод шапки книги покупок ///////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////// // Вывод пустой книги покупок, если данных нет Если Результат.Пустой() Тогда Секция = Макет.ПолучитьОбласть("Всего"); ТабличныйДокумент.Вывести(Секция); ///////////////////////////////////////////////////////////////////////// // Вывод подвала ВывестиПодвал(ТабличныйДокумент, Макет); // Вывод подвала ///////////////////////////////////////////////////////////////////////// СформироватьДополнительныеЛисты(Неопределено, Организация, НачалоПериода, КонецПериода, ЭлементыФормы); УстановитьКолонтитулыПоУмолчанию(ТабличныйДокумент, , Строка(глТекущийПользователь)); Возврат; КонецЕсли; // Вывод пустой книги покупок, если данных нет ///////////////////////////////////////////////////////////////////////// ДеревоЗаписей = Результат.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам); ИтогПоОрганизации = ДеревоЗаписей.Строки[0]; ///////////////////////////////////////////////////////////////////////// // Получение дополнительной информации по счетам-фактурам СписокСчетовФактур= Новый Массив(); Для каждого НалоговыеПериоды Из ИтогПоОрганизации.Строки Цикл Для каждого ПорядокОтражения Из НалоговыеПериоды.Строки Цикл СписокСФ_НП = УдалитьПовторяющиесяЭлементыМассива(ПорядокОтражения.Строки.ВыгрузитьКолонку("СчетФактура"),Истина); Для каждого СФ Из СписокСФ_НП Цикл СписокСчетовФактур.Добавить(СФ); КонецЦикла; КонецЦикла; КонецЦикла; СписокСчетовФактур = УдалитьПовторяющиесяЭлементыМассива(СписокСчетовФактур); ТаблицаДополнительнойИнформацииПоСФ = ПолучитьДополнительнуюИнформациюПоСФ(Организация, КонецПериода, СписокСчетовФактур); // Получение дополнительной информации по счетам-фактурам ///////////////////////////////////////////////////////////////////////// Секция = Макет.ПолучитьОбласть("Строка"); МоментОпределенияНалоговойБазыНДС_31122005 = Неопределено; СписокДатОплат = Новый списокЗначений(); Счетчик = 0; // Счетчик строк книги покупок Для каждого НалоговыйПериод Из ИтогПоОрганизации.Строки Цикл Для каждого ПорядокОтраженияПоДатам Из НалоговыйПериод.Строки Цикл Для каждого РазделениеПоОснованиямСФ Из ПорядокОтраженияПоДатам.Строки Цикл Для каждого ЗаписьКниги Из РазделениеПоОснованиямСФ.Строки Цикл Счетчик = Счетчик + 1; Секция.Параметры.Заполнить(ЗаписьКниги.Строки[0]); Секция.Параметры.ВсегоПокупок = ЗаписьКниги.ВсегоПокупок; Секция.Параметры.НДС = ЗаписьКниги.НДС18+ЗаписьКниги.НДС10+ЗаписьКниги.НДС0+ЗаписьКниги.НДС20; Секция.Параметры.Ном = Счетчик; СтрокаДополнительнойИнформации = Неопределено;// Дополнительная информация: Дата и номер СФ, ГТД и страна происхождения, сумма СФ ДатаНомер = ОпределитьДатуИНомерСФ(ЗаписьКниги.Строки[0], Секция,СтрокаДополнительнойИнформации); Секция.Параметры.ДатаНомер = ДатаНомер; Секция.Параметры.НомерГТД = ?(СтрокаДополнительнойИнформации = Неопределено, "", СтрокаДополнительнойИнформации.ГТДиСтрана); ///////////////////////////////////////////////////////////////////////// // По счетам-фактурам с 01.01.2006 даты оплаты выводятся в одной строке ТекстОплаты = ""; СписокДатОплат.Очистить(); Для Каждого СтрокаЗаписи Из ЗаписьКниги.Строки Цикл Если Не ЗначениеНеЗаполнено(СтрокаЗаписи.ДатаОплаты) Тогда Если СписокДатОплат.НайтиПоЗначению(Формат(СтрокаЗаписи.ДатаОплаты, "ДФ=dd.MM.yyyy")) = Неопределено тогда ТекстОплаты = ТекстОплаты + ?(ЗначениеНеЗаполнено(ТекстОплаты), "", ","+Символы.ПС) + Формат(СтрокаЗаписи.ДатаОплаты, "ДФ=dd.MM.yyyy"); СписокДатОплат.Добавить(Формат(СтрокаЗаписи.ДатаОплаты, "ДФ=dd.MM.yyyy")); КонецЕсли; КонецЕсли; КонецЦикла; // По счетам-фактурам с 01.01.2006 даты оплаты выводятся в одной строке ///////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////// // По счетам-фактурам до 01.01.2006 в некоторых случаях устанавливается признак "Частичная оплата" //попытка Если не ЗаписьКниги.НаАванс и ЗаписьКниги.СчетФактураДата < '20060101' и не СтрокаДополнительнойИнформации = Неопределено и не ПустаяСтрока(ТекстОплаты) и ЗаписьКниги.ВсегоПокупок > 0 и ЗаписьКниги.ВсегоПокупок < СтрокаДополнительнойИнформации.СуммаСНДС Тогда ТекстОплаты = ТекстОплаты + " частичная оплата"; КонецЕсли; //исключение // кдв = 1; //конецпопытки; // По счетам-фактурам до 01.01.2006 в некоторых случаях устанавливается признак "Частичная оплата" ///////////////////////////////////////////////////////////////////////// //Секция.Параметры.ДатаОплаты = ТекстОплаты + ", " + ПолучитьНомерНаПечать(ЗаписьКниги.СчетФактура,ПрефиксыРИБиОрганизации); //Секция.Параметры.Валюта = "Российский рубль, 810"; //Секция.Параметры.КодОперации = "01"; Если ТИпЗнч(ЗаписьКниги.СчетФактура) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда Секция.Параметры.КодОперации = ?(ЗначениеЗаполнено(ЗаписьКниги.СчетФактура.ВидОперацииНДС),ЗаписьКниги.СчетФактура.ВидОперацииНДС.Код,"01"); Иначе Секция.Параметры.КодОперации = "01"; КонецЕсли; ПроставитьпрочеркиВПустыеПоля(Секция); ТабличныйДокумент.Вывести(Секция); КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; // Вывод всего Секция = Макет.ПолучитьОбласть("Всего"); Секция.Параметры.Заполнить(ИтогПоОрганизации); ТабличныйДокумент.Вывести(Секция); ///////////////////////////////////////////////////////////////////////// // Вывод подвала ВывестиПодвал(ТабличныйДокумент, Макет); // Вывод подвала ///////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////// // Повтор шапки таблицы на каждой строке ТабличныйДокумент.ПовторятьПриПечатиСтроки = ТабличныйДокумент.Область("СтрокиДляПовтора"); // Повтор шапки таблицы на каждой строке ///////////////////////////////////////////////////////////////////////// УстановитьКолонтитулыПоУмолчанию(ТабличныйДокумент, , Строка(глТекущийПользователь)); СформироватьДополнительныеЛисты(ДеревоЗаписей, Организация,НачалоПериода, КонецПериода, ЭлементыФормы, УчетнаяПолитикаНУ); КонецПроцедуры |
|||
5
stix2010
03.04.15
✎
12:53
|
ни звука про конфигурацию
|
|||
6
Новичок78
06.04.15
✎
07:23
|
конф 8.2.19 БП 1.0
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |