Как изменить Типовые правила обмена Зарплата и упавление персоналом 7 и Бух 7.7
02.09.2013
17:51
#41
"А зачем типовое все постирали? Можно же было ниже прописать свой случай по аналогии со счетом "ОсновноеПроизводство", а теперь не разберешь что и куда там заменяется. Попробуйте переделать на:
Если Параметры.СводныеПроводки Тогда ТекстЗапроса = Запросы.ОтражениеЗарплатыВРеглУчетеБУ_Сводно .Текст;Иначе ТекстЗапроса = Запросы.ОтражениеЗарплатыВРеглУчетеБУ.Текст;КонецЕсли;ТекстДопУсловия = """";Если Данные.ВариантПериодаВыборки = 1 Тогда ТекстДопУсловия = " | И ОтражениеЗарплатыВРеглУчетеОтражениеВУчете.Ссылка.Дата >= &ДатаНачала"; ИначеЕсли Данные.ВариантПериодаВыборки = 2 Тогда ТекстДопУсловия = " | И ОтражениеЗарплатыВРеглУчетеОтражениеВУчете.Ссылка.Дата <= &ДатаОкончания"; ИначеЕсли Данные.ВариантПериодаВыборки = 3 Тогда ТекстДопУсловия = " | И ОтражениеЗарплатыВРеглУчетеОтражениеВУчете.Ссылка.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания "; КонецЕсли;ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "//Доп условие", ТекстДопУсловия);Запрос = Новый Запрос(ТекстЗапроса);Запрос.УстановитьПараметр("Проведен", Истина);Запрос.УстановитьПараметр("Организация", Данные.Организация);Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(ДатаНачала));Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(ДатаОкончания));Если Параметры.СводныеПроводки Тогда СписокСчетовБухУчета = Новый("СписокЗначений"); СписокСчетовБухУчета.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда); СписокСчетовБухУчета.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоДепонированнымСуммам); СписокСчетовБухУчета.Добавить(ПланыСчетов.Хозрасчетный.РасходыНаОплатуТрудаБудущихПериодов); Запрос.УстановитьПараметр("СчетБУ", СписокСчетовБухУчета); Запрос.УстановитьПараметр("Счет97", ПланыСчетов.Хозрасчетный.РасходыНаОплатуТрудаБудущихПериодов); КонецЕсли;РезультатЗапроса = Запрос.Выполнить();Если РезультатЗапроса.Пустой() Тогда Отказ = ИстинаКонецЕсли;// Структура документаТабДок = Новый ТаблицаЗначений;ТабДок.Колонки.Добавить("ДатаДок");ТабДок.Колонки.Добавить("НомерДок");ТабДок.Колонки.Добавить("Комментарий");ТабДок.Колонки.Добавить("Ссылка");ТабДок.Колонки.Добавить("ТабличнаяЧасть");Выборка = РезультатЗапроса.Выбрать();Пока Выборка.СледующийПоЗначениюПоля("Ссылка") Цикл НоваяСтрока = ТабДок.Добавить(); НоваяСтрока.ДатаДок = Выборка.ДатаДок; НоваяСтрока.НомерДок = Выборка.Номер; НоваяСтрока.Комментарий = Выборка.Комментарий; НоваяСтрока.Ссылка = Выборка.Ссылка; НоваяСтрока.ТабличнаяЧасть = Новый ТаблицаЗначений; НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("ДебетСчет"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("ДебетСубконто1"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("ДебетСубконто2"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("ДебетСубконто3"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("КредитСчет"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("КредитСубконто1"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("КредитСубконто2"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("КредитСубконто3"); НоваяСтрока.ТабличнаяЧасть.Колонки.Добавить("Сумма"); Пока Выборка.Следующий() Цикл Если Не ЗначениеЗаполнено(Выборка.СчетДт) или Не ЗначениеЗаполнено(Выборка.СчетКт) Тогда Продолжить; КонецЕсли; НоваяСТрокаТЧ = НоваяСтрока.ТабличнаяЧасть.Добавить(); НоваяСТрокаТЧ.ДебетСчет = Выборка.СчетДт; // У этих счетов субконто не совпадает Если Выборка.СчетДт = ПланыСчетов.Хозрасчетный.ОбщехозяйственныеРасходы Или Выборка.СчетДт = ПланыСчетов.Хозрасчетный.ОбщепроизводственныеРасходы Тогда НоваяСТрокаТЧ.ДебетСубконто1 = Выборка.СубконтоДт2; НоваяСТрокаТЧ.ДебетСубконто2 = Выборка.СубконтоДт1; НоваяСТрокаТЧ.ДебетСубконто3 = Выборка.СубконтоДт3; ИначеЕсли Выборка.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство ИЛИ Выборка.СчетДт = ПланыСчетов.Хозрасчетный.БракВПроизводстве Тогда НоваяСТрокаТЧ.ДебетСубконто1 = Выборка.СубконтоДт2; НоваяСТрокаТЧ.ДебетСубконто2 = Выборка.СубконтоДт3; НоваяСТрокаТЧ.ДебетСубконто3 = Выборка.СубконтоДт1; ИначеЕсли Выборка.СчетДт = ПланыСчетов.Хозрасчетный.ВспомогательныеПроизводства Тогда НоваяСТрокаТЧ.ДебетСубконто1 = Выборка.СубконтоДт1; НоваяСТрокаТЧ.ДебетСубконто2 = Выборка.СубконтоДт3; НоваяСТрокаТЧ.ДебетСубконто3 = Выборка.СубконтоДт2; Иначе НоваяСТрокаТЧ.ДебетСубконто1 = Выборка.СубконтоДт1; НоваяСТрокаТЧ.ДебетСубконто2 = Выборка.СубконтоДт2; НоваяСТрокаТЧ.ДебетСубконто3 = Выборка.СубконтоДт3; КонецЕсли; НоваяСТрокаТЧ.КредитСчет = Выборка.СчетКт; НоваяСТрокаТЧ.КредитСубконто1 = Выборка.СубконтоКт1; НоваяСТрокаТЧ.КредитСубконто2 = Выборка.СубконтоКт2; НоваяСТрокаТЧ.КредитСубконто3 = Выборка.СубконтоКт3; НоваяСТрокаТЧ.Сумма = Выборка.Сумма; КонецЦикла; КонецЦикла;ВыборкаДанных = ТабДок; " 02.09.2013
18:16
#43
Ну без данных далее подсказать не могу, т.к. надо отладку при загрузке использовать. А Вы представитель организации, которая на аутсорте ведет обслуживание владельца базы?
02.09.2013
19:50
#44
Я сотрудник фирмы франчайзи. Может подскажете как запустить отладку при загрузке? При выгрузке пробовал, но результата не дало
02.09.2013
21:09
#45
Это уже выходит за рамки форума. Тем более, что у франча должен быть в штате человек с сертификатом "Специалист" и по идее новички должны на него опираться.
02.09.2013
21:47
#46
Эх, Денис, где ты видел таких франчей? Разве что когда у тебя был франч, может быть там? Обычно их бросают практически на произвол судьбы, если выбирется, то будет толк, если нет, то значит не судьба ему быть 1С-ником (нормальным). Дай бог, чтобы тренировался на кошечках, а не на реальном клиенте.
02.09.2013
22:44
#47
У меня есть специалист по платформе. Спасибо за помощь. Я разобрался в чем была проблема, все получилось
Читают тему
(гостей: 1)