HMGforum.com

Code: Select all

PROCEDURE DoSearchSubject()
LOCAL cSeek  := TRIM( SearchForm.SearchText.Value )
LOCAL nRecno := RECNO()
LOCAL hGrid
   SEEK( UPPER( cSeek ) )
   IF FOUND()
      nRecno := RECNO()
      Domethod( "SearchForm", "SearchGrid", "REFRESH" )
      hGrid := GetControlHandle( "SearchGrid", "SearchForm" )
      UnMarkAll( hGrid, .T. )
      // this line need before mark
      Setproperty( "SearchForm", "SearchGrid", "VALUE", nRecno  )
      ItemMark( hGrid, nRecno )
   ELSE
      GOTO( nRecno )
   ENDIF
RETURN

Code: Select all

STATIC PROCEDURE DoSearchSubject()

PRIVATE Filtro

 USE OUTLOOK INDEX OUTLOOK

 IF LEN( SearchForm.SearchText.Value) != 0
       Filtro :=  LOWER(SearchForm.SearchText.Value)   
       SET FILTER TO AT(Filtro,OUTLOOK->SUBJECT) <>0
       SET FILTER TO FILTRO $  OUTLOOK->SUBJECT

       SET SOFTSEEK ON
       GO TOP
       SearchForm.SearchGrid.value := OUTLOOK->(RecNo())
       SearchForm.SearchGrid.Refresh
               
   ELSE
     SET FILTER TO
    SearchForm.SearchGrid.value := OUTLOOK->(RecNo())
    SearchForm.SearchGrid.Refresh 

  ENDIF

 SET SOFTSEEK OFF 

RETURN

Code: Select all

// ----------------------------------------------------------------------
// ----------------------------------------------------------------------
// --> Busca_Aprox
// ----------------------------------------------------------------------
// --> Busca registros por aproximación. 
// --> Solo cuando son indices Alfabeticos
// ----------------------------------------------------------------------
// --> LLAMADA --> Busca_Aprox(cCod,cArea,nOrden)
// ----------------------------------------------------------------------
// --> DEVUELVE--> Numero del Registro seleccionado - 0 no hay selección.
// ----------------------------------------------------------------------
// --> Parametros
// cCod		--> Cadena de Caracteres a buscar
// cArea	--> Alias del fichero 
// nOrden   --> Numero de Indice que se activará para realizar la busqueda.
// ----------------------------------------------------------------------
FUNC Busca_Aprox(cCod,cArea,nOrden)
LOCAL cIndiceActivo , nArea
LOCAL aItem := {}
LOCAL nRec:=0	
*	msgbox(cCod+" -- "+cArea+" -- "+ str(nOrden) )
	nArea   := (cArea)->( INDEXORD() )
	(cArea)-> (DbSetOrder(nOrden))
	cIndiceActivo := (cArea)->( INDEXORD() )
	
	IF TYPE((cArea)->(INDEXKEY(cIndiceActivo)))="C"
		(cArea)->(DbGoTop())
		// --> No funciona con claves numericas
*		DO WHILE IF(TYPE((cArea)->(INDEXKEY(cIndiceActivo)))="N",OrdWildSeek(cCod,.T. ) ,	OrdWildSeek( "*" + cCod + "*",.T. ) )
		DO WHILE (cArea)->(OrdWildSeek( "*" + cCod + "*",.T. ) )
			AAdd( aItem, {(cArea)->(FIELDGET(1)),(cArea)->(FIELDGET(2)),(cArea)->(Recno())} )
		ENDDO

		IF LEN(aItem)>0
			DEFINE WINDOW Form_1 AT 0,0 WIDTH 350 HEIGHT 550 ;
				TITLE 'Busqueda de Registros' ; 
				MODAL ;				
				BACKCOLOR  { 209,220,231 } ;
				FONT "Arial" SIZE 10  ;
				NOSIZE 
							
				@ 15,5 GRID Grid_1 ;
					WIDTH 335 ;
					HEIGHT 500 ;
					HEADERS {(cArea)->(FIELDNAME(1)),(cArea)->(FIELDNAME(2)),"Np"} ;
					WIDTHS {100,270,3};
					ITEMS aItem ;
					VALUE 1 ;
					ON DBLCLICK (nRec:=VAL(ValorCelda("Form_1", "Grid_1",3)),ThisWindow.Release() )
					
			END WINDOW
			CENTER WINDOW Form_1
			ACTIVATE WINDOW Form_1
		ELSE
			lMsgExclamation("No hay Registros","ATENCION")
		ENDIF
	ELSE
		//--> Es númerica, la busco
		IF (cArea)->(DbSeek(VAL(cCod)))
			nRec:= (cArea)->(Recno())
		ENDIF
		
	ENDIF
	(cArea)->(DbSetOrder(nArea))
RETURN nRec

Code: Select all

   ON CHANGE DoSearchSubject()

PROCEDURE DoSearchSubject()
LOCAL cSeek  := TRIM( SearchForm.SearchText.Value )
   SEEK( UPPER( cSeek ) )
   IF FOUND()
      nRecno := RECNO()
      Domethod( "SearchForm", "SearchGrid", "REFRESH" )

Code: Select all

      // now geht Handle of BROWSE
      hGrid := GetControlHandle( "SearchGrid", "SearchForm" )
      // unmark 1st
      UnMarkAll( hGrid, .T. )
      // now set Value to GRID
      Setproperty( "SearchForm", "SearchGrid", "VALUE", nRecno  )
      // mark it and make it visible in BROWSE / GRID Area
      ItemMark( hGrid, nRecno )
   ELSE
      GOTO( nRecno )
   ENDIF

Code: Select all

#include <hmg.ch>
PROC Main()
tbls()

use inv new shared
index on num1 to num1

DEFINE WINDOW frmQSMain ;
AT 0,0 ;
WIDTH GetDesktopWidth() * 0.75 ;
HEIGHT GetDesktopHeight() * 0.75 ;
TITLE "Quick Search Implementation on HMG Reference Guide" ;
MAIN

ON KEY ESCAPE ACTION frmQSMain.Release
ON KEY ESCAPE ACTION ''


DEFINE COMBOBOX button_1 // FOR BUTTON TO CLICK
ROW 10
COL 211
WIDTH 20
HEIGHT 20 // 20
ON GOTFOCUS { || frmQSMain.textSEARCH.VISIBLE := .T. , frmQSMain.brwItems.VISIBLE := .T. , frmQSMain.textSEARCH.setfocus }
END COMBOBOX

DEFINE BROWSE brwItems
ROW 33 //33
COL 211
WIDTH 330
HEIGHT 290 //290
BACKCOLOR {220,220,228}
HEADERS { "Item","Description"}
WIDTHS { 100,200 }
WORKAREA inv
FIELDS { 'inv->num1', 'inv->desc' }
ONDBLCLICK { || frmQSMain.text_1.refresh , frmQSMain.textSEARCH.VISIBLE := .F. , frmQSMain.brwItems.VISIBLE := .F. }
ONLOSTFOCUS { || frmQSMain.text_1.refresh , frmQSMain.textSEARCH.VALUE := '' , ;
frmQSMain.brwItems.VISIBLE := .F. , frmQSMain.textSEARCH.VISIBLE := .F. , ;
frmQSMain.textSEARCH.VALUE := ' ' }
ONCHANGE { || dbgoto(this.value) }
NOLINES .T.
END BROWSE // brwItems

DEFINE TEXTBOX textSearch
ROW 10
COL 232
WIDTH 200 // 200 can make 0 so you cannot see
HEIGHT 24
ONCHANGE { || DBSEEK( UPPER( this.Value ), .T. ), frmQSMain.brwItems.value := inv->(RECNO() ) }
ONENTER { || frmQSMain.brwItems.SETFOCUS }
ONLOSTFOCUS { || frmQSMain.brwItems.SETFOCUS}
END TEXTBOX // tbxSearch

DEFINE TEXTBOX text_1
ROW 10
COL 10
WIDTH 200
HEIGHT 24
FIELD INV->NUM1
END TEXTBOX

END WINDOW // frmQSMain
frmQSMain.text_1.SETFOCUS
frmQSMain.textSEARCH.VISIBLE := .F.
frmQSMain.brwItems.VISIBLE := .F.
frmQSMain.Center
frmQSMain.Activate
return
// HMG_HELP Main()

*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.


FUNCTION TBLS

LOCAL CF := {}
if ! file('inv.dbf')
CF := {}
aADD(CF,{'NUM1' ,'C' , 15,0})
aADD(CF,{'DESC' ,'C' , 15,0})
DBCREATE( 'INV.DBF',CF )
USE
use inv new
index on num1 to num1
set index to num1
do while recno() < 1000000
append blank
replace num1 with alltrim(str(100+recno()))
replace desc with 'DESC' +alltrim(str(100+recno()))
loop
enddo
close inv
endif

return