Отчет по кредиту 51го счета

@ky4r · Регистрация: 25.07.2009

Студворк — интернет-сервис помощи студентам

Задача следующая:
есть отчет "Обороты счета",там задаем период,номер счета(51)...выводится "обороты по счету 51",тыкаем на расшифровку ячейки 51 го счета,выводится "журнал проводок по 51 счету"...опять же тыкаем на расшифровку,получаем "операция(Выписка)"
вот отсюда мне нужно выудить вид договора,контрагента,сумму,дату и тд...
какие нужно использовать функции\процедуры,и как узнать идентификаторы ячеек этой операции?
если непонятно объясняю,могу сделать скрины иль базу скинуть

@vbs · 13.08.2009, 18:05

Сообщение от thynkfast

Буду знать пасип. Я просто впервые употр*цензура*ю это слово письменно.

Потому что, не 1Сом жив человек

@ky4r · 18.08.2009, 17:15

нужна еще помощь...в этот отчет нужно добавить промежуточные итоги...то есть таблица отчета отсортирована по виду ДДС...и для каждого вида ДДС должен быть свой итог...как лучше это написать?

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Процедура Сформировать()
Перем Таб, ТЗ, Заголовок;
Проверить_Дату();
Заголовок = "Отчет по движению денежных средств за период "+ ПериодСтр(НачДата,КонДата);
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию ("Шапка");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка ("ТВидДДС");
ТЗ.НоваяКолонка ("ТВидДоговора");
ТЗ.НоваяКолонка ("ТКонтрагент");
ТЗ.НоваяКолонка ("ТПодразделДоговора");
ТЗ.НоваяКолонка ("ТСумма");
ТЗ.НоваяКолонка ("ТДатаВыписки");
ТЗ.НоваяКолонка ("ТНомПП");
ТЗ.НоваяКолонка ("ТДатаПП");
 
Док = СоздатьОбъект("Документ.Выписка");
Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Проведен() = 0 Тогда
Продолжить;
КонецЕсли;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл
Если Док.Расход <> 0 Тогда
Если ПустоеЗначение(Док.ПервичныйДокумент) = 0 Тогда
ВидДоговора = Док.ПервичныйДокумент.Договор.ВидДоговора;
Если ВыбВидДоговора.Выбран() = 1 Тогда
Если ВыбВидДоговора <> ВидДоговора Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
Если Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("68")) = 1 Тогда
Если ВыбКонтрагент.Выбран() = 1 Тогда
Продолжить;
КонецЕсли;
Контрагент = Док.ПервичныйДокумент.Договор;
ИначеЕсли Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("69")) = 1 Тогда
Если ВыбКонтрагент.Выбран() = 1 Тогда
Продолжить;
КонецЕсли;
Контрагент = СчетПоКоду("69").Наименование;
Иначе
Контрагент = Док.ПервичныйДокумент.Контрагент;
Если ВыбКонтрагент.Выбран() = 1 Тогда
Если ВыбКонтрагент <> Контрагент Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
КонецЕсли;
 
ТЗ.НоваяСтрока();
ТЗ.ТВидДоговора = ВидДоговора;
 
ТЗ.ТКонтрагент = Контрагент;
ВидДДС = Док.ВидДвижения;
ТЗ.ТВидДДС = ВидДДС;
Договор = Док.ПервичныйДокумент.Договор;
ТЗ.ТПодразделДоговора = Договор;
Сумма= Док.Расход;
ТЗ.ТСумма = Сумма;
НомПП = Док.НомерДокВходящий;
ТЗ.ТНомПП = НомПП;
ДатаПП = Док.ДатаДокВходящий;
ТЗ.ТДатаПП = ДатаПП;
ДатаВыписки = Док.ДатаДок;
ТЗ.ТДатаВыписки = ДатаВыписки;
 
КонецЕсли;
КонецЕсли;
КонецЦикла;
 
КонецЦикла;
ТЗ.Сортировать("ТВидДДС+");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
//КонецЕсли;
КонецЦикла;
 
Сумма = ТЗ.Итог("ТСумма");
Таб.ВывестиСекцию("Подвал");
 
 
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0);
Таб.ПараметрыСтраницы(2,,,,,,,,,1);
Таб.Показать();
КонецПроцедуры

написал,что первое в голову пришло...ересь,но работает,правда не всегда)

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
ТЗ.Сортировать("ТВидДДС+");
ИтСумма = 0;
ТЗ.ПолучитьСтрокуПоНомеру(1);
ВидДДСТаб = ТЗ.ТВидДДС;
Таб.ВывестиСекцию("Заголовок");
Для НомерСтроки = 1 по ТЗ.КоличествоСтрок()-1 Цикл
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки+1);
ДДС_2= ТЗ.ТВидДДС;
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки);
ДДС_1= ТЗ.ТВидДДС;
Если ДДС_1=ДДС_2 Тогда
 
Если НомерСтроки+1= ТЗ.КоличествоСтрок() Тогда
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки);
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
ИтСумма = ИтСумма + Сумма;
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки+1);
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
ИтСумма = ИтСумма + Сумма;
Таб.ВывестиСекцию("Подвал");
 
Иначе
 
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
ИтСумма = ИтСумма + Сумма;
КонецЕсли;
 
Иначе
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
ИтСумма = ИтСумма + Сумма;
Таб.ВывестиСекцию("Подвал");
ИтСумма = 0;
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки+1);
ВидДДСТаб= ТЗ.ТвидДДС;
Таб.ВывестиСекцию("Заголовок");
 
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
ИтСумма = ИтСумма + Сумма;
Таб.ВывестиСекцию("Подвал");
 
КонецЕсли;
 
КонецЦикла;

@thymkfost · 18.08.2009, 18:19

ТЗПромИтоги = ТЗ;
ТЗПромИтоги.Свернуть("ВидДДС", "Сумма");
получишь новую таблицу с Итогами по Видам ДДС, а дальше тяни из нее что надо.

З.Ы. ...("ВидДДС", "Сумма"); ВидДДС и Сумма - это не конкретные значения, а имена Колонок.

@ky4r · 18.08.2009, 20:13

спс...еще вопрос,как организовать цикл проверяющий совпадение\несовпадение соседних ддс...те идет у нас например
договора аренды
договора аренды
договора аренды
оплата поставщику

пром.итог нужно вывести после 3ех первых строк
нужно что то вроде если a[i-1]= a тогда вывести строку иначе вывести строку и итоги...

что-то непонятно...когда добавляю ТЗПромИтоги вылетает ошибка

ВидДоговора = ТЗ.ТВидДоговора;
{Отчет.ДвижениеДенежныхСредств.Форма.Мод уль(91)}: Поле агрегатного объекта не обнаружено (ТВидДоговора)

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    ТЗ.Сортировать("ТВидДДС+");
ТЗПромИтоги = ТЗ;
ТЗПромИтоги.Свернуть("ТВидДДС,","ТСумма");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
ВидДДС = ТЗ.ТВидДДС;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
КонецЦикла;

@vbs · 18.08.2009, 20:36

Перенеси виды ДДС с одинаковыми названиями в соответствующие каталоги, а в ТЗ запихни родителя, по нему группируй и сортируй

А вообще зря упираешься - сделал бы запрос по бух.итогам с соответствующими фильтрами по субконто - и забот не знал бы.
Механизм полезный - освоишь один раз, дальше сам возьмешь на вооружение

@ky4r · 18.08.2009, 21:17

ок,учту)

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29

	Отчет по кредиту 51го счета 04.08.2009, 10:50. Показов 50220. Ответов 45 Метки нет (Все метки) Задача следующая: есть отчет "Обороты счета",там задаем период,номер счета(51)...выводится "обороты по счету 51",тыкаем на расшифровку ячейки 51 го счета,выводится "журнал проводок по 51 счету"...опять же тыкаем на расшифровку,получаем "операция(Выписка)" вот отсюда мне нужно выудить вид договора,контрагента,сумму,дату и тд... какие нужно использовать функции\процедуры,и как узнать идентификаторы ячеек этой операции? если непонятно объясняю,могу сделать скрины иль базу скинуть 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	18.08.2009, 18:19
	ТЗПромИтоги = ТЗ; ТЗПромИтоги.Свернуть("ВидДДС", "Сумма"); получишь новую таблицу с Итогами по Видам ДДС, а дальше тяни из нее что надо. З.Ы. ...("ВидДДС", "Сумма"); ВидДДС и Сумма - это не конкретные значения, а имена Колонок. 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	18.08.2009, 20:36
	Перенеси виды ДДС с одинаковыми названиями в соответствующие каталоги, а в ТЗ запихни родителя, по нему группируй и сортируй А вообще зря упираешься - сделал бы запрос по бух.итогам с соответствующими фильтрами по субконто - и забот не знал бы. Механизм полезный - освоишь один раз, дальше сам возьмешь на вооружение 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	18.08.2009, 21:17
	ок,учту) 0