serial UglyPickingCNTs Default %Library.TMFormClass %Library.TMForm %TMLabel %TMLabel %Library.String %Library.String %TMShape %Library.String "(onbekend)" %TMButton %TMButton %TMLabel %TMLabel %TMListView Destructor for SMWrap forms. cache 0 %Library.Status document literal initvalue:%String cache 0 %Status document literal cache 0 document literal ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; GridLines = True ; HideSelection = False ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; ShowColumnHeaders = False ; TabOrder = 0 ; ViewStyle = vsReport ; OnSelectItem = lvProductsSelectItem ; end ; object btnCancel: CButton ; Left = 4 ; Top = 198 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&ESC' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 1 ; OnClick = btnCancelClick ; end ; object btnSelect: CButton ; Left = 152 ; Top = 198 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&SELECT' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 2 ; OnClick = btnSelectClick ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal 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 Args:%String cache 0 document literal Geeft terug hoeveel producten er in de lijst staan. U kan dan, indien dat er slechts een product is, het scherm overslaan en rechtsreeks het picking scherm oproepen cache 0 %Library.Integer document literal 0 Do . Set ..lvProducts.Selected=..lvProducts.Items.GetItems(0) Quit Count ]]> Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form lblHeader lblKlant Label1 Label2 ListView1 Shape btnCancel btnDeelPick btnFullPallet lblLocatie lblPallet lvProducts ConsNr Magazijn PalletID Locatie btnSelect lblBusy UserId