serial UglyPickingCNTs,KeyCodesCNTs Default %Library.TMFormClass 0 %Library.String %Library.TMForm %Library.String %Library.String %Library.String "(onbekend)" %TMButton %TMButton %TMButton %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMListView %Library.TMListView %TMShape %TMShape %TMShape %TMShape %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; GridLines = True ; HideSelection = False ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; ShowColumnHeaders = False ; TabOrder = 0 ; ViewStyle = vsReport ; end ; object txtChargeID: CEdit ; Left = 4 ; Top = 171 ; Width = 156 ; Height = 19 ; Color = clBtnFace ; Ctl3D = False ; ParentCtl3D = False ; TabOrder = 1 ; OnKeyDown = txtChargeIDKeyDown ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal cache 0 document literal "_$$LCVT^vhLib(varlbAssocChargeAantal)) If ErrStr="" Do . $$$WriteToLog("RegisterChargeTrace success") . Do ..Form.Close() Else Do . Do pdaMsgBox^vhVisual(..Form.Caption,"Fout tijdens vastleggen ChargeIDs: "_ErrStr_".",$$$MBICONERROR) Quit ]]> initvalue:%String cache 0 MApplication document literal ConsNr,Magazijn,ProductNr,TotalQty cache 0 %Library.Boolean document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal MaxAantal Do .. Do pdaMsgBox^vhVisual(..Form.Caption,"Het maximaal aantal dat u kan opgeven is "_MaxAantal_".",$$$MBICONEXCLAMATION) .. Do AantalForm.mmoAantal.SelectAll() . Else Do .. Do ..rCHANGEChargeQty(,AantalForm.mmoAantal.Text) ; 1e param = "" = selected listitem .. Set EarlyQuit=1 ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal QtyLabel:%TMLabel cache 0 %Library.Integer document literal cache 0 document literal QtyLabel:%TMLabel,Aantal:%Integer cache 0 document literal Item:%TMListItem,NewQty:%Integer cache 0 document literal Lijn verwijderen! If NewQty=0 Do Quit . New Msg . Set Msg="Door het aantal te wijzigen naar nul wordt het chargenummer uit de lijst verwijderd. Doorgaan?" . If $$pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONQUESTION,1)=$$$mrOk Do .. Do Item.Delete() .. ;Restqty interface aanpassen .. Do ..dCOMPUPDATElblRest() ;Lijn aanpassen If Item.SubItems.Count=0 Do ;Net aangemaakt listitem, bevat nog geen qty subitem . Do Item.SubItems.Add(NewQty) Else Do . Do Item.SubItems.SetStrings($$$lvcChargeQty,NewQty) ;Restqty interface aanpassen Do ..dCOMPUPDATElblRest() Quit ]]> ChargeID:%String cache 0 %Library.TMListItem document literal cache 0 %Library.Integer document literal Item:%TMListItem cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form btnCancel btnOrderPicking Button1 Button2 Button3 Button4 Button5 btnCycleCount btnVerplaatsenPallet btnDbgPallets btnRecProd btnResetORDW UserId Button6 btnSectieIndeling btnProcessOrders tmrAutoExit btnLocSummary Shape1 lblConsNrAndKlant lblKortTekst lblLangTekst btnActies btnKlaar Label1 Label2 lblTotal lblTotalHdr lvProducts Shape2 Shape3 Shape4 btnAantal lblRest lblRestHdr lvCharge shRest shRestHdr shTotal shTotalHdr txtChargeNr ChargeScanPreamble txtChargeID lvChargeID ConsNr Magazijn ProductNr Qty btnForce