serial KeyCodesCNTs,UglyPickingCNTs Default %Library.TMFormClass %Library.TMForm %TMLabel %TMLabel %TMLabel %TMPanel %TMPanel %Library.String "(onbekend)" %TMButton %TMButton %TMEdit initvalue:%String cache 0 %Status document literal 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 %Status document literal GebruikersNr:%Library.Integer cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal modalresult=$$$mrOk If ..txtValue.Text="" Do . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen gebruikersnummer opgegeven.",$$$MBICONINFORMATION) . Do ..txtValue.SetFocus() Else Do . If ..ValidateGebruikersNr() Do .. $$$WriteToLog("GebruikersNr: "_..txtValue.Text) .. Set ..Form.ModalResult=$$$mrOk ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form Label1 Label2 Panel1 Image1 Bevel1 Button1 btnCancel btnEnter Label3 Panel2 txtValue UserId