Clearing Logging History
Sanjay Parbhoo
1-23-18
Hi

You are able to track history on a records using the logging control feature.


1. Is there a way purging this data?

2. Ideally you would want x amount of history (2 years possibly) and anything earlier can be removed. Has anyone done anything like this for a customer?

Thanks

Sanjay
Syntec Solutions
Siniša Peteh
9-11-18
external inner procedure CheckFlush(var Integer,Integer);

event startup
begin


SetLangMode(LangSlovenian,"ENG",0);

Maintenance("Delete history",DeleteHistVClass,DeleteHistMn,modTC);

return;

end;

event definewindows
begin
real x,h,h1,h2,h3,h4,h5,h6,h7,v,v2,l,vs,vm,f,t;

SetLangMode(LangSlovenian,"ENG",0);

WindowBegin("Delete history",DeleteHistVClass,CGMnt,RcType);
SetWRect(64,80,459,200);
EditFieldTL(100,6, 70,"Older than", M4Date,Normal,0,d1,false,PasteCurDate);
EndWindow;

return;
end;

global updating
procedure DeleteHistMn(record RcVc RepSpec)
begin
record RHistVc Recr;
Integer flushcnt;

while (LoopMain(Recr,0,true)) begin
if (blank(RepSpec.d1) or Recr.TransDate<=RepSpec.d1) then begin

RecordDelete(Recr);
StepBack(Recr);
CheckFlush(flushcnt,100);

end;
end;
return;
end;
Sanjay Parbhoo
9-21-18
Created bySiniša Peteh13:22 11 Sep 2018
external inner procedure CheckFlush(var Integer,Integer); event startup begin SetLangMode(LangSlovenian,"ENG",0); Maintenance("Delete history",DeleteHistVClass,DeleteHistMn,modTC); return; end; event definewindows begin real x,h,h1,h2,h3,h4
Thanks Siniša !
Leave Comment
You can subscribe to notifications for this post by selecting the 'star' icon on the top right corner of the post.
Back to the list
Latest Posts
Lilian Wanyoike
Hi, We have a customer who creates on account receipts against a customer account. Another team is required to allocate these receipts to specific invoice records. Prepayments will not work as t...
15:49 6 Oct 2025
Piotr Wycichowski
Hi! I am not able to run SERP client on Mac (Sonoma), when the folder is outside of Applications. When and why it happens? I know, that some users with the same system haven&apos;t such problem. ...
14:54 19 Sep 2025