Товарооборот

#include <stdio.h>
#include <iomanip.h>
#include <string.h>
#include <conio.h>
#include <stdlib.h>
 
//-----------------------------------------------константы-----------------------------------------------------
const int N_ITEMS=7; //количество пунктов меню
const int L_TOV=9; //длина названия дисциплины
const int STEP=18; //количество строк на странице
 
 
//-------------------------------------типы и глобальные переменные---------------------------------
struct date {
    int day; //день
    int month; //месяц
    int year; //год
    };
struct magazine {
    int mag; //навзание магазина
    int sec; //название секции
    int check; //название чека
    int art; //название артикула
    char name[L_TOV]; //название товара
    int kol; //количество товара
    int cena; //цена
    date dat; //дата
    int tov_ob; //товарооборот
    };
struct elist { //элементы 2-го направленного списка
    magazine data; //данные о магазине
    elist *left; // указатели на элемент слева
    elist *right; //указатели на элемент справа
    };
unsigned int defaultmode, //текущий режим экрана
          activecolor, //активный пункт меню
          inactivecolor; //неактивный пункт меню
int key; //код клавиши
elist *beg, //указатель на первый элемент списка
      *fin, //указатель на последний элемент списка
      *p; //указатель на текущий элемент списка
char name1[L_TOV]; //название товара
magazine magz;
unsigned int item; //номер пункта меню
unsigned int prev; //номер предыдущего пункта меню
 
//------------------------------------прототипы функций---------------------------------------------------
void add(elist* &beg, elist* &fin, magazine magz); //добавление элемента в список
int load(elist* &beg,elist* &fin); //загрузка базы из файла
int showbase(elist *beg); //вывод базы на экран
void drawitem(unsigned int item, unsigned int color); //вывод пунктов меню
void initmenu(unsigned int activecolor, unsigned int inactivecolor); //инициализация меню
void dlgwindow(void); //отображение окна диалога
void stub (unsigned int item); //заглушка
void save(); //Сохранение
void queryname(char *s);
void clear(void); //Очистка экрана
elist *find(elist *p, int *s);  //Поиск
void message(char *message); //вывод сообщения
void error(char message[]); // вывод сообщения ошибки
magazine query(); //запрос сведений о магазине
void edit(elist* beg, magazine magz); //запрос самого магазина
magazine query2();
void sort();//Сортировка
 
//========================Главная функция=========================================
int main() {
int n;
defaultmode=LASTMODE; //запомнить текущий текстовый режим экрана
textmode(C80); //установить режим 80х25 цветной
 
beg=0; fin=0; //обнулить указатели на начало и конец списка
clear();
 
activecolor=WHITE; //цвет  активного пункта меню
inactivecolor=YELLOW; //цвет неактивного пункта
initmenu(activecolor,inactivecolor); //инициализация меню
 
item=0;prev=0; //обнулить номера те. и пред. пунктов меню
 
/*------------цикл выбора пунктов меню----------------*/
while (1) {
                    key=getch();  //ввести код нажатой клавиши
                    if (key==0) key=getch(); //если введен расширенный код
                    switch(key) { //проверить код нажатой клавиши
                                    /*---------------------выполнение пункта меню-------------------*/
                                    case 13:   //нажата ENTER
                                        switch (item) {  //анализ номера пункта
                                            case 0:
                                                showbase(beg);
                                                break;
 
                                            case 1: magz=query();
                                                add(beg,fin,magz);
                                                break;
                                            case 2:  //редактирование записи
                                                    magz=query2();
                                                    edit(beg,magz);
                                                    break;
 
                                            case 3: //удаление записи
                                                    /*queryname(name1);
                                                    p=find(beg,name1);
                                                    if (p) { del(beg,fin,p);
                                                        gotoxy(3,4);
                                                        textcolor(LIGHTRED);
                                                        cputs("запись удалена");
                                                        gotoxy(3,6);
                                                        cputs("нажмите ENTER");-
                                                        getch();
                                                        }
                                                    break;  */
                                            case 4://загрузка базы из файла
                                                    load(beg,fin);
                                                    break;
                                            case 5: //сохранение базы в файл
                                                    save();
                                                    clrscr();
                                                    puts("Файл сохранен");
                                                    break;
                                            default: //выход из программы
                                                            textmode(defaultmode);
                                                            exit(1);
                                        };
                                        break;
                    /*----------------перемещение курсора влево----------------*/
                    case 15: case 75: //нажата Shift+Tab или Left
                        prev=item;
                        if (item==0)
                                        item=N_ITEMS-1;
                        else item--;
                        break;
                    /*--------------перемещение курсора вправо-----------------*/
                    case 9: case 77: //нажата Tab или Right
                        prev=item;
                        if (item==N_ITEMS-1)
                            item=0;
                        else item++;
                        break;
}
clear();
clrscr();
drawitem(prev,inactivecolor); //вывод предыдущего пункта
drawitem(item,activecolor); //вывод выбранного пункта
 
}
}
 
//----------------------------------Вывод пунктов меню---------------------------------------------------
void drawitem(unsigned int item, unsigned int color) {
const d=12; //длина поля пунктов меню
const char* items[N_ITEMS]={"Просмотр","Добавление","Удаление","Редак....","Загрузка","Сохранение","Выход"}; //название пунктов
const int pos[N_ITEMS]={1,d,2*d,3*d,4*d,5*d,6*d}; //позиции начала полей пункта
window(1,1,80,2); //окно для отображение пунктов
textbackground(RED); //цвет  фона в окне красный
textcolor(color); //цвет букв пункта
gotoxy(pos[item],1); //позиция начала пункта меню
cprintf("%s",items[item]); //отобразить название пунктов
}
//-----------------------------------------Инициализация меню-------------------------------------------
void initmenu(unsigned int activecolor, unsigned int inactivecolor) {
unsigned int item; //номер пункта меню
window(1,1,80,2); //окно из двух строк для вывода пунктов
textbackground(RED); //цвет фона в окне светло-серый
clrscr();
 
/*-----------------------------------отобразить название пунктов меню-----------------------------*/
drawitem(0,activecolor); //активным цветом "Просмотр"
for(item=1;item<N_ITEMS;item++)
        drawitem(item,inactivecolor); //все остальные неактивные
 
/*-------------------------------отобразить границу окна меню, подчеркнув его снизу---------*/
gotoxy(1,2);
textcolor(inactivecolor);
cputs("_______________________________________________________________________________");
gotoxy(1,1); //курсор на "Просмотр";
}
 
//------------------------Заглушка----------------------------------------------------
void stub(unsigned int item) {
window(1,4,80,24);
textbackground(BLACK);
textcolor(WHITE);
clrscr();
cprintf("Вызван пункт меню %d ",item);
getch();
}
 
//----------------------------------Вывод сообщения ошибки---------------------------------------------
void error(char message[]) {
window(15,6,70,12); // границы окна
textbackground(RED);  //цвет  фон
textcolor(GREEN); //цвет текста
clrscr(); //очистка экрана
gotoxy(15,4);
cputs(message); //вывод сообщения
getch();
textmode(defaultmode);
}
 
 
//---------------------------------Ввод базы из файла-------------------------------------------------------
int load(elist* &beg, elist* &fin) {
FILE *f;
int key;
char file_name[10]; //имя загружаемого файла
magazine magz;
dlgwindow();
window(1,6,70,12); //окно для ввода
gotoxy(1,1);
cprintf("Введите имя и тип загружаемого файла (*.*): ");
key=getch();
    if (key==0)  key=getch(); //если расширенный код
    switch(key) {
            case 27: //если нажат ESC, то
                return -1; //вернутся назад
            }
scanf("%s",file_name);
gotoxy(1,2);
 
/*-----------------------------------проверка открытия файла-------------------------------*/
f=fopen(file_name,"r+");
if (!f) {               clrscr();
            window(15,6,70,12);
            textbackground(RED);
            textcolor(BLUE);
            clrscr();
            gotoxy(15,4);
            cprintf("Файл %s не найден",file_name);
            getch();
            return -1;
            }
else {
/*-------------------------------------чтение записей из файла-----------------------------------------*/
while (!feof(f)) {
            fscanf(f,"%d%d%d%d%s%d%d%d%d%d",&magz.mag,&magz.sec,&magz.check,&magz.art,&magz.name,&magz.kol,&magz.cena,&magz.dat.day,&magz.dat.month,&magz.dat.year);
            add(beg,fin,magz);  //добавление в список
            }
gotoxy(1,3);
textcolor(WHITE);
cprintf("Файл %s загружен",file_name);
}
textcolor(LIGHTRED);
gotoxy(1,5);
cprintf("Нажмите ENTER");
getch();
fclose(f);
return 0;
}
 
 
//------------------------------------Добавление элемента в конец списка----------------------------
void add(elist* &beg,elist* &fin, magazine magz) {
elist *p; //указатель на создаваемый элемент
p=new elist; //создание нового элемента
p->data=magz; //заполнение его информационной части
p->right=0; //заполнение его указателей
p->left=fin;
if (!beg) beg=p; //если список был пустым
    else fin->right=p; //привязка нового элемента к последнему
fin=p; //обновление указателей на конец списка
}
 
//---------------------------------очистка рабочего стола------------------------------------------
void clear() {
    window(1,3,80,25);
    textattr(WHITE);
    clrscr();
}
 
 
//---------------------Запрос сведений о магазине-----------------------
magazine query() {
char s[L_TOV]; //название дисциплины
char key;
magazine magz; //данные о дисциплине
int i; //индекс строки
int len; //длина строки с названием дисциплины
dlgwindow(); //отобразить окно диалога
 
do {
    gotoxy(2,1);
    cputs("Введите номер магазина: ");
    scanf("%s",s);
    magz.mag=atof(s); }
while (!magz.mag);
do {
    gotoxy(2,2);
    cputs("Ввдетие номер секции: ");
    scanf("%s",s);
    magz.sec=atof(s); }
while (!magz.sec);
do {
    gotoxy(2,3);
    cputs("Введите номер чека: ");
    scanf("%s",s);
    magz.check=atof(s); }
while(!magz.check);
do {
    gotoxy(2,4);
    cputs("Введите артикул товара:");
    scanf("%s",s);
    magz.art=atof(s); }
while(!magz.art);
do {
    gotoxy(2,5);
    cputs("Введите название товара: ");
    scanf("%s",s);
    len=strlen(s);
    for (i=len;i<L_TOV-1;i++)
    s[i]=' ';
    s[L_TOV-1]='\0'; }
while (!len);
    strcpy(magz.name,s);
do {
    gotoxy(2,6);
    cputs("Введите количество товара: ");
    scanf("%s",s);
    magz.kol=atof(s); }
while (!magz.kol);
do {
    gotoxy(2,7);
    cputs("Введите цену товара: ");
    scanf("%s",s);
    magz.cena=atof(s); }
while (!magz.cena);
do {
    gotoxy(2,8);
    cputs("Введите день: ");
    scanf("%s",s);
    magz.dat.day=atof(s); }
while (!magz.dat.day);
do {
    gotoxy(2,9);
    cputs("Введите месяц: ");
    scanf("%s",s);
    magz.dat.month=atof(s); }
while (!magz.dat.month);
do {
    gotoxy(2,10);
    cputs("Введите год: ");
    scanf("%s",s);
    magz.dat.year=atof(s); }
while (!magz.dat.year);
gotoxy(2,11);
textcolor(LIGHTRED);
cputs("нажмите ENTER");
getch();
return magz;
}
 
//-------------------------------------Вывод базы на экран-------------------------------------------------
int showbase(elist *beg){
int i; //счетчик количества строк
elist *p, //указатель на текущий элемент  страницы
      *pn; //указатель на 1-ый элемент страницы
int key; //код нажатой клавиши
elist* showpage(elist *p);
elist* showtov(elist *p) ; //прототип функции вывода одной страницы
dlgwindow();
 
    if (!beg) {//если список пуст
       message("Список пуст"); //то вывести сообщение
       return -1;
       }
    /*------------задание параметров рабочего окна------*/
    window(1,4,80,24);
    textcolor(WHITE);
p=beg; //указатель установить в начало списка
while (1) {
    pn=p; //запомнить указатель первого элемента страницы
    /*---------------вывести страницу и получить новое значение указателя текущего элемента-----------*/
    p=showpage(p);
    /*------------------определить код нажотой клавиши-----------*/
    key=getch();
    if (key==0) key=getch(); //если расширенный код
    /*---------управление прокруткой------------------*/
    switch(key) {
        case 27: //нажата ESC
            return 0; //выход из просмотра
        case 80: case 81: case 77: //если нажата Down||PgDn
            if (!p) p=pn; //и список исчерпан, то
            break; //отображать ту же страницу
        case 13: sort();
       /*   case 32:showtow(p)   */
        case 72: case 73: case 75://если нажат а Up или PgUp,
            p=pn; //то указатель в начало страницы
            for(i=1;(i<=STEP)&&(p);i++)
                p=p->left; //на STEP записей вверх
            if(!p) p=beg; //если 1-ая запись
                break;
    }
}
}
 
elist* showpage(elist *p) {
int i; //номер строки вывода
clrscr();
    gotoxy(1,1);
    cprintf("╔════════╦════════╦════════╦════════╦════════╦════════╦════════╦═══════════╗");
    gotoxy(1,2);
    cprintf("║ magaz  ║sec     ║check   ║art     ║naz_tov ║kol     ║cena    ║data       ║");
    gotoxy(1,3);
    cprintf("╠════════╬════════╬════════╬════════╬════════╬════════╬════════╬═══════════╣");
    gotoxy(1,4);
    i=4;
    while(p) { //вывод списка
           cprintf("║%-8d║%-8d║%-8d║%-8d║%-8s║%-8d║%-8d║%-2d.%-2d.%-4d ║",p->data.mag,p->data.sec,p->data.check,p->data.art,p->data.name,p->data.kol,p->data.cena,p->data.dat.day,p->data.dat.month,p->data.dat.year);
           p=p->right; //переход к следующему элементу
           i++; //увеличиваем счетчик для gotoxy
           gotoxy(1,i);
           if (i>STEP) return p;
           }
           cprintf("╚════════╩════════╩════════╩════════╩════════╩════════╩════════╩═══════════╝");
return p;
 }
 
/*elist* showtov(elist *p) {
int i2;
gotoxy(5,i+3);
    cprintf("╔════════╦════════╦══════════════════════════════╗");
    cprintf("║ magaz  ║   sec  ║tov_oborot                    ║");
    cprintf("╠════════╬════════╬══════════════════════════════╣");
    i2=i+5;
    while (beg) {
    beg->data.tov_ob=0;
        if ((beg->data.mag!=beg->right->data.mag))
            beg->data.tov_ob=beg->data.tov_ob+(beg->data.cena*beg->data.kol);
    i2=i+6;
    cprintf("║%-8d║%-8d║%-30d║",beg->data.mag,beg->data.sec,beg->data.tov_ob);
    beg=beg->right;
    i2++;
    gotoxy(5,i2);
    return p;
    }}}*/
 
 
 
 
 
//----------------------отображение окна диалога-----------------------------------------
void dlgwindow() {
    window(1,6,80,16);
    textattr(LIGHTGREEN);
    clrscr();
}
 
//---------------------------------вывод сообщения---------------------------------------------
void message(char message[]) {
    dlgwindow();
    gotoxy(32,7);
    cputs(message);
    getch();
}
 
 
//-------------------------------сохранение в файл--------------------------------
void save() {
FILE *out;
int key;
char file_name[10]; //имя сохраняемого файла
    dlgwindow(); //вызов окна диалого
    gotoxy(1,2);
    printf("Введите имя и тип сохраняемого файла (*.*): ");
    key=getch();
    if (key==0)  key=getch(); //если расширенный код
    switch(key) {
            case 27:  //елси нажат  ESC, то
                return; //выход
            }
    scanf("%s",file_name); //считываем имя сохраняемого файла
    out=fopen(file_name,"w+");
    while(beg) { //запись в файл
        fprintf(out,"%d %d %d %d %s %d %d %d %d %d\n",beg->data.mag,beg->data.sec,beg->data.check,beg->data.art,beg->data.name,beg->data.kol,beg->data.cena,beg->data.dat.day,beg->data.dat.month,beg->data.dat.year);
        beg=beg->right;
    }
 
    gotoxy(1,4);
    textcolor(WHITE);
    cprintf("Файл %s сохранен",file_name);
    gotoxy(1,7);
    textcolor(LIGHTRED);
    cprintf("нажмите ENTER");
    getch();
    fclose(out);
}
 
void queryname(char *name1) {
int i; //индекс строки
int len; //длина строки
char s[L_TOV]; //название дисциплины
dlgwindow(); //отобразить окно диалога
 
do {
    gotoxy(2,2);
    cputs("Товар: ");
    scanf("%s",s);
    len=strlen(s);
    for (i=len;i<L_TOV-1;i++)
        s[i]=' ';
    s[L_TOV-1]='\0'; }
while (!len);
strcpy(name1,s);
}
 
