SCOPE / FILTER / BROWSE / GRID

[AUGE_OHR]

hi,

i have made a Sample using SCOPE and FILTER with DBF and show "Result" in a BROWSE.

SEEKNUM.ZIP

(53.19 KiB) Downloaded 113 times

it include a DBF with

Code: Select all

    aadd(field_list,{"PREFIX" ,"C",4,0})
    aadd(field_list,{"INVOICE","N",6,0})
    aadd(field_list,{"INDATE" ,"D",8,0})
    aadd(field_list,{"NOTIZ"  ,"C",60,0})
    dbcreate(datei,field_list)

there is a Combobox for "Prefix" (need ENTER)
there is a TEXTBOX for Invoice Number ( also Part of Number ; need ENTER)

Index is

Code: Select all

   INDEX ON SEEKNUM->PREFIX + STRZERO(SEEKNUM->INVOICE,6) + DTOS(SEEKNUM->INDATE) TO SEEKNUM

---

BROWSE have no ONKEY so "increment search" is not so easy.

you can use a GRID to "browse" a DBF and you got ONKEY when use a GRID
but, as i remember, GRID will not "refresh" to show new Position ...

so i use ONENTER of ComboBox / TEXTBOX to Do_Seek()

[JALMAG]

Thanks AUGE_OHR

[AUGE_OHR]

hi,

there is a BUG in last Code : when use Combobox to get new "Prefix" you MUST reset FILTER before new SCOPE

Code: Select all

FUNCTION On_Combo( aCombo)

   // reset FILTER
   SET FILTER TO

   // reset SCOPE before SEEK
   SET SCOPE TO

   SEEK( cPrefix )
   IF FOUND()
      SET SCOPEBOTTOM TO ( cPrefix )
      SET SCOPETOP TO ( cPrefix )
   ENDIF

p.s. i´m working on new Version using GRID and ONKEY