Здравстивуйте всем!
Я снова с вопросом. На основании СЧЕТА создала документ СЛУЖЕБКА из этого документа получается документ Приходная. Но проблема в том что служебку можно создать дважды на один и тот же счет. Т.е должен быть запрет на создание одного документа дважды. Подскажите как это сделать. Если есть примеры не откажусь

(0) посмотри в типовых ТиС: СчетФактура на основании РасходнойНакладной

ВыбратьПодчиненныеДокументы(<?>,,)

А можно примеры...

Люди ну скиньте пример кода запрета создания двойного документа

// Проверим, чтобы не было дублирования СФ
   Сообщение    = "";
   Подчиненные    = СоздатьОбъект("Документ");
   Подчиненные.ВыбратьПодчиненныеДокументы(, , ДокументОснование.ТекущийДокумент());
   Пока Подчиненные.ПолучитьДокумент() = 1 Цикл
       // должен быть счет_фактурой
       Если Подчиненные.Вид() = "СчетФактураВыданный" Тогда
           // не помеченным на удаление
           Если Подчиненные.ПометкаУдаления() = 0 Тогда
               
               Сообщение    = "На основании документа " +
                             ДокументОснование.ПредставлениеВида() + " " + СокрП(ДокументОснование.НомерДок) + " от " + ДокументОснование.ДатаДок + " " +
                             "уже выписан документ " + ПредставлениеВида() + " " + СокрП(Подчиненные.НомерДок) + " от " + Подчиненные.ДатаДок + ". " +
                             "Нельзя выписывать другой!";
               Прервать;
               
           КонецЕсли;
           
       КонецЕсли;
       
   КонецЦикла;

Забыл еще кусок:


   Если ПустаяСтрока(Сообщение) = 0 Тогда
       // есть сообщение, значит есть дубль
       Предупреждение(Сообщение,60);
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;

Ок, спасибо, только вопрос еще При каком событии пишется процедура??? При Записи После Записи???

//////////////////////////////////////////////////////////////////////////////////
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
//                                                
//******************************************************************************
// Предопределенная процедура
//
Процедура ВводНаОсновании(ДокументОснование)

(7) ВводНаОсновании

Подчиненные.ВыбратьПодчиненныеДокументы(, , ДокументОснование.ТекущийДокумент());
{Документ.СлужебнаяКорректировка.Форма.Модуль(17)}: Не выбран документ!

Вот такая ошибка.....((((((((

Юле ЖКК бы почитать для начала...

(0) Продам СП. Дорого.

Ну не шумите я только учусь, знаю итак что вопросы  глупые, ну не ругайтесь.

(13) фотку давай по-крупнее

(14) +1

А почему фото маленькое?
Миста поддерживает почти любой размер фото :)

Фотку скину позже. может кто проверит

Процедура ВВодНаОсновании(Док)    
   
    ДокОснование = Док;

    Сообщение    = "";
   Подчиненные    = СоздатьОбъект("Документ");
   Подчиненные.ВыбратьПодчиненныеДокументы(, , ДокОснование.ТекущийДокумент());
   Пока Подчиненные.ПолучитьДокумент() = 1 Цикл
     

       Если Подчиненные.Вид() = "Счет" Тогда
           // не помеченным на удаление

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

       Предупреждение(Сообщение,60);
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   Фирма = Док.Фирма;
   Менеджер = Док.Менеджер;
   Док.ВыбратьСтроки();
   Пока Док.ПолучитьСтроку() = 1 Цикл
       Если Док.Выбран() = 1 Тогда
           НоваяСтрока();  
           Номенклатура = Док.Товар;
           Количество=Док.Количество;
       КонецЕсли;    
   КонецЦикла;    

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

ошибок не выдает

Я честно скину. Сейчас мне разобраться надо, с работой))))
Подскажите где мои косяки

(18) В чем проблем-то?

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

Люди !!! кто видит косяки новичка укажите

(21) у тебя
Если Подчиненные.Вид() = "Счет" Тогда
соответственно проверяет подчиненный счет

Я так понимаю
Если Подчиненные.Вид() = "Служебка" Тогда

Ок Народ ВСЕМ СПАСИБКИ, БЛИН как здорово что есть народ который помогает таким как я! Правда очень благодарна

(25) если забудешь про (19) больше помогать не станем

(17) заместо Прервать - сразу Возврат, заместо 2 условий - УстановитьФильтр.

и все молчат? что их как лохов кинули на большую фотку.