topic-37630

Board index FiveWin para Harbour/xHarbour PROBLEMAS CON XBROWSE ES URGENTE

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

PROBLEMAS CON XBROWSE ES URGENTE
Posted: Tue Aug 13, 2019 02:13 PM

Amigos Buen dia.

Estoy usando Xbrowse y me esta presentando un problema, cada ves que busco por la Columna APE_PAC, digito letras, la ubica en el Browser, pero al dar Click en el registro, este cambia de posicion, ademas no actualiza el contenido mostrado, a medida que me desplazo por las filas hacia arriba o abajo, estas recien comienzan a cambiar su contenido o reescribir cada fila.

Desde ya muchas gracias.

Saludos
Antonio.

Dejo El Codigo:

Code (fw): Select all Collapse

Function Buscar_Pac()

   local oDlg, oBrw, oFont, oCol,otitu,oFont1,otitu1 ,oFont7

     Abre_dbf("maepacie",1,.f.,"")
     set inde to maepacie
     set order to 2
     go top

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

   DEFINE DIALOG oDlg SIZE 680,530 PIXEL FONT oFont
     @ 00,50 SAY otitu PROMPT " MAESTRO DE PACIENTES "  PIXEL OF oDlg COLORS RGB(12, 135, 27)   FONT oFont1

   @ 20,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg DATASOURCE "MAEPACIE" ;
            HEADERS 'Apellidos', 'Nombres', 'R.u.t';
      COLUMNS "APE_PAC",OemToAnsi("NOM_PAC"),"RUT_PAC";
      CELL LINES AUTOSORT NOBORDER


   WITH OBJECT oBrw
            :lHScroll := .f.
                        :lIncrFilter      := .f.
                        :lSeekWild        := .f.    
            //:bLClickHeader := { || oBrw:Seek(""), oBrw:cFilterFld := "newfld" }
                       //:cFilterFld       := "APE_PAC"
            :lFooter := .t.
            :SetStyle( 2018)


            oCol := oBrw:aCols[ 1 ]
            oCol:cSortOrder := 'maep2'
            ocol:cToolTip:="Clique para ordenar por APELLIDOS"

            oCol := oBrw:aCols[ 3 ]
            oCol:cSortOrder := 'maep1'
            ocol:cToolTip:="Clique para ordenar por RUT"

            oBrw:bKeyDown:={|nKey| iif(nKey=32.or.nKey=VK_RETURN,Actu_Ficha(),oBrw:Refresh())}
            oBrw:bLDblClick:={||Actu_Ficha(),oBrw:Refresh()}



          :CreateFromCode()
   END
   @ 10,10 SAY otitu1 PROMPT "Buscar : "  PIXEL OF oDlg COLORS RGB(12, 135, 27)   FONT oFont
   @ 10,40 SAY oBrw:oSeek  VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW
     @ 235,250 BTNBMP SIZE 30,30 PROMPT "SALIR" OF oDlg PIXEL 2007  FONT oFont7 ;
        filename"c:\Desa\FichasWin\Iconos\door_in.png" ToolTip  "SALIR DEL SISTEMA";
   ACTION oDlg:End()



     @ 235,10 BTNBMP  SIZE 30,30 PROMPT "NUEVO" OF oDlg 2007  FONT oFont7 ;
        filename"c:\Desa\FichasWin\Iconos\add.png" ToolTip "NUEVO PACIENTE" ;
   ACTION ( Actu_Ficha() )

     @ 235,60 BTNBMP  SIZE 30,30 PROMPT "VER" OF oDlg 2007 FONT oFont7 ;
        filename"c:\Desa\FichasWin\Iconos\report_user.png" ToolTip "MUESTRA PACIENTE" ;
   ACTION ( Muestra_Pac() )

     @ 235,110 BTNBMP  SIZE 30,30 PROMPT "SELEC" OF oDlg 2007 FONT oFont7 ;
        filename"c:\Desa\FichasWin\Iconos\group_add.png"  ToolTip "OBTENER PACIENTE" ;
   ACTION ( Actu_Ficha() )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

FWH 22.10 - HARBOUR - PELLES C

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Tue Aug 13, 2019 04:18 PM

Amigos

Alguna sugerencia ????.

Saludos

FWH 22.10 - HARBOUR - PELLES C

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Tue Aug 13, 2019 04:34 PM

creo que le falta un refresh al buscar

prueba con oBrw:bChange := {|| oBrw:Refresh() }

Saludos.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Tue Aug 13, 2019 04:55 PM

Hola Armando

Muchas gracias por responder.

Lamentablemente tu sugerencia no me resulto, es mas, cuando subo o bajo en el Browse con las flechas, el Focus se que queda pegado desplazando todo el bloque de registros.

Saludos.
Antonio

FWH 22.10 - HARBOUR - PELLES C

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Tue Aug 13, 2019 05:06 PM

se lo que pasa, pero yo nunca trabajo con WITH OBJECT, defino mis columnas en forma separada, y se me acabaron esos problemas que solia obtener cuando lo utilizaba. ( mi versión de fw es muy antigua ).

te transfiero un ejemplo funcional que utilizo sin problemas

