1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TPopup TCHUI.TLijn TCHUI.TLijn TCHUI.TLijn TCHUI.TLijn TCHUI.TLijn BL.MB.Auto.CycleCount ========================================================================================================================== METHODs . ========================================================================================================================== =",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(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(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(TCHUI.TLabel).CreateSet(%this,"lblBVAantalBewegingen","#bewegingen",20,7,,,$$$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(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(TCHUI.TEdit).CreateSet(%this,"txtVPB1AantalBewegingen","",6,22,,5,$$$alRight) Set ..txtVPB1AantalBewegingen.MinValue=0 Set ..txtVPB1AantalBewegingen.MaxValue=200 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB1DagenGeenCC","",7,22,,5,$$$alRight) Set ..txtVPB1DagenGeenCC.MinValue=0 Set ..txtVPB1DagenGeenCC.MaxValue=366 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB1Prioriteit","0",6,54,,3,$$$alRight) Set ..txtVPB1Prioriteit.MinValue=1 Set ..txtVPB1Prioriteit.MaxValue=9 ; Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2AantalBewegingen","",10,22,,5,$$$alRight) Set ..txtVPB1AantalBewegingen.MinValue=0 Set ..txtVPB1AantalBewegingen.MaxValue=200 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2DagenGeenCC","",11,22,,5,$$$alRight) Set ..txtVPB2DagenGeenCC.MinValue=0 Set ..txtVPB2DagenGeenCC.MaxValue=366 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2Levensduur","",12,22,,5,$$$alRight) Set ..txtVPB2Levensduur.MinValue=0 Set ..txtVPB2Levensduur.MaxValue=56 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB2Prioriteit","0",10,54,,3,$$$alRight) Set ..txtVPB1Prioriteit.MinValue=1 Set ..txtVPB1Prioriteit.MaxValue=9 ; Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3AantalBewegingen","",15,22,,5,$$$alRight) Set ..txtVPB3AantalBewegingen.MinValue=0 Set ..txtVPB3AantalBewegingen.MaxValue=200 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3DagenGeenCC","",16,22,,5,$$$alRight) Set ..txtVPB3DagenGeenCC.MinValue=0 Set ..txtVPB3DagenGeenCC.MaxValue=366 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3Levensduur","",17,22,,5,$$$alRight) Set ..txtVPB3Levensduur.MinValue=0 Set ..txtVPB3Levensduur.MaxValue=56 Do ##class(TCHUI.TEdit).CreateSet(%this,"txtVPB3Prioriteit","0",15,54,,3,$$$alRight) Set ..txtVPB3Prioriteit.MinValue=1 Set ..txtVPB3Prioriteit.MaxValue=9 ; Do ##class(TCHUI.TEdit).CreateSet(%this,"txtBVAantalBewegingen","",20,22,,5,$$$alRight) Set ..txtBVAantalBewegingen.MinValue=0 Set ..txtBVAantalBewegingen.MaxValue=200 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(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging1","Volgens pallet beweging - lage prioriteit",5,5,,27) Set ..chkVolgensPalletBeweging1.Checked=0 Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging2","Volgens pallet beweging - midden prioriteit",9,5,,27) Set ..chkVolgensPalletBeweging2.Checked=0 Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkVolgensPalletBeweging3","Volgens pallet beweging - hoge prioriteit",14,5,,27) Set ..chkVolgensPalletBeweging3.Checked=0 Do ##class(TCHUI.TCheckBox).CreateSet(%this,"chkBeperkteVoorraad","Beperkte voorraad",19,5,,21) Set ..chkBeperkteVoorraad.Checked=0 //Buttons Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Sluiten",3,68,,11,,,,,$$$alCenter) Set ..btnClose.Action=..acClose Do ##class(TCHUI.TButton).CreateSet(%this,"btnSummary","Ovz. instel",3,54,,13,,,,,$$$alCenter) Set ..btnSummary.Action=..acSummary Do ##class(TCHUI.TButton).CreateSet(%this,"btnTellingen","Ovz. geteld",3,40,,13,,,,,$$$alCenter) Set ..btnTellingen.Action=..acTellingen Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCC","Zet auto CC",6,66,,13,,,,,$$$alCenter) Set ..btnZetAutoCC.Action=..acZetAutoCC Do ##class(TCHUI.TButton).CreateSet(%this,"btnWisAutoCC","Wis auto CC",7,66,,13,,,,,$$$alCenter) Set ..btnWisAutoCC.Action=..acWisAutoCC Do ##class(TCHUI.TButton).CreateSet(%this,"btnDefault","Default",8,66,,13,,,,,$$$alCenter) Set ..btnDefault.Action=..acDefault Do ##class(TCHUI.TButton).CreateSet(%this,"btnZendEMPTY","Zend EMPTY naar Pickpost 2",24,3,,28,,,,,$$$alCenter) Set ..btnZendEMPTY.Action=..acZendEMPTY Do ##class(TCHUI.TButton).CreateSet(%this,"btnZetAutoCCByPos","Zet auto CC positie",24,35,,21,,,,,$$$alCenter) Set ..btnZetAutoCCByPos.Action=..acZetAutoCCByPos Do ##class(TCHUI.TButton).CreateSet(%this,"btnWisAutoCCAlles","Wis auto CC alles",24,60,,19,,,,,$$$alCenter) Set ..btnWisAutoCCAlles.Action=..acWisAutoCCAlles //Popups Set ..pmMagazijn=##class(TCHUI.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:TCHUI.TControlBasis "_$LI($LI(lbResult,I),1) . Do $$$ShowMsgBoxSimple("Empty palleten naar Pikpost 2",Text) ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis