Может как вариант реализовать поддержку виртуального поля $Рег.ТекущийДокумент13 которое выкручивать уже внутри КОПа в зависимости от ситуации

Тогда не только в таблице движений регистра, но и в других таблицах... виртуальное поле так сказать... хорошая идея. Спасибо за подсказку.

_{Анестезия отходит, зуб болеть начинает.... бля...}

classic писал(а) 20. Октября 2009 :: 09:19:


Если не ошибаюсь таким образом нельзя типизировать поле Счет.

Типизация поля Счет и КорСчет скорее всегод должна выглядеть как Счет.Основной, где "Основной" - это наименование плана счетов.
Типизация Субконто1 должна выглядеть так:
ЛЕВО(Субконто1, 9) КАК [Пайщик $Справочник.КПКПайщики]
или так:
Субконто1 КАК [Пайщик $Субконто],
Субконто1_вид КАК Пайщик_вид

Помогите начать работать с бухитогами на ДБФ, плиз. С виду все понятно, а толку...
1. Состав компонент (сейчас загружается 1sqlite и 1cpp v3.0.1.23)
2. Допустимая версия 1с (стоит 25 релиз)
3. Найдите ошибку
Попытка
     базаДанных = СоздатьОбъект("SQLiteBase");
Исключение
     ЗагрузитьВнешнююКомпоненту("1sqlite.dll");
     базаДанных = СоздатьОбъект("SQLiteBase");
КонецПопытки;

базаДанных.Открыть(":memory:");


запрос = базаДанных.НовыйЗапрос();
запрос.Отладка(1);
ТекстЗапроса="
|create table #СписокСчетов(val char(9) primary key)
|insert into #СписокСчетов
|select ID from ПланыСчетов
|where planid = :ПланСчетов.Основной
|and code = '41.1'
|Select Остатки.*
|From $БИОстатки.Основной(,,(Номенклатура),(Количество,Сумма),) As Остатки
|";
Тз=запрос.ВыполнитьЗапрос(ТекстЗапроса);
ТЗ.ВыбратьСтроку();
Сообщение об ошибке: {D:\1CBASE\SBDBVERA2009\ТЕСТПРЯМОЙЗАПРОС.ERT(24)}: near "#СписокСчетов": syntax error

Вроде остатки по счету по субконто получаются, с бухитогами сверил. Следующая беда - не могу наложить условие (в моем случае список номенклатуры) - возвращает пустую таблицу
     запрос=СоздатьОбъект("ПрямойЗапрос");
     СЗ=СоздатьОбъект("СписокЗначений");
     ВыбДок.ВыгрузитьТабличнуюЧасть(СЗ,"Товар");
     запрос.УложитьСписокЗначений(СЗ,"#ТаблицаНоменклатуры","Номенклатура");
     запрос.ВыполнитьЗапрос("create table #СписокСчетов(val char(9) primary key)");
     запрос.ВыполнитьЗапрос("
     |insert into #СписокСчетов
     |select ID from ПланыСчетов
     |where planid = :ПланСчетов.Основной
     |and LTRIM(RTRIM(SCHKOD)) = '41. 1.'");
     ТекстЗапроса="
     |Select Остатки.Субконто1 As [Номенклатура $Субконто]
     |, Остатки.Субконто1_вид As Номенклатура_вид
     |, Round(Остатки.КоличествоОстатокДт,2)-Round(Остатки.КоличествоОстатокКт,2) Количество
     |, Round(Остатки.СуммаОстатокДт,2)-Round(Остатки.СуммаОстатокКт,2) Сумма
     |From $БИОстатки.Основной(:ВыбДата~,#СписокСчетов,(Номенклатура),(Количество,Сумма)
     |,
     |Субконто1 in (Select Val From #ТаблицаНоменклатуры)
     |) As Остатки
     |";

Теперь заработало как надо. Таблицу счетов создавать неудобно - придумаю что-нибудь.
Какие общие рекомендации?
1. ПриНачалеРаботыСистемы загрузить 1sqlite и создать переменную БазаДанных1sqlite Экспорт и открыть базу или каждый раз заново?
2. Чистить временные таблицы или пусть болтаются (много их не будет и названия одни и те же)
3. Объект запрос=СоздатьОбъект("ПрямойЗапрос") создавать каждый раз или опять же глобальной переменной

ANik писал(а) 29. Октября 2009 :: 15:26:


Вообще объект "ПрямойЗапрос" можно создать один раз и его и использовать, только одно "но". Все параметры пользователя установленные будут хранится. Как вариант - использование идентичных идентификатором параметров, чтобы не забивать надолго.
Временные таблицы советую грохать всегда после окончания их использования. И если и хранить то только важные. Для SQL это особенно важно.
Объекты 1sqlite создавать вообще нет необходимости поскольку они создаются самим классом.