Code (fw): Select all Collapse

   //-- asi genero los indices temporales que necesito para las columnas 1  4  y 11 que los reaqlizo en una función de llenado de datos previa
   select pa40
   INDEX ON PA40->NUME  TAG 1 TO (oApp:cTemp+"\PASO040.CDX") DESCEND
   INDEX ON PA40->FECH  TAG 2 TO (oApp:cTemp+"\PASO040.CDX")
   INDEX ON PA40->ORDE  TAG 3 TO (oApp:cTemp+"\PASO040.CDX")
                    SET INDEX TO (oApp:cTemp+"\PASO040.CDX")
   SELECT PA40                      ;  DBGOTOP()

...
...
...

//-- al clickear la columna 1 , 4 o 11 el indice se activa y puedo digitar lo que quiero y se mueve el puntero a medida que digito, sin tener el efecto que mencionas 


                   REDEFINE XBROWSE oBrw ID 20 COLUMNS "NUME","LINE","TIPO","FINI","NOMB","TURN","KILO","KENV","KMER","PMER","ORDE","MATE" ALIAS "PA40" OF oDlg FONT xFont NOBORDER AUTOSORT FOOTERS

                             oBrw:aCols[ 1]:cHeader     := "N° Proc."          ;  oBrw:aCols[ 1]:nWidth :=  57  ;   oBrw:aCols[ 1]:nDataStrAlign  := AL_CENTER  
                             oBrw:aCols[ 2]:cHeader     := "Linea"             ;  oBrw:aCols[ 2]:nWidth :=  38  ;   oBrw:aCols[ 2]:nDataStrAlign  := AL_CENTER
                                                                                                                    oBrw:aCols[ 2]:nFootStrAlign  := AL_RIGHT
                                                                                                                    oBrw:aCols[ 2]:nFooterType    := AGGR_COUNT
                             oBrw:aCols[ 3]:cHeader     := "Tipo"              ;  oBrw:aCols[ 3]:nWidth :=  33  ;   oBrw:aCols[ 3]:nDataStrAlign  := AL_CENTER
                             oBrw:aCols[ 4]:cHeader     := "Fecha"             ;  oBrw:aCols[ 4]:nWidth :=  68  ;   oBrw:aCols[ 4]:nDataStrAlign  := AL_CENTER
                             oBrw:aCols[ 5]:cHeader     := "Nombre Proceso"    ;  oBrw:aCols[ 5]:nWidth := 240
                             oBrw:aCols[ 6]:cHeader     := "Tur"               ;  oBrw:aCols[ 6]:nWidth :=  30  ;   oBrw:aCols[ 6]:nDataStrAlign  := AL_CENTER
                             oBrw:aCols[ 7]:cHeader     := "Vaciado"           ;  oBrw:aCols[ 7]:nWidth :=  85  ;   oBrw:aCols[ 7]:nFooterType    := AGGR_TOTAL
                             oBrw:aCols[ 8]:cHeader     := "Envasado"          ;  oBrw:aCols[ 8]:nWidth :=  85  ;   oBrw:aCols[ 8]:nFooterType    := AGGR_TOTAL
                             oBrw:aCols[ 9]:cHeader     := "Merma"             ;  oBrw:aCols[ 9]:nWidth :=  70  ;   oBrw:aCols[ 9]:nFooterType    := AGGR_TOTAL
                             oBrw:aCols[10]:cHeader     := "% Merma"           ;  oBrw:aCols[10]:nWidth :=  50  ;   oBrw:aCols[10]:nFooterType    := AGGR_AVERAGE
                             oBrw:aCols[11]:cHeader     := "N° Orden"          ;  oBrw:aCols[11]:nWidth :=  70  ;   oBrw:aCols[11]:nDataStrAlign  := AL_CENTER
                             oBrw:aCols[12]:cHeader     := "Material"          ;  oBrw:aCols[12]:nWidth :=  50

                             oBrw:nHeaderLines          :=  2 
                             oBrw:SetGroupHeader( "Datos del Proceso", 1, 7, xFont )
                             oBrw:SetGroupHeader( "Resultado Proceso", 8,12, xFont )
                             oBrw:Material:SetCheck()
                             
                             oBrw:aCols[ 1]:cSortOrder := "1"
                             oBrw:aCols[ 4]:cSortOrder := "2"
                             oBrw:aCols[11]:cSortOrder := "3"

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Wed Aug 14, 2019 02:37 PM

Hola Armando

Muchas gracias por tu ayuda, Mira desde ayer he estado tratando de dar con el problema que se me crear al usar tu sugerencia, pero al digitar lo que busco, solo permite 1 solo caracter, Ej. Si deseo buscar "ARMAN", en la linea de busqueda, solo me muestra la primera letra que digite "A", luego de tratar de moverme en el browse, difinitivamente deja de funcionar la digitacion de la busqueda, no muestra ningun caracter.

Pense que buscar en la medida que digita era menos complicado, pero a mi me esta volviendo loco y necesito habilidarlo pronto.

Muchos Saludos.
Antonio

Dejo el Codigo modificado que No funciona:

