Infostart

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

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

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

Можно также пользоваться не календарем, а (циклическими) графиками работы. Задаются на закладке График.

Ничего испортить не удастся. В худшем случае придется удалить из справочника "Прочие объекты учета" созданные папки с именами, начинающимися на "Табель" и/или "График" и вновь запустить обработку.

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

21.04.2011 Залил новую версию. Добавлена кнопка для "насильственного " открытия формы заполнения календаря. Исправлен баг кнопки "Копировать строку". Эта кнопка переносит данные табеля из текущей строки в любую другую.

Поля табеля lt;= и =gt; по двойному щелчку сдвигают табель на один день.

Скрин.PNG

Результаты поиска 20 тыс.

Полезные функции для округления копеек в документах

PanKir [6] — Wed, 20 Apr 2011 14:02:00 GMT

[6/3]

Кофигурации: 1C: Предприятие 8
Алгоритм для 1С: Предприятие 8.0; 1С: Предприятие 8.1; 1С: Предприятие 8.2

Часто, к примеру, при оформлении заказа покупателя или создании чека ККМ сумма документа получается не целой, с копейками. Если товара не много и есть позиции с количеством товара равном 1-2, то проблема округления копеек тут не стоит. А что делать если количество товара в каждой позиции огромно и лишние копейки никак не делятся на это количество? Предлагаю ряд функций для решения этой проблемы.

У меня эта проблема возникла в конфигурации 1С:Комплексная автоматизация 8 на платформе 8.2. Для решения я создал свой общий модуль и прописал в нем следующие функции:

Функция РасчетНОД (Число1, Число2) Экспорт

Если Число1 gt;= Число2 Тогда

Первое = Число1;

Второе = Число2;

Иначе

Первое = Число2;

Второе = Число1;

КонецЕсли;

Остаток = Первое % Второе;

Если Остаток gt; 0 Тогда

Первое = Второе;

Второе = Остаток;

НОД = РасчетНОД(Первое, Второе);

Иначе

НОД = Второе;

КонецЕсли;

Возврат НОД;

КонецФункции

Функция Эйлера (Число) Экспорт

ЧислаЭйлера = Новый Массив;

Количество =0;

ЧислаЭйлера.Добавить(Количество);

Для Номер = 1 По Число Цикл

Если РасчетНОД(Число, Номер) = 1 Тогда

Количество = Количество + 1;

ЧислаЭйлера.Добавить(?(Номерgt;Число/2, Номер-Число, Номер));

КонецЕсли;

КонецЦикла;

ЧислаЭйлера[0] = Количество;

Возврат ЧислаЭйлера;

КонецФункции

Функция СтепеньПоМодулю (Основание, Степень, Модуль) Экспорт

Основание = Основание % Модуль;

Число = Основание;

Для Индекс = 2 По Степень Цикл

Число = Основание * Число;

Число = Число % Модуль;

КонецЦикла;

Возврат Число;

КонецФункции

Функция РешениеСравнения (Коэффициент, Сравнение, Модуль) Экспорт

НОД = РасчетНОД(Коэффициент, Модуль);

Если Сравнение%НОД = 0 Тогда

СравнениеНОД = Цел(Сравнение/НОД);

КоэффициентНОД = Цел(Коэффициент/НОД);

МодульНОД = Цел(Модуль/НОД);

Степень = Эйлера(МодульНОД)[0] - 1;

Решение = СравнениеНОД * СтепеньПоМодулю(КоэффициентНОД, Степень, МодульНОД);

Решение = Решение % МодульНОД;

КонецЕсли;

Возврат Решение;

КонецФункции

Функция РешениеСравненияЛинейное (Коэффициент1, Коэффициент2, Сравнение, НОД, Модуль) Экспорт

МГлавный = Новый Массив;

МОсновной = Новый Массив;

Коэффициент1НОД = Цел(Коэффициент1/НОД);

Коэффициент2НОД = Цел(Коэффициент2/НОД);

МодульНОД = Цел(Модуль/НОД);

СравнениеНОД = Цел(Сравнение/НОД);

НОД1 = РасчетНОД(Коэффициент1НОД, МодульНОД);

НОД2 = РасчетНОД(Коэффициент2НОД, МодульНОД);

МГлавный = Эйлера(МодульНОД);

Если НОД2 gt; 1 Тогда

Коэф = РешениеСравнения(НОД1, СравнениеНОД, НОД2);

Иначе

Коэф = 1;

КонецЕсли;

Счетчик = Цел(МодульНОД/НОД2);

