Установка на предприятие АСУ

Таблица Б.1 - Реквизиты начислений заработной платы

Таблица Б.2 - Удержания, используемые на предприятии

Таблица Б.3 - Классификаторы видов проводок

ПРИЛОЖЕНИЕ В. ЛИСТИНГ ПРОГРАММЫ

Листинг программы (фрагмент)

Перем ЖурналРасчетовЗарплата; // журнал расчетов Зарплата

Перем ЖурналРасчетов; // журнал расчетов Зарплата

Перем ЕстьЗаписиПоОбъекту; // 1 - есть записи по сотруднику в ж.р.

//Перем ЕстьПериодПоОбъекту; // 1 - есть записи, действующие в указанном периоде по сотруднику в ж.р.

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

// ДополнительныйВидРасчета(Расчет)

//// Параметры:

// Расчет - вид расчета

// Возвращаемое значение:

// Число 1 - если переданный вид расчета являеьтся "дополнительным", т.е. не отражаемым в бухучете

// 0 - если это обычный вид расчета

// Описание:

// Вызывается при вводе расчетов для фильтрации видов расчета в "дополнительном" и обычном начислении зпл

Функция ДополнительныйВидРасчета(Расчет)

Если Расчет.ВходитВГруппу(ГруппаРасчетов.НастраиваемыеВидыРасчета)=0 Тогда

Возврат 0;

КонецЕсли;

Если глСпрВидыРасчетов.НайтиПоРеквизиту("Расчет",Расчет,1) = 0 Тогда

Возврат 0;

КонецЕсли;

Возврат глСпрВидыРасчетов.Дополнительный;

КонецФункции

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

ПолучитьТаблицуДатНовыхЗаписей(Сотрудник,НачалоПериода,КонецПериода,ВводимыйРасчет)

// Параметры:

// Сотрудник - сотрудник, по которому формируется таблица

// НачалоПериода - дата начала поиска вытесняющих ВР

// КонецПериода - дата окончания поиска вытесняющих ВР

// ВводимыйРасчет - расчет, который надо ввести в журнал расчетов

// Возвращаемое значение:

// таблица из дат начала и окончания вводимого вида расчета, третья колонка:

// МетодомНовая = 1, если должен ввестись и не может (есть вытесняющие ВР и есть на них сторно),

// МетодомНовая = 0, если не должен вводиться совсем (есть вытесняющие ВР и нет на них сторно)

// МетодомНовая = -1, если должен вводиться методом ВвестиРасчет (нет вытесняющих ВР)

// Описание:

// Формируются интервалы за которые вид расчета должен ввестись, но не может, т.к. есть вытесняющие ВР.

//

Функция ПолучитьТаблицуДатНовыхЗаписей(Сотрудник,НачалоПериода,КонецПериода,ВводимыйРасчет)

// определения дат текущего периода

// если приравняем к началу периода, а не к началу реального действия ВР, то

//в случае досрочного выхода из отпуска с середины месяца запись по окладу введется за весь месяц (09088)

//НачалоПериодаПоДате = ЖурналРасчетов.НачалоПериодаПоДате(НачалоПериода);

НачалоПериодаПоДате = НачалоПериода;

// если приравняем к концу периода, а не к концу реального действия ВР, то

//в случае увольнения с середины месяца запись по окладу введется за весь месяц (09000)

//КонецПериодаПоДате = ЖурналРасчетов.КонецПериодаПоДате(КонецПериода);

КонецПериодаПоДате = КонецПериода;

ТаблицаВРвЖЗ = СоздатьОбъект("ТаблицаЗначений"); //сюда сложим ВР, встретившиеся в ЖЗ по каждому сотруднику отдельно

ТаблицаВРвЖЗ.НоваяКолонка("Расчет", "ВидРасчета",,,,15);

Для Сч = НачалоПериодаПоДате По КонецПериодаПоДате Цикл

ТаблицаВРвЖЗ.НоваяКолонка("День"+Сред(Строка(Сч),1,2),"Число",1);

КонецЦикла;

ТаблицаВытесняющихВРДляВводимомогоВР = СоздатьОбъект("ТаблицаЗначений");

ТаблицаНеобходимостиРучногоВводаВР = СоздатьОбъект("ТаблицаЗначений");

СписокДней = СоздатьОбъект("СписокЗначений"); //в этом списке будет количество значений, равное количеству дней в тек. месяце, значение будет равно 1, если надо ввести ВР вручную

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

//теперь постараемся определить период действия этого вида расчета, который должен ввестись, но ему мешает механизм вытеснения

//посмотрим что у сотра уже введено (раньше или сейчас, но с нужными датами начала и(или) окончания):

Если ЖурналРасчетов.ВыбратьЗаписиПоОбъекту(Сотрудник,НачалоПериода,КонецПериода)=1 Тогда

Пока ЖурналРасчетов.ПолучитьЗапись()=1 Цикл

// если эта запись не вытесняет "наш" ВР, то она нам не интересна:

ВРвЖР = ЖурналРасчетов.ВидРасч;

НашВР = ВидРасчета.ПолучитьАтрибут(ВводимыйРасчет.Код);

ВытесняющийВР = ВидРасчета.ПолучитьАтрибут(ВРвЖР.Код);

Если СпособНачисленияЗарплаты < 4 Тогда

Если ВытесняющийВР.ВытесняетВидРасчета(НашВР)=0 Тогда //значит, эта строка не мешает

Продолжить;

КонецЕсли;

КонецЕсли;

ТаблицаВРвЖЗ.НоваяСтрока();

НомерСтрокиТаблицыВРвЖЗ = ТаблицаВРвЖЗ.КоличествоСтрок();

ТаблицаВРвЖЗ.УстановитьЗначение(НомерСтрокиТаблицыВРвЖЗ,"Расчет",ВРвЖР);

Для Сч = НачалоПериода По КонецПериода Цикл

//запись действует и при этом является сторно - тогда в таблицу в этот день помещаем "-1"

//действует и не сторно - тогда в таблицу в этот день помещаем "+1"

//не действует - ничего не вводим

Если (Сч>=ЖурналРасчетов.ДатаНачала)и(Сч<=ЖурналРасчетов.ДатаОкончания) Тогда

Если ЖурналРасчетов.Сторно=1 Тогда

ТаблицаВРвЖЗ.УстановитьЗначение(НомерСтрокиТаблицыВРвЖЗ,"День"+Сред(Строка(Сч),1,2),-1);

Иначе//Если ЖурналРасчетов.Перерасчет=0 Тогда, перерасчет может потом сторнироваться, поэтому его обязательно нужно учесть!

ТаблицаВРвЖЗ.УстановитьЗначение(НомерСтрокиТаблицыВРвЖЗ,"День"+Сред(Строка(Сч),1,2),1);

КонецЕсли;

КонецЕсли;

КонецЦикла;

КонецЦикла;

КонецЕсли;

ТаблицаВытесняющихВРДляВводимомогоВР.Очистить();//для каждого вводимого вида расчета она будет своя

ТаблицаНеобходимостиРучногоВводаВР.Очистить();//для каждого вводимого вида расчета она будет своя

СписокДней.УдалитьВсе(); //для каждого ВР список свой

ТаблицаДатДействия.Очистить();//для каждого вводимого вида расчета она будет своя

ТаблицаВРвЖЗ.Выгрузить(ТаблицаВытесняющихВРДляВводимомогоВР); //таблица заполняется на одного сотрудника

//если таблица ТаблицаВРвЖЗ была непустой, то теперь у нас возможно непустая таблица с расшифровкой по дням "сторно-неСторно"

//с помощью пересечения "сторно-Несторно" определим какие из ВР не смогут физически быть введены методом Ввести расчет, но должны быть введены, т.к. на несторно есть компенсирующее сторно

//сформируем итоговую таблицу, состоящуюю из двух строк:

//в первой строке - итоги сложения сторно и несторно (1 и -1)

//во второй строке- признак того, что во время обхода встречались сторно записи (если встречались, а в первой строке стоит 0, значит метод "ввести расчет" не сработал, а запись быть должна)

ТаблицаНеобходимостиРучногоВводаВР.НоваяСтрока();

ТаблицаНеобходимостиРучногоВводаВР.НоваяСтрока();

Для СчКолонок = 2 По ТаблицаВытесняющихВРДляВводимомогоВР.КоличествоКолонок() Цикл

ТаблицаНеобходимостиРучногоВводаВР.НоваяКолонка(,"Число",2);

ОбрабатываемаяКолонка = ТаблицаНеобходимостиРучногоВводаВР.КоличествоКолонок();

Для СчПеребираемыхВРвЖР = 1 По ТаблицаВытесняющихВРДляВводимомогоВР.КоличествоСтрок() Цикл

ЗначениеТекЯчейки = ТаблицаВытесняющихВРДляВводимомогоВР.ПолучитьЗначение(СчПеребираемыхВРвЖР,СчКолонок);

Если ЗначениеТекЯчейки<0 Тогда

//надо внести 1 во вторую строку:

ТаблицаНеобходимостиРучногоВводаВР.УстановитьЗначение(2,ОбрабатываемаяКолонка,1);

КонецЕсли;

ТаблицаНеобходимостиРучногоВводаВР.УстановитьЗначение(1,ОбрабатываемаяКолонка,ЗначениеТекЯчейки+ТаблицаНеобходимостиРучногоВводаВР.ПолучитьЗначение(1,ОбрабатываемаяКолонка));

КонецЦикла;

КонецЦикла;

//теперь из этой таблицы сформируем список дней, за которые надо вводить запись - это те дни, у которых

//1) в первой строке стоит 0(все несторно компенсировались сторно-записями в этот день), а во ворой стоит 1(сторно-запись была в этот день)

//2) в первой строке стоит 0(не было ни сторно, ни не сторно), и во ворой стоит 0(сторно-записей не было)

Для СчКолонок = 1 По ТаблицаНеобходимостиРучногоВводаВР.КоличествоКолонок() Цикл

Если (ТаблицаНеобходимостиРучногоВводаВР.ПолучитьЗначение(1,СчКолонок)=0)и(ТаблицаНеобходимостиРучногоВводаВР.ПолучитьЗначение(2,СчКолонок)=1) Тогда

СписокДней.ДобавитьЗначение(1);

ИначеЕсли (ТаблицаНеобходимостиРучногоВводаВР.ПолучитьЗначение(1,СчКолонок)=0)и(ТаблицаНеобходимостиРучногоВводаВР.ПолучитьЗначение(2,СчКолонок)=0) Тогда

СписокДней.ДобавитьЗначение(-1);

Иначе

СписокДней.ДобавитьЗначение(0);

КонецЕсли;

КонецЦикла;

Если СписокДней.РазмерСписка()>0 Тогда

ТаблицаДатДействия.НоваяКолонка("ДатаНачала","Дата");

ТаблицаДатДействия.НоваяКолонка("ДатаОкончания","Дата");

ТаблицаДатДействия.НоваяКолонка("МетодомНовая","Число",1);

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

ОчереднаяДата = НачалоПериодаПоДате; //дата первого дня

ТаблицаДатДействия.НоваяСтрока();

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),1,ОчереднаяДата);

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),3,ОбразецСравнения);

Для Сч =1 По СписокДней.РазмерСписка() Цикл

ОчереднойЭталон = СписокДней.ПолучитьЗначение(Сч);

Если ОбразецСравнения <> ОчереднойЭталон Тогда

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),2,НачалоПериодаПоДате + Сч - 2);

ОбразецСравнения = ОчереднойЭталон; //признак на очередной день

ТаблицаДатДействия.НоваяСтрока();

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),1,НачалоПериодаПоДате + Сч - 1);

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),3,ОбразецСравнения);

КонецЕсли;

КонецЦикла;

ТаблицаДатДействия.УстановитьЗначение(ТаблицаДатДействия.КоличествоСтрок(),2,НачалоПериодаПоДате + Сч - 2);

КонецЕсли;

Возврат ТаблицаДатДействия;

КонецФункции // ПолучитьТаблицуДатНовыхЗаписей

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

//ПолучитьТаблицуДатДляВводаРасчетов(Сотрудник,НачалоПериода,КонецПериода,Документ)

//

// Параметры:

// Сотрудник - сотрудник, по которому формируется таблица

// НачалоПериода - дата начала поиска существующих записей по документу

// КонецПериода - дата окончания поиска существующих записей по документу

// Документ - документ, по которому надо ввести записи в журнал расчетов

// ВводимыйРасчет - расчет, который надо ввести в журнал расчетов

//

// Возвращаемое значение:

// таблица из дат начала и окончания введенных записей

//

// Описание:

// Формируются интервалы за которые можно ввести расчет методом ВвестиРасчет.

//

Функция ПолучитьТаблицуДатДляВводаРасчетов(Сотрудник,НачалоПериода,КонецПериода,Документ,ВводимыйРасчет,НомерСтрокиДокумента=0)

БинарнаяТаблица = СоздатьОбъект("ТаблицаЗначений");

ТаблНевведенныхЗаписей = СоздатьОбъект("ТаблицаЗначений");

ТаблНевведенныхЗаписей.НоваяКолонка(,"Дата");

ТаблНевведенныхЗаписей.НоваяКолонка(,"Дата");

//интервал может быть длиной в несколько периодов, разложим его:

ТаблицаДат=глРазложитьНаПериоды(НачалоПериода,КонецПериода);

КолПериодов = ТаблицаДат.КоличествоСтрок();

//пройдемся по полученным периодам:

Для СчПериодов = 1 По КолПериодов Цикл

ДНачала = ТаблицаДат.ПолучитьЗначение(СчПериодов,1);

ДОконч = ТаблицаДат.ПолучитьЗначение(СчПериодов,2);

НП = ЖурналРасчетовЗарплата.НачалоПериодаПоДате(ДНачала);

КП = ЖурналРасчетовЗарплата.КонецПериодаПоДате(ДНачала);

Встречался = 0;

Если ЖурналРасчетовЗарплата.ВыбратьЗаписиПоОбъекту(Сотрудник,ДНачала,ДОконч)=1 Тогда

Пока ЖурналРасчетовЗарплата.ПолучитьЗапись()=1 Цикл

ПроверяемыйВР =

ВидРасчета.ПолучитьАтрибут(ВводимыйРасчет.Код);

ПроверяющийВР =

ВидРасчета.ПолучитьАтрибут(ЖурналРасчетовЗарплата.ВидРасч.Код);

Если (ЖурналРасчетовЗарплата.Документ<>Документ)или(ПроверяющийВР<>ПроверяемыйВР)или

//документ нужный, но строка не та:

(ЖурналРасчетовЗарплата.Документ = Документ) и

(ЖурналРасчетовЗарплата.НомерСтрокиДокумента <> НомерСтрокиДокумента)

Тогда

Продолжить; //нам интересны только записи этого ВР нашим документом

КонецЕсли;

//очередная запись нашлась, ее надо аккуратно вырезать из периодов в таблице

Встречался = 1;

НачЗаписи = ЖурналРасчетовЗарплата.ДатаНачала;

ОкончЗаписи = ЖурналРасчетовЗарплата.ДатаОкончания;

Если (НачЗаписи < НП) или (ОкончЗаписи > КП) Тогда

Продолжить; //эта запись не в нужном периоде

КонецЕсли;

БинарнаяТаблица.Очистить();

БинарнаяТаблица.НоваяСтрока();

БинарнаяТаблица.НоваяСтрока();

Для Сч = НП По КП Цикл

ИмяКолонки = "День"+Сред(Строка(Сч),1,2);

БинарнаяТаблица.НоваяКолонка(ИмяКолонки,"Число",1);

Если (Сч >= НачЗаписи) и (Сч <= ОкончЗаписи) Тогда

БинарнаяТаблица.УстановитьЗначение(1,ИмяКолонки,1)

Иначе

БинарнаяТаблица.УстановитьЗначение(1,ИмяКолонки,0)

КонецЕсли;

КонецЦикла;

Для Сч = НП По КП Цикл

ИмяКолонки = "День"+Сред(Строка(Сч),1,2);

Если (Сч >= ДНачала) и (Сч <= ДОконч) Тогда

БинарнаяТаблица.УстановитьЗначение(2,ИмяКолонки,1)

Иначе

БинарнаяТаблица.УстановитьЗначение(2,ИмяКолонки,0)

КонецЕсли;

КонецЦикла;

//заполнили бинарную таблицу для очередного разбиваемого интервала

//проанализируем и введем новые интервалы:

НачалоНайдено = 0;

Для Сч = НП По КП Цикл

ИмяКолонки = "День"+Сред(Строка(Сч),1,2);

ЗначениеДняПоЗаписиЖР =

БинарнаяТаблица.ПолучитьЗначение(1,ИмяКолонки);

ЗначениеДняПоВводимойЗаписи =

БинарнаяТаблица.ПолучитьЗначение(2,ИмяКолонки);

Если ЗначениеДняПоВводимойЗаписи=1 Тогда

Если ЗначениеДняПоЗаписиЖР=0 Тогда

Если НачалоНайдено = 0 Тогда

НовоеНачало = Сч;

НачалоНайдено = 1;

КонецЕсли;

Иначе //ЗначениеДняПоЗаписиЖР=1 и

ЗначениеДняПоВводимойЗаписи=1

Если НачалоНайдено = 1 Тогда

НачалоНайдено = 0;

ТаблНевведенныхЗаписей.НоваяСтрока();

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),1,НовоеНачало);

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),2,Сч-1);

КонецЕсли;

КонецЕсли;

Иначе //ЗначениеДняПоВводимойЗаписи=0

Если (НачалоНайдено = 1) Тогда

НачалоНайдено = 0;

ТаблНевведенныхЗаписей.НоваяСтрока();

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),1,НовоеНачало);

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),2,Сч-1);

КонецЕсли;

КонецЕсли;

КонецЦикла;

//возможно, последняя дата периода все еще удовлетворяла условию, тогда ее еще не занесли в таблицу:

Если (НачалоНайдено = 1) Тогда

НачалоНайдено = 0;

ТаблНевведенныхЗаписей.НоваяСтрока();

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),1,НовоеНачало);

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),2,Сч-1);

КонецЕсли;

КонецЦикла; //перебрали все записи ЖР

КонецЕсли; //выборка записей в ЖР

Если Встречался = 0 Тогда //этот период можно целиком включить в таблицу:

ТаблНевведенныхЗаписей.НоваяСтрока();

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),1,ДНачала);

ТаблНевведенныхЗаписей.УстановитьЗначение(ТаблНевведенныхЗаписей.КоличествоСтрок(),2,ДОконч);

КонецЕсли;

КонецЦикла; //проверили все вводимые записи по записям ЖР

Возврат ТаблНевведенныхЗаписей;

КонецФункции // ПолучитьТаблицуДатДляВводаРасчетов

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