FiveTech Support Forums

METHOD WorkMergeData() CLASS TXBrwColumn

   local nKount   := 0
   local uPrev, uVal, nAt
   local nLen     := Eval( ::oBrw:bKeyCount )   //::nLen is not yet initialized

   ::aMerge    := {}

   Eval( ::oBrw:bGoTop )   // note : ::GoTop() does not work here
   for nAt  := 1 to nLen
      uVal  := ::Value()
      if uVal == nil
         msgStop( 'Column value is nil' )
         Puit // <-------------------------------------- AQUI ESTA, ES ESTO CORRECTO ?
      endif
      if uVal == uPrev
         nKount++
      else
         nKount  := 0
         uPrev := uVal
      endif
      AAdd( ::aMerge, { nKount, 0, ::oBrw:KeyNo() } )
      ::oBrw:Skip(1)
   next
   Eval( ::oBrw:bGoTop )

   nKount   := 0
   for nAt := nLen to 1 step -1
      ::aMerge[ nAt ][ 2 ] := nKount
      nKount++
      if ::aMerge[ nAt ][ 1 ] == 0
         nKount   := 0
      endif
   next


return nil

 
METHOD DrawLine( lSelected, nRowSel ) CLASS TXBrowse
...
...
...

  if lSelected
      nHeight -= 2
      oCol := ::ColAtPos( ::nColSel )
      do case
      case nStyle == MARPSTYLE_DOTEDCELL // <- ESTO AQUI
         oCol:Box( nRow, nil, nDataHeight, 1 )
      case nStyle == MARPSTYLE_SOLIDCELL // <- ESTO AQUI
         oCol:Box( nRow, nil, nDataHeight, 2 )
      case nStyle == MARPSTYLE_HIGHLCELL // <- ESTO AQUI
         oCol:PaintData( nRow, nil, nDataHeight, .t., .t. , ::nColSel, nRowSel )
      case nStyle == MARPSTYLE_HIGHLROWRC // <- ESTO AQUI
         oCol:Box( nRow, nil, nDataHeight, 3 )
      endcase
   endif