How to print Fields from another DBF related to a Group ?

[ukoenig]

Hello,

Is it possible, to print inside a group fields from a related DBF ?



DBSELECTAREA(1) // Select Start-DBF as Group
GROUP ON (1)->GROUP HEADER oReport:aGroups[ 1 ]:cValue
oReport:bStartgroup := { || oReport:Say( 1, oReport:aGroups[ 1 ]:cValue ) }

Field < GROUP > defined in DBF 1 and DBF 2 ( relation )

needed to print all products from DBF 2 of defined group in DBF 1 !!!

COLUMN TITLE "Product" DATA (2)->PRODUCT // DBF 2 related to DBF 1 with field GROUP

END REPORT

Any Sample ????

Best Regards
Uwe

[ADutheil]

Assuming oReport is defined STATIC WIDE in the prg.

Code: Select all  Expand view

COLUMN TITLE "Product" DATA " "

ACTIVATE REPORT oReport ON CHANGE ListProduct()


STATIC Function ListProduct()
oReport:BackLine(1)
WHILE (2)->group == (1)->GROUP
    oReport:StartLine()
    oReport:Say( , (2)->FIELD_YOU_NEED )
    oReport:EndLine()
    (2)->( dbSkip() )
ENDDO
oReport:Newline()
RETURN NIL

[ukoenig]

André,

Thank You very much.
I still tested another Solution, maybe a way to use different DBF's ( relations ) ?

1. I create a temporary < PRINT.dbf > with the needed fields to print
2. I collect from the different DBFs the infos and add these to the defined fields
-- some field-calculations must be done ( some are a little bit complicated )
3. I use this created PRINT.dbf for printing
4. next Building the groups with the 1. PRINT-dbf-field

doing it this way, I don't have the problems with relations and calculations.
All infos are included in just one DBF ( Print.dbf )

Is there any possible reason, speaks against this solution ?

Best Regards
Uwe

[ADutheil]

I cant see any problem beyond the time to build the temp dbf. I have a lot of prgs using this solution when the relations and calculations become too hard to do it in one pass. Migrating to SQL was a very good move for me in these cases. You can make some really "hairy" queries with a lightning fast result.

[ukoenig]

André,

I still have a question about < Groups >
The bottom of Groups are showing the Text < Total >
Is there a way to disable this Text, because I need only the Group-title.

Best Regards
Uwe

[Marcelo Via Giglio]

Hello,

try some thing like this

Code: Select all  Expand view

oReport:aGroups[i]:bFooter := {|| "" }
 

where i is the group number, if you have a one group only, i = 1

try and comment if it is what you need

regards

Marcelo

[ukoenig]

Marcelo,
Basicly Yes, I added a empty FOOTER

// shows a extra Group-title belongs to a defined Group-field
// --------------------------------------------------------------------
GROUP ON (30)->GROUP HEADER (30)->GRPTITLE FOOTER " "
oReport:bStartgroup := { || oReport:Say( 1, (30)->GRPTITLE ) }

Best Regards
Uwe