begin
fname1: = 'e: prog ';
fname3: = '. txt';
GoToXY (10,16); writeln ('Введіть ім'я файлу в який необхідно зберегти звіт ');
GoToXY (10,17); writeln ('і натисніть Enter. Файл звіту знаходиться в кореневій папці ');
GoToXY (10,19); readln (fname2);
assign (fotchet, fname1 + fname2 + fname3);
assign (f, 'e: prog bd.dat');
reset (f);
rewrite (fotchet);
end;
if ord (ch) = 61 then {Якщо натиснута F3 то створюється звіт складається з
товарів поточного підрозділу}
begin
writeln (fotchet, 'Звіт по підрозділу');
writeln;
writeln (fotchet, '--------------------------------------------- ------------ ');
while not Eof (f) do
begin
readln (f, Baza.FKod);
readln (f, Baza.FRazdel);
readln (f, Baza.FPodRazdel);
readln (f, Baza.FName);
readln (f, Baza.FSeria);
readln (f, Baza.FProizvod);
readln (f, Baza.FOpisan);
readln (f, Baza.FMany);
readln (f, Baza.FSim);
if (Baza.FRazdel = MRazdel) and (Baza.FPodRazdel = Podrazd) then
begin
write (fotchet, 'Код товару'); writeln (fotchet, Baza.FKod);
write (fotchet, 'Назва'); writeln (fotchet, Baza.FName);
write (fotchet, 'Серія'); writeln (fotchet, Baza.FSeria);
write (fotchet, 'Виробник'); writeln (fotchet, Baza.FProizvod);
write (fotchet, 'Опис'); writeln (fotchet, Baza.FOpisan);
write (fotchet, 'Ціна'); writeln (fotchet, Baza.FMany);
writeln (fotchet, '-----------------------------------------');
end;
end;
close (fotchet);
close (f);
end;
if ord (ch) = 63 then {Якщо натиснута F5 то в файл звіту додається тільки
поточна позиція}
begin
tek: = nach;
writeln (fotchet, 'Звіт по поточному товару');
writeln;
writeln (fotchet, '--------------------------------------------- ------------ ');
while not Eof (f) do
begin
readln (f, Baza.FKod);
readln (f, Baza.FRazdel);
readln (f, Baza.FPodRazdel);
readln (f, Baza.FName);
readln (f, Baza.FSeria);
readln (f, Baza.FProizvod);
readln (f, Baza.FOpisan);
readln (f, Baza.FMany);
readln (f, Baza.FSim);
if (Baza.FKod = tek ^. nomer) then
begin
write (fotchet, 'Код товару'); writeln (fotchet, Baza.FKod);
write (fotchet, 'Назва'); writeln (fotchet, Baza.FName);
write (fotchet, 'Серія'); writeln (fotchet, Baza.FSeria);
write (fotchet, 'Виробник'); writeln (fotchet, Baza.FProizvod);
write (fotchet, 'Опис'); writeln (fotchet, Baza.FOpisan);
write (fotchet, 'Ціна'); writeln (fotchet, Baza.FMany);
writeln (fotchet, '-----------------------------------------');
end;
end;
close (fotchet);
close (f),
end;
until (ord (ch) = 8) or (ord (ch) = 61) or (ord (ch) = 63);
{закриття файлів і висновок на колишнє місце}
clrscr;
shapka;
writespisok;
end;
procedure NewTovar; {Процедура додавання нового товару}
var f1, f2, f3: text; {Файлові змінні}
kod: integer; {Мінлива якої присвоюється новий код товару}
begin
clrscr;
Baza.FRazdel: = MRazdel; Baza.FPodRazdel: = PodRazd;
{Форма заповнення даних про новий товар}
GoToXY (10,1); Textcolor (10); Writeln ('Заповніть форму. Після заповнення чергового пункту натисніть Enter ');
GoToXY (3,4); writeln ('Розділ', Baza.FRazdel),
GoToXY (3,5); writeln ('Підрозділ', Baza.FPodRazdel);
GoToXY (3,6); Writeln ('сторопів призначення товару');
GoToXY (3,8), Writeln ('Введіть серію товара, якщо ні то введіть символ "-" '); p> GoToXY (3,10), Writeln ('Введіть виробника');
GoToXY (3,12); Writeln ('сторопів товар детальніше');
GoToXY (3,22); Writeln ('Ціна товару');
GoToXY (3,5); Textcolor (11);
GoToXY (3,7); readln (Baza.FName);
GoToXY (3,9); readln (Baza.FSeria);
GoToXY (3,11); readln (Baza.FProizvod);
GoToXY (3,13); readln (Baza.FOpisan);
GoToXY (20,22); readln (Baza.FMany);
GoToXY (10,23); Textcolor (10); Writeln ('Зберегти Y, Відміна N');
ch: = readkey;
if (Ord (ch) = 121) or (ord (ch) = 173) then {Якщо натиснута Y англійською
і Н російською, то зчитується з файлу, який зберігає коди товарів,
запам'ятовує останній, збільшує на о...
