Есть большая просьба к знающим помочь отладить внешний отчет (обработку)!
Опишу о всем докладно.
Платформа 7.70.027
Конфигурация "Бухгалтерский учет для Украины 7.70.277
В последнее время приходится выдавать много справок о доходах
для субсидий и на детей.(до этого справлялся в Word)
Имеется внешняя обработка по форме требуемой в "СОЦЗАБЕЗ" (не помню уже откуда она у меня, возможно
на форуме кто-то и узнает свою работу, прошу прощения за нарушение авторских прав)
но...
Работает она не так как хотелось.
Период подачи справки за 6 месяцев.(обязательно)
Если сотрудник с начала и по конец этого периода работал и получал ЗП
в печатной форме проблем нет.
Но если он принят среди этого периода, то в печатной форме
первые месяцы (когда он еще не был принят) с нулевыми значениями не выводятся
а то и совсем никакой информации не выводится.(это в базе физ. лица).
Что интересно, пробовал в базе юр.лица, выводятся все шесть месяцев, и те что с зарплатой и нулевые,
но только в тех сотрудников у которых полная ставка (минималка) или больше, а у кого
пол ставки или 25% опять глухо.
Кто-нибудь смог бы помочь? А возможно, если есть у кого энта справка - поделитесь если не жалко.
С меня пиво.
Сия обработка:
http://pro1c.org.ua/redirect.php?http://malexmen.ucoz.ru/___.ert
Попробуй так.
Может где то ошибаюся. первое что пришло в голову. но вроде то что нужно...
ТабЗ = СоздатьОбъект("ТаблицаЗначений");
ТабЗ.НоваяКолонка("Мес");
ТабЗ.НоваяКолонка("Заработок");
Ит =СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто("Сотрудники",Сотр,2);
Ит.ВыполнитьЗапрос(Дата1,Дата2,"661",,,1,"Месяц","С");//
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод()=1 Цикл
ТабЗ.НоваяСтрока();
ТабЗ.Мес = ПериодСтр(Ит.НачДата,Ит.КонДата);
ТабЗ.Заработок =Ит.КО();
//Таб.ВывестиСекцию("Период");
//ТекДата = Зрп.КонецПериодаПоДате(ТекДата + 1);
Зароб_заг=Зароб_заг+Ит.КО();
КонецЦикла;
ТабЗ.Свернуть("Мес","Заработок");
тПер = СоздатьОбъект("ТаблицаЗначений");
тПер.НоваяКолонка("Мес");
ДатаП = Дата1;
ТекДата = Дата1;
Для А=1 По 6 Цикл
тПер.НоваяСтрока();
тПер.Мес = ПериодСтр(НачМесяца(ТекДата),КонМесяца(ТекДата));
ТекДата = ДобавитьМесяц(ДатаП,а)
КонецЦикла;
тПер.ВыбратьСтроки();
Пока тПер.ПолучитьСтроку()= 1 Цикл
стр = 0;
Период = тПер.Мес;
Если ТабЗ.НайтиЗначение(тПер.Мес,стр,"Мес")=1 Тогда
Заработок = ТабЗ.ПолучитьЗначение(стр,"Заработок");
КонецЕсли;
Таб.ВывестиСекцию("Период");
КонецЦикла;
На типовом Админове вроде вышло Но вобщем думаю ход мыслей понял...
Большущее спасибо!
Заработало!
Как на счет пива?
По ссылке уже доработанная справка по форме №192,
для физ. лиц надо в конфигураторе попереименовывать таблицы.
Немного коряво, но действует.
В параметрах страницы подогнать размер (у меня77% (размер по требованиях))
Кому надо - пользуйтесь.
http://pro1c.org.ua/redirect.php?http://malexmen.ucoz.ru/__.ert
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua