LMergeVert me da error al actualizar mysql

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

LMergeVert me da error al actualizar mysql
Posted: Fri Aug 29, 2014 12:19 PM

Hola.
Mi definicion es esta:

    
define query ::oQry ....
      ::obrw:setdolphin(::oQry, .T., .F., {"c3", "c7", "c8", "c9"} )
WITH OBJECT ::oBrw
         :nMarqueeStyle       := 3

         :lKinetic            := .F.
         :ltransparent        := .F.
         :nRowHeight          := 25
         :lHScroll            := (.T.)
         :nheaderHeight       := 25
         :lRecordSelector     := .F.
         :lAllowColSwapping   := .F.
         :lColDividerComplete := .f.
         :nRowDividerStyle    := 4
         :nStretchCol         := STRETCHCOL_LAST
         :nColDividerStyle    := 4

         WITH object :aCols[1]
            :odatafont     := oFont
            :cHeader       := "Diagnostico"
            :nWidth        := 150
            :nHeadStrAlign := AL_CENTER
            :oheaderfont   := oFont
         END with
...
       :aCols[1]:lMergeVert:= .T.
  :SetGroupHeader( "Tratamiento",  02, 04, oFont )
...

en la funcion que me inserta un "nuevo registro" (no me pasa cuando actualizo un registro) en el mysql llamo para que actualice tanto el Query como el xBrowse:

Code (fw): Select all Collapse

  ::oQry:refresh()
   ::oBrw:refresh()

y me tira este error:

Code (fw): Select all Collapse

   Error description: Error BASE/1132  Error de rango: acceso al array
   Args:
     [   1] = A   { ... }
     [   2] = N   10

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:MERGEAREA(11044)
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(9344)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1376)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1201)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1457)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11016)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3397)
   Called from:  => MSGINFO(0)
   Called from: Source\mascota\THistorial.prg => (b)THISTORIAL:BROWSER(284)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN(2560)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN(848)
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYDOWN(2113)

Si solo hago el Refresh al oQry no tira el error, pero al hacer el refresh al xbrowse (::oBrw) si me tira el error

Que puede estar pasando?
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion