[IPopovich]

Здравствуйте,
читал, искал, пробовал - все тщетно:(
Потому прошу о помощи. С 1с 7.7 знаком плохо, потому прошу не пинать сильно.

Есть бухгалтерия 1 7.7, конфигурация "Бухгалтерский учет", также добавлены внешние отчеты "Додатково для конфігурації "Бухоблік для України". Среди тех отчетов есть "Кредиторська заборгованість контрагентів", которая, логично, формирует кредиторскую задолженость предприятия перед контрагентами (причем можно выбирать выводить по накладным). Главбух дал задачу добавить срок оплаты по каждой накладной в этот отчет.

Самое простое сделал - добавил в приходную накладную новый реквизит "СрокОплаты", открыл отчет и, к сожалению, ничего не понял.

Пожалуйста подскажите каким образом можно добавить дату при выводе кредиторки?
Вот код, которій отвечает за вывод по накладным (заказам)


code

Если ПоДоговорам=1 Тогда
                //расшифровываем по заказам
                Ит.ВыбратьСубконто(2);
                Пока Ит.ПолучитьСубконто(2)=1 Цикл
                    Договор=Ит.Субконто(2);
                    Расшифровка.Установить("Меню",Меню);
                    Расшифровка.Установить("ВидСубконто1",ВидыСубконто.Контрагенты);
                    Расшифровка.Установить("Субконто1",Контрагент);
                    Расшифровка.Установить("ВидСубконто2",ВидыСубконто.Заказы);
                    Расшифровка.Установить("Субконто2",Договор);
                    Расшифровка.Установить("ПланСчетов",ВыбранныйПланСчетов());
                    Расшифровка.Установить("ОтборСубконто1",2);
                    Расшифровка.Установить("ОтборСубконто2",2);
                    Расшифровка.Установить("ПоГруппам1",0);
                    Расшифровка.Установить("ПоГруппам2",0);
                    Расшифровка.Установить("ДанныеПоСубсчетам",1);
                            
                    СальдоДоговор=Ит.СКД()-Ит.СКК();
                    Расшифровка.Установить("Сальдо",СальдоДоговор);
                    ПрихДолгДоговор=0;
                    РасхДолгДоговор=0;
                    ДолгНачДоговор=0;
                    Если (ДолгНам=1)и(ДолгНаш=0) Тогда
                        Если СальдоДоговор<=0 Тогда
                            Продолжить;
                        КонецЕсли;
                    КонецЕСли;
                    Если (ДолгНаш=1)и(ДолгНам=0) Тогда
                        Если СальдоДоговор>=0 Тогда
                            Продолжить;
                        КонецЕсли;
                    КонецЕСли;
                    Если (ДолгНаш=0)и(ДолгНам=0) Тогда
                        Продолжить;
                    КонецЕсли;
                    Если Макс(СальдоДоговор,(-1)*СальдоДоговор)>СуммаДолга Тогда
                        // теперь заполним таблицу приходов расходов
                        // и посчитаем ПриходОбщий по контрагенту
                        // причем заполняем также как и таблицу БИ начиная с самого раннего
                        ТабКонтр.УдалитьСтроки();
                        ПриходОбщийДоговор = 0;
                        ПерваяСтрокаДоговор = 1;
                        ТабБИ.ВыбратьСтроки();
                        Пока ТабБИ.ПолучитьСтроку() = 1 Цикл
                            БИТек = ТабБИ.БИ;
                            БИТек.ВыбратьСубконто(1);
                            ПрихДолгДоговор=0;
                            РасхДолгДоговор=0;
                            ТабКонтр.НоваяСтрока();
                            Если БИТек.ПолучитьСубконто(1,,Контрагент) = 1 Тогда 
                                БИТек.ВыбратьСубконто(2);
                                Если БИТек.ПолучитьСубконто(2,,Договор)=1 Тогда
                                    Если ПерваяСтрокаДоговор = 1 Тогда
                                        ДолгНачДоговор=БИТек.СНД()-БИТек.СНК();
                                        ПерваяСтрокаДоговор = 0;
                                    КонецЕсли;    
                                    ТабКонтр.ПрихДолг = БИТек.ДО();
                                    ТабКонтр.РасхДолг = БИТек.КО();
                                    Если СальдоДоговор > 0 Тогда
                                        ПриходОбщийДоговор = ПриходОбщийДоговор + Макс(0,ТабКонтр.РасхДолг);
                                    Иначе
                                        ПриходОбщийДоговор = ПриходОбщийДоговор + Макс(0,ТабКонтр.ПрихДолг);
                                    КонецЕсли;    
                                КонецЕсли;
                            КонецЕсли;
                        КонецЦикла;        
                        ТабДляПечати.УдалитьСтроки();
                        Если СальдоДоговор>0 Тогда
                            // А теперь считаем и записываем в ТабДляПечати чтобы проще выводить
                            // правда в обратном порядке
                            ДолгВсегоДоговор=СальдоДоговор; 
                            ДолгОбщийДоговор=ДолгВсегоДоговор;
                            ВознДолг4Договор=Макс(0,ДолгНачДоговор-ПриходОбщийДоговор);
                            УменьшениеДолгаДоговор=Макс(ДолгНачДоговор,ДолгНачДоговор-ПриходОбщийДоговор);
                            ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                            ТабКонтр.ВыбратьСтроки();
                            Пока ТабКонтр.ПолучитьСтроку() = 1 Цикл
                                ПДДоговор=ТабКонтр.ПрихДолг-Мин(0,ТабКонтр.РасхДолг);
                                ВознДолгДоговор=Макс(0,ПДДоговор-ПриходОбщийДоговор);
                                УменьшениеДолгаДоговор=Макс(ПДДоговор,ПДДоговор-ПриходОбщийДоговор);
                                ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                                ТабДляПечати.НоваяСтрока();
                                ТабДляПечати.ВознДолг = ВознДолгДоговор;
                            КонецЦикла;    
                        Иначе
                            ДолгВсегоДоговор=СальдоДоговор; 
                            ДолгОбщийДоговор=ДолгВсегоДоговор;
                            ВознДолг4Договор=Мин(0,ДолгНачДоговор + ПриходОбщийДоговор);
                            УменьшениеДолгаДоговор=Мин(-ДолгНачДоговор,ПриходОбщийДоговор);
                            ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                            ТабКонтр.ВыбратьСтроки();
                            Пока ТабКонтр.ПолучитьСтроку() = 1 Цикл
                                ПДДоговор=ТабКонтр.РасхДолг-Мин(0,ТабКонтр.ПрихДолг);
                                ВознДолгДоговор=-Макс(0,ПДДоговор-ПриходОбщийДоговор);
                                УменьшениеДолгаДоговор=Макс(ПДДоговор,ПДДоговор-ПриходОбщийДоговор);
                                ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                                ТабДляПечати.НоваяСтрока();
                                ТабДляПечати.ВознДолг = ВознДолгДоговор;
                            КонецЦикла;    
                        КонецЕсли;                
                        Если ((ВознДолг4Договор > 0) и (ДолгНам = 1)) или ((ВознДолг4Договор < 0) и (ДолгНаш = 1)) Тогда
                            НазваниеСтрокиДоговор = "ДолгДоговор";
                        Иначе
                            НазваниеСтрокиДоговор = "СтрокаДоговор";
                        КонецЕсли;
                        Таб.ВывестиСекцию(НазваниеСтрокиДоговор+"|Сальдо");
                        i = Глубина + 1;
                        Пока i > 0  Цикл
                            ВознДолгДоговор = ТабДляПечати.ПолучитьЗначение(i,"ВознДолг");
                            Таб.ПрисоединитьСекцию(НазваниеСтрокиДоговор+"|Долг1");
                            i = i - 1;
                        КонецЦикла;    
                        Таб.ПрисоединитьСекцию(НазваниеСтрокиДоговор+"|ДолгРанее");
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    ИтСальдо = Итоги[1];
    Таб.ВывестиСекцию("Итог|Сальдо");
    Для i = 2 По Глубина + 3 Цикл
        ИтСальдо = Итоги[i];
        Таб.ПрисоединитьСекцию("Итог|Долг1");
    КонецЦикла;    
    Таб.Опции(0,0,4,2);
    Таб.ТолькоПросмотр(1);  
    Таб.ОбластьПечати(2,);
    Таб.ПовторятьПриПечатиСтроки(3,4);
    Таб.ПараметрыСтраницы(1,,,5,5,5,5,0,5,1,1);
    Таб.Показать("Задолженость организаций","");
КонецПроцедуры
//*******************************************

Подскажите куда копать:(
Спасибо.

[Zaval]

Прежде всего: в БухУчете копать - это примерно как с тигрицей тра..ться. Удовольствие сомнительное, а риск большой.
Законы меняются часто и непредсказуемо.
1с77 - уже давно не приоритетный продукт, обновления выходят "впритык" и зачастую "задней ногой деланые".
А еще Вы

С 1с 7.7 знаком плохо

"покопаете, куда кто-то на форуме скажет".
А сроки предоставления регламентированной отчетности никто не отменял.

С другой стороны: если Вам нужна кредиторка с анализом по срокам задолженности - Вы явно засиделись на БухУчете. Походу, пора подумать над инфсистемой и постановкой учета.
Причем хорошо подумать. Слухи о прекращении поддержки 1с77 ходят уже не один год...

И, собсно, что не так с отчетом? Обрывается с ошибкой? Пустой возвращается? Какому-либо другому(какому именно и в чем?) отчету противоречит?

Сообщение отредактировал Zaval - 23.12.13, 20:01

[IPopovich]

Спасибо, что откликнулись.
Произошла смена собственника компании, и, скорее всего, будет произведена обновление 1с до актуальной версии, но передо мной, как приходящим админом, эта задача не стоит.
Главбух попросила настроить - некуда деваться, нужно помочь:(

Собственно с отчетом все хорошо, то есть он выдает отдельные накладные с задолженостью (если выбрать опцию "отбирать по заказам") но как туда приклеить конечную дату оплаты из приходных накладных - не могу понять.

Если эта проблема есть ничто иное как ТЗ, будьте добры подскажите что читать. Спасибо.

[Sanyk]

to Zaval. Що б добавити одну колонку в звіт, пропонують змінити програму. Мда. Люди вже зовсім совість втратили.

Тепер по суті. Скоріше за все, цей код зовсім не треба змінювати (так як ставиться задача просто вивести дату). Доопрацювати треба таблицю виводу інформації (шаблон друку). Документ Ви вже виводите в звіт, тобто посилання на документ є. Тобто, добавивши колонку з кодом на зразок "ТекДок.ДатаОплаты" ви отримаєте очікуваний результат.

[Zaval]

to Zaval. Що б добавити одну колонку в звіт, пропонують змінити програму. Мда. Люди вже зовсім совість втратили.

Гірше, люди не здатні осмислити кілька рядків тексту, і починають щось вигадувати.

но как туда приклеить конечную дату оплаты из приходных накладных - не могу понять.

Что значит "приклеить"?
Просто вывести дату в ячейке с документом(нпр. в скобках) ?
Вывести дату в отдельной колонке?
Сгруппировать отчет по датам оплаты, чтобы получилось подобие платежного календаря?



Сообщение отредактировал Zaval - 24.12.13, 13:51

[Sanyk]

Гірше, люди не здатні осмислити кілька рядків тексту, і починають щось вигадувати.

Що там є для осмислення? Людина задала просте питання, як добавити одну колонку в звіт. На це від Вас отримала відповідь на довжиною з 10 строк, кожна з яких, жодного стосунку не мала до поставленого питання.

[IPopovich]

Давайте не будем сваритися, сьогодні ж свят вечір:)

"Вывести дату в отдельной колонке?" - именно так. То есть при проведении приходной накладной указываем конечную дату проплаты по ней, а в кредиторке она отображается в отдельной колонке.

[Zaval]

Sanyk, у тих рядках(якщо Вам несила зрозуміти) - пояснення деяких загальних особливостей нової для автора сфери діяльності. А ще - запитання...
А головне - я Вам нічого не винен, Ваших оцінок не потребую.
Можете відповісти автору - відповідайте нарівні своїх розумових здібносте, тема присвячена не моїй особі, тож "не відхиляйтесь".

[Vofka]

Zaval, пожалуйста, обратите внимание на правила, пункт 23.

[Zaval]

"Вывести дату в отдельной колонке?" - именно так.

Когда откроете отчет в Конфигураторе(двойным кляцом) - там будут внизу закладки Таблица и Таблица_Укр
Там таблички наподобие экселевских.


Стоп, не так... Закройте отчет. В окне Конфигурация щелкните на нем правой и Сохранить в файл.
Когда все сделаете - вернете обратно.
Открывайте файл, смотрите таблицы.
Прежде всего - ячейка, в которую выводится документ. Она одиночная или объединена из нескольких?
Красным выделены секции, имена секций - слева, ищите "Строка" или что-то такое...