Имя: Пароль:
1C
1С v8
по книге покупок в печатной форме в нашей базе не формируется итоговая сумма
,
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