begin
Sklad_Sets.Clear;
// Склад
Sklad_Sets.AddPrefiks(1, ' ');
Sklad_Sets.AddPrefiks(2, ' ');
Sklad_Sets.AddPrefiks(3, ' ');
Sklad_Sets.AddPrefiks(4, ' ');
Sklad_Sets.AddPrefiks(5, ' ');
Sklad_Sets.AddPrefiks(6, ' ');
Sklad_Sets.AddPrefiks(7, ' ');
Sklad_Sets.AddPrefiks(8, ' ');
Sklad_Sets.AddPrefiks(9, ' ');
Sklad_Sets.AddPrefiks(11, ' ');
Sklad_Sets.AddPrefiks(12, ' ');
Sklad_Sets.AddPrefiks(13, ' ');
Sklad_Sets.AddPrefiks(14, ' ');
Sklad_Sets.AddPrefiks(15, ' ');
Sklad_Sets.AddPrefiks(16, ' ');
Sklad_Sets.AddPrefiks(17, ' ');
Sklad_Sets.AddPrefiks(18, ' ');
Sklad_Sets.AddPrefiks(19, ' ');
Sklad_Sets.AddPrefiks(20, ' ');
Sklad_Sets.AddPrefiks(21, ' ');
Sklad_Sets.AddPrefiks(22, ' ');
Sklad_Sets.AddPrefiks(23, ' ');
Sklad_Sets.AddPrefiks(24, ' ');
Sklad_Sets.AddPrefiks(25, ' ');
Sklad_Sets.AddPrefiks(26, ' ');
Sklad_Sets.AddPrefiks(27, ' ');
Sklad_Sets.AddPrefiks(30, ' ');
Sklad_Sets.AddPrefiks(31, ' ');
Sklad_Sets.AddPrefiks(32, ' ');
// Зарплата
Sklad_Sets.AddPrefiks(1001, ' ');
Sklad_Sets.AddPrefiks(1002, ' ');
Sklad_Sets.AddPrefiks(1003, ' ');
Sklad_Sets.AddPrefiks(1004, ' ');
Sklad_Sets.AddPrefiks(1005, ' ');
Sklad_Sets.AddPrefiks(1006, ' ');
// Движение брака
Sklad_Sets.AddPrefiks(2001, ' ');
Sklad_Sets.AddPrefiks(2002, ' ');
Sklad_Sets.AddPrefiks(2003, ' ');
Sklad_Sets.AddPrefiks(3001, ' ');
Sklad_Sets.AddPrefiks(3002, ' ');
Sklad_Sets.AddPrefiks(3003, ' ');
Sklad_Sets.AddPrefiks(3004, ' ');
Sklad_Sets.AddPrefiks(3005, ' ');
Sklad_Sets.AddPrefiks(3006, ' ');
end;
|
Исправлено большое количество ошибок.
. 
