|
Поскажите как получить остатки на банковских счетах организации? | ☑ | ||
---|---|---|---|---|
0
YaroslavStr
05.12.14
✎
12:39
|
Не могу понять как надо писать код, что бы получить остатки финансов по банковским счетам организации. В организации два счета в банке, конфигурация Бухгалтерия 8.2 для Украины. Как можно программным путем достать данные? Запросом или без него выборкой...
|
|||
1
Волшебник
модератор
05.12.14
✎
12:40
|
лучше запросом
|
|||
2
butterbean
05.12.14
✎
12:41
|
запросом... хотя я без него провангую, что там 0
|
|||
3
YaroslavStr
05.12.14
✎
12:41
|
Я так понял в бухгалтерии эти данные хранятся в регистре бухгалтерии, но как их вытянуть оттуда? Я беру счет 331 но там просто сумма, без разреза на счета и валюты... Или чё-то не доганяю? :)
|
|||
4
Пеппи
05.12.14
✎
12:45
|
(3) каков запрос таков и ответ ))
|
|||
5
butterbean
05.12.14
✎
12:47
|
(3) выбирай запросом субконто со счетами/валютами из таблицы РегистрБух.Остатки
|
|||
6
YaroslavStr
05.12.14
✎
12:49
|
Я просмотрел анализ счета 33, там нет вообще такого понятия как банковский счет, но есть счет типа ПланыСчетов. Есть также организация и валюта... Мне нужен именно остаток, например на банкоском счете: 12131216510654 в "грн" по организации "Вася Пупкин"...
|
|||
7
YaroslavStr
05.12.14
✎
17:57
|
В = Справочники.Организации.Выбрать();
Пока В.Следующий() Цикл ТекОрганизация = В.Ссылка; КонецЦикла; Отбор = Новый Структура("Организация",ТекОрганизация); В = Справочники.БанковскиеСчета.Выбрать(Отбор); Пока В.Следующий() Цикл БанкСчет = В.Ссылка; КонецЦикла; ВидыСубконто = Новый Массив; ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.БанковскиеСчета); Отбор = Новый Структура("Субконто1",БанкСчет); Выборка = РегистрыБухгалтерии.Хозрасчетный.Остатки(ТекущаяДата(),ВидыСубконто,Отбор,"Организация,Субконто1"); Для каждого Тек Из Выборка Цикл Сообщить(Тек.Субконто1.Наименование+" - "+Тек.СуммаОстатокДт); КонецЦикла; Примерно самый простой способ... Да можно запросом, но этот мне наглядней да и организация одна с одним счетом. :) |
|||
8
DexterMorgan
05.12.14
✎
17:59
|
(7) ф-у-у-у-б-л-е-а-а
|
|||
9
Господин ПЖ
05.12.14
✎
18:06
|
(7) пиши еще... ломай (8) полностью
|
|||
10
Волшебник
модератор
05.12.14
✎
18:11
|
(7) Ужасный программный код
|
|||
11
YaroslavStr
05.12.14
✎
18:15
|
Так и думал, скажете что полный писец. :) Мне хватит. Но спасибо, что помогли, хоть так разобратся. Я код еще полностью не выправил. Что касается ломать, то я пишу свой документ и конфигурация, слава Богу, на поддержке. :)
|
|||
12
rsv
05.12.14
✎
18:16
|
(0) Может быть просто ОСВ по 51 счету в разрезе РС ?
|
|||
13
YaroslavStr
05.12.14
✎
18:17
|
Функция ОстатокНаБанковскомСчетеОрганизации(Организация,Счет)
ВидыСубконто = Новый Массив; ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.БанковскиеСчета); Отбор = Новый Структура(); Отбор.Вставить("Организация",Организация); Отбор.Вставить("Субконто1",Счет); Выборка = РегистрыБухгалтерии.Хозрасчетный.Остатки(ТекущаяДата(),ВидыСубконто,Отбор,"Организация,Субконто1"); СуммаОстатка = 0; Для каждого Тек Из Выборка Цикл СуммаОстатка=Тек.СуммаОстатокДт; КонецЦикла; Возврат СуммаОстатка; КонецФункции Вот то что мне надо было... |
|||
14
rsv
05.12.14
✎
18:18
|
(13) Кода не мало ?
|
|||
15
YaroslavStr
05.12.14
✎
18:20
|
Нет. Все ок. Щас покажу что в итоге вышло!
|
|||
16
YaroslavStr
05.12.14
✎
18:21
|
||||
17
rsv
05.12.14
✎
18:21
|
(15) Главное чтоб с обороткой сошлось . С ней сверять будут .
|
|||
18
Господин ПЖ
05.12.14
✎
18:22
|
нормальная оборотка в конец дня смотрит хотя бы...
|
|||
19
YaroslavStr
05.12.14
✎
18:22
|
Суть документа в том, что бы сделать платежки на кучу счетов (их может быть за 50) одним нажатием кнопки. Перед этим просто проставляем сумму аванса на каждый счет. Потом останется только оплатить бухгалтерам.
|
|||
20
YaroslavStr
05.12.14
✎
18:23
|
У меня такая есть на 7-ке, но с новой бухгалтерией пришлось допилить...
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |