Создаю программно документ ПКО.

[CODE]
приходныйКассовыйОрдер = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
           приходныйКассовыйОрдер.Дата = Дата(элемент.ПолучитьАтрибут("Дата"));
           приходныйКассовыйОрдер.ВалютаДокумента = рубли;
           приходныйКассовыйОрдер.СуммаДокумента = Число(СокрЛП(элемент.ПолучитьАтрибут("Выручка")));
           приходныйКассовыйОрдер.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
           приходныйКассовыйОрдер.Комментарий = "Закрытие смены " + элемент.ПолучитьАтрибут("Дата") + ", " +
                                       элемент.ПолучитьАтрибут("НомерДокумента");
           приходныйКассовыйОрдер.Организация = Организация;
           приходныйКассовыйОрдер.СчетКасса = ПланыСчетов.Хозрасчетный.ОперационнаяКасса;
           строкаТабличнойЧасти = приходныйКассовыйОрдер.РасшифровкаПлатежа.Добавить();        
           приходныйКассовыйОрдер.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
           
           строкаТабличнойЧасти.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным;
           строкаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками;
           
           строкаТабличнойЧасти.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически;
           частноеЛицо = Справочники.Контрагенты.НайтиПоНаименованию("Частное лицо");
                       
           договорыН = Справочники.ДоговорыКонтрагентов.Выбрать();
            Пока договорыН.Следующий() = 1 Цикл
               Если договорыН.Наименование = "Основной" И договорыН.Владелец = частноеЛицо Тогда
                   ДогН = договорыН.ПолучитьОбъект();
                   break;
               КонецЕсли;
           КонецЦикла;
           приходныйКассовыйОрдер.ДоговорКонтрагента = ДогН.Ссылка;
           приходныйКассовыйОрдер.Контрагент = ДогН.Владелец;
           
           строкаТабличнойЧасти.ДоговорКонтрагента = ДогН.Ссылка;
               
           строкаТабличнойЧасти.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
           строкаТабличнойЧасти.СуммаПлатежа = Число(СокрЛП(элемент.ПолучитьАтрибут("Выручка")));
           приходныйКассовыйОрдер.Проведен = Истина;    
           
           приходныйКассовыйОрдер.Записать();        
           
           приходныйКассовыйОрдер.ДоговорКонтрагента = ДогН.Ссылка;
           приходныйКассовыйОрдер.Контрагент = ДогН.Владелец;
           строкаТабличнойЧасти.ДоговорКонтрагента = ДогН.Ссылка;    
           
           приходныйКассовыйОрдер.Записать();
           
           Сообщить("Создан документ ""Закрытие смен""...");
           continue;
[/CODE]

Но в мониторе показывает что все по нулям. Захожу в программно созданный документ повторно выбираю контрагента, жмакаю ОК. Захожу на страницу с монитором, обновляю. Появляются деньги в кассе.

Решил установить повторно Контрагента и ДоговорКонтрагента, т.е. с эмитировать те действия которые я выполнял в ручную, но это тоже не помогло

а перебор договоров сделать только подчиненных слабо?

перевыбери валюту

Наумов, слабо. Потому что вчера весь день сидел, и ничего не вышло, поэтому код получился с быдленный.

приходныйКассовыйОрдер.Проведен = Истина;    
приходныйКассовыйОрдер.Записать();        

так не вызвать обработку проведения, надо вместо этого:

приходныйКассовыйОрдер.Записать(РежимЗаписиДокумента.Проведение);

[b]Ненавижу 1С[/b] документ проводится. Но сейчас посмотрю.

(6) у тебя не проводится он, он просто помечается как проведенный

(0) Что значит "в мониторе"? Движения есть у документа?

Бесполезно. То же самое получается. Денег как не было так и нет.

Zaval "Монитор бухгалтера".

"Появляются деньги в кассе." - это как? какие регистры задействованы?

(10)Вы не в монитор бухгалетра посмотрите, а посмотрите какие регистры движет ПКО и какие из них в мониторе выводятся

Полегче :D. Я столько слов не знаю. Бухгалтер сказала сделать загрузку. Документ весь загружается, но смысл в том что на вкладке "Монитор" он смотрит, как я понял, сколько денег в кассе.

А поводу движения и регистров - эта терминология мне не известна.

она*

снова код покажи, какой теперь у тебя

(13) а ты вообще КТО?

[CODE]
приходныйКассовыйОрдер = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
приходныйКассовыйОрдер.Дата = Дата(элемент.ПолучитьАтрибут("Дата"));
приходныйКассовыйОрдер.ВалютаДокумента = рубли;
приходныйКассовыйОрдер.СуммаДокумента = Число(СокрЛП(элемент.ПолучитьАтрибут("Выручка")));
приходныйКассовыйОрдер.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
приходныйКассовыйОрдер.Комментарий = "Закрытие смены " + элемент.ПолучитьАтрибут("Дата") + ", " +
                           элемент.ПолучитьАтрибут("НомерДокумента");
приходныйКассовыйОрдер.Организация = Организация;
приходныйКассовыйОрдер.СчетКасса = ПланыСчетов.Хозрасчетный.ОперационнаяКасса;
строкаТабличнойЧасти = приходныйКассовыйОрдер.РасшифровкаПлатежа.Добавить();        
приходныйКассовыйОрдер.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;

строкаТабличнойЧасти.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным;
строкаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками;

строкаТабличнойЧасти.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически;
частноеЛицо = Справочники.Контрагенты.НайтиПоНаименованию("Частное лицо");
           
договорыН = Справочники.ДоговорыКонтрагентов.Выбрать();
Пока договорыН.Следующий() = 1 Цикл
   Если договорыН.Наименование = "Основной" И договорыН.Владелец = частноеЛицо Тогда
       ДогН = договорыН.ПолучитьОбъект();
       break;
   КонецЕсли;
КонецЦикла;
приходныйКассовыйОрдер.ДоговорКонтрагента = ДогН.Ссылка;
приходныйКассовыйОрдер.Контрагент = ДогН.Владелец;
строкаТабличнойЧасти.ДоговорКонтрагента = ДогН.Ссылка;
строкаТабличнойЧасти.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
строкаТабличнойЧасти.СуммаПлатежа = Число(СокрЛП(элемент.ПолучитьАтрибут("Выручка")));
приходныйКассовыйОрдер.Движения
приходныйКассовыйОрдер.Записать(РежимЗаписиДокумента.Проведение);        
Сообщить("Создан документ ""Закрытие смен""...");
continue;
[/CODE]

Строка приходныйКассовыйОрдер.Движения не нужная

Переменная "рубли" это что?
и вообще что говорит отладчик?

(19) Согласен. Жесть.

приходныйКассовыйОрдер.ВалютаДокумента = рубли;

[code]рубли = Справочники.Валюты.НайтиПоНаименованию("руб.");[/code]

(21) и как? находит?
а что все таки с отладчиком?

(21) Вот уже лучше! )

Согласен с (22). (21) Можешь отладчик использовать?

Да находит.

dva1c ясно дело.

(26) у тебя

строкаТабличнойЧасти.СуммаПлатежа    есть,а

строкаТабличнойЧасти.СуммаВзаиморасчетов не присваивается.

Что за бред у тебя в программе?

(27)+ половину полей в приходном ордере не заполняешь. Как оно может попасть в монитор?

hhhh, спасибо. Деньги отображаются теперь.

(27)+100
(29) Рад за тебя, что все получилось!