How to define a GROUP-color on xBrw-cells ?

[ukoenig]

Hello,

I want to define GROUP-colors on the first xBrowse-cell field ("STEUER")->PAT_NUMMER
to sliver the bills of a customer.

sample :
3 bills on customer 1
// color-change
4 bills on customer 2
// color change
1 bill on customer 3



There is still something wrong with the color-change-logic.

Code: Select all  Expand view

WITH OBJECT oBrw1
    :aCols[ 1 ]:bClrStd := { || If( nPNr <> ("STEUER")->PAT_NUMMER, ;
                           { If( ( oBrw1:cAlias )->( Deleted() ), 255, aVal[103] ), aVal[102] }, ;
                           { If( ( oBrw1:cAlias )->( Deleted() ), 255, aVal[101] ), aVal[100] } ) }
    :aCols[ 1 ]:bClrSel     :=  ;
    :aCols[ 1 ]:bClrSelFocus    := { || { If( ( oBrw1:cAlias )->( Deleted() ), 255, aVal[105] ), aVal[104] } }
        :bRecSelData        := { |brw| brw:KeyNo }
        :bRecSelHeader  := { |brw| "Nr." }  // or simply "SlNo"
        :bRecSelFooter      := { |brw| brw:nLen } // or Simpy any value
        :nRecSelWidth       := 50
    :MakeTotals()
    :aCols[ 6 ]:bFooter := { || oBrw1:aCols[ 6 ]:nTotal }
    If( nPNr = ("STEUER")->PAT_NUMMER, "", nPNr := ("STEUER")->PAT_NUMMER ) // pat_nummer changed
END
 

[nageswaragunupudi]

aColorPairs := { { CLR_BLACK, CLR_WHITE}, { CLR_WHITE, CLR_BLUE }, ........... }
nColorPairs := Len( aColorPairs )

oCol:bClrStd := { || aColorPairs[ VAL( STEUER->PAT_NUMMER ) % nColorPairs + 1 ] }

[ukoenig]

Mr. Rao,

thank You very much, but it seems there is still something wrong.
I added some more bills to test the color-change.
Number 0004 is painted white.



aColorPairs := { { CLR_BLACK, CLR_WHITE}, { CLR_WHITE, CLR_BLUE } }
nColorPairs := Len( aColorPairs )
WITH OBJECT oBrw1
:aCols[ 1 ]:bClrStd := { || aColorPairs[ VAL( STEUER->PAT_NUMMER ) % nColorPairs + 1 ] }
:bRecSelData := { |brw| brw:KeyNo }
:bRecSelHeader := { |brw| "Nr." } // or simply "SlNo"
:bRecSelFooter := { |brw| brw:nLen } // or Simpy any value
:nRecSelWidth := 50
:MakeTotals()
:aCols[ 6 ]:bFooter := { || oBrw1:aCols[ 6 ]:nTotal }
END

best regards
Uwe

[nageswaragunupudi]

There is nothing wrong.
Define more number of color pairs may be around 10

[ukoenig]

Once again,
thank You very much.
It works PERFECT now.
I added some more bills for my test.
The solution is needed for a overview of all written bills for the tax consultant.
A customer can have many bills the same time defined with a TYP ( insurance, privat, social welfare office ....)

Code: Select all  Expand view

aColorPairs := { { CLR_BLACK, CLR_WHITE}, ;
          { CLR_WHITE, 16711680 }, ; // Blue
          { CLR_WHITE, 255 }, ;   // Red
          { CLR_WHITE, 32768 }, ; // Green
          { CLR_WHITE, 16512 }, ; // Brown
          { CLR_BLACK, 8454143 }, ; // Yellow
          { CLR_BLACK, 16776960 } } // Lightblue

nColorPairs := Len( aColorPairs )

WITH OBJECT oBrw1
     oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, ; // Row-colors
               { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[103] ), aVal[102] }, ;
               { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[101] ), aVal[100] } ) }
     oBrw:bClrSel :=  ;
     oBrw:bClrSelFocus  := { || { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[105] ), aVal[104] } }
     :aCols[ 1 ]:bClrStd := { || aColorPairs[ VAL( STEUER->PAT_NUMMER ) % nColorPairs + 1 ] }
     :bRecSelData := { |brw| brw:KeyNo }
     :bRecSelHeader := { |brw| "Nr." }  // or simply "SlNo"
     :bRecSelFooter := { |brw| brw:nLen } // or Simpy any value
     :nRecSelWidth := 50
     :MakeTotals()
     :aCols[ 6 ]:bFooter := { || oBrw1:aCols[ 6 ]:nTotal }
END
 

regards
Uwe