Исправление документов интеркампани

22.04.22

Задачи пользователя - Корректировка данных

При загрузке в бухгалтерию передач товаров между организациями в БП формируются документы реализации по одной компании и документы поступления по второй. Если у вас практикуется исправление реализаций после загрузки, и ответственный сотрудник "забывает" исправить документ поступления, тогда данные по отгрузке и поступлению между организациями разойдутся. Эта обработка покажет все реализации, сумма которых отличается от суммы поступления, и перезаполнит поступления. Если по обрабатываемой реализации вводились корректировки, тогда в корректировках будет перезаполнена информация по исходным данным документа. Поиск документов идет по одинаковому номеру в пределах 1 дня.

Скачать исходный код

Наименование Файл Версия Размер
Внешняя обработка для исправления документов
.epf 12,62Kb
4
.epf 12,62Kb 4 Скачать

Файл подключается как внешняя обработка.

Протестирован на конфигурации Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.108.36).

Версия платформы 1С 8.3.20.1674.

На форме обработки выбираем период анализа, организацию (от которой продали), контрагента (соответствующего организации покупателю), автора изменений.

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

После нажатия на кнопку "Проверить" будет выведена таблица с отличающимися по суммам документами.

Внизу формы кнопка "Исправить". При нажатии на кнопку перезаполняются поступления и корректировки реализации по строкам отмеченным в таблице.

Если парное поступление к реализации отсутствует, тогда обработка создаст новый документ.

Запрос для заполнения таблицы на форме:

  

  Запрос.Текст = 
    "ВЫБРАТЬ
    |    ВЫБОР
    |        КОГДА ЕСТЬNULL(ПоступлениеТоваровУслуг.Ссылка, ИСТИНА) = ИСТИНА
    |            ТОГДА ЛОЖЬ
    |        ИНАЧЕ ИСТИНА
    |    КОНЕЦ КАК Пометка,
    |    РеализацияТоваровУслуг.Ссылка КАК Реализация,
    |    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВерсииОбъектов.НомерВерсии) КАК КоличествоВерсий,
    |    МАКСИМУМ(ВерсииОбъектов.ДатаВерсии) КАК ДатаПоследнейВерсии,
    |    РеализацияТоваровУслуг.Проведен КАК Проведен,
    |    РеализацияТоваровУслуг.ПометкаУдаления КАК ПометкаУдаления,
    |    РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокумента,
    |    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ КорректировкаРеализации.Ссылка) КАК Корректировки,
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.Ссылка, ""Отсутствует"") КАК Поступление,
    |    МАКСИМУМ(ВерсииОбъектов1.ДатаВерсии) КАК ДатаПоследнейВерсии1,
    |    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВерсииОбъектов1.НомерВерсии) КАК КоличествоВерсий1,
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.Проведен, ""-"") КАК Проведен1,
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.ПометкаУдаления, ""-"") КАК ПометкаУдаления1,
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.СуммаДокумента, 0) КАК СуммаДокумента1
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
    |        ПО РеализацияТоваровУслуг.Номер = ПоступлениеТоваровУслуг.Номер
    |            И (НАЧАЛОПЕРИОДА(РеализацияТоваровУслуг.Дата, ДЕНЬ) = НАЧАЛОПЕРИОДА(ПоступлениеТоваровУслуг.Дата, ДЕНЬ))
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов
    |        ПО (ВерсииОбъектов.Объект = РеализацияТоваровУслуг.Ссылка)
    |            И (ВерсииОбъектов.АвторВерсии = &АвторВерсии)
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ВерсииОбъектов КАК ВерсииОбъектов1
    |        ПО (ВерсииОбъектов.Объект = ПоступлениеТоваровУслуг.Ссылка)
    |            И (ВерсииОбъектов.АвторВерсии = &АвторВерсии)
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.КорректировкаРеализации КАК КорректировкаРеализации
    |        ПО РеализацияТоваровУслуг.Ссылка = КорректировкаРеализации.ИсходныйДокументРеализации
    |            И (КорректировкаРеализации.Проведен)
    |ГДЕ
    |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНачало И &ДатаОкончания
    |    И РеализацияТоваровУслуг.Организация = &Организация
    |    И РеализацияТоваровУслуг.Контрагент = &Контрагент
    |    И РеализацияТоваровУслуг.СуммаДокумента <> ПоступлениеТоваровУслуг.СуммаДокумента
    |
    |СГРУППИРОВАТЬ ПО
    |    РеализацияТоваровУслуг.Ссылка,
    |    РеализацияТоваровУслуг.Проведен,
    |    РеализацияТоваровУслуг.ПометкаУдаления,
    |    РеализацияТоваровУслуг.СуммаДокумента,
    |    ВЫБОР
    |        КОГДА ЕСТЬNULL(ПоступлениеТоваровУслуг.Ссылка, ИСТИНА) = ИСТИНА
    |            ТОГДА ЛОЖЬ
    |        ИНАЧЕ ИСТИНА
    |    КОНЕЦ,
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.Ссылка, ""Отсутствует""),
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.Проведен, ""-""),
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.ПометкаУдаления, ""-""),
    |    ЕСТЬNULL(ПоступлениеТоваровУслуг.СуммаДокумента, 0)
    |
    |УПОРЯДОЧИТЬ ПО
    |    РеализацияТоваровУслуг.Дата";

 

В таблице на форме присутствуют все поля запроса, добавляются на форму автоматически. 

При заполнении поступления организация и контрагент из реализации меняются местами, ищем аналогичные элементы справочников по ИНН и КПП.

Договор - основной договор поставки из карточки контрагента.

           

 ДокОб.Организация =  Справочники.Организации.НайтиОрганизацию(СсылкаРеализация.Контрагент.ИНН, СсылкаРеализация.Контрагент.КПП, Ложь);   
            
            ДанныеЗаполнения = Новый Структура;
            ДанныеЗаполнения.Вставить("ИНН",СсылкаРеализация.Организация.ИНН);
            ДанныеЗаполнения.Вставить("КПП",СсылкаРеализация.Организация.КПП);
            ДокОб.Контрагент = РаботаСКонтрагентамиБП.НайтиКонтрагентаПоИНН_КПП(ДанныеЗаполнения);
            
            ДокОб.ДоговорКонтрагента = РаботаСДоговорамиКонтрагентовБП.ДоговорКонтрагентаИзОбъекта(ДокОб);

 

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

  

  ТабДоКорректировки = ВыборкаКорректировок.Ссылка.Товары.Выгрузить(,"Количество, Цена, СтавкаНДС, Сумма, СуммаНДС, ИдентификаторСтроки");
                    ОбъектКоректировка = ВыборкаКорректировок.Ссылка.ПолучитьОбъект();
                    
                    Документы.КорректировкаРеализации.ЗаполнитьПоДокументу(ОбъектКоректировка);
                    
                    Для Каждого СтрКР Из ОбъектКоректировка.Товары Цикл
                        
                        СтруктурОтбора = Новый Структура;
                        СтруктурОтбора.Вставить("ИдентификаторСтроки",СтрКР.ИдентификаторСтроки);
                        НашиСтроки = ТабДоКорректировки.НайтиСтроки(СтруктурОтбора);
                        
                        СтрКР.Количество = НашиСтроки[0].Количество;
                        СтрКР.Цена       = НашиСтроки[0].Цена;
                        СтрКР.СтавкаНДС  = НашиСтроки[0].СтавкаНДС;
                        СтрКР.Сумма      = НашиСтроки[0].Сумма;
                        СтрКР.СуммаНДС   = НашиСтроки[0].СуммаНДС;
                        
                    КонецЦикла;

                 
                  

Интеркампани реализация и поступление исправление документов.

См. также.

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтер Пользователь Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    29449    87    151    

63

Корректировка данных Системный администратор Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Незаменимая обработка для сопровождения конфигураций: ERP, УТ, КА. Позволяет вычистить многие ошибки в ключах аналитики, в ключевых справочниках конфигурации.

3600 руб.

10.02.2017    108318    645    173    

686

Корректировка данных Зарплата Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Обработка исправляет технические ошибки по НДФЛ, взаиморасчетам с сотрудниками в 1С:ЗУП (1С:ЗКГУ) на начало года. Фактически все ошибки, которые проявляются в ведомостях на выплату, расчетных листках, при заполнении ведомостей на выплату и отчетах 6-НДФЛ и т.д. нужно начинать исправлять с начала расчетного года. Это позволит быть уверенными, что после завершения расчетов предыдущего года, начали работать с «чистого листа» без ошибочных остатков.

4800 руб.

06.10.2023    3257    33    17    

40

Корректировка данных Зарплата Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Внешняя обработка предназначена для исправления самых различных ошибок, возникших по самым разным причинам. Общее проявление этих ошибок видно в различии данных между: проводками и различными отчетами по НДФЛ, заполнении ведомостей на выдачу зарплаты, неверным расчетом НДФЛ при начислении ЗП и т.д.

3600 руб.

09.02.2024    1089    5    4    

8

Закрытие периода Корректировка данных Бухгалтер Пользователь Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Закрытие месяца - важный процесс в современных конфигурациях, таких как УТ 11.4, УТ 11.5, КА 2.4, КА 2.5 ERP 2.4,ERP 2.5, КА 2 Казахстан, УТ 3 Казахстан регламентные операции влияют на расчет себестоимости, и ошибки в данном расчете не дают картины деятельности организации.

2400 руб.

27.10.2021    23178    303    35    

76
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Pira 148 22.04.22 13:09 Сейчас в теме
Для отображения отсутствующих поступлений строку запроса
| И РеализацияТоваровУслуг.СуммаДокумента <> ПоступлениеТоваровУслуг.СуммаДокумента

Нужно поменять на

| И РеализацияТоваровУслуг.СуммаДокумента <> ЕСТЬNULL(ПоступлениеТоваровУслуг.СуммаДокумента, 0)

Файл в публикации поменял.
Оставьте свое сообщение