Имя: Пароль:
1C
 
Поскажите как получить остатки на банковских счетах организации?
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-ке, но с новой бухгалтерией пришлось допилить...
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший