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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как прошить можно прочитать тут.

Что нового в прошивке 1.0.99
Добавлена индикация  на ПП во время прошивки модуля

Как обновить прошивку

1) С помощью программы Burner загрузить обновление ПО приемника, файл 2010 06 24 DRS6000 hw37 1 0 99 127 beta.upg
Процесс загрузки ПО ничем не отличается от загрузки ПО в другие ресиверы DRS.
2) C SD карты прошить новое ПО core-модуля:
2.1) Чистую SD карту (SDHC, 6 Class, Kingstone или Transcend) вставить в приемник DRS6000 «на ходу». Приемник автоматически отформатирует карту.
2.2) Скопировать файл обновления update.otm на SD карту.
2.3) Вставить SD карту в выключенный приемник.
2.4) Включить приемник DRS6000 в сеть. После загрузки приемник начнет обновление ПО core-модуля (6 этапов).
2.5) После того, как приемник завершит все 6 этапов (сообщение 6\6 100%) – выньте SD карту и удалите с нее файл update.otm
2.6) Перезагрузите приемник.
3. В статусе приемника должно отображаться:
Версия программного обеспечения 1.0.99
Версия модуля: 0.7.18
Прошивка модуля: 37

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

Скачать Прошивку 1.0.99 для ресивера GS-8300

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ну изучив вопрос я немного прихерел от цифры в 11 тысяч за гараж 4х6. Рулон рубимаста (этотипа рубероида, только слой гудрона больше и сверху покрыт мелкими камушками стоит от 420 рублей. На гараж 4х6 метров надо 3 рулона. Итого получаем, что основной материал – кровля стоит чуть менее полутора тысяч.

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

В процессе работы

Но нам то надо крыть 3 гаража – мой и моих братьев.

Короче, для того, чтобы покрыть мягкой кровлей необходимо иметь собственно материал – рубемаст (или подобный, сейчас полно таких материалов), баллон с пропаном, горелка, перчатки, пиво и хорошее настроение.

Баллон с пропаном

Технология нанесения – проще некуда. Во первых надо тщательно подмести, а лучше смыть мусор и пыль с поверхности. Старый рубероид можно снять, но мы решили не выпендриваться и оставить для жесткости. Еще важно, чтобы поверхность была максимально ровной, ибо если будут ямки, в которых кровельный материал будет «гулять», то обязательно какой-нибудь осел залезет на крышу гаража и наступит именно в то самое место – рубемаст прорвется и возможно будет подтекать. Поэтому мы заделали такие неровности раствором, вскрывая старый рубероид, без фанатизма конечно же.

Горелка

Ошибка в принципе не влияет на работу, но выскакивает какждый раз при открытии любого документа.

Ошибка при загрузке BASIC документа

Ошибка при загрузке BASIC документа

file:///C:/Users/User/AppData/Roaming/OpenOffice.org/3/user/basic/Standart/script.xlb/

Oбщaя oшибкa.

Oбщaя oшибкa ввoдa-вывoдa.»

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

Попытка переустановить Open Office не устранило проблему, точно так же как и полное удаление приложения у установка его заново.

Провозившись минут 20, поколдовав с макросами решил просто грохнуть все настроечные файлы, которые хранятся в Windows 7 в папке C:\Users\[Имя пользователя]\AppData\Roaming\OpenOffice.org\3\*.*

А в Windows XP по пути C:\Documents and Settings\[Имя пользователя]\Application Data\OpenOffice.org\3\*.*

После удаления папки все заработало даже без переустановки Open Office.

Исходные данные:

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

Киоск - торговая точка

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

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

В офисе (на центральном (оптовом) складе) вся работа ведется в программе 1С 7.7 торговля и Склад, которая доработана под нужды заказчика таким образом.

Раз мы не можем полноценно контролировать проданный в киосках товар, так как, продавец не ведет никаким образом учет того, что продано, то работа Торговли и склад организована следующим образом:

Далее, внимание, основная мысль. Весь перемещенный товар на точки (в киоски) считается условно проданным, вернее в этом момент мы теряем информацию о количестве товара. Ведется только суммовой учет. Для этого в 1С Торговля и Склад создан дополнительный регистр и документ, формирующий движения по этому регистру.

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

Примерно так же работает и списание ТМЦ, возврат на основной склад, недостача, излишки. Проблема возникает лишь при переоценке.

Далее, каким образом происходит инвентаризация. В теории все просто. Подсчитывается количество товара в наличии, умножается на розничную цену, и сверяется с данными 1С  -если суммы совпадают, значит все хорошо, если нет, то возникают излишки либо недостачи.

Проблема в том, что продавцы начинают проводить свои махинации, например торговать своим товаром. А так как мы не имеем количественных остатков, то проконтролировать какой товар свой, какой чужой – сложно.

Вот сижу башку ломаю каким образом улучшить вышеописанную систему. Может подскажет кто?

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

Затем, на вновь установленной 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С (сохраним полностью) и жмем Экспортировать. Задаем имя файла, а в новой системе добавляем этот файл в реестр двойным кликом.

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

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

Спасибо за установку нашего информера.

Данный программный продукт не являетсяы вирусом, не блокирует Диспетчер задач и другое ПО Вашего компьютера. Для того, чтобы закрыть рекламный информер Отапрвьте SMS с кодом 7520132 на номер 5121

Банер просит отправить СМС

Далее стандартный набор – Диспетчер задач открывается и тут же закрывается, и вообще любое системное приложение ведет себя так же.

К слову, в системе стоит лицензионный Kaspersky Internet Security, с обновленными базами.

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

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

Запуск в режиме усиленной защиты

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

Пока идет проверка я звоню в А1 Агрегатор по номеру 8-800-555-01-02, где мне не сразу сообщают код, а говорят, что необхдимо отсаить заявку, имя, номер телефона и почтовый ящик, и в течение дня проблема будет решена.

Буквально через 5 минут приходит СМС от SMSSupport с текстом дословно:

Dobry den`. Вдоф razblokirovki poprobujte vvesti kod 197851. Sluzhba podderzhli 8-800-100-7337 (zvonok besplatnij)

Прерываю, работу утилиты, так как в оперативной памяти она ничего не нашла и ввожу код 197851. Код принят, однако всплывает окно с просьбой отправить 2ю СМС ку уже с текстом 7520232 на тот же номер 5121.

Второй порнобаннер

Делать нечего – запускаю утилиту, и снова звоню в А1 Агрегатор, повторяя вышеописанную процедуру. СМС ка во второй раз не пришла).

Но Доктор вэб нашел вирус по пути C:\Program Files\torrent\torrent.exe

Вирус найден

Конечно лечим. Далее антивирус просит перезагрузку, после которой баннер исчез.

Скачать одноразовый антивирус

Это может понадобиться в нескольких случаях, например, когда нельзя вносить изменений в конфиругацию 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);
Файл.Следующая();
КонецЦикла;
Файл.ЗакрытьФайл();