Урезание (свертка базы) на определенную дату — различия между версиями
Материал из wiki.standart-n.ru
Agk (обсуждение | вклад) (→Добавить ТМС(скрипт) в Менеджер) |
Agk (обсуждение | вклад) (→Добавить ТМС(скрипт) в Менеджер) |
||
| Строка 89: | Строка 89: | ||
m_manager.logit('5 из 7 Пересобираем остатки'); | m_manager.logit('5 из 7 Пересобираем остатки'); | ||
| − | query1:=ExecIBQuery(trn1,' | + | query1:=ExecIBQuery(trn1,'execute procedure DBGPR_MAKEWAREBASEFROMDOCS(0)',1); |
FREEIBQUERY(query1); | FREEIBQUERY(query1); | ||
| − | FREEIBTRANSACTION(trn1); | + | FREEIBTRANSACTION(trn1); |
trn1:=CREATEIBTRANSACTION; | trn1:=CREATEIBTRANSACTION; | ||
STARTIBTRANSACTION(trn1,1); | STARTIBTRANSACTION(trn1,1); | ||
| − | + | ||
m_manager.logit('6 из 7 Очищаем нулевые позиции'); | m_manager.logit('6 из 7 Очищаем нулевые позиции'); | ||
| − | query1:=ExecIBQuery(trn1,' | + | query1:=ExecIBQuery(trn1,'execute procedure DBGPR_CLEANWAREBASE',1); |
FREEIBQUERY(query1); | FREEIBQUERY(query1); | ||
FREEIBTRANSACTION(trn1); | FREEIBTRANSACTION(trn1); | ||
| Строка 105: | Строка 105: | ||
exit; | exit; | ||
end; | end; | ||
| − | |||
| − | |||
m_manager.logit('7 из 7 Операция успешно выполнена!'); | m_manager.logit('7 из 7 Операция успешно выполнена!'); | ||
| − | showmessage('Операция успешно выполнена!'); | + | showmessage('Операция успешно выполнена. Перезапустите программу Менеджер и проверьте остатки!'); |
| + | |||
end. | end. | ||
</pre> | </pre> | ||
Версия 18:52, 23 марта 2016
Добавить ТМС(скрипт) в Менеджер
Сервис - Подпрограммы - Общие - Создать "Урезать(сернуть) базу на опреденную дату" (тест скрипта ниже)
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);
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);
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);
FREEIBQUERY(query1);
FREEIBTRANSACTION(trn1);
trn1:=CREATEIBTRANSACTION;
STARTIBTRANSACTION(trn1,1);
m_manager.logit('5 из 7 Пересобираем остатки');
query1:=ExecIBQuery(trn1,'execute procedure DBGPR_MAKEWAREBASEFROMDOCS(0)',1);
FREEIBQUERY(query1);
FREEIBTRANSACTION(trn1);
trn1:=CREATEIBTRANSACTION;
STARTIBTRANSACTION(trn1,1);
m_manager.logit('6 из 7 Очищаем нулевые позиции');
query1:=ExecIBQuery(trn1,'execute procedure DBGPR_CLEANWAREBASE',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;
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';
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. Если все нормально, включить синхронизацию.
