alikzmeyalik
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Процедура СозданиеППИсходящегоНажатие(Элемент)
ТекДанные=ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные;
ППИсходящий=Документы.ПлатежноеПоручениеИсходящее.СоздатьДокумент();
ППИсходящий.Номер=ТекДанные.НомерПП;
ППИсходящий.Дата=Дата("20"+ТекДанные.ДатаПП);
ВидыОперацийППИсходящее=Перечисления.ВидыОперацийППИсходящее;
ППИсходящий.ВидОперации=ВидыОперацийППИсходящее.ОплатаПоставщику;
ППИсходящий.СуммаДокумента=Число(ТекДанные.СуммаПП);
ППИсходящий.Организация=Справочники.Организации.НайтиПоРеквизиту("ИНН",ТекДанные.УНППлательщика);
ППИсходящий.Контрагент=Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",ТекДанные.УНППолучателя);
ППИсходящий.СчетБанк=ПланыСчетов.Хозрасчетный.НайтиПоКоду("51");
ППИсходящий.СчетКонтрагента=Справочники.БанковскиеСчета.НайтиПоРеквизиту("НомерСчета",ТекДанные.СчетПолучателя);
ППИсходящий.ДоговорКонтрагента=ТекДанные.ДоговорОплаты.Ссылка;
ППИсходящий.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.1");
//ППИсходящий.СчетУчетаРасчетовПоАвансам=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.2");
ППИсходящий.НазначениеПлатежа=ТекДанные.НазначПлатежа1+Символы.ПС+ТекДанные.НазначПлатежа2+Символы.ПС+ТекДанные.НазначПлатежа3;
ППИсходящий.ВидПлатежногоПоручения="Простое";
РасшифровкаПлатежа=ППИсходящий.РасшифровкаПлатежа;
///////
СтрокаРасшифровкиПлатежа=РасшифровкаПлатежа.Добавить();
СтрокаРасшифровкиПлатежа.ДоговорКонтрагента=ППИсходящий.ДоговорКонтрагента;
СтрокаРасшифровкиПлатежа.СуммаПлатежа=ППИсходящий.СуммаДокумента;
СтрокаРасшифровкиПлатежа.КурсВзаиморасчетов=1;
СтрокаРасшифровкиПлатежа.СчетУчетаРасчетовПоАвансам=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.2");
СтрокаРасшифровкиПлатежа.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.1");
ППИсходящий.СчетОрганизации=Справочники.БанковскиеСчета.НайтиПоРеквизиту("НомерСчета",ТекДанные.СчетПлательщика);//В документе сдесь поле выбора, с обработчиками событий "НачалоВыбора" и "ПриИзменении"
ППИсходящий.Записать(РежимЗаписиДокумента.Запись);
КонецПроцедуры
|
Всего записей: 7 | Зарегистр. 20-07-2012 | Отправлено: 13:01 25-03-2014 | Исправлено: alikzmeyalik, 10:35 26-03-2014 |
|
