Имя: Пароль:
1C
1C 7.7
v7: проблема с бух.запросом
, ,
0 alex_reglament
 
15.12.11
10:50
Привет всем
Задача следующая  создать отчет по дебиторской задолженности
В отчете должны быть две печатных формы в первой из них  должны быть строки со свернутыми по «Контрагенту» значениями, а вторая должна  разворачивать по документам
Проблем с первой не возникло,  а вот со второй проблемы есть
Данные берутся со счетаПоКолу(дц)
ДЦ = Субуонто 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 chief accountant
 
15.12.11
10:57
Ну и каша...
2 alex_reglament
 
15.12.11
11:00
помаги (1) съесть эту кашу
3 alex_reglament
 
15.12.11
11:01
(1) помоги пожалуйста
4 alex_reglament
 
15.12.11
11:06
ну вот попуталя более подробно описать что б удобней было все равно все нетк
5 Попытка1С
 
15.12.11
11:06
Четверг день запросов у 1сников чтоли...
6 alex_reglament
 
15.12.11
11:07
(5) помаги
7 chief accountant
 
15.12.11
11:08
(6) Для начала научись пользоваться расшифровкой
8 alex_reglament
 
15.12.11
11:09
да некогда мне учиться мне уже делать нужноя уже вторую неделю с этим отчетом борюсь
9 alex_reglament
 
15.12.11
11:09
да расшифровкой я пользоваться не умею  помагите я обещаю что научусь!
10 PuhUfa
 
15.12.11
11:09
сменить вид деятельности еще не предлагали? -)
11 alex_reglament
 
15.12.11
11:11
нет! ребят хорош меня унижать мне не предлогают сменить вид деятельности вы тоже начина с этого
12 chief accountant
 
15.12.11
11:11
(9) Тогда начни с изучения русского языка, а то глаза режет
13 alex_reglament
 
15.12.11
11:13
ХОРОШО вымне поможете или дальше опускать будете?
14 alex_reglament
 
15.12.11
11:16
люди ну помагите ну пожалуйста!
15 Попытка1С
 
15.12.11
11:16
Там у тебя по кредиту есть движения по ДЦ по документу "Закрытие Накладных"
И вообще где у тебя тут попытки получить оборот крелитовый?
И что-то не могу понять, ты тут сравниваешь сальдо конечное кредитовое, а дебетовое где?
16 2S
 
15.12.11
11:17
продолжение прошлых веток? объединил в одну?
17 alex_reglament
 
15.12.11
11:18
я в место ДО использовал Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
18 Попытка1С
 
15.12.11
11:19
(17) И с чего ты берешь что это дебетовый оборот а не кредитовый?
19 alex_reglament
 
15.12.11
11:21
Сумма отгрузки как я понимаю может быть = ДО ид Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
20 Попытка1С
 
15.12.11
11:23
(19) Я тебя еще раз спрашиваю, у тебя этот твой документ по этому счету и дебетуется и кредитуется?
21 alex_reglament
 
15.12.11
11:25
дебетуется он документом накладныя вид() = РасходТовара
кредитуется он документом Закрытие накладных
22 Попытка1С
 
15.12.11
11:27
(21) Поясни тогда вот это
"ДО по дц я то получить могу это у меня получается а вот КО с сумма для того же документа не получается"

Что значит для того же документа, если у тебя разные документы делают движения по кредиту и дебету этого счета.
23 alex_reglament
 
15.12.11
11:41
смотри товар отгружен  докам расход товара №1 01,12,12 на сумму 30,000
контрагент оплатил товар  документом Закрытие накладных №1 10,12,12 сумма оплаты = 30,000
в документе закрытие накладных есть реквизит Документ вот это реквизит я думал сравнивать субконто(2) первого запроса
24 alex_reglament
 
15.12.11
11:50
(22) поможешь?
25 alex_reglament
 
15.12.11
11:53
видать нет
26 alex_reglament
 
15.12.11
11:54
:((
27 alex_reglament
 
15.12.11
11:56
люди ну помагите
28 alex_reglament
 
15.12.11
12:01
чего я такого сделал что ни кто не может мне помочь?
29 alex_reglament
 
15.12.11
12:07
что ни кто не может помочь?
30 alex_reglament
 
15.12.11
12:13
ясно спасибо
31 alex_reglament
 
15.12.11
12:20
люди ну помагите ну не доходит до меня
32 alex_reglament
 
15.12.11
12:26
люди
33 Попытка1С
 
15.12.11
12:53
Да чего ты разорался то.. На (22) Ответь.
34 sergei123654
 
15.12.11
12:54
что не работает то? что не получается? вот так не суммы дает что ли?
 
ИТ = СоздатьОбъект("БухгалтерскиеИтоги");
   ИТ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   ИТ.ИспользоватьСубконто(ВидыСубконто.Накладная);
   ИТ.ВыполнитьЗапрос(НачГода(Дата_),Дата_,СчетПоКоду("ДЦ"),,,,);
   
ИТ.ВыбратьСубконто(1);
   Пока ИТ.ПолучитьСубконто(1) = 1 Цикл

   ИТ.ВыбратьСубконто(2);
   Пока ИТ.ПолучитьСубконто(2) = 1 Цикл
           Сообщить("По " + ИТ.Субконто(1) +" и " + ИТ.Субконто(2)+ " кредит: " + ИТ.КО("С") + " дебит: " + ИТ.ДО("С"));
КонецЦикла;
КонецЦикла;
35 sergei123654
 
15.12.11
12:57
что там с ответом на (22)
"ДО по дц я то получить могу это у меня получается а вот КО с сумма для того же документа не получается"

че за документ то? тот что в субконто 2?
36 alex_reglament
 
15.12.11
12:57
(35) накладная
37 alex_reglament
 
15.12.11
12:59
(35 суммы получаю но мне нужно кода) мне на первой таблице отобразились данные я нажимаю на строку должна развернуться еще одна таблица с документами по этому контрагенту
38 alex_reglament
 
15.12.11
13:00
вернее вторая таблица открывается данные не те
39 sergei123654
 
15.12.11
13:00
(36) Кратко, складно, легко запомнить.

По субконто 2 не получается получить КО()?
40 alex_reglament
 
15.12.11
13:01
нет!
41 alex_reglament
 
15.12.11
13:03
во второй таблице первая строка должна быть с
документ.Вид() = Накладная , ДатаДок, СуммаОтгрузки
вторая строка если оплата была тогда
Документ.Вид() = ЗакрытиеНакладных, ДатаДок , СуммаОплаты
42 sergei123654
 
15.12.11
13:03
(37) В первой таблице у тебя просто Котрагент и его суммы(обороты и т.д.)
Теперь при двойном щелчке тебе надо открыть как бы второй отчет(2ю таблицу) где показались бы все документы(субконто 2) этого контрагента?
43 alex_reglament
 
15.12.11
13:05
а у меня  со старого кода получается  первая строка  = вроде как надо а вторая строка тоже нечего а затем если докав много то оплата = 0 а отгрузок немеренно
хотя оплатил я их все
44 alex_reglament
 
15.12.11
13:05
(42) да именнго так!
45 alex_reglament
 
15.12.11
13:06
+(44) но как в (41)
46 alex_reglament
 
15.12.11
13:07
вот данные по (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
47 alex_reglament
 
15.12.11
13:07
ВИДИШЬ КРЕДИТ 0 ПОЧЕМУ В ОБОРОТКЕ ЗНАЧЕНИЯ > 0
48 alex_reglament
 
15.12.11
13:09
(42) ты здесь?
49 sergei123654
 
15.12.11
13:10
(44) в документе ЗакрытиеНакладных есть реквизит документа или табличной части в котором торчит документ Накладная? Подчиненность какая то есть? Правой кнопкой щелкни по документу Накладная и посмотри там есть подчиненные документы? По идее у погашенной накладной должен быть подчиненный докумеент Закрытие накладных. Посмотри он есть?
50 sergei123654
 
15.12.11
13:10
(48) да не торописька ты
51 alex_reglament
 
15.12.11
13:10
да и мой код почти тоже самое формирует только твой правильней мой не все доки  показал

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

Процедура ОбработкаЯчейкитаблицы(Контрагент)
   ФлагСтандОбраб = 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);
   Табл.Показать("Расшифровка");
КонецПроцедуры
52 sergei123654
 
15.12.11
13:14
(51) ВыбратьПодчиненныеДокументы(<?>,,)
Синтаксис:
ВыбратьПодчиненныеДокументы(<Дата1>,<Дата2>,<Докум>)
Назначение:
Открыть выборку документов, подчиненных заданному, в интервале дат.
Возвращает:
1 - если действие выполнено и в выборке есть хотя бы один документ;
0 - если действие не выполнено или в выборке нет ни одного документа.
Параметры:
<Дата1> - дата, документ или позиция начала выборки документов. Если данный параметр опущен, то выборка начинается с самого первого существующего в системе документа.
<Дата2> - дата, документ или позиция конца выборки документов. Если данный параметр опущен, то выборка заканчивается самым последним существующим в системе документом.
<Докум> - документ, подчиненные которому будут включаться в выборку.
Замечание:
Метод  можно использовать только для объектов, созданных функцией СоздатьОбъект.

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

или не взлетит?
55 alex_reglament
 
15.12.11
13:27
тоесть если мы делаем запрос по счету дц
тогда док закрытиеНакладных является подчиненным дока накладной
56 alex_reglament
 
15.12.11
13:28
По Борисовский пищеторг и Расход 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)
а остальные накладные
57 alex_reglament
 
15.12.11
13:29
кредет есть
а
Накладная - Расход такойто была погашена след. документами:
нет
58 alex_reglament
 
15.12.11
13:29
а как мне потом получить оплату именно этой накладной
59 alex_reglament
 
15.12.11
13:29
так стоп торможу
60 sergei123654
 
15.12.11
13:32
(55) походу он подчиненный не только при запросе по счету ДЦ. Он вообще подчиненный(по идее должен быть). Но есть ли у тебя эта подчиненность как в (49) я писал?

(56) ткни правой кнопкой мыши по Расход 4084611 (11.05.11) посмотри его подчиненные документы! Они у него есть?
61 alex_reglament
 
15.12.11
13:36
да есть
62 alex_reglament
 
15.12.11
13:36
закрытие накладных
63 sergei123654
 
15.12.11
13:37
а код из 54 его не показывает что ли?
64 alex_reglament
 
15.12.11
13:38
код из 54 все ок но как мне суммы получить теперь?
65 alex_reglament
 
15.12.11
13:38
вот что 54 показывает
66 alex_reglament
 
15.12.11
13:38
Накладная - Расход 4084970 (06.06.11) была погашена след. документами:
       Закрытие накладных 1 (14.12.11)
67 alex_reglament
 
15.12.11
13:39
Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
              Сообщить("Накладная - " + Би.Субконто(2) + " была погашена след. документами:","!!!");
              ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,Би.Субконто(2).ТекущийДокумент());
              Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
                      сообщить("        " + ПодчиненныеДокументы.ТекущийДокумент(),"i"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));    
              КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

так не чего не дало
68 alex_reglament
 
15.12.11
13:40
я о этом думал что суммы отгрузки и оплаты получу
"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));
69 sergei123654
 
15.12.11
13:42
(67) убери
          Если Би.СКД("С") <> 0 Тогда

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

смекаешь?
70 alex_reglament
 
15.12.11
13:52
Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
          // Если Би.СКД("С") <> 0 Тогда
              Сообщить("Накладная - " + Би.Субконто(2) + " была погашена след. документами:","!!!");
              ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,Би.Субконто(2).ТекущийДокумент());
              Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
                      сообщить("        " + ПодчиненныеДокументы.ТекущийДокумент(),"i"+"-" +Би.ДО("С")+ "- " +Би.КО("с"));    
              КонецЦикла;
           //КонецЕсли;
       КонецЦикла;
   КонецЦикла;
71 alex_reglament
 
15.12.11
13:52
вот что из это го вышло сумм нет
72 alex_reglament
 
15.12.11
13:53
Накладная - Расход 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) была погашена след. документами:
73 zak555
 
15.12.11
13:53
как всё запущено =)
74 alex_reglament
 
15.12.11
13:54
окозалось что накладные расхода еще и приходом с фл возврат закрываются
75 sergei123654
 
15.12.11
13:58
Поступление 2697150
Акт боя 3596522

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

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

