MAKETOTALS MAS VALOR DE UNA VARIABLE

[joseluisysturiz]

Saludos, asi como lo dice la pregunta, se le puede agregar o sumar al valor del maketotals de una columna el valor de una variable y se muestre ese resultado en el footer o maketotals solo procesa los valores de la columna de xbrowse.? o se podra usar bSumCondition .? no se si se podra forzar aCols[n]:nTotal, algo como:

oBrw:aCols[n]:nTotal := aCols[n]:nTotal + nValor
oBrw:refresh()

espero alguna sugerencia o sample, gracias, saludos...

[nageswaragunupudi]

First please make this change in xbrowse.prg.
In the METHOD RecalcTotal( nOldVal, nNewVal ) CLASS TXBrwColumn
Change this line

Code: Select all  Expand view

     if ::bFooter != nil

as

Code: Select all  Expand view

     if ::bFooter != nil .and. Empty( ::nFooterType )
 

Please use this modified xbrowse.prg in all your projects
We are making this change in FWH 16.04

Now,

oCol:nFooterType := AGGR_SUM
oCol:bFooter := { |o| o:nTotal + nValor }

You may test with this sample

Code: Select all  Expand view

function testx()

   local oDlg, oBrw, oFont

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 300,300 PIXEL TRUEPIXEL FONT oFont

   @ 20,10 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE { 1, 2, 3, 4 } COLUMNS 1 ;
      CELL LINES NOBORDER FOOTERS FASTEDIT


   WITH OBJECT oBrw
      WITH OBJECT :aCols[ 1 ]
         :nEditType   := EDIT_GET
         :nFooterType := AGGR_SUM
         :bFooter     := { |o| o:nTotal + 100 }
      END
      :MakeTotals()
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

 

[joseluisysturiz]

Mr. Nages...simplemente perfecto..muchas gracias por la solucion y que bueno sea una opcion disponible para una nueva version de FW, saludos...