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

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

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

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

@kyr · 12.08.2009, 14:31

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

@ky4r · 12.08.2009, 14:39

хз...до 1С учил ток паскаль,оттуда привычка осталась,ибо в паскале процедуры\функции имхо смотрелись читабельней

@ky4r · 12.08.2009, 16:16

и все же никак не пойму,как сдесь сделать группировку по виду договора...

@thymkfost · 12.08.2009, 16:44

Что группировать надо ТЧ ТЗ Отчет?

@kyr · 12.08.2009, 17:02

ge4r , тебе именно группировать нада или сортировать?

@ky4r · 12.08.2009, 17:15

неправильно выразился...надо отсортировать по столбцу вид договора

@thymkfost · 12.08.2009, 17:55

есть стандартная обработка :
*.Сортировать("ВидДоговора Убыв");

@ky4r · 12.08.2009, 18:07

это для таблицы значений,тут такое не покатит,я пробывал...на это он выдает ошибку Поле агрегатного объекта не обнаружено (Сортировать)

@vbs · 12.08.2009, 19:59

Еще один камешек на чашу весов использования запроса по бухитогам.
А в твоем случае надо в цикле не выводить на печать строки, а формировать ТЗ, каковую потом отсортировать как пожелаешь

@ky4r · 13.08.2009, 13:06

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

Посмотрите пожалуйста,сделал через ТЗ,но возможно с циклом где то накосячил.... при формировании отчета выдает n строк абсолютно одинаковых

@thymkfost · 13.08.2009, 13:32

Конечно ты выводишь только первую чтроку:
ТЗ.Сортировать("ТВидДДС+");

Для НомерСтроки = 1 По ТЗ.КоличествоСтрок() Цикл
ВидДДС = ТЗ.ТВидДДС;
ВидДоговора = ТЗ.ТВидДоговора;
Контрагент = ТЗ.ТКонтрагент;
Договор = ТЗ.ТПодразделДоговора;
Сумма = ТЗ.ТСумма;
ДатаВыписки = ТЗ.ТДатаВыписки;
НомПП = ТЗ.ТНомПП;
ДатаПП = ТЗ.ТДатаПП;
Таб.ВывестиСекцию("Строка");
КонецЦикла;

а где в цикле ТЗ.получитьСтроку(НомерСтроки) ????
И да строки идут с 0ля надо делать условие
Для НомерСтроки = 0 По ТЗ.КоличествоСтрок()-1 Цикл

@ky4r · 13.08.2009, 13:48

да,спасибо,уже исправил)

@vbs · 13.08.2009, 14:00

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

Для НомерСтроки = 0 По ТЗ.КоличествоСтрок()-1 Цикл

Это, похоже, новое слово в работе с таблицами значений

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

если делать с 1цы,то теряется строка одна

Никуда она не потеряется, сомневаешься - выкати ТЗ на экран и посмотри методом ВыбратьСтроку

@thymkfost · 13.08.2009, 15:35

vbs Что-нить не так?

Если бы он использовал:
"Для каждого … Из … Цикл", я бы использовал эту структуру.
Так ему будет понятней.

З.Ы. Или это уже "mauvais ton" :D Или по религиозным соображениям низя ? :ph34r:

@vbs · 13.08.2009, 16:06

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

vbs Что-нить не так?
Если бы он использовал:
"Для каждого … Из … Цикл", я бы использовал эту структуру.
Так ему будет понятней.

Речь о 7.7, а там НомерСтроки меняется от ЕДИНИЦЫ до КоличествоСтрок,
естественно, в его примере надо использовать ПолучитьСтрокуПономеру
А если цикл по методу ПолучитьСтроку, то там и номер указывать не надо

@thymkfost · 13.08.2009, 16:17

А елки... я думал это 8-ка. Я в 7.7 не силен. Звиняй зря с агрился :ph34r:

@vbs · 13.08.2009, 16:54

thynkfast
И если уж мы по-французски стали разговаривать, обыграю твой ник
Penser est rapide - pas toujours penser correctement
:ph34r:
PS. Не обижайся, со всеми случается

@thymkfost · 13.08.2009, 17:08

Да норм )
Это у меня из ММОшек пошло ) там скорей не "Быстро думать", а "Быстро соображать".
Да и во французком я 0ль ))) просто написал по-русски "Мувитон", подумал что не уверен в правильности написания, загуглил так и есть )) оказалось "Муветон". Решил вставить оригинал :ph34r:

@vbs · 13.08.2009, 17:36

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

оказалось "Муветон".

По-русски обычно пишут Моветон

Зарделись щеки сквозь румяна.
Ошеломленная Татьяна
Давай французский вспоминать :
"Как Вас, Онегин, понимать ?"

@thymkfost · 13.08.2009, 17:51

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

З.Ы. И только сейчас, прочитав стишок, я обратил внимание на подпись))) Сам себе яму выкопал :ph34r:

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

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

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

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	12.08.2009, 14:31
	а вот у меня такой вопрос - зачем было выносить проверку даты в отдельную процедуру? 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	12.08.2009, 14:39
	хз...до 1С учил ток паскаль,оттуда привычка осталась,ибо в паскале процедуры\функции имхо смотрелись читабельней 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	12.08.2009, 16:16
	и все же никак не пойму,как сдесь сделать группировку по виду договора... 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	12.08.2009, 16:44
	Что группировать надо ТЧ ТЗ Отчет? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	12.08.2009, 17:02
	ge4r , тебе именно группировать нада или сортировать? 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	12.08.2009, 17:15
	неправильно выразился...надо отсортировать по столбцу вид договора 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	12.08.2009, 17:55
	есть стандартная обработка : *.Сортировать("ВидДоговора Убыв"); 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	12.08.2009, 18:07
	это для таблицы значений,тут такое не покатит,я пробывал...на это он выдает ошибку Поле агрегатного объекта не обнаружено (Сортировать) 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	12.08.2009, 19:59
	Еще один камешек на чашу весов использования запроса по бухитогам. А в твоем случае надо в цикле не выводить на печать строки, а формировать ТЗ, каковую потом отсортировать как пожелаешь 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	13.08.2009, 13:32
	Конечно ты выводишь только первую чтроку: ТЗ.Сортировать("ТВидДДС+"); Для НомерСтроки = 1 По ТЗ.КоличествоСтрок() Цикл ВидДДС = ТЗ.ТВидДДС; ВидДоговора = ТЗ.ТВидДоговора; Контрагент = ТЗ.ТКонтрагент; Договор = ТЗ.ТПодразделДоговора; Сумма = ТЗ.ТСумма; ДатаВыписки = ТЗ.ТДатаВыписки; НомПП = ТЗ.ТНомПП; ДатаПП = ТЗ.ТДатаПП; Таб.ВывестиСекцию("Строка"); КонецЦикла; а где в цикле ТЗ.получитьСтроку(НомерСтроки) ???? И да строки идут с 0ля надо делать условие Для НомерСтроки = 0 По ТЗ.КоличествоСтрок()-1 Цикл 0

@ky4r 0 / 0 / 0 Регистрация: 25.07.2009 Сообщений: 29
	13.08.2009, 13:48
	да,спасибо,уже исправил) 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	13.08.2009, 15:35
	vbs Что-нить не так? Если бы он использовал: "Для каждого … Из … Цикл", я бы использовал эту структуру. Так ему будет понятней. З.Ы. Или это уже "mauvais ton" :D Или по религиозным соображениям низя ? :ph34r: 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	13.08.2009, 16:17
	А елки... я думал это 8-ка. Я в 7.7 не силен. Звиняй зря с агрился :ph34r: 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	13.08.2009, 16:54
	thynkfast И если уж мы по-французски стали разговаривать, обыграю твой ник Penser est rapide - pas toujours penser correctement :ph34r: PS. Не обижайся, со всеми случается 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	13.08.2009, 17:08
	Да норм ) Это у меня из ММОшек пошло ) там скорей не "Быстро думать", а "Быстро соображать". Да и во французком я 0ль ))) просто написал по-русски "Мувитон", подумал что не уверен в правильности написания, загуглил так и есть )) оказалось "Муветон". Решил вставить оригинал :ph34r: 0

@thymkfost 0 / 0 / 0 Регистрация: 23.07.2009 Сообщений: 91
	13.08.2009, 17:51
	Буду знать пасип. Я просто впервые употрцензураю это слово письменно. :D З.Ы. И только сейчас, прочитав стишок, я обратил внимание на подпись))) Сам себе яму выкопал :ph34r: 0