Code (fw): Select all Collapse

....
     Abre_dbf("maepacie",1,.f.,"")
     If !file("maepacie.CDX")
        inde on rut_pac               tag maep1 to maepacie
        inde on ape_pac+nom_pac tag maep2 to maepacie
        inde on nro_fic                 tag maep3 to maepacie
         Endif
     set inde to maepacie
     DbSetorder(2)

.....


   DEFINE DIALOG oDlg SIZE 680,530 PIXEL FONT oFont
   @ 20,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg DATASOURCE "MAEPACIE" ;
            HEADERS 'Apellidos', 'Nombres', 'R.u.t';
      COLUMNS "APE_PAC",OemToAnsi("NOM_PAC"),"RUT_PAC";
      CELL LINES;
            NOBORDER AUTOSORT FOOTERS;
                             oBrw:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
                             oBrw:nColDividerStyle := LINESTYLE_INSET
                             oBrw:nRowDividerStyle := LINESTYLE_INSET
                                 oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
                                 oBrw:nOpacity    := 230

                                 oBrw:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                                 oBrw:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(137, 247, 33) } }
                                oBrw:lFooter := .t.
                                oBrw:SetStyle( 2018)

                                oBrw:aCols[ 1]:cSortOrder := "Maep2"
                                oBrw:aCols[ 1]:cToolTip:="Clique para ordenar por APELLIDOS"

                oBrw:aCols[ 3]:cSortOrder := "maep1"
                                oBrw:aCols[ 3]:cToolTip:="Clique para ordenar por RUT"

                                oBrw:CreateFromCode()



   @ 10,10 SAY otitu1 PROMPT "Buscar : "  PIXEL OF oDlg COLORS RGB(12, 135, 27)   FONT oFont

   @ 10,40 SAY oBrw:oSeek  VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg PICTURE "@!"  COLOR CLR_HRED,CLR_YELLOW

     @ 235,250 BTNBMP SIZE 30,30 PROMPT "SALIR" OF oDlg PIXEL 2007  FONT oFont7 ;
        filename"c:\Desa\FichasWin\Iconos\door_in.png" ToolTip  "SALIR DEL SISTEMA";
   ACTION oDlg:End()


   ACTIVATE DIALOG oDlg CENTERED

FWH 22.10 - HARBOUR - PELLES C

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Wed Aug 14, 2019 04:19 PM

revise tu codigo y veo que utilizas oBrw:oSeek y oBrw:cSeek para mostrar lo que escribes, busque en mi código y encontre en donde tambien lo utilizo y lo unico nuevo que tengo es esto:

Code (fw): Select all Collapse

oBrw:bChange := {|| oBrw[1]:oSeek:Refresh()}

codigo "de ejemplo" que utilizo y me funciona bien al clickear la columna en la que deseo buscar... (fijate en la imagen, lo marque en rojo)

Code (fw): Select all Collapse

                   REDEFINE XBROWSE oBrw[1] ID 20 COLUMNS "GRUP","RUTT","NOMB" ALIAS "P135" FONT xFont OF oPag[2]:aDialogs[1] FOOTERS AUTOSORT

                                    oBrw[1]:aCols[1]:cHeader     := "Grupo"                     
                                    oBrw[1]:aCols[1]:nWidth         := 50    
                                    oBrw[1]:aCols[1]:nDataStrAlign  := AL_CENTER  
                                    oBrw[1]:aCols[1]:cSortOrder := "1"
                                    
                                    oBrw[1]:aCols[2]:cHeader     := "R.u.t."                    
                                    oBrw[1]:aCols[2]:nWidth         := 80
                                    oBrw[1]:aCols[2]:nDataStrAlign  := AL_CENTER  
                                    oBrw[1]:aCols[2]:cSortOrder := "2"
                                    
                                    oBrw[1]:aCols[3]:cHeader     := "Razón Social"
                                    oBrw[1]:aCols[3]:nWidth         := 280
                                    oBrw[1]:aCols[3]:cSortOrder := "3"
                                    oBrw[1]:aCols[3]:nFootStrAlign  := AL_RIGHT
                                    oBrw[1]:aCols[3]:bFooter        := { || "Registro [ "+LTRIM(STR(oBrw[1]:KeyNo()))+"/"+LTRIM(STR(oBrw[1]:KeyCount()))+" ]  " }

                                    oBrw[1]:SetGroupHeader( "Agentes Facturadores", 1,3, xFont )
                                    oBrw[1]:bChange              := {|| oBrw[1]:oSeek:Refresh() }
                                    oBrw[1]:nHeaderLines         :=  2 
                 
                                    REDEFINE  SAY oBrw[1]:oSeek ID -11 PROMPT oBrw[1]:cSeek  PICTURE "@!" OF oPag[2]:aDialogs[1] FONT xFont COLOR FRE_VERSION

saludos

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: PROBLEMAS CON XBROWSE ES URGENTE
Posted: Thu Aug 15, 2019 12:52 AM

Hola Armando

Realmente te pasaste, funciono perfecto, eternamente agradecido por lo que siempre me has ayudado.

Muchos Saludos.

Antonio.

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion