КУБ-4/Jet

Обновления и изменения конфигурации


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#);
12 16.01.2014 формы для пакета Декларации по НДС: J0215104, J0200509 update006.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 (2551,2555); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT));
13 16.01.2014 Обновление системы обновления через Интернет - %F:=%GETURL(http://www.kcl.com.ua/LOAD/UPDATE/update007.bin,600,%P(TMPDIR)%(\update007.bin)); %A:=%DEARC(@P(TMPDIR)@(\update007.bin),@P(TMPDIR)@(\update007.DAT)); %SHOWMESSAGE(%IF(%A=0;Ошибка распаковки!;)); %IF(%A=0;%EXIT;); delete from tdocs where id in (1063); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\update007.DAT)); %DELETEFILE(@P(TMPDIR)@(\update007.DAT)); %SHOWMESSAGE(документ обновлен);
14 21.01.2014 параметры расчета налогов на 2014 год - %K:=%SQL(select ID from tparam where fkey='ПРОЖИТ_МИНИМУМ'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2014#; insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,1250,#07/01/2014#); insert into THIST (ftable,ffield,FID,fsum,fdate) values ('TPARAM','FSUM',%K,1301,#10/01/2014#); %KK:=%SQL(select ID from tparam where fkey='ЛИМИТ_НАЛОГА'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2014#; insert into THIST (ftable,ffield,FID,fsum,fdate) select ftable,ffield,%KK,round(fsum*17,0),fdate from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%K and fdate>=#01/01/2014#; %KK:=%SQL(select ID from tparam where fkey='МИНЗАР'); delete from THIST where FTABLE='TPARAM' and FFIELD='FSUM' and FID=%KK and fdate>=#01/01/2014#; 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/2014#; %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/2014#; insert into THIST (ftable,ffield,FID,fvalue,fdate) values ('TPARAM','FVALUE',%K,'iif(fm+fy*12>10+2014*12,22117,iif(fm+fy*12>7+2014*12,21250,iif(fm+fy*12>=12+2013*12,20706,iif(fm+fy*12>=1+2013*12,19499,iif(fm+fy*12>=12+2012*12,19278,iif(fm+fy*12>=10+2012*12,19006,iif(fm+fy*12>=7+2012*12,18734,iif(fm+fy*12>=4+2012*12,18598,iif(fm+fy*12>=1+2012*12,18241,iif(fm+fy*12>=12+2011*12,17068,iif(fm+fy*12>=10+2011*12,16745,iif(fm+fy*12>=4+2011*12,14400,14115))))))))))))',#01/01/2014#);
15 06.02.2014 новая форма реестра налоговых накладных J1201507 update008.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 (2580); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT));
16 13.02.2014 изменения для J0215105 - розшифровка в розрізі контрагентів (ПДВ) update009.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 (2551); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT));
17 28.04.2015 J0500105 - форма 1ДФ update010.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 (2565,2751); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT));
18 24.06.2015 ЄСВ update011.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 (977); %IMPORTK4J(TDOCS,@P(TMPDIR)@(\)@X(fattach)@(.DAT)); %DELETEFILE(@P(TMPDIR)@(\)@X(fattach)@(.DAT));

Эта страница используется для автоматической загрузки обновлений К4 непосредственно с рабочих мест пользователей. Для ручной установки необходимо сохранить файлы приложений во временном каталоге и выполнить скрипты

дата модификации: 28.04.2015 13:11:38