Имя: Пароль:
1C
1С v8
програмное проведение РКО в УПП проблема с СуммаДокумента
0 Baloven
 
12.03.12
06:52
проблема следующая, при программно проведении РКО почему-то сбрасывается СуммаДокумента в ноль и проведение не происходит, почему - не могу понять :(

вот код фукнции:

   ДокументРКО.ВидОперации            = ВидОперации;
   ДокументРКО.Контрагент            = КонтрагентВыплаты;
   ДокументРКО.Организация            = Организация;
   ДокументРКО.СуммаДокумента        = СуммаВыплаты;
   
   ЗаполнениеДокументовПереопределяемый.ЗаполнитьШапкуДокумента(ДокументРКО,глЗначениеПеременной("глТекущийПользователь"));
   
   ДокументРКО.ПоДокументу = ДокументРКО.Контрагент.ДокументУдостоверяющийЛичность;
   
   ВалютаДокумента = ДокументРКО.мВалютаРегламентированногоУчета;
   ДокументРКО.КурсДокумента      = 1;
   ДокументРКО.КратностьДокумента = 1;
   
   ДокументРКО.Касса = Касса;
   ДокументРКО.Оплачено = Истина;
   ДокументРКО.ОтражатьВУправленческомУчете = Истина;
   ДокументРКО.ОтражатьВБухгалтерскомУчете = Истина;
   ДокументРКО.ОтражатьВНалоговомУчете = Истина;
   ДокументРКО.ОтраженоВОперУчете = Истина;
   ДокументРКО.Основание = Основание;
   КонтрагентФИОИменительный = ДокументРКО.Контрагент.Наименование;
   КонтрагентФИОВыдать = "";
   
   ПолКонтрагента = ПроцедурыУправленияПерсоналом.ПолучитьПол(ОбщегоНазначения.ПолучитьМассивФИО(КонтрагентФИОИменительный)[2]);
   УниверсальныеМеханизмы.Просклонять(глЗначениеПеременной("глКомпонентаСклоненияФИО"),КонтрагентФИОИменительный,3,ПолКонтрагента,КонтрагентФИОВыдать);
   ДокументРКО.Выдать = КонтрагентФИОВыдать;
   СтрокаПлатеж = ДокументРКО.РасшифровкаПлатежа.Добавить();
   СтрокаПлатеж.СуммаПлатежа = СуммаВыплаты;
   СтрокаПлатеж.КурсВзаиморасчетов = 1;
   СтрокаПлатеж.ДоговорКонтрагента = Договор;
   СтрокаПлатеж.КратностьВзаиморасчетов = 1;
   СтрокаПлатеж.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
   СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = СтатьяДвижения;
   СтрокаПлатеж.СуммаНДС = 0;
   СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным;
   СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками;
       
   ДокументРКО.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);

Если просто записать документ ДокументРКО.Записать(); все записывается и поле СуммаДокумента нулевое хотя в расшифровке сумма СуммаПлатежа стоит и все нормально
1 Wobland
 
12.03.12
06:56
а где ты сумму документа присваиваешь?
2 Baloven
 
12.03.12
07:03
все нашел нужно было в расшифровку сумму взаиморасчета еще раз продублировать

СтрокаПлатеж.СуммаВзаиморасчетов = СуммаВыплаты;
3 Baloven
 
12.03.12
07:04
(1)
здесь ("СуммаВыплаты" - переменная передаваемая в параметрах функции:

ДокументРКО.СуммаДокумента        = СуммаВыплаты;

и здесь:

СтрокаПлатеж.СуммаПлатежа = СуммаВыплаты;