1 %CHUI.TForm 60320,69849.74695 60316,41494.609357 0 ========================================================================================================================== PROPERTIES . ========================================================================================================================== %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TPopup %CHUI.TLijn %CHUI.TLijn %CHUI.TLijn %CHUI.TLijn %CHUI.TLijn BL.MB.Auto.CycleCount ========================================================================================================================== METHODs . ========================================================================================================================== =",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)) ; 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)) ; 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(%CHUI.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)) //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) //Edits Do ##class(%CHUI.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) Set ..txtVPB1DagenGeenCC.MinValue=0 Set ..txtVPB1DagenGeenCC.MaxValue=366 Do ##class(%CHUI.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) Set ..txtVPB1AantalBewegingen.MinValue=0 Set ..txtVPB1AantalBewegingen.MaxValue=200 Do ##class(%CHUI.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) Set ..txtVPB2Levensduur.MinValue=0 Set ..txtVPB2Levensduur.MaxValue=56 Do ##class(%CHUI.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) Set ..txtVPB3AantalBewegingen.MinValue=0 Set ..txtVPB3AantalBewegingen.MaxValue=200 Do ##class(%CHUI.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) Set ..txtVPB3Levensduur.MinValue=0 Set ..txtVPB3Levensduur.MaxValue=56 Do ##class(%CHUI.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) 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) Set ..txtBVPrioriteit.MinValue=1 Set ..txtBVPrioriteit.MaxValue=9 //CheckBoxs Do ##class(%CHUI.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) Set ..chkVolgensPalletBeweging2.Checked=0 Do ##class(%CHUI.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) Set ..chkBeperkteVoorraad.Checked=0 //Buttons Do ##class(%CHUI.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) Set ..btnSummary.Action=..acSummary Do ##class(%CHUI.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) Set ..btnZetAutoCC.Action=..acZetAutoCC Do ##class(%CHUI.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) Set ..btnDefault.Action=..acDefault Do ##class(%CHUI.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) Set ..btnZetAutoCCByPos.Action=..acZetAutoCCByPos Do ##class(%CHUI.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) Do ..pmMagazijn.InitSpec(,,,10) Do ..pmMagazijn.AddItem("1","Auto") Do ..pmMagazijn.DefaultFrames() Do ..SetTabAndPaintOrder(..lnVPB1,..lnVPB2,..lnVPB3,..lnBV,..lnA,..chkVolgensPalletBeweging1,..txtVPB1AantalBewegingen,..txtVPB1DagenGeenCC,..txtVPB1Prioriteit,..chkVolgensPalletBeweging2,..txtVPB2AantalBewegingen,..txtVPB2DagenGeenCC,..txtVPB2Levensduur,..txtVPB2Prioriteit,..chkVolgensPalletBeweging3,..txtVPB3AantalBewegingen,..txtVPB3DagenGeenCC,..txtVPB3Levensduur,..txtVPB3Prioriteit,..chkBeperkteVoorraad,..txtBVAantalBewegingen,..txtBVGemVerkoop,..txtBVPrioriteit,..btnSummary,..btnClose,..btnZetAutoCC,..btnWisAutoCC,..btnDefault,..btnZendEMPTY,..btnZetAutoCCByPos,..btnWisAutoCCAlles,..pmMagazijn) // Business logic Set ..blAutoCC=##class(BL.MB.Auto.CycleCount).%New() Do ..Defaults() ]]> ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:%CHUI.TControlBasis "_$LI($LI(lbResult,I),1) . Do $$$ShowMsgBoxSimple("Empty palleten naar Pikpost 2",Text) ]]> Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis