Привет всем
Задача следующая  создать отчет по дебиторской задолженности
В отчете должны быть две печатных формы в первой из них  должны быть строки со свернутыми по «Контрагенту» значениями, а вторая должна  разворачивать по документам
Проблем с первой не возникло,  а вот со второй проблемы есть
Данные берутся со счетаПоКолу(дц)
ДЦ = Субуонто 1 = Контрагенты, Субконто2 = Накладная  счетДЦ является Количественным и суммовым  в количество падает отгруженное НДС  а сумму Отгруженная СуммаСНДС
Документом оплаты является Документ. Вид() = «Закрытие Накладных» проводка у него идет на счет ДЦ по кредиту
А в проводке накладной на счет ДЦ по дебету
Из этого понятно, что для первой таблице, у которой колонки следующих наименований
Контрагент , УНН, Р/С, Сумма Долга, СуммаДолгаПросроченная
Сумма Долга = БИ.СКД  а  СуммаДолгаПросроченная по условию если она просрочена тогда тоже СКД
Так вот
Проблема возникла с таблицей, №2 у которой колонки
Накладная , Дата, Сумма Отгрузки, Сумма Оплаты
Сумма Отгрузки = ДЦ.ДО , а сумма Оплаты = ДЦ,КО
ДО по дц я то получить могу это у меня получается а вот КО с сумма для того же документа не получается

Вот код
Перем Контрагент;
Процедура ПриОткрытии()
   Дата_ = РабочаяДата();
   Форма.КнопкаПоУмолчанию("Сформировать");
КонецПроцедуры  
//*******************************************
Процедура Сформировать()
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("Контрагент");
   ТЗ.НоваяКолонка("УНН");
   ТЗ.НоваяКолонка("РС");
   ТЗ.НоваяКолонка("СуммаОбщая");
   ТЗ.НоваяКолонка("СуммаПросроченная");
   спрБанка = СоздатьОбъект("Справочник.БанковскиеСчета");
   СпрДоговора = СоздатьОбъект("Справочник.Договоры");
   //*******************************************
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Ит_1 = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
   Ит_1.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Ит_1.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,"Операция");
   Ит_1.ВыбратьСубконто(1);
   Пока Ит_1.ПолучитьСубконто(1) = 1 Цикл
       Ит_1.ВыбратьСубконто(2);
       Пока Ит_1.ПолучитьСубконто(2) = 1 Цикл
           СуммаОплат = "";
           Если Ит_1.СКД("С") <> 0 Тогда
               Если Ит_1.Субконто(2).Вид() = "РасходТовара" Тогда
                   спрБанка.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
                   ТЗ.НоваяСтрока();
                   ТЗ.Контрагент            = Ит_1.Субконто(1);
                   ТЗ.УНН                   = Ит_1.Субконто(1).УНН;
                   спрБанка.ВыбратьЭлементы();
                   Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
                       Если Число(спрБанка.Код) = 1 Тогда
                           ТЗ.РС          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета);
                       КонецЕсли;
                   КонецЦикла;
                   Ит_1.ВыбратьПериоды();
                   Пока Ит_1.ПолучитьПериод() > 0 Цикл
                       Если Ит_1.Операция.Документ.ТекущийДокумент().Вид() = "ЗакрытиеНакладных" Тогда
                           Если Ит_1.Операция.Документ.ПриходныйДокумент = Ит_1.Субконто(2).ТекущийДокумент() Тогда
                               Сообщить(Ит_1.Операция.Сумма+" - "+ "СуммаОтгрузки="+" - " +Ит_1.ДО("С"));
                           КонецЕсли;
                       КонецЕсли;
                   КонецЦикла;
                   ТЗ.СуммаОбщая            = Ит_1.СКД("С");
                   //********************************************************
                   СпрДоговора.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
                   СпрДоговора.ВыбратьЭлементы();
                   Пока СпрДоговора.ПолучитьЭлемент() = 1 Цикл
                       Если СпрДоговора.Наименование = Ит_1.Субконто(2).Договор.Наименование Тогда
                           ДнейДляТреб         = СпрДоговора.ДнейОплаты;
                       КонецЕсли;
                   КонецЦикла;
                   ДатаДока = Ит_1.Субконто(2).ДатаДок;
                   ЧислоДняСПросрочкой  = ДатаДока + ДнейДляТреб;
                   Если ЧислоДняСПросрочкой < Дата_ Тогда    
                       ТЗ.СуммаПросроченная     =  = Ит_1.СКД("С");
                   КонецЕсли;
               КонецЕсли;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   ТЗ.Свернуть("Контрагент,УНН,РС","СуммаОбщая,СуммаПросроченная");
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Контрагент        = ТЗ.Контрагент;
       УНП               = ТЗ.УНН;
       РачетныйСчет      = ТЗ.РС;
       СуммаОбщая        = ТЗ.СуммаОбщая;
       СуммаПросроченная = ТЗ.СуммаПросроченная;
       Таб.ВывестиСекцию("Строка");
   КонецЦикла;
   Таб.ПараметрыСтраницы(2, , , , , , , , , 1);
   Таб.Опции(0, 0, 6, 13, "дебиторская задолжность");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("дебиторская задолжность");