Для Номер = 0 ПО Счетчик-1 Цикл

Коэф2 = МГлавный.Найти(?((Коэф + Номер*НОД2)gt;МодульНОД/2, (Коэф + Номер*НОД2)-МодульНОД, (Коэф + Номер*НОД2)));

Если ТипЗнч(Коэф2)lt;gt;Тип("Неопределено") Тогда

МОсновной.Добавить(МГлавный[Коэф2]);

КонецЕсли;

КонецЦикла;

Ответ = Новый Массив(2);

Первый = Новый Массив;

Второй = Новый Массив;

Результат = Новый Массив;

Модуль1 = Цел(МодульНОД/НОД1);

Модуль2 = Цел(МодульНОД/НОД2);

Степень1 = Эйлера(Модуль1)[0]-1;

Степень2 = Эйлера(Модуль2)[0]-1;

Коэффициент1НОД1 = Цел(Коэффициент1НОД/НОД1);

Коэффициент2НОД2 = Цел(Коэффициент2НОД/НОД2);

Для Номер = 0 ПО МОсновной.Количество()-1 Цикл

Решение1 = СтепеньПоМодулю(Коэффициент1НОД1, Степень1, Модуль1) * МОсновной.Получить(Номер) % Модуль1;

Решение2 = СтепеньПоМодулю(Коэффициент2НОД2, Степень2, Модуль2) * Цел((СравнениеНОД-НОД1*МОсновной.Получить(Номер))/НОД2) % Модуль2;

Первый.Добавить(?(Решение1gt;Модуль/2, Решение1-Модуль, Решение1));

Второй.Добавить(?(Решение2gt;Модуль/2, Решение2-Модуль, Решение2));

Результат.Добавить(Коэффициент1*Первый[Номер] + Коэффициент2*Второй[Номер]);

КонецЦикла;

Ответ[0] = Первый[0];

Ответ[1] = Второй[0];

Для Номер = 1 ПО Результат.Количество()-1 Цикл

Если Pow(Результат[Номер-1], 2) gt; Pow(Результат[Номер], 2) Тогда

Ответ[0] = Первый[Номер];

Ответ[1] = Второй[Номер];

КонецЕсли;

КонецЦикла;

Возврат Ответ;

КонецФункции

Пояснения:

1. Функция РасчетНОД (Число1, Число2).

возвращает Наибольший Общий Делитель двух чисел.

2. Функция Эйлера (Число).

возвращает функцию Эйлера (количество чисел взаимопростых с данным и меньших его) для числа в следующем виде: Массив[КоличествоЧиселВзаимопростыхСДанным, МножествоЭтихСамыхЧиселВзаимопростыхСДанным], причем эти числа представляются в виде ?(Номерgt;Число/2, Номер-Число, Номер), где Номер - эти самые числа.

3. Функция СтепеньПоМодулю (Основание, Степень, Модуль).

возвращает остаток от деления степени основания на текущий модуль.

4. Функция РешениеСравнения (Коэффициент, Сравнение, Модуль).

возвращает решение линейного сравнения с одной переменной: Коэффициент*Решение = Сравнение (mod Модуль).

5. Функция РешениеСравненияЛинейное (Коэффициент1, Коэффициент2, Сравнение, НОД, Модуль).

возвращает решение линейного сравнения с двумя переменными: Коэффициент1*Ответ1+Коэффициент2*Ответ2 = Сравнение (mod Модуль), при этом НОД = НОД(Коэффициент1, Коэффициент2, Модуль) (общий делитель трех чисел).

Далее идут процедуры которые вставляются непосредственно в объект, где надо округлять. Первая процедура вешается на созданую кнопку на форме объекта, а вторая - прописывается в модуле объекта (в моем случае это документ ЗаказПокупателя). Выделенное жирным заменяется согласно Вашему объекту.

//Получаем общую сумму и если в ней есть копейки, то будем округлять их до рублей.

Процедура КоманднаяПанельТоварыДействиеОкруглитьСтоимость(Кнопка)

Сумма = Товары.Итог("Сумма");

Если Сумма*100%100 lt;gt; 0 Тогда

Ответ = Вопрос("Перед округлением цен надо записать документ! Записать?", РежимДиалогаВопрос.ДаНет);

Если Ответ = КодВозвратаДиалога.Да Тогда

ЭтотОбъект.Записать();

ОкруглитьСуммуЗаказа();

КонецЕсли;

КонецПроцедуры

//Для округления будем стараться выбирать товары с наибольшей ценой для уменьшения погрешности разницы округленной цены и текущей.

