serial KeyCodesCNTs,UglyPickingCNTs Default %Library.TMFormClass %Library.Integer -1 %Library.TMForm %Library.Boolean 0 %Library.Boolean 0 %Library.List %Library.String 0 %Library.String ##class(BL.MB.UGLYPicking.General).GetPalletScanPreamble() %Library.Integer -1 %Library.String 0 %Library.Boolean 0 %Library.String %TMShape %Library.String "(onbekend)" %Library.String 1 %TMButton %TMButton %TMButton %TMButton %TMButton %Library.List %TMLabel %TMListView %TMPanel %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal ; Ctl3D = False ; GridLines = True ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; TabOrder = 2 ; ViewStyle = vsReport ; end ; object btnOnbepaald: CButton ; Left = 116 ; Top = 197 ; Width = 112 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = 'ONBEPAALD' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 3 ; OnClick = btnMaxClick ; end ; object btnMax1: CButton ; Tag = 2 ; Left = 4 ; Top = 143 ; Width = 74 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '1/2' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 4 ; OnClick = btnMaxClick ; end ; object btnMax2: CButton ; Tag = 4 ; Left = 79 ; Top = 143 ; Width = 74 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '1/4' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 5 ; OnClick = btnMaxClick ; end ; object btnMax3: CButton ; Tag = 8 ; Left = 154 ; Top = 143 ; Width = 74 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '1/8' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 6 ; OnClick = btnMaxClick ; end ;end ]]> Args:%String cache 0 document literal 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 cache 0 document literal MaxBound) MaxBound=+Sectie . Set SectieLen=$L(Sectie) . Set tmpItem=..lvSections.Items.Add() . Set tmpItem.Caption=$E(Sectie,SectieLen-1,SectieLen) . Do tmpItem.SubItems.Add(##class(Prod.Product).GetPropViaNr(ProductNr,"KortTekst")) . Do tmpItem.SubItems.Add(RS.Get("ExtraInt10")) If ..lvSections.Items.Count=0 Do . Do pdaMsgBox^vhVisual(..Form.Caption,"Pallet '"_..txtPalletID.Text_"' bestaat niet of er werden geen producten op gevonden.",$$$MBICONERROR) . Set ..lvSections.Color=$$$clInactiveBorder Else Do . Do ..iCOMPUPDATEbtnMaxs(MaxBound) . Set ..lvSections.Color=$$$clWindow Do ..lvSections.Items.EndUpdate() Quit ]]> MaxBound:%Library.Integer cache 0 document literal MaxBound:%Library.Integer cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form Label1 Label2 Label3 Shape1 Edit1 Label4 Shape2 Label5 Label6 Label7 Shape3 Label8 Panel1 btnCancel btnDeelPick btnFullPallet Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Label10 Label9 btnActies btnKlaar Label11 Label12 Label13 lblConsNrAndKlant lblKortTekst lblLangTekst lblLocatie lblProdNr txtAantal txtPickGx250 txtPickKx10 txtPickStuks txtRestGx250 txtRestKx10 txtRestStuks Locatie PalletID lblGx lblKx txtPickGx txtPickKx txtRestGx txtRestKx Shape4 lblAantal lblPickGx lblPickKx lblPickStuks lblRestGx lblRestKx lblRestStuks lblStuks Shape5 Shape6 Shape7 PalletReservaties lblProgress ConsNr Magazijn ProductNr PalletResID lblPalletID Label14 Panel2 pnlFull FullPick LastProdFromPallet mAantalAanwezig pnlAantallen Label15 Label16 Label18 pnlCycleCount PerformCycleCount ReCalcReservation lblTotaal txtGx txtKx txtStuks txtLocatie txtPalletID pnlDetails LocID InventoryID InSecondCycleCount LocationsID Sectie CurrentQtyPcs QtyIsChanged InDetailMode UserId PalletScanPreamble ArrowNavCtrls lbArrowNavCtrls pnlMaster PreviousQty lvSections SpeedButton1 SpeedButton2 SpeedButton3 SpeedButton4 btnMax1 btnMax2 btnMax3 btnOnbepaald lbExtraIntCtrls