Сумму каждого документа нужно получать из каждого документа. Хотя может быть гуру скажут что это и непроизводительно но по другому я не умею. А подсказать тем более не могу.
76 alex_reglament
 
15.12.11
14:01
Поступление 2697150
Акт боя 3596522

я честно говоря не знаю значи у меня в старом коде все правильно формировалось простом суммы различались а все изза того что расход еще закрывается и Поступление 2697150
Акт боя 3596522
77 alex_reglament
 
15.12.11
14:02
Сумму каждого документа нужно получать из каждого документа. Хотя может быть гуру скажут что это и непроизводительно но по другому я не умею. А подсказать тем более не могу.
а ДО И КО не поможет?
78 alex_reglament
 
15.12.11
14:05
Поступление 2697150
Акт боя 3596522
да щас узнал что их суммы тоже должны являться оплатой ну что единственное у этих доков Поступление 2697150
Акт боя 3596522
проволки на дц по дебету
что делать?
79 sergei123654
 
15.12.11
14:06
(77) чет я теперь не знаю что тебе поможет. Вроде же в старом коде все правильно формировалось. КО на каждый подчиненный документ не покажет правильным... хотя хз, может как то и можно получить правильный КО, то тогда нужно через "Операция" или "Проводка" строить свои отчет... хотя все же - хз.
80 alex_reglament
 
15.12.11
14:10
(79) значит ты мне помочь не сможешь
81 alex_reglament
 
15.12.11
14:11
блин че то я запутался может через TeamViewer7 конек не поможет?
82 sergei123654
 
15.12.11
14:11
(78) что то мне подсказывает что перед тобой стоит очень интересная задача. почему они по дебету? они увеличиват задолженность по накладным.
83 alex_reglament
 
15.12.11
14:12
82 нет они с минусом
84 alex_reglament
 
15.12.11
14:12
красные
85 alex_reglament
 
15.12.11
14:23
(82) ну не сможешь помочь
86 alex_reglament
 
15.12.11
14:24
слушай а как тебе вариант забацать еще один счет и в доке виписка банка утазывать какую накладную оплачиваем
87 sergei123654
 
15.12.11
14:25
Би = СоздатьОбъект("БухгалтерскиеИтоги");
   ПодчиненныеДокументы = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,);
   Би.ВыбратьСубконто(1);  
   ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           если БИ.ДО("С")>0 тогда  
               ТЗ.Добавить();
               ТЗ.Док = Би.Субконто(2);
               ТЗ.ОтгруженаСумма = БИ.ДО("С");
               ТЗ.ОплаченаСумма = 0;
           Иначе
               ТЗ.Добавить();
               ТЗ.Док = Би.Субконто(2);
               ТЗ.ОтгруженаСумма = 0;
               ТЗ.ОплаченаСумма = БИ.ДО("С")*(-1);
           Конецесли;
       КонецЦикла;
   КонецЦикла;
   ТЗ.Свернуть("Док","ОтгруженаСумма,ОплаченаСумма");  
   
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ТЗ.ОтгруженаСумма = 0 тогда продолжить; конецесли;
       ПодчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,ТЗ.Док.ТекущийДокумент());
       Пока ПодчиненныеДокументы.ПолучитьДокумент() = 1 Цикл
           Если ПодчиненныеДокументы.Вид() <> "ЗакрытиеНакланых" тогда продолжить конецесли;
           
           ТЗ.Добавить();
           ТЗ.Док = ТЗ.Док;
           ТЗ.ОтгруженаСумма = 0;
           ТЗ.ОплаченаСумма = "БЕРЕШ СУММУ ИЗ ЭТОГО ДОКМУЕНТА И ЗАКИДЫВАЕТШЬ СЮДА!";
       КонецЦикла;
   КонецЦикла;
   ТЗ.Свернуть("Док","ОтгруженаСумма,ОплаченаСумма");  
   
   ///отсортировать надо будет как надо

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

