AnryMc @ Вчера, 16:35 ,
Працює - платформа 8.3.16.1148, конфігурація Business automation software for accounting CORP, edition 2.1 (2.1.9.2)

AnryMc @ Вчера, 16:35 ,


Вам не задавалося питання?

AnryMc @ Сегодня, 12:50 ,

&НаКлиенте
Процедура ДопКомплектацияПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр)
    
    Отказ = Истина;
    Оповещение = Новый ОписаниеОповещения("ПослеОтветаПользователя", ЭтотОбъект); 
    ТекстВопроса = НСтр("ru = 'Для выполнения этой операции необходимо записать документ. Записать?'"); 
    ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет); 
    
КонецПроцедуры 

&НаКлиенте 
Процедура ПослеОтветаПользователя(Ответ, ДополнительныеПараметры) Экспорт 
    
    Если Ответ = КодВозвратаДиалога.Да Тогда 
        Записать();
        Объект.ДопКомплектация.Добавить();
    КонецЕсли; 
    
КонецПроцедуры

4andriy @ Сегодня, 14:26 ,
в мене це приклад для журнала надходження ТМЦ, а у Вас

ось функція з глобал.модулю

Функция глПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0) Экспорт
        // функция для формирования значения цвета из составляющих (RGB)
    Возврат Макс(0,Синий)*65536+Макс(0,Зеленый)*256+Макс(0,Красный);
КонецФункции

4andriy @ Сегодня, 9:05 ,
Доброго дня, в журналі документів розфарбована ТЧ за ознакою "КонтрольДокументів", якщо контролюємо контрагента:

//==========================================
Функция ПроверитьВид()
    Если ПустоеЗначение(ТекущийДокумент) = 0 Тогда
        //Если ТекущийДокумент.ЗапретРедактирования = 1 Тогда
        //    Возврат "BRUSH["+глПолучитьЦвет(204,204,204)+"]";      //серый фон
        Если ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 1)) Тогда
            Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255,255,255)+"]"; //белый  фон
        ИначеЕсли ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 0)) Тогда
            Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255, 222, 179)+"]"; //красный  фон
        КонецЕсли;
    КонецЕсли;
    Возврат "";
КонецФункции

kostya77 @ Сегодня, 13:58 ,
Це ви хочете робити в 1с 7? А що задачу з допомогою регістру хочете вирішити?

4andriy @ Вчера, 17:45 ,

Если Сотрудники.ЭтоГруппа() = 0 Тогда
       СписокЭлементов.ДобавитьЗначение(Сотрудники.ТекущийЭлемент());
КонецЕсли;

kostya77 @ Сегодня, 13:57 ,

Посмотрите как в стандартных обработках "печать этикеток и ценников", это реализовано

а якщо спробувати перейменовувати(копыювати) файл, а потым выдкривати ы считувати

babykiev @ Вчера, 22:12 ,
Готовий допомогти!

kostya77 @ Сегодня, 14:53 ,

АвтоВремяНачалоДня();
Синтаксис:
АвтоВремяНачалоДня()
Назначение:
Установить режим записи времени на начало дня для новых документов.
Замечание:
Для новых документов в модуле формы доступно использование методов установки признака автоформирования времени документа и собственно установки времени. Если эти методы использованы, то диалог запроса времени не вызывается и игнорируются пользовательские установки в параметрах системы.

alex_shkut @ Сегодня, 9:21 ,

ТабДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");

kostya77 @ Сегодня, 18:21 ,
Описать свой алгоритм. У меня например в 1с 7 была организована нумерация от номера склада.

url_2l @ Сегодня, 14:31 ,
Для "дякую" там є спеціальна кнопочка.

url_2l @ Сегодня, 13:14 ,
Доброго дня! Є такий приклад в моїй конфігурації. В документі списання на виробництво - при зміні реквизиту "підрозділ у шапці документу, заповнюємо підрозділ в рядках документу

    текОтвет = Вопрос("У документі змінено реквізит підрозділу. Заповнити підрозділ по рядкам документу?","Да+Нет");
    Если текОтвет = "Да" Тогда
        ВыбратьСтроки();
        Пока ПолучитьСтроку()=1 Цикл
            СтрУчасток = Подразделение;
        КонецЦикла;
    КонецЕсли;

//або ось так: якщо заповнено реквізит "разрешил" в документі "заказ", то ставимо "да" для "готов к получению"
    Если ПустоеЗначение(Разрешил)=0 Тогда
        ГотовКПолучению = Перечисление.ДаНет.Да;
    Иначе
        ГотовКПолучению = Перечисление.ДаНет.Нет;        
    КонецЕсли;

barokko23 @ Сегодня, 14:41 ,

скачайте ще раз в мене з цим проблем не було - архів нормальний, а пароль в пункти 14 ПРАВИЛ

kostya77 @ Сегодня, 12:08 ,
https://pro1c.org.ua/index.php?showtopic=4042

barokko23 @ Сегодня, 10:52 ,
Це не до мене! Відкрию Вам секрет,це не я викладав файл!!! Я Вам тільки сказав де взяти пароль

І мене все чудово вдалося розархівувати. Перевірти розкладку клавіатури. пароль вводимо на англ.розкладці клавіатури

andrew76 @ Сегодня, 16:08 ,
а счета забалансового учета. Они есть даже в нашем плане счетов

andrew76 @ Сегодня, 13:13 ,
Это белоруская конфигурация! Может у них есть такой план счетов?

barokko23 @ Сегодня, 11:38 ,
пароль до архівів описаний в правилах форуму. Він однаковий для всіх архівів

Платформа 1с 7.70.027 должна у Вас быть. И попробуй из этого мд-файла в конфигураторе сделать: "загрузить измененную конфигурацию" в меню конфигурация - загрузить измененную конфигурацию. У Вас проблема для некоторых субконто (материалы и что-то еще) изменено "предсталение".

https://pro1c.org.ua/topic/1c-7-7-02770-70-...mp;p=29304&

https://pro1c.org.ua/index.php?showtopic=3953

Dmitrij19631025 @ Вчера, 19:50 ,
Цікаво, завтра гляну Вашу проблему

ArinaBuhgalter @ Сегодня, 13:40 ,
В правилах форуму є. Цей пароль, для всіх архівів один.