Имя: Пароль:
1C
1С v8
Создание на основании
0 Petrov93
 
19.03.14
21:25
Написал условие создания на основании в процедуре ОбработкаЗаполнения, но форма документа который создается на основании все равно создается, как убрать это?
1 GROOVY
 
19.03.14
21:29
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Отказ = Истина;
КонецПроцедуры
2 Petrov93
 
19.03.14
21:33
(1) а там как? у меня все описано в процедуре ОбработкаЗаполнения
3 Petrov93
 
19.03.14
21:36
СтандартнаяОбработка = Ложь;
    ОтказСозданияНаОсновании = Истина;
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РасходныйКассовыйОрдер") Тогда
        
        ЗаполнитьПоРасходномуКассовомуОрдеру(
            ДанныеЗаполнения,
            ДанныеЗаполнения
        );
        
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда    
        
        ОтказСозданияНаОсновании = ЗаполнитьПоРеализацииТоваров(
            ДанныеЗаполнения,
            ДанныеЗаполнения
        );
        
    ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("СправочникСсылка.ДоговорыКредитовИДепозитов") Тогда
        
        ЗаполнитьПоДоговоруКредитаДепозита(
            ДанныеЗаполнения,
            ДанныеЗаполнения
        );
    КонецЕсли;
    Если ОтказСозданияНаОсновании = Истина Тогда     
        Сообщить("Нет отказа");
        ИнициализироватьДокумент(ДанныеЗаполнения);
        
        ДенежныеСредстваСервер.ЗаполнитьСтатьюДвиженияДенежныхСредств(
            ЭтотОбъект,
            ДанныеЗаполнения,
            Перечисления.ХозяйственныеОперации.ПоступлениеОплатыОтКлиента
        );
        
        // Заполнение строки "В т.ч. НДС".
        Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура")
         И ДанныеЗаполнения.Свойство("СуммаДокумента") Тогда
            СуммаДокумента = ДанныеЗаполнения.СуммаДокумента;
        КонецЕсли;
        Если СуммаДокумента <> 0 Тогда
            
            Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура")
             И ДанныеЗаполнения.Свойство("Валюта") Тогда
                Валюта = ДанныеЗаполнения.Валюта;
            КонецЕсли;
            
            МассивДокументов = РасшифровкаПлатежа.Выгрузить(,"Заказ").ВыгрузитьКолонку("Заказ");
            МассивДокументов.Добавить(ДокументОснование);
            ВТомЧислеНДС = ДенежныеСредстваСервер.ТекстСуммаНДСПлатежа(
                СуммаДокумента,
                Валюта,
                МассивДокументов,
                Ложь, // ДобавлятьТекстВТомЧисле
                Истина // ОплатаОтКлиента
            );
        КонецЕсли;
        
        ОтветственныеЛицаСервер.ЗаполнитьОтветственныхЛицДокумента(ЭтотОбъект);
    КонецЕсли;