//------------Удаление-----------------
void del(elist* &beg, elist* &fin, elist *p) {
if ((p==beg)&&(p==fin)) //удаление единственного элемента
    {beg=0;fin=0;}
else
    if (p==beg) //удаление из начала списка
        {beg=beg->right; beg->left=0; }
else
    if (p==fin) //удаление из конца
        {fin=fin->left; fin->right=0; }
else { //удаление из середины
    p->left->right=p->right; //связать предыдущий со следующим
p->right->left=p->left;
}
free(p);
}
 
 
//-----------------------Сортировка-----------------------------
void sort() { //сортировка методом пузырька
magazine _data;
    p=beg;
    int n=0;
    while (p!=0) {
    n++;
    p=p->right;
    }
    if (n==0 || n==1) return;
    for (int i=0; i<=n; i++) {
        p=beg;
        while(p->right!=0) {
        if (p->data.mag>p->right->data.mag) {
        _data=p->data;
        p->data=p->right->data;
        p->right->data=_data;
        }
        p=p->right;
    }
    }
}
 
 
//-------------------------------Редактирование магазина--------------------------
magazine query2() {
char s[L_TOV];
magazine magz; //данные о дисциплине
int i; //индекс строки
int len;
dlgwindow(); //отобразить окно диалога
do {
    gotoxy(2,1);
    cputs("Введите номер магазина: ");
    scanf("%s",s);
    magz.mag=atof(s); }
while (!magz.mag);
do {
    gotoxy(2,2);
    cputs("Ввдетие номер секции: ");
    scanf("%s",s);
    magz.sec=atof(s); }
while (!magz.sec);
do {
    gotoxy(2,3);
    cputs("Введите номер чека: ");
    scanf("%s",s);
    magz.check=atof(s); }
while(!magz.check);
do {
    gotoxy(2,4);
    cputs("Введите артикул товара:");
    scanf("%s",s);
    magz.art=atof(s); }
while(!magz.art);
do {
    gotoxy(2,5);
    cputs("Введите название товара: ");
    scanf("%s",s);
    len=strlen(s);
    for (i=len;i<L_TOV-1;i++)
    s[i]=' ';
    s[L_TOV-1]='\0'; }
while (!len);
    strcpy(magz.name,s);
do {
    gotoxy(2,6);
    cputs("Введите количество товара: ");
    scanf("%s",s);
    magz.kol=atof(s); }
while (!magz.kol);
do {
    gotoxy(2,7);
    cputs("Введите цену товара: ");
    scanf("%s",s);
    magz.cena=atof(s); }
while (!magz.cena);
do {
    gotoxy(2,8);
    cputs("Введите день: ");
    scanf("%s",s);
    magz.dat.day=atof(s); }
while (!magz.dat.day);
do {
    gotoxy(2,9);
    cputs("Введите месяц: ");
    scanf("%s",s);
    magz.dat.month=atof(s); }
while (!magz.dat.month);
do {
    gotoxy(2,10);
    cputs("Введите год: ");
    scanf("%s",s);
    magz.dat.year=atof(s); }
while (!magz.dat.year);
return magz;
}
 
//--------------------------------------Исправление записи о дисциплине--------------------------------
void edit(elist* beg, magazine magz) {
elist *p; //указатель на найденный элемент
//dlgwindow();
p=find(beg,magz.mag); //поиск дисциплины в списке
if (p) {    //если дисциплина найдена, то изменить оценки
    magz=query2();
    p->data.mag=magz.mag; //отличные
    p->data.sec=magz.sec; //хорошие
    p->data.check=magz.check; //удовлетворительные
    p->data.artikul=magz.artikul; //не удовлетворительные
    p->data.cena=magz.cena;
    p->data.kol=magz.kol;
    p->data.dat.day=magz.dat.day;
    p->data.dat.month=magz.dat.month;   
    p->data.dat.year=magz.dat.year;
}
}
 
//---------------------------Поиск элемента в списке (по названию дисциплины)---------------------------
elist *find(elist *p,char *s) {
 
while(p) {
    if (strcmp(s,p->data.mag)==0) //если модель найдена
        return p; //то возвратить указатель
    p=p->right; //переход к след. элементу списка
    }
 
gotoxy(2,6);
message("Такой дисциплины в списке нет");
p=0;
return p;
}

p=find(beg,&magz.mag); //нужно передать адрес magz.mag

if (strcmp(s,p->data.mag)==0) //p->data.mag имеет тип int, а ф-ции strcmp() нужно передать char*