Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 сен 2024, 21:56

при проведении ПКО загруженных из файла не формируются проводки((

Автор alina0201, 22 мар 2016, 17:47

0 Пользователей и 1 гость просматривают эту тему.

alina0201

Добрый день. В БП 3.0 загружаю документы ПКО, записываю в режиме проведения. Захожу в проводки, а там пустота. Реквизиты все заполняются корректно, ошибок никаких. Пытаюсь провести в интерактивном режиме, ничего. Только если делаю какие либо изменения интерактивно в документе, и провожу, появляются проводки. Кроме, того, недавно перешли с 2.0 на 3.0. Документы ПКО, которые были загружены до перехода с 2.0 на 3.0 начиная с 2016 года не имеют проводок, хотя в 2.0 смотрю, проводки есть. Найти не могу, в чем проблема, подскажите пожалуйста!

                                Док = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
            Док.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
            контрСсылка=НайтиКонтрагентаПоКоду( _КодКонтрагента );
            Док.Ответственный = Пользователи.ТекущийПользователь();
            Док.Дата = КонецДня(_Дата);
            Док.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации;
            Док.СуммаДокумента = _Сумма;
            Док.Комментарий = _Комментарий;
            Док.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
            Док.Организация = ОснОрганизация;
            Док.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
            Если контрСсылка<>неопределено Тогда
               контрагент=контрСсылка.ПолучитьОбъект();
               док.Контрагент = контрагент.Ссылка;
               Док.ПринятоОт = контрагент.НаименованиеПолное;
               Док.Основание = "Торговая выручка";
               Если Объект.ВыводитьПодробнуюИнформациюПриЗагрузке Тогда
                  Сообщить("Используется контрагент: "+док.Контрагент);
               КонецЕсли;   
               ///////////////////////договор
               ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
               ТЗДоговоры = ПроверитьДоговорыКонтрагента(контрСсылка, ВидДоговора);
               КоличествоОсновныхДоговоров = ТЗДоговоры.Количество();
               Если КоличествоОсновныхДоговоров=0 Тогда
                  договор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
                  договор.Владелец = контрагент.Ссылка;
                  договор.Наименование = "Основной договор";
                  договор.Организация = ОснОрганизация;      
                  договор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду(643);
                  договор.ВидДоговора = ВидДоговора;
                  договор.Записать();      
                  СтрокаДоговор = договор.Ссылка;
               иначе
                  Для каждого ДоговорКонтрагента Из ТЗДоговоры Цикл                  
                     СтрокаДоговор = ДоговорКонтрагента.Ссылка;
                     Прервать;
                  КонецЦикла;
               КонецЕСли;
            КонецЕСли;
            НоваяСтрока  = Док.РасшифровкаПлатежа.Добавить();
            НоваяСтрока.СчетУчетаРасчетовСКонтрагентом = Объект.РТУ_СчетУчетаРасчетовСКонтрагентом;
            НоваяСтрока.КурсВзаиморасчетов = 1;
            НоваяСтрока.КратностьВзаиморасчетов = 1;
            НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
            НоваяСтрока.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(Число(_Сумма), Истина, 18);
            НоваяСтрока.СчетУчетаРасчетовПоАвансам = Объект.РТУ_СчетУчетаРасчетовПоАвансам;
            НоваяСТрока.СуммаПлатежа = _Сумма;
            НоваяСтрока.ДоговорКонтрагента = СтрокаДоговор;
            новаястрока.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("БП0000011");
            НоваяСтрока.СуммаВзаиморасчетов = _Сумма * (-1);
            НоваяСтрока.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически;
                                Попытка   
               Док.Записать(РежимЗаписиДокумента.Проведение);
            Исключение
               Док.Записать(РежимЗаписиДокумента.Запись);
            КонецПопытки;


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск