Создание на основании
☑
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 Тогда
Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура")
И ДанныеЗаполнения.Свойство("Валюта") Тогда
Валюта = ДанныеЗаполнения.Валюта;
КонецЕсли;
МассивДокументов = РасшифровкаПлатежа.Выгрузить(,"Заказ").ВыгрузитьКолонку("Заказ");
МассивДокументов.Добавить(ДокументОснование);
ВТомЧислеНДС = ДенежныеСредстваСервер.ТекстСуммаНДСПлатежа(
СуммаДокумента,
Валюта,
МассивДокументов,
Ложь, // ДобавлятьТекстВТомЧисле
Истина // ОплатаОтКлиента
);
КонецЕсли;
ОтветственныеЛицаСервер.ЗаполнитьОтветственныхЛицДокумента(ЭтотОбъект);
КонецЕсли;
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн