запретить создание документа копированием?

У формы в ПриСозданииНаСервере вроде есть свойство "ОбъектКопирования"

А если создание неинтерактивное, то...

ДокументОбъект.<Имя документа>.ПриКопировании (DocumentObject.<Имя документа>.OnCopy)
ДокументОбъект.<Имя документа> (DocumentObject.<Имя документа>)
ПриКопировании (OnCopy)
Синтаксис:

ПриКопировании(<ОбъектКопирования>)
Параметры:

<ОбъектКопирования>

Тип: ДокументОбъект.<Имя документа>.
Исходный документ, который является источником копирования.
Описание:

Возникает при создании документа копированием.
Замечание:

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

ДокументСсылка.<Имя документа>, метод Скопировать

--------------------------------------------------------------------------------

     Методическая информация

ПриКопировании (OnCopy)
Синтаксис:

ПриКопировании(<ОбъектКопирования>)
Параметры:

<ОбъектКопирования>

Тип: ДокументОбъект.<Имя справочника>.
Исходный элемент, который является источником копирования.
Описание:

Возникает при создании элемента справочника копированием.

+(1) "ПараметрОбъектКопирования", во

(0) зачем запрещать? ПриКопировании "обнуляй" объект

+(2) Использовать событие из (3) или (4) и там либо вызывать исключение, либо выдавать сообщение-отлуп, а сам объект запоминать где-нибудь в сеансе и в ПередЗаписью выдавать отлуп. Но второе ненадежно, т.к. у объекта могут поменять ссылку до записи.

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

(8) судя по всему позвать программиста...
Кодить надо. Нет такой настройки.

опять бородатая девушка....

Я нашла вот такую процедуру:

Если ЭтаФорма.ПараметрОбъектКопирования <> Неопределено Тогда
    Отказ = Истина;
    Предупреждение("Копирование запрещенно");
КонецЕсли;

Скажите что написать вместо слова : ЭтаФорма

Я не бородатая))

если что я могу дать удаленный доступ TeamViewer

Тамен джан, а кроме поиска готовых процедур, какие-нибудь книги были прочитаны?

да я изучаю

(13)Круто. Сколько готовы заплатить за эту услугу?

(13) давай инсту для начала

Вот полный текст:

Как запретить создание документа копированием в 1с.

Платформа: 8.2, 8.3
Формы: Обычные, Управляемые
Конфигурация: любая
Релиз: любой
Страница актуализирована: 06.02.2017

Запрет копирования документа.
Как запретить копирование документа? Добавить в процедуру формы документа "ПередОткрытием" следующий код:

Если ЭтаФорма.ПараметрОбъектКопирования <> Неопределено Тогда
    Отказ = Истина;
    Предупреждение("Копирование запрещенно");
КонецЕсли;

(15)Это хорошо. Чем отличается модуль формы от модуля объекта?

Что такое инсту

(17)Ахах, ну все, забирай, теперь ты в ответе)))

в модуле формы тебе доступна сама форма напрямую ,а в модуле объекта ты работаешь с самим объектом

(18) открой форму документа в конфигураторе и создай или проверь наличие процедуры-обработчика ПередОткрытием

(21) ЩА научим

(20) Инстаграм)

(20) инстаграмм твой выпрашивает... ты что, в самом деле бородатая, что не знаешь молодежного слэнга?

ну вот приехали((( да я бородатая)) и что из-этого.

Подскажите что написать:

Если ЭтаФорма.ПараметрОбъектКопирования <> Неопределено Тогда
    Отказ = Истина;
    Предупреждение("Копирование запрещенно");
КонецЕсли;

(27) ну так и пиши.

(27) тебе все выше русским языком написано. Кратко повторю
1) Открываешь форму нужного тебе документа в Конфигураторе
2) Ищи на форме включенный обработчик события ПередОткрытием
3) вставляй в процедуру обработчик код из (27) без изменения текста

да я так и сделала. Открыла программу, выбираю документ - вот:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаСписка.Форма(5)}: Поле объекта не обнаружено (ПараметрОбъектКопирования)
    Если ЭтаФорма.ПараметрОбъектКопирования <> Неопределено Тогда

(30) ЭтотОбъект.ПолучитьФорму().ПараметрОбъектКопирования

Вместо ЭтаФорма.ПараметрОбъектКопирования

(30) Это пример для обычных форм. У вас форма управляемая или обычная?

Вот так написала:

Если ЭтотОбъект.ПолучитьФорму() <> Неопределено Тогда
    Отказ = Истина;
    Предупреждение("Копирование запрещенно");
КонецЕсли;


При проверке выдает:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаСписка.Форма(5,7)}: Переменная не определена (ЭтотОбъект)
    Если <<?>>ЭтотОбъект.ПолучитьФорму() <> Неопределено Тогда  (Проверка: Толстый клиент (обычное приложение))

Форма.ФормаСписка - откуда у формы списка объект копирования?
Продолжим, чем форма объекта отличается от формы списка?

в форме объекта можно изменять, а в форме списка выбирать - наверное

(34) Перед открытием в форме документа, а не списка.

(30) все-таки написано было, что текст дается для формы _объекта_ , т.е. _документа_, но не списка

Если сделаешь в форме документа, то все получится.

как исправить эту ошибку((

(39) так нет никакой ошибки

просто сделай все в форме _документа_ , не надо пытаться это повторять в форме списка

Да я не той форме делала, простите меня ребята.
Сейчас в форме сделала, при проверке выходит вот:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(16,15)}: Обнаружено логическое завершение исходного текста модуля
КонецПроцедуры<<?>> (Проверка: Толстый клиент (обычное приложение))

(42) Что то лишнее в процедуру вставила. весь код процедуры смотри

Пишет что Процедура или функция с указанным именем уже определена (ПередОткрытием)

Ошибка там же, где и всегда...

(44)Это очень большая проблема, боюсь, силами форума не решить

(44) потому что 2 раз добавила, а нужно было в существующую вставить код

Какая я же я бородатая мозг расплавился, Ребята всем большое СПАСИБО))), извините за "Тупость", наконец-то все получилось, еле еле разобралась. И все получилось. Буду читать книгу по программировании для новичков

(44) ну не определяйте функцию ПередОткрытием 2 раза.

А можете мне еще помочь на другим вопросом?

Задавай

С Днем Рождения!

(52) +1 :)

коллеги поздравляли)), спасибо и вам за поздравления. Но сейчас не до ДР,

Есть вот такое:

В отчете о проведении аудита в поле «Описание» добавить проверку на заполненность (не должно быть только пробелов, точек или запятых)

Старалась правильно описать проблему

(54) ПередЗаписью() Если СокрЛП(Описание)="" или СтрНайти(","Описание)>0 или СтрНайти("."Описание)>0  тогда Отказ=Истина; КонецЕсли;

Все правильно поставила, но вышло Вот:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(264,59)}: Ожидается символ ')'
    Если СокрЛП(ОписаниеРеакцияРаботника)="" или СтрНайти(","<<?>>ОписаниеРеакцияРаботника)>0 или СтрНайти("."ОписаниеРеакцияРаботника)>0  тогда Отказ=Истина;  (Проверка: Толстый клиент (обычное приложение))

СтрНайти(",",ОписаниеРеакцияРаботника)>0 или СтрНайти(".",ОписаниеРеакцияРаботника)>0 надо запятые поставить, между кавычкой и ОписаниеРеакцияРаботника

Отказ = ПустаяСтрока(СтрЗаменить(СтрЗаменить(Описание,".",""),",",""))

Извините меня, все поставил, но опять ВОТ:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(264,47)}: Процедура или функция с указанным именем не определена (СтрНайти)
    Если СокрЛП(ОписаниеРеакцияРаботника)="" или <<?>>СтрНайти(",",ОписаниеРеакцияРаботника)>0 или СтрНайти(".",ОписаниеРеакцияРаботника)>0  тогда Отказ=Истина;  (Проверка: Толстый клиент (обычное приложение))
{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(264,92)}: Процедура или функция с указанным именем не определена (СтрНайти)
    Если СокрЛП(ОписаниеРеакцияРаботника)="" или СтрНайти(",",ОписаниеРеакцияРаботника)>0 или <<?>>СтрНайти(".",ОписаниеРеакцияРаботника)>0  тогда Отказ=Истина;  (Проверка: Толстый клиент (обычное приложение))

(59) ошибся, параметры в СтрНайти(",",ОписаниеРеакцияРаботника)>0 наоборот должны быть СтрНайти(ОписаниеРеакцияРаботника,",")>0

Поставила, но Вышло опять:

{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(264,47)}: Процедура или функция с указанным именем не определена (СтрНайти)
    Если СокрЛП(ОписаниеРеакцияРаботника)="" или <<?>>СтрНайти(ОписаниеРеакцияРаботника,",")>0 или СтрНайти(ОписаниеРеакцияРаботника,".")>0  тогда Отказ=Истина;  (Проверка: Толстый клиент (обычное приложение))
{Документ.ОтчетОПроведенииАудита.Форма.ФормаДокумента.Форма(264,92)}: Процедура или функция с указанным именем не определена (СтрНайти)
    Если СокрЛП(ОписаниеРеакцияРаботника)="" или СтрНайти(ОписаниеРеакцияРаботника,",")>0 или <<?>>СтрНайти(ОписаниеРеакцияРаботника,".")>0  тогда Отказ=Истина;  (Проверка: Толстый клиент (обычное приложение))

(61) вместо "СтрНайти" "Найти"

(62) Найти Устаревшая, рекомендуют СтрНайти

Ребята Вы просто умницы, спасибо Вам большое. Все получилось.

А можно чтобы сообщение выходило примерно такой текст"Не заполнено"

Сообщить("Не заполнено"); перед Отказ=Истина;

Круто. Научили возможно бородатую девушку говнокодить. Ппц, как запретить копирование -  при открытии формы дать отказ - ох**еть. Покопались в модуле формы, зачем? Чем модуль объекта  или подписка не угодили? Причем если УФ, то модуль объекта может быть в расширении.

СПАСИБО БОЛЬШОЕ РЕБЯТА, ВЫ ТАКИЕ УМНЫЕ.

(66) умник
Ну дай развернутое свое решение, кто тебе не дает

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

(69) Ну все поле может не стоит очищать... из-за 1 лишней запятой

(66) В ошибке явно написано Толстый клиент, обычное приложение. При постановке задачи не говорилось, что данная процедура должна отрабатывать при программном копировании документов. Поэтому модуль объекта тут незачем. Подписка? Какая подписка... ты бы хоть читал

если есть в описании точка или запятая - то ...
это (55)

(0) Убери кнопку копирования из меню

(71) Как запретить создание документа копированием.  

Делается без снятия с поддержки модулей.
для ТК
Процедура ПодпискаНаСобытие1ПриКопировании(Источник, ОбъектКопирования) Экспорт
    Отказ = Истина;
КонецПроцедуры

Для УФ

модуль документа в расширении

&Перед("ПриКопировании")
Процедура Т_Доп_ПриКопировании(ОбъектКопирования)
    Отказ=Истина;
КонецПроцедуры

(74) не работает твое решение через модуль расширение для УФ

Процедура обработчик ПриКопировании не обрабатывает Отказ = Истина

(74) и через подписку ПриКопировании тоже не работает. Нет обработки на Отказ = Истина

чет я погорячился, ПриКопировании входящего параметра Отказ нет. Но при других методах, лучше делать так.

хотя  логично использовать (6), а не запрещать.

Вы только что видели рождение будущего архитектора 1С

Привет всем, вопрос:

Есть пять колонок: ОД; ОУ; Риск легкой травмы; Риск тяжелой травмы; Риск смертельной травмы.

Проблема:
1) вместо флажков при выборе какой-либо колонки выставляется 1 или 0.


Задача:  1. Замена использование числовых значений («1») на флажок («V»).
         2. Если поставили флажок в колонке "ОД", то можно поставить только один флажок из 3 колонок " Риск легкой травмы; Риск тяжелой травмы; Риск смертельной травмы "
3) Также и с колонкой "ОУ"

Вот код который ставит 0 но нужно ставить флажок:

ТД = Элемент.ТекущиеДанные;
    Колонка = Элемент.ТекущаяКолонка.Имя;
    Если Колонка = "РискЛегкойТравмы" Тогда
        Если ТД.РискЛегкойТравмы > 0 Тогда
            ТД.РискТяжелойТравмы = 0;
            ТД.РискСмертельнойТравмы = 0;
        КонецЕсли;    
    ИначеЕсли Колонка = "РискТяжелойТравмы" Тогда
        Если ТД.РискТяжелойТравмы > 0 Тогда
            ТД.РискЛегкойТравмы = 0;
            ТД.РискСмертельнойТравмы = 0;
        КонецЕсли;    
    ИначеЕсли Колонка = "РискСмертельнойТравмы" Тогда
        Если ТД.РискСмертельнойТравмы > 0 Тогда
            ТД.РискТяжелойТравмы = 0;
            ТД.РискЛегкойТравмы = 0;
        КонецЕсли;    
    ИначеЕсли Колонка = "ОД" Тогда
        Если ТД.ОД > 0 Тогда
            ТД.ОУ = 0;
        КонецЕсли;    
    ИначеЕсли Колонка = "ОУ" Тогда
        Если ТД.ОУ > 0 Тогда
            ТД.ОД = 0;
        КонецЕсли;    
    КонецЕсли;

так сделай булево, а не число

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

2. Если поставили флажок в колонке "ОД", то можно поставить только один флажок из 3 колонок " Риск легкой травмы; Риск тяжелой травмы; Риск смертельной травмы "
3) Также и с колонкой "ОУ"

(83) Если поставили флажок в колонке "ОД", то можно поставить только один флажок из 3 колонок " Риск легкой травмы; Риск тяжелой травмы; Риск смертельной травмы "  
Надо запомнить и включить в синтаксис помощник предупреждений! Тогда пользователи нгачнут думать)

Добрый день!

На форме есть две таблица данных.
1 таблица имеет колонки: №, Категории, и т.д.
2 таблица имеет колонки: №, ФИО, Категории

Внимание Вопрос: Как можно сделать так, чтобы при выборе строки с данными на колонке "Категории" в первой таблице, выводились такие же данные в строке "Категория" во второй таблице.

Юзать отбор строк

(85) нужно сделать все в одной таблице, это не логично соединяться по номеру строки

(85) в Управляемом приложении это делается в цикле (добавляются реквизиты на динамического списка на форме)

(88) а как это сделать

(89) https://helpf.pro/faq/view/1580.html
тут рассмотрен существующий динамический список, а тебе нужно добавить колонки в динамический списоки программно дозаполнить в цикле

(90) да у нее обычные формы