xBrowse MakeTotals on Array Column

[Rick Lipkin]

To All

I am creating a complex array from multiple data sources .. the second array column is one of those columns I want to sum up on the column footer. All I know is the column is aPlan [2] Header "Origional Budget"

How can I use MakeTotals() from an array column ?

Code: Select all | Expand

 // project plan ---------------------------        REDEFINE xBROWSE oLbx3  ;        ARRAY aPlan             ;         HEADERS "Budget Item",         ;                     "Origional_Budget",    ;                      "Budget Revision",     ;                      "Current Budget",      ;                      "Origional Contract",  ;                      "Contract Revisions",  ;                      "Current Committed",   ;                      "Pending Proposals",   ;                      "Potential Exposures", ;                      "Potential Costs",     ;                      "Potential Proj Costs"       ;         COLSIZES 200,70,70,70,70,70,70,70,70,70,70 ; // 11         ID 174 of oCust     ;         AUTOCOLS CELL LINES         oLbx3:lFooter  := .t.         oCol           := oLbx3:aCols[ 1 ]         oCol:bFooter   := { || Ltrim( Str( oLbx3:KeyNo() ) ) + " / " + LTrim( Str( oLbx3:KeyCount() ) ) }         oLbx3:bChange  := { || oCol:RefreshFooter() }         WITH OBJECT oLbx3                :aCols[2]:nFooterType  := AGGR_SUM   // <---------- here  .. does not work                :MakeTotals()          END          oLbx3:aCols[2]:nDataStrAlign := AL_RIGHT  // orig budget          oLbx3:aCols[2]:nHeadStrAlign := AL_RIGHT          oLbx3:lRecordSelector := .f. 

Thanks
Rick Lipkin

[Richard Chidiak]

Rick

WITH OBJECT oLbx3
:aCols[2]:nFooterType := AGGR_TOTAL
END

ODLG:bSTART := { || Olbx3:MAKETOTALS(),Olbx3:SETFOCUS() }

Hth

Richard

[Rick Lipkin]

To All

I found out that as I was creating my array I used the TransForm() function to format the amount which converted the value to character. I decided to use the PICTURE clause on the xBrowse Column and I achieved my desired results.

Thanks to everyone.
Rick Lipkin

Code: Select all | Expand

// project plan ---------------------------              REDEFINE xBROWSE oLbx3  ;              ARRAY aPlan             ;              HEADERS "Budget"+CRLF+"Item",         ;                      "Origional"+CRLF+"Budget",    ;                      "Budget"+CRLF+"Revision",     ;                      "Current"+CRLF+"Budget",      ;                      "Origional"+CRLF+"Contract",  ;                      "Contract"+CRLF+"Revisions",  ;                      "Current"+CRLF+"Committed",   ;                      "Pending"+CRLF+"Proposals",   ;                      "Potential"+CRLF+"Exposures", ;                      "Potential"+CRLF+"Costs",     ;                      "Potential"+CRLF+"Project Costs"       ;              COLSIZES 200,70,70,70,70,70,70,70,70,70,70 ; // 11              PICTURE "","999,999,999.99" ;              ID 174 of oCust     ;              AUTOCOLS CELL LINES              oLbx3:lFooter  := .t.              oCol           := oLbx3:aCols[ 1 ]              oCol:bFooter   := { || Ltrim( Str( oLbx3:KeyNo() ) ) + " / " + LTrim( Str( oLbx3:KeyCount() ) ) }              oLbx3:bChange  := { || oCol:RefreshFooter() }              WITH OBJECT oLbx3                  :aCols[2]:nFooterType  := AGGR_SUM                  :MakeTotals()                  * :bLClickFooter    := { |r,c,f,o| FooterAggrClick( r, c, f, o ) }              END