Can anyone point me in the direction of a report or some code for creating and updating a progress bar for reports . TIA
have you tried to create your own and update it (it’s variable with the type of Dialog)?
quote:
have you tried to create your own and update it (it’s variable with the type of Dialog)?
Thats what I intend to do, but I need an example as I have never been asked to do one before, so I need a start point.
You can check for this in Report 29 - “Export Acc. Sched. to Excel” Gaurav
Hi Dean Have a look at Reports 296 “Batch Post Sales Header” or 193 “Issue Finance Charge Memo”
Hi Dean, Here is an example with contacts LDia_Indicator.OPEN(‘Link persons with company@1@@@@@@@@@@@@@@@’); /// you will need this line LInt_Count := 1; /// and this line LRec_Contact.SETRANGE(Type, LRec_Contact.Type::person); LInt_TotalRecs := LRec_Contact.COUNT; /// and this line IF LRec_Contact.FIND(’-’) THEN REPEAT LInt_Count := LInt_Count + 1; /// and this line LDia_Indicator.UPDATE(1,ROUND(9999 / (LInt_TotalRecs / LInt_Count),1)); /// and this line LRec_Contact.Company := ‘Test’; LRec_Contact.MODIFY; UNTIL LRec_Contact.NEXT = 0; LDia_Indicator.CLOSE; /// and this line Hope this helps, Wendy.
In fact it’s really easy: var rdialog : dialog; rtotalrecs : integer; RCounter : integer; onpredataitem begin CLEAR (Rdialog); rdialog.OPEN ('Progress : @1@@@@@@@@@@@@@@@@@@ '+ 'Record: #2################## '); totalrecs := COUNT; rcounter := 0; end; onaftergetrecord begin rcounter += 1; if (Totalrecs <>0) THEN rDialog.UPDATE(1,ROUND(rcounter * 10000 / Totalrecs,1)) else rdialog.UPDATE(1,0); RDialog.UPDATE(2,myrecord.Mykeyfield); end; onpostdataitem begin rdialog.CLOSE; CLEAR (RDialog); end;