Привет всем
Задача следующая  создать отчет по дебиторской задолженности
В отчете должны быть две печатных формы в первой из них  должны быть строки со свернутыми по «Контрагенту» значениями, а вторая должна  разворачивать по документам
Проблем с первой не возникло,  а вот со второй проблемы есть
Данные берутся со счетаПоКолу(дц)
ДЦ = Субуонто 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);
   Табл.Показать("Расшифровка");
КонецПроцедуры

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

(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) для начала поменять разворот по субконт
сначала  разворот, а потом отбор