Nick писал(а) 10. Апреля 2007 :: 05:12:

Если добывать итоговые данные, это не проблема.
А все остальное, наверное лучше 1С попыхтит...

Nick писал(а) 11. Апреля 2007 :: 02:57:


delete from _1sconst where date < cast('20070101' as datetime)

Только поаккуратнее нужно с этим: на самом деле сначала нужно перенести на первую сохраняемую дату последние ранее назначенные значения реквизитов. Скрипт с ходу не нашёл, а заново писать лениво.

ага, вот что-то похожее. Но просьба подходить с осторожностью и использовать исключительно как справочный образец, т.к. выдрано из древней обработки, а рабочая она или тестовая - звиняйте, уже не вспомню

insert into _1sconst
           |(id, objid, date, value, docid, time, actno,lineno_,tvalue)
           |select ta.id0 as id, ta.objid0 as objid, cast('20031231' as datetime), tb.value, tb.docid, tb.time, tb.actno, tb.lineno_, tb.tvalue from
           |(select t0.id as id0, t0.objid as objid0, (select top 1 ref.row_id from
           |_1sconst as ref
           |where
           |ref.id = t0.id
           |AND
           |ref.date < '20040101'
           |AND
           |ref.objid = t0.objid
           |Order by ref.date desc, ref.time desc, ref.docid desc, ref.row_id desc) rowid
           |from (select distinct id,objid from _1sconst where
           |id in (select id from "+ИмяВрТаб+")
           |AND
           |date < '20040101')
           |as t0
           |) ta
           |left join
           |(select row_id, date, value, docid, time, actno, lineno_,tvalue from _1sconst) tb
           |on ta.rowid= tb.row_id

И проводки можно пожалуй тоже удалить средствами SQL а потом перерасчет итогов сделать, только конечно с начало операцию ввода остатков сделать.
А вот можно что - нибудь такое с регистрами проделать?

Nick писал(а) 11. Апреля 2007 :: 09:25:


Разумеется, можно. Просто я не стал заморачиваться, т.к. у меня их очень мало, в основном всё на регистрах. А регистры я как раз напрямую и чикал - см.выше повнимательнее

Примерно так:
delete from rg12345 where period<={d '1945-12-01'}

delete from ra12345 where date_time_iddoc<'19451231z'

Потому как ежели чикать регистры путём удаления доков, то каждый раз будут пересчитываться промежуточные итоги, а это ОЧЕНЬ долго

Nick писал(а) 11. Апреля 2007 :: 09:33:


Документ один, в заголовке - имя регистра, в табличной части - поля неопределённого типа (Измерения) и числовые (ресурсы). При проведении - через если-иначеесли анализ имени регистра, присвоение соответствующих величин, и выполнение движений.

Вариант-вопрос:

Что-то последнее время достало рисовать спец.доки с развесистой ТЧ, сделал док вообще без ТЧ. И шапка пустая. Док берет для себя данные из текстового файла, который я формирую обормоткой. Файл зарезервлен на сменный носитель. Вносит остатки нужным регам.
Перепроведение\Отмена  документа программно запрещены.

Пока живет (громкое слово "живет"; пользуюсь раз в год.. если правильно помню.)

Из минусов, заметных мне :

1) Поправить пару строчек или цифр - фигу, хотя это от лени написать редактор файла.
2) Страааашно     .... было. Но это, наверное, стереотипы.

Файлы с данными назвал RE*.DBF, чтобы архивировались за одно с БД. В * привязка ко внутр. ИДу документа (т.е. жму "Записать", а потом уже вызываю "Фиксатор остатков". Но это частность)) )

Ага, вопрос-то задать хотел
Нормально же придумал? Или так-себе?

Quan писал(а) 12. Апреля 2007 :: 06:21:

Вообще-то согласен.

Просто, после пары раз судорожных переделок структурированных доков ввода остатков, решил забить на красоту.

А про безразмерную строку - честно, просто пожалел 1SCONST.DBF забивать парой сотен килобайт данных, нужных один раз.

Выраженного желания хранения текстовых исходников данных, конечно, не было. Ибо там такие исходники, что человек их все равно не прочитает, все агрегатные объекты в виде ЗначениеВстрокуВнутр(...).

В ДБФ-ной базе безразмерная строка на сколько ёмкая? Не глюканет?

dnp писал(а) 12. Апреля 2007 :: 07:17:


А разве длинные строки тоже в 1SCONST хранятся?

Nick писал(а) 12. Апреля 2007 :: 07:25:


Была когда-то такая хрень, но в v.7.7 ликвидирована как класс

Вопрос:
1. Как получить имя таблицы которая содержит движения по регистру?
2. Можно программно пересчитать оперативные итоги?

Регистр.ПолучитьАтрибут("Идентификатор")

Вопрос:
На сколько реально увеличится производительность 1С под SQL если обрезать все пред идущие года
в базе?

Quan писал(а) 11. Апреля 2007 :: 09:05:


Пожалуй вот так будет правильнее всего :
delete from _1sconst where (date < cast('20070101' )) and (OBJID <> '     0   ')