Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику 29a ::: Спасибо сказали: 31 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
19.08.22, 10:44 Получить синоним метаданных на определенном языке
AnryMc @ Вчера, 9:17 * ,
ИМХО запустить еще один экземпляр 1С через OLE с параметром нужного языка /LEn и получить синоним на этом языке
AnryMc,
20.08.21, 12:30 Как организовать выборку по датам из запроса
vol235 @ Сегодня, 13:24 * ,
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Запрос)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Товар = Регистр.ОстаткиТоваров.Товар;
    |Группировка День;
    |Группировка Товар;
    |"//}}ЗАПРОС
;

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    Пока Запрос.Группировка(1) = 1 Цикл
        Пока Запрос.Группировка(2) = 1 Цикл
        КонецЦикла;
    КонецЦикла;
vol235,
13.08.21, 14:37 Как вывести строки таблицы документа в 4-х экзеплярах
lolmatrix @ Сегодня, 14:43 * ,
после Инд = 4 после вывода в таб документ
lolmatrix,
13.08.21, 9:22 Как вывести строки таблицы документа в 4-х экзеплярах
lolmatrix @ Сегодня, 9:03 * ,
Что то вроде этого
Инд = 0;
Этикетка1 = "";
Этикетка2 = "";
Этикетка3 = "";
Этикетка4 = "";
Для Каждого Строка Из Таблица Цикл
    Инд = Инд + 1;
    Если Инд = 1 Тогда
        Этикетка1 = Строка.ШК;
    ИначеЕсли Инд = 2 Тогда
        Этикетка2 = Строка.ШК;
    ИначеЕсли Инд = 3 Тогда
        Этикетка3 = Строка.ШК;
    ИначеЕсли Инд = 4 Тогда
        Этикетка4 = Строка.ШК;
        Инд = 0;
        ОбластьМакета.Параметры.Этикетка1 = Этикетка1;
        ОбластьМакета.Параметры.Этикетка2 = Этикетка2;
        ОбластьМакета.Параметры.Этикетка3 = Этикетка3;
        ОбластьМакета.Параметры.Этикетка4 = Этикетка4;
        ТабДокумент.Вывести(ОбластьМакета);
        Этикетка1 = "";
        Этикетка2 = "";
        Этикетка3 = "";
        Этикетка4 = "";
    КонецЕсли;
КонецЦикла;    

Если Инд > 0 Тогда
    ОбластьМакета.Параметры.Этикетка1 = Этикетка1;
    ОбластьМакета.Параметры.Этикетка2 = Этикетка2;
    ОбластьМакета.Параметры.Этикетка3 = Этикетка3;
    ОбластьМакета.Параметры.Этикетка4 = Этикетка4;
    ТабДокумент.Вывести(ОбластьМакета);
КонецЕсли;
lolmatrix,
22.07.21, 18:20 telnet против ping
4andriy @ 19.07.21, 21:02 * ,
создать командный файл tn.cmd, прописать в нем telnet %1 < command.txt
создать файл command.txt, прописать в нем q
разместить оба файла например в папке c:\telnet

Если КомандаСистемы("c:\telnet\tn.cmd "+Адресбух+" 4884")<>0 Тогда
Сообщить("работает");
4andriy,
14.07.21, 13:25 Перебор одноименных элементов справочника
miha74 @ 24.06.21, 22:14 * ,
ИМХО добавить реквизит "НаименованиеКомментарий" (на форму можно не выводить), программно его заполнить, при записи элемента перезаполнять его, установить пизнак "Сортировка", поиск производить методом НайтиПоРеквизиту("НаименованиеКомментарий", ЗначениеДляПоиска)
miha74,
01.04.21, 8:16 Если Истина Тогда
onsamuy @ Вчера, 16:47 * ,
Возможно ранее было условие, которое отключили таким образом...
onsamuy,
19.02.21, 14:07 Автоматизация подбора тары(упаковки) для товара
в Pythone есть бесплатная библиотека py3dbp в которую передаешь список упаковок (размеры, мах вес), список товаров (размеры, вес), в результате библиотека возвращает варианты размещения.
Применительно к 1С, можно установить интерпретатор Python, из 1С передать в скрипт параметры (коробки, товары), обратно получить варианты размещения.
Пример:
::::::::::: small-envelope(11.500x6.125x0.250, max_weight:10.000) vol(17.609)
FITTED ITEMS:
UNFITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
::::::::::: small-box(8.625x5.375x1.625, max_weight:70.000) vol(75.334)
FITTED ITEMS:
UNFITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
::::::::::: large-envelope(15.000x12.000x0.750, max_weight:15.000) vol(135.000)
FITTED ITEMS:
UNFITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
::::::::::: medium-box(11.000x8.500x5.500, max_weight:70.000) vol(514.250)
FITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
UNFITTED ITEMS:
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
::::::::::: medium-2-box(13.625x11.875x3.375, max_weight:70.000) vol(546.064)
FITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
UNFITTED ITEMS:
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
::::::::::: large-box(12.000x12.000x5.500, max_weight:70.000) vol(792.000)
FITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
UNFITTED ITEMS:
***************************************************
***************************************************
::::::::::: large-2-box(23.688x11.750x3.000, max_weight:70.000) vol(835.002)
FITTED ITEMS:
====>  50g [powder 1](3.937x1.968x1.968, weight: 1.000) pos([0, 0, 0]) rt(0) vol(15.248)
====>  50g [powder 2](3.937x1.968x1.968, weight: 2.000) pos([Decimal('3.937'), 0, 0]) rt(0) vol(15.248)
====>  50g [powder 3](3.937x1.968x1.968, weight: 3.000) pos([Decimal('7.874'), 0, 0]) rt(0) vol(15.248)
====>  250g [powder 4](7.874x3.937x1.968, weight: 4.000) pos([Decimal('11.811'), 0, 0]) rt(0) vol(61.008)
====>  250g [powder 5](7.874x3.937x1.968, weight: 5.000) pos([Decimal('19.685'), 0, 0]) rt(1) vol(61.008)
====>  250g [powder 6](7.874x3.937x1.968, weight: 6.000) pos([0, Decimal('1.968'), 0]) rt(0) vol(61.008)
====>  250g [powder 7](7.874x3.937x1.968, weight: 7.000) pos([Decimal('11.811'), Decimal('3.937'), 0]) rt(0) vol(61.008)
====>  250g [powder 8](7.874x3.937x1.968, weight: 8.000) pos([0, Decimal('5.905'), 0]) rt(0) vol(61.008)
UNFITTED ITEMS:
====>  250g [powder 9](7.874x3.937x1.968, weight: 9.000) pos([Decimal('7.874'), 0, Decimal('1.968')]) rt(5) vol(61.008)
***************************************************
***************************************************
kapitoshka_user,
19.02.21, 12:16 Автоматизация подбора тары(упаковки) для товара
kapitoshka_user @ Сегодня, 10:59 * ,
Реализация на Python https://github.com/hudora/pyShipping
Реализация на PHP https://github.com/yetzt/boxing

Реализация на PHP https://github.com/dvdoug/BoxPacker
Реализация на С++ https://github.com/juj/RectangleBinPack
DartRomanius, kapitoshka_user,
12.02.21, 10:47 MS SQL Express и бекапы Bernet,
11.02.21, 16:36 Расчетные листки организаций
Xmdrug @ Сегодня, 16:18 * ,
можно просто, зайти в конфигуратор, найти отчет, вызвать контекстное меню, выбрать "Заменить на внешнюю обработку, отчет...", выбрать исправленный отчет.


Цитата(Xmdrug @ 11.02.21, 15:37) *
Неразрешили скинуть

ИМХО, что тогда заморачиваться?... Пусть ищут программиста, который придет и сделает все бесплатно на месте. )))
Xmdrug,
11.02.21, 11:48 Расчетные листки организаций
DartRomanius @ Сегодня, 10:42 * ,
Обычный отчет, так и есть, нужно добавить ДокументРезультат.ВывестиГоризонтальныйРазделительСтраниц();

З.Ы.
пользуйтесь...
https://fex.net/ru/s/zrpc2pn


 ! 

Правила: 1
 
Xmdrug,
07.02.21, 17:50 Где найти, нужно поменять значение ТМЦ.Товары
CAHbOK @ Сегодня, 9:07 * ,
Заменить 91 на нужный счет

СчетЗатрат = СчетПоКоду("91");


// ======================================
Процедура УстСчетЗатрат()
    Если глВосстановитьЗначение(,"ИспользоватьСчетаРасходов",Класс89)=Класс9 Тогда
        Если ВидТМЦ = Перечисление.ВидыТМЦ.Услуга Тогда
            СчетЗатрат = СчетПоКоду("949");
        Иначе
            СчетЗатрат = СчетПоКоду("91");
        КонецЕсли;
    Иначе
        Если ВидТМЦ = Перечисление.ВидыТМЦ.Услуга Тогда
            СчетЗатрат = СчетПоКоду("84");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Материал Тогда
            СчетЗатрат = СчетПоКоду("80.1");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Полуфабрикат Тогда
            СчетЗатрат = СчетПоКоду("80.2");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Топливо Тогда
            СчетЗатрат = СчетПоКоду("80.3");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Стройматериал Тогда
            СчетЗатрат = СчетПоКоду("80.5");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Запчасти Тогда
            СчетЗатрат = СчетПоКоду("80.6");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Товар Тогда
            СчетЗатрат = СчетПоКоду("80.8");
        ИначеЕсли ВидТМЦ = Перечисление.ВидыТМЦ.Тара Тогда
            СчетЗатрат = СчетПоКоду("80.4");
        Иначе
            СчетЗатрат = СчетПоКоду("80.9");
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
CAHbOK,
05.02.21, 22:36 Выравнивание элементов на форме
BeLuY @ Сегодня, 16:45 * ,
Разместить их в одной группе, разделив их текстовой декорацией.
BeLuY, fly,
18.01.21, 14:42 Помогите с выбором хостинга для 1С:Предприятие!
Vitalii94 @ Сегодня, 13:46 * ,
наш админ рекомендует hetzner
Taurus1,
29.12.20, 11:05 bas розница и Мария304 - как добавить обработку
mact @ Вчера, 20:57 * ,
Кроме платно драйвера от АртСофт подтянуть что то готовое в эту конфу нет вариантов.
Если ФР один, можно не заморачиваться и купить драйвер от АртСофт (он привязывается к заводскому номеру ФР), если больше одного, есть смысл подключить ФР на заводском драйвере, но придется дорабатывать конфу, по деньгам выйдет примерно столько же (или писать расширение, если хочется оставить конфу типовой).
mact,
15.12.20, 13:49 Разработку форм рекомендуется выполнять в разрешении 96 DPI
Скрипт меняет разрешение экрана в 96DPI, стартует 1С, после выхода из 1С возвращает стандартное разрешение (в данном случае 1920х1080 и 1366х768)

Использование:
Разместить папку 96DPI в каталог bin релиза
Вывести ярлык 1cv8.cmd на рабочий стол (при желании изменить значок ярлыка на 1С)

1Cnick, andreykyiv@bigmir.net, FS_123, Sadi_D, Vofka, Vond,
15.12.20, 13:20 Скрипт блокировки базы данных на вход пользователей
Скрипт блокировки базы данных на вход (или выкидывания) пользователей
Скрипт создает файл блокировки базы данных с паролем 321321 и запускает конфигуратор (если 1С установлена по стандартному пути)
Использование: положить файл в каталог базы данных и выполнить

По умолчанию база будет заблокирована на 1 час, если необходимо изменить время блокировки в скрипте необходимо изменить параметр set /A till=
После окончания работы в 1С в окне скрипта ввести Y для удаления файла блокировки
denis84, Vofka,
14.12.20, 14:06 Расширение "Техподдержка" для конфигурации "BAS Бухгалтерия"
Расширение добавляет во все формы документов и справочников кнопку "Техподдержка" - "Отправить письмо", при нажатии на которую формируется шаблон письма для техподдержки. При включенном в ОС разрешении на выполнение скриптов Powershell (*.ps1) формируется и прикрепляется к письму файл screenshot.png со снимком экрана.









[attachment=1204:Support.zip]
denis84, Santino, Vofka,
26.11.20, 11:40 Условия сохранения определенного документа (1с 7.7.27)
andrew76 @ Сегодня, 4:44 * ,

В модуле формы
// ===============================
Процедура ПриЗаписи()
    Если ПустоеЗначение(Сотрудник)=1 Тогда
        Сообщить("Не заполнен сотрудник");
        СтатусВозврата(0);
    КонецЕсли;
КонецПроцедуры[


Если сотрудник в табличной части, перебрать ТЧ
andrew76,
28.09.20, 15:10 Получить атрибуты файла (нетиповые)
Inkognito @ Сегодня, 13:02 * ,
Как вариант, если сертификаты установлены и видны в certmgr.msc (можно установить через контекстное меню сертификата), то с помощью PowerShell командой Get-ChildItem -Path cert: -Recurse -ExpiringInDays 365 можно получить сертификаты дата которых заканчивается через определенное количество дней (в данном случае 365) перебрать строки, по имени сертификационного центра отобрать нужные.

Inkognito,

RSS Текстовая версия Сейчас: 28.03.24, 21:46
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!