|
BlackMak
2 - 10.04.2009 - 09:52
|
Функция ПолучитьКонтрагента(Контрагент)
Перем БП_Контрагент;
БП_Контрагент = БП.Справочники.Контрагенты.НайтиПоРеквизиту("ИНН", Контрагент.ИНН);
Если БП_Контрагент.Пустая() Тогда
БП_Контрагент = БП.Справочники.Контрагенты.СоздатьЭлемент();
БП_Контрагент.Наименование = СокрЛП(Контрагент.Наименование);
БП_Контрагент.ЮрФизЛицо = ?(Контрагент.ТипКонтрагента = Перечисления.ТипыКонтрагентов.ЮрЛицо, БП.Перечисления.ЮрФизЛицо.ЮрЛицо, БП.Перечисления.ЮрФизЛицо.ФизЛицо);
БП_Контрагент.ИНН = СокрЛП(Контрагент.ИНН);
БП_Контрагент.КПП = СокрЛП(Контрагент.КПП);
БП_Контрагент.Записать();
КонецЕсли;
Возврат БП_Контрагент.Ссылка;
КонецФункции
Функция ПолучитьДоговорСКонтрагентом(Контрагент, Договор)
Перем БП_Договор;
БП_Договор = БП.Справочники.ДоговорыКонтрагентов.НайтиПоКоду(Формат(Договор.Код, "ЧЦ=9; ЧДЦ=0; ЧВН=; ЧГ=0"), , , ПолучитьКонтрагента(Контрагент));
Если БП_Договор.Пустая() Тогда
БП_Договор = БП.Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
БП_Договор.Владелец = ПолучитьКонтрагента(Контрагент);
БП_Договор.Код = Формат(Договор.Код, "ЧЦ=9; ЧДЦ=0; ЧВН=; ЧГ=0");
БП_Договор.Наименование = СокрЛП(Договор.Наименование);
БП_Договор.ВалютаВзаиморасчетов = спрВалютаРубль;
БП_Договор.ВедениеВзаиморасчетов = ?(РучноеЗакрытиеДокументов(Договор), БП.Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоРасчетнымДокументам, БП.Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом);
БП_Договор.Организация = спрФирма;
БП_Договор.ПроцентКомиссионногоВознаграждения = 0;
БП_Договор.СпособРасчетаКомиссионногоВознаграждения = БП.Перечисления.СпособыРасчетаКомиссионногоВознаграждения.НеРассчитывается;
БП_Договор.ТипЦен = ?(Договор.ВидДоговора = Перечисления.ВидыДоговоров.Покупка, БП.Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком, ?(Договор.ВидДоговора = Перечисления.ВидыДоговоров.Продажа, БП.Перечисления.ВидыДоговоровКонтрагентов.СПокупателем, БП.Перечисления.ВидыДоговоровКонтрагентов.Прочее));
БП_Договор.УчетАгентскогоНДС = Ложь;
//БП_Договор.ВидАгентскогоДоговора = ;
БП_Договор.РасчетыВУсловныхЕдиницах = Ложь;
БП_Договор.РеализацияНаЭкспорт = Ложь;
БП_Договор.ВидВзаиморасчетов = БП.Справочники.ВидыВзаиморасчетов.ПустаяСсылка();
БП_Договор.УстановленСрокОплаты = Ложь;
//БП_Договор.СрокОплаты = ;
БП_Договор.Записать();
КонецЕсли;
Возврат БП_Договор.Ссылка;
КонецФункции
Не работает. Хотя, вроде, ссылку на владельца указываю. |