serial UglyPickingCNTs,BL.Derde.Kennis Default %Library.TMFormClass %Library.String %Library.String %Library.String %Library.String %Library.String %Library.TMForm %Library.String "(onbekend)" %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMMemo %TMShape initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal cache 0 %Library.String document literal KennisID:%String cache 0 %Library.Boolean document literal cache 0 document literal 1) . If ..FCurrentKennisIDIndex=IDCount Do .. Set ..btnOk.Caption="ALLES &GELEZEN" . Else Do .. Set ..btnOk.Caption="&VOLGENDE" Do ..FLoadKennis(..FGetCurrentKennisID()) Set ..lblCreationUser.Left=..lblCreationDateAndTime.Left+..lblCreationDateAndTime.Width+4 Set ..lblCreationUser.Width=..lblAnkerCnt.Left-4-..lblCreationUser.Left If IDCount=1 Do . Set ..lblCreationUser.Alignment=$$$taRightJustify Else Do . Set ..lblCreationUser.Alignment=$$$taCenter Quit ]]> initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal lbKennisID,DocType,DocRef,UserID:%String cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 1 Do . Set ..FCurrentKennisIDIndex=..FCurrentKennisIDIndex-1 . Do ..FUpdateInterface() ;End of user code s Args=$lb(Sender) q ]]> %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 Label1 Label2 Label3 Shape1 btnOk lblCreationDateAndTime mmoText btnEsc btnPrevious lblAnkerCnt lblCreationUser FCurrentKennisIDIndex FlbKennisID lblKlant shTop FProductNr FUserID lblKortTekst FDocRef FDocType