serial KeyCodesCNTs,UglyPickingCNTs Default %Library.TMFormClass 0 %Library.Integer -1 %Library.TMForm %Library.Boolean 0 %Library.Boolean 0 %TMLabel %TMLabel %Library.List %Library.String 0 %Library.Integer -1 %Library.String 0 %Library.Boolean 0 %Library.Boolean 0 %Library.String %TMShape %TMShape %TMShape %TMShape %TMShape %Library.String "(onbekend)" %Library.String 1 %TMButton %TMButton %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMPanel %TMPanel %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Qty:%Library.Integer,AskForReden:%Library.Boolean=0 cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal PalletID:%Library.String cache 0 %Library.Boolean document literal ProductNr:%Integer cache 0 %Library.Boolean document literal initvalue:%String cache 0 %Library.Status document literal cache 0 document literal InventoryID:%String cache 0 document literal LocID:%String,Locatie:%List,Sectie:%String,Product:%String,CurrentQtyPcs:%Integer,AutoCC:%Library.Boolean=0 cache 0 %Library.String document literal Locatie:%String,PalletID:%String cache 0 %Library.Boolean document literal 0) ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Vragen naar motivatie C/C . ;Indien het huidig ingegeven aantal verschilt van de vorige keer, . ;de gebruiker er opnieuw op wijzen dat hij ermee ah spelen is . Else Do .. New Msg .. Set Msg="De opgegeven waarde verschilt van vorige keer. Gelieve opnieuw te tellen." .. Do MsgAndFocusAantal(Msg) .. Set ..PreviousQty=InputQty Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ;============================================================================== MsgAndFocusAantal(Msg) Do pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONINFORMATION) Set ..txtStuks.Text=0 Set ..txtKx.Text=0 Set ..txtGx.Text=0 Do ..FocusAantal() Quit ]]> cache 0 %Library.Integer document literal 1) && ($$IsGroep^vhUSER(..UserId, "CC"))) Do . Do CCProdSelForm.Form.ShowModal() . Do ..txtPalletID.SelectAll() . Set ..Form.ActiveControl=..txtPalletID . Set ..txtLocatie.Text=TransLoc ; Locatie Else Do ;geen producten op pallet... . Do ..txtPalletID.SelectAll() . Set ..txtLocatie.Text="" Do CCProdSelForm.%Close() Quit ProdsOnPal ]]> ProductNr:%Integer cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 7 Do . Set ..lblTotaal.Font.Size=10 Else Do . Set ..lblTotaal.Font.Size=14 Set ..lblTotaal.Caption=$$DottedInt^vhLib(tmpTotaal) Set ..lblTotaal.Tag=tmpTotaal ;End of user code s Args=$lb(Sender) q ]]> %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 lblAanwezig AutoCC