Конфигурация 1С: Консультант Плюс для правовой базы данных муниципального района

07.08.10

Зачастую муниципальные районы не так состоятельны, чтобы вести собственную базу данных у именитых разработчиков правовых систем.
Для них данная разработка - "Аля - Консультант Плюс" местного розлива.
Используются внешние компоненты от Robert (за что спасибо):
RBrowser.dll для просмотра HTM-файлов
RWidjets.dll, чтоб не пугать пользователей интерфейсом 1Сv7

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
pravo.zip .zip 629,04Kb 61	61	Скачать (1 SM)	Купить за 1 850 руб.

Назначение: организация хранения, быстрого поиска и просмотра правовой информации.

Вход осуществляется в режиме пользователя.
Чтобы выйти в режим редактирования справочников, нужно на закладке Образцы... в поле
Условие отбора нажать букву затем закрыть окно поиска.

Справочник Субъекты предназначен для разбивки документов по муниципалитетам
номер привелигированный - это должен быть собственно район

Справочники Тематика, Органы, Виды, Статус по сути классификаторы
Для чего нужны? Кто видел хоть раз в жизни правовую базу, догадались.

Справочник ДокументыМ предназначен для хранения муниципальных документов
Справочник ДокументыГ предназначен для хранения государственных документов
Путь к файлу и может быть закладка (то есть типовая ссылка на HTM) хранится в наименованиии
Предусмотрено до трёх привязок к Тематике
По структуре справочники отличаются лишь:
у муниципальных привязка к субъетам
у государственных признак основной для выделения их в отдельный список основополагающих правовых актов
Файлы в формате HTM храятся:
муниципальные в папке КаталогИБ()+"dok_m"
государственные в папке КаталогИБ()+"dok_g"

Обработка ОкноПоиска по сути АРМ пользователя
Четыре закладки
1 - "Муниципальные правовые акты"
2 - "Федеральные и региональные правовые акты"
3 - "Избранное"
4 - "Образцы документов и справочная информация"

Закладка 1 - "Муниципальные правовые акты"

Верхняя часть "Условия поиска"
При уточнении:
Если условия нет - вызывается соответствующая обработка
Если условие есть вызывается менюшка
"ОЧИСТИТЬ СТРОКУ" - удаляет условие
"ИЗМЕНИТЬ УСЛОВИЕ" - редактирует условие

Нижняя часть "Муниципалитеты"
Колонка V - установка галочки регламентирует выводить или нет найденные по субъекту документы в список
Колонка Документов - показывает сколько по субъекту документов с заданным условием
Колонка Устав - для быстрого обращения к Уставу субъекта

Кнопка ПОКАЗАТЬ СПИСОК ДОКУМЕНТОВ - показываетя список найденых документов

Закладка 2 - "Федеральные и региональные правовые акты"

Верхняя часть "Условия поиска" аналогична предыдущей
Строка показывает количество оных

Нижняя часть "Основополагающие федеральные и региональные правовые акты"
В Списке можно быстро найти по Условию отбора нужный документ

Закладка 3 - "Избранное"

Хранит список актуальных (избранных) документов
Чтобы занести документ в Избранные нужно в списке найденых документов дважды щёлкнуть на его порядковом номере
Установка отбора сокращает список Избранных согласно Условию отбора
Кнопка Удалить - удаляет текущий документ из Избранных

Закладка 4 - "Образцы документов и справочная информация"

Хранит список файлов из папки КаталогИБ()+"obraz"
Чтобы файл попал в список нужно просто поместить его в эту папку
Отбор действует аналогично предыдущей закладке
Кнопка Удалить - удаляет текущий документ из списка Образцов документов и сам файл с компа

Вот и всё.

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

+10 –

См. также

Проверка инвентарной карточки ОС для ББУ 7.7

Учет ОС и НМА Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия для бюджетных учреждений 7.7 Государственные, бюджетные структуры Россия Бухгалтерский учет Абонемент ($m)

Обработка проверяет установлен ли признак "списывать при вводе в эксплуатацию" у ОС стоимостью до 3000, проверяет "100% при передаче в эксплуатацию " способ начисления амортизации у ОС, первоначальная стоимость которых более 3000 и менее 20000 руб, "Линейный способ" у ОС более 40000. Дата ввода ОС в эксплуатацию выводится в табло. Есть кнопка для исправления карточек.

1 стартмани

27.05.2012 10934 16 eslava 3

Свод проводок для ЗиК 7.7 для бюджетников

Зарплата Бюджетный учет Бухгалтер Расчет 7.7 1С:Зарплата и кадры 7.7 Государственные, бюджетные структуры Бюджетный учет Абонемент ($m)

Свод проводок для ЗиК 7.7 бюджетников. Добавлена вторичная расшифровка по сотрудникам.

1 стартмани

31.01.2012 12434 58 quares 9

Выгрузка квитанций в банк

Обмен с интернет-банком Банковские операции Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия для бюджетных учреждений 7.7 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Абонемент ($m)

Выгрузка квитанций в банк для 7.7

1 стартмани

24.01.2012 7825 9 ruo2004 3

Справочник "План счетов" для конфигурации "1С:Свод отчетов" (EPS.txt)

Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 Конфигурации 1cv7 Россия Бухгалтерский учет Абонемент ($m)

Справочник "План счетов" для конфигурации "1С:Свод отчетов" (EPS.txt). Взято из БГУ 7.7 релиза 7.70.647.

1 стартмани

23.01.2012 19287 31 mefisto 10

Отчет по регистрации БО для 1С Бухгалтерия для бюджетных учереждений 7.7

Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Бюджетный учет Абонемент ($m)

Отчет по регистрации Бюджетных обязательств БО для 1С Бухгалтерия для бюджетных учереждений 7.7 с отбором и детализацией

1 стартмани

18.11.2011 9124 10 Bugor73 3

Инвентаризационная опись ОС

Учет ОС и НМА Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия для бюджетных учреждений 7.7 Государственные, бюджетные структуры Бухгалтерский учет Бюджетный учет Абонемент ($m)

Инвентаризационная опись ОС ИНВ-1

1 стартмани

20.10.2011 13326 54 kadet 4

Отчет по реализации на сторону товаров и оказанных услуг

Производство готовой продукции (работ, услуг) Бюджетный учет Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия для бюджетных учреждений 7.7 Государственные, бюджетные структуры Бухгалтерский учет Бюджетный учет Абонемент ($m)

Отчет по реализации на сторону товаров и оказанных услуг

1 стартмани

26.09.2011 8732 11 atb123 1

Конфигурация "Составление меню"

Производство готовой продукции (работ, услуг) Бюджетный учет Бухгалтер Платформа 1С v7.7 Конфигурации 1cv7 Государственные, бюджетные структуры Россия Абонемент ($m)

Конфигурация предназначена для расчета количества продуктов за день в столовой учебного или дошкольного заведений.

1 стартмани

23.08.2011 26081 30 Vital451 12

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Арчибальд 2709 12.08.10 10:37 Сейчас в теме

Всякая самописная... © Арчибальд

2. voshod 16.08.10 14:58 Сейчас в теме

искал нечто подобное. А поиск по текстам возможен?

3. akrazan 27 17.08.10 19:12 Сейчас в теме

при разработке поиск по тексту даже не планировался.
средствами 1С возможен только построчный просмотр файлов, а это время и не малое.
вспомните свои ощущения, когда комп думает неопрадано долго :)
хотя в принципе найти файлы с текстом реально. Например

Процедура НайтиФайлыСТекстом()
Файл = СоздатьОбъект("Текст");
ТекстПоиска = ВРЕГ("Текст который ищем");
КаталогПоиска = КаталогИБ()+"doc_m\"

ФС.УстТекКаталог(КаталогПоиска);
// позиционируем на первый файл
ИмяФайла = ФС.НайтиПервыйФайл("*.htm");
Если ПустаяСтрока(ИмяФайла) = 0 тогда
Файл.Открыть(КаталогПоиска+ИмяФайла);
Нашел = 0;
Для НС = 1 по Файл.КоличествоСтрок() цикл
Если Найти(ВРЕГ(Файл.ПолучитьСтроку(НС)),ТекстПоиска) > 0 тогда
Сообщить(ИмяФайла);
Прервать;
КонецЕсли;
КонецЦикла;
КонеЦесли;

// обрабатываем остальные в цикле
~Метка: ИмяФайла = ФС.НайтиСледующийФайл();
Если ПустаяСтрока(ИмяФайла) = 0 тогда
Файл.Открыть(КаталогПоиска+ИмяФайла);
Нашел = 0;
Для НС = 1 по Файл.КоличествоСтрок() цикл
Если Найти(ВРЕГ(Файл.ПолучитьСтроку(НС)),ТекстПоиска) > 0 тогда
Сообщить(ИмяФайла);
Прервать;
КонецЕсли;
КонецЦикла;
Перейти ~Метка;
КонеЦесли;
КонецПроцедуры

4. markers 277 19.08.10 19:52 Сейчас в теме

(0) Предлагаю обратить внимание на обработку: http://infostart.ru/public/74138/ в которой показан пример работы с SQLite, использование её вместо текстовых файлов считаю предпочтительным. (Скорость и прочие прелести)