Дописка Расчетной ведомости в бухгалтерии 7.7
Показывать по
10
20
40
сообщений
- 1
- 2
23.07.2012
08:28
#1
"Добрый день хочу дописать стандартный отчет расчетная ведомость в 1с бухгалтерии 7.7 чтоб после поле сотрудник выводиласть его должность согласно справочника сотрудники...я только начинаю самостоятельно дописывать 7.7 и 8.2 помогите вроде цикл должен выглядет так.но идет обработка и все....
Табл = СоздатьОбъект("ТаблицаЗначений");
Табл.НоваяКолонка("Сотрудник");
Табл.НоваяКолонка("Должность");
Табл.НоваяКолонка("Начислено", "Число");
Табл.НоваяКолонка("НалогНаДоходы", "Число");
Табл.НоваяКолонка("ПФ", "Число");
Табл.НоваяКолонка("Вычет", "Число");
Табл.НоваяКолонка("ФСС", "Число");
Табл.НоваяКолонка("ФОМС", "Число");
Табл.НоваяКолонка("ТОМС", "Число");
Табл.НоваяКолонка("ПФР_страх", "Число");
Табл.НоваяКолонка("ПФР_нак", "Число");
Ит.ВыбратьСчета();
Пока Ит.ВыбратьСчета()=1 Цикл
Должн=СоздатьОбъект ("Справочник.Сотрудники");
КонецЦикла;
Если Ит.ПолучитьСчет(,"70") = 1 Тогда
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
Если Ит.КО() <> 0 Тогда
Табл.НоваяСтрока();
Табл.Сотрудник = Ит.Субконто(1);
Табл.Должность = Должн.Должность;
Табл.Начислено = Ит.КО();"
Табл = СоздатьОбъект("ТаблицаЗначений");
Табл.НоваяКолонка("Сотрудник");
Табл.НоваяКолонка("Должность");
Табл.НоваяКолонка("Начислено", "Число");
Табл.НоваяКолонка("НалогНаДоходы", "Число");
Табл.НоваяКолонка("ПФ", "Число");
Табл.НоваяКолонка("Вычет", "Число");
Табл.НоваяКолонка("ФСС", "Число");
Табл.НоваяКолонка("ФОМС", "Число");
Табл.НоваяКолонка("ТОМС", "Число");
Табл.НоваяКолонка("ПФР_страх", "Число");
Табл.НоваяКолонка("ПФР_нак", "Число");
Ит.ВыбратьСчета();
Пока Ит.ВыбратьСчета()=1 Цикл
Должн=СоздатьОбъект ("Справочник.Сотрудники");
КонецЦикла;
Если Ит.ПолучитьСчет(,"70") = 1 Тогда
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
Если Ит.КО() <> 0 Тогда
Табл.НоваяСтрока();
Табл.Сотрудник = Ит.Субконто(1);
Табл.Должность = Должн.Должность;
Табл.Начислено = Ит.КО();"
23.07.2012
09:08
#4
Ит-итоги бухгалтерские.....чую что в цикле объект нельзя создавать но как сделать по уму не пойму((((((
23.07.2012
09:11
#5
я самоучка..... сам я бухгалтер,но хочу самостоятельно писать ert отчеты... читать прог.модули научился писать пока нет)))))))))
23.07.2012
09:17
#6
"
заменить на:
И вообще, колонку "Должность" в таблицу можно не добавлять, т.к. это свойство Сотрудника и далее можно при выводе на печать что то подобное написать:
Ит.ВыбратьСчета();
Пока Ит.ВыбратьСчета()=1 Цикл
Должн=СоздатьОбъект ("Справочник.Сотрудники");
КонецЦикла;
Если Ит.ПолучитьСчет(,"70") = 1 Тогда
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
Если Ит.КО() <> 0 Тогда
Табл.НоваяСтрока();
Табл.Сотрудник = Ит.Субконто(1);
Табл.Должность = Должн.Должность;
Табл.Начислено = Ит.КО();
заменить на:
Если Ит.ПолучитьСчет(,"70") = 1 Тогда
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
Если Ит.КО() <> 0 Тогда
Табл.НоваяСтрока();
Табл.Сотрудник = Ит.Субконто(1);
Табл.Должность = Ит.Субконто(1).Должность;
Табл.Начислено = Ит.КО();
И вообще, колонку "Должность" в таблицу можно не добавлять, т.к. это свойство Сотрудника и далее можно при выводе на печать что то подобное написать:
Табл.Сотрудник.Должность;"
- 1
- 2
Читают тему
(гостей: 1)