FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour to Mr Nages xbrowse footer
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

to Mr Nages xbrowse footer

Posted: Sat May 24, 2014 03:24 PM
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: to Mr Nages xbrowse footer

Posted: Sun May 25, 2014 04:09 PM

Use Mr Carlos extension in the posting

viewtopic.php?f=3t=28488

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

&

Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: to Mr Nages xbrowse footer

Posted: Mon May 26, 2014 08:47 AM
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 (fw): Select all Collapse
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: to Mr Nages xbrowse footer

Posted: Tue May 27, 2014 10:36 AM

Any solution please ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 301
Joined: Fri Jun 01, 2007 09:07 AM

Re: to Mr Nages xbrowse footer

Posted: Tue May 27, 2014 12:10 PM
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.>, ;
Posts: 301
Joined: Fri Jun 01, 2007 09:07 AM

Re: to Mr Nages xbrowse footer

Posted: Thu May 29, 2014 12:03 AM

Tested ?

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: to Mr Nages xbrowse footer

Posted: Thu May 29, 2014 06:57 AM

sorry But I have an oldest version

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: to Mr Nages xbrowse footer

Posted: Thu May 29, 2014 12:57 PM
Silvio.Falconi wrote:sorry But I have an oldest version

What is your version?
Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: to Mr Nages xbrowse footer

Posted: Fri May 30, 2014 09:41 AM

9.10

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion