Урезание (свертка базы) на определенную дату - История изменений

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2021-11-22T07:35:19Z

‎Добавить ТМС(скрипт) в Менеджер

Agk в 08:17, 15 сентября 2021

2021-09-15T08:17:25Z

Denis.standart-n: /* Выполнить ТМС (скрипт) */

2017-09-07T06:17:31Z

‎Выполнить ТМС (скрипт)

Agk: /* Выполнить скрипт */

2016-04-01T07:21:07Z

‎Выполнить скрипт

Agk: /* Выполнить скрипт */

2016-03-28T08:00:54Z

‎Выполнить скрипт

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2016-03-23T14:47:28Z

‎Добавить ТМС(скрипт) в Менеджер

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2016-03-23T14:07:31Z

‎Добавить ТМС(скрипт) в Менеджер

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2016-03-23T13:57:33Z

‎Добавить ТМС(скрипт) в Менеджер

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2016-03-23T13:52:44Z

‎Добавить ТМС(скрипт) в Менеджер

Agk: /* Добавить ТМС(скрипт) в Менеджер */

2016-03-23T13:12:31Z

‎Добавить ТМС(скрипт) в Менеджер

@@ Строка 62: / Строка 62: @@
     query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 inactive;',1);
     query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 inactive;',1);
     EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
@@ Строка 87: / Строка 91: @@
     query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 active;',1);
     query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 active;',1);
     EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);

← Предыдущая		Версия 08:17, 15 сентября 2021
Строка 235:		Строка 235:
	4. Проверить остатки (например товарным отчетом);		4. Проверить остатки (например товарным отчетом);
	5. Если все нормально, включить синхронизацию.		5. Если все нормально, включить синхронизацию.
		+
		+	==теги==
		+	Обрезка базы, обрезание базы

@@ Строка 232: / Строка 232: @@
 . Отключить синхронизацию;
 . Создать резервную копию;
-. Менеджер - зеленая стрелка (выполнить) - "Урезать(сернуть) базу на опреденную дату", ввести дату и запустить на выполнение;
+. Менеджер - зеленая стрелка (выполнить) - "Урезать(свернуть) базу на опреденную дату", ввести дату и запустить на выполнение;
 . Проверить остатки (например товарным отчетом);
 . Если все нормально, включить синхронизацию.

@@ Строка 141: / Строка 141: @@
 declare variable VERB DM_TEXT1024;
 declare variable DOC_ID_DEL DM_ID;
 begin
@@ Строка 197: / Строка 198: @@
    end
    delete from docs d where commitdate < :CUT_DATE||' 00:00:00';
    delete from cash_docs cd where cd.commitdate < :CUT_DATE||' 00:00:00';
 end^

@@ Строка 197: / Строка 197: @@
    end
    delete from docs d where commitdate < :CUT_DATE||' 00:00:00';
 end^

@@ Строка 51: / Строка 51: @@
    trn1:=CREATEIBTRANSACTION;
    STARTIBTRANSACTION(trn1,1);
-−
    try
     m_manager.logit('2 из 7 Для ускорения отключаем триггеры');
@@ Строка 62: / Строка 62: @@
     query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 inactive;',1);
     query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 inactive;',1);
-    EndIBTransaction(trn1,0);
+    EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
     FREEIBTRANSACTION(trn1);
@@ Строка 71: / Строка 71: @@
     m_manager.logit('3 из 7 Чистим базу...');
     query1:=ExecIBQuery(trn1,'execute procedure PR_CUTTER_DOCS('''+sl.values['CUT_DATE']+''');',1);
-    EndIBTransaction(trn1,0);
+    EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
     FREEIBTRANSACTION(trn1);
@@ Строка 87: / Строка 87: @@
     query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 active;',1);
     query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 active;',1);
-    EndIBTransaction(trn1,0);
+    EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
     FREEIBTRANSACTION(trn1);
@@ Строка 95: / Строка 95: @@
     m_manager.logit('5 из 7 Пересобираем остатки');
     query1:=ExecIBQuery(trn1,'execute procedure DBGPR_MAKEWAREBASEFROMDOCS(0)',1);
-    EndIBTransaction(trn1,0);
+    EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
     FREEIBTRANSACTION(trn1);
@@ Строка 103: / Строка 103: @@
     m_manager.logit('6 из 7 Очищаем нулевые позиции');
     query1:=ExecIBQuery(trn1,'execute procedure DBGPR_CLEANWAREBASE',1);
-    EndIBTransaction(trn1,0);
+    EndIBTransaction(trn1,1);
     FREEIBQUERY(query1);
     FREEIBTRANSACTION(trn1);

@@ Строка 1: / Строка 1: @@
 ==Добавить ТМС(скрипт) в Менеджер==
-'''Сервис - Подпрограммы - Общие - Создать "Урезать(сернуть) базу на опреденную дату"''' (тест скрипта ниже)
+'''Сервис - Подпрограммы - Общие - Создать "Урезать(свернуть) базу на определенную дату"''' (тест скрипта ниже)
 <pre>
 program GroupProgram;

@@ Строка 24: / Строка 24: @@
     end;
-   mb_res:=application.messagebox(PChar('Внимание! Перед этой операцией рекомендуется сделать РЕЗЕРВНУЮ КОПИЮ базы и ЗАКРЫТЬ программы Кассир и Менеджер. Продолжить?'),'',$00000004+$00000020);
+   mb_res:=application.messagebox(PChar('Внимание! Перед этой операцией рекомендуется сделать РЕЗЕРВНУЮ КОПИЮ базы и НЕ работать с ней. Продолжить?'),'',$00000004+$00000020);
    if mb_res<>6 then
    begin