to Mr Nages xbrowse footer

[Silvio.Falconi]

It is possible create two lines of xbrowser footer ?
in first line we can insert a text and on second the data numeric with maketotals ?



I insert the text after the xbrowse now because I not Know how insert a line text before the footer xbrowse

[nageswaragunupudi]

Use Mr Carlos extension in the posting
viewtopic.php?f=3&t=28488

and
oCol:cFooterPicture := "YOURTEXT" + CRLF + "9999999"
oCol:nFooterLines := 2

[Silvio.Falconi]

it make me error
Error occurred at: 26-05-2014, 10:47:16
Error description: Warning BASE/1005 Message not found: TXBRWCOLUMN:_NFOOTERLINES

Stack Calls
===========
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:ERROR( 0 )
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TXBRWCOLUMN:_NFOOTERLINES( 0 )
Called from: source\ut\ut_mutuo.prg => CREATEBRW( 216 )
Called from: source\ut\ut_mutuo.prg => CALCOLOMUTUO( 136 )


IF I ADD EXTEND CLASS TXBRWCOLUMN WITH DATA nFooterLines

it run but on footer I not see anything

this is source


cPict is a static variable

cPict:="999,999.99"

Code: Select all  Expand view

Static  Function CreateBrw()

EXTEND CLASS TXBRWCOLUMN WITH DATA cFooterPicture
EXTEND CLASS TXBRWCOLUMN WITH DATA nFooterLines

OVERRIDE METHOD FOOTERSTR IN CLASS TXBRWCOLUMN WITH KFOOTERSTR


   @ 0,0 XBROWSE oBrw OF oFld:adialogs[1]              ;
      COLUMNS 1, 2, 3, 4, 5                    ;
      HEADERS "Num.","Rata","Quota Capitale","Quota interessi","Capitale residuo"   ;
      COLSIZES 30, 80, 110, 110,110           ;
      ARRAY {} LINES FASTEDIT  SIZE oFld:adialogs[1]:nwidth-3, oFld:adialogs[1]:nheight-16 PIXEL  NOBORDER








                   WITH OBJECT oBrw
                          :lHScroll         := .F.
                          :nMarqueeStyle    := MARQSTYLE_HIGHLWIN7


                                             WITH OBJECT   oBrw:aCols[ 2 ]
                                                  :nDataStrAlign := AL_RIGHT
                                                //  :cEditPicture := cPict
                                                  :lTotal := .t.
                                                  :nTotal :=0
                                                  :nFooterType := AGGR_SUM
                                                  :nFootStrAlign := AL_RIGHT
                                                 
                                                  :cFooterPicture := "Capitale Rimborsato" + CRLF + cPict
                                               END

                                              WITH OBJECT   oBrw:aCols[ 3 ]
                                                  :nDataStrAlign := AL_RIGHT
                                                  :cEditPicture := cPict
                                                  :lTotal := .t.
                                                  :nTotal :=0
                                                  :nFooterType := AGGR_SUM
                                                  :nFootStrAlign := AL_RIGHT
                                               END
                                              WITH OBJECT   oBrw:aCols[ 4 ]
                                                  :nDataStrAlign := AL_RIGHT
                                                  :cEditPicture := cPict
                                                  :lTotal := .t.
                                                  :nTotal :=0
                                                  :nFooterType := AGGR_SUM
                                                  :nFootStrAlign := AL_RIGHT
                                               END

                                               WITH OBJECT   oBrw:aCols[ 5 ]
                                                  :nDataStrAlign := AL_RIGHT
                                                  :cEditPicture := cPict
                                               END



                          :lFooter:=.t.
                          :nFooterLines := 2
                          :MakeTotals()
                          :CreateFromCode()
                   END



   return nil

 

I see on footer two lines but it not print the text but only the number


I'm afraid it run ok with dbf but in my case I have an array data

[Silvio.Falconi]

Any solution please ?

[avista]

Try

ADD oCol TO oBrw DATA ARRAY ELEMENT 3 ;
HEADER "Column 2" ;
SIZE 120 ;
PICTURE "99999" ;
EDITABLE ;
TOTAL 0 ;
FOOTER { |oCol,nNew,nOld| "Test: " + CRLF + TRANSFORM( oCol:nTotal += ( IfNil( nNew, 0 ) - IfNil( nOld, 0 ) ), "99999999" ) }

oBrw:nFooterLines := 2


BTW take care
(if you use ADD oCol)
xbrowse.ch have BUG

in xbrowse.ch, line 196 is now
CODE: SELECT ALL EXPAND VIEW

<.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ;


The two commas at the end of the line should be made as one comma only like this:
CODE: SELECT ALL EXPAND VIEW

<.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>, ;

[avista]

Tested ?

[Silvio.Falconi]

sorry But I have an oldest version

[nageswaragunupudi]

sorry But I have an oldest version

What is your version?

[Silvio.Falconi]

9.10