Персонифицированный учет в среде 1С 7.7 "Зарплата и кадры"

ТаблицуСформировать(ТЗ1,1);

ТаблицуСформировать(ТЗ2,2); ТЗ21.Загрузить(ТЗ2);

ТаблицуСформировать(ТЗ3,3); ТЗ31.Загрузить(ТЗ3);

Форма.ТЗ3.Редактирование(1);

ДатаН=НачГода(ТекущаяДата()); //первоначально

ДатаК=КонМесяца(ДатаН);

ДатаН=НачМесяца(ТекущаяДата()); //первоначально

ДатаК=КонМесяца(ТекущаяДата()); //первоначально

СтПенс=константа.ПроцентПФ.получить(ДатаК);

ДатаЗ=ТекущаяДата();

Т1= СоздатьОбъект("Таблица"); Т1.ИсходнаяТаблица("ТПУ1");

Т2= СоздатьОбъект("Таблица"); Т2.ИсходнаяТаблица("ТПУ2"); //Т2.ПовторятьПриПечатиСтроки(19,19);

Т3= СоздатьОбъект("Таблица"); Т3.ИсходнаяТаблица("ТПУ3");

Т4= СоздатьОбъект("Таблица"); Т4.ИсходнаяТаблица("Суммы");

Список= СоздатьОбъект("Таблица"); Список.ИсходнаяТаблица("Список");

ТПачка= СоздатьОбъект("Таблица"); Тпачка.ИсходнаяТаблица("Пачка");

ТЛист=СоздатьОбъект("Таблица"); ТЛист.ИсходнаяТаблица("Пачка");

КонецПроцедуры

//*******************************************

Процедура СопрЛист()

ДПУ=СоздатьОбъект("Справочник.ДокументыПУ");

ВВестиСтроку(ИсхНомер,"введите номер сопроводительного листа",10);

КолП=0; Номера="";

ТЗ1КС=0; ТЗ2КС=0; ТЗ3КС=0;

ВыпИ=0; ПосИ=0; ВзнИ=0; ВыпК=0; ПосК=0; ВзнК=0;

ТЛист.НоваяСтраница();

ТЛист.ВывестиСекцию("Заг1");

ТЛист.ВывестиСекцию("Секция_1");

ДПУ.ВыбратьЭлементы();

Пока ДПУ.ПолучитьЭлемент()=1 Цикл //сообщить(ДПУ.ДатаЗаполнения);

Если датаЗ<>ДПУ.ДатаЗаполнения Тогда Продолжить; КонецЕсли;

КолП=КолП+1; Номера=ДПУ.Код; сообщить(""+ДПУ.Код+"="+ДПУ.Количество+" "+ДПУ.ДатаЗаполнения);

Если ДПУ.Вид="ПУ-1" тогда ТЗ1КС=ТЗ1КС+ДПУ.Количество;

ИначеЕсли ДПУ.Вид="ПУ-2" тогда ТЗ2КС=ТЗ2КС+ДПУ.Количество;

ИначеЕсли ДПУ.Вид="ПУ-3" тогда ТЗ3КС=ТЗ3КС+ДПУ.Количество;

Если СокрЛП(ДПУ.Тип)="И" тогда ВыпИ=ВыпИ+ДПУ.Выплат; ПосИ=ПосИ+ДПУ.Пособий; ВзнИ=ВзнИ+ДПУ.Взносов;

ИначеЕсли СокрЛП(ДПУ.Тип)="К" тогда ВыпК=ВыпК+ДПУ.Выплат; ПосК=ПосК+ДПУ.Пособий; ВзнК=ВзнК+ДПУ.Взносов;

ИначеЕсли СокрЛП(ДПУ.Тип)="П" тогда ВыпП=ВыпП+ДПУ.Выплат; ПосП=ПосП+ДПУ.Пособий; ВзнП=ВзнП+ДПУ.Взносов;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Номера=Строка(Число(Номера)-КолП+1)+"-"+Строка(Число(Номера));

ТЛист.ВывестиСекцию("Секция_12");

ТЛист.ВывестиСекцию("Секция_2");

ТЛист.ВывестиСекцию("Секция_3");

ТЛист.ВывестиСекцию("Секция_4");

ТЛист.Показать("сопроводительный лист ДПУ");

КонецПроцедуры

//*******************************************

Процедура ПриЗакрытии()

Если Вопрос("Закрыть?",4,5)<>6 Тогда СтатусВозврата(0);Возврат ; КонецЕсли;

ТЗ1.Очистить(); ТЗ2.Очистить();ТЗ3.Очистить();

ТЗ21.Очистить();ТЗ31.Очистить();

КонецПроцедуры

//*******************************************

Процедура ПриВыбореЗакладки(Номер,Значение)

Форма.ИспользоватьСлой(слои[СтНомер],0);

Форма.ИспользоватьСлой(слои[Номер],1);

СтНомер=Номер; НазвПУ=Назв[Номер];

Если Номер=1 Тогда ТЗ=ТЗ1; ПриСменеП1();

ИначеЕсли Номер=2 Тогда ТЗ=ТЗ2; ТЗ_=ТЗ21; ПриСменеП2();

ИначеЕсли Номер=3 Тогда ТЗ=ТЗ3; ТЗ_=ТЗ31; ПриСменеП3(); Форма.ТЗ31.Видимость(0);

КонецЕсли;

КонецПроцедуры

//*******************************************

Кадр=СоздатьОбъект("Справочник.КадровыеДанные");

Сотр=СоздатьОбъект("Справочник.Сотрудники");

Дог=СоздатьОбъект("Справочник.Договора");

ЖрнЗарплата=СоздатьОбъект("ЖурналРасчетов.Зарплата");

Док=СоздатьОбъект("Документ");

ДокСв=СоздатьОбъект("Документ.СведенияОСтаже");

Запрос=СоздатьОбъект("Запрос");

НазвМесяца[1] ="Январь";

НазвМесяца[2] ="Февраль";

НазвМесяца[3] ="Март";

НазвМесяца[4] ="Апрель";

НазвМесяца[5] ="Май";

НазвМесяца[6] ="Июнь";

НазвМесяца[7] ="Июль";

НазвМесяца[8] ="Август";

НазвМесяца[9] ="Сентябрь";

НазвМесяца[10]="Октябрь";

НазвМесяца[11]="Ноябрь";

НазвМесяца[12]="Декабрь";

Размещено на Allbest.ru