//Наценку будем брать так, чтобы она по модулю не превышала 50 копеек, опять же для уменьшения погрешности.

Процедура ОкруглитьСуммуЗаказа() Экспорт

Массив = Новый Массив(2);

Результаты = Новый Массив;

Запрос = Новый Запрос;

Текст = "ВЫБРАТЬ

| ЗаказПокупателяТовары.НомерСтроки КАК НомерСтроки,

| ЗаказПокупателяТовары.Количество,

| ЗаказПокупателяТовары.Цена КАК Цена,

| ЗаказПокупателяТовары.Сумма КАК Сумма

|ИЗ

| Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары

|ГДЕ

| ЗаказПокупателяТовары.Ссылка = amp;Ссылка

|УПОРЯДОЧИТЬ ПО

| Цена УБЫВ

|ИТОГИ

| КОЛИЧЕСТВО(НомерСтроки),

| СУММА(Сумма)

|ПО

| ОБЩИЕ";

Запрос.Текст = Текст;

Запрос.УстановитьПараметр("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать(); //Вытаскиваем список всех товаров упорядоченых по убыванию цены

Если Выборка.Следующий() Тогда

СуммаИтого = Выборка.Сумма*100%100; //Получаем общую сумму и количество товаров

КоличествоИтого = Выборка.НомерСтроки;

КонецЕсли;

Если Выборка.Следующий() Тогда

Количество1 = Выборка.Количество%100; //Получаем первый, то есть самый дорогой товар

Цена1 = Выборка.Цена*100;

Строка1 = Выборка.НомерСтроки;

КонецЕсли;

НОД1 = АналитическийМодуль.РасчетНОД(Количество1, 100);

Если СуммаИтого%НОД1=0 Тогда

Наценка = АналитическийМодуль.РешениеСравнения(Количество1, СуммаИтого, 100);

Наценка1 = -(?(Наценкаgt;50, Наценка-100, Наценка));

//Если количество самого дорогого товара подходит для решения сравнения,

//то есть его цену можно исправить так, чтобы исчезли копейки в сумме,

//то нам больше ничего и не надо, иначе - ищем второй подходящий товар

//(не трудно понять, что такой товар найдется для решения сравнения с двумя переменными,

//еслиб не нашлось, то текущей суммы бы не получилось при таких данных параметрах позиций товаров):

Иначе

Пока Выборка.Следующий() Цикл

Количество2 = Выборка.Количество%100;

НОД2 = АналитическийМодуль.РасчетНОД(Количество2, НОД1);

Если (СуммаИтого%НОД2=0) Тогда

Массив = АналитическийМодуль.РешениеСравненияЛинейное(Количество1, Количество2, СуммаИтого, НОД2, 100);

Строка2 = Выборка.НомерСтроки;

Наценка1 = -(?(Массив[0]gt;50, Массив[0]-100, Массив[0]));

Наценка2 = -(?(Массив[1]gt;50, Массив[1]-100, Массив[1]));

Прервать;

КонецЕсли;

КонецЦикла;

КонецЕсли;

ТекСтрока = Товары.Получить(Строка1-1);

ТекСтрока.Цена = ТекСтрока.Цена + Наценка1/100;

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ТекСтрока, ЭтотОбъект);

Если ТипЗнч(Строка2) lt;gt; Тип("Неопределено") Тогда

ТекСтрока = Товары.Получить(Строка2-1);

ТекСтрока.Цена = ТекСтрока.Цена + Наценка2/100;

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ТекСтрока, ЭтотОбъект);

КонецЕсли;

КонецПроцедуры

При проверки погрешность разницы колебалась в пределах не больше чем 1-2% от объщей суммы.

Минусы:

данная система округления работает с "чистыми" ценами, без учета ручных и автоматических скидок, проставляемых отдельно в виде %, поэтому если на некоторые товары действует скидка, то приходится в ручную расчитывать цену со скидкой и прописывать её в колонку "Цена", а колонку "Скидка" не трогать.

Результаты поиска 21 тыс.

Расчетный лист с базой НДФЛ и налогами СФОТ

lelbraun [107] — Wed, 20 Apr 2011 13:42:00 GMT

[5/0]

Кофигурации: 1С:Зарплата и кадры 7.7
Внешний отчет, обработка для 1С: Расчет 7.7

Расчетные листы, в которых показаны не тольно начисления, но и отчисления с сотрудника в страховые фонды, а также информация о базе НДФЛ. Отчет разработан по просьбе расчетчиков.

Скачать rasch_listi_so_strah(ro).ert (121.5 kb)
Доступ: Пользователи
Скачиваний: 33

или посмотреть и скачать все файлы (1)

Отчет сделан на основе разарботки http://infostart.ru/public/82696/, немного причесан и добавлена информация по НДФЛ. Расчетчик давно просила в расчетные листки добавить информацию по взносам СФОТ и НДФЛ, якобы так надо по закону теперь.

Инструкция простая:

Запустить отчет через: файл - открыть

или

добавить файл в папку ExtForms,

меню: сервис - дополнительные возможности в открывшемся окне кнопка "Изменить" - "внести в список", выбрать файл с именем "rasch_listi_so_strah(ro).ert" название отчета "Расчетные листки 2011". После этого в дополнительных возможностях должна появиться строчка "Расчетные листки 2011", кликаете по ней и формируете расчетные листы.

2.png

3.png

Результаты поиска 22 тыс.

Учет бонусных карт в 1с8

i-man [33] — Wed, 20 Apr 2011 11:50:00 GMT

[0/0]

Кофигурации: 1С:Комплексная автоматизация 8, 1С:Управление торговлей 8, 1С:Управление производственным предприятием 8
Конфигурация для 1С: Предприятие 8.1; 1С: Предприятие 8.2

Дополнение к типовым конфигурациям 1с8 для ведения и учета бонусных карт покупателей.

Скачать Документация (169.5 kb)
Доступ: Пользователи
Скачиваний: 5

или посмотреть и скачать все файлы (1)

Описание

Дополнение к типовым конфигурациям 1с8 для ведения и учета бонусных карт покупателей.

Основные термины

"Покупатель" #x2013; розничный клиент магазина, который приобретает товар в магазине и оплачивает его. Оформление покупки производится документом "Чек ККМ"
"Бонусная карта" покупателя #x2013; пластиковая карта (штриховую или магнитную), которая регистрируется в программе, привязывается к контрагенту, и на которой ведется учет всех покупок, совершенных покупателем и накапливаются "Бонусы".
"Бонус" #x2013; сумма, эквивалентная рублям, которые составляет некоторый процент от суммы покупки, совершенной покупателем - держателем Бонусной карты. При совершении следующих покупок, покупателей имеет возможность часть суммы оплатить Бонусами, которые имеются на его Бонусной карте.

Поддерживаемые конфигурации

1С: Управление торговлей 10.3 (8.1, 8.2)
1С: УПП (8.1, 8.2)
1С: Комплексная автоматизация (8.1, 8.2)
1С: Управление торговым предприятием (8.1, 8.2)

Учет бонусов

Для удобства работы пользователя, весь функционал по учету бонусных карт выведен в отдельный блок меню

Бонусная карта.

Бонусная карта является элементом справочника "Информационные карты" с выбранным типом карты "Бонусная".
Бонусы, которые начисляются на Бонусную карту, считаются как процент от суммы покупки, которую покупатель оплачивает деньгами (наличными или банковской карты), но не бонусами.
Проценты, которые начисляются в виде Бонусов на Бонусную карту покупателя, вычисляются на основании документа "Установка порогов начисления бонусов".

Установка порогов начисления бонусов

Документ используется для установки порога при работе с бонусами
Значение, указанное в документе в реквизите laquo;Значение порогаraquo;, соответствует числовому значению процента бонуса.
Нижняя граница - это сумма всех продаж по карте, от которой начинается начисление бонусов.

Настройки учета бонусов

Через настройки устанавливается максимальный процент от общей суммы покупки, который можно оплатить бонусами

Корректировка бонусов #x2013; ручное начисление/снятие

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

Розничная продажа. Оплата бонусами. Начисление бонусов.

Чек ККМ

Розничная продажа с использованием Бонусных карт оформляется документом "Чек ККМ".
При выборе Бонусной карты в "Чеке ККМ" выводиться "остаток" накопленных бонусов на карте.
Бонусы начисляются на всю сумму чека - включая ту, которая оплачена бонусами, заработанными ранее. Сумма, которая будет начислена на бонусный счет, рассчитывается автоматически и выводится в виде текстового поля в форме чека.
Сумму, которую покупатель оплачивает бонусами, автоматически контролируется, чтобы она не превышала накопленные бонусы и разрешенный процент от покупки, который можно оплатить бонусами.
Товары, на которые по каким либо условиям в настоящий момент действует скидка, не могут оплачиваться Бонусами, но сами Бонусы по ним начисляются.
Также в чеке выводится сумма бонуса, которая будет на остатке после проведения чека.

Закрытие кассовой смены. Отчет о розничных продажах.

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

Отчет laquo;ведомость по бонусамraquo;

меню	справочник бонусных карт	установка порогов начисления бонусов	чек ККМ. информация о бонусах
закрытие кассовой смены	отчет - ведомость по бонусам

Купить

Юридическим лицам предоставляется полный комплект документов: лицензионный договор, счет на оплату, акт передачи прав и счет-фактура.

Правила работы магазина (открыть в новом окне).

Способы оплаты (открыть в новом окне).

Версия	Цена	В корзину
Учет бонусных карт для 1с8. документация	10 000 руб.	В корзину

Результаты поиска 1.1 тыс.

Внешняя печатная форма М-2

Jaivan [7] — Wed, 20 Apr 2011 11:40:00 GMT

[0/0]

Кофигурации: 1С:Бухгалтерия 8
Внешний отчет, обработка для 1С: Предприятие 8.1

Внешняя печатная форма М-2 для Бух документа Доверенность с отладкой в конфигураторе, как внешней обработки через меню "Файл/Открыть". Подключение обработки через меню "Сервис" - "Дополнительные отчеты и обработки" - "Дополнительные внешние печатные формы". Доработана печать расшифровки руководителя и главного бухгалтера.

Скачать М-2 (14.17 kb)
Доступ: Пользователи
Скачиваний: 2

или посмотреть и скачать все файлы (1)

Результаты поиска 2.1 тыс.

ОСВ для экономистов УСН

lel4ik [43] — Wed, 20 Apr 2011 11:33:00 GMT

[0/0]

Кофигурации: 1С:Бухгалтерия 7.7
Внешний отчет, обработка для 1С: Бухгалтерский учет 7.7

Оборотно-сальдовая ведомость по 43 счету для экономистов содержащая розничные цены.

Скачать ОСВ_УСН_ЭКО (42.5 kb)
Доступ: Пользователи
Скачиваний: 4

или посмотреть и скачать все файлы (1)

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

отчет

Результаты поиска 21 тыс.

Прайс-лист УТ 10.3 со скидками контрагентов

semenov1cnik [1] — Wed, 20 Apr 2011 10:46:00 GMT

[1/0]

Кофигурации: 1С:Управление торговлей 8
Внешний отчет, обработка для 1С: Предприятие 8.1

Скачать Прайс-лист УТ 10.3 со скидками контрагентов (49.78 kb)
Доступ: Пользователи
Скачиваний: 6

или посмотреть и скачать все файлы (1)

Доработана обработка для себя, которая позволяет печатать прайс-лист покупателю за минусом его скидки. Скидка устанавливается документом "Установка скидок номенклатуры". Берутся только скидки номенклатуры и для конкретного клиента.

Без скидки

Со скидкой

Результаты поиска 21 тыс.

Автоматическое формирование резерва по сомнительным долгам в БП 2.0

Naumov [2] — Wed, 20 Apr 2011 10:29:00 GMT

[2/1]

Кофигурации: 1С:Бухгалтерия 8
Внешний отчет, обработка для 1С: Предприятие 8.2

милое правительство с 2011-го года обязала все предприятия формированть резерв по сомнительным долгам, а когда 1С с автоматизацией этого процесса разродится не известно ( пожелание они записали леть так 5 назад)

Скачать Формирование резерва (397.31 kb)
Доступ: Пользователи
Скачиваний: 10

или посмотреть и скачать все файлы (1)

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

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

Чтобы не вступать в дискуссию по поводу того как толковать разницы от образуемого резева: постоянные они или временные, в обработке есть флажок, которым вы приемлимый для вас способ отражения примените.
Оговорюсь сразу, что те, кто будут отражать разницы в сотаве ВР, должны будут сами расчитывать ОНО/ОНА по этому активу, т.к. в 1С БП2.0 такой расчет не предусмотрен.

Для формирования резерва в НУ необходимо в обработке указывать величину формируемого резерва. Сама обработка расчета не производит. Что это за умма. Это не сумма резевра, который вы должны получить, это сумма, которая будет добавлена к резеру ну при формировании. Т.е. Чтобы получить правильную сумму конченого резерва вам нужно в Обработке указать сумму, которую вы можете добавить к резерву, увеличенную на сумму восстановления резерва и сумму списания задолжностей за счет резерва. (поэкспериментировав с результатом вы поймете, что к чему)

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

Результаты поиска 1.8 тыс.