Урезание (свертка базы) на определенную дату — различия между версиями

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(→‎Выполнить скрипт)
(→‎Добавить ТМС(скрипт) в Менеджер)
 
(не показано 14 промежуточных версии 2 участников)
Строка 1: Строка 1:
 
==Добавить ТМС(скрипт) в Менеджер==
 
==Добавить ТМС(скрипт) в Менеджер==
−
Сервис - Подпрограммы - Общие - Создать "Урезать(сернуть) базу на опреденную дату" (тест скрипта ниже)
+
'''Сервис - Подпрограммы - Общие - Создать "Урезать(свернуть) базу на определенную дату"''' (тест скрипта ниже)
 
<pre>
 
<pre>
 
program GroupProgram;
 
program GroupProgram;
Строка 6: Строка 6:
 
     sl: TStringList;
 
     sl: TStringList;
 
     trn,query: cardinal;
 
     trn,query: cardinal;
 +
    trn1,query1: cardinal;
 
     mb_res:integer;
 
     mb_res:integer;
 
begin
 
begin
Строка 23: Строка 24:
 
   end;  
 
   end;  
 
    
 
    
−
   mb_res:=application.messagebox(PChar('Внимание! Перед этой операцией рекомендуется сделать резервную копию базы. Копия уже сделана'),'',$00000004+$00000020);
+
   mb_res:=application.messagebox(PChar('Внимание! Перед этой операцией рекомендуется сделать РЕЗЕРВНУЮ КОПИЮ базы и НЕ работать с ней. Продолжить?'),'',$00000004+$00000020);
 
   if mb_res<>6 then  
 
   if mb_res<>6 then  
 
   begin
 
   begin
Строка 43: Строка 44:
 
     exit;
 
     exit;
 
   end;
 
   end;
−
   m_manager.logit('Начало...');     
+
   m_manager.logit('1 из 7 Начало...');     
  
 
   trn:=CREATEIBTRANSACTION;     
 
   trn:=CREATEIBTRANSACTION;     
 
   STARTIBTRANSACTION(trn,1);   
 
   STARTIBTRANSACTION(trn,1);   
 +
 +
  trn1:=CREATEIBTRANSACTION;   
 +
  STARTIBTRANSACTION(trn1,1);
 +
                       
 
   try
 
   try
−
   query:=ExecIBQuery(trn,'execute procedure PR_CUTTER_DOCS('''+sl.values['CUT_DATE']+''');',1);
+
   m_manager.logit('2 из 7 Для ускорения отключаем триггеры'); 
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_BI_MNN inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AI0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AIUD1 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AU0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AD0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AI0 inactive;',1);           
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger PARTS_WP_AIU0 inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOCS_AD_G$SYNC inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_DELETED_AD_G$SYNC inactive;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD_G$SYNC inactive;',1);           
 +
  EndIBTransaction(trn1,1);
 +
  FREEIBQUERY(query1);       
 +
  FREEIBTRANSACTION(trn1);
 +
   
 +
  trn1:=CREATEIBTRANSACTION;   
 +
  STARTIBTRANSACTION(trn1,1);
 +
 
 +
  m_manager.logit('3 из 7 Чистим базу...');
 +
  query1:=ExecIBQuery(trn1,'execute procedure PR_CUTTER_DOCS('''+sl.values['CUT_DATE']+''');',1);
 +
  EndIBTransaction(trn1,1); 
 +
  FREEIBQUERY(query1);       
 +
  FREEIBTRANSACTION(trn1);
 +
   
 +
  trn1:=CREATEIBTRANSACTION;   
 +
  STARTIBTRANSACTION(trn1,1);
 +
 
 +
  m_manager.logit('4 из 7 Включаем триггеры');
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_BI_MNN active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AI0 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AIUD1 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AU0 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AD0 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AI0 active;',1);           
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 active;',1);
 +
  query1:=ExecIBQuery(trn1,'alter trigger PARTS_WP_AIU0 active;',1); 
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOCS_AD_G$SYNC active;',1); 
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_DELETED_AD_G$SYNC active;',1); 
 +
  query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD_G$SYNC active;',1); 
 +
  EndIBTransaction(trn1,1); 
 +
  FREEIBQUERY(query1);       
 +
  FREEIBTRANSACTION(trn1);
 +
  trn1:=CREATEIBTRANSACTION;   
 +
  STARTIBTRANSACTION(trn1,1);
 +
 
 +
  m_manager.logit('5 из 7 Пересобираем остатки');     
 +
  query1:=ExecIBQuery(trn1,'execute procedure DBGPR_MAKEWAREBASEFROMDOCS(0)',1);
 +
  EndIBTransaction(trn1,1); 
 +
  FREEIBQUERY(query1);       
 +
  FREEIBTRANSACTION(trn1);
 +
  trn1:=CREATEIBTRANSACTION;   
 +
  STARTIBTRANSACTION(trn1,1);
 +
 
 +
  m_manager.logit('6 из 7 Очищаем нулевые позиции');     
 +
  query1:=ExecIBQuery(trn1,'execute procedure DBGPR_CLEANWAREBASE',1);
 +
  EndIBTransaction(trn1,1);
 +
  FREEIBQUERY(query1);       
 +
  FREEIBTRANSACTION(trn1);
 +
       
 
   except
 
   except
 
   showmessage('err');  
 
   showmessage('err');  
Строка 54: Строка 120:
 
   exit;
 
   exit;
 
   end;     
 
   end;     
−
  FREEIBQUERY(query);       
 
−
  FREEIBTRANSACTION(trn);
 
  
−
   m_manager.logit('Операция успешно выполнена!');   
+
   m_manager.logit('7 из 7 Операция успешно выполнена!');   
−
   showmessage('Операция успешно выполнена!');
+
   showmessage('Операция успешно выполнена. Перезапустите программу Менеджер и проверьте остатки!');
 +
 
 
end.
 
end.
 
</pre>
 
</pre>
Строка 84: Строка 149:
 
declare variable VERB DM_TEXT1024;
 
declare variable VERB DM_TEXT1024;
 
declare variable DOC_ID_DEL DM_ID;
 
declare variable DOC_ID_DEL DM_ID;
 +
declare variable CD_SUMMA DM_DOUBLE;
 
begin
 
begin
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_BI_MNN inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AI0 inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AIUD1 inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AU0 inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AD0 inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_AI0 inactive;';
 
−
  execute statement 'alter trigger DOC_DETAIL_AD0 inactive;';
 
−
  execute statement 'alter trigger PARTS_BU0 inactive;';
 
  
 
   /* Процедура удаления документов до определенной даты, с сохранением остатков */
 
   /* Процедура удаления документов до определенной даты, с сохранением остатков */
Строка 102: Строка 160:
 
   for select sum(QUANT), PART_ID
 
   for select sum(QUANT), PART_ID
 
       from DOC_DETAIL DD
 
       from DOC_DETAIL DD
−
       inner join DOCS D on D.ID = DD.DOC_ID
+
       left join DOCS D on D.ID = DD.DOC_ID
 
       where D.STATUS = 1 and
 
       where D.STATUS = 1 and
 
             DD.DOC_COMMITDATE < :CUT_DATE
 
             DD.DOC_COMMITDATE < :CUT_DATE
Строка 149: Строка 207:
 
   delete from docs d where commitdate < :CUT_DATE||' 00:00:00';
 
   delete from docs d where commitdate < :CUT_DATE||' 00:00:00';
  
−
   execute statement 'alter trigger DOC_DETAIL_ACTIVE_BI_MNN active;';
+
   --Чистим кассу
−
   execute statement 'alter trigger DOC_DETAIL_ACTIVE_AI0 active;';
+
   select sum(summa) from cash_docs cd where cd.commitdate < :CUT_DATE||' 00:00:00' and status = 1 into :cd_summa;
−
   execute statement 'alter trigger DOC_DETAIL_ACTIVE_AIUD1 active;';
+
   INSERT INTO CASH_DOCS (id, PARENT_ID, DOC_TYPE, STATUS, AGENT_ID, CAPTION, CREATESESSION_ID, COMMITSESSION_ID, COMMITDATE, SUMMA, INSERTDT, POSTDT)
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AU0 active;';
+
  VALUES (-1, 0, iif(:cd_summa > 0, 19, 12), 1, 1, 'Корректировка кассы №1', 0, 0, :CUT_DATE||' 00:00:00', :cd_summa, current_timestamp, current_timestamp);
−
  execute statement 'alter trigger DOC_DETAIL_ACTIVE_AD0 active;';
+
   delete from cash_docs cd where cd.commitdate < :CUT_DATE||' 00:00:00';
−
   execute statement 'alter trigger DOC_DETAIL_AI0 active;';
+
−
  execute statement 'alter trigger DOC_DETAIL_AD0 active;';
+
−
  execute statement 'alter trigger PARTS_BU0 active;';
+
  
−
  --Пересобираем остатки и очищаем нулевые позиции
 
−
  select VERB from DBGPR_MAKEWAREBASEFROMDOCS(0) into :VERB;
 
−
  select S from  DBGPR_CLEANWAREBASE into :VERB;
 
  
 
end^
 
end^
Строка 179: Строка 231:
 
GRANT SELECT,DELETE ON DOC_DETAIL_ACTIVE_MMBSH TO PROCEDURE PR_CUTTER_DOCS;
 
GRANT SELECT,DELETE ON DOC_DETAIL_ACTIVE_MMBSH TO PROCEDURE PR_CUTTER_DOCS;
 
GRANT SELECT,DELETE ON SHIFT_DETAIL_KKM TO PROCEDURE PR_CUTTER_DOCS;
 
GRANT SELECT,DELETE ON SHIFT_DETAIL_KKM TO PROCEDURE PR_CUTTER_DOCS;
−
GRANT EXECUTE ON PROCEDURE DBGPR_MAKEWAREBASEFROMDOCS TO PROCEDURE PR_CUTTER_DOCS;
 
−
GRANT EXECUTE ON PROCEDURE DBGPR_CLEANWAREBASE TO PROCEDURE PR_CUTTER_DOCS;
 
  
 
/* Existing privileges on this procedure */
 
/* Existing privileges on this procedure */
Строка 190: Строка 240:
 
  1. Отключить синхронизацию;
 
  1. Отключить синхронизацию;
 
  2. Создать резервную копию;  
 
  2. Создать резервную копию;  
−
  3. Менеджер - зеленая стрелка (выполнить) - "Урезать(сернуть) базу на опреденную дату", ввести дату и запустить на выполнение;
+
  3. Менеджер - зеленая стрелка (выполнить) - "Урезать(свернуть) базу на опреденную дату", ввести дату и запустить на выполнение;
 
  4. Проверить остатки (например товарным отчетом);
 
  4. Проверить остатки (например товарным отчетом);
 
  5. Если все нормально, включить синхронизацию.
 
  5. Если все нормально, включить синхронизацию.
 +
 +
==теги==
 +
Обрезка базы, обрезание базы

Текущая версия на 12:35, 22 ноября 2021

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

Сервис - Подпрограммы - Общие - Создать "Урезать(свернуть) базу на определенную дату" (тест скрипта ниже) 

program GroupProgram;
var s: string;
    sl: TStringList;
    trn,query: cardinal;
    trn1,query1: cardinal;
    mb_res:integer;
begin
  sl:=TStringList.Create;
  s:='[CUT_DATE]'#13#10+
  'type=date'#13#10+
  'caption=Дата '#13#10+
  'default=STARTOFMONTH';
  sl.text:=s;
  if GetCustomParams(sl,'заполните значения') then
  begin      
  end
  else
   begin
    showmessage('Действие отменено пользователем');
    exit;
   end; 
  
  mb_res:=application.messagebox(PChar('Внимание! Перед этой операцией рекомендуется сделать РЕЗЕРВНУЮ КОПИЮ базы и НЕ работать с ней. Продолжить?'),'',$00000004+$00000020);
  if mb_res<>6 then 
  begin
    showmessage('Действие отменено пользователем');
    exit;
  end;  
  
  mb_res:=application.messagebox(PChar('Все документы до '+sl.values['CUT_DATE']+' будут удалены. Продолжить?'),'',$00000004+$00000020);
  if mb_res<>6 then 
  begin
    showmessage('Действие отменено пользователем');
    exit;
  end;
  
  mb_res:=application.messagebox(PChar('В зависимости от размера базы чистка займет некоторое время. Продолжить?'),'',$00000004+$00000020);
  if mb_res<>6 then 
  begin
    showmessage('Действие отменено пользователем');
    exit;
  end;
  m_manager.logit('1 из 7 Начало...');    

  trn:=CREATEIBTRANSACTION;    
  STARTIBTRANSACTION(trn,1);  

  trn1:=CREATEIBTRANSACTION;    
  STARTIBTRANSACTION(trn1,1);
                         
  try
   m_manager.logit('2 из 7 Для ускорения отключаем триггеры');  
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_BI_MNN inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AI0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AIUD1 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AU0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AD0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AI0 inactive;',1);            
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger PARTS_WP_AIU0 inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOCS_AD_G$SYNC inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_DELETED_AD_G$SYNC inactive;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD_G$SYNC inactive;',1);            
   EndIBTransaction(trn1,1);
   FREEIBQUERY(query1);        
   FREEIBTRANSACTION(trn1);
    
   trn1:=CREATEIBTRANSACTION;    
   STARTIBTRANSACTION(trn1,1);
   
   m_manager.logit('3 из 7 Чистим базу...');
   query1:=ExecIBQuery(trn1,'execute procedure PR_CUTTER_DOCS('''+sl.values['CUT_DATE']+''');',1);
   EndIBTransaction(trn1,1);   
   FREEIBQUERY(query1);        
   FREEIBTRANSACTION(trn1);
    
   trn1:=CREATEIBTRANSACTION;    
   STARTIBTRANSACTION(trn1,1);
   
   m_manager.logit('4 из 7 Включаем триггеры');
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_BI_MNN active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AI0 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AIUD1 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AU0 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_ACTIVE_AD0 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AI0 active;',1);            
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD0 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger PARTS_BU0 active;',1);
   query1:=ExecIBQuery(trn1,'alter trigger PARTS_WP_AIU0 active;',1);   
   query1:=ExecIBQuery(trn1,'alter trigger DOCS_AD_G$SYNC active;',1);   
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_DELETED_AD_G$SYNC active;',1);   
   query1:=ExecIBQuery(trn1,'alter trigger DOC_DETAIL_AD_G$SYNC active;',1);   
   EndIBTransaction(trn1,1);   
   FREEIBQUERY(query1);        
   FREEIBTRANSACTION(trn1); 
   trn1:=CREATEIBTRANSACTION;    
   STARTIBTRANSACTION(trn1,1);

   m_manager.logit('5 из 7 Пересобираем остатки');      
   query1:=ExecIBQuery(trn1,'execute procedure DBGPR_MAKEWAREBASEFROMDOCS(0)',1);
   EndIBTransaction(trn1,1);   
   FREEIBQUERY(query1);        
   FREEIBTRANSACTION(trn1);
   trn1:=CREATEIBTRANSACTION;    
   STARTIBTRANSACTION(trn1,1);
   
   m_manager.logit('6 из 7 Очищаем нулевые позиции');      
   query1:=ExecIBQuery(trn1,'execute procedure DBGPR_CLEANWAREBASE',1);
   EndIBTransaction(trn1,1);
   FREEIBQUERY(query1);        
   FREEIBTRANSACTION(trn1);
         
  except
   showmessage('err'); 
   EndIBTransaction(trn,0);
   exit;
  end;    

  m_manager.logit('7 из 7 Операция успешно выполнена!');  
  showmessage('Операция успешно выполнена. Перезапустите программу Менеджер и проверьте остатки!');

end.

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

Несуществующие таблицы, поля, триггеры можно из скрипта исключить 

SET TERM ^ ;

create or alter procedure PR_CUTTER_DOCS (
    CUT_DATE DM_DATE)
as
declare variable PART_ID DM_ID;
declare variable SUM_QUANT DM_DOUBLE;
declare variable DOC_ID DM_ID;
declare variable PRICE DM_DOUBLE;
declare variable NAC DM_DOUBLE;
declare variable WARE_ID DM_UUID;
declare variable PRICE_O DM_DOUBLE;
declare variable NDS DM_DOUBLE;
declare variable DEP DM_ID;
declare variable PART_TYPE DM_ID;
declare variable BASE_AGENT_ID DM_ID;
declare variable VERB DM_TEXT1024;
declare variable DOC_ID_DEL DM_ID;
declare variable CD_SUMMA DM_DOUBLE;
begin

  /* Процедура удаления документов до определенной даты, с сохранением остатков */

  select PR.DOC_ID from PR_NEWDOC(20, 0, 0, 1, :CUT_DATE||' 00:00:00', 0) PR into DOC_ID;
  update docs d set docdate = :CUT_DATE||' 00:00:00', d.commitdate = :CUT_DATE||' 00:00:00' where id = :DOC_ID;

  --Определяем не нулевые партии на указанную дату, всех их оприходуем отдельным документом
  for select sum(QUANT), PART_ID
      from DOC_DETAIL DD
      left join DOCS D on D.ID = DD.DOC_ID
      where D.STATUS = 1 and
            DD.DOC_COMMITDATE < :CUT_DATE
      group by PART_ID
      having abs(sum(QUANT)) > 0
      into SUM_QUANT, :PART_ID
  do
  begin

    select PRICE, NAC, WARE_ID, PRICE_O, NDS, DEP, PART_TYPE, BASE_AGENT_ID from PARTS P
      where P.ID = :PART_ID
    into :PRICE, :NAC, :WARE_ID, :PRICE_O, :NDS, :DEP, :PART_TYPE, :BASE_AGENT_ID;

    insert into DOC_DETAIL_ACTIVE (DOC_ID, PART_ID, QUANT, PRICE, NAC, WARE_ID, PRICE_O, NDS, DEP, PART_TYPE, BASE_AGENT_ID)
    values (:DOC_ID, :PART_ID, :SUM_QUANT, :PRICE, :NAC, :WARE_ID, :PRICE_O, :NDS, :DEP, :PART_TYPE, :BASE_AGENT_ID);

  end

  --Обновляем некоторые поля в документе оприходования
  update DOC_DETAIL_ACTIVE
  set SUM_NDSO = QUANT * PRICE_O * NDS / (100 + NDS),
      SUM_NDSR = QUANT * PRICE * (select NDSR
                                  from DEPS
                                  where ID = DEP) / (100 + (select NDSR
                                                            from DEPS
                                                            where ID = DEP)),
      SUMMA_O = QUANT * PRICE_O,
      SUMMA = QUANT * PRICE,
      NAC = iif((PRICE_O <> 0), (PRICE - PRICE_O) * 100 / PRICE_O, 0)
  where DOC_ID = :DOC_ID;

  --Проводим документ оприходования
  execute procedure pr_doc_commit(:doc_id, 0);

  --Все документы и детализацию до указанной даты удаляем
  for select id from docs where commitdate < :CUT_DATE||' 00:00:00' into DOC_ID_DEL do
  begin
    update parts set doc_id = :doc_id where doc_id = :DOC_ID_DEL;
    delete from DOC_DETAIL_DELETED where doc_id = :DOC_ID_DEL;
    delete from DOC_DETAIL where doc_id = :DOC_ID_DEL;
    delete from DOC_PAYS where doc_id = :DOC_ID_DEL;
    delete from DOC_DETAIL_ACTIVE_MMBSH where doc_id = :DOC_ID_DEL;
    delete from SHIFT_DETAIL_KKM where doc_id = :DOC_ID_DEL;
    delete from DOC_DETAIL_ACTIVE where doc_id = :DOC_ID_DEL;
  end
  delete from docs d where commitdate < :CUT_DATE||' 00:00:00';

  --Чистим кассу
  select sum(summa) from cash_docs cd where cd.commitdate < :CUT_DATE||' 00:00:00' and status = 1 into :cd_summa;
  INSERT INTO CASH_DOCS (id, PARENT_ID, DOC_TYPE, STATUS, AGENT_ID, CAPTION, CREATESESSION_ID, COMMITSESSION_ID, COMMITDATE, SUMMA, INSERTDT, POSTDT)
   VALUES (-1, 0, iif(:cd_summa > 0, 19, 12), 1, 1, 'Корректировка кассы №1', 0, 0, :CUT_DATE||' 00:00:00', :cd_summa, current_timestamp, current_timestamp);
  delete from cash_docs cd where cd.commitdate < :CUT_DATE||' 00:00:00';


end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT EXECUTE ON PROCEDURE PR_NEWDOC TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE,UPDATE ON DOCS TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE ON DOC_DETAIL TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,UPDATE ON PARTS TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,INSERT,DELETE,UPDATE ON DOC_DETAIL_ACTIVE TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT ON DEPS TO PROCEDURE PR_CUTTER_DOCS;
GRANT EXECUTE ON PROCEDURE PR_DOC_COMMIT TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE ON DOC_DETAIL_DELETED TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE ON DOC_PAYS TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE ON DOC_DETAIL_ACTIVE_MMBSH TO PROCEDURE PR_CUTTER_DOCS;
GRANT SELECT,DELETE ON SHIFT_DETAIL_KKM TO PROCEDURE PR_CUTTER_DOCS;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_CUTTER_DOCS TO SYSDBA;

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

1. Отключить синхронизацию;
2. Создать резервную копию; 
3. Менеджер - зеленая стрелка (выполнить) - "Урезать(свернуть) базу на опреденную дату", ввести дату и запустить на выполнение;
4. Проверить остатки (например товарным отчетом);
5. Если все нормально, включить синхронизацию.

теги

Обрезка базы, обрезание базы
Источник — «http://wiki.standart-n.ru/index.php?title=Урезание_(свертка_базы)_на_определенную_дату&oldid=9583»