Index: CHUI/Derde/EC/Logging/dlgStatistics.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Derde/EC/Logging/dlgStatistics.cls.xml (.../dlgStatistics.cls.xml) (revision 1074) +++ CHUI/Derde/EC/Logging/dlgStatistics.cls.xml (.../dlgStatistics.cls.xml) (revision 2578) @@ -3,8 +3,7 @@ BL.EC.Common 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -37,7 +36,7 @@ -%CHUI.TKader +TCHUI.TKader @@ -48,7 +47,7 @@ -%CHUI.TButton +TCHUI.TButton @@ -59,7 +58,7 @@ -%CHUI.TLijst +TCHUI.TLijst @@ -70,11 +69,11 @@ -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup @@ -85,7 +84,7 @@ -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -147,24 +146,24 @@ Do ..Center() //Labels - ;Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + ;Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) ;Set ..lblHeader.Sizing=$$$lsFixed ;Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblTimeInterval","Weergave:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblSortGrouping","Groepering:",4,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblTimeInterval","Weergave:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblSortGrouping","Groepering:",4,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain","",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain","",1,1,..Height,..Width,10,,,) Set ..kdrMain.Fill=0 Set ..CaptionControl=..kdrMain //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,..Width-10,,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,..Width-10,,9,,,,,$$$alCenter) Set ..btnClose.OnClick=$LB(%this,"btnCloseClick") //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstStat","lstStat",6,3,16,..Width-4) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstStat","lstStat",6,3,16,..Width-4) Set rdHeaderlstStat=..lstStat.CreateRowDef("rdHeaderlstStat",,$LB($$$clBlue,$$$clMedDark)) Do ..lstStat.AddLabelToRowDef(rdHeaderlstStat,16,"Datum",1) @@ -186,7 +185,7 @@ Do ..lstStat.AddLabelDBToRowDef(rdRowlstStat,..#colCntIntern,5,$$$alRight) //Popups - Set ..pmTimeInterval=##class(%CHUI.TPopup).Create(%this,"pmTimeInterval","",3,15,,16) + Set ..pmTimeInterval=##class(TCHUI.TPopup).Create(%this,"pmTimeInterval","",3,15,,16) Set ..pmTimeInterval.opDefaultContextMenu=0 Do ..pmTimeInterval.InitSpec(,,,10) Do ..pmTimeInterval.AddItem($$$tiDaily,"Dagelijks") @@ -195,7 +194,7 @@ Set ..pmTimeInterval.OnLostFocus=$LB(%this,"pmTimeIntervalLostFocus") Set ..pmTimeInterval.Value=$$$tiHourly - Set ..pmSortGrouping=##class(%CHUI.TPopup).Create(%this,"pmSortGrouping","",4,15,,16) + Set ..pmSortGrouping=##class(TCHUI.TPopup).Create(%this,"pmSortGrouping","",4,15,,16) Set ..pmSortGrouping.opDefaultContextMenu=0 Do ..pmSortGrouping.InitSpec(,,,10) Do ..pmSortGrouping.AddItem($$$statReq,"Request") @@ -207,7 +206,7 @@ Set ..pmSortGrouping.Value=$$$statReq //DataSetLists - Set ..dslStat=##class(%CHUI.TDataSetList).Create(..lstStat,"dslStat") + Set ..dslStat=##class(TCHUI.TDataSetList).Create(..lstStat,"dslStat") Do ..dslStat.AddColDef(..#colTime,$$$rsList) Do ..dslStat.AddColDef(..#colDate,$$$rsList) Do ..dslStat.AddColDef(..#colCntKlanten,$$$rsList) @@ -227,13 +226,13 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -219,21 +218,21 @@ Set ..OnShow=$LB(%this,"FormOnShow") ;Actions - ;Set ..acUpdate=##class(%CHUI.TAction).Create(%this, "acUpdate", "Update", 1, $LB("U"), $LB(%this,"acUpdateClick")) - Set ..acClose=##class(%CHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) - Set ..acChangeDate=##class(%CHUI.TAction).Create(%this, "acChangeDate", "Change", 1, $LB("C"), $LB(%this,"acChangeDateClick")) - Set ..acPreviousDate=##class(%CHUI.TAction).Create(%this, "acPreviousDate", "PrevDate", 1, $LB("("), $LB(%this,"acPreviousDateClick")) - Set ..acNextDate=##class(%CHUI.TAction).Create(%this, "acNextDate", "NextDate", 1, $LB(")"), $LB(%this,"acNextDateClick")) - Set ..acGeoDetail=##class(%CHUI.TAction).Create(%this, "acGeoDetail", "GeoDetail", 1, $LB("G","D"), $LB(%this,"acGeoDetailClick")) - Set ..acRemoveProximity=##class(%CHUI.TAction).Create(%this, "acRemoveProximity", "Verwijder proximity lookup", 1, , $LB(%this,"acRemoveProximityClick")) - Set ..acSetPrive=##class(%CHUI.TAction).Create(%this, "acSetPrive", "Markeer als Prive", 1, , $LB(%this,"acSetPriveClick")) + ;Set ..acUpdate=##class(TCHUI.TAction).Create(%this, "acUpdate", "Update", 1, $LB("U"), $LB(%this,"acUpdateClick")) + Set ..acClose=##class(TCHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) + Set ..acChangeDate=##class(TCHUI.TAction).Create(%this, "acChangeDate", "Change", 1, $LB("C"), $LB(%this,"acChangeDateClick")) + Set ..acPreviousDate=##class(TCHUI.TAction).Create(%this, "acPreviousDate", "PrevDate", 1, $LB("("), $LB(%this,"acPreviousDateClick")) + Set ..acNextDate=##class(TCHUI.TAction).Create(%this, "acNextDate", "NextDate", 1, $LB(")"), $LB(%this,"acNextDateClick")) + Set ..acGeoDetail=##class(TCHUI.TAction).Create(%this, "acGeoDetail", "GeoDetail", 1, $LB("G","D"), $LB(%this,"acGeoDetailClick")) + Set ..acRemoveProximity=##class(TCHUI.TAction).Create(%this, "acRemoveProximity", "Verwijder proximity lookup", 1, , $LB(%this,"acRemoveProximityClick")) + Set ..acSetPrive=##class(TCHUI.TAction).Create(%this, "acSetPrive", "Markeer als Prive", 1, , $LB(%this,"acSetPriveClick")) ;Label header - Set ..lblHeader=##class(%CHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Set ..lblHeader=##class(TCHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed - Set ..lblUserLabel=##class(%CHUI.TLabel).Create(%this,"lblUserLabel","Gebruiker:",3,5,1) - Set ..poUser=##class(%CHUI.TPopup).Create(%this,"poUser","Gebruiker",3,16,1,30,,,,) + Set ..lblUserLabel=##class(TCHUI.TLabel).Create(%this,"lblUserLabel","Gebruiker:",3,5,1) + Set ..poUser=##class(TCHUI.TPopup).Create(%this,"poUser","Gebruiker",3,16,1,30,,,,) Set ..poUser.opDefaultContextMenu=0 Do ..poUser.InitSpec(,,,3) ; Ophalen van de GeoUsers @@ -247,23 +246,23 @@ Set ..poUser.Selected=$LB(..pBLAgenda.User.%Id()) Set ..poUser.OnLostFocus=$LB(%this,"poUserOnLostFocus") - Set ..lblDateLabel=##class(%CHUI.TLabel).Create(%this,"lblDateLabel","Datum:",4,9,1) - Set ..lblDate=##class(%CHUI.TLabel).Create(%this,"lblDate",$$FormatDateTime^vhLib("Ddd dd-mm-jj",..CurrentDate),4,16,1,14,,,,$LB(,,$$$fsNoUnderline)) + Set ..lblDateLabel=##class(TCHUI.TLabel).Create(%this,"lblDateLabel","Datum:",4,9,1) + Set ..lblDate=##class(TCHUI.TLabel).Create(%this,"lblDate",$$FormatDateTime^vhLib("Ddd dd-mm-jj",..CurrentDate),4,16,1,14,,,,$LB(,,$$$fsNoUnderline)) - Set ..btnChangeDate=##class(%CHUI.TButton).Create(%this,"btnChangeDate","Change",4,..lblDate.Left+14,1,10,,,,,$$$alCenter) + Set ..btnChangeDate=##class(TCHUI.TButton).Create(%this,"btnChangeDate","Change",4,..lblDate.Left+14,1,10,,,,,$$$alCenter) Set ..btnChangeDate.Action=..acChangeDate ;Button update - ;Set ..btnUpdate=##class(%CHUI.TButton).Create(%this,"btnUpdate","Update",3,..Width-13,1,9,,,,,$$$alCenter) + ;Set ..btnUpdate=##class(TCHUI.TButton).Create(%this,"btnUpdate","Update",3,..Width-13,1,9,,,,,$$$alCenter) ;Set ..btnUpdate.Action=..acUpdate ;Button close - Set ..btnClose=##class(%CHUI.TButton).Create(%this,"btnClose","Sluiten",4,..Width-13,1,9,,,,,$$$alCenter) + Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",4,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose - Set ..btnRemoveProximity=##class(%CHUI.TButton).Create(%this,"btnRemoveProximity","DelProx",3,55,1,10,,,,,$$$alCenter) + Set ..btnRemoveProximity=##class(TCHUI.TButton).Create(%this,"btnRemoveProximity","DelProx",3,55,1,10,,,,,$$$alCenter) Set ..btnRemoveProximity.Action=..acRemoveProximity - Set ..btnSetPrive=##class(%CHUI.TButton).Create(%this,"btnSetPRive","Prive",4,55,1,10,,,,,$$$alCenter) + Set ..btnSetPrive=##class(TCHUI.TButton).Create(%this,"btnSetPRive","Prive",4,55,1,10,,,,,$$$alCenter) Set ..btnSetPrive.Action=..acSetPrive ;Tab & paint order @@ -274,7 +273,7 @@ - + - + Sender + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis BL.Derde.Kennis,CHUI.KB 1 -%CHUI.TForm -0 +TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TMemo +TCHUI.TMemo -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -117,38 +116,38 @@ Set ..Caption=..GetFormTitle("Zoekresultaten") //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("-")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("-")) Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acCriterion","Criterion",1,$LB("C")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCriterion","Criterion",1,$LB("C")) Set ..acCriterion.OnExecute=$LB(%this,"acCriterionExecute") - Do ##class(%CHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) Set ..acSelect.OnExecute=$LB(%this,"acSelectExecute") - Do ##class(%CHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1)) + Do ##class(TCHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1)) Set ..acNew.OnExecute=$LB(%this,"acNew") - Do ##class(%CHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K")) Set ..acRaadpleegKlant.OnExecute=$LB(%this,"acRaadpleegKlantClick") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,%Screen.Width,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,%Screen.Width,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCriterion","Criteria",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCriterion","Criteria",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Afsluiten",5,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Afsluiten",5,66,,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCriterion","Criteria...",3,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCriterion","Criteria...",3,66,,13,,,,,$$$alCenter) Set ..btnCriterion.Action=..acCriterion - Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",3,51,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",3,51,,13,,,,,$$$alCenter) Set ..btnNew.Action=..acNew //Memos - Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoCriterion","",3,13,4,33) + Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoCriterion","",3,13,4,33) Do ..mmoCriterion.InitSpec() //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstResult","",8,3,%Screen.Height-8,%Screen.Width-4) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstResult","",8,3,%Screen.Height-8,%Screen.Width-4) Set rdMain=..lstResult.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark)) Set rdMain.Height=4 @@ -162,7 +161,7 @@ Do ..lstResult.AddLabelDBToRowDef(rdMain,..#colMsg,..lstResult.Width,,,,$LB($$$clBlack,$$$clLight),,3,2,1) //DataSetLists - Set ..dslResult=##class(%CHUI.TDataSetList).Create(..lstResult,"dslResult") + Set ..dslResult=##class(TCHUI.TDataSetList).Create(..lstResult,"dslResult") Set ..dslResult.OnQueryInit=$LB(%this,"dslResultQueryInit") Do ..dslResult.AddColDef(..#colCreationDateAndTime,$$$rsList,1) Do ..dslResult.AddColDef(..#colKlant,$$$rsList,2) @@ -338,13 +337,13 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,ResultStr:%String +Sender:TCHUI.TControlBasis,ResultStr:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis D ##class(CHUI.Flow.Order.LeverwekenMain).Run() 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList ACTIES -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -105,43 +104,41 @@ Invoke In te vullen door de GUI applicatie -code -code -Sender:%CHUI.TControl +Sender:TCHUI.TControl @@ -210,7 +207,7 @@ -Sender:%CHUI.TControl +Sender:TCHUI.TControl BL.EC.Common 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel @@ -29,35 +28,35 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -68,35 +67,35 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -107,7 +106,7 @@ -%CHUI.TCheckBox +TCHUI.TCheckBox @@ -118,7 +117,7 @@ -%CHUI.TLijst +TCHUI.TLijst @@ -129,7 +128,7 @@ -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -162,23 +161,23 @@ -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem @@ -263,49 +262,49 @@ //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acOpen","",1,$LB("O")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acOpen","",1,$LB("O")) Set ..acOpen.OnExecute=$LB(%this,"acOpenExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","",1,$LB("-")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","",1,$LB("-")) Set ..acClose.OnExecute=$LB(%this,"acCloseExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acDelete","",1,$LB("V",$$$kcDelete)) + Do ##class(TCHUI.TAction).CreateSet(%this,"acDelete","",1,$LB("V",$$$kcDelete)) Set ..acDelete.OnExecute=$LB(%this,"acDeleteExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acShowPassword","",1,$LB("T")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acShowPassword","",1,$LB("T")) Set ..acShowPassword.OnExecute=$LB(%this,"acShowPasswordExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acMailPassword","",1,$LB("M")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acMailPassword","",1,$LB("M")) Set ..acMailPassword.OnExecute=$LB(%this,"acMailPasswordExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acNew","",1,$LB("N",$$$kcF4)) + Do ##class(TCHUI.TAction).CreateSet(%this,"acNew","",1,$LB("N",$$$kcF4)) Set ..acNew.OnExecute=$LB(%this,"acNewExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acLogging","",1,$LB("L")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acLogging","",1,$LB("L")) Set ..acLogging.OnExecute=$LB(%this,"acLoggingExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acStatistics","",1,$LB("S")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acStatistics","",1,$LB("S")) Set ..acStatistics.OnExecute=$LB(%this,"acStatisticsExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader //CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkShowActiveOnly","Toon enkel actieve gebruikers",21,3,,33) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkShowActiveOnly","Toon enkel actieve gebruikers",21,3,,33) Set ..chkShowActiveOnly.Checked=1 Set ..chkShowActiveOnly.OnChanged=$LB(%this,"chkShowActiveOnlyChanged") //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",23,3,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",23,3,,11,,,,,$$$alCenter) Set ..btnNew.Action=..acNew - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOpen","Openen",23,15,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOpen","Openen",23,15,,10,,,,,$$$alCenter) Set ..btnOpen.Action=..acOpen - Do ##class(%CHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",23,26,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",23,26,,13,,,,,$$$alCenter) Set ..btnDelete.Action=..acDelete - Do ##class(%CHUI.TButton).CreateSet(%this,"btnShowPassword","Toon pwd",23,42,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnShowPassword","Toon pwd",23,42,,10,,,,,$$$alCenter) Set ..btnShowPassword.Action=..acShowPassword - Do ##class(%CHUI.TButton).CreateSet(%this,"btnMailPassword","Mail pwd",21,42,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnMailPassword","Mail pwd",21,42,,10,,,,,$$$alCenter) Set ..btnMailPassword.Action=..acMailPassword - Do ##class(%CHUI.TButton).CreateSet(%this,"btnLogging","Logging",21,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnLogging","Logging",21,68,,11,,,,,$$$alCenter) Set ..btnLogging.Action=..acLogging - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Afsluiten",23,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Afsluiten",23,68,,11,,,,,$$$alCenter) Set ..btnClose.Action=..acClose - Do ##class(%CHUI.TButton).CreateSet(%this,"btnStatistics","Statistiek",23,54,,12,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnStatistics","Statistiek",23,54,,12,,,,,$$$alCenter) Set ..btnStatistics.Action=..acStatistics //HoofdMenuItem @@ -326,7 +325,7 @@ Set ..miSortViaLastLogin=hmiExtra.AddItem(%this,"miSortViaLastLogin","Last login",1,,$LB(%this,"miSortViaXClick"),,"OrderBy") //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstToegang","Toegang",3,1,17,79) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstToegang","Toegang",3,1,17,79) Set ..lstToegang.OnKeyPress=$LB(%this,"lstToegangKeyPress") Do ..lstToegang.AddSearchCol(..#colKlantNr,"Klantnummer") Do ..lstToegang.AddSearchCol(..#colKlantName,"Klantnaam") @@ -358,7 +357,7 @@ Do ..lstToegang.AddLabelDBToRowDef(rdRowlstToegang,..#colLastLoginTijdStip) //DataSetLists - Set ..dslToegang=##class(%CHUI.TDataSetList).Create(..lstToegang,"dslToegang") + Set ..dslToegang=##class(TCHUI.TDataSetList).Create(..lstToegang,"dslToegang") Do ..dslToegang.AddColDef(..#colID) Do ..dslToegang.AddColDef(..#colKlantName) Do ..dslToegang.AddColDef(..#colMeerdereKlantenStr) @@ -426,7 +425,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== - + -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TPolyKader +TCHUI.TPolyKader -%CHUI.TScrollBar +TCHUI.TScrollBar -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TLabel +TCHUI.TLabel @@ -68,35 +67,35 @@ 0 @@ -109,9 +108,9 @@ 1 BL.Derde.Kennis,CHUI.KB 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel @@ -29,11 +28,11 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -44,7 +43,7 @@ -%CHUI.TButton +TCHUI.TButton @@ -55,7 +54,7 @@ -%CHUI.TLijst +TCHUI.TLijst @@ -66,7 +65,7 @@ -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -114,22 +113,22 @@ Set ..Caption=..GetFormTitle("Acties") //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-")) Set ..acClose.OnExecute=$LB(%this,"acCloseExecute") - Do ##class(%CHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) Set ..acSelect.OnExecute=$LB(%this,"acSelectExecute") //Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter) Set ..btnClose.Action=..acClose //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstAction","Action",3,3,%Screen.Height-5,%Screen.Width-4) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstAction","Action",3,3,%Screen.Height-5,%Screen.Width-4) Set ..lstAction.OnKeyPress=$LB(%this,"lstActionKeyPress") Set rdHeaderlstAction=..lstAction.CreateRowDef("rdHeaderlstAction",$$$ftAddLijstHeader) @@ -159,7 +158,7 @@ Do ..lstAction.AddLabelDBToRowDef(rdRowlstAction,..#colPropDiffs) //DataSetLists - Set ..dslAction=##class(%CHUI.TDataSetList).Create(..lstAction,"dslAction") + Set ..dslAction=##class(TCHUI.TDataSetList).Create(..lstAction,"dslAction") Do ..dslAction.AddColDef(..#colKennisIDShow,$$$rsList,1) Do ..dslAction.AddColDef(..#colActionType,$$$rsList,2) Do ..dslAction.AddColDef(..#colUser,$$$rsList,3) @@ -204,7 +203,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,ResultStr:%String +Sender:TCHUI.TControlBasis,ResultStr:%String BL.Derde.Kennis,CHUI.KB 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel @@ -29,11 +28,11 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -44,7 +43,7 @@ -%CHUI.TButton +TCHUI.TButton @@ -55,7 +54,7 @@ -%CHUI.TLijst +TCHUI.TLijst @@ -66,7 +65,7 @@ -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -119,21 +118,21 @@ Set ..Caption=..GetFormTitle("Historiek") //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-"),$LB(%this,"acCloseExecute")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("-"),$LB(%this,"acCloseExecute")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acSelect", "Select", 1, $LB("S")) Set ..acSelect.OnExecute=$LB(%this,"acSelectExecute") //Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",23,68,,11,,,,,$$$alCenter) Set ..btnClose.Action=..acClose //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstHistory","History",3,3,19,76) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstHistory","History",3,3,19,76) Set rdMain=..lstHistory.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark)) Set rdMain.Height=4 @@ -146,7 +145,7 @@ Do ..lstHistory.AddLabelDBToRowDef(rdMain,..#colMsg,..lstHistory.Width,,,,$LB($$$clBlack,$$$clLight),,3,2,1) //DataSetLists - Set ..dslHistory=##class(%CHUI.TDataSetList).Create(..lstHistory,"dslHistory") + Set ..dslHistory=##class(TCHUI.TDataSetList).Create(..lstHistory,"dslHistory") Set ..dslHistory.OnQueryInit=$LB(%this,"dslHistoryQueryInit") Do ..dslHistory.AddColDef(..#colCreationDateAndTime,$$$rsList,1) Do ..dslHistory.AddColDef(..#colCreationUser,$$$rsList,2) @@ -193,7 +192,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,ResultStr:%String +Sender:TCHUI.TControlBasis,ResultStr:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: vhDeploy/JCL/Deploy20111030x1004.cls.xml =================================================================== diff -u --- vhDeploy/JCL/Deploy20111030x1004.cls.xml (revision 0) +++ vhDeploy/JCL/Deploy20111030x1004.cls.xml (revision 2578) @@ -0,0 +1,20 @@ + + + +1 +svn.Deploy +0 + + +Aanpassen %CHUI menu verwijzingen + + + +1 + + + + Index: CHUI/FOP/Print/dlgAddendumTmp.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/FOP/Print/dlgAddendumTmp.cls.xml (.../dlgAddendumTmp.cls.xml) (revision 1074) +++ CHUI/FOP/Print/dlgAddendumTmp.cls.xml (.../dlgAddendumTmp.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -56,9 +55,9 @@ . Set TaalInSelectedPos=$LF(lbSelected,Taal) . Set SelectedTraysAsBits=$$IntToBits^vhLib($S(TaalInSelectedPos>0:$LI(lbSelected,TaalInSelectedPos+1),1:0)) . For TrayLoop=1:1:..#cntNrOfTrays Do - .. Do ##class(%CHUI.TLabel).Create(%this,"lblTray"_TrayLoop,"Tray "_TrayLoop,3,10+(TrayLoop*10),,,,,,$LB(,,$$$fsUnderline)) + .. Do ##class(TCHUI.TLabel).Create(%this,"lblTray"_TrayLoop,"Tray "_TrayLoop,3,10+(TrayLoop*10),,,,,,$LB(,,$$$fsUnderline)) .. Set TabNr=TabNr+1 - .. Set CheckBox=##class(%CHUI.TCheckBox).Create(%this,"chkTray"_TrayLoop_Taal,"",Top,11+(TrayLoop*10),,,TabNr,TabNr) + .. Set CheckBox=##class(TCHUI.TCheckBox).Create(%this,"chkTray"_TrayLoop_Taal,"",Top,11+(TrayLoop*10),,,TabNr,TabNr) .. Set CheckBox.Tag=$LB(Taal,$$IntToBits^vhLib(2**(TrayLoop-1))) ;bit selectie tray1=1, tray2=2, tray3=4, tray4=8 .. Set CheckBox.Checked=$BIT(SelectedTraysAsBits,TrayLoop) @@ -83,22 +82,22 @@ Set ..Caption="Addendum toevoegen" //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..kdrMain.Anchors=$$$aksClient Set ..CaptionControl=..kdrMain //Line - Set ..lnSep=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) + Set ..lnSep=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) Set ..lnSep.Anchors=$$$aksBottom //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) //Buttons - Set ..btnCancel=##class(%CHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) + Set ..btnCancel=##class(TCHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel Set ..btnCancel.Anchors=$LB($$$akRight,$$$akBottom) - Set ..btnOk=##class(%CHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) + Set ..btnOk=##class(TCHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) Set ..btnOk.ModalResult=$$$mrOk Set ..btnOk.Anchors=$LB($$$akRight,$$$akBottom) Index: CHUI/EC/Logging.mac.rou =================================================================== diff -u -r1156 -r2578 --- CHUI/EC/Logging.mac.rou (.../Logging.mac.rou) (revision 1156) +++ CHUI/EC/Logging.mac.rou (.../Logging.mac.rou) (revision 2578) @@ -1,11 +1,11 @@ Start - #Include %CHUI.System + #Include TCHUI.System - Set %Application=##class(%CHUI.TApplication).Create() + Set %Application=##class(TCHUI.TApplication).Create() Do:($G(%CHUIDebug)) %Application.AttachDebugEvents() - Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520) - Set %Input=##class(%CHUI.TInput).Create() + Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520) + Set %Input=##class(TCHUI.TInput).Create() Do %Screen.Clear() ;Check of de ingelogde gebruiker bekend is... Index: CHUI/MB/Auto/CC/MainForm.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/MB/Auto/CC/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1074) +++ CHUI/MB/Auto/CC/MainForm.cls.xml (.../MainForm.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -60,23 +59,23 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -87,19 +86,19 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -110,23 +109,23 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -137,23 +136,23 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -164,15 +163,15 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -183,19 +182,19 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -206,19 +205,19 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -229,19 +228,19 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -252,19 +251,19 @@ -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox @@ -275,39 +274,39 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -318,7 +317,7 @@ -%CHUI.TPopup +TCHUI.TPopup @@ -329,23 +328,23 @@ -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn @@ -371,137 +370,137 @@ Set ..Caption="AutoCC - Definitie" //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acSummary","Ovz. AutoCC",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acSummary","Ovz. AutoCC",1,$LB("")) Set ..acSummary.OnExecute=$LB(%this,"acSummaryExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acTellingen","Ovz. geteld",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acTellingen","Ovz. geteld",1,$LB("")) Set ..acTellingen.OnExecute=$LB(%this,"acTellingenExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Sluiten",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Sluiten",1,$LB("")) Set ..acClose.OnExecute=$LB(%this,"acCloseExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) Set ..acZetAutoCC.OnExecute=$LB(%this,"acZetAutoCCExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acWisAutoCC","Wis auto CC",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acWisAutoCC","Wis auto CC",1,$LB("")) Set ..acWisAutoCC.OnExecute=$LB(%this,"acWisAutoCCExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acDefault","Default",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acDefault","Default",1,$LB("")) Set ..acDefault.OnExecute=$LB(%this,"acDefaultExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acWisAutoCCAlles","Wis auto CC alles",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acWisAutoCCAlles","Wis auto CC alles",1,$LB("")) Set ..acWisAutoCCAlles.OnExecute=$LB(%this,"acWisAutoCCAllesExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acZetAutoCCByPos","Zet auto CC alles",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acZetAutoCCByPos","Zet auto CC alles",1,$LB("")) Set ..acZetAutoCCByPos.OnExecute=$LB(%this,"acZetAutoCCByPos") - Do ##class(%CHUI.TAction).CreateSet(%this,"acZendEMPTY","Zend EMPTY naar Pickpost 2",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acZendEMPTY","Zend EMPTY naar Pickpost 2",1,$LB("")) Set ..acZendEMPTY.OnExecute=$LB(%this,"acZendEMPTYExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) ; Labels Groep 1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB1AantalBewegingen","#bewegingen >=",6,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB1DagenGeenCC","#dagen geen CC",7,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB1Prioriteit","Prioriteit:",6,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB1AantalBewegingen","#bewegingen >=",6,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB1DagenGeenCC","#dagen geen CC",7,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB1Prioriteit","Prioriteit:",6,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) ; Labels Groep 2 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB2Weken","weken",12,28,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB2Levensduur","levensduur >=",12,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB2DagenGeenCC","#dagen geen CC",11,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB2AantalBewegingen","#bewegingen >=",10,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB2Prioriteit","Prioriteit:",10,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB2Weken","weken",12,28,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB2Levensduur","levensduur >=",12,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB2DagenGeenCC","#dagen geen CC",11,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB2AantalBewegingen","#bewegingen >=",10,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB2Prioriteit","Prioriteit:",10,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) ; Labels Groep 3 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB3Weken","weken",17,28,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB3Levensduur","levensduur >=",17,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB3DagenGeenCC","#dagen geen CC",16,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB3AantalBewegingen","#bewegingen >=",15,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVPB3Prioriteit","Prioriteit:",15,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB3Weken","weken",17,28,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB3Levensduur","levensduur >=",17,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB3DagenGeenCC","#dagen geen CC",16,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB3AantalBewegingen","#bewegingen >=",15,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVPB3Prioriteit","Prioriteit:",15,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) ; - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblBVAantalBewegingen","#bewegingen",20,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblBVAantalBewegingen","#bewegingen",20,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblBVGemVerkoop","#gem verkoop <",21,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblBVPrioriteit","Prioriteit:",20,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblBVGemVerkoop","#gem verkoop <",21,7,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblBVPrioriteit","Prioriteit:",20,42,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Lines - Set ..lnVPB1=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB1",5,3,76) - Set ..lnVPB2=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB2",9,3,60) - Set ..lnVPB3=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB3",14,3,60) - Set ..lnBV=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBV",19,3,60) - Set ..lnA=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnA",23,3,76) + Set ..lnVPB1=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB1",5,3,76) + Set ..lnVPB2=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB2",9,3,60) + Set ..lnVPB3=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnVPB3",14,3,60) + Set ..lnBV=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBV",19,3,60) + Set ..lnA=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnA",23,3,76) //Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB1AantalBewegingen","",6,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB1AantalBewegingen","",6,22,,5,$$$alRight) Set ..txtVPB1AantalBewegingen.MinValue=0 Set ..txtVPB1AantalBewegingen.MaxValue=200 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB1DagenGeenCC","",7,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB1DagenGeenCC","",7,22,,5,$$$alRight) Set ..txtVPB1DagenGeenCC.MinValue=0 Set ..txtVPB1DagenGeenCC.MaxValue=366 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB1Prioriteit","0",6,54,,3,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB1Prioriteit","0",6,54,,3,$$$alRight) Set ..txtVPB1Prioriteit.MinValue=1 Set ..txtVPB1Prioriteit.MaxValue=9 ; - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB2AantalBewegingen","",10,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2AantalBewegingen","",10,22,,5,$$$alRight) Set ..txtVPB1AantalBewegingen.MinValue=0 Set ..txtVPB1AantalBewegingen.MaxValue=200 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB2DagenGeenCC","",11,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2DagenGeenCC","",11,22,,5,$$$alRight) Set ..txtVPB2DagenGeenCC.MinValue=0 Set ..txtVPB2DagenGeenCC.MaxValue=366 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB2Levensduur","",12,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2Levensduur","",12,22,,5,$$$alRight) Set ..txtVPB2Levensduur.MinValue=0 Set ..txtVPB2Levensduur.MaxValue=56 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB2Prioriteit","0",10,54,,3,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2Prioriteit","0",10,54,,3,$$$alRight) Set ..txtVPB1Prioriteit.MinValue=1 Set ..txtVPB1Prioriteit.MaxValue=9 ; - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB3AantalBewegingen","",15,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3AantalBewegingen","",15,22,,5,$$$alRight) Set ..txtVPB3AantalBewegingen.MinValue=0 Set ..txtVPB3AantalBewegingen.MaxValue=200 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB3DagenGeenCC","",16,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3DagenGeenCC","",16,22,,5,$$$alRight) Set ..txtVPB3DagenGeenCC.MinValue=0 Set ..txtVPB3DagenGeenCC.MaxValue=366 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB3Levensduur","",17,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3Levensduur","",17,22,,5,$$$alRight) Set ..txtVPB3Levensduur.MinValue=0 Set ..txtVPB3Levensduur.MaxValue=56 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtVPB3Prioriteit","0",15,54,,3,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3Prioriteit","0",15,54,,3,$$$alRight) Set ..txtVPB3Prioriteit.MinValue=1 Set ..txtVPB3Prioriteit.MaxValue=9 ; - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtBVAantalBewegingen","",20,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtBVAantalBewegingen","",20,22,,5,$$$alRight) Set ..txtBVAantalBewegingen.MinValue=0 Set ..txtBVAantalBewegingen.MaxValue=200 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtBVGemVerkoop","",21,22,,5,$$$alRight) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtBVPrioriteit","0",20,54,,3,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtBVGemVerkoop","",21,22,,5,$$$alRight) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtBVPrioriteit","0",20,54,,3,$$$alRight) Set ..txtBVPrioriteit.MinValue=1 Set ..txtBVPrioriteit.MaxValue=9 //CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging1","Volgens pallet beweging - lage prioriteit",5,5,,27) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging1","Volgens pallet beweging - lage prioriteit",5,5,,27) Set ..chkVolgensPalletBeweging1.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging2","Volgens pallet beweging - midden prioriteit",9,5,,27) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging2","Volgens pallet beweging - midden prioriteit",9,5,,27) Set ..chkVolgensPalletBeweging2.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging3","Volgens pallet beweging - hoge prioriteit",14,5,,27) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging3","Volgens pallet beweging - hoge prioriteit",14,5,,27) Set ..chkVolgensPalletBeweging3.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkBeperkteVoorraad","Beperkte voorraad",19,5,,21) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkBeperkteVoorraad","Beperkte voorraad",19,5,,21) Set ..chkBeperkteVoorraad.Checked=0 //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,68,,11,,,,,$$$alCenter) Set ..btnClose.Action=..acClose - Do ##class(%CHUI.TButton).CreateSet(%this,"btnSummary","Ovz. instel",3,54,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnSummary","Ovz. instel",3,54,,13,,,,,$$$alCenter) Set ..btnSummary.Action=..acSummary - Do ##class(%CHUI.TButton).CreateSet(%this,"btnTellingen","Ovz. geteld",3,40,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnTellingen","Ovz. geteld",3,40,,13,,,,,$$$alCenter) Set ..btnTellingen.Action=..acTellingen - Do ##class(%CHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",6,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",6,66,,13,,,,,$$$alCenter) Set ..btnZetAutoCC.Action=..acZetAutoCC - Do ##class(%CHUI.TButton).CreateSet(%this,"btnWisAutoCC","Wis auto CC",7,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnWisAutoCC","Wis auto CC",7,66,,13,,,,,$$$alCenter) Set ..btnWisAutoCC.Action=..acWisAutoCC - Do ##class(%CHUI.TButton).CreateSet(%this,"btnDefault","Default",8,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnDefault","Default",8,66,,13,,,,,$$$alCenter) Set ..btnDefault.Action=..acDefault - Do ##class(%CHUI.TButton).CreateSet(%this,"btnZendEMPTY","Zend EMPTY naar Pickpost 2",24,3,,28,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnZendEMPTY","Zend EMPTY naar Pickpost 2",24,3,,28,,,,,$$$alCenter) Set ..btnZendEMPTY.Action=..acZendEMPTY - Do ##class(%CHUI.TButton).CreateSet(%this,"btnZetAutoCCByPos","Zet auto CC positie",24,35,,21,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCCByPos","Zet auto CC positie",24,35,,21,,,,,$$$alCenter) Set ..btnZetAutoCCByPos.Action=..acZetAutoCCByPos - Do ##class(%CHUI.TButton).CreateSet(%this,"btnWisAutoCCAlles","Wis auto CC alles",24,60,,19,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnWisAutoCCAlles","Wis auto CC alles",24,60,,19,,,,,$$$alCenter) Set ..btnWisAutoCCAlles.Action=..acWisAutoCCAlles //Popups - Set ..pmMagazijn=##class(%CHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,13,,12) + Set ..pmMagazijn=##class(TCHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,13,,12) Do ..pmMagazijn.InitSpec(,,,10) Do ..pmMagazijn.AddItem("1","Auto") Do ..pmMagazijn.DefaultFrames() @@ -542,7 +541,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TButton +TCHUI.TButton -%CHUI.TLijst +TCHUI.TLijst @@ -46,11 +45,11 @@ -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TFrame +TCHUI.TFrame @@ -68,10 +67,10 @@ Set ..Caption="NewApplication" //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnButton1","Button1",21,66,,7,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnButton1","Button1",21,66,,7,,,,,$$$alCenter) Set ..btnButton1.OnClick=$LB(%this,"btnButton1Click") //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstTest","Test",2,2,19,40) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstTest","Test",2,2,19,40) /* Set ..rdSpecTree=..lstTest.CreateRowDef("SpecTree",$$$ftAddLijstRow) @@ -92,7 +91,7 @@ //Do ..lstTest.Refresh() //Popup - Set ..pmTest=##class(%CHUI.TPopup).Create(%this,"pmTest","Test",4,50,5,20) + Set ..pmTest=##class(TCHUI.TPopup).Create(%this,"pmTest","Test",4,50,5,20) Set ..pmTest.opMultiSelect=1 Do ..pmTest.BecomeTreeView(,,5) @@ -140,7 +139,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis,ResultStr:%String +Sender:TCHUI.TControlBasis,ResultStr:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -11,59 +11,59 @@ PROPERTIES . ========================================================================================================================== Actions -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction Labels -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel CheckBoxs -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox Buttons -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton Lists -%CHUI.TLijst +TCHUI.TLijst Popups -%CHUI.TPopup +TCHUI.TPopup DataSetLists -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -116,7 +116,7 @@ -%CHUI.TLabel +TCHUI.TLabel @@ -129,35 +129,35 @@ Set ..Caption=..GetFormCaption("Overzicht") ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1) Set ..acClose.OnExecute=$LB(%this,"acCloseExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acNieuw","Nieuw",1,$LB($$$kcF1)) + Do ##class(TCHUI.TAction).CreateSet(%this,"acNieuw","Nieuw",1,$LB($$$kcF1)) Set ..acNieuw.OnExecute=$LB(%this,"acNieuwExecute") ;Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Renewals",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Renewals",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGroep","Groep",3,3,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGroep","Groep",3,3,,,$$$alLeft) //Set ..lblGroep.Ellipsis=1 ;CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkActive","Enkel Actieve",3,20,,13) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkActive","Enkel Actieve",3,20,,13) Set ..chkActive.Checked = 1 Set ..chkActive.OnChanged=$LB(%this,"chkActiveChanged") - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUser","Enkel Waarschuwingsgebruiker",4,20,,13) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUser","Enkel Waarschuwingsgebruiker",4,20,,13) Set ..chkUser.Checked = 1 //Set ..chkUser.OnLostFocus=$LB(%this,"chkUserLostFocus") Set ..chkUser.OnChanged=$LB(%this,"chkUserChanged") ;Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,70,,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,70,,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose - Do ##class(%CHUI.TButton).CreateSet(%this,"btnNieuw","Nieuw",3,61,,7,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnNieuw","Nieuw",3,61,,7,,,,,$$$alCenter) Set ..btnNieuw.Action=..acNieuw ;Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstRenewal","lstRenewal",6,3,19,76) Do ..lstRenewal.AddSortCol(..#colSubGroep,"SubGroep") Do ..lstRenewal.AddSortCol(..#colOmschrijving,"Omschrijving") Do ..lstRenewal.AddSortCol(..#colGeldigTotDatumForSort,"Vervaldatum") @@ -191,7 +191,7 @@ //Do ..lstRenewal.ContextMenu.AddItem(%this,"pmiRaadpleegLev","Raadplegen leverancier...",1,,$LB(%this,"pmiRaadpleegLevClick")) ;Popups - Set ..pmGroep=##class(%CHUI.TPopup).Create(%this,"pmGroep","Groep",3,9,,10) + Set ..pmGroep=##class(TCHUI.TPopup).Create(%this,"pmGroep","Groep",3,9,,10) Set ..pmGroep.OnLostFocus=$LB(%this,"pmGroepLostFocus") //Set ..pmGroep.opRequired=1 ;Set ..pmGroep.TextWhenEmpty="(alle groepen)" @@ -200,7 +200,7 @@ Do ..pmGroep.DefaultFrames() ;DataSetLists - Set ..dslRenewal=##class(%CHUI.TDataSetList).Create(..lstRenewal,"dslRenewal") + Set ..dslRenewal=##class(TCHUI.TDataSetList).Create(..lstRenewal,"dslRenewal") Do ..dslRenewal.AddColDef(..#colID) Do ..dslRenewal.AddColDef(..#colSubGroep) Do ..dslRenewal.AddColDef(..#colOmschrijving) @@ -244,7 +244,7 @@ -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + -Sender:%CHUI.TControlBasis,Continue:%Boolean +Sender:TCHUI.TControlBasis,Continue:%Boolean -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TFrame +TCHUI.TFrame -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TContextMenu +TCHUI.TContextMenu -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TForm +TCHUI.TForm @@ -94,31 +93,31 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -218,18 +217,18 @@ Set ..Left=1, ..Top=1, ..Width=%Screen.Width, ..Height=%Screen.Height Set ..Caption="Blum LogSteuer - " _ %Application.Bedrijf.Naam ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this, "acLijstNrLinks", "LijstNrLinks", 1, $LB("("), $LB(%this,"acLijstNrLinks")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acLijstNrRechts", "LijstNrRechts", 1, $LB(")"), $LB(%this,"acLijstNrRechts")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRPLPR", "RPLPR", 1, $LB("D"), $LB(%this,"acRPLPR")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acClose")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRemoveLogSteuer", "RemoveLogSteuer", 1, $LB("X"), $LB(%this,"acRemoveLogSteuer")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acAddLogSteuer", "AddLogSteuer", 1, $LB("A"), $LB(%this,"acAddLogSteuer")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acModifyLogSteuer", "ModifyLogSteuer", 1,$LB("W"), $LB(%this,"acModifyLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acLijstNrLinks", "LijstNrLinks", 1, $LB("("), $LB(%this,"acLijstNrLinks")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acLijstNrRechts", "LijstNrRechts", 1, $LB(")"), $LB(%this,"acLijstNrRechts")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRPLPR", "RPLPR", 1, $LB("D"), $LB(%this,"acRPLPR")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acClose")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRemoveLogSteuer", "RemoveLogSteuer", 1, $LB("X"), $LB(%this,"acRemoveLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acAddLogSteuer", "AddLogSteuer", 1, $LB("A"), $LB(%this,"acAddLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acModifyLogSteuer", "ModifyLogSteuer", 1,$LB("W"), $LB(%this,"acModifyLogSteuer")) ;Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed ;Button close - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose ;Tab & paint order @@ -241,7 +240,7 @@ -Sender:%CHUI.TDataSetList +Sender:TCHUI.TDataSetList -Sender:%CHUI.TControlBasis,Continue:%Boolean +Sender:TCHUI.TControlBasis,Continue:%Boolean - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis BL.Sys.FOP.Common 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -109,7 +108,7 @@ OVERWRITE - We wensen CreateControls zelfstandig op te roepen 1 Name,Caption,Top,Left,Height,Width,Font,FormType -%CHUI.TControl +TCHUI.TControl - + - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,Continue:%Boolean +Sender:TCHUI.TControlBasis,Continue:%Boolean -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String 1 -%CHUI.TForm +TCHUI.TForm 0 -%CHUI.TControl +TCHUI.TControl -%CHUI.TTimer +TCHUI.TTimer -%CHUI.TMemo +TCHUI.TMemo -Property CheckBox As %CHUI.TCheckBox; -Property ContextMenu As %CHUI.TContextMenu; +Property CheckBox As TCHUI.TCheckBox; +Property ContextMenu As TCHUI.TContextMenu; In te vullen door de GUI applicatie @@ -30,46 +30,46 @@ 0 -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String -Sender:%CHUI.TTimer +Sender:TCHUI.TTimer Index: CHUI/Test/FormRes.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Test/FormRes.cls.xml (.../FormRes.cls.xml) (revision 1074) +++ CHUI/Test/FormRes.cls.xml (.../FormRes.cls.xml) (revision 2578) @@ -4,146 +4,143 @@ D ##class(CHUI.Test.FormRes).Run() 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TFrame +TCHUI.TFrame -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TKader +TCHUI.TKader In te vullen door de GUI applicatie -code -code 0 1 -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String 1 -%CHUI.TFrame -0 +TCHUI.TFrame -%CHUI.TLabel - -0 +TCHUI.TLabel -%CHUI.TEditDB - -0 +TCHUI.TEditDB -%CHUI.TEditDB - -0 +TCHUI.TEditDB -%CHUI.TEditDB - -0 +TCHUI.TEditDB -%CHUI.TEditDB - -0 +TCHUI.TEditDB -code 1 %Prod.Product 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TFrame +TCHUI.TFrame -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TContextMenu +TCHUI.TContextMenu -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TForm +TCHUI.TForm @@ -103,35 +102,35 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -231,25 +230,25 @@ Set ..Left=1, ..Top=1, ..Width=%Screen.Width, ..Height=%Screen.Height Set ..Caption="Blum LogSteuer - " _ %Application.Bedrijf.Naam ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this, "acLijstNrLinks", "LijstNrLinks", 1, $LB("("), $LB(%this,"acLijstNrLinks")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acLijstNrRechts", "LijstNrRechts", 1, $LB(")"), $LB(%this,"acLijstNrRechts")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRPLPR", "RPLPR", 1, $LB("P"), $LB(%this,"acRPLPR")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acClose")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRemoveLogSteuer", "RemoveLogSteuer", 1, $LB("X","LV"), $LB(%this,"acRemoveLogSteuer")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acAddLogSteuer", "AddLogSteuer", 1, $LB("A","LN"), $LB(%this,"acAddLogSteuer")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acModifyLogSteuer", "ModifyLogSteuer", 1,$LB("W","LW"), $LB(%this,"acModifyLogSteuer")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acZeroWeek", "ZeroWeek", 1,, $LB(%this,"acZeroWeek")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acLijstNrLinks", "LijstNrLinks", 1, $LB("("), $LB(%this,"acLijstNrLinks")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acLijstNrRechts", "LijstNrRechts", 1, $LB(")"), $LB(%this,"acLijstNrRechts")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRPLPR", "RPLPR", 1, $LB("P"), $LB(%this,"acRPLPR")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acClose")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRemoveLogSteuer", "RemoveLogSteuer", 1, $LB("X","LV"), $LB(%this,"acRemoveLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acAddLogSteuer", "AddLogSteuer", 1, $LB("A","LN"), $LB(%this,"acAddLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acModifyLogSteuer", "ModifyLogSteuer", 1,$LB("W","LW"), $LB(%this,"acModifyLogSteuer")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acZeroWeek", "ZeroWeek", 1,, $LB(%this,"acZeroWeek")) ;Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHWeekLbl","Huidige week",2,2,1,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHWeek",+$H,2,15,1,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHWeekLbl","Huidige week",2,2,1,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHWeek",+$H,2,15,1,,,,,$LB(,,$$$fsNoUnderline)) Set ..lblHWeek.DataType=$$$edtWeek Set ..lblHWeek.Format="JJ/WW" ;Button close - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose ;Tab & paint order @@ -261,7 +260,7 @@ - + -Sender:%CHUI.TControlBasis,Continue:%Boolean +Sender:TCHUI.TControlBasis,Continue:%Boolean 0)!(Sender.Caption="-0") Set $LI(XFormat,$$$xfFGColor)=$$$clRed,Sender.XFormat=XFormat ]]> - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TAction +TCHUI.TAction -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -115,35 +114,35 @@ Do ..Center() //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..CaptionControl=..kdrMain //Line - Set ..lnSep=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) + Set ..lnSep=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnSep",..Height-2,1,..Width,,,,$LB($LB(1,$$$lcCenterLeft),$LB(,$$$lcCenterRight))) //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acGroup","Group",1,$LB("G")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acGroup","Group",1,$LB("G")) Set ..acGroup.OnExecute=$LB(%this,"acGroupExecute") //Labels - //Do ##class(%CHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) + //Do ##class(TCHUI.TLabel).CreateSet(%this,"lblTaal","Taal",3,3,,,,,,$LB(,,$$$fsUnderline)) //Buttons - Set ..btnCancel=##class(%CHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) + Set ..btnCancel=##class(TCHUI.TButton).Create(%this,"btnCancel","Annuleren",..Height-1,..Width-12,,11,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel - Set ..btnOk=##class(%CHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) + Set ..btnOk=##class(TCHUI.TButton).Create(%this,"btnOk","OK",..Height-1,..Width-23,,10,,,,,$$$alCenter) Set ..btnOk.OnClick=$LB(%this,"btnOkClick") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNaam","Naam",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblType","Type",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegio","Regio",7,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNaam","Naam",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblType","Type",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegio","Regio",7,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtName","",3,12,,26) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtName","",3,12,,26) //Popups - Set ..pmType=##class(%CHUI.TPopup).Create(%this,"pmType","",5,12,,26) + Set ..pmType=##class(TCHUI.TPopup).Create(%this,"pmType","",5,12,,26) Set ..pmType.opCenterTextWhenEmpty=0 Set ..pmType.Separator="," Set ..pmType.TextWhenEmpty="(alle types)" @@ -152,7 +151,7 @@ Do ..pmType.AddResource("FOP.DOCREPO.PPOD","TYPE") Do ..pmType.DefaultFrames() - Set ..pmRegio=##class(%CHUI.TPopup).Create(%this,"pmRegio","",7,12,,26) + Set ..pmRegio=##class(TCHUI.TPopup).Create(%this,"pmRegio","",7,12,,26) Set ..pmRegio.opCenterTextWhenEmpty=0 Set ..pmRegio.Separator="," Set ..pmRegio.TextWhenEmpty="(alle regios)" @@ -162,7 +161,7 @@ Do ..pmRegio.DefaultFrames() //List - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstAddendum","",9,12,..Height-12,31) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstAddendum","",9,12,..Height-12,31) Set ..lstAddendum.Anchors=$$$aksBottom Set ..lstAddendum.OnRow=$LB(%this,"lstAddendumRow") Set ..lstAddendum.OnKeyPress=$LB(%this,"lstAddendumKeyPress") @@ -187,7 +186,7 @@ Do ..lstAddendum.AddHLineToRowDef(rdAddendumLine,,,$LB(15,7)) //DataSetList - Set ..dslAddendum=##class(%CHUI.TDataSetList).Create(..lstAddendum,"dslAddendum") + Set ..dslAddendum=##class(TCHUI.TDataSetList).Create(..lstAddendum,"dslAddendum") Set ..dslAddendum.OnQueryInit=$LB(%this,"dslAddendumQueryInit") Do ..dslAddendum.AddColDef(..#colRowDef) @@ -387,7 +386,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== - + -Sender:%String,LijstRow:%CHUI.TLijstRow +Sender:%String,LijstRow:TCHUI.TLijstRow -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,CanClose:%Boolean +Sender:TCHUI.TControlBasis,CanClose:%Boolean Index: CHUI/Test/Form.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Test/Form.cls.xml (.../Form.cls.xml) (revision 1074) +++ CHUI/Test/Form.cls.xml (.../Form.cls.xml) (revision 2578) @@ -4,115 +4,114 @@ D ##class(CHUI.Test.Form).Run() 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TFrame +TCHUI.TFrame -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TKader +TCHUI.TKader @@ -123,7 +122,6 @@ In te vullen door de GUI applicatie -code -code 0 D ##class(CHUI.Test.Form).Run() 1 -code IP -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String BL.EC.Common 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -33,23 +32,23 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -60,15 +59,15 @@ -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.Ctrl.TKlantEdit +TCHUI.Ctrl.TKlantEdit @@ -79,11 +78,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -94,7 +93,7 @@ -%CHUI.TLijst +TCHUI.TLijst @@ -105,7 +104,7 @@ -%CHUI.TPopup +TCHUI.TPopup @@ -116,7 +115,7 @@ -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -173,33 +172,33 @@ Set ..Caption=..GetFormTitle("Display all") //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acSearch","Search",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acSearch","Search",1,$LB("")) Set ..acSearch.OnExecute=$LB(%this,"acSearchExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acClose","Close",1,$LB("")) Set ..acClose.OnExecute=$LB(%this,"acCloseExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFromDate","Van",3,37,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblToDate","tot",3,52,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFromDate","Van",3,37,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblToDate","tot",3,52,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Edits - Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,14,,20) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtFromDate","",3,41,,10) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtToDate","",3,56,,10) + Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,14,,20) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtFromDate","",3,41,,10) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtToDate","",3,56,,10) //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",3,69,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",3,69,,10,,,,,$$$alCenter) Set ..btnSearch.Action=..acSearch - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Sluiten",5,69,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",5,69,,10,,,,,$$$alCenter) Set ..btnClose.Action=..acClose //Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstLog","Log",7,3,17,76) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstLog","Log",7,3,17,76) Set ..lstLog.OnRow=$LB(%this,"lstLogRow") Set rdRowlstLog=..lstLog.CreateRowDef(..#rdMain,$$$ftAddLijstRow,$LB($$$clWhite,$$$clDark)) @@ -217,13 +216,13 @@ Do ..lstLog.AddLabelDBToRowDef(rdSubRowlstLog,..#colSubInfo,,,,,,,,,1) //Popups - Set ..pmUser=##class(%CHUI.TPopup).Create(%this,"pmUser","Gebruiker",5,14,,20) + Set ..pmUser=##class(TCHUI.TPopup).Create(%this,"pmUser","Gebruiker",5,14,,20) Do ..pmUser.InitSpec(,,,10) Do ccFillpmUser Do ..pmUser.DefaultFrames() //DataSetLists - Set ..dslLog=##class(%CHUI.TDataSetList).Create(..lstLog,"dslLog") + Set ..dslLog=##class(TCHUI.TDataSetList).Create(..lstLog,"dslLog") Do ..dslLog.AddColDef(..#colDateTime,$$$rsList,1) Do ..dslLog.AddColDef(..#colAction,$$$rsList,2) Do ..dslLog.AddColDef(..#colGroup,$$$rsList,3) @@ -286,13 +285,13 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + -Sender:%CHUI.TControlBasis,LijstRow:%CHUI.TLijstRow +Sender:TCHUI.TControlBasis,LijstRow:TCHUI.TLijstRow 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -116,36 +115,36 @@ Set ..Caption="Stock overschrijven - " _ %Application.Bedrijf.Naam ;Actions - Set ..acExecute=##class(%CHUI.TAction).Create(%this, "acExecute", "Execute", 1, $LB("D"), $LB(%this,"acExecuteClick")) - Set ..acClose=##class(%CHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) + Set ..acExecute=##class(TCHUI.TAction).Create(%this, "acExecute", "Execute", 1, $LB("D"), $LB(%this,"acExecuteClick")) + Set ..acClose=##class(TCHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) ;Label header - Set ..lblHeader=##class(%CHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Set ..lblHeader=##class(TCHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed ;Other labels - Set ..lblProductFromLabel=##class(%CHUI.TLabel).Create(%this,"lblProductFromLabel","Bronproduct:",3,5,1) - Set ..lblProductToLabel=##class(%CHUI.TLabel).Create(%this,"lblProductToLabel","Doelproduct:",5,5,1) + Set ..lblProductFromLabel=##class(TCHUI.TLabel).Create(%this,"lblProductFromLabel","Bronproduct:",3,5,1) + Set ..lblProductToLabel=##class(TCHUI.TLabel).Create(%this,"lblProductToLabel","Doelproduct:",5,5,1) - Set ..txtProductFrom=##class(%CHUI.TEdit).Create(%this,"txtProductFrom","Bronproduct",3,18,1,11,6,3) + Set ..txtProductFrom=##class(TCHUI.TEdit).Create(%this,"txtProductFrom","Bronproduct",3,18,1,11,6,3) Set ..txtProductFrom.OnDisplay=$LB(%this,"txtProductDisplay") Set ..txtProductFrom.OnValidate=$LB(%this,"txtProductOnValidate") Set ..txtProductFrom.OnLostFocus=$LB(%this,"txtProductLostFocus") Set ..txtProductFrom.AutoErase=1 - Set ..txtProductTo=##class(%CHUI.TEdit).Create(%this,"txtProductTo","Doelproduct",5,18,1,11,6,3) + Set ..txtProductTo=##class(TCHUI.TEdit).Create(%this,"txtProductTo","Doelproduct",5,18,1,11,6,3) Set ..txtProductTo.OnDisplay=$LB(%this,"txtProductDisplay") Set ..txtProductTo.OnValidate=$LB(%this,"txtProductOnValidate") Set ..txtProductTo.OnLostFocus=$LB(%this,"txtProductLostFocus") Set ..txtProductTo.AutoErase=1 - Set ..lblProductFromKortTekst=##class(%CHUI.TLabel).Create(%this,"lblProductFromKortTekst","",3,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline)) + Set ..lblProductFromKortTekst=##class(TCHUI.TLabel).Create(%this,"lblProductFromKortTekst","",3,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline)) Set ..txtProductFrom.Tag=..lblProductFromKortTekst //Koppel korttekst label - Set ..lblProductToKortTekst=##class(%CHUI.TLabel).Create(%this,"lblProductToKortTekst","",5,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline)) + Set ..lblProductToKortTekst=##class(TCHUI.TLabel).Create(%this,"lblProductToKortTekst","",5,31,1,34,,,,$LB($$$clGreen,,$$$fsNoUnderline)) Set ..txtProductTo.Tag=..lblProductToKortTekst //Koppel korttekst label ;Pallet list - Set ..lstPallets=##class(%CHUI.TLijst).Create(%this,"lstPallets","lstPallets",7,5,..Height-7,..Width-10,,,,,$$$alRight) + Set ..lstPallets=##class(TCHUI.TLijst).Create(%this,"lstPallets","lstPallets",7,5,..Height-7,..Width-10,,,,,$$$alRight) Set ..lstPallets.Options=$LB($$$loHideSelection) Set rdHeader=..lstPallets.CreateRowDef("rdHeader",$$$ftAddLijstHeader) @@ -159,18 +158,18 @@ Do ..lstPallets.AddVLineToRowDef(rdPallets," | ") Do ..lstPallets.AddLabelDBToRowDef(rdPallets,..#colQty,10,$$$alRight,$$$edtFloat,"#.###,00") - Set ..dslPallets=##class(%CHUI.TDataSetList).Create(..lstPallets,"dslPallets") + Set ..dslPallets=##class(TCHUI.TDataSetList).Create(..lstPallets,"dslPallets") Do ..dslPallets.AddColDef(..#colLocID,$$$rsList,1) Do ..dslPallets.AddColDef(..#colQty,$$$rsList,2) Do ..lstPallets.InitSpec(..dslPallets,rdHeader,rdPallets,$LB(%this,"dslPalletsOnQueryInit"),"") ;Button update - Set ..btnExecute=##class(%CHUI.TButton).Create(%this,"btnExecute","Doorvoeren",3,..Width-16,1,12,,,,,$$$alCenter) + Set ..btnExecute=##class(TCHUI.TButton).Create(%this,"btnExecute","Doorvoeren",3,..Width-16,1,12,,,,,$$$alCenter) Set ..btnExecute.Action=..acExecute ;Button close - Set ..btnClose=##class(%CHUI.TButton).Create(%this,"btnClose","Sluiten",5,..Width-16,1,12,,,,,$$$alCenter) + Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",5,..Width-16,1,12,,,,,$$$alCenter) Set ..btnClose.Action=..acClose Do ..SetTabAndPaintOrder(..lblHeader,..lblProductFromLabel,..txtProductFrom,..lblProductToLabel,..txtProductTo,..btnExecute,..btnClose,..lstPallets) @@ -201,7 +200,7 @@ - + -Sender:%CHUI.TControlBasis,Value +Sender:TCHUI.TControlBasis,Value -Sender:%CHUI.TControlBasis,Value,ValidateOk +Sender:TCHUI.TControlBasis,Value,ValidateOk -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.System +TCHUI.System 1 %RegisteredObject 0 @@ -16,7 +16,7 @@ Do X^cA612 Do RAADPL^KLANT(KlantNr,$G(Scherm)) - Do ##class(%CHUI.TCanvas).InitializeTerminal() + Do ##class(TCHUI.TCanvas).InitializeTerminal() Do %Screen.SetNewColorMap() Do %Screen.PaintAll() @@ -34,7 +34,7 @@ Do X^cA612 Do RAADPL^LEVER(LevNr) - Do ##class(%CHUI.TCanvas).InitializeTerminal() + Do ##class(TCHUI.TCanvas).InitializeTerminal() Do %Screen.SetNewColorMap() Do %Screen.PaintAll() @@ -52,7 +52,7 @@ Do X^cA612 Do RAADPL^PRODUKT(PRNr,$G(Scherm)) - Do ##class(%CHUI.TCanvas).InitializeTerminal() + Do ##class(TCHUI.TCanvas).InitializeTerminal() Do %Screen.SetNewColorMap() Do %Screen.PaintAll() Index: CHUI/Flow/Order/LeverwekenSelect.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Flow/Order/LeverwekenSelect.cls.xml (.../LeverwekenSelect.cls.xml) (revision 1074) +++ CHUI/Flow/Order/LeverwekenSelect.cls.xml (.../LeverwekenSelect.cls.xml) (revision 2578) @@ -4,85 +4,84 @@ D ##class(CHUI.Flow.Order.LeverwekenSelect).Run() 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.Ctrl.TRegioPopup +TCHUI.Ctrl.TRegioPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TKader +TCHUI.TKader * ACTIES * -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -105,32 +104,30 @@ In te vullen door de GUI applicatie -code -code 1 %occInclude,%Prod.Product,APPS.PM.OL.Common,DOM.PM.OL,DOM.DomeinContext 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -24,19 +24,19 @@ ========================================================================================================================== PROPERTIES . ========================================================================================================================== -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -47,43 +47,43 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -94,30 +94,30 @@ -%CHUI.Ctrl.TKlantEdit +TCHUI.Ctrl.TKlantEdit -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox @@ -128,19 +128,19 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -153,35 +153,35 @@ Design : Plus of Intivo -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup @@ -223,62 +223,62 @@ Do ..Center() //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acVerkoophandboek","Verkoophandboek",1,$LB("P")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acVerkoophandboek","Verkoophandboek",1,$LB("P")) Set ..acVerkoophandboek.OnExecute=$LB(%this,"acVerkoophandboekExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acPrijslijst","Prijslijst",1,$LB("E")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acPrijslijst","Prijslijst",1,$LB("E")) Set ..acPrijslijst.OnExecute=$LB(%this,"acPrijslijstExecute") - ;Do ##class(%CHUI.TAction).CreateSet(%this,"acXML","XML",1,$LB("X")) + ;Do ##class(TCHUI.TAction).CreateSet(%this,"acXML","XML",1,$LB("X")) ;Set ..acXML.OnExecute=$LB(%this,"acXMLExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Cancel",1,$LB("-")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Cancel",1,$LB("-")) Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,..Width,$$$alLeft,,,$LB($$$clLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,..Width,$$$alLeft,,,$LB($$$clLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDesign","Design:",5,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLadeDiepte","Ladediepte:",7,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKleur","Kleur:",10,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblWandDikte","Wanddikte:",13,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLadeType","Type lade:",16,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblMeubelToepassing","MeubelToep.:",19,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDesign","Design:",5,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLadeDiepte","Ladediepte:",7,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKleur","Kleur:",10,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblWandDikte","Wanddikte:",13,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLadeType","Type lade:",16,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblMeubelToepassing","MeubelToep.:",19,..#Col1,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblTaal","Taal:",5,..#Col3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblBTW","BTW% C.P.:",7,..#Col3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblTaal","Taal:",5,..#Col3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblBTW","BTW% C.P.:",7,..#Col3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Edits - Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Persoon",3,..#Col2,,25) + Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Persoon",3,..#Col2,,25) //CheckBoxs - ;Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkInclUndef","Producten zonder kenmerken (Prijslijst)",16,..#Col3,,10) - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkInclMulti","Dubbel indien dubbele kenmerken",17,..#Col3,,10) - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkExtraColumns","Extra columns (Prijslijst)",18,..#Col3,,10) - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkHiRes","Hoge res. beelden(Verkoophandboek)",19,..#Col3,,10) - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkSchaduw","Schaduwprijzen",20,..#Col3,,10) + ;Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkInclUndef","Producten zonder kenmerken (Prijslijst)",16,..#Col3,,10) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkInclMulti","Dubbel indien dubbele kenmerken",17,..#Col3,,10) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkExtraColumns","Extra columns (Prijslijst)",18,..#Col3,,10) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkHiRes","Hoge res. beelden(Verkoophandboek)",19,..#Col3,,10) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkSchaduw","Schaduwprijzen",20,..#Col3,,10) //Buttons - ;Do ##class(%CHUI.TButton).CreateSet(%this,"btnXML","XML",24,35,,9,,,,,$$$alCenter) + ;Do ##class(TCHUI.TButton).CreateSet(%this,"btnXML","XML",24,35,,9,,,,,$$$alCenter) ;Set ..btnXML.Action=..acXML - Do ##class(%CHUI.TButton).CreateSet(%this,"btnVerkoophandboek","Verkoophandboek",24,30,,15,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnVerkoophandboek","Verkoophandboek",24,30,,15,,,,,$$$alCenter) Set ..btnVerkoophandboek.Action=..acVerkoophandboek - Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrijslijst","Prijslijst",24,48,,15,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrijslijst","Prijslijst",24,48,,15,,,,,$$$alCenter) Set ..btnPrijslijst.Action=..acPrijslijst - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Cancel",24,65,,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Cancel",24,65,,9,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel //Popups - Set ..pmTBXType=##class(%CHUI.TPopup).Create(%this,"pmTBXType","Design",..lblDesign.Top,..#Col2,1,25) + Set ..pmTBXType=##class(TCHUI.TPopup).Create(%this,"pmTBXType","Design",..lblDesign.Top,..#Col2,1,25) Set ..pmTBXType.opMultiSelect=1 Do ..pmTBXType.InitSpec(,,,10) Do ..pmTBXType.AddItem(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),"TANDEMBOX antaro") Do ..pmTBXType.AddItem(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),"TANDEMBOX intivo") Do ..pmTBXType.AddItem(##class(DOM.PM.enu.LadeVariant).TBXPlus(),"TANDEMBOX plus") Do ..pmTBXType.DefaultFrames() - Set ..pmLadeDiepte=##class(%CHUI.TPopup).Create(%this,"pmLadeDiepte","LadeDiepte",..lblLadeDiepte.Top,..#Col2,2,25) + Set ..pmLadeDiepte=##class(TCHUI.TPopup).Create(%this,"pmLadeDiepte","LadeDiepte",..lblLadeDiepte.Top,..#Col2,2,25) Set ..pmLadeDiepte.opMultiSelect=1 Do ..pmLadeDiepte.InitSpec(,,,10) set itDieptes = ##class(TECH.ListIterator).%New(..GeefGebruikteLadeDieptes()) @@ -288,14 +288,14 @@ } Do ..pmLadeDiepte.DefaultFrames() - Set ..pmKleur=##class(%CHUI.TPopup).Create(%this,"pmKleur","Kleur",..lblKleur.Top,..#Col2,2,25) + Set ..pmKleur=##class(TCHUI.TPopup).Create(%this,"pmKleur","Kleur",..lblKleur.Top,..#Col2,2,25) Set ..pmKleur.opMultiSelect=1 Do ..pmKleur.InitSpec(,,,10) Set lbLadeKleuren = $$$lbLadeKleurenKMW For ctr=1:1:$listlength(lbLadeKleuren) do ..pmKleur.AddItem($listget(lbLadeKleuren,ctr),$$$FCase($listget(lbLadeKleuren,ctr))) Do ..pmKleur.DefaultFrames() - Set ..pmWandDikte=##class(%CHUI.TPopup).Create(%this,"pmWandDikte","WandDikte",..lblWandDikte.Top,..#Col2,2,25) + Set ..pmWandDikte=##class(TCHUI.TPopup).Create(%this,"pmWandDikte","WandDikte",..lblWandDikte.Top,..#Col2,2,25) Set ..pmWandDikte.opMultiSelect=1 Do ..pmWandDikte.InitSpec(,,,10) set itWandDiktes = ##class(TECH.ListIterator).%New(..GeefGebruikteWandDiktes()) @@ -305,7 +305,7 @@ } Do ..pmWandDikte.DefaultFrames() - Set ..pmLadeType=##class(%CHUI.TPopup).Create(%this,"pmLadeType","Type lade",..lblLadeType.Top,..#Col2,2,25) + Set ..pmLadeType=##class(TCHUI.TPopup).Create(%this,"pmLadeType","Type lade",..lblLadeType.Top,..#Col2,2,25) Set ..pmLadeType.opMultiSelect=0 Do ..pmLadeType.InitSpec(,,,10) Do ..pmLadeType.AddItem("","(Geen)") @@ -314,7 +314,7 @@ Do ..pmLadeType.DefaultFrames() - set ..pmMeubelToepassing=##class(%CHUI.TPopup).Create(%this,"pmMeubelToepassing","MeubelToepassing",..lblMeubelToepassing.Top,..#Col2,1,25) + set ..pmMeubelToepassing=##class(TCHUI.TPopup).Create(%this,"pmMeubelToepassing","MeubelToepassing",..lblMeubelToepassing.Top,..#Col2,1,25) set ..pmMeubelToepassing.opMultiSelect=0 do ..pmMeubelToepassing.InitSpec(,,,10) @@ -327,7 +327,7 @@ do ..pmMeubelToepassing.DefaultFrames() - Set ..pmTaal=##class(%CHUI.TPopup).Create(%this,"pmTaal","Taal",..lblTaal.Top,..#Col4,1,9) + Set ..pmTaal=##class(TCHUI.TPopup).Create(%this,"pmTaal","Taal",..lblTaal.Top,..#Col4,1,9) Do ..pmTaal.InitSpec(,,,4,9) Do ..pmTaal.AddItem("K","[Klant]") Do ..pmTaal.AddItem("N","N") @@ -336,7 +336,7 @@ Do ..pmTaal.DefaultFrames() Set ..pmTaal.Value="K" - Set ..pmBTW=##class(%CHUI.TPopup).Create(%this,"pmBTW","BTW",..lblBTW.Top,..#Col4,1,11) + Set ..pmBTW=##class(TCHUI.TPopup).Create(%this,"pmBTW","BTW",..lblBTW.Top,..#Col4,1,11) Do ..pmBTW.InitSpec(,,,5,11) Do ..pmBTW.AddItem("K","[Klant]") Do ..pmBTW.AddItem("ExclBTW","Excl BTW") @@ -357,7 +357,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis @@ -430,7 +430,7 @@ -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Lijst met de GeoMobile data van 1 dag 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TButton +TCHUI.TButton -%CHUI.TAction +TCHUI.TAction @@ -158,16 +157,16 @@ Set ..Left=1, ..Top=1, ..Width=%Screen.Width, ..Height=%Screen.Height ;Actions - Set ..acClose=##class(%CHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) + Set ..acClose=##class(TCHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) ;Label header - Set ..kdrMain=##class(%CHUI.TKader).Create(%this,"kdrMain"," xxx ",1,1,..Height,..Width,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Set ..kdrMain=##class(TCHUI.TKader).Create(%this,"kdrMain"," xxx ",1,1,..Height,..Width,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) - Set ..lblDateLabel=##class(%CHUI.TLabel).Create(%this,"lblDateLabel","Datum:",2,9,1) - Set ..lblDate=##class(%CHUI.TLabel).Create(%this,"lblDate","xxx",2,16,1,14,,,,$LB(,,$$$fsNoUnderline)) + Set ..lblDateLabel=##class(TCHUI.TLabel).Create(%this,"lblDateLabel","Datum:",2,9,1) + Set ..lblDate=##class(TCHUI.TLabel).Create(%this,"lblDate","xxx",2,16,1,14,,,,$LB(,,$$$fsNoUnderline)) ;Button close - Set ..btnClose=##class(%CHUI.TButton).Create(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) + Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",2,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose ;Tab & paint order @@ -177,7 +176,7 @@ - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: CHUI/Sys/Toegang/MainForm.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Sys/Toegang/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1074) +++ CHUI/Sys/Toegang/MainForm.cls.xml (.../MainForm.cls.xml) (revision 2578) @@ -3,8 +3,7 @@ BL.Sys.Toegang 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -37,11 +36,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -52,11 +51,11 @@ -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup @@ -70,9 +69,9 @@ Set ..Caption="NewApplication" //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel1","Gebruiker",2,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel1","Gebruiker",2,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Set ..pmGebruiker=##class(%CHUI.TPopup).Create(%this,"pmGebruiker","Toegang",2,14,8,40) + Set ..pmGebruiker=##class(TCHUI.TPopup).Create(%this,"pmGebruiker","Toegang",2,14,8,40) Do ..pmGebruiker.InitSpec(,,,10) Set ..pmGebruiker.opMultiSelect=1 Set ..pmGebruiker.opShowText=1 @@ -86,16 +85,16 @@ . Do ..pmGebruiker.AddItem(Initials,UserName) Do ..pmGebruiker.DefaultFrames() - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel3","Toegang",12,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel3","Toegang",12,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnButton1","Ok",21,28,,7,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnButton1","Ok",21,28,,7,,,,,$$$alCenter) Set ..btnButton1.OnClick=$LB(%this,"btnButton1Click") - Do ##class(%CHUI.TButton).CreateSet(%this,"btnButton2","Annuleren",21,17,,9,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnButton2","Annuleren",21,17,,9,,,,,$$$alCenter) Set ..btnButton2.OnClick=$LB(%this,"btnButton2Click") //Popups - Set ..pmPopup1=##class(%CHUI.TPopup).Create(%this,"pmPopup1","Toegang",12,14,8,40) + Set ..pmPopup1=##class(TCHUI.TPopup).Create(%this,"pmPopup1","Toegang",12,14,8,40) Do ..pmPopup1.InitSpec(,,,10) Set ..pmPopup1.opMultiSelect=1 Set ..pmPopup1.opShowText=1 @@ -114,13 +113,13 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis BL.Derde.Kennis,CHUI.KB 1 -%CHUI.TForm -0 +TCHUI.TForm ========================================================================================================================== PROPERTIES ========================================================================================================================== -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TMemo +TCHUI.TMemo -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -171,78 +170,78 @@ Set ..Caption=..GetFormTitle("Detail") ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this, "acModify", "Wijzig", 1, $LB("M"), $LB(%this,"acModifyClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acCancel", "Sluiten", 1, , $LB(%this,"acCancelClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRevised", "Geverifieerd", 1, , $LB(%this,"acRevisedClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acPrevious", "Vorige", 1, $LB("("), $LB(%this,"acPreviousClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acNext", "Volgende", 1, $LB(")"), $LB(%this,"acNextClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"), $LB(%this,"acRaadpleegKlantClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acShowActions", "Toon acties", 1, $LB("A"), $LB(%this,"acShowActionsClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acModify", "Wijzig", 1, $LB("M"), $LB(%this,"acModifyClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acCancel", "Sluiten", 1, , $LB(%this,"acCancelClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRevised", "Geverifieerd", 1, , $LB(%this,"acRevisedClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acPrevious", "Vorige", 1, $LB("("), $LB(%this,"acPreviousClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acNext", "Volgende", 1, $LB(")"), $LB(%this,"acNextClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRaadpleegKlant", "Raadpleeg klant", 1, $LB("K"), $LB(%this,"acRaadpleegKlantClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acShowActions", "Toon acties", 1, $LB("A"), $LB(%this,"acShowActionsClick")) ;Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader ;Other labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantLabel","Klant",3,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,15,1,25,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantLabel","Klant",3,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,15,1,25,,,,$LB(,,$$$fsNoUnderline)) Set ..lblKlant.Sizing=$$$lsFixed Set ..lblKlant.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomainLabel","Actiedomein",5,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","(geen)",5,15,3,25,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomainLabel","Actiedomein",5,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","(geen)",5,15,3,25,,,,$LB(,,$$$fsNoUnderline)) Set ..lblActionDomain.Sizing=$$$lsFixed Set ..lblActionDomain.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatieLabel","Classific.",9,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","(geen)",9,15,3,25,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatieLabel","Classific.",9,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","(geen)",9,15,3,25,,,,$LB(,,$$$fsNoUnderline)) Set ..lblKlassificatie.Sizing=$$$lsFixed Set ..lblKlassificatie.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProductenLabel","Producten",13,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProducten","(geen)",13,15,3,64,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProductenLabel","Producten",13,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProducten","(geen)",13,15,3,64,,,,$LB(,,$$$fsNoUnderline)) Set ..lblProducten.Sizing=$$$lsFixed Set ..lblProducten.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateLabel","Datum",3,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDate","Date",3,55,1,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateLabel","Datum",3,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDate","Date",3,55,1,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRevisionDateLabel","Herziening",4,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRevisionDate","",4,55,1,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRevisionDateLabel","Herziening",4,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRevisionDate","",4,55,1,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFromLabel","Geldig van",6,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFrom","ValidFrom",6,55,1,10,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFromLabel","Geldig van",6,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFrom","ValidFrom",6,55,1,10,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidToLabel","t.e.m.",7,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidTo","To",7,55,1,10,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidToLabel","t.e.m.",7,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidTo","To",7,55,1,10,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreatorLabel","Aanmaker",9,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",9,55,1,24,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreatorLabel","Aanmaker",9,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",9,55,1,24,,,,$LB(,,$$$fsNoUnderline)) Set ..lblCreator.Sizing=$$$lsFixed Set ..lblCreator.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShowLabel","Toon",11,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Autoshow",11,55,1,24,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShowLabel","Toon",11,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Autoshow",11,55,1,24,,,,$LB(,,$$$fsNoUnderline)) ;Memo - Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoMsg","",15,3,%Screen.Height-16,%Screen.Width-4) + Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoMsg","",15,3,%Screen.Height-16,%Screen.Width-4) Do ..mmoMsg.InitSpec() ;Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnModify","Wijzig...",%Screen.Height,3,1,12,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnModify","Wijzig...",%Screen.Height,3,1,12,,,,,$$$alCenter) Set ..btnModify.Action=..acModify - Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrevious","< Ouder",%Screen.Height,..btnModify.Left+..btnModify.Width+1,1,12,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrevious","< Ouder",%Screen.Height,..btnModify.Left+..btnModify.Width+1,1,12,,,,,$$$alCenter) Set ..btnPrevious.Action=..acPrevious - Do ##class(%CHUI.TButton).CreateSet(%this,"btnNext","Nieuwer >",%Screen.Height,..btnPrevious.Left+..btnPrevious.Width+1,1,12,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnNext","Nieuwer >",%Screen.Height,..btnPrevious.Left+..btnPrevious.Width+1,1,12,,,,,$$$alCenter) Set ..btnNext.Action=..acNext - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel - Do ##class(%CHUI.TButton).CreateSet(%this,"btnRevised","Geverifieerd",%Screen.Height,%Screen.Width-33,1,14,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnRevised","Geverifieerd",%Screen.Height,%Screen.Width-33,1,14,,,,,$$$alCenter) Set ..btnRevised.Action=..acRevised ;Item toevoegen aan defaultmenu (dit laten we niet auto aanmaken, maar manueel zodat we reeds hmiDefault @@ -352,13 +351,13 @@ ========================================================================================================================== EVENTs ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -44,7 +43,7 @@ -%CHUI.TKader +TCHUI.TKader @@ -55,7 +54,7 @@ -%CHUI.Ctrl.TRegioPopup +TCHUI.Ctrl.TRegioPopup @@ -66,19 +65,19 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -125,31 +124,31 @@ Do ..Center() //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..CaptionControl=..kdrMain - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegion","Regio:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenVan","Klanten van:",11,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlanten","Klanten:",9,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenVanValue","(geen)",11,16,,24,$$$alCenter,,,$LB($$$clBlack,$$$clMedLight,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegion","Regio:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenVan","Klanten van:",11,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlanten","Klanten:",9,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenVanValue","(geen)",11,16,,24,$$$alCenter,,,$LB($$$clBlack,$$$clMedLight,$$$fsNoUnderline)) Set ..lblKlantenVanValue.Sizing=$$$lsFixed - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenValue","(geen)",9,16,,24,$$$alCenter,,,$LB($$$clBlack,$$$clMedLight,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenValue","(geen)",9,16,,24,$$$alCenter,,,$LB($$$clBlack,$$$clMedLight,$$$fsNoUnderline)) Set ..lblKlantenValue.Sizing=$$$lsFixed //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnKlantenVan","...",11,41,,3,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnKlantenVan","...",11,41,,3,,,,,$$$alCenter) Set ..btnKlantenVan.OnClick=$LB(%this,"btnKlantenClick") Set ..btnKlantenVan.Tag=..lblKlantenVanValue - Do ##class(%CHUI.TButton).CreateSet(%this,"btnKlanten","...",9,41,,3,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnKlanten","...",9,41,,3,,,,,$$$alCenter) Set ..btnKlanten.OnClick=$LB(%this,"btnKlantenClick") Set ..btnKlanten.Tag=..lblKlantenValue - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",13,31,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",13,31,,13,,,,,$$$alCenter) Set ..btnOk.OnClick=$LB(%this,"btnOkClick") - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",13,16,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",13,16,,13,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel - Set ..pmRegion=##class(%CHUI.Ctrl.TRegioPopup).Create(%this,"pmRegion","Regio",3,16,5,28) + Set ..pmRegion=##class(TCHUI.Ctrl.TRegioPopup).Create(%this,"pmRegion","Regio",3,16,5,28) Do ..SetTabAndPaintOrder(..kdrMain,..pmRegion,..btnKlanten,..btnKlantenVan,..btnCancel,..btnOk) @@ -158,7 +157,7 @@ -KlantenLabel:%CHUI.TLabel,lbValue:%ListOfDataTypes +KlantenLabel:TCHUI.TLabel,lbValue:%ListOfDataTypes 1 -KlantenLabel:%CHUI.TLabel +KlantenLabel:TCHUI.TLabel 1 @@ -180,7 +179,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: CHUI/Blum/LogSteuer/Modify.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Blum/LogSteuer/Modify.cls.xml (.../Modify.cls.xml) (revision 1074) +++ CHUI/Blum/LogSteuer/Modify.cls.xml (.../Modify.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TKader +TCHUI.TKader label voor korttekst -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -135,11 +134,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -150,11 +149,11 @@ -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -173,7 +172,7 @@ -%CHUI.TForm +TCHUI.TForm @@ -280,74 +279,74 @@ Set ..Caption="Blum LogSteuer - Wijzig" ;Set ..onShow=$LB(%this,"onShow") ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this, "acClose", "Annuleer", 1, $LB("."), $LB(%this,"acClose")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acSave", "OK", 1, $LB("-"), $LB(%this,"acSave")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acClose", "Annuleer", 1, $LB("."), $LB(%this,"acClose")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acSave", "OK", 1, $LB("-"), $LB(%this,"acSave")) ;Kader - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,1,,,,"C") + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,1,,,,"C") ;Button Close - Do ##class(%CHUI.TButton).CreateSet(%this,"btnClose","Annuleer",2,..Width-10,1,9,200,200,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Annuleer",2,..Width-10,1,9,200,200,,,$$$alCenter) Set ..btnClose.ModalResult=$$$mrCancel ; Button Save - Do ##class(%CHUI.TButton).CreateSet(%this,"btnSave","OK",3,..Width-10,1,9,201,201,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnSave","OK",3,..Width-10,1,9,201,201,,,$$$alCenter) Set ..btnSave.Default=1 Set ..btnSave.Action=..acSave - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKortTekstLbl","Korttekst",3,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKortTekstLbl","Korttekst",3,2,1,13,10,,,) Set ..lblKortTekstLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKortTekst","xxx",3,15,1,25,11,,,$LB(,,$$$fsNoUnderline),) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblIdentNrLbl","IdentNr",2,2,1,13,20,,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKortTekst","xxx",3,15,1,25,11,,,$LB(,,$$$fsNoUnderline),) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblIdentNrLbl","IdentNr",2,2,1,13,20,,,,) Set ..lblIdentNrLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblIdentNr","xxx",2,15,1,25,21,,,$LB(,,$$$fsNoUnderline),) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAantallen","Aantallen",5,2,1,13,30,,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblIdentNr","xxx",2,15,1,25,21,,,$LB(,,$$$fsNoUnderline),) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAantallen","Aantallen",5,2,1,13,30,,,,) Set ..lblAantallen.WidthSeparator=12 - Do ##class(%CHUI.TEdit).CreateSet(%this,"edAantallen","Aantallen",5,15,1,20,31,31,,,) + Do ##class(TCHUI.TEdit).CreateSet(%this,"edAantallen","Aantallen",5,15,1,20,31,31,,,) Set ..edAantallen.OnValidate=$LB(%this,"edAantallenOnValidate") - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPeriodiciteitLbl","Periode",6,2,1,13,40,,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPeriodiciteitLbl","Periode",6,2,1,13,40,,,,) Set ..lblPeriodiciteitLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPeriodiciteit","xxx",6,15,1,4,41,,,$LB(,,$$$fsNoUnderline),) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblStartWeek","StartWeek",7,2,1,13,50,,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPeriodiciteit","xxx",6,15,1,4,41,,,$LB(,,$$$fsNoUnderline),) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblStartWeek","StartWeek",7,2,1,13,50,,,,) Set ..lblStartWeek.WidthSeparator=12 - Do ##class(%CHUI.TEdit).CreateSet(%this,"edStartWeek","xxx",7,15,1,5,51,51,,,) + Do ##class(TCHUI.TEdit).CreateSet(%this,"edStartWeek","xxx",7,15,1,5,51,51,,,) Set ..edStartWeek.DataType=$$$edtWeek Set ..edStartWeek.Format="JJ/WW" Set ..edStartWeek.AutoErase=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVerpakkingLbl","Verpakking",9,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVerpakkingLbl","Verpakking",9,2,1,13,10,,,) Set ..lblVerpakkingLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblVerpakking","XXX",9,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblVerpakking","XXX",9,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblVerpakking.DataType=$$$edtInteger Set ..lblVerpakking.Format="#.##0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPalletLbl","Pallet",10,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPalletLbl","Pallet",10,2,1,13,10,,,) Set ..lblPalletLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPallet","XXX",10,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPallet","XXX",10,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblPallet.DataType=$$$edtInteger Set ..lblPallet.Format="#.##0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGewGemVkpLbl","Gew.Gem.Vkp.",12,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGewGemVkpLbl","Gew.Gem.Vkp.",12,2,1,13,10,,,) Set ..lblGewGemVkpLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGewGemVkp","XXX",12,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGewGemVkp","XXX",12,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblGewGemVkp.DataType=$$$edtInteger Set ..lblGewGemVkp.Format="#.##0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGemVkpLbl","Gem.Vkp.",13,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGemVkpLbl","Gem.Vkp.",13,2,1,13,10,,,) Set ..lblGemVkpLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGemVkp","XXX",13,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGemVkp","XXX",13,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblGemVkp.DataType=$$$edtInteger Set ..lblGemVkp.Format="#.##0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFysStockLbl","Fys.Stock",14,2,1,13,10,,,) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFysStockLbl","Fys.Stock",14,2,1,13,10,,,) Set ..lblFysStockLbl.WidthSeparator=12 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFysStock","XXX",14,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFysStock","XXX",14,15,1,6,11,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblFysStock.DataType=$$$edtInteger Set ..lblFysStock.Format="#.##0" ; Array of uitzonderingen - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUitzWeek","Week",4,41,1,5,100,,,,$$$alRight) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUitzAantal","Aantal",4,50,1,7,101,,,,$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUitzWeek","Week",4,41,1,5,100,,,,$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUitzAantal","Aantal",4,50,1,7,101,,,,$$$alRight) For I=1:1:..#AantalUitz Do - . Set Week=##class(%CHUI.TLabel).Create(%this,"lblUitzWeek"_I,"",4+I,42,1,5,110+(I*2),,,$LB(,,$$$fsNoUnderline),$$$alRight) + . Set Week=##class(TCHUI.TLabel).Create(%this,"lblUitzWeek"_I,"",4+I,42,1,5,110+(I*2),,,$LB(,,$$$fsNoUnderline),$$$alRight) . Set Week.DataType=$$$edtWeek . Set Week.Format="JJ/WW" . Set ..arUitzWeek(I)=Week - . Set Aantal=##class(%CHUI.TEdit).Create(%this,"edUitzAantal"_I,"Aantal",4+I,50,1,7,111+(I*2),111+(I*2),,,$$$alRight) + . Set Aantal=##class(TCHUI.TEdit).Create(%this,"edUitzAantal"_I,"Aantal",4+I,50,1,7,111+(I*2),111+(I*2),,,$$$alRight) . Set Aantal.DataType=$$$edtInteger . Set Aantal.Format="#.##0;;0;" . Set Aantal.MinValue=0 @@ -366,7 +365,7 @@ -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: CHUI/Derde/EC/Toegang/MainForm.cls.xml =================================================================== diff -u -r1327 -r2578 --- CHUI/Derde/EC/Toegang/MainForm.cls.xml (.../MainForm.cls.xml) (revision 1327) +++ CHUI/Derde/EC/Toegang/MainForm.cls.xml (.../MainForm.cls.xml) (revision 2578) @@ -3,8 +3,7 @@ BL.EC.Common 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -101,15 +100,15 @@ -%CHUI.Ctrl.TKlantEdit +TCHUI.Ctrl.TKlantEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -120,7 +119,7 @@ -%CHUI.TCheckBox +TCHUI.TCheckBox @@ -131,23 +130,23 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -158,35 +157,35 @@ -%CHUI.TPopup +TCHUI.TPopup -%CHUI.Ctrl.TInternePersoonPopup +TCHUI.Ctrl.TInternePersoonPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.Ctrl.TTaalPopup +TCHUI.Ctrl.TTaalPopup -%CHUI.Ctrl.TInternePersoonPopup +TCHUI.Ctrl.TInternePersoonPopup @@ -197,11 +196,11 @@ -%CHUI.TLijn +TCHUI.TLijn -%CHUI.TLijn +TCHUI.TLijn @@ -272,111 +271,111 @@ Set ..OnCloseQuery=$LB(%this,"frmMainCloseQuery") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUserName","Gebuikersnaam:",13,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPassword","Wachtwoord:",15,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAgenda","Agenda:",17,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDomain","Domein:",19,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLanguage","Taal:",21,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPerson","Persoon:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblEmail","E-mail:",9,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblInternPerson","Intern:",7,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAccessGroup","Groep:",13,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAccess","Toegang:",15,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblOptions","Opties:",20,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegion","Regio:",3,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegionValue","(geen)",3,54,,20,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUserName","Gebuikersnaam:",13,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPassword","Wachtwoord:",15,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAgenda","Agenda:",17,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDomain","Domein:",19,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLanguage","Taal:",21,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPerson","Persoon:",5,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblEmail","E-mail:",9,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblInternPerson","Intern:",7,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAccessGroup","Groep:",13,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAccess","Toegang:",15,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblOptions","Opties:",20,45,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegion","Regio:",3,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegionValue","(geen)",3,54,,20,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) Set ..lblRegionValue.Sizing=$$$lsFixed Set ..lblRegionValue.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenVan","Klanten van:",5,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlanten","Klanten:",4,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAssocKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenVanValue","(geen)",5,54,,22,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenVan","Klanten van:",5,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlanten","Klanten:",4,41,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAssocKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenVanValue","(geen)",5,54,,22,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) Set ..lblRegionValue.Sizing=$$$lsFixed Set ..lblKlantenVanValue.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlantenValue","(geen)",4,54,,22,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlantenValue","(geen)",4,54,,22,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) Set ..lblRegionValue.Sizing=$$$lsFixed Set ..lblKlantenValue.Ellipsis=1 //Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtUserName","Gebruikersnaam",13,18,,25) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtEmail","E-mail",9,13,,49) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtUserName","Gebruikersnaam",13,18,,25) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtEmail","E-mail",9,13,,49) Set ..txtEmail.CanBigEdit=1 - Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtAssocKlant","Persoon",3,13,,25) + Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtAssocKlant","Persoon",3,13,,25) ;Set ..txtAssocKlant.OnLostFocus=$LB(%this,"txtAssocKlantLostFocus") Set ..txtAssocKlant.OnValidate=$LB(%this,"txtAssocKlantValidate") //CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkHasAccess","Gebruiker is actief",24,3,,10) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkHasAccess","Gebruiker is actief",24,3,,10) //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",24,68,,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",24,68,,11,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",24,57,,10,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",24,57,,10,,,,,$$$alCenter) Set ..btnOk.OnClick=$LB(%this,"btnOkClick") - Do ##class(%CHUI.TButton).CreateSet(%this,"btnMeerKlanten","Meerdere klanten...",7,41,,21,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnMeerKlanten","Meerdere klanten...",7,41,,21,,,,,$$$alCenter) Set ..btnMeerKlanten.OnClick=$LB(%this,"btnMeerKlantenClick") - Do ##class(%CHUI.TButton).CreateSet(%this,"btnChangePwd","Instellen...",15,18,,14,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnChangePwd","Instellen...",15,18,,14,,,,,$$$alCenter) Set ..btnChangePwd.OnClick=$LB(%this,"btnChangePwdClick") - Do ##class(%CHUI.TButton).CreateSet(%this,"btnShowPwd","Toon",15,35,,8,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnShowPwd","Toon",15,35,,8,,,,,$$$alCenter) Set ..btnShowPwd.OnClick=$LB(%this,"btnShowPwdClick") //Popups - Set ..pmDomain=##class(%CHUI.TPopup).Create(%this,"pmDomain","Domein",19,18,,25) + Set ..pmDomain=##class(TCHUI.TPopup).Create(%this,"pmDomain","Domein",19,18,,25) Set ..pmDomain.OnLostFocus=$Lb(%thius,"pmDomainLostFocus") Do ..pmDomain.InitSpec(,,,10) Do ..pmDomain.AddResource("DERDE.EC","DOMAIN") Do ..pmDomain.DefaultFrames() Set ..pmDomain.Enabled=0 ;dit aanpassen=>ook aanpassen in FEnableInterface!!! - Set ..pmLanguage=##class(%CHUI.Ctrl.TTaalPopup).Create(%this,"pmLanguage","Taal",21,18,,25) + Set ..pmLanguage=##class(TCHUI.Ctrl.TTaalPopup).Create(%this,"pmLanguage","Taal",21,18,,25) Do ..pmLanguage.SkipLanguages("D","E") Set ..pmLanguage.OnSetFocus=$LB(%this,"pmLanguageSetFocus") - Set ..pmAccessGroup=##class(%CHUI.TPopup).Create(%this,"pmAccessGroup","Groep",13,54,,25) + Set ..pmAccessGroup=##class(TCHUI.TPopup).Create(%this,"pmAccessGroup","Groep",13,54,,25) Do ..pmAccessGroup.InitSpec(,,,10) Do ..pmAccessGroup.DefaultFrames() Set ..pmAccessGroup.OnLostFocus=$LB(%this,"pmAccessGroupLostFocus") - Set ..pmAccess=##class(%CHUI.TPopup).Create(%this,"pmAccess","Toegang",15,54,4,25) + Set ..pmAccess=##class(TCHUI.TPopup).Create(%this,"pmAccess","Toegang",15,54,4,25) Set ..pmAccess.TextWhenEmpty="(default)" Set ..pmAccess.opMultiSelect=1 Do ..pmAccess.BecomeTreeView(,,30) Do ..pmAccess.AddDelimitedTreeResource("DERDE.EC","ACCESS") - Set ..pmOptions=##class(%CHUI.TPopup).Create(%this,"pmOptions","Opties",20,54,2,25) + Set ..pmOptions=##class(TCHUI.TPopup).Create(%this,"pmOptions","Opties",20,54,2,25) Set ..pmOptions.TextWhenEmpty="(default)" Set ..pmOptions.opMultiSelect=1 Do ..pmOptions.InitSpec(,,,10) Do ..pmOptions.AddResource("DERDE.EC","OPTIONS") Do ..pmOptions.DefaultFrames() - Set ..pmInternPerson=##class(%CHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmInternPerson","Interne persoon",7,13,,25) + Set ..pmInternPerson=##class(TCHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmInternPerson","Interne persoon",7,13,,25) Do ..pmInternPerson.InitSpec(,,,10) Do ..pmInternPerson.Fill() Do ..pmInternPerson.DefaultFrames() - Set ..pmPerson=##class(%CHUI.TPopup).Create(%this,"pmPerson","Persoon",5,13,,25) + Set ..pmPerson=##class(TCHUI.TPopup).Create(%this,"pmPerson","Persoon",5,13,,25) Do ..pmPerson.InitSpec(,,,10) Do ..pmPerson.DefaultFrames() Set ..pmPerson.OnSetFocus=$LB(%this,"pmPersonSetFocus") Set ..pmPerson.OnLostFocus=$LB(%this,"pmPersonLostFocus") - Set ..pmAgenda=##class(%CHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmAgenda","Agenda",17,18,,25) + Set ..pmAgenda=##class(TCHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmAgenda","Agenda",17,18,,25) Set ..pmAgenda.opMultiSelect=1 Do ..pmAgenda.InitSpec(,,,10) Do ..pmAgenda.Fill() Do ..pmAgenda.DefaultFrames() Set ..pmAgenda.Enabled=0 ;dit aanpassen=>ook aanpassen in FEnableInterface!!! //Lines - Set ..lnMid=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",11,3,76) - Set ..lnBottom=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBottom",23,3,76) + Set ..lnMid=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",11,3,76) + Set ..lnBottom=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBottom",23,3,76) //HoofdMenuItem ;Default MainMenu, buttons uit controls aan toevoegen @@ -567,14 +566,14 @@ -List:%List,Label:%CHUI.TLabel +List:%List,Label:TCHUI.TLabel 1 -lbList:%List,Label:%CHUI.TLabel +lbList:%List,Label:TCHUI.TLabel 1 -List:%List,Label:%CHUI.TLabel +List:%List,Label:TCHUI.TLabel 1 -Label:%CHUI.TLabel +Label:TCHUI.TLabel 1 @@ -828,7 +827,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,CanClose:%Boolean +Sender:TCHUI.TControlBasis,CanClose:%Boolean Index: CHUI/BKH/Renewals/dlgEdit.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/BKH/Renewals/dlgEdit.cls.xml (.../dlgEdit.cls.xml) (revision 1074) +++ CHUI/BKH/Renewals/dlgEdit.cls.xml (.../dlgEdit.cls.xml) (revision 2578) @@ -3,7 +3,7 @@ BL.Sys.Proxy 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -12,148 +12,148 @@ PROPERTIES . ========================================================================================================================== Actions -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction Labels -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel Edits -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.Ctrl.TLevEdit +TCHUI.Ctrl.TLevEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.TEdit +TCHUI.TEdit CheckBoxs -%CHUI.TCheckBox +TCHUI.TCheckBox Buttons -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton Lists -%CHUI.TLijst +TCHUI.TLijst Popups -%CHUI.Ctrl.TInternePersoonPopup +TCHUI.Ctrl.TInternePersoonPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup DataSetLists -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -200,53 +200,53 @@ Set ..OnCloseQuery = $LB(%this, "dlgDialogQueryClose") ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acOk","Ok",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acOk","Ok",1,$LB("")) Set ..acOk.OnExecute=$LB(%this,"acOkExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Cancel",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Cancel",1,$LB("")) Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute") ;Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel2","Groep:",3,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel3","SubGroep:",3,44,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel4","Omschrijving:",7,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel5","#Users:",5,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel6","Leverancier:",5,41,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel7","Opmerking:",9,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel8","AankoopDatum:",11,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel9","Waarschuw periode:",15,38,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel10","Geldig tot:",13,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel11","Prijs:",15,4,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel12","Waarschuw gebruiker:",13,38,,,$$$alLeft) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreatieUserAndDate","",11,38,,37,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel2","Groep:",3,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel3","SubGroep:",3,44,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel4","Omschrijving:",7,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel5","#Users:",5,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel6","Leverancier:",5,41,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel7","Opmerking:",9,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel8","AankoopDatum:",11,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel9","Waarschuw periode:",15,38,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel10","Geldig tot:",13,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel11","Prijs:",15,4,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel12","Waarschuw gebruiker:",13,38,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreatieUserAndDate","",11,38,,37,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) Set ..lblCreatieUserAndDate.Sizing=$$$lsFixed ;Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtOmschrijving","",7,19,,56) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtUsers","",5,19,,21) - Do ##class(%CHUI.Ctrl.TLevEdit).CreateSet(%this,"txtLeverancier","",5,54,,21) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtOmschrijving","",7,19,,56) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtUsers","",5,19,,21) + Do ##class(TCHUI.Ctrl.TLevEdit).CreateSet(%this,"txtLeverancier","",5,54,,21) Set ..txtLeverancier.opLeverancierMoetBestaan = 0 Set ..txtLeverancier.OnPaint=$LB(%this,"txtLeverancierPaint") - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtOpmerking","",9,19,,56) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtPrijs","",15,19,,13) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtGeldigTotDatum","",13,19,,13) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtAankoopDatum","",11,19,,13) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtWaarschuwingPeriode","",15,59,,6) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtOpmerking","",9,19,,56) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtPrijs","",15,19,,13) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtGeldigTotDatum","",13,19,,13) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtAankoopDatum","",11,19,,13) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtWaarschuwingPeriode","",15,59,,6) ;CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkNonActief","Staat op non-actief",23,4,,24) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkNonActief","Staat op non-actief",23,4,,24) ;Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",23,58,,8,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",23,58,,8,,,,,$$$alCenter) Set ..btnOk.Action=..acOk //Set ..btnOk.Default=1 - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Cancel",23,67,,8,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Cancel",23,67,,8,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel ;Lists - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstHistoriek","List2",17,4,5,71) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstHistoriek","List2",17,4,5,71) Set rdHeaderlstHistoriek=..lstHistoriek.CreateRowDef("rdHeaderlstHistoriek",$$$ftAddLijstHeader) Do ..lstHistoriek.AddLabelToRowDef(rdHeaderlstHistoriek,10,"Geldig Tot",1) @@ -267,21 +267,21 @@ Do ..lstHistoriek.AddLabelDBToRowDef(rdRowlstHistoriek,..#colOpmerking) ;Popups - Set ..pmWaarschuwingUser=##class(%CHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmWaarschuwingUser","",13,59,,16) + Set ..pmWaarschuwingUser=##class(TCHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmWaarschuwingUser","",13,59,,16) Set ..pmWaarschuwingUser.opEMailOnly = 1 Do ..pmWaarschuwingUser.InitSpec(,,,10) Do ..pmWaarschuwingUser.Fill() Do ..pmWaarschuwingUser.DefaultFrames() - Set ..pmGroep=##class(%CHUI.TPopup).Create(%this,"pmGroep","",3,19,,21) + Set ..pmGroep=##class(TCHUI.TPopup).Create(%this,"pmGroep","",3,19,,21) Do ..pmGroep.InitSpec(,,,10) Do ..pmGroep.AddItem(..#pkNew,"Nieuw...") set ..pmGroep.opAutoAddSeparator = 1 Do ..pmGroep.AppendResultSet("BL.BKH.Renewals.Build","GetAllGroepen","Groep") Do ..pmGroep.DefaultFrames() Set ..pmGroep.OnChanged=$LB(%this,"pmGroepXChanged") - Set ..pmSubGroep=##class(%CHUI.TPopup).Create(%this,"pmSubGroep","",3,54,,21) + Set ..pmSubGroep=##class(TCHUI.TPopup).Create(%this,"pmSubGroep","",3,54,,21) Do ..pmSubGroep.InitSpec(,,,10) Do ..pmSubGroep.AddItem(..#pkNew,"Nieuw...") set ..pmSubGroep.opAutoAddSeparator = 1 @@ -290,7 +290,7 @@ Set ..pmSubGroep.OnChanged=$LB(%this,"pmGroepXChanged") ;DataSetLists - Set ..dslHistoriek=##class(%CHUI.TDataSetList).Create(..lstHistoriek,"dslHistoriek") + Set ..dslHistoriek=##class(TCHUI.TDataSetList).Create(..lstHistoriek,"dslHistoriek") Do ..dslHistoriek.AddColDef(..#colGeldigTotDatum) Do ..dslHistoriek.AddColDef(..#colAankoopDatum) Do ..dslHistoriek.AddColDef(..#colPrijs) @@ -491,7 +491,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis,CanClose:%Boolean +Sender:TCHUI.TControlBasis,CanClose:%Boolean -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,Continue:%Boolean +Sender:TCHUI.TControlBasis,Continue:%Boolean CHUI.KB,BL.Derde.Kennis 1 -%CHUI.TForm -0 +TCHUI.TForm ========================================================================================================================== PROPERTIES ========================================================================================================================== Action -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction Label -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel Edit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.Ctrl.TKlantEdit +TCHUI.Ctrl.TKlantEdit Button -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton Popup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.Ctrl.TKlassificatiePopup +TCHUI.Ctrl.TKlassificatiePopup -%CHUI.Ctrl.TRegioPopup +TCHUI.Ctrl.TRegioPopup @@ -176,38 +175,38 @@ Set ..Caption="Kennisanker " _ %Application.Bedrijf.Naam_" - Zoekcriteria" ;Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader //Action - Do ##class(%CHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1)) + Do ##class(TCHUI.TAction).CreateSet(%this, "acNew", "New", 1, $LB($$$kcF1)) Set ..acNew.OnExecute=$LB(%this,"acNew") - Do ##class(%CHUI.TAction).CreateSet(%this, "acSearch", "Search", 1, $LB($$$kcF3)) + Do ##class(TCHUI.TAction).CreateSet(%this, "acSearch", "Search", 1, $LB($$$kcF3)) Set ..acSearch.OnExecute=$LB(%this,"acSearch") - Do ##class(%CHUI.TAction).CreateSet(%this, "acRevision", "Revisie", 1, $LB("R")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acRevision", "Revisie", 1, $LB("R")) Set ..acRevision.OnExecute=$LB(%this,"acRevision") //Label - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblSort","Sorteer",11,46) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateTo","tem",5,65) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateFrom","Van",5,50) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",7,45) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblViaMsg","Vrije tekst",3,42) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",11,3) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",15,3) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",7,3) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",5,3) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblRegio","Regio",3,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblSort","Sorteer",11,46) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateTo","tem",5,65) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateFrom","Van",5,50) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblCreator","Aanmaker",7,45) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblViaMsg","Vrije tekst",3,42) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",11,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",15,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",7,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",5,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblRegio","Regio",3,3) //Edit - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateTo","",5,69,,10) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateFrom","",5,54,,10) - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtViaMsg","",3,54,,25) - Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",5,15,,25) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateTo","",5,69,,10) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtDateFrom","",5,54,,10) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtViaMsg","",3,54,,25) + Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",5,15,,25) //Popup - Set ..pmSort=##class(%CHUI.TPopup).Create(%this,"pmSort","",11,54,3,25) + Set ..pmSort=##class(TCHUI.TPopup).Create(%this,"pmSort","",11,54,3,25) Do ..pmSort.InitSpec(,,,4) Set ..pmSort.opMultiSelect=1 Set ..pmSort.opSorted=1 @@ -216,42 +215,42 @@ Do ..pmSort.DefaultFrames() Set ..pmSort.Selected=$LB(..#soDate) - Set ..pmCreators=##class(%CHUI.TPopup).Create(%this,"pmCreators","",7,54,3,25) + Set ..pmCreators=##class(TCHUI.TPopup).Create(%this,"pmCreators","",7,54,3,25) Do ..pmCreators.InitSpec(,,,6) Set ..pmCreators.opMultiSelect=1 Do ccReadpmCreators Do ..pmCreators.DefaultFrames() - Set ..pmKlassificatie=##class(%CHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",7,15,3,25) + Set ..pmKlassificatie=##class(TCHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",7,15,3,25) - Set ..pmActionDomain=##class(%CHUI.TPopup).Create(%this,"pmActionDomain","",11,15,3,25) + Set ..pmActionDomain=##class(TCHUI.TPopup).Create(%this,"pmActionDomain","",11,15,3,25) Set ..pmActionDomain.opMultiSelect=1 Set ..pmActionDomain.opAutoSelectChildren=1 Do ..pmActionDomain.BecomeTreeView() Do ..pmActionDomain.AddDelimitedTreeResource("DERDE.KENNIS","ACTIONDOMAIN") Do ..pmActionDomain.TreeSetAllExpanded() - Set ..pmAutoShow=##class(%CHUI.TPopup).Create(%this,"pmAutoShow","",15,15,1,25) + Set ..pmAutoShow=##class(TCHUI.TPopup).Create(%this,"pmAutoShow","",15,15,1,25) Do ..pmAutoShow.InitSpec(,,,4) Do ..pmAutoShow.AddItem($$$sasShowActiveOnly,"Enkel actieve ankers") Do ..pmAutoShow.AddItem($$$sasShowNotActiveOnly,"Enkel niet-actieve") Do ..pmAutoShow.AddItem($$$sasShowAll,"Allemaal") Do ..pmAutoShow.DefaultFrames() Set ..pmAutoShow.Selected=$LB($$$sasShowActiveOnly) - Set ..pmRegio=##class(%CHUI.Ctrl.TRegioPopup).Create(%this,"pmRegio","Verantwoordelijke",3,15,1,25,3,3,1,$LB(),"R") + Set ..pmRegio=##class(TCHUI.Ctrl.TRegioPopup).Create(%this,"pmRegio","Verantwoordelijke",3,15,1,25,3,3,1,$LB(),"R") //Button - Do ##class(%CHUI.TButton).CreateSet(%this,"btnNew","Nieuw",%Screen.Height,3,1,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnNew","Nieuw",%Screen.Height,3,1,13,,,,,$$$alCenter) Set ..btnNew.Action=..acNew - Do ##class(%CHUI.TButton).CreateSet(%this,"btnRevision","Revisie",%Screen.Height,18,1,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnRevision","Revisie",%Screen.Height,18,1,13,,,,,$$$alCenter) Set ..btnRevision.Action=..acRevision - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel - Do ##class(%CHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",%Screen.Height,%Screen.Width-27,1,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnSearch","Zoeken",%Screen.Height,%Screen.Width-27,1,11,,,,,$$$alCenter) //Set ..btnSearch.Default=1 Set ..btnSearch.Action=..acSearch @@ -297,7 +296,7 @@ ========================================================================================================================== EVENTs ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis D ##class(CHUI.Derde.SMSService).Run() 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TMemo +TCHUI.TMemo -%CHUI.TMemo +TCHUI.TMemo -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TKader +TCHUI.TKader -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit In te vullen door de GUI applicatie -code -code 0 1 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -27,47 +27,47 @@ -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -148,23 +148,23 @@ Set ..Caption="Niet betaalde rembours fakturen - " _ %Application.Bedrijf.Naam ;Label header - Set ..lblHeader=##class(%CHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Set ..lblHeader=##class(TCHUI.TLabel).Create(%this,"lblHeader"," "_..Caption_" ",1,1,1,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed ;Actions - Set ..acRaadpleegKlant=##class(%CHUI.TAction).Create(%this, "acRaadpleegKlant", "RaadpleegKlant", 1, $LB("K"), $LB(%this,"acRaadpleegKlant")) - Set ..acExtraDagen=##class(%CHUI.TAction).Create(%this, "acExtraDagen", "ExtraDagen", 1, $LB("E"), $LB(%this,"acChangeNrOfExtraDays")) - Set ..acClose=##class(%CHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) + Set ..acRaadpleegKlant=##class(TCHUI.TAction).Create(%this, "acRaadpleegKlant", "RaadpleegKlant", 1, $LB("K"), $LB(%this,"acRaadpleegKlant")) + Set ..acExtraDagen=##class(TCHUI.TAction).Create(%this, "acExtraDagen", "ExtraDagen", 1, $LB("E"), $LB(%this,"acChangeNrOfExtraDays")) + Set ..acClose=##class(TCHUI.TAction).Create(%this, "acClose", "Close", 1, $LB("-"), $LB(%this,"acCloseClick")) ;Aantal dagen stuff - Set ..lblExtraDagenLabel=##class(%CHUI.TLabel).Create(%this,"lblExtraDagenLabel","Extra dagen:",3,5,1) - Set ..lblExtraDagen=##class(%CHUI.TLabel).Create(%this,"lblExtraDagen","0",3,..lblExtraDagenLabel.Left+..lblExtraDagenLabel.Width+1,1,3,,,,$LB(,,$$$fsNoUnderline),$$$alRight) + Set ..lblExtraDagenLabel=##class(TCHUI.TLabel).Create(%this,"lblExtraDagenLabel","Extra dagen:",3,5,1) + Set ..lblExtraDagen=##class(TCHUI.TLabel).Create(%this,"lblExtraDagen","0",3,..lblExtraDagenLabel.Left+..lblExtraDagenLabel.Width+1,1,3,,,,$LB(,,$$$fsNoUnderline),$$$alRight) Set ..lblExtraDagen.Sizing=$$$lsFixed - Set ..btnChangeNrOfExtraDays=##class(%CHUI.TButton).Create(%this,"btnChangeNrOfExtraDays","Wijzig",3,..lblExtraDagen.Left+4,1,10,,,,,$$$alCenter) + Set ..btnChangeNrOfExtraDays=##class(TCHUI.TButton).Create(%this,"btnChangeNrOfExtraDays","Wijzig",3,..lblExtraDagen.Left+4,1,10,,,,,$$$alCenter) Set ..btnChangeNrOfExtraDays.Action=..acExtraDagen ;Lijst - Set ..lstRembours=##class(%CHUI.TLijst).Create(%this,"lstRembours","lstRembours",5,3,..Height-4,..Width-6,,,,$LB(),$$$alRight) + Set ..lstRembours=##class(TCHUI.TLijst).Create(%this,"lstRembours","lstRembours",5,3,..Height-4,..Width-6,,,,$LB(),$$$alRight) New rdHeader Set rdHeader=..lstRembours.CreateRowDef($$$lfnTitle,$$$ftAddLijstHeader) @@ -196,7 +196,7 @@ Do ..lstRembours.AddVLineToRowDef(rdRembours) Do ..lstRembours.AddEditDBToRowDef(rdRembours,..#colBedrag,12,$$$alRight,$$$edtFloat,"#.##0,00") - Set ..dslRembours=##class(%CHUI.TDataSetList).Create(..lstRembours,"dslRembours") + Set ..dslRembours=##class(TCHUI.TDataSetList).Create(..lstRembours,"dslRembours") Do ..dslRembours.AddColDef(..#colVerzendwijze,$$$rsList,5) Do ..dslRembours.AddColDef(..#colKlantNr,$$$rsList,1) Do ..dslRembours.AddColDef(..#colKlantNaam,$$$rsList,2) @@ -208,12 +208,12 @@ Do ..lstRembours.InitSpec(..dslRembours,rdHeader,rdRembours,$LB(%this,"dslRemboursOnQueryInit"),"Geen onbetaalde rembours.") ;Button close - Set ..btnClose=##class(%CHUI.TButton).Create(%this,"btnClose","Sluiten",3,..Width-13,1,9,,,,,$$$alCenter) + Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",3,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose ;Lijst contextmenu New pmRembours - Set pmRembours=##class(%CHUI.TContextMenu).Create(%this,"pmRebours") + Set pmRembours=##class(TCHUI.TContextMenu).Create(%this,"pmRebours") Do pmRembours.AddItem(%this,"pmiRaadpleegKlant","Raadpleeg klant",1,"K",,..acRaadpleegKlant) Set ..lstRembours.ContextMenu=pmRembours @@ -223,11 +223,11 @@ - + @@ -301,21 +301,21 @@ -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis 1 -%CHUI.TForm -0 +TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== Labels -%CHUI.TLabel +TCHUI.TLabel MainMenuItems -%CHUI.TMenuItem +TCHUI.TMenuItem MenuItems -%CHUI.TMenuItem +TCHUI.TMenuItem @@ -36,7 +35,7 @@ Set ..Caption="NewApplication" ;Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Header",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed ;MainMenuItems Index: CHUI/Derde/EC/Logging/dlgStatSettings.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Derde/EC/Logging/dlgStatSettings.cls.xml (.../dlgStatSettings.cls.xml) (revision 1074) +++ CHUI/Derde/EC/Logging/dlgStatSettings.cls.xml (.../dlgStatSettings.cls.xml) (revision 2578) @@ -2,8 +2,7 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -36,7 +35,7 @@ -%CHUI.TKader +TCHUI.TKader @@ -47,35 +46,35 @@ -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox -%CHUI.TCheckBox +TCHUI.TCheckBox @@ -86,11 +85,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -101,7 +100,7 @@ -%CHUI.TLijn +TCHUI.TLijn @@ -116,41 +115,41 @@ Do ..Center() //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGroepering","Groepering",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker",8,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblFilter","Filter",12,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGroepering","Groepering",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblUser","Gebruiker",8,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblFilter","Filter",12,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain","",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain","",1,1,..Height,..Width,10,,,) Set ..kdrMain.Fill=0 Set ..CaptionControl=..kdrMain //CheckBoxs - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkRequests","Requests",3,15,,12) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkRequests","Requests",3,15,,12) Set ..chkRequests.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkSessions","Sessions",4,15,,12) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkSessions","Sessions",4,15,,12) Set ..chkSessions.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUsers","Gebruikers",5,15,,14) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUsers","Gebruikers",5,15,,14) Set ..chkUsers.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkGVOs","Goed voor order",6,15,,19) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkGVOs","Goed voor order",6,15,,19) Set ..chkGVOs.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUserKlanten","Klanten",8,15,,9) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUserKlanten","Klanten",8,15,,9) Set ..chkUserKlanten.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUserVTWs","Vertegenwoordigers",9,15,,22) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUserVTWs","Vertegenwoordigers",9,15,,22) Set ..chkUserVTWs.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkUserIntern","Intern (lokaal IP)",10,15,,22) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkUserIntern","Intern (lokaal IP)",10,15,,22) Set ..chkUserIntern.Checked=0 - Do ##class(%CHUI.TCheckBox).CreateSet(%this,"chkFilterToegang","Toegang",12,15,,9) + Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkFilterToegang","Toegang",12,15,,9) Set ..chkFilterToegang.Checked=0 //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",14,19,,8,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",14,19,,8,,,,,$$$alCenter) Set ..btnOk.ModalResult=$$$mrOk - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Cancel",14,28,,8,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Cancel",14,28,,8,,,,,$$$alCenter) Set ..btnCancel.ModalResult=$$$mrCancel //Lines - Set ..lnBottom=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBottom",..Height-2,3,..Width-4) + Set ..lnBottom=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBottom",..Height-2,3,..Width-4) Do ..SetTabAndPaintOrder(..chkRequests,..chkSessions,..chkUsers,..chkGVOs,..chkUserKlanten,..chkUserVTWs,..chkUserIntern,..chkFilterToegang,..btnOk,..btnCancel) ]]> Index: CHUI/Derde/KB/dlgModify.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Derde/KB/dlgModify.cls.xml (.../dlgModify.cls.xml) (revision 1074) +++ CHUI/Derde/KB/dlgModify.cls.xml (.../dlgModify.cls.xml) (revision 2578) @@ -3,7 +3,7 @@ CHUI.KB,BL.Derde.Kennis 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -12,103 +12,103 @@ PROPERTIES ========================================================================================================================== Controls -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.Ctrl.TKlantEdit +TCHUI.Ctrl.TKlantEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.Ctrl.TDateEdit +TCHUI.Ctrl.TDateEdit -%CHUI.TMemo +TCHUI.TMemo -%CHUI.Ctrl.TKlassificatiePopup +TCHUI.Ctrl.TKlassificatiePopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TPopup +TCHUI.TPopup -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -132,59 +132,59 @@ Set ..OnCloseQuery=$LB(%this,"dlgModifyQueryClose") ;Actions - Do ##class(%CHUI.TAction).CreateSet(%this, "acOk", "Save", 1, $LB("S"), $LB(%this,"acOkClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acCancel", "Cancel", 1, , $LB(%this,"acCancelClick")) - Do ##class(%CHUI.TAction).CreateSet(%this, "acAddProducten", "...", 1, , $LB(%this,"acAddProductenClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acOk", "Save", 1, $LB("S"), $LB(%this,"acOkClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acCancel", "Cancel", 1, , $LB(%this,"acCancelClick")) + Do ##class(TCHUI.TAction).CreateSet(%this, "acAddProducten", "...", 1, , $LB(%this,"acAddProductenClick")) ;Label header - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clRed,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader",..Caption,1,1,1,80,,,,$LB($$$clUltraLight,$$$clRed,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader ;Other labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",5,3,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",8,3,1) - //Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProducten","Producten",8,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlant","Klant",3,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblActionDomain","Actiedomein",5,3,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblKlassificatie","Classific.",8,3,1) + //Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProducten","Producten",8,3) Set BGColor=$$GetDefaultBGColor^$$$SystemRtn($$$ftMain,$$$fsEdit) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblProductenValue","(geen)",11,15,,64,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblProductenValue","(geen)",11,15,,64,,,,$LB(,,$$$fsNoUnderline)) Set ..lblProductenValue.Sizing=$$$lsFixed Set ..lblProductenValue.Ellipsis=1 - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidFrom","Geldig van",5,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblValidTo","t.e.m.",7,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDate","Datum",3,43,1) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblDateValue","",3,50,1,16,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",9,43,1,16) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidFrom","Geldig van",5,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblValidTo","t.e.m.",7,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDate","Datum",3,43,1) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDateValue","",3,50,1,16,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAutoShow","Toon",9,43,1,16) ;Popups - Set ..pmActionDomain=##class(%CHUI.TPopup).Create(%this,"pmActionDomain","",5,15,2,25) + Set ..pmActionDomain=##class(TCHUI.TPopup).Create(%this,"pmActionDomain","",5,15,2,25) Set ..pmActionDomain.opMultiSelect=1 Do ..pmActionDomain.BecomeTreeView() Do ..pmActionDomain.AddDelimitedTreeResource("DERDE.KENNIS","ACTIONDOMAIN") - Set ..pmKlassificatie=##class(%CHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",8,15,2,25) + Set ..pmKlassificatie=##class(TCHUI.Ctrl.TKlassificatiePopup).Create(%this,"pmKlassificatie","",8,15,2,25) - Set ..pmAutoShow=##class(%CHUI.TPopup).Create(%this,"pmAutoShow","",9,56,1,11) + Set ..pmAutoShow=##class(TCHUI.TPopup).Create(%this,"pmAutoShow","",9,56,1,11) Do ..pmAutoShow.InitSpec(,,,6,%Screen.Width-..pmAutoShow.Left) Do ..pmAutoShow.AddResource("DERDE.KENNIS","AUTOSHOW") Do ..pmAutoShow.DefaultFrames() ;Edits - Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",3,15,1,25,91,50) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidFrom","",5,56,1,10,91,50) - Do ##class(%CHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidTo","",7,56,1,10,91,50) + Do ##class(TCHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","",3,15,1,25,91,50) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidFrom","",5,56,1,10,91,50) + Do ##class(TCHUI.Ctrl.TDateEdit).CreateSet(%this,"txtValidTo","",7,56,1,10,91,50) ;Memos - Do ##class(%CHUI.TMemo).CreateSet(%this,"mmoMsg","",13,3,%Screen.Height-7,%Screen.Width-4) + Do ##class(TCHUI.TMemo).CreateSet(%this,"mmoMsg","",13,3,%Screen.Height-7,%Screen.Width-4) Do ..mmoMsg.InitSpec() ;Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",3,%Screen.Width-11,1,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",3,%Screen.Width-11,1,11,,,,,$$$alCenter) Set ..btnOk.Action=..acOk - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",5,%Screen.Width-11,1,11,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",5,%Screen.Width-11,1,11,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel - Set FormBGColor=$$GetDefaultBGColor^%CHUI.System($$$ftMain,$$$fsBackground) - Do ##class(%CHUI.TButton).CreateSet(%this,"btnAddProducten","Producten",11,3,1,9,,,,$LB($$$clBlack,FormBGColor,$$$fsUnderline),$$$alCenter) + Set FormBGColor=$$GetDefaultBGColor^TCHUI.System($$$ftMain,$$$fsBackground) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnAddProducten","Producten",11,3,1,9,,,,$LB($$$clBlack,FormBGColor,$$$fsUnderline),$$$alCenter) Set ..btnAddProducten.Action=..acAddProducten ;Tab & paint order @@ -465,13 +465,13 @@ ========================================================================================================================== EVENTs ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,CanClose:%Boolean +Sender:TCHUI.TControlBasis,CanClose:%Boolean BL.Sys.FOP.Common 1 -%CHUI.TForm +TCHUI.TForm 0 @@ -18,107 +18,107 @@ ========================================================================================================================== PROPERTIES . ========================================================================================================================== -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList -%CHUI.TLijst +TCHUI.TLijst -%CHUI.TDataSetList +TCHUI.TDataSetList @@ -137,75 +137,75 @@ -%CHUI.TContextMenu +TCHUI.TContextMenu -%CHUI.TContextMenu +TCHUI.TContextMenu -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem -%CHUI.TMenuItem +TCHUI.TMenuItem @@ -346,47 +346,47 @@ Set ..OnCloseQuery=$LB(%this,"MainFormCloseQuery") //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acPrint","Print",1,$LB("P")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acPrint","Print",1,$LB("P")) Set ..acPrint.OnExecute=$LB(%this,"acPrintExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acResetSel","Reset from selected",1,$LB("W")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acResetSel","Reset from selected",1,$LB("W")) Set ..acResetSel.OnExecute=$LB(%this,"acResetSelExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acReset","Reset completed...",1) + Do ##class(TCHUI.TAction).CreateSet(%this,"acReset","Reset completed...",1) Set ..acReset.OnExecute=$LB(%this,"acResetExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acReprint","Reprint browse...",1,$LB("B")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acReprint","Reprint browse...",1,$LB("B")) Set ..acReprint.OnExecute=$LB(%this,"acReprintExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acReprintSel","Reprint selected",1,$LB("R")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acReprintSel","Reprint selected",1,$LB("R")) Set ..acReprintSel.OnExecute=$LB(%this,"acReprintSelExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acPrintSelected","Print Sel",1,$LB("S")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acPrintSelected","Print Sel",1,$LB("S")) Set ..acPrintSelected.OnExecute=$LB(%this,"acPrintSelectedExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acPrintAll","PrintAll",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acPrintAll","PrintAll",1,$LB("")) Set ..acPrintAll.OnExecute=$LB(%this,"acPrintAllExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acSetAddendum","Addendum toevoegen",1,$LB("A")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acSetAddendum","Addendum toevoegen",1,$LB("A")) Set ..acSetAddendum.OnExecute=$LB(%this,"acSetAddendumExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acRefresh","Vernieuwen",1,$LB($$$kcF5)) + Do ##class(TCHUI.TAction).CreateSet(%this,"acRefresh","Vernieuwen",1,$LB($$$kcF5)) Set ..acRefresh.OnExecute=$LB(%this,"acRefreshExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","",1,1,,,,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed Set ..CaptionControl=..lblHeader - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblSelectedType","Type",9,66) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfSendingsHdr","Zendingen",10,70,,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfPagesHdr","Pagina's",12,71,,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfDocsHdr","Documenten",14,69,,,,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfSendings",,11,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblSelectedType","Type",9,66) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfSendingsHdr","Zendingen",10,70,,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfPagesHdr","Pagina's",12,71,,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfDocsHdr","Documenten",14,69,,,,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfSendings",,11,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) Set ..lblNrOfSendings.Sizing=$$$lsFixed Set ..lblNrOfSendings.DataType=$$$edtInteger Set ..lblNrOfSendings.Format=".0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfPages",,13,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfPages",,13,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) Set ..lblNrOfPages.Sizing=$$$lsFixed Set ..lblNrOfPages.DataType=$$$edtInteger Set ..lblNrOfPages.Format=".0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblNrOfDocs",,15,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblNrOfDocs",,15,65,,14,,,,$LB($$$clUltraDark,,$$$fsNoUnderline),$$$alRight) Set ..lblNrOfDocs.Sizing=$$$lsFixed Set ..lblNrOfDocs.DataType=$$$edtInteger Set ..lblNrOfDocs.Format=".0" - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAddendumHdr","Addendum",24,3) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblAddendum","",24,12,,,,,,$LB($$$clUltraDark,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAddendumHdr","Addendum",24,3) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblAddendum","",24,12,,,,,,$LB($$$clUltraDark,,$$$fsNoUnderline)) //Laatste addendum terug actief maken Set GetLastUsedAddendum=##class(FOP.Addendum).GetLastUsedAddendum() @@ -397,13 +397,13 @@ . Set ..FActiveAddendumName="" //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrint","Print",3,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrint","Print",3,66,,13,,,,,$$$alCenter) Set ..btnPrint.Action=..acPrint - ;Do ##class(%CHUI.TButton).CreateSet(%this,"btnRePrint","Reprint",17,70,,9,,,,,$$$alCenter) + ;Do ##class(TCHUI.TButton).CreateSet(%this,"btnRePrint","Reprint",17,70,,9,,,,,$$$alCenter) ;Set ..btnRePrint.Action=..acRePrint - Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrintSelected","Print sel",5,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrintSelected","Print sel",5,66,,13,,,,,$$$alCenter) Set ..btnPrintSelected.Action=..acPrintSelected - Do ##class(%CHUI.TButton).CreateSet(%this,"btnPrintAll","Print alles",7,66,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnPrintAll","Print alles",7,66,,13,,,,,$$$alCenter) Set ..btnPrintAll.Action=..acPrintAll //HoofdMenuItem @@ -432,7 +432,7 @@ Set ..miExtractDoc=..hmiExtra.AddItem(%this,"miExtractDoc","Forceer regio...",1,,$LB(%this,"miExtractDocClick")) //List waiting - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstWaiting","",3,3,13,61) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstWaiting","",3,3,13,61) Set ..lstWaiting.OnKeyPress=$LB(%this,"lstWaitingKeyPress") Set ..lstWaiting.OnSelect=$LB(%this,"lstWaitingSelect") @@ -473,7 +473,7 @@ Do ..lstWaiting.AddCheckBoxDBToRowDef(rdRowlstWaiting,..#colWAddAddendum) //List Log - Do ##class(%CHUI.TLijst).CreateSet(%this,"lstLog","",17,3,6,76) + Do ##class(TCHUI.TLijst).CreateSet(%this,"lstLog","",17,3,6,76) Set ..lstLog.OnKeyPress=$LB(%this,"lstLogKeyPress") Set rdHeaderlstLog=..lstLog.CreateRowDef("rdHeaderlstLog",$$$ftAddLijstHeader) @@ -503,7 +503,7 @@ Do ..lstLog.AddLabelDBToRowDef(rdRowlstLog,..#colLUserName) //DataSetList waiting - Set ..dslWaiting=##class(%CHUI.TDataSetList).Create(..lstWaiting,"dslWaiting") + Set ..dslWaiting=##class(TCHUI.TDataSetList).Create(..lstWaiting,"dslWaiting") Set ..dslWaiting.OnQueryInit=$LB(%this,"dslWaitingQueryInit") Do ..dslWaiting.AddColDef(..#colWType) @@ -519,7 +519,7 @@ Do ..dslWaiting.AddColDef(..#colWAddendumInfo) //DataSetList Log - Set ..dslLog=##class(%CHUI.TDataSetList).Create(..lstLog,"dslLog") + Set ..dslLog=##class(TCHUI.TDataSetList).Create(..lstLog,"dslLog") Set ..dslLog.OnQueryInit=$LB(%this,"dslLogQueryInit") Do ..dslLog.AddColDef(..#colLMsg) @@ -536,11 +536,11 @@ Do ..lstLog.InitSpec(..dslLog,rdHeaderlstLog,rdRowlstLog) //Menu - Set ..cmWaiting=##class(%CHUI.TContextMenu).Create(%this,"cmWaiting") + Set ..cmWaiting=##class(TCHUI.TContextMenu).Create(%this,"cmWaiting") Set ..pmiSetAddendum=..cmWaiting.AddItem(%this,"pmiSetAddendum","Addendum...",1,,,..acSetAddendum) Set ..lstWaiting.ContextMenu=..cmWaiting - Set ..cmLog=##class(%CHUI.TContextMenu).Create(%this,"cmLog") + Set ..cmLog=##class(TCHUI.TContextMenu).Create(%this,"cmLog") Set ..pmiResetSel=..cmLog.AddItem(%this,"pmiResetSel","Reset from selected",1,,,..acResetSel) Set ..pmiReset=..cmLog.AddItem(%this,"pmiReset","Reset completed...",1,,,..acReset) Do ..cmLog.AddItem(%this,"pmiLogSep","-File",1) @@ -629,7 +629,7 @@ ;Form aanmaken om bijhorende bestanden in weer te geven Set Msg=$S(PrintOneFile:"Selecteer een bestand:",1:"Selecteer een of meerdere bestanden:") - Set frmList=##class(%CHUI.Dlg.TList).CreateAndPrepare(..Caption,Msg,,60,18,"Reprint",'PrintOneFile) ;'PrintOneFile=checkboxlist + Set frmList=##class(TCHUI.Dlg.TList).CreateAndPrepare(..Caption,Msg,,60,18,"Reprint",'PrintOneFile) ;'PrintOneFile=checkboxlist ;Bijhorende bestanden aan lijst toevoegen Do areAddReprintFilesToList(frmList,PrintGroup,$$$OMRPrintDirNtw) @@ -808,7 +808,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== - + - + -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ================================================================================================================================================= -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis PRINT om te wijzigen).",$$$mbOkCancel)=$$$mrCancel)) @@ -1081,7 +1081,7 @@ ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis PRINT om te wijzigen).",$$$mbOkCancel)=$$$mrCancel)) @@ -1124,7 +1124,7 @@ ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ------------------------------------------------------------------------------------------------------------------------------------------------- -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis ================================================================================================================================================= -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis,KeyCode:%String +Sender:TCHUI.TControlBasis,KeyCode:%String -Sender:%CHUI.TControlBasis,CanClose:%Boolean +Sender:TCHUI.TControlBasis,CanClose:%Boolean 1 -%CHUI.TForm -0 +TCHUI.TForm -%CHUI.TAction +TCHUI.TAction -%CHUI.TAction +TCHUI.TAction @@ -32,7 +31,7 @@ -%CHUI.TKader +TCHUI.TKader @@ -43,35 +42,35 @@ -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel @@ -82,31 +81,31 @@ -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit -%CHUI.TEdit +TCHUI.TEdit @@ -117,11 +116,11 @@ -%CHUI.TButton +TCHUI.TButton -%CHUI.TButton +TCHUI.TButton @@ -132,7 +131,7 @@ -%CHUI.TPopup +TCHUI.TPopup @@ -143,7 +142,7 @@ -%CHUI.TLijn +TCHUI.TLijn @@ -169,59 +168,59 @@ Do ..Center() //Kaders - Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) + Do ##class(TCHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,) Set ..CaptionControl=..kdrMain //Lines - Set ..lnMid=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",..Height-2,1,..Width,..Height-2,,,$LB($LB(1,"ML"),$LB(,"MR"))) + Set ..lnMid=##class(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",..Height-2,1,..Width,..Height-2,,,$LB($LB(1,"ML"),$LB(,"MR"))) //Actions - Do ##class(%CHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acCancel","Annuleren",1,$LB("")) Set ..acCancel.OnExecute=$LB(%this,"acCancelExecute") - Do ##class(%CHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) + Do ##class(TCHUI.TAction).CreateSet(%this,"acZetAutoCC","Zet auto CC",1,$LB("")) Set ..acZetAutoCC.OnExecute=$LB(%this,"acZetAutoCCExecute") //Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGangMin","Gang min",6,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblXMin","X min",8,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblYMin","Y min",10,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblPrioriteit","Prioriteit",13,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblGangMax","max",6,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblXMax","max",8,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblYMax","max",10,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblMagazijn","Magazijn:",3,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGangMin","Gang min",6,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblXMin","X min",8,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblYMin","Y min",10,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblPrioriteit","Prioriteit",13,4,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblGangMax","max",6,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblXMax","max",8,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblYMax","max",10,22,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline)) //Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtGangMin","",6,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtGangMin","",6,15,,5) Set ..txtGangMin.MinValue=1 Set ..txtGangMin.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtXMin","",8,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtXMin","",8,15,,5) Set ..txtXMin.MinValue=1 Set ..txtXMin.MaxValue=50 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtYMin","",10,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtYMin","",10,15,,5) Set ..txtYMin.MinValue=1 Set ..txtYMin.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtPrioriteit","",13,15,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtPrioriteit","",13,15,,5) Set ..txtPrioriteit.MinValue=1 Set ..txtPrioriteit.MaxValue=9 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtYMax","",10,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtYMax","",10,26,,5) Set ..txtYMax.MinValue=1 Set ..txtYMax.MaxValue=15 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtXMax","",8,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtXMax","",8,26,,5) Set ..txtXMax.MinValue=1 Set ..txtXMax.MaxValue=50 - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtGangMax","",6,26,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtGangMax","",6,26,,5) Set ..txtGangMax.MinValue=1 Set ..txtGangMax.MaxValue=15 //Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",16,5,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",16,5,,13,,,,,$$$alCenter) Set ..btnZetAutoCC.Action=..acZetAutoCC - Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,19,,13,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,19,,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel //Popups - Set ..pmMagazijn=##class(%CHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,15,,16) + Set ..pmMagazijn=##class(TCHUI.TPopup).Create(%this,"pmMagazijn","Magazijn",3,15,,16) Do ..pmMagazijn.InitSpec(,,,10) Do ..pmMagazijn.AddItem(1,"Auto") Do ..pmMagazijn.DefaultFrames() @@ -246,7 +245,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: CHUI/PDOTest.cls.xml =================================================================== diff -u -r1952 -r2578 --- CHUI/PDOTest.cls.xml (.../PDOTest.cls.xml) (revision 1952) +++ CHUI/PDOTest.cls.xml (.../PDOTest.cls.xml) (revision 2578) @@ -2,32 +2,31 @@ 1 -%CHUI.TForm -0 +TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== Labels -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TLabel +TCHUI.TLabel Edits -%CHUI.TEdit +TCHUI.TEdit Buttons -%CHUI.TButton +TCHUI.TButton @@ -40,15 +39,15 @@ Set ..Caption="NewApplication" ;Labels - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblHeader","Nieuwe app",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","Nieuwe app",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline)) Set ..lblHeader.Sizing=$$$lsFixed - Do ##class(%CHUI.TLabel).CreateSet(%this,"lblLabel2","Label2",3,3,,,$$$alLeft) + Do ##class(TCHUI.TLabel).CreateSet(%this,"lblLabel2","Label2",3,3,,,$$$alLeft) ;Edits - Do ##class(%CHUI.TEdit).CreateSet(%this,"txtEdit1","Edit1",3,10,,5) + Do ##class(TCHUI.TEdit).CreateSet(%this,"txtEdit1","Edit1",3,10,,5) ;Buttons - Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",23,72,,7,,,,,$$$alCenter) + Do ##class(TCHUI.TButton).CreateSet(%this,"btnOk","Ok",23,72,,7,,,,,$$$alCenter) Set ..btnOk.OnClick=$LB(%this,"btnOkClick") Do ..SetTabAndPaintOrder(..lblHeader,..btnOk,..lblLabel2,..txtEdit1) @@ -60,7 +59,7 @@ ========================================================================================================================== EVENTs . ========================================================================================================================== -Sender:%CHUI.TControlBasis +Sender:TCHUI.TControlBasis Index: CHUI/BKH/Renewals.mac.rou =================================================================== diff -u -r762 -r2578 --- CHUI/BKH/Renewals.mac.rou (.../Renewals.mac.rou) (revision 762) +++ CHUI/BKH/Renewals.mac.rou (.../Renewals.mac.rou) (revision 2578) @@ -2,13 +2,13 @@ // of // do StartLev^CHUI.BKH.Renewals Start - #Include %CHUI.System + #Include TCHUI.System - Set %Application=##class(%CHUI.TApplication).Create() + Set %Application=##class(TCHUI.TApplication).Create() Do:($G(%CHUIDebug)) %Application.AttachDebugEvents() - Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520) - Set %Input=##class(%CHUI.TInput).Create() + Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520) + Set %Input=##class(TCHUI.TInput).Create() Do %Screen.Clear() ;Check of de ingelogde gebruiker bekend is... @@ -34,13 +34,13 @@ Quit StartLev - #Include %CHUI.System + #Include TCHUI.System - Set %Application=##class(%CHUI.TApplication).Create() + Set %Application=##class(TCHUI.TApplication).Create() Do:($G(%CHUIDebug)) %Application.AttachDebugEvents() - Set %Screen=##class(%CHUI.TScreen).Create($$$ttVT520) - Set %Input=##class(%CHUI.TInput).Create() + Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520) + Set %Input=##class(TCHUI.TInput).Create() Do %Screen.Clear() ;Check of de ingelogde gebruiker bekend is... @@ -51,9 +51,9 @@ ;MainForm //Set frmMain=%Application.CreateForm("CHUI.Dlg.Tools.TSelectLev","frmMain","frmMain") - //Set frmMain=%Application.CreateForm("%CHUI.Dlg.Tools.TSelectKlant","frmMain","frmMain") + //Set frmMain=%Application.CreateForm("TCHUI.Dlg.Tools.TSelectKlant","frmMain","frmMain") Set Input = "" - Set LevNr=##class(%CHUI.Dlg.TSelectLev).Select(Input) + Set LevNr=##class(TCHUI.Dlg.TSelectLev).Select(Input) $$$MB("LevNr="_LevNr) //Do %Application.Run() Index: CHUI/Test/Frame.cls.xml =================================================================== diff -u -r1074 -r2578 --- CHUI/Test/Frame.cls.xml (.../Frame.cls.xml) (revision 1074) +++ CHUI/Test/Frame.cls.xml (.../Frame.cls.xml) (revision 2578) @@ -2,55 +2,54 @@ 1 -%CHUI.TFrame -0 +TCHUI.TFrame -%CHUI.TKader +TCHUI.TKader -%CHUI.TLabel +TCHUI.TLabel -%CHUI.TEditDB +TCHUI.TEditDB -%CHUI.TEditDB +TCHUI.TEditDB -%CHUI.TEditDB +TCHUI.TEditDB -%CHUI.TEditDB +TCHUI.TEditDB -%CHUI.TProgressBar +TCHUI.TProgressBar -%CHUI.TProgressBar +TCHUI.TProgressBar 1