FiveTech Software tech support forums

... the date and page number/pages on the right bSetUp := < |oRep, Brw, n | if n == 2 oRep:bSkip := {|| (IF(!oDbf:Eof(),oDbf:Skip(),nil),; IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} return nil endif return 2 > oBrw:Report("List", nil, nil, bSetup) these lines ...

...   := { |n| lEof := ( Eval( oBrw:bSkip, n ) != n ) }   endif  Por eso es que la linea oRep:bSkip := {|oRep| IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) } No tiene efecto the bskip it make right because I made If empty(aColumns) aColsReport:= oBrw:aCols ...

... |n| lEof := ( Eval( oBrw:bSkip, n ) != n ) }   endif  Por eso es que la linea oRep:bSkip := {|oRep| IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) } No tiene efecto

... bStart := {|oRep| oRep:bStartPage := bImage} bInit := {|| oBrw:oDbf:GoTop()} bSkip := {|| (IF(!oBrw:oDbf:Eof(),oBrw:oDbf:Skip(),nil),IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} if n == 2 oRep:oShdBrush := TBrush():New(,nRgb(219,229,241)) oRep:bInit := bInit oRep:bSkip ...

... SIZE 8; CENTER GROUP ON oTELE0060:A_ENTRE_60; FOOTER SUBSTR(oReport:aGroups[1]:cValue,1,8) + '=>' + Alltrim(str(oReport:aGroups[1]:nCounter)); FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] ...

... about twenty all different in addition to the other prints (lists) that I use the simple treport cche also there are the problems like the famous ncounter then solved in a topic in the forum, we have the invoice but we do not have a single document there there are many types of invoices: accompanying ...

Excellent!

artu01 wrote:
Try this way

Dear artu01,
we allready resolved

For Groups
oReport:aGroups[ nGroup ]:nCounter

for bfor and others
local nCounter:= 0

...
oReport:bStartRecord := { || nCounter++ }

...
ACTIVATE REPORT oReport ;
....
oReport:Say(1, 'Total customers: '+Tran(nCounter, '@E 999,999'), 1)

Silvio: at the beginning, ncounter should be 0 Dear artu01, I have been looking for solutions for a week, turning the forum many times and all my saves from 1992 to today, from fw14.4 to the penultimate 32-bit version of 2020, unfortunately ...

Silvio.. oReport:aGroups[ nGroup ]:nCounter  Carlos, I already knew, the problem is: 1) For the command of the groups we must use oReport: aGroups [nGroup]: nCounter 2) To get the total we can no longer use oReport: nCounter (because it ...

Silvio..

Code: Select all  Expand view

oReport:aGroups[ nGroup ]:nCounter
 

cnavarro wrote:You are used

Code: Select all  Expand view

     oRep:bStartRecord  := { || nCounter++ }
 

or oReport:bStartRecord ?

yes of course
but my question
for total customer we must use a local variable
for group command we need to use oRep:nCounter
Do you think about it.. is normal ?

You are used

Code: Select all  Expand view

     oRep:bStartRecord  := { || nCounter++ }
 

or oReport:bStartRecord ?

Please, use this      oReport:bStartRecord  := { || nCounter++ }  Remove nCounter++ of others lines or clauses Error description: Error BASE/1005 Message not found: TREPORT:_BSTARTRECORD Args: [ 1] = O TREPORT Stack Calls =========== Called ...