| 1 | 28.04.2007 | TINTERFACE: изменение структуры (убрано поле ID) необходимо обновить документы 1040,943,8202 | update001.bin | alter table TINTERFACE drop column ID; %A:=%DEARC(@P(TMPDIR)@(\)@X(fattach),@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from tdocs where id in (1040,943,8202); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT)); |
| 2 | 28.04.2007 | добавлена таблица TB_COUNTER | - | create table TB_COUNTER (ID counter,FF byte); %N:=%SQL(select count(*) from TB_COUNTER); %LOOP 1=1; %IF(%N>9999;%BREAK;); insert into TB_COUNTER (FF) select 1 from tbanks; %N:=%SQL(select count(*) from TB_COUNTER); %END; alter table TB_COUNTER drop column FF; |
| 3 | 28.04.2007 | Параметры расчета налогов на 2007 год | - | %K:=%SQL(select ID from tparam where fkey='ПРОЖИТ_МИНИМУМ'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2007#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,525,#01/01/2007#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,561,#04/01/2007#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,568,#10/01/2007#); %K:=%SQL(select ID from tparam where fkey='ЛИМИТ_НАЛОГА'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2007#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,7875,#01/01/2007#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,8415,#04/01/2007#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,8520,#10/01/2007#); %K:=%SQL(select ID from tparam where fkey='ZAR_LIMIT'); delete from THIST where FTABLE='TPARAM' and FFIELD='FVALUE' and FID=%K and fdate>=#01/01/2007#; insert into THIST (ftable,ffield,FID,fvalue,fdate) values ('TPARAM','FVALUE',%K,'iif(fm+fy*12>=10+2007*12,8520,iif(fm+fy*12>=4+2007*12,8415,iif(fm+fy*12>=1+2007*12,7875,iif(fm+fy*12>=10+2006*12,5050,iif(fm+fy*12>=4+2006*12,4960,iif(fm+fy*12>=1+2006*12,4830,4100))))))',#01/01/2007#); |
| 4 | 11.07.2007 | добавление индексов, увеличивающих производительность и надежность системы | - | drop index fsh on TPLANSH; CREATE UNIQUE INDEX ITPLANSHFSH ON TPLANSH(FSH); CREATE INDEX TID ON TR (TID) WITH PRIMARY; |
| 5 | 23.07.2007 | добавлен описатель полей справочников TSPFLDEF | update002.bin | CREATE TABLE TSPFLDEF (FLDNAME TEXT(20),FLDDEF TEXT(80),FTABLE TEXT(24),FTYPE TEXT(1),FALIGN TEXT(1),FLEN SHORT); %A:=%DEARC(@P(TMPDIR)@(\)@X(fattach),@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from TSPFLDEF; %IMPORTK4J(TSPFLDEF,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT)); |
| 6 | 10.02.2008 | параметры расчета налогов на 2008 год | - | %K:=%SQL(select ID from tparam where fkey='ПРОЖИТ_МИНИМУМ'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2008#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,633,#01/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,647,#04/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,649,#07/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,669,#10/01/2008#); %K:=%SQL(select ID from tparam where fkey='ЛИМИТ_НАЛОГА'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2008#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,9495,#01/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,9705,#04/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,9735,#07/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,10035,#10/01/2008#); %K:=%SQL(select ID from tparam where fkey='МИНЗАР'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2008#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,515,#01/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,525,#04/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,545,#10/01/2008#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,605,#12/01/2008#); %K:=%SQL(select ID from tparam where fkey='ZAR_LIMIT'); delete from THIST where FTABLE='TPARAM' and FFIELD='FVALUE' and FID=%K and fdate>=#01/01/2008#; insert into THIST (ftable,ffield,FID,fvalue,fdate) values ('TPARAM','FVALUE',%K,'iif(fm+fy*12>=10+2008*12,10035,iif(fm+fy*12>=7+2008*12,9735,iif(fm+fy*12>=4+2008*12,9705,iif(fm+fy*12>=1+2008*12,9495,iif(fm+fy*12>=10+2007*12,8520,iif(fm+fy*12>=4+2007*12,8415,iif(fm+fy*12>=1+2007*12,7875,5050)))))))',#01/01/2008#); |
| 7 | 04.07.2008 | добавление индексов, изменение структур таблиц | - | CREATE INDEX ITLOG_FTIME ON TLOG (FTIME); CREATE INDEX ITLOG_FDOC_FID ON TLOG (FDOC,FID); drop index fcode1 on TA; CREATE INDEX ITA_A1 ON TA (fcode1,fobj1); CREATE INDEX ITA_A2 ON TA (fcode2,fobj2); alter table TUNIREP add column FORDER2 SHORT; update TUNIREP set forder2=forder; alter table TUNIREP drop column forder; alter table TUNIREP add column FORDER SHORT; update TUNIREP set forder=forder2; alter table TUNIREP drop column forder2; |
| 8 | 01.07.2009 | обновление форм для кассовых операций | update003.bin | %A:=%DEARC(@P(TMPDIR)@(\)@X(fattach),@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from tparam where fkey='КАССИР'; insert into tparam (FT,FCLS,FKEY,FSUM,FVALUE) values (0,'1.4.','КАССИР',0,' '); delete from tdocs where id in (2707,2729,2731,2732,2733); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT)); |
| 9 | 04.07.2009 | обновление печатной формы платежного поручения | update004.bin | %A:=%DEARC(@P(TMPDIR)@(\)@X(fattach),@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from tdocs where id in (2505); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT)); |
| 10 | 15.02.2010 | параметры расчета на 2010 год и месячная персонификация | update005.bin | %K:=%SQL(select ID from tparam where fkey='ПРОЖИТ_МИНИМУМ'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2010#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,869,#01/01/2010#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,884,#04/01/2010#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,888,#07/01/2010#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,907,#10/01/2010#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,922,#12/01/2010#); %KK:=%SQL(select ID from tparam where fkey='ЛИМИТ_НАЛОГА'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2010#; insert into THIST (ftable,ffield,FID,fsum,fdate) select ftable,ffield,%KK,round(fsum*15,0),fdate from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2010#; %KK:=%SQL(select ID from tparam where fkey='МИНЗАР'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2010#; insert into THIST (ftable,ffield,FID,fsum,fdate) select ftable,ffield,%KK,fsum,fdate from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2010#; %K:=%SQL(select ID from tparam where fkey='ZAR_LIMIT'); delete from THIST where FTABLE='TPARAM' and FFIELD='FVALUE' and FID=%K and fdate>=#01/01/2010#; insert into THIST (ftable,ffield,FID,fvalue,fdate) values ('TPARAM','FVALUE',%K,'iif(fm+fy*12>=12+2010*12,13830,iif(fm+fy*12>=10+2010*12,13605,iif(fm+fy*12>=7+2010*12,13320,iif(fm+fy*12>=4+2010*12,13260,iif(fm+fy*12>=1+2010*12,13035,iif(fm+fy*12>=11+2009*12,11160,iif(fm+fy*12>=10+2008*12,10035,iif(fm+fy*12>=7+2008*12,9735,iif(fm+fy*12>=4+2008*12,9705,iif(fm+fy*12>=1+2008*12,9495,5050))))))))))',#01/01/2010#); %A:=%DEARC(@P(TMPDIR)@(\)@X(fattach),@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from tdocs where id in (962); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT)); |
| 11 | 18.01.2011 | параметры расчета на 2011 год | - | %K:=%SQL(select ID from tparam where fkey='ПРОЖИТ_МИНИМУМ'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2011#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,941,#01/01/2011#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,960,#04/01/2011#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,985,#10/01/2011#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,1004,#12/01/2011#); %KK:=%SQL(select ID from tparam where fkey='ЛИМИТ_НАЛОГА'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2011#; insert into THIST (ftable,ffield,FID,fsum,fdate) select ftable,ffield,%KK,round(fsum*15,0),fdate from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2011#; %KK:=%SQL(select ID from tparam where fkey='МИНЗАР'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2011#; insert into THIST (ftable,ffield,FID,fsum,fdate) select ftable,ffield,%KK,fsum,fdate from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2011#; %K:=%SQL(select ID from tparam where fkey='ZAR_LIMIT'); delete from THIST where FTABLE='TPARAM' and FFIELD='FVALUE' and FID=%K and fdate>=#01/01/2011#; insert into THIST (ftable,ffield,FID,fvalue,fdate) values ('TPARAM','FVALUE',%K,'iif(fm+fy*12>=12+2011*12,15060,iif(fm+fy*12>=10+2011*12,14775,iif(fm+fy*12>=4+2011*12,14400,iif(fm+fy*12>=1+2011*12,14115,iif(fm+fy*12>=12+2010*12,13830,iif(fm+fy*12>=10+2010*12,13605,iif(fm+fy*12>=7+2010*12,13320,iif(fm+fy*12>=4+2010*12,13260,iif(fm+fy*12>=1+2010*12,13035,11160)))))))))',#01/01/2011#); |