Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Помогите кто может
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
malexmen
Есть большая просьба к знающим помочь отладить внешний отчет (обработку)!
Опишу о всем докладно.
Платформа 7.70.027
Конфигурация "Бухгалтерский учет для Украины 7.70.277
В последнее время приходится выдавать много справок о доходах
для субсидий и на детей.(до этого справлялся в Word)
Имеется внешняя обработка по форме требуемой в "СОЦЗАБЕЗ" (не помню уже откуда она у меня, возможно
на форуме кто-то и узнает свою работу, прошу прощения за нарушение авторских прав)
но...
Работает она не так как хотелось.
Период подачи справки за 6 месяцев.(обязательно)
Если сотрудник с начала и по конец этого периода работал и получал ЗП
в печатной форме проблем нет.
Но если он принят среди этого периода, то в печатной форме
первые месяцы (когда он еще не был принят) с нулевыми значениями не выводятся
а то и совсем никакой информации не выводится.(это в базе физ. лица).
Что интересно, пробовал в базе юр.лица, выводятся все шесть месяцев, и те что с зарплатой и нулевые,
но только в тех сотрудников у которых полная ставка (минималка) или больше, а у кого
пол ставки или 25% опять глухо.
Кто-нибудь смог бы помочь? А возможно, если есть у кого энта справка - поделитесь если не жалко.
С меня пиво.

Сия обработка:
необходимо зарегистрироваться для просмотра ссылки
MATEVI
Попробуй так.

Может где то ошибаюся. первое что пришло в голову. но вроде то что нужно...


ТабЗ = СоздатьОбъект("ТаблицаЗначений");
ТабЗ.НоваяКолонка("Мес");
ТабЗ.НоваяКолонка("Заработок");

Ит =СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто("Сотрудники",Сотр,2);
Ит.ВыполнитьЗапрос(Дата1,Дата2,"661",,,1,"Месяц","С");//
Ит.ВыбратьПериоды();


Пока Ит.ПолучитьПериод()=1 Цикл
ТабЗ.НоваяСтрока();
ТабЗ.Мес = ПериодСтр(Ит.НачДата,Ит.КонДата);
ТабЗ.Заработок =Ит.КО();

//Таб.ВывестиСекцию("Период");
//ТекДата = Зрп.КонецПериодаПоДате(ТекДата + 1);
Зароб_заг=Зароб_заг+Ит.КО();
КонецЦикла;

ТабЗ.Свернуть("Мес","Заработок");

тПер = СоздатьОбъект("ТаблицаЗначений");
тПер.НоваяКолонка("Мес");

ДатаП = Дата1;
ТекДата = Дата1;
Для А=1 По 6 Цикл
тПер.НоваяСтрока();
тПер.Мес = ПериодСтр(НачМесяца(ТекДата),КонМесяца(ТекДата));
ТекДата = ДобавитьМесяц(ДатаП,а)
КонецЦикла;

тПер.ВыбратьСтроки();
Пока тПер.ПолучитьСтроку()= 1 Цикл
стр = 0;
Период = тПер.Мес;
Если ТабЗ.НайтиЗначение(тПер.Мес,стр,"Мес")=1 Тогда
Заработок = ТабЗ.ПолучитьЗначение(стр,"Заработок");
КонецЕсли;
Таб.ВывестиСекцию("Период");
КонецЦикла;

На типовом Админове вроде вышло smile.gif Но вобщем думаю ход мыслей понял...
malexmen
Большущее спасибо!
Заработало!
Как на счет пива? icon_beer17.gif
MATEVI
Цитата(malexmen @ 06.02.10, 16:43) необходимо зарегистрироваться для просмотра ссылки
Большущее спасибо!
Заработало!
Как на счет пива? icon_beer17.gif

Та нема за шо smile.gif Надо было и в своей справке так сделать. Хотя мои заказчики вроде не просили такого.
Справки разные. Моим для банков надо.
Пиво эт хорошо но слишком накладно будет в Ковель ехать smile.gif Но спасибо.
malexmen
По ссылке уже доработанная справка по форме №192,
для физ. лиц надо в конфигураторе попереименовывать таблицы.
Немного коряво, но действует.
В параметрах страницы подогнать размер (у меня77% (размер по требованиях))
Кому надо - пользуйтесь.
необходимо зарегистрироваться для просмотра ссылки
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.