HMGforum.com

Code: Select all

#INCLUDE <hmg.ch>
FUNCTION GIMPRG


	xesc			:= 	1
	xGridFont	:= 	"'Courier New'"
	DatColBack 	:= 	{ || {220,220,220} }
	NorColBack 	:= 	{ || {255,255,255} }
	NorText 		:= 	{ || This.CellValue }		
	xSysFontName 	= "'Arial'"
	xFiltering05 	= .f.
	arrfields	:=	{"origen","afecha","ahora","ubicacion","concepto","estado","cfecha","chora","oficial","notas","NumPrev"}

*	use LST_FLT.dbf SHARED NEW ALIAS LST_FLT
	use LST_MST.dbf SHARED NEW ALIAS LST_FLT
	
	private arredo := {}
    dbeval({ || aadd(arredo , LST_FLT->(recno()) ) })
	aadd(arredo , LST_FLT->(recno()) )
    
define window console1 at 1,1 width 1035 height 724 MAIN on interactiveclose	exitgim() //on init IniProcess()	 

	define main menu of console1	
		popup "Menu"	name A0									
			item "Salir" action (exitgim()) name A19
		end popup
	end menu	
	
	define checkbutton BookBt5								// Boton console 5 > Activar filtro de la columna 5 > Estado
		parent Console
		row 0*xesc
		col 530*xesc
		caption "Estado"
		width 76*xesc
		height 24*xesc
		fontsize 9*xesc
		fontname &xSysFontName
		value xFiltering05
		tooltip "Filtrar el estado seleccionado / Sin seleción = Pendiente + Proceso"
		onchange FilterCol5()
	end	checkbutton
	

	define grid bookslv										// Definicion del control de lista de incidencias filtradas esclavo BOOKSLV	
		parent console1	
		row 24*xesc
		col (0-5)
		width 1025*xesc							 
		height ((620)*xesc)						
		fontname &xGridFont
		fontsize 9*xesc
		*visible .f.
		virtual .t.
	    *rowsource "LST_FLT"
		headers {"Departamento","Fecha","Hora","Ubicación","Concepto","Estado","Fecha","Hora","Oficial","Observaciones",""}
		*columnfields {"origen","afecha","ahora","ubicacion","concepto","estado","cfecha","chora","oficial","notas","NumPrev"}
		widths {0,68*xesc,50*xesc,120*xesc,294*xesc,75*xesc,68*xesc,50*xesc,80*xesc,178*xesc,18*xesc}
		*dynamicbackcolor { DatColBack ,DatColBack , DatColBack , NorColBack , NorColBack , EstColBack , DatColBack , DatColBack , NorColBack , NorColBack, MemoColBack }
		*dynamicforecolor { NormColText ,NormColText , NormColText , PrevColText , PrevColText , EstColFore , NormColText , NormColText , NormColText , NormColText, MemoColText }
		*dynamicdisplay { NorText ,NorText , NorText , NorText , NorText , EstText , NorText , NorText , NorText , NorText, MemoText }
		cellnavigation .f.
		showheaders .t.
		*buffered .t.
		lines .t.
		allowedit .f.
		justify { {"NILL"},{"NILL"},{"NILL"},{"NILL"},{"NILL"}, BROWSE_JTFY_CENTER, {"NILL"},{"NILL"},{"NILL"},{"NILL"}}
		ITEMCOUNT LASTREC()
		ONQUERYDATA { || QueryTest() }
	end grid	

/*
		@ 24*xesc , 0-5 GRID bookslv ;
		width 1025*xesc;
		height ((620)*xesc);
		HEADERS {"Departamento","Fecha","Hora","Ubicación","Concepto","Estado","Fecha","Hora","Oficial","Observaciones",""} ;
		WIDTHS {0,68*xesc,50*xesc,120*xesc,294*xesc,75*xesc,68*xesc,50*xesc,80*xesc,178*xesc,18*xesc};
		VIRTUAL ;
		ITEMCOUNT LASTREC() ;
		ON QUERYDATA QueryTest()   //ON DBLCLICK DblCLickTest()
*/
	END WINDOW
	CONSOLE1.bookslv.PaintDoubleBuffer := .T.


	CENTER WINDOW console1

	ACTIVATE WINDOW console1

RETURN

Procedure QueryTest()
*	This.QueryData := Str ( This.QueryRowIndex ) + ',' + Str ( This.QueryColIndex )
      i := arredo[This.QueryRowIndex]  
      GOTO(i)
      x := arrfields[This.QueryColIndex]
	  y := LST_FLT->( fieldpos( x ) )
	  z := LST_FLT->( fieldget( y ) )
	 This.QueryData := z
RETURN


PROCEDURE EXITGIM			
close all
quit

function FilterCol5
 QUAL_EDO := Val(InputBox('Estado ? ','Change...'))
 arredo := {}
 select LST_FLT
 index on recno() to ejemplo.ntx for edofiltra() memory  
 console1.bookslv.ITEMCOUNT := len(arredo)
 CONSOLE1.bookslv.refresh()
RETURN

function edofiltra
 local sw := estado=QUAL_EDO
 if sw 
  aadd(arredo , LST_FLT->(recno()) )
 endif
return(sw) 

Code: Select all

aadd(arredo , LST_FLT->(recno()) )

Code: Select all

temp := "c:\mytemp\itemtemp"                       \\ I usually create a itemtemp from the time()  for no overlaps
select inv_item
index on item_no to &temp for item_no = "123455"
set index to &temp,mainindex1,2, so on.    // This is for adding records.