Detochkin Jurii

60
Рейтинг

jmw



  •   Регистрация: 09.08.2006 (17 лет назад)

  •   Был(а) на сайте: 23.04.2024

Друзья
  • Salma Hayek
  • Дмитрий Малышев
Подписчики 8
Группы

Профессиональный разработчик

Рейтинг 60

Небольшой батничек сохранения базы
+60 –

Инструменты и обработки Системный администратор Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Windows Абонемент ($m) Приложение (exe) Архивирование (backup)

Очень простой скрипт. Любой пользователь сможет самостоятельно разобраться - в начале файла полное его описание (в проводнике правой кнопкой мыши - "Изменить"). noBackUp - список исключаемых файлов.

1 стартмани

11.11.2008    16626    1530    jmw    16       

60
Смотреть все

Комментарии

Dev › В функции Вопрос() поменять названия кнопок Да+Нет › #37 19.04.24 4:57
Вопрос можно сделать ещё и с оформлением.

Прикрепленные файлы:

Screenshot_9.png
Dev › Как присоединить область справа и заполнить строки снизу › #2 19.04.24 4:45
Примерно так:
Код
тПродукты = Новый ТаблицаЗначений;
тПродукты.Колонки.Добавить("Продукт");
тПродукты.Колонки.Добавить("Источники");

тИсточники = Новый ТаблицаЗначений;
тИсточники.Колонки.Добавить("Источник");
тИсточники.Колонки.Добавить("Статусы");

заготовкаИсточники = ЗначениеВСтрокуВнутр(тИсточники);

масИсточники = Новый Массив;

выб = Запрос.Выполнить().Выбрать();
Пока выб.Следующий() Цикл
   
   стрПродукты = тПродукты.Найти(выб.Продукт, "Продукт";
   Если стрПродукты = Неопределено Тогда
      стрПродукты = тПродукты.Добавить();
      стрПродукты.Продукт = выб.Продукт;
      стрПродукты.Источники = ЗначениеИзСтрокиВнутр(заготовкаИсточники);
   КонецЕсли;
   
   стрИсточники = стрПродукты.Источники.Найти(выб.Источник, "Источник");
   Если стрИсточники = Неопределено Тогда
      стрИсточники = стрПродукты.Источники.Добавить();
      стрИсточники.Источник = выб.Источник;
      стрИсточники.Статусы  = Новый Структура("Неудачно, Отремонтировано, ВРемонте, Всего", 0, 0, 0, 0);
   КонецЕсли;
   
   стрИсточники.Статусы.Неудачно = стрИсточники.Статусы.Неудачно        + выб.Неудачно;
   стрИсточники.Статусы.Неудачно = стрИсточники.Статусы.Отремонтировано + выб.Отремонтировано;
   стрИсточники.Статусы.Неудачно = стрИсточники.Статусы.ВРемонте        + выб.ВРемонте;
   стрИсточники.Статусы.Неудачно = стрИсточники.Статусы.Всего           + выб.Всего;
   
   Если масИсточники.Найти(выб.Источник) = Неопределено Тогда
      масИсточники.Добавить(выб.Источник);
   КонецЕсли;
   
КонецЦикла;

// шапка

обл = Макет.ПолучитьОбласть("Шапка|ОбластьИсточники");
таб.Вывести(обл);
обл = Макет.ПолучитьОбласть("Шапка|ОбластьГруппаПродукта");
Для каждого стрПродукты из тПродукты Цикл
   обл.Параметры.ГруппаПродукта = стрПродукты.Продукт;
   таб.Присоединить(обл);
КонецЦикла;

// строки

Для каждого Источник из масИсточники Цикл
   обл = Макет.ПолучитьОбласть("Строки|ОбластьИсточники");
   обл.Параметры.Источник = Источник;
   таб.Вывести(обл);
   
   обл = Макет.ПолучитьОбласть("Строки|ОбластьГруппаПродукта");
   Для каждого стрПродукты из тПродукты Цикл
      стрИсточники = стрПродукты.Источники.Найти(Источник, "Источник");
      обл.Параметры.Установить(стрИсточники);
      таб.Присоединить(обл);
   КонецЦикла;
   
КонецЦикла;
Dev › Программирование 1с 8.3 › #6 17.04.24 4:34
Может лучше использовать обработчик подписки на события.
Скажем, ПриЗаписи будет обрабатываться только при удачной записи объекта. Следовательно, можно создавать и записывать второй документ или перезаполнять данными из первого.
Зарплата › Обновление конфигурации ЗУП › #6 11.04.24 12:43
(5) Не нужно вам это.
Лучше поделитесь информацией, что запускаете:
— версия платформы
— сервер или файл
— память
— свободное место (на системном диске и где лежит БД)
БУ › Нет подразделения в документе реализация товаров, услуг › #4 11.04.24 10:43
(3)

Прикрепленные файлы:

Screenshot_8.png
БУ › Нет подразделения в документе реализация товаров, услуг › #2 11.04.24 10:26
Конфигурация какая?
Если бух, то нужно КОРП
Dev › Сделать группировку подразделений в табличной части печатной формы › #4 11.04.24 9:39
Оно же отсортировано уже по подразделениям.
Тогда проще так:

Код
текПодразделение = Справочники.Подразделения.ПустаясСылка();
Для каждого стр из масСтрок Цикл
    Если текПодразделение <> стр.Подразделение Тогда
        текПодразделение = стр.Подразделение;
        облПодразделение.Параметры.Подразделение = текПодразделение;
        табДок.Вывести(облПодразделение);
    КонецЕсли;
    облСтрока.Параметры = ...
    табДок.Вывести(облСтрока);
КонецЦикла;
Dev › Запрет выбора группы справочника › #2 22.03.24 10:49
Вы про это?

Прикрепленные файлы:

Screenshot_5.png
Dev › Проблема С Иерархическим Справочников › #3 14.03.24 4:36
Тот-же код, только не смотря на уровни и без рекурсии:
Код
   Если СтрокаТЗ.ЭтоГруппа Тогда
      ОбъектНоменклатура = Справочники.Номенклатура.СоздатьГруппу();
   Иначе
      ОбъектНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
   КонецЕсли;
   Если СсылкаРодитель <> Справочники.Номенклатура.ПустаяСылка() Тогда
      ОбъектНоменклатура.Родитель = СсылкаРодитель;
   КонецЕсли;
   ОбъектНоменклатура.УстановитьСсылкуНового(СсылкаНоменклатура);
   ЗаполнитьЗначенияСвойств(ОбъектНоменклатура, СтрокаТЗ, , "Родитель");
   ОбъектНоменклатура.Записать();

Если хотите, можно добавить ещё проверку, что СсылкаРодитель — это группа…
Dev › Запросы в 1С › #10 22.02.24 9:51
(8) Перед Запрос.Выполнить() добавить

Код
Сообщить(стрУсловия)


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

Код
стрУсловия = стрУсловия + "
| " + стрИ + " Сотрудники.Подразделение = &Подразделение";


и во всех остальных строках!