Konu: PROCEDURE txtBarkod.InteractiveChange yerine ne kullanılmalı ?
Amacım, Barkod okuyucu ile
Add Object txtBarkod As myTextBox With ;
de barkodu okutmak ve
PROCEDURE txtBarkod.InteractiveChange
ile dosya içinde barkodun olup olmadığını bulmak.
Ama daha ilk numra girdiğinde 1 sıradaki kayda konumlanıyor.
*** "8 hane girildikten sonra" otomatik olarak kaydın olup olmadığını nasıl kontrol edebilirim ?
Teşekkürler.
--------------------------------------------------------
Add Object txtBarkod As myTextBox With ;
Top = 2, ;
left = 60, ;
Width = 70, ;
BackColor = 65535, ;
InputMask = "XXXXXXXX", ;
Enabled = .t.
PROCEDURE txtBarkod.InteractiveChange
with this.parent
SEEK .txtBarkod.Value
IF FOUND()
.grdListe.Refresh()
.grdListe.SetFocus()
.txtBarkod.SetFocus()
ELSE
.txtBarkod.Value = SPACE(8)
.grdListe.Refresh()
.grdListe.SetFocus()
.txtBarkod.SetFocus()
ENDIF
endwith
ENDPROC