M_Volkov
Gold Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: Функция СоздатьДоговорПоДокументу(Документ, Контрагент) Экспорт
СсылкаДоговор = Справочники.ДоговорыВзаиморасчетов.ПолучитьСсылку();
ОбъектДоговор = Справочники.ДоговорыВзаиморасчетов.СоздатьЭлемент();
ОбъектДоговор.УстановитьСсылкуНового(СсылкаДоговор);
ОбъектДоговор.Владелец = Контрагент;
ОбъектДоговор.Организация = Документ.Организация;
ОбъектДоговор.Подразделение = Документ.ПодразделениеКомпании;
ОбъектДоговор.ДатаНачала = НачалоДня(Документ.Дата);
ОбъектДоговор.ВидДоговора = Перечисления.ВидыДоговоров.Прочее;
Если ТипЗнч(Документ) = Тип("ДокументСсылка.ЗаказНаряд")
Или ТипЗнч(Документ) = Тип("ДокументСсылка.ЗаказПокупателя")
Или ТипЗнч(Документ) = Тип("ДокументСсылка.СчетНаОплату")
Или Найти(ТипЗнч(Документ), "Реализация") > 0 Тогда
ОбъектДоговор.ВидДоговора = Перечисления.ВидыДоговоров.Продажа;
ИначеЕсли ТипЗнч(Документ) = Тип("ДокументСсылка.ЗаказПоставщику")
Или Найти(ТипЗнч(Документ), "Поступление") > 0 Тогда
ОбъектДоговор.ВидДоговора = Перечисления.ВидыДоговоров.Покупка;
КонецЕсли;
ОбъектДоговор.ПолучитьФорму().ОткрытьМодально(60);
Если СсылкаДоговор.ПолучитьОбъект() <> Неопределено Тогда
Возврат СсылкаДоговор;
КонецЕсли;
Возврат Справочники.ДоговорыВзаиморасчетов.ПустаяСсылка();
КонецФункции |
|
Всего записей: 5783 | Зарегистр. 23-06-2008 | Отправлено: 09:38 24-02-2018 | Исправлено: M_Volkov, 10:08 24-02-2018 |
|
