Имя: Пароль:
1C
1С v8
как должен выглядеть запрос из 8 в 7.7,чтобы получить остатки по бух.счетам?
0 lim9
 
28.08.13
13:02
как должен выглядеть запрос из 8 в 7.7,чтобы получить остатки по бух.счетам???
Простите, но не нашел пока!
1 Гефест
 
28.08.13
13:03
он должен выглядеть как запрос к бухитогам
2 ale-sarin
 
28.08.13
13:03
(0) Совершенно по другому все выглядит.
3 Kreont
 
28.08.13
13:04
напиши тот же запрос сначала в 7.7, потом проставь все поля по умолчанию (читая СП) что б были заполнены во всех методах, потом перенеси в 8-ку.
4 lim9
 
28.08.13
13:06
дык не селен я в 7.7, может кто пример кода скинет??
5 hhhh
 
28.08.13
13:09
(4) так посмотри здесь, за последнюю неделю 3 или четыре темы здесь были.
6 lim9
 
28.08.13
13:28
так вот не вижу что-то, хелп плиз!
7 ale-sarin
 
28.08.13
13:29
(6) Как искал? Лентяй.
8 lim9
 
28.08.13
13:42
ну не лентяй, не правильно может набираю поиск??
"запрос остатков бух из 8 в 77 site:forum.mista.ru"
9 lim9
 
28.08.13
13:49
ну подскажите пример запроса, не нахожу нигде пример запроса на языке v.8
10 Delorn
 
28.08.13
13:51
ыыыы. Ты по оле или прямым хочешь получить?
11 Segate
 
28.08.13
13:52
БухИт004пр = База.CreateObject("БухгалтерскиеИтоги");
                            БухИт004пр.ИспользоватьСубконто(СубНоменклатура, Товар7, 2);
                            БухИт004пр.ИспользоватьСубконто(СубКонтрагенты, Контрагент77, 2);
                            БухИт004пр.ИспользоватьСубконто(СубДокументы, Реализация77,2);
                            БухИт004пр.ВыполнитьЗапрос(Реализация77.датадок,Реализация77.датадок,"004.2","","",1,"период","Ск");
                            БухИт004пр.ВыбратьСубконто(СубНоменклатура);
                            БухИт004пр.ПолучитьСубконто(СубНоменклатура);
                            
                            ЦенаЗакуп = БухИт004пр.СКД("С")/БухИт004пр.СКД("К");
                            Количество004 = БухИт004пр.СКД("К");
12 Segate
 
28.08.13
13:53
пжалста, как гриццо
13 ale-sarin
 
28.08.13
13:53
(8) Тут два вопроса: Сначала как пишутся запросы к бух итогам в 7-ке, а потом уже подключение из 8 к 7..
14 lim9
 
28.08.13
13:57
(11) - т.е. если мне надо получить остаток по всем счетам,я не включаю опреатор: БухИт004пр.ИспользоватьСубконто ?

(13) - подключиться то уж смогу )))
15 Segate
 
28.08.13
14:02
(14) найми программиста ) все равно это не твое пока )

В использовать субконто ты где счет вообще нашел?
16 ale-sarin
 
28.08.13
14:04
(14) Открой конфигуратор в 7-ке.
17 lim9
 
28.08.13
16:29
сделал так:
ОбъектОле = Новый COMОбъект("V77.Application");
Открыта = ОбъектОле.Initialize(ОбъектОле.RMTrade,"/d" +пБД,"NO_SPLASH_SHOW");
    
ИтОЛЕ = ОбъектОле.CreateObject("БухгалтерскиеИтоги");
ИтСубкОЛЕ = ОбъектОле.CreateObject("БухгалтерскиеИтоги");
ПланСчетовОЛЕ = ОбъектОле.ВыбранныйПланСчетов();
ИтОЛЕ.ИспользоватьПланСчетов(ПланСчетовОЛЕ);
ИтСубкОЛЕ.ИспользоватьПланСчетов(ПланСчетовОЛЕ);
ИтОЛЕ.ИспользоватьРазделительУчета();
ИтСубкОЛЕ.ИспользоватьРазделительУчета();
ИтОЛЕ.ВключатьСубсчета(1);
ИтОЛЕ.ИспользоватьСубконто();
Если ИтОЛЕ.ВыполнитьЗапрос(Дата(2013,08,01,00,00,00),Дата(2013,08,01,00,00,00),"",Неопределено,Неопределено,1,Неопределено,5) = 0 Тогда
    Сообщить("запрос по бух.итогам не выполнен");
    Возврат;
КонецЕсли;
ТЗОстатков = Новый ТаблицаЗначений;
ТЗОстатков.Колонки.Добавить("Счет");
ТЗОстатков.Колонки.Добавить("КодСчет");
ТЗОстатков.Колонки.Добавить("Субконто1");
ТЗОстатков.Колонки.Добавить("СтрСубконто1");
ТЗОстатков.Колонки.Добавить("Субконто2");
ТЗОстатков.Колонки.Добавить("СтрСубконто2");
ТЗОстатков.Колонки.Добавить("Субконто3");
ТЗОстатков.Колонки.Добавить("СтрСубконто3");
ТЗОстатков.Колонки.Добавить("СальдоДеб");
ТЗОстатков.Колонки.Добавить("КоличествоСНД");
ТЗОстатков.Колонки.Добавить("СальдоКред");
ТЗОстатков.Колонки.Добавить("КоличествоСНК");

ИтОЛЕ.ВыбратьСчета();
Пока ИтОЛЕ.ПолучитьСчет() = 1 Цикл
        Если ИтОЛЕ.Счет.ЭтоГруппа()=1 Тогда
            Продолжить;
        КонецЕсли;
        КолСубк=ИтОЛЕ.Счет.КоличествоСубконто();
        Если КолСубк=0 Тогда
            НовСтрока=ТЗОстатков.Добавить();
            НовСтрока.Счет=ИтОЛЕ.Счет;
            НовСтрока.КодСчет=СокрЛП(ИтОЛЕ.Счет.Код);
            НовСтрока.СальдоДеб=ИтОЛЕ.СКД(1);
            НовСтрока.КоличествоСНД=ИтОЛЕ.СНД(3);
            НовСтрока.СальдоКред=ИтОЛЕ.СКК(1);
            НовСтрока.КоличествоСНК=ИтОЛЕ.СНК(3);
            Продолжить;
        КонецЕсли;
КонецЦикла;
18 lim9
 
28.08.13
16:30
как теперь получить развернутое сальдо по всем субконто?
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.