1C Программирование и поддержка - [18] :: Прикладное программирование

Здравствуйте!
Делаю обработку для конф. Бухгалтерия предприятия 1.6.
Возникла проблема с заполнением табличной части документа Начисление зарплаты работникам организаций.
Проблема в том, что поле Работник ни в НДФЛ ни в Начисления НЕ заполняется, тип данных в регистре строка, длина 50.
Привожу код того, что написал для создания самого документа:

Процедура ОбработчикЗаполнения()
//Создание документа начисление зарплаты
     Док = Документы.НачислениеЗарплатыРаботникамОрганизаций.СоздатьДокумент();
//Заполнение шапки реквизитов документа
    Док.Организация = Организация;
    Док.ПодразделениеОрганизации=ПодразделениеОрганизации;
    Док.Ответственный=Ответственный;
    Док.ПериодРегистрации=Месяц;
    Док.Дата=ДатаДокумента;

//Выбрать все записи регистра СдельнаяОплатаРабочих за месяц начисления оплаты
СОР = РегистрыНакопления.СдельнаяОплатаРабочих;
СтруктОтбор = Новый Структура("Месяц, Месяц");
СтруктОтбор.Вставить("Месяц", Месяц);
СтруктОтбор.Вставить("Месяц", Месяц);
Выборка = СОР.Выбрать(,,СтруктОтбор);
//Заполнение табличной части Начисления
Пока Выборка.Следующий() Цикл
НоваяСтрокаТабличнойЧасти = Док.Начисления.Добавить();
НоваяСтрокаТабличнойЧасти.Сотрудник = Выборка.Работник;
НоваяСтрокаТабличнойЧасти.ПодразделениеОрганизации = Док.ПодразделениеОрганизации;
НоваяСтрокаТабличнойЧасти.Результат = Выборка.Итого;
НоваяСтрокаТабличнойЧасти.КодДоходаНДФЛ = Справочники.ДоходыНДФЛ.КодДоходаПоУмолчанию;
НоваяСтрокаТабличнойЧасти.КодВычета = Справочники.ВычетыНДФЛ.Код504;
НоваяСтрокаТабличнойЧасти.ВидРасчета = ВидНачисления;
//Заполнение табличной части НДФЛ
НоваяСтрокаТЧНДФЛ = Док.НДФЛ.Добавить();
НоваяСтрокаТЧНДФЛ.ФизЛицо = Выборка.Работник;
НоваяСтрокаТЧНДФЛ.ПодразделениеОрганизации = Док.ПодразделениеОрганизации;
//НоваяСтрокаТЧНДФЛ.Налог=Выборка.Итого / 100 * 13 ;
//НоваяСтрокаТЧНДФЛ.МесяцНалоговогоПериода = Месяц;
КонецЦикла;
//Рассчитаем НДФЛ с помощью процедуры встроенной в документ НачислениеЗарпл.Раб.Орг
Док.РассчитатьНДФЛ();
//Записываем документ
Док.Записать();
КонецПроцедуры

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101