BL.Sys.FOP.Common 1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TButton TCHUI.TButton TCHUI.TLijst TCHUI.TDataSetList %String %Boolean %String %String 1 2 3 4 5 6 7 ========================================================================================================================== METHODs . ========================================================================================================================== OVERWRITE - We wensen CreateControls zelfstandig op te roepen 1 Name,Caption,Top,Left,Height,Width,Font,FormType TCHUI.TControl DetailCaption:%String,lbID:%String %String DetailCaption:%String,QueryName:%String %String InResetMode:%Boolean ========================================================================================================================== EVENTs . ========================================================================================================================== 100) Do:(ShowProgressMsg) $$$CreateProgressFM(..Caption,"Bezig met openen...") For Loop=1:1:Count Do . Do:(ShowProgressMsg && (Loop#50=0)) $$$ChangeFMPB((Loop*100)\Count) . Set ID=$LI(..FlbID,Loop) . If ##class(FOP.DocRepo.PostProcOutData).%ExistsId(ID) Do .. Set objPostProcOutData=##class(FOP.DocRepo.PostProcOutData).%OpenId(ID) .. Set Klant=##class(Derde.Klant.Klant).GetFullName(objPostProcOutData.GetKlantNr()) .. Do Sender.SetData(Loop,$LB(objPostProcOutData.GetDocRef(),objPostProcOutData.GetKlantNr(),Klant,$$FormatNumber^vhLib(".",objPostProcOutData.NumOfPages),ID,objPostProcOutData.Status,0)) . Else Do .. Do Sender.SetData(Loop,$LB("(deleted "_ID_")","","","","","",0)) Do:(ShowProgressMsg) $$$DestroyFM ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis,Continue:%Boolean Sender:TCHUI.TControlBasis,KeyCode:%String