Re: Clearing Logging History
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;
Leave Comment
You can subscribe to notifications for this post by selecting the 'star' icon on the top right corner of the post.
Latest Posts
Bror-Erik Kotiranta
Clients have their own cache, and then the server has the shared cache, if you want it kind of black and white. Presense should be there as far as i know...
10:55 7 July 2025
Yavuz Yigiterhan
Hello Paul, That is something only HansaWorld can do. But that would help to understand is that causing the problem and - if so - we fix the issue. Additional information is appreciated. Yavuz...
10:45 7 July 2025