Всем доброго дня!
Есть небольшая заморочка с которой нужно разобраться, очень прошу помощи.
Имеем следующую ситуацию, - происходит перенос данных из 7-ки в 8-ку, при этом в 7-ке есть добавленный документ (но и на типовом не выходит, если что) который пытаюсь программно перенести и заполнить. Происходит заморочка на строке ТЧ, то есть не переносится сотрудник и подразделение организации (хотя справочники в 8-ке есть). Вотссс..
В раре скрины, код приведу полностью, и обработку, чтобы Вы осознали всю суть моей бездарности :)
Есть небольшая заморочка с которой нужно разобраться, очень прошу помощи.
Имеем следующую ситуацию, - происходит перенос данных из 7-ки в 8-ку, при этом в 7-ке есть добавленный документ (но и на типовом не выходит, если что) который пытаюсь программно перенести и заполнить. Происходит заморочка на строке ТЧ, то есть не переносится сотрудник и подразделение организации (хотя справочники в 8-ке есть). Вотссс..
В раре скрины, код приведу полностью, и обработку, чтобы Вы осознали всю суть моей бездарности :)
ПутьКБазе="C:\Users\ITS3\Desktop\КазНИПИ\3. КазНИПИ\";
Пользователь="Новый1";
Пароль="123";
МонопольныйРежимOLE = ""; // " /m";
ЗапускБезЗаставки = 1;
База = Новый COMОбъект("V1CEnterprise.Application");
СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";
РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));
Если НЕ РезультатПодключения Тогда
Сообщить("пздц");
Иначе Сообщить ("збс");
КонецЕсли;
//////////////////////////////////////////////////////////// //////////////////////////////////////////////////////
Сч = 0;
Док = База.CreateObject("Документ.ВедомостьНачисленийЗП");
Док.ВыбратьДокументы(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));
Пока Док.ПолучитьДокумент() = 1 Цикл
Сч = Сч + 1;
Если Док.Проведен() = 1 Тогда
Документ = Документы.НачислениеЗарплатыРаботникамОрганизаций.СоздатьДокумент();
Документ.Дата = Док.ДатаДок;
Документ.ПериодРегистрации = НачалоМесяца(Док.ДатаДок);
Документ.Организация = Справочники.Организации.НайтиПоНаименованию("АО НИПИ нефтегаз");
Документ.ПодразделениеОрганизации = Док.Подразделение; //?не садится
Документ.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("000010");
Документ.Номер = Док.НомерДок;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
СтрокаНачисления = Документ.Начисления.Добавить();
СтрокаНачисления.Сотрудник = Док.Сотрудник; //?не садится
СтрокаНачисления.ПодразделениеОрганизации = Док.Подразделение; //?не садится
СтрокаНачисления.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("000010");
СтрокаНачисления.Размер = Док.ОкладСотра;
СтрокаНачисления.Результат = Док.ОплатаЗаРабочееВремя;
СтрокаНачисления.ОтработаноЧасов = Док.Часов;
СтрокаНачисления.ОтработаноДней = Док.Дней;
СтрокаНачисления.ДатаНачала = НачалоМесяца(Док.ДатаДок);
СтрокаНачисления.ДатаОкончания = КонецМесяца(Док.ДатаДок);
КонецЦикла;
Документ.Записать(РежимЗаписиДокумента.Запись);
Состояние("Выполнено " + Сч);
КонецЕсли;
КонецЦикла;
ПоказатьПо теме из базы знаний
- Правила переноса данных из Бухгалтерия бюджетного учреждения, редакция 1.0 (ББУ 1.0.22.2) в Бухгалтерия государственного учреждения, редакция 1.0 (БГУ 1.0.8.2/1.0.7.2/1.0.6.3), исправленные и дополненные (BBU8_BGU8.xml) + обработки подготовки базы данных
- Перенос данных из 7.7 в 8.2
- Перенос данных из ЗиК 7.7 при переходе на ЗУП 8.2 (КОРП,УПП) через COM-соединение
- Перенос данных из бухгалтерии 7.7 в 8.2 Бухгалтерия предприятия КОРП
- [УТ 11][БП 3.0] Перенос данных из БП 3.0 в УТ 11 (начальное заполнение УТ 11 по данным БП 3.0)
Найденные решения
(2) как то так:
и в цикле:
Единственное, смущает, что одно и то же имя и в шапке и в ТЧ: ПодразделениеОрганизации.
Документ.ПодразделениеОрганизации = Справочники.Подразделения.НайтиПоКоду(Док.Подразделение.Код);
и в цикле:
СтрокаНачисления.Сотрудник = Справочники.Сотрудники.НайтиПоКоду(Док.Сотрудник.Код);
СтрокаНачисления.ПодразделениеОрганизации = Документ.ПодразделениеОрганизации;
Единственное, смущает, что одно и то же имя и в шапке и в ТЧ: ПодразделениеОрганизации.
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Конфигурация 7-ки Бух учет для Казахстана 7.70.266, а 8ки - Бух Для Казахстана 2.0.26.12.
Не видно чтобы файлы прикрепились, однако
Не видно чтобы файлы прикрепились, однако
Прикрепленные файлы:
Bandicam.rar
ВнешняяОбработка1.epf
(2) как то так:
и в цикле:
Единственное, смущает, что одно и то же имя и в шапке и в ТЧ: ПодразделениеОрганизации.
Документ.ПодразделениеОрганизации = Справочники.Подразделения.НайтиПоКоду(Док.Подразделение.Код);
и в цикле:
СтрокаНачисления.Сотрудник = Справочники.Сотрудники.НайтиПоКоду(Док.Сотрудник.Код);
СтрокаНачисления.ПодразделениеОрганизации = Документ.ПодразделениеОрганизации;
Единственное, смущает, что одно и то же имя и в шапке и в ТЧ: ПодразделениеОрганизации.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот