Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники, Сотрудник, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНачисленийВыплат, , 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "70",,, 1, "Entry", "С");
Ит.ВыбратьПериоды();
ДолгНачало = ИТ.СНК() - Ит.СНД();
ДолгНачалоМод = Макс(ДолгНачало,-ДолгНачало);
Фл = 1; Фл1 = 1; Фл2 = 1; ОснЗП = 0;
Пока Фл = 1 цикл
Фл = 0; Фл3 = 1; Фл4 = 1;
Фл1 = Ит.ПолучитьПериод();
Пока (Фл1 = 1) Цикл
Если Ит.Ко() = 0 тогда
Фл1 = Ит.ПолучитьПериод();
Продолжить;
Иначе
Фл1 = 0; Фл = 1; Фл3 = 0;
КонецЕсли;
КонецЦикла;
ОснЗП = ОснЗП + Ит.КО();
Если (Фл=1) и ((Фл3=0) или (Фл4=0)) тогда
СтрПериод = ("Период" + Строка(Фл3) + Строка(Фл4));
Текст2 = Ит.Субконто(2);
Таб.ВывестиСекцию(СтрПериод)
КонецЕсли;
КонецЦикла;
///////////
Ит2 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит2.ИспользоватьСубконто(ВидыСубконто.Сотрудники, Сотрудник, 2);
Ит2.ИспользоватьСубконто(ВидыСубконто.ВидыНачисленийВыплат, , 1);
Ит2.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "70",,, 1, "Entry", "С");
Ит2.ВыбратьПериоды();
ДолгНачало = ИТ.СНК() - Ит.СНД();
ДолгНачалоМод = Макс(ДолгНачало,-ДолгНачало);
Фл = 1; Фл1 = 1; Фл2 = 1; ОснЗП = 0;
Пока Фл = 1 цикл
Фл = 0; Фл3 = 1; Фл4 = 1;
Фл2 = Ит2.ПолучитьПериод();
Пока (Фл2 = 1) Цикл
Если Ит2.До() = 0 тогда
Фл2 = Ит2.ПолучитьПериод();
Продолжить;
Иначе
Фл2 = 0; Фл = 1; Фл4 = 0;
КонецЕсли;
КонецЦикла;
Если (Фл=1) и ((Фл3=0) или (Фл4=0)) тогда
СтрПериод = ("Период" + Строка(Фл3) + Строка(Фл4));
Текст1 = Ит2.Операция ;
Если (Ит2.Операция.Документ.Вид() = "НачислениеЗП") или (Ит2.Операция.Документ.Вид() = "ЗакрытиеМесяца") Тогда
Текст1 = СокрЛП("НДФЛ за " + ПериодСтр(НачМесяца(Текст1.Документ.ДатаДок),КонМесяца(Текст1.Документ.ДатаДок)));
ИначеЕсли (Ит2.Операция.Документ.Вид() = "БухгалтерскаяСправка") Тогда
Текст1 = СокрЛП("Удержано по исп. листам №" + Строка(Текст1.Документ.НомерДок));
КонецЕсли;
Если (Ит2.Операция.Документ.Вид() = "РасходныйОрдер") Тогда
Продолжить;
КонецЕсли;
Таб.ВывестиСекцию(СтрПериод)
КонецЕсли;
КонецЦикла;
ДолгКонец = ИТ.СКК() - Ит.СКД();
ДолгКонецМод = Макс(ДолгКонец,-ДолгКонец);
Таб.ВывестиСекцию("Подвал1");
Таб.ВывестиСекцию("Подвал");
КонецПроцедуры
///////////
|