bobank писал(а) 03. Декабря 2007 :: 08:13:


Что все 150 используются в проводках? 

Глубоко не анализировал, но половина точно.

На ум пришло довольно тривиальное решение, может кому пригодится:

Объект1С=СоздатьОбъект("V77.Application");
РезультатПодключения=Объект1С.Initialize(Объект1С.RMTrade
                                                             ," /d"+КатИБ
                                                            +" /n"+Пользователь1С
                                                            +" /p"+Пароль1С
                                                                      ,"NO_SPLASH_SHOW");
Если РезультатПодключения = 0 Тогда
   Предупреждение("Не удалось подключится к базе.");
   Возврат;
КонецЕсли;

ТекстЗапроса="
      |SELECT
      |     Проводки.ACCDTID [Дебет $Счет.Основной]
      |    ,Проводки.DTSC0 [СубконтоДт1 $Субконто]
      |    ,Проводки.VDTSC0 AS СубконтоДт1_вид
      |    ,Проводки.ACCKTID [Кредит $Счет.Основной]
      |    ,Проводки.KTSC0 [СубконтоКт1 $Субконто]
      |    ,Проводки.VKTSC0 AS СубконтоКт1_вид
      |    ,Проводки.AMOUNT AS Количество
      |    ,Проводки.SUM_ AS Сумма
      |FROM
      |    _1SENTRY AS Проводки
      |WHERE
      |              (Проводки.ACTIVE = ' ')
      |    AND ((Проводки.PROVKIND = ' ') OR (Проводки.CORNO > 0))
      |    AND (Проводки.DATE_TIME_DOCID Between :НачДата AND :КонДата~)";

           


//использую первые попавшиеся глобальные переменные в открытой базе
// глРасшифровка и глТаблица

Объект1С.глРасшифровка=Объект1С.CreateObject("ODBCRecordSet");

Объект1С.глРасшифровка.УстановитьТекстовыйПараметр("НачДата",Дата1);
Объект1С.глРасшифровка.УстановитьТекстовыйПараметр("КонДата",Дата2);

Объект1С.глТаблица=Объект1С.глРасшифровка.ВыполнитьИнструкцию(ТекстЗапроса);

Ну а дальше, как говорится, получай хоть код, хоть наименование.

Всем спасибо за внимание.

Nick писал(а) 03. Декабря 2007 :: 09:36:


А ты когда нибудь пробовал выбрать 130000!!! с различными условиями и с развернутыми оборотами по указанным субконо, а не по всем, стандартными средствами 1С? Попробуй, уходит на это примерно 2-2,5 часа, а 1С++ - секунд 20-30. Есть разница?

ДА.

Цитата:


Если имеешь ввиду последующую загрузку выбранных проводок, то да.