КонецПроцедуры
//*******************************************//Расшифровка Док+Дата+СуммаОтгрузки+СуммаОплаты
Процедура ОбработкаЯчейкитаблицы(Контрагент)
   ФлагСтандОбраб = 0;
   Табл = СоздатьОбъект("Таблица");
   Табл.ИсходнаяТаблица("Расшифровка");
   Табл.ВывестиСекцию("Шапка");
   Би = СоздатьОбъект("БухгалтерскиеИтоги");
   Док_ = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,"Операция");
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
               Сумма2 = "-";
               дОК = Би.Субконто(2);
               ДатаДока = Би.Субконто(2).ДатаДок;
               Сумма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
               Табл.ВывестиСекцию("Строка");
               Сумма = "-";
               Док_.ВыбратьДокументы(НачГода(Дата_),Дата_);
               Пока Док_.ПолучитьДокумент() = 1 Цикл
                   Если Док_.Вид() = "ЗакрытиеНакладных" Тогда
                       Док_.ВыбратьСтроки();
                       Пока Док_.ПолучитьСтроку() = 1 Цикл
                           Если Док_.ПриходныйДокумент = Би.Субконто(2).ТекущийДокумент() Тогда
                               Если Док_.Контрагент = Би.Субконто(1).ТекущийЭлемент() Тогда
                                   дОК = Док_;
                                   ДатаДока = Док_.ДатаДок;
                                   Сумма2 = Док_.СуммаОплаты;    
                                   
                                   Табл.ВывестиСекцию("Строка");
                               КонецЕсли;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   Табл.ПараметрыСтраницы(2, , , , , , , , , 1);
   Табл.Опции(0, 0, 5, 5, "Расшифровка");
   Табл.ТолькоПросмотр(1);
   Табл.Показать("Расшифровка");
КонецПроцедуры

Помогите пожалуйста разобраться

Ну и каша...

помаги (1) съесть эту кашу

(1) помоги пожалуйста

ну вот попуталя более подробно описать что б удобней было все равно все нетк

Четверг день запросов у 1сников чтоли...

(5) помаги

(6) Для начала научись пользоваться расшифровкой

да некогда мне учиться мне уже делать нужноя уже вторую неделю с этим отчетом борюсь

да расшифровкой я пользоваться не умею  помагите я обещаю что научусь!

сменить вид деятельности еще не предлагали? -)

нет! ребят хорош меня унижать мне не предлогают сменить вид деятельности вы тоже начина с этого

(9) Тогда начни с изучения русского языка, а то глаза режет

ХОРОШО вымне поможете или дальше опускать будете?

люди ну помагите ну пожалуйста!

Там у тебя по кредиту есть движения по ДЦ по документу "Закрытие Накладных"
И вообще где у тебя тут попытки получить оборот крелитовый?
И что-то не могу понять, ты тут сравниваешь сальдо конечное кредитовое, а дебетовое где?

продолжение прошлых веток? объединил в одну?

я в место ДО использовал Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");

(17) И с чего ты берешь что это дебетовый оборот а не кредитовый?

Сумма отгрузки как я понимаю может быть = ДО ид Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");

(19) Я тебя еще раз спрашиваю, у тебя этот твой документ по этому счету и дебетуется и кредитуется?

дебетуется он документом накладныя вид() = РасходТовара
кредитуется он документом Закрытие накладных

(21) Поясни тогда вот это
"ДО по дц я то получить могу это у меня получается а вот КО с сумма для того же документа не получается"

Что значит для того же документа, если у тебя разные документы делают движения по кредиту и дебету этого счета.

смотри товар отгружен  докам расход товара №1 01,12,12 на сумму 30,000
контрагент оплатил товар  документом Закрытие накладных №1 10,12,12 сумма оплаты = 30,000
в документе закрытие накладных есть реквизит Документ вот это реквизит я думал сравнивать субконто(2) первого запроса

(22) поможешь?

видать нет

:((

люди ну помагите

чего я такого сделал что ни кто не может мне помочь?

что ни кто не может помочь?

ясно спасибо

люди ну помагите ну не доходит до меня

люди

Да чего ты разорался то.. На (22) Ответь.

что не работает то? что не получается? вот так не суммы дает что ли?
 
ИТ = СоздатьОбъект("БухгалтерскиеИтоги");
   ИТ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   ИТ.ИспользоватьСубконто(ВидыСубконто.Накладная);
   ИТ.ВыполнитьЗапрос(НачГода(Дата_),Дата_,СчетПоКоду("ДЦ"),,,,);
   
ИТ.ВыбратьСубконто(1);
   Пока ИТ.ПолучитьСубконто(1) = 1 Цикл

   ИТ.ВыбратьСубконто(2);
   Пока ИТ.ПолучитьСубконто(2) = 1 Цикл
           Сообщить("По " + ИТ.Субконто(1) +" и " + ИТ.Субконто(2)+ " кредит: " + ИТ.КО("С") + " дебит: " + ИТ.ДО("С"));
КонецЦикла;
КонецЦикла;

что там с ответом на (22)
"ДО по дц я то получить могу это у меня получается а вот КО с сумма для того же документа не получается"

че за документ то? тот что в субконто 2?

(35) накладная

(35 суммы получаю но мне нужно кода) мне на первой таблице отобразились данные я нажимаю на строку должна развернуться еще одна таблица с документами по этому контрагенту

вернее вторая таблица открывается данные не те

(36) Кратко, складно, легко запомнить.

По субконто 2 не получается получить КО()?

нет!

во второй таблице первая строка должна быть с
документ.Вид() = Накладная , ДатаДок, СуммаОтгрузки
вторая строка если оплата была тогда
Документ.Вид() = ЗакрытиеНакладных, ДатаДок , СуммаОплаты

(37) В первой таблице у тебя просто Котрагент и его суммы(обороты и т.д.)
Теперь при двойном щелчке тебе надо открыть как бы второй отчет(2ю таблицу) где показались бы все документы(субконто 2) этого контрагента?

а у меня  со старого кода получается  первая строка  = вроде как надо а вторая строка тоже нечего а затем если докав много то оплата = 0 а отгрузок немеренно
хотя оплатил я их все

(42) да именнго так!

+(44) но как в (41)

вот данные по (34)
По Бакалея г. Минск и Расход 0669369 (22.02.11) кредит: 93108787 дебит: 93108787
По Бакалея г. Минск и Расход 0669466 (22.03.11) кредит: 1056526 дебит: 1056526
По Бакалея г. Минск и Расход 0669687 (13.04.11) кредит: 4839327 дебит: 4839327
По Бакалея г. Минск и Расход 4084688 (23.05.11) кредит: 21518738 дебит: 21518738
По Бакалея г. Минск и Расход 4084924 (30.05.11) кредит: 112664752 дебит: 112664752
По Бакалея г. Минск и Расход 4084945 (02.06.11) кредит: 101411482 дебит: 101411482
По Бакалея г. Минск и Расход 4084974 (06.06.11) кредит: 99332977 дебит: 99332977
По Бакалея г. Минск и Расход 3596519 (13.07.11) кредит: 2913588 дебит: 2913588
По Бакалея г. Минск и Расход 3596513 (18.07.11) кредит: 112698432 дебит: 112698432
По Бакалея г. Минск и Расход 3596522 (19.07.11) кредит: 107575776 дебит: 107575776
По Бакалея г. Минск и Расход 3596539 (21.07.11) кредит: 102453120 дебит: 102453120
По Бакалея г. Минск и Расход 3596564 (26.07.11) кредит: 92374560 дебит: 102453120
По Бакалея г. Минск и Расход 3596581 (28.07.11) кредит: 0 дебит: 71717184
По Бакалея г. Минск и Расход 3597313 (02.08.11) кредит: 0 дебит: 102453120
По Бакалея г. Минск и Расход 3597328 (05.08.11) кредит: 0 дебит: 45071770
По Бакалея г. Минск и Расход 3597335 (08.08.11) кредит: 0 дебит: 109451628
По Бакалея г. Минск и Расход 3597342 (10.08.11) кредит: 0 дебит: 112662307
По Бакалея г. Минск и Расход 3597378 (17.08.11) кредит: 0 дебит: 112679424
По Бакалея г. Минск и Расход 3597395 (23.08.11) кредит: 0 дебит: 112679424
По Бакалея г. Минск и Расход 3596956 (25.08.11) кредит: 0 дебит: 112679424
По Бакалея г. Минск и Расход 3596974 (30.08.11) кредит: 0 дебит: 120217482
По Бакалея г. Минск и Расход 3596909 (05.09.11) кредит: 0 дебит: 66594528
По Бакалея г. Минск и Расход 3596910 (05.09.11) кредит: 0 дебит: 5122656
По Бакалея г. Минск и Расход 3596924 (07.09.11) кредит: 0 дебит: 71717184
По Бакалея г. Минск и Расход 3596941 (13.09.11) кредит: 0 дебит: 99435600
По Бакалея г. Минск и Расход 3596948 (15.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596949 (15.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596866 (20.09.11) кредит: 0 дебит: 185440147
По Бакалея г. Минск и Расход 3596867 (20.09.11) кредит: 0 дебит: 99435600
По Бакалея г. Минск и Расход 3596874 (22.09.11) кредит: 0 дебит: 99435600
По Бакалея г. Минск и Расход 3596875 (23.09.11) кредит: 0 дебит: 70868952
По Бакалея г. Минск и Расход 3596894 (27.09.11) кредит: 0 дебит: 103159980
По Бакалея г. Минск и Расход 3596889 (27.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596892 (28.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596893 (28.09.11) кредит: 0 дебит: 103278780
По Бакалея г. Минск и Расход 3596802 (29.09.11) кредит: 0 дебит: 1657260
По Бакалея г. Минск и Расход 3596900 (29.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596805 (30.09.11) кредит: 0 дебит: 104407380
По Бакалея г. Минск и Расход 3596807 (30.09.11) кредит: 0 дебит: 103635180
По Бакалея г. Минск и Расход 3596702 (05.10.11) кредит: 0 дебит: 103159980

ВИДИШЬ КРЕДИТ 0 ПОЧЕМУ В ОБОРОТКЕ ЗНАЧЕНИЯ > 0

(42) ты здесь?

(44) в документе ЗакрытиеНакладных есть реквизит документа или табличной части в котором торчит документ Накладная? Подчиненность какая то есть? Правой кнопкой щелкни по документу Накладная и посмотри там есть подчиненные документы? По идее у погашенной накладной должен быть подчиненный докумеент Закрытие накладных. Посмотри он есть?

(48) да не торописька ты

да и мой код почти тоже самое формирует только твой правильней мой не все доки  показал

//*******************************************//Расшифровка Док+Дата+СуммаОтгрузки+СуммаОплаты

Процедура ОбработкаЯчейкитаблицы(Контрагент)
   ФлагСтандОбраб = 0;
   Табл = СоздатьОбъект("Таблица");
   Табл.ИсходнаяТаблица("Расшифровка");
   Табл.ВывестиСекцию("Шапка");
   Би = СоздатьОбъект("БухгалтерскиеИтоги");
   Док_ = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,"Операция");
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
               Сумма2 = "-";
               дОК = Би.Субконто(2);
               ДатаДока = Би.Субконто(2).ДатаДок;
               Сумма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
               Табл.ВывестиСекцию("Строка");
               Сумма = "-";
               Док_.ВыбратьДокументы(НачГода(Дата_),Дата_);
               Пока Док_.ПолучитьДокумент() = 1 Цикл
                   Если Док_.Вид() = "ЗакрытиеНакладных" Тогда
                       Док_.ВыбратьСтроки();
                       Пока Док_.ПолучитьСтроку() = 1 Цикл
                           Если Док_.ПриходныйДокумент = Би.Субконто(2).ТекущийДокумент() Тогда
                               Если Док_.Контрагент = Би.Субконто(1).ТекущийЭлемент() Тогда
                                   дОК = Док_;
                                   ДатаДока = Док_.ДатаДок;
                                   Сумма2 = Док_.СуммаОплаты;    
                                   
                                   Табл.ВывестиСекцию("Строка");
                               КонецЕсли;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   Табл.ПараметрыСтраницы(2, , , , , , , , , 1);
   Табл.Опции(0, 0, 5, 5, "Расшифровка");
   Табл.ТолькоПросмотр(1);
   Табл.Показать("Расшифровка");
КонецПроцедуры

(51) ВыбратьПодчиненныеДокументы(<?>,,)
Синтаксис:
ВыбратьПодчиненныеДокументы(<Дата1>,<Дата2>,<Докум>)
Назначение:
Открыть выборку документов, подчиненных заданному, в интервале дат.
Возвращает:
1 - если действие выполнено и в выборке есть хотя бы один документ;
0 - если действие не выполнено или в выборке нет ни одного документа.
Параметры:
<Дата1> - дата, документ или позиция начала выборки документов. Если данный параметр опущен, то выборка начинается с самого первого существующего в системе документа.
<Дата2> - дата, документ или позиция конца выборки документов. Если данный параметр опущен, то выборка заканчивается самым последним существующим в системе документом.
<Докум> - документ, подчиненные которому будут включаться в выборку.
Замечание:
Метод  можно использовать только для объектов, созданных функцией СоздатьОбъект.

????

Мде,
кредит: 0 дебит:
шедеврально

(51)
   Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
              Сообщить("Накладная - " + Би.Субконто(2) + " была погашена след. документами:","!!!");
              ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,Би.Субконто(2).ТекущийДокумент());
              Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
                     сообщить("        " + ПодчиненныеДокументы.ТекущийДокумент(),"i");    
              КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

или не взлетит?

тоесть если мы делаем запрос по счету дц
тогда док закрытиеНакладных является подчиненным дока накладной

По Борисовский пищеторг и Расход 0669319 (08.02.11) кредит: 6362978 дебит: 6362978
По Борисовский пищеторг и Расход 4084521 (18.04.11) кредит: 4835273 дебит: 4835273
По Борисовский пищеторг и Расход 4084611 (11.05.11) кредит: 3602712 дебит: 3602712
По Борисовский пищеторг и Расход 4084970 (06.06.11) кредит: 14671799 дебит: 14671800
Накладная - Расход 4084970 (06.06.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
а остальные накладные

кредет есть
а
Накладная - Расход такойто была погашена след. документами:
нет

а как мне потом получить оплату именно этой накладной

так стоп торможу

(55) походу он подчиненный не только при запросе по счету ДЦ. Он вообще подчиненный(по идее должен быть). Но есть ли у тебя эта подчиненность как в (49) я писал?

(56) ткни правой кнопкой мыши по Расход 4084611 (11.05.11) посмотри его подчиненные документы! Они у него есть?

да есть

закрытие накладных

а код из 54 его не показывает что ли?

код из 54 все ок но как мне суммы получить теперь?

вот что 54 показывает

Накладная - Расход 4084970 (06.06.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)

Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
              Сообщить("Накладная - " + Би.Субконто(2) + " была погашена след. документами:","!!!");
              ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,Би.Субконто(2).ТекущийДокумент());
              Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
                      сообщить("        " + ПодчиненныеДокументы.ТекущийДокумент(),"i"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));    
              КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

так не чего не дало

я о этом думал что суммы отгрузки и оплаты получу
"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));

(67) убери
          Если Би.СКД("С") <> 0 Тогда

и будут тебе все документы. У тебя по Расход 4084611 (11.05.11) СКД = 0! Закрыта накладная! Все забыли про нее!
Расход 4084611 (11.05.11) кредит: 3602712 дебит: 3602712
3602712  - 3602712 = 0!

смекаешь?

Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
          // Если Би.СКД("С") <> 0 Тогда
              Сообщить("Накладная - " + Би.Субконто(2) + " была погашена след. документами:","!!!");
              ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,Би.Субконто(2).ТекущийДокумент());
              Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
                      сообщить("        " + ПодчиненныеДокументы.ТекущийДокумент(),"i"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));    
              КонецЦикла;
           //КонецЕсли;
       КонецЦикла;
   КонецЦикла;

вот что из это го вышло сумм нет

Накладная - Расход 0669369 (22.02.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 0669466 (22.03.11) была погашена след. документами:
       Акт боя 0669466
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 0669687 (13.04.11) была погашена след. документами:
       Поступление 0821961 (14.07.11)
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 4084688 (23.05.11) была погашена след. документами:
       Поступление 2697150 (07.06.11)
       Поступление 0821961 (14.07.11)
       Поступление 0816474 (22.07.11)
       Поступление 3435764 (22.07.11)
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 4084924 (30.05.11) была погашена след. документами:
       Поступление 2697150 (07.06.11)
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 4084945 (02.06.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 4084974 (06.06.11) была погашена след. документами:
       Поступление 3436748 (03.08.11)
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596519 (13.07.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596513 (18.07.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596522 (19.07.11) была погашена след. документами:
       Акт боя 3596522
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596539 (21.07.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596564 (26.07.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
Накладная - Расход 3596581 (28.07.11) была погашена след. документами:
Накладная - Расход 3597313 (02.08.11) была погашена след. документами:
       Акт боя 3597313
Накладная - Расход 3597328 (05.08.11) была погашена след. документами:
Накладная - Расход 3597335 (08.08.11) была погашена след. документами:
       Поступление 0110081 (24.08.11)
Накладная - Расход 3597342 (10.08.11) была погашена след. документами:
       Поступление 3597342 (11.08.11)
       Поступление 0110081 (24.08.11)
Накладная - Расход 3597378 (17.08.11) была погашена след. документами:
Накладная - Расход 3597395 (23.08.11) была погашена след. документами:
       Акт боя 3597395
Накладная - Расход 3596956 (25.08.11) была погашена след. документами:
Накладная - Расход 3596974 (30.08.11) была погашена след. документами:
Накладная - Расход 3596909 (05.09.11) была погашена след. документами:
Накладная - Расход 3596910 (05.09.11) была погашена след. документами:
Накладная - Расход 3596924 (07.09.11) была погашена след. документами:
Накладная - Расход 3596941 (13.09.11) была погашена след. документами:
Накладная - Расход 3596948 (15.09.11) была погашена след. документами:
Накладная - Расход 3596949 (15.09.11) была погашена след. документами:
Накладная - Расход 3596866 (20.09.11) была погашена след. документами:
Накладная - Расход 3596867 (20.09.11) была погашена след. документами:
Накладная - Расход 3596874 (22.09.11) была погашена след. документами:
Накладная - Расход 3596875 (23.09.11) была погашена след. документами:
Накладная - Расход 3596894 (27.09.11) была погашена след. документами:
Накладная - Расход 3596889 (27.09.11) была погашена след. документами:
Накладная - Расход 3596892 (28.09.11) была погашена след. документами:
Накладная - Расход 3596893 (28.09.11) была погашена след. документами:
Накладная - Расход 3596802 (29.09.11) была погашена след. документами:
Накладная - Расход 3596900 (29.09.11) была погашена след. документами:
Накладная - Расход 3596805 (30.09.11) была погашена след. документами:
Накладная - Расход 3596807 (30.09.11) была погашена след. документами:
Накладная - Расход 3596702 (05.10.11) была погашена след. документами:

как всё запущено =)

окозалось что накладные расхода еще и приходом с фл возврат закрываются

Поступление 2697150
Акт боя 3596522

а это что? они влияют на КО? тебе нужно показывать их?

Сумма отгрузки - ДО
Сумма Оплаты   - КО

Сумму каждого документа нужно получать из каждого документа. Хотя может быть гуру скажут что это и непроизводительно но по другому я не умею. А подсказать тем более не могу.

Поступление 2697150
Акт боя 3596522

я честно говоря не знаю значи у меня в старом коде все правильно формировалось простом суммы различались а все изза того что расход еще закрывается и Поступление 2697150
Акт боя 3596522

Сумму каждого документа нужно получать из каждого документа. Хотя может быть гуру скажут что это и непроизводительно но по другому я не умею. А подсказать тем более не могу.
а ДО И КО не поможет?

Поступление 2697150
Акт боя 3596522
да щас узнал что их суммы тоже должны являться оплатой ну что единственное у этих доков Поступление 2697150
Акт боя 3596522
проволки на дц по дебету
что делать?

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

(79) значит ты мне помочь не сможешь

блин че то я запутался может через TeamViewer7 конек не поможет?

(78) что то мне подсказывает что перед тобой стоит очень интересная задача. почему они по дебету? они увеличиват задолженность по накладным.

82 нет они с минусом

красные

(82) ну не сможешь помочь

слушай а как тебе вариант забацать еще один счет и в доке виписка банка утазывать какую накладную оплачиваем

Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);  
   ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           если БИ.ДО("С")>0 тогда  
               ТЗ.Добавить();
               ТЗ.Док = Би.Субконто(2);
               ТЗ.ОтгруженаСумма = БИ.ДО("С");
               ТЗ.ОплаченаСумма = 0;
           Иначе
               ТЗ.Добавить();
               ТЗ.Док = Би.Субконто(2);
               ТЗ.ОтгруженаСумма = 0;
               ТЗ.ОплаченаСумма = БИ.ДО("С")*(-1);
           Конецесли;
       КонецЦикла;
   КонецЦикла;
   ТЗ.Свернуть("Док","ОтгруженаСумма,ОплаченаСумма");  
   
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ТЗ.ОтгруженаСумма = 0 тогда продолжить; конецесли;
       ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,ТЗ.Док.ТекущийДокумент());
       Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
           Если ПодчиненныеДокументы.Вид() <> "ЗакрытиеНакланых" тогда продолжить конецесли;
           
           ТЗ.Добавить();
           ТЗ.Док = ТЗ.Док;
           ТЗ.ОтгруженаСумма = 0;
           ТЗ.ОплаченаСумма = "БЕРЕШ СУММУ ИЗ ЭТОГО ДОКМУЕНТА И ЗАКИДЫВАЕТШЬ СЮДА!";
       КонецЦикла;
   КонецЦикла;
   ТЗ.Свернуть("Док","ОтгруженаСумма,ОплаченаСумма");  
   
   ///отсортировать надо будет как надо

наверное так.

(85) нет у меня тут тайм вивера, и прав нет на установку этого тайвивера. и вообще я мимо проходил. компьютер не мой. я монтажником работаю.

(81) дома буду часов через 5(точно не могу сказать) там можно попробовать.

(87) это ты про первую таблицу ато во торой у меня тз нет

(88) любой каприз

!

постучись на мыло

(89) а это че?
  ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");

может тебе еще книжек почитать?

ок?

вы всё кипятите ?

где чёткая формулировка задачи ?!

Процедура ОбработкаЯчейкитаблицы(Контрагент)
   ФлагСтандОбраб = 0;
   Табл = СоздатьОбъект("Таблица");
   Табл.ИсходнаяТаблица("Расшифровка");
   Табл.ВывестиСекцию("Шапка");
   Би = СоздатьОбъект("БухгалтерскиеИтоги");
   Док_ = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,"Операция");
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
               Сумма2 = "-";
               дОК = Би.Субконто(2);
               ДатаДока = Би.Субконто(2).ДатаДок;
               Сумма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
               Табл.ВывестиСекцию("Строка");
               Сумма = "-";
               Док_.ВыбратьДокументы(НачГода(Дата_),Дата_);
               Пока Док_.ПолучитьДокумент() = 1 Цикл
                   Если Док_.Вид() = "ЗакрытиеНакладных" Тогда
                       Док_.ВыбратьСтроки();
                       Пока Док_.ПолучитьСтроку() = 1 Цикл
                           Если Док_.ПриходныйДокумент = Би.Субконто(2).ТекущийДокумент() Тогда
                               Если Док_.Контрагент = Би.Субконто(1).ТекущийЭлемент() Тогда
                                   дОК = Док_;
                                   ДатаДока = Док_.ДатаДок;
                                   Сумма2 = Док_.СуммаОплаты;    
                                   Табл.ВывестиСекцию("Строка");
                               КонецЕсли;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

я уже честно говоря не могу сам понять о чем мы

(96) что за г@вно-код ?

ветку к чему то другому можно отнести но уж точно не 1с

> умма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");

это что 7

ну да!

+ (98) по крайней мере он формирует то же что и (54) а вообще тебе виднее может и (98)

так что такое в (93)?

(103) извини я уже запутался

щас попробую

(54) тоже г@вно-код

подожди а где это у меня???
ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");

иди это твой пример

блин все у меня уже голова не варит

(13) ладно забей давай вечером ок?

я пока другой отчет добью

где чёткая формулировка задачи ?!

(111) как мне тебе ее еще сформулировать?

распиши по-подробнее счёт ДЦ
это забаланс ?

аналитика у него
контры
накладная

какие галки стоят у все аналитик : везде суммовой и количественный учёт ?
какое оборотное субконто

когда идёт движение Дт, когда Кт ?
какими документами ?

и нарисуй, какой хочешь отчёт

(113) я в (0) рписывал

(114) нарисуй на макете и выложи скриншот

СчетПоКоду("ДЦ") = ДЦ .   .  , Отгрузка покупателю в рублях, вал+, кол+, заб+, Акт.А, субконто_1 = Контрагенты, Субконто_2 = Накладная, Субконто_3 = Видыдеятельности
движение дебет  
при отгрузке товара ДВИЖЕНИЕ по дебету сумма = 20,000 //Док= РасходТовара
при возврате товара Движение по Дебету сумма = -20,000//Док= ПоступлениеТовара
при возврате боя Движение по дебету скмма = -20,000 //Док = АктБоя
Движение Кредит
при закрытии накладных Движение по Кредиту сумма = 20,000 // Док = ЗакрытиеНакладных

отчет печатная форма №1
Контрагент,Унп,Банковские реквизиты,Сумма дебиторской задолжности,вт.ч <просроченнойКонтрагент(в свойствах значение расшифровка = Контрагент#)>,<УНП>,<РачетныйСчет>    ,<СуммаОбщая>,<СуммаПросроченная>
отчет печатная форма №2(Расшифровка)
Наименование документа    Дата    Сумма отгрузки    СуммаОплаты
<дОК>                  <ДатаДока>   <Сумма>      <Сумма2>

заметь что при проведении
Док= ПоступлениеТовара
Док = АктБоя
сумма по дебету с минусом (Красная)

у аналитик какие галки ?

(117) куда эти доки пихать я не знаю!!! толи это считается оплатой толи расходом

Учет по смумме
учет по вал сумме
учет по количеству
это у всех субконто счета ДЦ

+(119) знаю только что проводка по кредиту сумма является оплатой

(118) ну что ты мне поможешь?

дай ссылку куда скрин сохранить

(120) галки только оборот нет ?

(123) http://savepic.org/

нет! на оборотах нету галок

вот 1 таблица
http://s003.radikal.ru/i202/1112/c4/bbd8babe8868.jpg

а вот расшифровка
http://s017.radikal.ru/i401/1112/26/757443ae0672.jpg

как я понял

сумма дебеторской задолженности это СКД счёта ДЦ в разрезе контра

сумму отгрузки делают доки :
РасходТовара      Дт        Сумма
ПоступлениеТовара Дт       -Сумма
АктБоя            Дт       -Сумма

сумма оплаты это
ЗакрытиеНакладных Кт        Сумма



так ?

+ мне не понятно, почему аналитика Видыдеятельности не оборотная ?!

ПоступлениеТовара Дт       -Сумма
АктБоя  
я не знаю к чему их отнести

на это не расход это точно!

(130) я поняти не имею

(0)всё не читал, пересчитай бух итоги.

(134) не понял извини

(131) так узнай

ПоступлениеТовара Дт       -Сумма
АктБоя  
их вообще не трогать

они в отчет попасть не должны

почему аналитика Видыдеятельности не оборотная  
я не знаю и спросить не у кого

(137) т.е. они не должны вычитать из таблицы (127 ?

ПоступлениеТовара Дт   это если клиент возврощает товар тогда от оплаты минус сумму из дока

акт боя это если не довезли товар значи от суммы отгрузки минусуем сумму этого дока

(140) должны с условием (141,142)

+(143) из виняюсь за диз информацию клиент позванил обьяснил как должно быть

перепиши нормально
а то глаза разбегаются куда смотреть

Если ПоступлениеТовара.ФлВозврата = 1 тогда
ДЦ.КО - ПоступлениеТовара.Итог(СуммаСНДС);
конецЕсли

Если актБоя есть в подциненных тогда
ДЦ.ДО - АктБоя.Итог(СуммаСНДС);
КонецЕсли

(146) так ок?

я так понял, что КО - это закрытие заявки

какой заявки?

КО = СуммаОплаты контрагентом

а ты тогда, что пишешь в (146) ???

у тебя возврат это КО

если док поступление товара есть в подчиненных в накладной и у него флагвозврата = 1 тогда сумму этого подчиненного дока минусуем из суммы оплаты контрагента он же вернул товар а мы ему деньги за этот товар что он вернул

СуммаОплаты = ДЦ.КО
СуммаОтгрузки = Дц.ДО
если одчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,ДЦ.Субконто(2).ТекущийДокумент()) = 1 тогда
если одчиненныеДокументы.Вид() = "ПоступлениеТовара" тогда
Если одчиненныеДокументы.ФлОтгрузки = 1 тогда
суммаОплаты_1 = СуммаОплаты - одчиненныеДокументы.Итог(СуммаСНДС)
конецЕсли;
конецЕсли;
конецЕсли;

Типы занчений Субконто2 и Субконто3 ?

+(153)
если ДЦ.Субконто(2).Вид() = "РасходТовара" тогда
СуммаОтгрузки = Дц.ДО
конецЕсли

Субконто3 вообще там не нужны

Субконто2 = Накладная (ДокументРасходТовара)

Субконто(1) = Контрагенты (Справочник.Контрагенты

вот скрин дока Закрытие накладных
http://s017.radikal.ru/i406/1112/56/2757086c18c1.jpg
а вот его операция
http://s017.radikal.ru/i432/1112/99/e0eba6553592.jpg

(156) важно

ну что?

(159) скрин не уменьшай
ничего не вижу

(160) не понял

(163) что такое субконто3

вот скрин дока Закрытие накладных
http://s006.radikal.ru/i215/1112/66/ab4748f8aca9.png

операция
http://s007.radikal.ru/i300/1112/0c/8e9c7a0799d4.png

покажи операцию прихода

вот приход (с флвгом возврат)
http://s017.radikal.ru/i414/1112/bc/09708a190dba.png

как в приходе аналитика расхода ? о_О

ДаА

я тогда ничего не понимаю

вот и я по этому и запутался

ну так надо разбираться : открывать осв по счету/карточку и вперёд

не понял по  осв ? что это?

бу га га

Оборотно-сальдовая ведомость

скрин?
Оборотно-сальдовая ведомость

вот оборотка
http://s017.radikal.ru/i405/1112/73/3f03e10dc8b1.png

ты прикалываешься ?

(179) гдето да :))
подрубишься?

аналитику НДС убери совсем

(181) теперь ты прикалываешься

в осв по счету есть такое поняте, как не учитывать пр и выводе ту или иную аналитику

да я понял загляни в аську

что такое аська ?

(185) прикалываешься?

всё ещё кипятим ?

(187) :))

(187) что ты скажшь если пользовать
Док = СоздатьОбъект("Документ");
   Док.ВыбратьДокументы(ДатаНач,ДатаКон);
в моем случае

я не вижу ОСВ по счету ДЦ без разворота на последней аналитике

производство НДС 10%

это его аналитика

так вот
сформируй ОСВ по счёту без этой аналитики

не понимаю как???

извини туплю

формирую

http://s017.radikal.ru/i440/1112/be/cd0657e07da0.png

т.е. по Дт не движений ?

*нет

правильно за этот квартал небыло

покажи, где было

(201) ок

ещё кипятим ?

ну так че там? получилось?

(203) что там по г@внокоду? если есть свободная минутка - приведи тоже самое что в (54) только чтоб не г@вно код был. для общего развития очень бы помогло.

(204) для начала поменять разворот по субконт
сначала  разворот, а потом отбор