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

Конвертация документа в операцию

Автор m@rgo, 17 янв 2017, 11:49

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

m@rgo

Помогите, пожалуйста, я новичок в конвертации.
Такая ситуация необходимо конвертировать движения по хозрасчетному из документа "Начисление зарплаты работникам организации" в бухгалтерскую операцию другой информационной базы
Тут возникает вопрос о том, что документ в проводках имеет 3 субконто: СубконтоДт1, СубконтоДт2, СубконтоДт3 в операцию, у которой только СубконтоДт.

Вот мой ПВД
Запрос = Новый Запрос;
Запрос.Текст =
      "ВЫБРАТЬ
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.Ссылка КАК Ссылка,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СчетДт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт1.Наименование КАК ИмяСубконтоДт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт1,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт2,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт3,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СчетКт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт1.Наименование КАК ИмяСубконтоКт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт1,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт2,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт3,
      |   СУММА(НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.Сумма) КАК Сумма,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.НалоговоеНазначение,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.НеОтражатьВБУ
      |ИЗ
      |   Документ.НачислениеЗарплатыРаботникамОрганизаций.ОтражениеВРеглУчете КАК НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете
      |
      |СГРУППИРОВАТЬ ПО
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.Ссылка,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СчетДт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт1.Наименование,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт1,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт2,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоДт3,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СчетКт,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт1.Наименование,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт1,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт2,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.СубконтоКт3,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.НалоговоеНазначение,
      |   НачислениеЗарплатыРаботникамОрганизацийОтражениеВРеглУчете.НеОтражатьВБУ
      |ИТОГИ ПО
      |   Ссылка";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаСсылка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаСсылка.Следующий() Цикл
   
ИсходящиеДанные = Новый Структура;
Ссылка = ВыборкаСсылка.Ссылка;
Дата = ВыборкаСсылка.Ссылка.Дата;
ИсходящиеДанные.Вставить("Дата",Дата);
ИсходящиеДанные.Вставить("Номер",Ссылка.Номер);
ИсходящиеДанные.Вставить("Хозрасчетный", Новый ТаблицаЗначений);

Хозрасчетный = ИсходящиеДанные.Хозрасчетный;
Хозрасчетный.Колонки.Добавить("СубконтоДт1");
Хозрасчетный.Колонки.Добавить("СубконтоКт1");
Хозрасчетный.Колонки.Добавить("Сумма");
Хозрасчетный.Колонки.Добавить("СчетДт");
Хозрасчетный.Колонки.Добавить("СчетКт");


ВыборкаДетальныеЗаписи = Выборкассылка.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Проводка = Хозрасчетный.Добавить();
   Проводка.СчетДт = ВыборкаДетальныеЗаписи.СчетДт;
   Проводка.СчетКт = ВыборкаДетальныеЗаписи.СчетКт;
   Проводка.Сумма = ВыборкаДетальныеЗаписи.Сумма;
   Проводка.СубконтоДт1 = Новый Структура;
   Проводка.СубконтоДт1.Вставить("ИмяСубконтоДт", ВыборкаДетальныеЗаписи.СубконтоДт1);
   Проводка.СубконтоКт1 = Новый Структура;
   Проводка.СубконтоКт1.Вставить("ИмяСубконтоКт", ВыборкаДетальныеЗаписи.СубконтоКт1);   
КонецЦикла;

ВыгрузитьПоПравилу(Ссылка, , ИсходящиеДанные, ,"ОперацияБух");

КонецЦикла;

Ругается при выгрузке, что в операции не находит соответственно СубконтоДт1, как поступить иначе??

Теги:

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

Рейтинг@Mail.ru Rambler's Top100

Поиск