Однако фирма работает в основном на определенной наценке, то есть если поднял цены поставщик товара, то автоматически поднимается цена реализации. После подписания реестра цен такой принцип перестает работать. Как можно зафиксировать цены на конкретные товары для конкретного покупателя?

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

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Я для этой цели в одной организации придумал и ввел специальный механизм для ввода, контроля реестровых цен.

Как зафиксировать цены в 1С

Я долго думать не стал, заморачиваясь с подключением внешних файлов – база 1С у клиента и так пахана перепахана.

Ввел новый документ, обозвал его «Реестр Цен» (обозвать можно как угодно, мне зведы подсказали, что назвать надо именно так).

Документ Особые цены

Документ имеет реквизиты:

Контрагент - это для какого контрагента устанавливаются цены.

ВеныВклНДС - чтобы обозначить принцип расчета НДС для этого контрагента

А также реквизиты табличной части:

Номенклатура - товар, на который будет установлена цена

Ед - единица измерения товара (номенклатуры)

Цена - совственно цена, которая прописана в бумажном документе Реестр цен, прилагаемому к договору.

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

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

Список документов Особые цены

Далее создаем необходимое количество документов «Особые цены«, по количеству контрагентов с фиксированными ценами и оператор заполняет их номенклатурой и ценами. Также можно в документе дописать дополнительные процедуры для облегчения жизни оператора, например заполнить номенклатурой по определенным признакам, работать с единицами измерений и т.д. Здесь уже надо исходить из реалий конкретной фирмы.

Выставляем реестровые цены в реализации

Далее все просто. В документе «Реализация» можно приделать кнопку которая будет «вытаскивать» цены из документа «Особые цены«, а можно и полностью автоматизировать работу оператора, чтобы он даже и не думал о том, что у данного контрагента фиксированные цены.

В моем случае клиент захотел кнопку, на которую я повесил процедуру

Процедура УстановитьСпецЦены()
ДокЦен = СоздатьОбъект("Документ.ОсобыеЦены");
ДокЦен.ВыбратьДокументы(НачГода(ТекущаяДата()),НачГода(ТекущаяДата()));
Пока ДокЦен.ПолучитьДокумент() = 1 Цикл
Если ДокЦен.Контрагент <> Контрагент Тогда
Продолжить;
КонецЕсли;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Найдено =0;
ДокЦен.ВыбратьСтроки();
Пока ДокЦен.ПолучитьСтроку() = 1 Цикл
Если Номенклатура = ДокЦен.Номенклатура Тогда
Цена = ДокЦен.Цена;
глПересчетТаблЧасти(Контекст,"Цена");
Найдено = 1;
КонецЕсли;
КонецЦикла;
Если Найдено <> 1 Тогда
Сообщить("Внимание!!! Для номенклатуры "+Номенклатура+" нет цены");
КонецЕсли;
КонецЦикла;
КонецЦикла;

Вот в общем то и все.

Теперь хочу осветить эту проблему более детально. Оговорюсь сразу, что данная статья будет представлять инетрес лишь для программистов 1С, обычные пользователи нифига не поймут и могут смело переходить в раздел лирика.

Я не буду рассматривать проблему долгого проведения документов, связанную с говеным железом или нестабильной работы сети. Это технические проблемы и решаются они просто – небольшим вливанием денежной массы в приобретение современных компьютеров и в организацию сервера терминалов. Также не буду приводить примеры кода – для каждой организации программый код может меняться. Выскажу лишь общие принципы.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Итак у нас есть проблема – документ реализация долго проводится. Особенно актуально это для организаций с большим количеством номенклатуры и большим документооборотом, или же документы реализации имеют большую табличную часть (много строк). На самом деле эта проблема очень актуальна и портит жизнь (а также увеличивает затраты, например на операторов) фактически всем подразделения фирмы, так как при проведении документа «захватывается транзакция» и грубо говоря база «виснет«.

Проведем аналитику. Простыми, народными средствами, а точнее с помощью отладчика смотрим временные затраты на поведение рядового документа «Реализация»

Оценка времени проведения документа

Из замера производительности ясно видно, что 40% (в моем конкретном случае, в других базах это время может занимать до 90% времени). Впечатляет, не правдали?

Читаем далее что можно конкретно сделать для ускорения проведения документа

Прежде всего необходимо иметь сами формы отчетности. Как их раздобыть я писал в статье про 1С.

Во первых распаковываем файл с формами регламентированной отчетности.

Распаковываем архив с формами

Далее запускаем 1С Бухгалтерия.

Выбираем в меню Отчеты – Регламентированные

Регламентированные отчеты

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

В появившемся окне жмем кнопку загрузить и в появившемся окне выбираем один из файлов в папке с регламентированной отчетностью за 2 квартал 2010 года.

Загружаем формы регламентированной отчетности

Нажимаем Открыть, появляется список форм, которые присутсвуют в папке. Убеждаемся, что все «галки» установлены и нажимаем ОК.

Наблюдаем как появляется черное окно DOS в котором бегут строки.

Распаковка и копирование файлов отчетности

Все. Регламентированная отчетность подключена.

Кстати скачать формы регламетированной отчетности можно здесь.

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

Затем, на вновь установленной Windows, установить заново платформу 1С Предприятие и подключить необходимые базы.

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

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

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

Сохраняем список для 1с 8.х

Список со всеми параметрами хранится в файле, который находится в Windows XP по пути

C:\Documents and Settings\Имя Пользователя\Application Data\1C\1Cv81\ibases.v8i

Путь к файлу настроек

А в Windows Vista и Windows 7

C:\Users\Имя Пользователя\AppData\Roaming\1C\1Cv81t\ibases.v8i

Сохраняем список для 1с 7.х

Информация о списке баз хранится в реестре.

Чтобы сохранить список баз запускаем редактор реестра Пуск-Выполнить-RegEdit, находим ветку HKEY_CURRENT_USER – Software – 1C, жмем правой кнопкой по ветке 1С (сохраним полностью) и жмем Экспортировать. Задаем имя файла, а в новой системе добавляем этот файл в реестр двойным кликом.

Экспорт ветки реестра

Я обычно не запоминаю путь к этой ветке реестра а ищу по наименованию какой – нибудь базы.

Это может понадобиться в нескольких случаях, например, когда нельзя вносить изменений в конфиругацию 1С, например если 1С базовой версии. Так же сохранение в DBF файлах может понадобиться при переносе данных между конфигурациями, различного рода выгрузок-загрузок. Такие схемы часто можно встретить в работе аптечных сетей, так как номенклатуры там много и поставщики лекарств стараются автоматизировать процесс ввода накладных путем электронного обмена с покупателями. Для работы с DBF файлами можно использовать так же редактор DBF – просматривать и редакстирвоать DBF.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Работаем с DBF в 1С: Предприятие 7.7

Создаем и записываем данные в DBF 1C 7.7

//Создаем объект
База = СоздатьОбъект(»XBASE»);

База.КодоваяСтраница(1); // 1- DOS, 0 – Windows

//Добавляем поля в объект
База.ДобавитьПоле("NOM","C",8,);
База.ДобавитьПоле("KOL","N",14,3);
База.ДобавитьПоле("ED","C",8,);
База.ДобавитьПоле("CENA","N",15,2);
База.ДобавитьПоле("SUMMA","N",15,2);
База.ДобавитьПоле("K","C",1,);
База.ДобавитьПоле("NOMDOC","C",10,);
База.ДобавитьПоле("DATDOC","C",10,);
База.ДобавитьПоле("NOMNAME","C",50,);  //наименование номенклатуры
База.ДобавитьПоле("NOMNAMEP","C",50,);  //полное наименование номенклатуры
База.ДобавитьПоле("ART","C",50,);  //артикул
База.ДобавитьПоле("GRUPPA","C",8,);  //артикул
База.ДобавитьПоле("KONTR","C",100,);

//Создаем новый файл C:exch.dbf
База.СоздатьФайл("C:exch.dbf");
База.ОчиститьФайл();
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()= 1 Цикл
База.Добавить();

База.УстановитьЗначениеПоля("NOM",Док.Номенклатура.Код);
База.УстановитьЗначениеПоля("KOL",Док.Количество);
База.УстановитьЗначениеПоля("ED",Док.Единица.ОКЕИ.Наименование);
База.УстановитьЗначениеПоля("CENA",Док.Цена);
База.УстановитьЗначениеПоля("SUMMA",Док.Сумма);
База.УстановитьЗначениеПоля("K",Док.Коэффициент);
База.УстановитьЗначениеПоля("NOMDOC",Док.НомерДок);
База.УстановитьЗначениеПоля("DATDOC",СокрЛП(Док.ДатаДок));
База.УстановитьЗначениеПоля("KONTR",СокрЛП(Док.Контрагент.Наименование));
База.УстановитьЗначениеПоля("NOMNAME",СокрЛП(Док.Номенклатура.Наименование));
База.УстановитьЗначениеПоля("NOMNAMEP",СокрЛП(Док.Номенклатура.ПолнНаименование));
База.УстановитьЗначениеПоля("ART",СокрЛП(Док.Номенклатура.Артикул));
База.УстановитьЗначениеПоля("GRUPPA",СокрЛП(Номенклатура.Родитель.Код));
База.Записать();
КонецЦикла;

Сообщить("Выгружен " +Док.ТекущийДокумент());

Читаем данные из DBF файла 1c 7.7

База = СоздатьОбъект("XBASE");
База.ОткрытьФайл("C:exch.dbf");
База.Первая();
Для й = 1 По База.КоличествоЗаписей() Цикл
Таб.НоваяСтрока();
Таб.Контр = База.ПолучитьЗначениеПоля("KONTR");

Таб.Ед= База.ПолучитьЗначениеПоля("ED");
Таб.Количество = База.ПолучитьЗначениеПоля("KOL");
Таб.Цена = База.ПолучитьЗначениеПоля("CENA");
Таб.Сумма = База.ПолучитьЗначениеПоля("SUMMA");
Таб.Коэффициент = База.ПолучитьЗначениеПоля("K");
........
База.Следующая();
КонецЦикла;

Работаем с DBF в 1С: Предприятие 8.1

Создаем и записываем данные в DBF 1C 8.1

Файл = Новый XBase;
Файл.Кодировка = КодировкаXBase.OEM;
Файл.Поля.Добавить("KOD","S",11);
Файл.Поля.Добавить("NOMER","S",50) ;
Файл.Поля.Добавить("DATAV","D",10,0);
Файл.Поля.Добавить("SROK","D",10,0);
Файл.Поля.Добавить("ORGAN","S",50) ;
Файл.Поля.Добавить("PROIZV","S",50) ;
Путь = КаталогИБ() + "SERT.DBF"; // КаталогИБ() - функция, которая определяет путь к базе - в 8 ке нет встроенного механизма
Файл.СоздатьФайл(Путь);
Файл.Записать();

Файл.ОчиститьФайл();
Для Каждого Стр из Т Цикл
Файл.Добавить();
Файл.KOD = Стр.Номенклатура.Код;
Файл.NOMER = Стр.Номер;
Файл.DATAV = Стр.ДатаВыдачи;
Файл.SROK = Стр.СрокДействия;
Файл.ORGAN = Стр.Орган;
Файл.PROIZV = Стр.Производитель;
Файл.Записать();
КонецЦикла;
Файл.Записать();
Файл.ЗакрытьФайл();

Читаем данные из DBF файла 1c 8.1

Путь = КаталогИБ() + "SERT.DBF";
Файл = Новый XBase;
Файл.ОткрытьФайл(Путь,,Истина); //открываем для чтения
Макет = ПолучитьМакет("Сертификаты");
Файл.Первая();
Пока НЕ Файл.ВКонце() Цикл
НомерСерт = СокрЛП(Файл.NOMER);
ДатаВыдачи = Файл.DATAV;
СрокДействия = Файл.SROK;
Орган = СокрЛП(Файл.ORGAN);
Производитель = СокрЛП(Файл.PROIZV);
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();

