Здравствуйте.База ТиС.Имеется 4 склада. Учет товара ведется уже около 5 лет. За это время база сильно выросла. и свертка базы не производилась. Подскажите пожалуйста как быстро произвести свертку. или быстро создать документы ВводаОстатков на даты 31.12.2008,31.12.2009,31.12.2010,31.12.2011

01.01.2012 лучше всего. Там штатно есть.

(1) что там штатно есть

wrap.ert в extforms

(3) сама обработка не запускается. Обьясните что эта за обработка.

(3) чООООООООО???????? wrap для свёртки торговли????
Ты что, бухой????
(4) Сервис - свертка.

(5) вопрос как быстро сформировать в ТиС документ ВводаОстатков Товара на даты в (0)

(5) Замучаются сворачивать, 5 лет, вели наверно без книг продаж, покупок и тд.

Номенклатура большая? если не очень, то сделать отчет и завести руками.

(6) Документ должен быть один

(8) да номенклатура большая

Что можете посоветовать с документом ВводОстатковТМЦ. Или справочник и остатков в УТ 11

Недавно сворачивал подобную базу.
Надо с файлами поколдовать, потом тестирование, далее измененную обработку свертки запустить и еще немного с базой поработать.

(11) Если ниразу неделал подобное то можешь убить очень много времени, дня 2-3 .
С небольшой базой у меня ушло 5 часов, хоошо что свертка запускалось на ночь, а  ручное колдовсто  заняло 2 часа .

Какой размер базы? сколько документов ?

Сворачивать только товар? Деньги не нужно сворачивать?

а взаиморасчеты - пушкин будет сворачивать?

(14) база 3 ГВ

(16) с взаиморасчетами все понятно.

Как побыстрее сделать свертку. Я понимаю так что необходимо сформировать Документы Ввода Остатков и все доки которые ранне удалить.

(19) Самое быстро - это пригласить того кто сворачивал подобные базы. Я за такую работу прошу 10 000 руб

В общем проблема такова. Я собрался переходить с этой базы на УТ 11. Штатными обработками делаю выгрузку Настроек и остатков. У меня выдается где- то через час работы "Недостаточно памяти".

Как по другому можно осуществить переход с ТиС на УТ 11?

Или сформировать документы ВводаОстатков?

Если базу пришлешь, то  в два раза дешевле. 5000 руб

И в чем прикол то что тестирование и исправление не делается. А закрывается с ошибкой на любом компе. Я даже выгрузку\загрузку делал не помогает

Сложно сказать не видев базы.

Видимо базу вели как разумели, а соответсвенно и глюков там много.

Высылай базу и готовь 5000 руб

(24) а ты не можешь поделится информацией хоть с чего начать или обработками

я просто начинающий хочется разобраться

1 УДАЛИТЬ ФАЙЛЫ  РЕГИСТРА КНИГА ПРОДАЖ, ПОКУПОК
И ТД

(31) книгу продаж покупок не ведем . Я выгрузил данные с ТиС. Создал новую базу и загрузил туда данные

вот что нарыл а разобраться не могу
Переделываем типовую свертку от ТИС, оставляем от нее только создание документов Ввода остатков (без проведения) и удаление периодики

она не запускается в таком случае

Проще взять  отчет остатков и на основании его заполнить документ начальных остатков и потом обработкой удалить ненужные доки. Так быстрее получиться.

Так вот я с этого и начал и затормозился. Взял Отчет ОстаткиТМЦ там есть кнопка Инвентаризация. Изменил там документ с Инвентаризации на Ввод остатков. И ничего При формировании остатков документ сформировался пустой.

(35) дай мне свой номер icq пообщаемся

Думаю что все что бесплатно уже написал.

помоги на основании отчета заполнить документ ввода остатков

а остальное я все сам сделаю.

или подскажи где найти про то что ты написал в (35)

(41) искать в коде отчета

(42) в отчете ОстаткиТМЦ

у кого еще какие варианты есть?

написал обработку создания документа ВВодаОстатков на дату просьба подправить и покритиковать
//*******************************************
Процедура Сформировать()
   Перем ТаблОстатков; //выгрузка итогов по регистру ПартииНаличие
   Перем ТабОстатковДок, ТЗДокумНом; //таблица остатков для формирования документов
   
   
//******************************************************************************
//            Эта часть формирует документы ввода остатков на основании
//            данных остатков по партиям
//******************************************************************************
   
   СкладыФирмы =  СоздатьОбъект("Справочник.Склады");            //Справочник Склады
   СпрСтавкиНП =  СоздатьОбъект("Справочник.СтавкиНП");            //Справочник Ставки НП
   ВремРегистры = СоздатьОбъект("Регистры");

   ПартииНаличие = ВремРегистры.ПартииНаличие;       //Регистр ПартииНаличие
   ТаблНоменклДляОстатков  =СоздатьОбъект("ТаблицаЗначений");    //Список номенклатуры

   СпрСтавкиНП.ВыбратьЭлементы();
   Если СпрСтавкиНП.НайтиПоНаименованию("Без налога")=1 Тогда
        СтавкаНПТек= СпрСтавкиНП.ТекущийЭлемент();
   КонецЕсли;
   
   ПартииНаличие.ВременныйРасчет();
   ВремРегистры.РассчитатьРегистрыНа(ДатаСвертки);
   ПартииНаличие.УстановитьЗначениеФильтра("Фирма", ФирмаДляСвертки, 1);          
   ПартииНаличие.ВыгрузитьИтоги(ТаблОстатков,1,1);
   //Создадим список номенклатуры по которой есть остатки партий
     ТаблОстатков.Выгрузить(ТаблНоменклДляОстатков);
   ТаблНоменклДляОстатков.Свернуть("Номенклатура","");
   //Выбираем склады для остатков
   СкладыФирмы.ВыбратьЭлементы();
   Пока   СкладыФирмы.ПолучитьЭлемент()=1 Цикл      //Обход по складам
            ТекМОЛ=СкладыФирмы.МОЛ; //Определим МОЛ для текущего склада
   //Для текущего МОЛ отберем партии
       ПартииНаличие.УстановитьЗначениеФильтра("МОЛ", ТекМОЛ, 1);          
       ПартииНаличие.ВыгрузитьИтоги(ТабОстатковДок,1,1);
       ТабОстатковДок.Свернуть("МОЛ, Номенклатура,Партия","Количество,СуммаУпр,СуммаРуб,СуммаБезНДС");
       ТабОстатковДок.НоваяКолонка("НомДок","Число");
       //Пройдем по номенклатуре и отберем партии для текущей номенклатуры
         ТаблНоменклДляОстатков.ВыбратьСтроки();          
             Пока  ТаблНоменклДляОстатков.ПолучитьСтроку()=1 Цикл    //Обход по номенклатуре
                 ТабОстатковДок.ВыбратьСтроки();
                 НомДляДок=0;
                 Пока ТабОстатковДок.ПолучитьСтроку()=1 Цикл  
                     
                     Если  ТабОстатковДок.Номенклатура = ТаблНоменклДляОстатков.Номенклатура Тогда
                     НомДляДок=НомДляДок+1;
                     ТабОстатковДок.НомДок = НомДляДок;    
                     КонецЕсли;    
               КонецЦикла;
                 КонецЦикла;   //Обход по номенклатуре
  //Распределили номенклатуру по документам
  //посмотрим сколько документов у нас
 ТабОстатковДок.Выгрузить(ТЗДокумНом);
  //Свернув ТЗ по полю НомДок получим необходимое кол-во документов
 ТЗДокумНом.Свернуть("НомДок","");
 ТЗДокумНом.ВыбратьСтроки();
 //Теперь можно формировать документы ввода остатков ТМЦ
 Пока ТЗДокумНом.ПолучитьСтроку()=1 Цикл
      ТекНомДок = ТЗДокумНом.НомДок;
      //Выбираем всю номенклатуру для тек.номера и заносим в таб.часть документа
           ДокОст = СоздатьОбъект("Документ.ВводОстатковТМЦ");
       ДокОст.Новый();
       ДокОст.ВидОперации = Перечисление.ВидыОперацийПоВводуОстатков.ОстаткиТМЦ;
       ДокОст.ДатаДок = ДатаСвертки;
       ДокОст.Фирма = ФирмаДляСвертки;
       ДокОст.НазначитьТип("ВидСтатус", "Перечисление.ВидыТМЦ");
       ДокОст.ВидСтатус    = Перечисление.ВидыТМЦ.Товар;
       ДокОст.Склад = СкладыФирмы.ТекущийЭлемент();
       
       ДокОст.Автор   = ГлПользователь;
       ДокОст.Комментарий = "Создан обработкой 'СверткаБазыDZ' "+ТекущаяДата();
       // удаляем старые табличные части
       ДокОст.УдалитьСтроки();  
 ТабОстатковДок.ВыбратьСтроки();        
       Пока   ТабОстатковДок.ПолучитьСтроку()=1 Цикл
           Если ТекНомДок=ТабОстатковДок.НомДок Тогда
           ДокОст.НоваяСтрока();
           ДокОст.Номенклатура = ТабОстатковДок.Номенклатура;
           ДокОст.Количество = ТабОстатковДок.Количество;
           ДокОст.Единица = ТабОстатковДок.Номенклатура.БазоваяЕдиница;
           ДокОст.Коэффициент = ТабОстатковДок.Номенклатура.БазоваяЕдиница.Коэффициент;  
             ДокОст.Сумма = ТабОстатковДок.СуммаБезНДС;
             ДокОст.СтавкаНДС = Перечисление.СтавкиНДС.БезНДС;
             ДокОст.СтавкаНП = СтавкаНПТек;
             ДокОст.СуммаРуб = ТабОстатковДок.СуммаРуб;
             ДокОст.СуммаУпр = ТабОстатковДок.СуммаУпр;
           КонецЕсли;
       КонецЦикла;
         ДокОст.АвтоВремяКонецДня();
       ДокОст.Записать();
   КонецЦикла;
КонецЦикла;

Обработка не взлетела

просьба помочь

???

креативненько...

(49) Как уукажи на ошибки обработка уже выполняется около часу

укажи на ошибки обработка уже выполняется около часу

в складах МОЛ заполнен?

(52) да заполнен

мыло дай - кину свертку, которой штук 20 баз свернул (спасибо ее автору). Там пошагово расписано все. Занимает максимум час, включая поход в магазин.

(54) мыло [email protected]

уплыло - пользуйся.. ;)

гы... затих... или получилось или убился напрочь... :)))

(57) в магазин побежал..

(54): мнится мне, что всем интересно.

(59) думаешь, поделиться?

(60): ну, может, попросить надо?.. давай, присоединяйся:
(54): KRV, Рома, ты так вкусно про свертку рассказал, что захотелось хотя бы взглянуть - мочи нет прям. Пожалуйста, будь так любезен, прояви свою доброту, выложив свертку с инструкциями в место общедоступное (напоминаю: скурвившийся нимфостapт с некоторых пор к таковым местам не относится).

ээ.. лень уже за комп лезть.. утром тему апну ссылкою..

http://webfile.ru/5755160  -  как обещал, утренний  Up
(60)(61) кстати! авторство чье свертки не помню, так что не удивляйся, если твое окажется, ибо найдено на просторах ынтырнета, может, даже и с нимфостарта когда-то вынимал, до того, как он совсем обсеренился..

а не проще ли ничего никуда не перегружать, а удалить из текущей базы ненужные данные?
например:
//1. очистка регистров
       ДатаТА = DateToDBF(Дата(2012,1,1));
   ДатаНачМес = DateToDBF(Дата(2011,12,1));
       СписокРегистров = СоздатьОбъект("СписокЗначений");
   СписокРегистров.ДобавитьЗначение("rg2351");
   //в список регистров добавить все регистры, удалил повторяющиеся строки, чтобы пример на занимал много места
   Для сч = 1 по СписокРегистров.РазмерСписка() Цикл
   
       ИмяРег = СписокРегистров.ПолучитьЗначение(сч);
       Состояние("Очищается регистр "+ИмяРег);
       ТекстЗапроса = "
       |delete from "+ИмяРег+"
       |where
       | (period <> "+ДатаТА+" and period<>"+ДатаНачМес+")
       |";
   
       DBConn.Execute(ТекстЗапроса);
   КонецЦикла;
//2. очистка журнала
       ДатаТА = DateToDBF(Дата(2012,1,1));      // ТА
   
   ТекстЗапроса = "
   |delete from 1sjourn
   |where
   | date < "+ДатаТА+"
   |";

   DBConn.Execute(ТекстЗапроса);

   ТекстЗапроса = "
   |delete from 1scrdoc
   |where
   | childdate < "+ДатаТА+"
   |";

        DBConn.Execute(ТекстЗапроса);

//3. очистка таблиц документов
Для сч=1 По Метаданные.Документ() Цикл
       Иден = Метаданные.Документ(сч).Идентификатор;
       
       ИдДок = глМД.Иддокумента(иден); //1611

       Состояние("Очищается таблица шапки документа "+Иден);
       ТекстЗапроса = "
       |delete from DH"+ИдДок+"
       |where
       | iddoc NOT IN (select iddoc from 1sjourn as j where j.date >="+ДатаТА+")
       |";
       
       Попытка
           
           DBConn.Execute(ТекстЗапроса);    
           
       Исключение
       КонецПопытки;
       
       ТекстЗапроса = "
       |delete from DT"+ИдДок+"
       |where
       | iddoc NOT IN (select iddoc from 1sjourn as j where j.date >="+ДатаТА+")
       |";
   
       Состояние("Очищается таблица строк документа "+Иден);
       Попытка
           
           DBConn.Execute(ТекстЗапроса);    
           
       Исключение
       КонецПопытки;
   КонецЦикла;

(64) Жестоко...
с перепою пейсалось?

не. 30-го числа, перед закрытием магазина, чтоб успеть :) главное - работает

(66) понятно....
для розницы (фронта) может и потянет...

да, я забыл уточнить - это для розницы. конфа - ТиС, партии не ведутся, только остатки. тут главное после такой свертки либо никогда не делать ТИИ и выгрузку/загрузку (слетят остатки на начало из регистров), либо все же сделать нормальные доки ввода остатков

Обработка супер.У меня все получилось. KRV - респект и уважуха

Правда с моим обьемом базы делалось 3 часа все. С походом в магазин. и литром беленькой

Кто что посоветует

(71) тебе нужен совет, что делать после дитра беленькой? О_о

так я уже трезвый

давно причем

(72) ну действительно дай совета. уже замучался. А ТС что-то пропал мож у него получилось