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;