(85) нет у меня тут тайм вивера, и прав нет на установку этого тайвивера. и вообще я мимо проходил. компьютер не мой. я монтажником работаю.
88 sergei123654
 
15.12.11
14:27
(81) дома буду часов через 5(точно не могу сказать) там можно попробовать.
89 alex_reglament
 
15.12.11
14:28
(87) это ты про первую таблицу ато во торой у меня тз нет
90 alex_reglament
 
15.12.11
14:29
(88) любой каприз
91 alex_reglament
 
15.12.11
14:29
!
92 alex_reglament
 
15.12.11
14:29
постучись на мыло
93 sergei123654
 
15.12.11
14:30
(89) а это че?
  ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");

может тебе еще книжек почитать?
94 alex_reglament
 
15.12.11
14:30
ок?
95 zak555
 
15.12.11
14:31
вы всё кипятите ?

где чёткая формулировка задачи ?!
96 alex_reglament
 
15.12.11
14:31
Процедура ОбработкаЯчейкитаблицы(Контрагент)
   ФлагСтандОбраб = 0;
   Табл = СоздатьОбъект("Таблица");
   Табл.ИсходнаяТаблица("Расшифровка");
   Табл.ВывестиСекцию("Шапка");
   Би = СоздатьОбъект("БухгалтерскиеИтоги");
   Док_ = СоздатьОбъект("Документ");
   Би.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент);
   Би.ИспользоватьСубконто(ВидыСубконто.Накладная);
   Би.ВыполнитьЗапрос(НачГода(Дата_),Дата_,"ДЦ",,,,"Операция");
   Би.ВыбратьСубконто(1);
   Пока Би.ПолучитьСубконто(1) = 1 Цикл
       Би.ВыбратьСубконто(2);
       Пока Би.ПолучитьСубконто(2) = 1 Цикл
           Если Би.СКД("С") <> 0 Тогда
               Сумма2 = "-";
               дОК = Би.Субконто(2);
               ДатаДока = Би.Субконто(2).ДатаДок;
               Сумма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");
               Табл.ВывестиСекцию("Строка");
               Сумма = "-";
               Док_.ВыбратьДокументы(НачГода(Дата_),Дата_);
               Пока Док_.ПолучитьДокумент() = 1 Цикл
                   Если Док_.Вид() = "ЗакрытиеНакладных" Тогда
                       Док_.ВыбратьСтроки();
                       Пока Док_.ПолучитьСтроку() = 1 Цикл
                           Если Док_.ПриходныйДокумент = Би.Субконто(2).ТекущийДокумент() Тогда
                               Если Док_.Контрагент = Би.Субконто(1).ТекущийЭлемент() Тогда
                                   дОК = Док_;
                                   ДатаДока = Док_.ДатаДок;
                                   Сумма2 = Док_.СуммаОплаты;    
                                   Табл.ВывестиСекцию("Строка");
                               КонецЕсли;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
97 alex_reglament
 
15.12.11
14:31
я уже честно говоря не могу сам понять о чем мы
98 zak555
 
15.12.11
14:31
(96) что за г@вно-код ?
99 alex_reglament
 
15.12.11
14:32
ветку к чему то другому можно отнести но уж точно не 1с
100 zak555
 
15.12.11
14:32
> умма = Би.Субконто(2).Итог("Сумма") + Би.Субконто(2).Итог("СуммаНДС");

это что 7
101 alex_reglament
 
15.12.11
14:33
ну да!
102 alex_reglament
 
15.12.11
14:34
+ (98) по крайней мере он формирует то же что и (54) а вообще тебе виднее может и (98)
103 sergei123654
 
15.12.11
14:35
так что такое в (93)?
104 alex_reglament
 
15.12.11
14:37
(103) извини я уже запутался
105 alex_reglament
 
15.12.11
14:37
щас попробую
106 zak555
 
15.12.11
14:38
(54) тоже г@вно-код
107 alex_reglament
 
15.12.11
14:38
подожди а где это у меня???
ТЗ = создатьОбъект("ТаблицаЗначений");
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Док");    
   ТЗ.НоваяКолонка("ОтгруженаСумма");
   ТЗ.НоваяКолонка("ОплаченаСумма");

иди это твой пример
108 alex_reglament
 
15.12.11
14:38
блин все у меня уже голова не варит
109 alex_reglament
 
15.12.11
14:38
(13) ладно забей давай вечером ок?
110 alex_reglament
 
15.12.11
14:39
я пока другой отчет добью
111 zak555
 
15.12.11
14:48
где чёткая формулировка задачи ?!
112 alex_reglament
 
15.12.11
14:51
(111) как мне тебе ее еще сформулировать?
113 zak555
 
15.12.11
15:07
распиши по-подробнее счёт ДЦ
это забаланс ?

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

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

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

и нарисуй, какой хочешь отчёт
114 alex_reglament
 
15.12.11
18:16
(113) я в (0) рписывал
115 zak555
 
15.12.11
18:26
(114) нарисуй на макете и выложи скриншот
116 alex_reglament
 
15.12.11
18:32
СчетПоКоду("ДЦ") = ДЦ .   .  , Отгрузка покупателю в рублях, вал+, кол+, заб+, Акт.А, субконто_1 = Контрагенты, Субконто_2 = Накладная, Субконто_3 = Видыдеятельности
движение дебет  
при отгрузке товара ДВИЖЕНИЕ по дебету сумма = 20,000 //Док= РасходТовара
при возврате товара Движение по Дебету сумма = -20,000//Док= ПоступлениеТовара
при возврате боя Движение по дебету скмма = -20,000 //Док = АктБоя
Движение Кредит
при закрытии накладных Движение по Кредиту сумма = 20,000 // Док = ЗакрытиеНакладных

отчет печатная форма №1
Контрагент,Унп,Банковские реквизиты,Сумма дебиторской задолжности,вт.ч <просроченнойКонтрагент(в свойствах значение расшифровка = Контрагент#)>,<УНП>,<РачетныйСчет>    ,<СуммаОбщая>,<СуммаПросроченная>
отчет печатная форма №2(Расшифровка)
Наименование документа    Дата    Сумма отгрузки    СуммаОплаты
<дОК>                  <ДатаДока>   <Сумма>      <Сумма2>
117 alex_reglament
 
15.12.11
18:34
заметь что при проведении
Док= ПоступлениеТовара
Док = АктБоя
сумма по дебету с минусом (Красная)
118 zak555
 
15.12.11
18:34
у аналитик какие галки ?
119 alex_reglament
 
15.12.11
18:35
(117) куда эти доки пихать я не знаю!!! толи это считается оплатой толи расходом
120 alex_reglament
 
15.12.11
18:36
Учет по смумме
учет по вал сумме
учет по количеству
это у всех субконто счета ДЦ
121 alex_reglament
 
15.12.11
18:37
+(119) знаю только что проводка по кредиту сумма является оплатой
122 alex_reglament
 
15.12.11
18:37
(118) ну что ты мне поможешь?
123 alex_reglament
 
15.12.11
18:38
дай ссылку куда скрин сохранить
124 zak555
 
15.12.11
18:42
(120) галки только оборот нет ?
125 zak555
 
15.12.11
18:42
126 alex_reglament
 
15.12.11
18:43
нет! на оборотах нету галок
127 alex_reglament
 
15.12.11
18:44
128 alex_reglament
 
15.12.11
18:45
а вот расшифровка
http://s017.radikal.ru/i401/1112/26/757443ae0672.jpg
129 zak555
 
15.12.11
18:53
как я понял

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

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

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



так ?
130 zak555
 
15.12.11
18:56
+ мне не понятно, почему аналитика Видыдеятельности не оборотная ?!
131 alex_reglament
 
15.12.11
18:57
ПоступлениеТовара Дт       -Сумма
АктБоя  
я не знаю к чему их отнести
132 alex_reglament
 
15.12.11
18:57
на это не расход это точно!
133 alex_reglament
 
15.12.11
18:58
(130) я поняти не имею
134 Ёпрст
 
15.12.11
19:00
(0)всё не читал, пересчитай бух итоги.
135 alex_reglament
 
15.12.11
19:01
(134) не понял извини
136 zak555
 
15.12.11
19:03
(131) так узнай
137 alex_reglament
 
15.12.11
19:05
ПоступлениеТовара Дт       -Сумма
АктБоя  
их вообще не трогать
138 alex_reglament
 
15.12.11
19:06
они в отчет попасть не должны
139 alex_reglament
 
15.12.11
19:06
почему аналитика Видыдеятельности не оборотная  
я не знаю и спросить не у кого
140 zak555
 
15.12.11
19:08
(137) т.е. они не должны вычитать из таблицы (127 ?
141 alex_reglament
 
15.12.11
19:09
ПоступлениеТовара Дт   это если клиент возврощает товар тогда от оплаты минус сумму из дока
142 alex_reglament
 
15.12.11
19:10
акт боя это если не довезли товар значи от суммы отгрузки минусуем сумму этого дока
143 alex_reglament
 
15.12.11
19:10
(140) должны с условием (141,142)
144 alex_reglament
 
15.12.11
19:11
+(143) из виняюсь за диз информацию клиент позванил обьяснил как должно быть
145 zak555
 
15.12.11
19:13
перепиши нормально
а то глаза разбегаются куда смотреть
146 alex_reglament
 
15.12.11
19:18
Если ПоступлениеТовара.ФлВозврата = 1 тогда
ДЦ.КО - ПоступлениеТовара.Итог(СуммаСНДС);
конецЕсли

Если актБоя есть в подциненных тогда
ДЦ.ДО - АктБоя.Итог(СуммаСНДС);
КонецЕсли
147 alex_reglament
 
15.12.11
19:18
(146) так ок?
148 zak555
 
15.12.11
19:23
я так понял, что КО - это закрытие заявки
149 alex_reglament
 
15.12.11
19:25
какой заявки?
150 alex_reglament
 
15.12.11
19:25
КО = СуммаОплаты контрагентом
151 zak555
 
15.12.11
19:26
а ты тогда, что пишешь в (146) ???

у тебя возврат это КО
152 alex_reglament
 
15.12.11
19:29
если док поступление товара есть в подчиненных в накладной и у него флагвозврата = 1 тогда сумму этого подчиненного дока минусуем из суммы оплаты контрагента он же вернул товар а мы ему деньги за этот товар что он вернул
153 alex_reglament
 
15.12.11
19:34
СуммаОплаты = ДЦ.КО
СуммаОтгрузки = Дц.ДО
если одчиненныеДокументы.ВыбратьПодчиненныеДокументы(,,ДЦ.Субконто(2).ТекущийДокумент()) = 1 тогда
если одчиненныеДокументы.Вид() = "ПоступлениеТовара" тогда
Если одчиненныеДокументы.ФлОтгрузки = 1 тогда
суммаОплаты_1 = СуммаОплаты - одчиненныеДокументы.Итог(СуммаСНДС)
конецЕсли;
конецЕсли;
конецЕсли;
154 zak555
 
15.12.11
19:34
Типы занчений Субконто2 и Субконто3 ?
155 alex_reglament
 
15.12.11
19:35
+(153)
если ДЦ.Субконто(2).Вид() = "РасходТовара" тогда
СуммаОтгрузки = Дц.ДО
конецЕсли
156 alex_reglament
 
15.12.11
19:35
Субконто3 вообще там не нужны
157 alex_reglament
 
15.12.11
19:36
Субконто2 = Накладная (ДокументРасходТовара)
158 alex_reglament
 
15.12.11
19:36
Субконто(1) = Контрагенты (Справочник.Контрагенты
159 alex_reglament
 
15.12.11
19:38
вот скрин дока Закрытие накладных
http://s017.radikal.ru/i406/1112/56/2757086c18c1.jpg
а вот его операция
http://s017.radikal.ru/i432/1112/99/e0eba6553592.jpg
160 zak555
 
15.12.11
19:41
(156) важно
161 alex_reglament
 
15.12.11
19:41
ну что?
162 zak555
 
15.12.11
19:42
(159) скрин не уменьшай
ничего не вижу
163 alex_reglament
 
15.12.11
19:42
(160) не понял
164 zak555
 
15.12.11
19:43
(163) что такое субконто3
165 alex_reglament
 
15.12.11
19:43
вот скрин дока Закрытие накладных
http://s006.radikal.ru/i215/1112/66/ab4748f8aca9.png
166 alex_reglament
 
15.12.11
19:44
167 zak555
 
15.12.11
19:44
покажи операцию прихода
168 alex_reglament
 
15.12.11
19:47
вот приход (с флвгом возврат)
http://s017.radikal.ru/i414/1112/bc/09708a190dba.png
169 zak555
 
15.12.11
19:52
как в приходе аналитика расхода ? о_О
170 alex_reglament
 
15.12.11
19:52
ДаА
171 zak555
 
15.12.11
19:53
я тогда ничего не понимаю
172 alex_reglament
 
15.12.11
19:54
вот и я по этому и запутался
173 zak555
 
15.12.11
19:55
ну так надо разбираться : открывать осв по счету/карточку и вперёд
174 alex_reglament
 
15.12.11
19:57
не понял по  осв ? что это?
175 zak555
 
15.12.11
19:58
бу га га
176 zak555
 
15.12.11
19:59
Оборотно-сальдовая ведомость
177 alex_reglament
 
15.12.11
20:01
скрин?
Оборотно-сальдовая ведомость
178 alex_reglament
 
15.12.11
20:04
179 zak555
 
15.12.11
20:04
ты прикалываешься ?
180 alex_reglament
 
15.12.11
20:05
(179) гдето да :))
подрубишься?
181 zak555
 
15.12.11
20:05
аналитику НДС убери совсем
182 alex_reglament
 
15.12.11
20:06
(181) теперь ты прикалываешься
183 zak555
 
15.12.11
20:08
в осв по счету есть такое поняте, как не учитывать пр и выводе ту или иную аналитику
184 alex_reglament
 
15.12.11
20:11
да я понял загляни в аську
185 zak555
 
15.12.11
21:07
что такое аська ?
186 alex_reglament
 
16.12.11
10:49
(185) прикалываешься?
187 zak555
 
16.12.11
11:05
всё ещё кипятим ?
188 alex_reglament
 
16.12.11
11:19
(187) :))
189 alex_reglament
 
16.12.11
11:27
(187) что ты скажшь если пользовать
Док = СоздатьОбъект("Документ");
   Док.ВыбратьДокументы(ДатаНач,ДатаКон);
в моем случае
190 zak555
 
16.12.11
11:28
я не вижу ОСВ по счету ДЦ без разворота на последней аналитике
191 alex_reglament
 
16.12.11
11:43
производство НДС 10%
192 alex_reglament
 
16.12.11
11:43
это его аналитика
193 zak555
 
16.12.11
11:44
так вот
сформируй ОСВ по счёту без этой аналитики
194 alex_reglament
 
16.12.11
11:45
не понимаю как???
195 alex_reglament
 
16.12.11
11:46
извини туплю
196 alex_reglament
 
16.12.11
11:46
формирую
197 alex_reglament
 
16.12.11
11:48
198 zak555
 
16.12.11
11:57
т.е. по Дт не движений ?
199 zak555
 
16.12.11
11:57
*нет
200 alex_reglament
 
16.12.11
12:33
правильно за этот квартал небыло
201 zak555
 
16.12.11
13:22
покажи, где было
202 alex_reglament
 
16.12.11
17:43
(201) ок
203 zak555
 
16.12.11
17:43
ещё кипятим ?
204 sergei123654
 
19.12.11
17:25
ну так че там? получилось?

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