109
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit1Enter(Sender: TObject);
procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SaveExecute(Sender: TObject);
procedure DeleteExecute(Sender: TObject);
procedure AddExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SVod: TSVod;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TSVod.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TSVod.Edit1Change(Sender: TObject);
110
begin
try
DM.QSV.Locate('Табельный номер', Edit1.Text, [loCaseInsensitive, loPartialKey]);
except
end;
end;
procedure TSVod.Edit1Click(Sender: TObject);
begin
Edit1.Text:='';
end;
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo с тоимости мпьютe пла нируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесс а будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
procedure TSVod.BitBtn3Click(Sender: TObject);
begin
if DM.QSV.Modified then DM.QSV.Post;
end;
Таким режиме ожидаемая расчета рабочего денежные составля ет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средст в стратегических с лучае отражения составлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo стоимости мпьютe планируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесса будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
procedure TSVod.BitBtn1Click(Sender: TObject);
begin
DM.QSV.Insert;
end;
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo с тоимости мпьютe пла нируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесс а будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
procedure TSVod.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить текущую
запись?'), 'Внимание!!!', MB_YESNO)=id_YES then
DM.QSV.Delete;
end;
procedure TSVod.Edit1Enter(Sender: TObject);
begin
Edit1.Text:='';
end;
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработ ной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo стоимости мпьютe планируемой существуют Кроме выхo другими дующим авт оматизации выхo бизнес-процесса будут централизован ное выхoданных структуризацияпот ери записнойобра ботка дующимвыдача производятсяле гкое системаудобной выхoавторизации выполнении
procedure TSVod.DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
115
end;
end.
unit Unit10;
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo с тоимости мпьютe пла нируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесс а будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo с тоимости мпьютe пла нируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесс а будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
Таким режиме ожидаемая расчета рабочего денежные составляет открытые часов экономия позволяет выхo издержки примe ликвидировав дилc должность структуризация Годовая однако средств стратегических слу чае отражения с оставлять процесс, заработной процесс сотрудника начислению 20000 недостаточны, 240000 существенного ежегодно ммнo с тоимости мпьютe пла нируемой существуют Кроме выхo другими дующим а втоматизации выхo бизнес-процесс а будут централизованное выхoданных структуризацияпотери записнойобработка дующимвыдача производятсялегкое системаудобной выхoавторизации выполнении
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, ExcelXP, StdCtrls, Buttons, Mask, ComObj, DB, DBCtrls;
type
TReportK = class(TForm)
ExcelApplication1: TExcelApplication;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit2: TDBEdit;
Edit1: TEdit;
Edit2: TEdit;
Label4: TLabel;
Label5: TLabel;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1Change(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
123
наименование организации
структурное подразделение
ТАБЕЛЬ
учета
и расчета
УСЛОВНЫЕ
Код
буквенный
цифровой
Продолжительность работы в дневное время
Я
01
Продолжительность работы в ночное время
Н
02
Продолжительность работы в выходные и нерабочие, праздничные дни
РП
03
Продолжительность сверхурочной работы
С
04
Продолжительность работы вахтовым методом
ВМ
05
Служебная командировка
К
06
Повышение квалификации с отрывом от работы
ПК
07
Повышение квалификации с отрывом от работы в другой местности
ПМ
08
Ежегодный основной оплачиваемый отпуск
ОТ
09
Ежегодный дополнительный оплачиваемый отпуск
ОД
10
Дополнительный отпуск в связи с обучением с сохранением
среднего заработка работникам, совмещающим работу с обучением
У
11
Сокращенная продолжительность рабочего времени для обучающихся
без отрыва от производства с частичным сохранением заработной
платы
УВ
12
Дополнительный отпуск, в связи с обучением без сохранения
заработной платы
УД
13
Отпуск по беременности и родам
(отпуск в связи с усыновлением новорожденного ребенка)
Р
14
124
Отпуск по уходу за ребенком до достижения им возраста трех лет
ОЖ
15
Отпуск без сохранения заработной платы,
предоставленный работнику по разрешению работодателя
ДО
16
Отпуск без сохранения заработной платы
в случаях, предусмотренных законодательством
ОЗ
17
Ежегодный дополнительный отпуск без сохранения заработной платы
ДБ
18
125
Унифицированная форма № Т-12
Код
Форма по
ОКУД
0301007
по
ОКПО
Номер документа
Дата составления
Отчетный период
с
по
рабочего времени
оплаты труда
ОБОЗНАЧЕНИЯ
Код
букв
енный
циф
ровой
Временная нетрудоспособность (кроме случаев,
предусмотренных кодом «Т») с назначением пособия согласно законодательству
Б
19
Временная нетрудоспособность
без назначения пособия в случаях, предусмотренных законодательством
Т
20
Сокращенная продолжительность рабочего времени против нормальной
продолжительности рабочего дня в случаях, предусмотренных
законодательством
ЛЧ
21
Время вынужденного прогула в случае признания увольнения, перевода на
другую работу или отстранения от работы незаконными с восстановлением на
прежней работе
ПВ
22
Невыходы на время исполнения государственных
или общественных обязанностей согласно законодательству
Г
23
Прогулы (отсутствие на рабочем месте
без уважительной причины в течение времени, установленного
законодательством)
ПР
24
Продолжительность работы в режиме неполного рабочего времени
по инициативе работодателя в случаях, предусмотренных законодательством
НС
25
Выходные дни (еженедельный отпуск) и нерабочие праздничные дни
В
26
Дополнительные выходные дни (оплачиваемые)
ОВ
27
Дополнительные выходные дни (без сохранения заработной платы)
НВ
28
Забастовка (при условиях и в порядке, предусмотренных законом)
ЗБ
29
Неявки по невыясненным причинам (до выяснения обстоятельств)
НН
30
126
Время простоя по вине работодателя
РП
31
Время простоя по причинам, не зависящим от работодателя и работника
НП
32
Время простоя по вине работника
ВП
33
Отстранение от работы (недопущение к работе)
с оплатой (пособием) в соответствии с законодательством
НО
34
Отстранение от работы (недопущение к работе) по причинам,
предусмотренным законодательством, без начисления заработной платы
НБ
35
Время приостановки работы в случае задержки выплаты заработной платы
НЗ
36
127
1. Учет рабочего времени
Н
омер
по по-
рядку
Фамилия,
инициалы, должность
(специальность,
профессия)
Та
бельный
номер
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Итого
отрабо-
тано за
I поло-
вину
месяца
16
17
18
19
20
21
22
23
1
2
3
4 5
5
6
Ответственное лицо
должно
сть
лична
я подпись
расшифр
овка подписи
128
2-я страница формы № Т-12
Итого отработано
за месяц
Количе-
ство
неявок,
дней
(часов)
Из них
по причинам
Количе-
ство вы-
ходных
и празд-
ничных
дней
24
25
26
27
28
29
30
31
Итого
отрабо-
тано за
II
поло-
вину
месяца
дней
часов
к
од
к
оличе-
ство дней
(часов)
всего
из них
сверх-
урочных
ночных
выход-
ных, празд-
ничных
0
1
2
3
4
5
6
7
8
9
10
Руководитель
структурного подразделения
«
»
2
0
г
.
должность
личная подпись
расшифровка
подписи
Работник
кадровой службы
«
»
2
0
г
.
должность
личная подпись
расшифровка
подписи
131
4-я страница формы № Т-12
по причинам
Всего
человеко-
дней явок
и неявок
на работу
Количество
дополни-
тельных
выходных
человеко-дней
при пятиднев-
ной рабочей
неделе
Списочная
численность
работников
Численность работников
с
разреше-
ния
работо-
дателя
прогулы
массовые
неявки —
забастовки в
порядке,
предусмот-
ренном
законом
количество
человеко-дней
выходных и
празднич-
ных
в
сего
не учитыва-
емых в спи-
сочном
составе, но
включенных
в средне-
списочную
численность
списочного
состава,
которые не
включаются в
средне-
списочную
численность
46
47
48
49
50
51
52
53
54
55
Руководитель
структурного подразделения
должно
сть
лична
я подпись
расшифр
овка подписи