Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> лог изменений в документе, проводка, пишет лог изменений 
V
    Опции темы
sergey_85
Дата 14.7.2009, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Привет!

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

Слышал что есть решения для 1с 7.7

Есть ли универсальная обработкка или нужно под каждый док-т писать новую?

Заранее спасибо!


--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 14.7.2009, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
н - да уж.......

Добавлено через 32 секунды
про водку это точно...


--------------------
user posted image
PM MAIL ICQ   Вверх
sergey_85
Дата 14.7.2009, 13:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Ну вот вроде нашел, проводку для логирования док-тов! 

Только теперь как все это поствить и куда!!?

Нужен нелп! 

Спасибо!  smile   smile 

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  _____.rar 694,80 Kb


--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 14.7.2009, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
Какую проводку!!! Проводка это из бух. учёта, при чём здесь проводка???!!!!


--------------------
user posted image
PM MAIL ICQ   Вверх
sergey_85
Дата 14.7.2009, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
обработку! (ert)


--------------------
A good design always pays off.
PM MAIL   Вверх
SaschaL
Дата 15.7.2009, 05:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9
НУ ребята проблематично это сделать для 7.7, можно конечно изловчиться и прописать в каждом документе запись всех событий в тестовой файл, только не понятно для чего это!
А то что вы *.ert собираетесь припахать для этого, то на грани пляски с бубном будет.
PM MAIL ICQ   Вверх
sergey_85
Дата 15.7.2009, 05:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Это нужно для того чтобы видеть кто  и что изменял в док-те, а то некоторые юзеры изменят, напакостят и хрен им докажешь, что они сделали не  так! И потом все приходиться делать по новой самому!


--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 15.7.2009, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
Чем журнал регистрации не устраивает?


--------------------
user posted image
PM MAIL ICQ   Вверх
SaschaL
Дата 16.7.2009, 05:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9
ПОнимаю, что журнал регистрации показывает далеко не полную информацию, но и писать логирование по каждому объекту и каждому реквизиту дело муторное, но может оно того стоит, но одной внешней обработкой тут не обойтись, нужно будет много что дописывать в самой конфигурации.
PM MAIL ICQ   Вверх
AkelaSQL
Дата 16.7.2009, 08:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
Тормоза будут ЖУТКИЕ!!!


--------------------
user posted image
PM MAIL ICQ   Вверх
Itsys
Дата 18.7.2009, 08:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 7
Всего: 34
Писал я как-то такое только для справочников....

Код

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

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

Тормозов особо нет, но в каждый документ в поцедуру при записи(), если там нет вызова стандатрной процедуры типа глПриЗаписи(), придется добавлять вызов данной процедуры.
PM MAIL WWW Skype   Вверх
sergey_85
Дата 23.7.2009, 06:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Всем спасибо за ответы! Нашел почти готовое решение по логированию док-тов с исспользованием справочников!
http://softpoint.ru/article_id50.htm


--------------------
A good design always pays off.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

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

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0908 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.