Сутье ее заключается в том, что при сохранении печатной формы 1с 7.7 в формате Эксель дата, которая стоит в ячейках воспринимается Excel как число.

Внешний вид отчета 1С

Как видно на рисунке колонка «Дата» заполняется датами.

А при сохранении в формате Excel из 1С, через меню Файл-Сохранить как получается, что Эксель переводит эту дату в числовой формат.

При сохраеннии Эксель воспринимает дату как число

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Формат даты пробовал задавать, думал, проблема в этом, однако, оказалось, что на самом деле проблема в другом.

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

Расположение текста По Центру

Вот так вот, век живи, век учись. я этого не знал, а чтобы догнать ушло около часа драгоценного времени.

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

Итак, цель – подключиться к 1с 7.7 из 1с 8 с помощью внешней обработки, вытащить какие-то данные из семерки.

Создаем внешнюю обрабтку в восьмерке

Создаем внешнюю обработку в 1С8

На форму добавляем поля Путь к базе, Пользователь, Пароль, а так же кнопу Подключиться

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Создаем элементы формы

На кнопку Путь к базе вешаем код для того чтобы выбор каталога, в котором находится база 1с 7.7 был интерактивным.

Выбираем базу-источник


Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Укажите путь к базе ...";
Если Не Диалог.Выбрать() Тогда
Возврат;
КонецЕсли;
ПутьКБазе = Диалог.Каталог;
КонецПроцедуры


А на кнопку Подключиться код

Процедура ПодключитьБазу()
База="";
База=Новый COMОбъект("V77.Application");
Попытка
СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";
Открыта=База.Initialize(База.RMTrade,СтрокаПодключения,"NO_SPLASH_SHOW");
Если Открыта Тогда
ЕстьПодключение = Истина;
Иначе
Предупреждение("Ошибка при подключении!");
ЕстьПодключение = Ложь;
КонецЕсли;
Исключение
Предупреждение("Ошибка при подключении!");
ЕстьПодключение = Ложь;
КонецПопытки;
КонецПроцедуры

Ключевыми переменными здесь является СтрокаПодключения, в которой мы передаем параметры запуска 1с 7.7

Если ошибок не возникло, значит база 1с 7.7 подключена успешно и мы можем обращаться к ее объектам через объект База

Ошибка применения преобразований. Проверьте праивльность путей указанных преобразований.

Ошибка применения преобразований

Для устранения ошибки я решил снести платформу 1С 8.1 совсем и установить заново.

Через Пуск-Панель Управления – Установка и удаление программ. Но при попытке деинстллировать 1С вылезла та же самая ошибка. Лезть в реестр и чистить руками ветки 1С 8.1 как-то лень, да и неэффективно по-моему.

Позвонил другу – админу, тот посоветовал скачать официальную майкрософтовскую утилиту msicuu.exe, которая как я понял удаляет принудительно все ссылки на указанную программу или что-то вроде этого.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Скачав утилиту msicuu.exe ее необходимо установить. После установки запускаем и видим окно, к котором отображаются все установленные приложения.

Утилита msicuu.exe

Выбираю 1С:Предприятие 8.1 (8.1.12), жму Remove. Быстро открываются досовые окна и программа пропадает из списка.

Ура, после этого все заработало. Установка прошла успешно.

1. Что такое свертка и зачем она нужна?

Обработка свертки базы 1С представляет собой выгрузку остатков по складам, взаиморасчетов, остатков по кассе и банку, взаиморасчетов в подотчетных лиц. Далее очистка базы данных 1С от ВСЕХ документов, и загрузка в новую, чистую базу вышеперечисленных данных посредством документов ввода начальных остатков. Нужна свертка когда база 1С ведется давно и занимает значительный объем, что приводит к замедлению работы.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

Свертка базы 1С

2. Как свернуть базу 1С на SQL сервере.

Никак. Дело в том, что удаляя файлы (DBF файлы) мы  удаляем документы, поэтому процедура занимает очень мало времени (пару секунд). В SQL версии, как известно, нет DBF файлов и база данных храниться на SQL сервере. Есть один способ – выгрузить базу из SQL в DBF, свернуть и загрузить обратно в SQL. Этот способ, как мы видим, возможен не всегда.

3. Почему свертка текущим числом проходит быстро, а свертка задним числом – долго?

Дело в том, что при свертке на текущее число мы удаляем все документы из базы 1С, а при свертке задним числом – оставляем документы, которые старше этого самого «заднего числа».

В этой статье описано как можно немного ускорить удаление документов.

Большим минусом данного способа является то, что оставшиеся документы необходимо перепровести, для того, чтобы вновь сформировать движения по регистрам.

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

4. Что означают даты в обработках выгрузки и загрузки?

Дата в обработке выгрузки данных – это дата, на которую будут сформированы остатки на складах, взаиморасчеты и пр.

Дата в обработке загрузки – это дата, на которую будут сформированы документы ввода начальных остатков.

По идее, они должны быть одинаковые, например 01.01.2010 (ну или выгрузка 31.12.2009, а загрузка – 01.01.2010), но, в принципе, это абсолютно не критично. Каждый выбирает дату исходя из своих соображений.

Следовательно, запустить обработку свертки на определенное число – это указать дату в выгрузке, на которую будут сформированы остатки (надеюсь понятно, что остатки и все прочее со временем изменяется под действием документов).

5. У меня всего 2 склада в 1С, однако документов «Ввод начальных остатков» более сотни, почему?

Дело в том, что обработка свертки автоматически разбивает документ по 100 строк. То есть, например, если у Вас в базе 1000 наименований товаров на одном складе, то будет сформировано 10 документов «Ввод начальных остатков», по 100 наименований в каждом. Связано это с тем свойством 1С, что при увеличении количества строк, время проведения документа увеличивается в геометрической прогрессии. То есть, если документ содержит 500 строк – то время проведения 5 секунд, если 1000 – то уже 50 секунд. (Может с цифрами немного ошибся, но принцип такой). Исходя из этого, обработка создает документы по 100 строк в каждом.

6. У меня много неиспользуемых, помеченных на удаление элементов в справочнике номенклатура / контрагенты. Как их удалить?

Если Вы пользовались стандартной процедурой Операции – Удаление помеченных объектов и 1С ругнулась, что не может удалить эти элементы, то это означает, что они используются в каких-то документах или справочниках. Теоретически, можно удалить их напрямую с помощью обработки, но это неправильное решение, так как нарушится логическая целостность информационной базы. Переместите их в отдельную папку, или, в принципе, можете свернуть базу – скорее всего в новой базе  они удалятся (если их нет на остатках или они не имеют долгов ).

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

Реально УРБД своей обработкой я сворачивал 1 раз. После свертки (удаления всех документов) база перестала быть распределенной, и все периферийные базы надо создавать снова из свернутой базы 1С. Естественно все периферийные базы также обрезались.

1Cv77 Language Reference - Справочник по встроенному языку 1С версии 7.7.

Справочник по встроенному языку 1С Предприятие 7.7

Будет полезен в первую очередь для новичков, изучающих 1С, а так же для профессионалов, в качестве справочного пособия, ибо невозможно помнить все.

Авторские права на предоставленный материал принадлежат автору сайта http://extremallife.ru

В нем описано способы и методы работы с 1С Передприятие 7.7, а также присутствуем множество примеров для работы с 1С Предприятие 7.7.

Учебник по 1С 7.7 – пособие для работы с наиболее распростаненными методами работы со встроенным языком 1С Предприятие 7.7

Справочник по встроенному языку 1С Предприятие 7.7

1С: Предприятие 8. Описание встроенного языка – Справочник, описывающий процедуры и функции свтроенного языка 1С Предприятие 8 версии. Содержит множество информации о методах программирования на «восьмерке» с примерами, советами и кекомендациями.

Справочник по встроенному языку 1С Предприятие 8

Скачать справочники по 1С Передприятие