Modification DC_FindBrowse
Posted: Thu Mar 01, 2012 8:54 am
Hello Roger
Add this Modification to when it arrives at the beginning or end of the database not Blink
do case
case nKey == xbeK_UP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:up()
oBrowse:refreshAll()
case nKey == xbeK_DOWN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:down()
oBrowse:refreshAll()
case nKey == xbeK_CTRL_PGUP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:gotop()
oBrowse:refreshAll()
case nKey == xbeK_CTRL_PGDN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:gobottom()
oBrowse:refreshAll()
case nKey == xbeK_PGDN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:PageDown()
oBrowse:refreshAll()
case nKey == xbeK_PGUP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:PageUp()
oBrowse:refreshAll()
Add this Modification to when it arrives at the beginning or end of the database not Blink
do case
case nKey == xbeK_UP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:up()
oBrowse:refreshAll()
case nKey == xbeK_DOWN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:down()
oBrowse:refreshAll()
case nKey == xbeK_CTRL_PGUP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:gotop()
oBrowse:refreshAll()
case nKey == xbeK_CTRL_PGDN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:gobottom()
oBrowse:refreshAll()
case nKey == xbeK_PGDN .AND. !((xData)->(DC_TestEof( ))) && Nolberto Paulino
oBrowse:PageDown()
oBrowse:refreshAll()
case nKey == xbeK_PGUP .AND. !((xData)->(DC_TestBof( ))) && Nolberto Paulino
oBrowse:PageUp()
oBrowse:refreshAll()