/*$Id: udkasordg.c,v 5.13 2013/09/26 09:43:41 sasa Exp $*/
/*16.07.2015	19.08.2002	Белых А.И.	udkasordg.c
Удаление за год документов в "Учете кассовых ордеров"
*/
#include        "buhg.h"


void	udkasordg()
{
int		kom1=0;
short		god;
char		strsql[512];
class iceb_tu_str vstr("");
SQLCURSOR cur;
SQL_str		row;
short dt,mt,gt;
iceb_tu_poltekdat(&dt,&mt,&gt);
clear();

/*проверяем полномочия оператора*/
sprintf(strsql,"select kob,kon from icebuser where login='%s'",iceb_tu_getlogin());
if(iceb_t_sql_readkey(strsql,&row,&cur) != 1)
 {
  sprintf(strsql,"%s %s %s icebuser",gettext("Не найден логин"),iceb_tu_getlogin(),gettext("в таблице"));
  iceb_t_soob(strsql);
  return;
 }
if(atoi(row[0]) != 0 || atoi(row[1]) != 0)
 {
  iceb_t_soob(gettext("У вас нет полномочий для этой операции!"));
  return;
 }

VVOD SOOBN(1);
SOOBN.VVOD_spisok_add_MD(gettext("       	         В н и м а н и е !!!"));
SOOBN.VVOD_spisok_add_MD(gettext("                 Режим удаления документов за год."));
SOOBN.VVOD_spisok_add_MD(gettext("Удаление документов за прошедшие годы выполняется с целью уменьшения"));
SOOBN.VVOD_spisok_add_MD(gettext("                       объёма базы данных."));
soobsh(&SOOBN,0,-1,1);

helstr(LINES-1,0,"F10",gettext("выход"),NULL);

memset(strsql,'\0',sizeof(strsql));

VVOD VVOD1(2);

VVOD1.VVOD_spisok_add_MD(gettext("Введите год"));

if((kom1=vvod1(&vstr,5,&VVOD1,NULL,stdscr,-1,-1)) == FK10)
  return;
if(kom1 == ESC)
  return;


god=vstr.ravno_atoi();
if(god < 1900 || god > 3000)
 {
  iceb_t_soob(gettext("Не верно введён год !"));
  return;
 }

VVOD PAR(2);
PAR.VVOD_spisok_add_MD(gettext("Введите пароль"));
if(parolv(&PAR,dt,mt,gt,0) != 0)
  return;

clear();
GDITE();

int metkazap=0;
strcpy(strsql,"select VERSION()");
sql_readkey(&bd,strsql,&row,&cur);
if(iceb_tu_SRAV(row[0],"3.22",1) == 0)
  metkazap=1;  

printw("VERSION:%s\n",row[0]);
printw("%s %d\n",gettext("Удаляем документы за год"),god);
refresh();

if(udkasdok(0,"",0,0,god,0) != 0)
 return;

printw("%s Kasnomved\n",gettext("Удаляем записи в таблице"));
refresh();

sprintf(strsql,"delete from Kasnomved where god=%d",god);
iceb_t_sql_zapis(strsql,1,0);

printw("%s Kascnsl\n",gettext("Удаляем записи в таблице"));
refresh();

sprintf(strsql,"delete from Kascnsl where god=%d",god);
iceb_t_sql_zapis(strsql,1,0);


printw("%s Kasord\n",gettext("Оптимизация таблицы"));
GDITE();

sprintf(strsql,"optimize table Kasord");
if(metkazap == 1)
 {
  iceb_t_sql_zapis(strsql,1,0);
 }
else
  iceb_t_sql_readkey(strsql);

printw("%s Kascnsl\n",gettext("Оптимизация таблицы"));
GDITE();

sprintf(strsql,"optimize table Kascnsl");
if(metkazap == 1)
 {
  iceb_t_sql_zapis(strsql,1,0);
 }
else
  iceb_t_sql_readkey(strsql);


printw("%s Kasnomved\n",gettext("Оптимизация таблицы"));
GDITE();

sprintf(strsql,"optimize table Kasnomved");
if(metkazap == 1)
 {
  iceb_t_sql_zapis(strsql,1,0);
 }
else
  iceb_t_sql_readkey(strsql);



printw("%s Kasord1\n",gettext("Оптимизация таблицы"));
GDITE();
memset(strsql,'\0',sizeof(strsql));
sprintf(strsql,"optimize table Kasord1");
if(metkazap == 1)
 {
  iceb_t_sql_zapis(strsql,1,0);
 }
else
  iceb_t_sql_readkey(strsql);



OSTANOV();

}
