Привет всем.
Проблема при создании ПКО, документ сам создается но не проводится, так как касса не устанавливается и договор контрагента.
Код следующий:

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


Код получения кассы:
Запрос = Новый Запрос("ВЫБРАТЬ
                     |    Кассы.Ссылка
                     |ИЗ
                     |    Справочник.Кассы КАК Кассы
                     |ГДЕ
                     |    Кассы.Родитель.ЭтоГруппа = Истина
                     |    И Кассы.Родитель.Наименование = ""ДИЛЕРЫ""");
Запрос.УстановитьПараметр("КодКассы", КодКассы);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() > 0 Тогда
   Сообщить("Касса найдена!");
   Касса = Выборка.Ссылка;
КонецЕсли;

Помогите камрады

Также не устанавливается сумма документа

В отладке "Выборка.Ссылка" что нибудь показывает?

Запрос = Новый Запрос("ВЫБРАТЬ
                     |    Кассы.Ссылка
                     |ИЗ
                     |    Справочник.Кассы КАК Кассы
                     |ГДЕ
                     |    Кассы.Родитель.ЭтоГруппа = Истина
                     |    И Кассы.Родитель.Наименование = ""ДИЛЕРЫ""");
Запрос.УстановитьПараметр("КодКассы", КодКассы);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
   Сообщить("Касса найдена!");
   Касса = Выборка.Ссылка;
КонецЕсли;

<Код получения кассы>
Параметр зачем?
Выборке Следующий() не помешает...

ЧЁРТ!!! Млин, пропустил этот момент спасибо, еще покопаюсь насчет договора...

С договором такая же история
теперь другая проблема не могу установить сумму документа, т.е. сумма устанавливается в расшифровке ПКО сумма без значения остается

Сумму тоже установил, следующим образом:

ДокПКО.Контрагент = СпрКонтр.Ссылка;
ДокПКО.Дата = ТекущаяДата();
ДокПКО.СуммаДокумента = СуммаЗапроса;
ДокПКО.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
ДокПКО.ОтражатьВУправленческомУчете = Истина;
ДокПКО.ОтраженоВОперУчете = Истина;
ДокПКО.Оплачено = Истина;

//Расшифровка
НоваяСтрока = ДокПКО.РасшифровкаПлатежа.Добавить();
НоваяСтрока.ДоговорКонтрагента = СпрДог;
НоваяСтрока.СтатьяДвиженияДенежныхСредств = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
НоваяСтрока.КурсВзаиморасчетов = 1;
НоваяСтрока.СтавкаНДС = 0;
НоваяСтрока.СтавкаНСП = 0;
НоваяСтрока.СуммаВзаиморасчетов = СуммаЗапроса;
НоваяСтрока.СуммаПлатежа = СуммаЗапроса;



Но теперь другая проблема, документ при добавлении должен проводиться автоматически? или проведение нужно делать отдельной операцией?
И еще, при ручной проводке документа, выходит следующее сообщение:
"ПересчитатьИзВалютыВВалюту(): при пересчете обнаружен нулевой курс."
Регламентированный и управленческий учет ведется на одной и той же валюте, курс валюты установлен

С проведением разобрался, сделал так:

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


С сообщением

ПересчитатьИзВалютыВВалюту(): при пересчете обнаружен нулевой курс.

еще нет

(8) а почему не используешь метод Заполнить()?

Константы.ВалютаРегламентированногоУчета.ПОЛУЧИТЬ()

(9)

где это надо использовать?
просто я новичок в 1С, и первый раз пробую

(10) Сделал
сообщение по поводу Валют все равно выходит

Попробовал открыть ПКО, созданный программно
В расшифровке стоит 1 руб = 1 руб

И еще, валюта договора в той же валюте что и регламентированный учет и управленческий учет

КратностьВзаиморасчетов установи в (7)

Вот весь код:


Попытка
   Сообщить("Создание ПКО...");
   НачатьТранзакцию();
   //Создаем приходный ордер
   ДокПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
   ДокПКО.Организация = Справочники.Организации.НайтиПоКоду("000000001");
   ДокПКО.Касса = Касса;
   ДокПКО.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета;
   ДокПКО.ВалютаВзаиморасчетовРаботника = Константы.ВалютаРегламентированногоУчета.Получить();
   ДокПКО.КурсДокумента = 1;
   
   ДокПКО.Контрагент = СпрКонтр.Ссылка;
   ДокПКО.Дата = ТекущаяДата();
   ДокПКО.СуммаДокумента = СуммаЗапроса;
   ДокПКО.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
   ДокПКО.ОтражатьВУправленческомУчете = Истина;
   ДокПКО.ОтраженоВОперУчете = Истина;
   ДокПКО.Оплачено = Истина;
   
   //Расшифровка
   НоваяСтрока = ДокПКО.РасшифровкаПлатежа.Добавить();
   НоваяСтрока.ДоговорКонтрагента = СпрДог;
   НоваяСтрока.КурсВзаиморасчетов = 1;
   НоваяСтрока.СуммаПлатежа = СуммаЗапроса;
   НоваяСтрока.КратностьВзаиморасчетов = 1;
   НоваяСтрока.СуммаВзаиморасчетов = СуммаЗапроса;
   НоваяСтрока.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000002");
   
   ДокПКО.Записать(РежимЗаписиДокумента.Проведение);
   ЗафиксироватьТранзакцию();
   Сообщить("ПКО Создан!");
   
   Сообщить("Запрос обработан!");
Исключение
   Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
   ОтменитьТранзакцию();
КонецПопытки;





Валюта ПКО не устанавливается

ДокПКО.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.ПОЛУЧИТЬ()

(17)
ВАЙ!!! ВАЙ!!! Такую ошибку допустил, млин
Ну ладно, на ошибках учатся ;)))
Спасибо, всем

Special thanks for 73 :))))))))))