FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Wed Feb 05, 2020 08:50 PM
Hola Amigos,

Se que he molestado mucho con busqueda Incremental.

Tengo un Xbrowse que posee 2 Columnas con un Array, la Primera es de "Codigo" y la Segunda "Nombre",.

Necesito que cuando ingrese al Xbrowse, al digitar busqueda Incremental, este inicie la busqueda en la Columna 2掳 (Nombre), lo que hoy esta haciendo, es que muestra indexado por Columna Nombre, pero inicia busqueda por Codigo,.

No logro dar para que la Busqueda Inicial u Original, se realice inmediatamente como Columna 2, y no que tenga que estar Clickeando sobre la Columna 2, para que realice la busqueda sobre esta Columna.

En espera siempre de su ayuda, les saluda muy atte,
Antonio

Dejo el Codigo que uso:
Code (fw): Select all Collapse
聽 聽 聽cCod9 := ASort(aArancel,,,{|x,y| x[1]<y[1]}) 聽 //orden ascendente por codigo
聽 聽 聽cNom9 := ASort(aArancel,,,{|x,y| x[2]<y[2]}) 聽 // " 聽 聽 聽 " 聽 聽 聽 聽" 聽nombre


聽 聽DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
聽 聽 聽DEFINE FONT oFont1 NAME 'TAHOMA' SIZE 0,24 聽 BOLD
聽 聽 聽DEFINE FONT oFont2 NAME "TAHOMA" SIZE 0,-12 聽BOLD
聽 聽 聽DEFINE FONT oFont7 NAME "TAHOMA" SIZE 0,-14 聽BOLD

聽 聽DEFINE DIALOG oDlg33 RESOURCE "#1005" 聽 聽 FONT oFont

聽 聽 聽REDEFINE SAY otitu PROMPT " MAESTRO DE ARANCEL " 聽ID 4004 OF oDlg33 COLORS RGB(12, 135, 27) 聽 FONT oFont1


聽 聽REDEFINE XBROWSE oBrw 聽OF oDlg33 DATASOURCE aArancel 聽ID 4001;
聽 聽 聽聽 聽聽 聽 HEADERS 'C贸digo','Nombre de Examen';
聽 聽 聽 聽 聽 聽 COLUMNS 1, 2;
聽 聽 聽 聽 聽 聽 PICTURES "@!","@!" ;
聽 聽 聽 聽 聽 聽 COLSIZES 90,335;
聽 聽 聽 CELL LINES AUTOSORT NOBORDER;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:nColDividerStyle := LINESTYLE_RAISED
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:nRowDividerStyle := LINESTYLE_RAISED
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:nOpacity 聽 聽:= 230
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽聽 聽 聽 聽 聽oBrw:nHeaderHeight 聽 聽 聽:= 35
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:nFreeze 聽 聽 聽 := 2
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[1]:oHeaderFont:= oFont7
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[2]:oHeaderFont:= oFont7
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oCol := oBrw:aCols[ 2 ]
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ocol:cToolTip:="Clique para ordenar por NOMBRE"

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oDlg33:bStart:={ || oBrw:Gotop() }

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:lSeekBar:= .f. 聽 聽 聽 // Permite A帽adir Fila de Busqueda en Xbrowse

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oCol := oBrw:aCols[ 1 ]
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ocol:cToolTip:="Clique para ordenar por CODIGO"

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:bClrStd 聽:= { || If( Eval( oBrw:bKeyNo,,oBrw1) % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) },;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{ CLR_BLACK, RGB( 232, 255, 232 ) } ) } 聽 聽// Efecto Cebra
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 1 ]:oDataFont := oFont7
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 2 ]:oDataFont := oFont7


聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:Seek("")
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:bClrStd 聽 聽 聽 聽 聽 聽 := {|| { nRGB( 聽0, 聽0, 聽0), nRGB(255,248,220) } }
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:bClrSelFocus 聽 聽 聽 聽:= {|| { nRGB( 聽255, 聽255, 聽255), nRGB(102, 178, 255) } }
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:bClrSel 聽 聽 聽 := {|| { nRGB( 聽0, 聽0,255), nRGB(241,222,088) } } 聽// para barra de linea selecc cuando el control no tiene el foco
聽 聽 聽 聽 聽聽 聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:lAutoSort := .t.
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:lFooter := .f.
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:lHScroll := .f.
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:lIncrFilter 聽 聽 聽:= .T.
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:lSeekWild 聽 聽 聽 聽:= .T. 聽 聽 聽 聽 聽 聽 聽 聽 聽 && 聽.T. Busca Contenido, .F. Que comience con lo que digita
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:SetStyle( 2018)
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:nColorPen := CLR_RED
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:bChange := {|| oBrw:Refresh() }

聽 聽WITH OBJECT oBrw
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[ 1 ]:cSortOrder := cCod9
聽 聽 聽 聽 聽:aCols[ 2 ]:cSortOrder := cNom9
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[ 2 ]:SetOrder()
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[1]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "C贸digo", oBrw:nColSel := 1, oBrw:GoTop() }
聽 聽 聽聽 聽聽 聽 聽:aCols[2]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Nombre de Examen", oBrw:nColSel := 2, oBrw:GoTop() }

聽 聽 聽 聽 聽 聽 聽 聽 聽:bLDblClick:={|| Agre_Codi(Tip_Ate1,Tip_Pag1,aArancel,aCodigos, oBrw:nArrayAt,@Can_Cod1,@Val_Tot1), oSay3:Refresh(),oSay4:Refresh(), oSay5:Refresh(),oSay6:Refresh(),oBrw2:Refresh()}

聽 聽 聽 聽 聽 聽 聽:bKeyDown:={|nKey| iif(nKey == VK_RETURN, Eval(oBrw:bLDblClick),)}

聽 聽 聽 聽 聽 聽 聽 聽 聽:bChange 聽 聽:= { || oBrw2:GoTop(), 聽oSay3:Refresh(),oSay4:Refresh(), oBrw2:Refresh()}
聽 聽END

聽 聽 聽REDEFINE SAY otitu5 PROMPT "Buscar : " 聽 ID 4011 OF oDlg33 COLORS RGB(12, 135, 27) 聽 FONT oFont7

聽 聽 聽REDEFINE SAY oBrw:oSeek 聽VAR oBrw:cSeek ID 4012 OF oDlg33 PICTURE "@X" FONT oFont7 COLOR CLR_HRED,CLR_YELLOW

聽 聽 聽oDlg33:bInit := {|| 聽oBrw:oCol("Nombre de Examen"):SortArrayData(), Eval(oBrw:aCols[2]:bLClickHeader) }

聽 聽 聽REDEFINE BTNBMP ID 4010 PROMPT "LIMPIA" 聽OF oDlg33 ADJUST 2007 聽FONT oFont7 聽 ;
聽 聽 聽聽 聽聽 聽 ToolTip 聽"LIMPIAR BUSQUEDA";
聽 聽 聽聽 聽聽 聽 ACTION ( oBrw:Seek( "" ), oBrw:GoTop(), oBrw:SetFocus() )

聽 聽 聽REDEFINE BTNBMP ID 4002 PROMPT "SALIR" OF oDlg33 聽ADJUST 2007 聽FONT oFont7 聽NOBORDER ;
聽 聽聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ToolTip 聽"VOLVER A LA PANTALLA ANTERIOR";
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ACTION (oDlg33:END())

聽 聽ACTIVATE DIALOG oDlg33 CENTERED 聽 聽ON INIT ( oBrw:cSeek( "" ), oBrw:SetFocus(), .F. )
FWH 22.10 - HARBOUR - PELLES C
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Thu Feb 06, 2020 12:55 PM
Estimado:

Usa una tabla temporal dbf, la indexas con el orden que quieres, y despu茅s se la asignas a la columna del xbrowse.

en mi caso ordeno fecha, Proceso, variedad y c贸digo y a cada columna le asigno el orden que quiero y parte el xbrowse ordenado en la columna 3, yo tengo una versi贸n muy antigua de FiveWin, pero esa es mi soluci贸n a tu mismo problema, quiz谩s otro compa帽ero pueda darte otra opci贸n.

Code (fw): Select all Collapse
聽 聽 
聽 聽SELECT PA18
聽 聽INDEX ON DTOS( PA18->FECH ) 聽TAG 1 TO (".\TEMP184.CDX") DESC
聽 聽INDEX ON PA18->NPRO 聽 聽 聽 聽 聽TAG 2 TO (".\TEMP184.CDX")
聽 聽INDEX ON PA18->ETIQ 聽 聽 聽 聽 聽TAG 3 TO (".\TEMP184.CDX")
聽 聽INDEX ON PA18->CCSG 聽 聽 聽 聽 聽TAG 4 TO (".\TEMP184.CDX")
聽 聽SET INDEX TO (".\TEMP184.CDX")

...
...
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽REDEFINE XBROWSE oBrw ID 20 COLUMNS "LOKY","NPRO","FECH","ETIQ","CCSG","NOMB","TIPO","VAL1","VAL2","VAL3","KCOM","KMER","CORT" ALIAS "PA18" OF oDlg AUTOSORT

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 1]:cHeader 聽 聽 := "Mark" 聽 聽 聽 聽 聽 聽 聽; 聽oBrw:aCols[ 1]:nWidth 聽 聽 聽 聽:= 30
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 2]:cHeader 聽 聽 := "N掳Proceso" 聽 聽 聽 聽 ; 聽oBrw:aCols[ 2]:nWidth := 60 聽; 聽 oBrw:aCols[ 2]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 3]:cHeader 聽 聽 := "Fecha" 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[ 3]:nWidth := 67 聽; 聽 oBrw:aCols[ 3]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 4]:cHeader 聽 聽 := "Variedad" 聽 聽 聽 聽 聽; 聽oBrw:aCols[ 4]:nWidth := 70 聽; 聽 oBrw:aCols[ 4]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 5]:cHeader 聽 聽 := "C.Csg" 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[ 5]:nWidth := 50 聽; 聽 oBrw:aCols[ 5]:nDataStrAlign 聽:= AL_RIGHT
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 6]:cHeader 聽 聽 := "Productor" 聽 聽 聽 聽 ; 聽oBrw:aCols[ 6]:nWidth := 210
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 7]:cHeader 聽 聽 := "Tur" 聽 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[ 7]:nWidth := 25 聽; 聽 oBrw:aCols[ 7]:nDataStrAlign 聽:= AL_CENTER
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 8]:cHeader 聽 聽 := "Kg.Vaciado" 聽 聽 聽 聽; 聽oBrw:aCols[ 8]:nWidth := 70 聽; 聽 oBrw:aCols[ 8]:nFooterType 聽 聽:= AGGR_TOTAL
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[ 9]:cHeader 聽 聽 := "% Exp" 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[ 9]:nWidth := 48 聽; 聽 oBrw:aCols[ 9]:nFooterType 聽 聽:= AGGR_AVERAGE
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[10]:cHeader 聽 聽 := "% Cca" 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[10]:nWidth := 48 聽; 聽 oBrw:aCols[10]:nFooterType 聽 聽:= AGGR_AVERAGE
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[11]:cHeader 聽 聽 := "Comercial" 聽 聽 聽 聽 ; 聽oBrw:aCols[11]:nWidth := 67 聽; 聽 oBrw:aCols[11]:nFooterType 聽 聽:= AGGR_TOTAL
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[12]:cHeader 聽 聽 := "Merma" 聽 聽 聽 聽 聽 聽 ; 聽oBrw:aCols[12]:nWidth := 66 聽; 聽 oBrw:aCols[12]:nFooterType 聽 聽:= AGGR_TOTAL
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oBrw:aCols[13]:cHeader 聽 聽 := "Estado" 聽 聽 聽 聽 聽 聽; 聽oBrw:aCols[13]:nWidth := 48 聽; 聽 oBrw:aCols[13]:nDataStrAlign 聽:= AL_CENTER

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 2]:nFootStrAlign 聽:= AL_RIGHT
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 2]:nFooterType 聽 聽:= AGGR_COUNT

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 3]:cSortOrder := "1"
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 2]:cSortOrder := "2"
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 4]:cSortOrder := "3"
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[ 5]:cSortOrder := "4"


Espero que te sirva este tip.

Saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Thu Feb 06, 2020 05:36 PM
Hola Armando,

Muchas gracias por responder.

He probado lo que me indicas, pero no logro que me funcione.

Yo no uso DBF en el Xbrowse, es un Array, cuando se muestra el Xbrowse, la columna que se muestra como primer indice, es la Columan 2, que esta correcto.

El problema por defecto debo Buscar en forma Incremental, debo hacerlo por defecto en esta misma columna 2, pero la busqueda se realiza apuntando a la primera, por lo que me obliga antes de buscar, hacer Click en la Cabecera de la Columna 2, para que de esta forma, la busqueda se realice en la Segunda Columna.

Espero que se entienda mi problema, que hoy ya me esta pillando el tiempo.

Muchos Saludos
Antonio.

Dejo la definici贸n que tengo de las columnas de indices:
Code (fw): Select all Collapse
聽 聽WITH OBJECT oBrw
聽 聽 聽 聽 聽        :aCols[ 2 ]:cSortOrder := cNom9
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[ 1 ]:cSortOrder := cCod9
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[ 2 ]:SetOrder()

聽 聽 聽聽 聽聽 聽     聽:aCols[2]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Nombre de Examen", oBrw:nColSel := 2, oBrw:GoTop() }
聽 聽 聽 聽 聽 聽 聽 聽 聽:aCols[1]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "C贸digo", oBrw:nColSel := 1, oBrw:GoTop() }

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 :bLDblClick:={|| Agre_Codi(Tip_Ate1,Tip_Pag1,aArancel,aCodigos, oBrw:nArrayAt,@Can_Cod1,@Val_Tot1), oSay3:Refresh(),oSay4:Refresh(), oSay5:Refresh(),oSay6:Refresh(),oBrw2:Refresh()}

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 :bKeyDown:={|nKey| iif(nKey == VK_RETURN, Eval(oBrw:bLDblClick),)}

聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽:bChange 聽 聽:= { || oBrw2:GoTop(), 聽oSay3:Refresh(),oSay4:Refresh(), oBrw2:Refresh()}


聽 聽END
FWH 22.10 - HARBOUR - PELLES C
albeiroval
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Fri Feb 07, 2020 04:04 AM
Remtec, este es el codigo que uso para arrays :

Code (fw): Select all Collapse
aCols := { ;
聽 聽 { 聽2, "Codigo", 聽 聽 聽 NIL, 聽 聽 聽 聽 聽 聽 聽 聽70, AL_LEFT 聽},;
聽 聽 { 聽3, "Descripcion", 聽NIL, 聽 聽 聽 聽 聽 聽 聽 200, AL_LEFT 聽},;
聽 聽 { 聽4, "Inicio", 聽 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 聽5, "Entrada", 聽 聽 聽"@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 聽6, "Remision", 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 聽7, "DevolAlm", 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 聽8, "Venta", 聽 聽 聽 聽"@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 聽9, "Devolucion", 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 10, "Comida", 聽 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 11, "Pollos", 聽 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 12, "Cortesia", 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 14, "Final", 聽 聽 聽 聽"@E 999,999.99", 聽 75, AL_RIGHT },;
聽 聽 { 13, "Conteo", 聽 聽 聽 "@E 999,999.99", 聽 75, AL_RIGHT } ;
聽 }

聽 DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -12 BOLD
聽 
聽 聽 DEFINE DIALOG oDlg RESOURCE "REPORTE_MOVIMIENTO" ;
聽 聽 聽 聽 聽 聽 TITLE "Reporte Movimiento De Productos" ICON aBitmap[ BMP32_ICON ] FONT oFont

聽 REDEFINE SAY ID 100 OF oDlg PROMPT "SUCURSAL : " + obj:NameSucursal 
聽 聽 REDEFINE SAY ID 101 OF oDlg PROMPT "PERIODO DESDE : " + DTOC(obj:FechaIni) + " HASTA " + DTOC(obj:FechaFin) 

聽 REDEFINE XBROWSE oBrw ID 200 OF oDlg;
聽 聽 DATASOURCE aArray;
聽 聽 COLUMNS aCols;
聽 聽 CELL LINES FOOTERS AUTOSORT
聽 
聽 WITH OBJECT oBrw
聽 聽 :MyConfig()
聽 聽 :nFreeze 聽 聽= 2
聽 聽 :bClrHeader = {|| { nRGB(140, 聽0, 聽0), nRGB(102, 255, 255) } } 
聽 聽 聽 聽 :bClrFooter = {|| { nRGB(140, 聽0, 聽0), nRGB(102, 255, 255) } } 
聽 聽 聽 聽 :bChange 聽 聽= {|| oSay:SetText( RTrim(oBrw:aRow[2]) + ", " + oBrw:aRow[3] ) }
聽 聽 END
聽 
聽 REDEFINE SAY ID 102 PROMPT "PRODUCTO :" OF oDlg
聽 REDEFINE SAY oSay ID 103 PROMPT RTrim(oBrw:aRow[2]) + ", " + oBrw:aRow[3] COLOR CLR_BLACK, nRGB( 117, 236, 45 ) OF oDlg

...

oDlg:bInit聽 = <|| 聽聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:goRight()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oBrw:aCols[2]:Setorder()
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 Return Nil
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 >
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Fri Feb 07, 2020 08:11 PM

Hola Albeiro Valencia

Muchas gracias por responder y proponerme tu codigo.

Mira, en mi caso, el codigo de Array, funciona bien incluyendo los indices, solo que la busqueda Incremental, debe ser automatica sobre la 2da columna, como esta mi codigo que muestro, para poder buscar, debo primero dar Click sobre la cabecera de la 2da columna. Necesito corrgir esto y que no tenga que dar click sobre la cabecera para buscar.

Muchos Saludos.
Antonio

FWH 22.10 - HARBOUR - PELLES C
albeiroval
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Sat Feb 08, 2020 01:54 PM
Remtec,

Code (fw): Select all Collapse
// Puede usar este codeblock
oDlg:bInit  = <||                          
                                    oBrw:goRight()
                                    oBrw:aCols[2]:Setorder()
                                    Return Nil
                                >      

// O puede usar el comando asi 
        ON INIT ( oBrw:goRight(), oBrw:aCols[2]:Setorder() )


Este codigo hace lo que indica. Ordena la segunda columna y se mueve el cursor a la columna derecha que en su caso es la segunda
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Sat Feb 08, 2020 04:47 PM
Antonio.
Lo que sugiere Albeiro te deber铆a funcionar.
Yo lo hago asi:
Code (fw): Select all Collapse
ACTIVATE DIALOG oDlg ON INIT ( oBrw:aCols[2]:SetOrder(), oBrw:nColSel := 2 )


Lo que veo en tu c贸digo es que est谩s duplicando la instruccion del INIT:

Code (fw): Select all Collapse
   oDlg33:bInit := {||  oBrw:oCol("Nombre de Examen"):SortArrayData(), Eval(oBrw:aCols[2]:bLClickHeader) }

   ACTIVATE DIALOG oDlg33 CENTERED    ON INIT ( oBrw:cSeek( "" ), oBrw:SetFocus(), .F. )


Saludos.
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Orden de Inicio Busqueda Incremental en Xbrowse
Posted: Sat Feb 08, 2020 04:59 PM

Hola Francisco,

Como estas?

Como siempre muchas gracias por tu ayuda.

Probare tu codigo y te comentare, en relacion a tu observaci贸n, es que he tratado de tantas formas de solucionar el problema, que seguro que caigo es estos errores.

Muchas Graicas.

Antonio

FWH 22.10 - HARBOUR - PELLES C

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions