Реферат: Автоматизация расчета начислений заработной платы в строительном управлении N 151

interface

uses unit1;

procedure vvod;

implementation

procedure vvod;

var i,j,g,h:integer;

begin

{ Считывание данных из первой таблицы }

for i:=1 to 4 do kol_vo[i]:=0;

for i:=1 to 4 do begin

str(i,s);assign(f,'vhod\'+s+'-1-'+mw+'.txt');reset(f);

for j:=1 to 7 do readln(f,z); {пропустить шапку таблицы}

repeat readln(f,z);kol_vo[i]:=kol_vo[i]+1;

j:=pos('|',z);z:=copy(z,j+1,250); {Пропускаем номер}

j:=pos('|',z);fio[i,kol_vo[i]]:=copy(z,1,j-1);z:=copy(z,j+1,250); {ФИО}

j:=pos('|',z);val(copy(z,1,j-1),ktu[i,kol_vo[i]],conv);z:=copy(z,j+1,300);{КТУ}

{Разряд работника}

j:=pos('|',z);val(copy(z,1,j-1),a[i,kol_vo[i],6],conv);z:=copy(z,j+1,300);

{Тариф/оклад работника}

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],1],conv);z:=copy(z,j+1,300);

{Табель времени работника}

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],2],conv);z:=copy(z,j+1,300);

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],3],conv);z:=copy(z,j+1,300);

{Выходные работника}

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],4],conv);z:=copy(z,j+1,300);

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],5],conv);z:=copy(z,j+1,300);

{ Сверхурочные работника}

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],6],conv);z:=copy(z,j+1,300);

j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],7],conv);