serial UglyPickingCNTs,KeyCodesCNTs Default %Library.TMFormClass 0 %Library.String %Library.TMForm %TMButton %TMButton %TMListBox %Library.Integer 0 initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal DueOut:%String cache 0 %Library.String document literal 0) "V" New DueTijd,VandaagTijd Set VandaagTijd=$P($H,",",2) Set DueTijd=$P(DueOut,",",2) Quit:(DueTijd initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 %Library.Integer document literal Args:%String cache 0 document literal 4 5 1 8 6 9 7 2 3 10 %Library.CacheSerialState list "%Library.TMFormClass" Address Form Button1 Button2 Button3 Button4 Button5 btnCancel btnCancel2 Edit1 Edit2 Label1 Label2 btnAdres btnAlle btnBon btnHalux btnProduct ControlMode Memo1 NumberEdit1 btnPalletEtiket TriggerPalletEtiket btnDelayOrder Shape1 ConsNr btnOk lbOrders outConsNr FilterMagazijn