Reporting

[AlienCock]

Hi guy's please HELP!!!
>
> I have a parent file with 3 child files, now here how it goes:
>
> I'm developing a estimation system for my company, I have a estimation
> summary (Parent file), Then:
> Material (child)
> Labour (child)
> Sub - Contracting (child)
>
>
> The estimation summary shows creates the estimation no and so on
> The 3 child files are all linked to the parent fiel (one to many).
>
> What I strugleing with is to have a report like shown below:
>
> Parent Information:
> Estimation No.: ens.......
>
> Material
> Item 1
> Item 2
> Item 3
>
> Labour
> Item 1
> Item 2
> Item 3
>
> Sub _ Contracting
> Item 1
> Item 2
> Item 3
>
> At this stage I only get a report like this:
>
> Material
> Item 1
> Labour
> Item 1
> Sub _ Contracting
> Item 1
> Material
> Item 2
> Labour
> Item 2
> Sub _ Contracting
> Item 2
> Material
> Item 3
> Labour
> Item 3
> Sub _ Contracting
> Item 3
>
> Please help.
>
>
> G.J. Cloete

 

[RobertoMexicali]

add one detail for each child file:

In your report Report Procedure just include the parent file

In Other Files include the child files

then cancel the code that prints the detail (in takerecord procedure press the Source Button, you will see something like this

! Parent Call !!! (Color gray)
ReturnValue =PARENT.TakeRecord() !!! (Color gray)
! [Priority 5001] !!! (Color gray)
!!! (Color white)
!!! (Color white)
PRINT(RPT:detail) !!! (Color gray)
! [Priority 8000] !!! (Color gray)
!!! (Color white)
! End of "Process Manager Method Executable Code Section"
RETURN ReturnValue

you sould put this:
! Parent Call
ReturnValue =PARENT.TakeRecord()
! [Priority 5001]

IF 1 = 2 !!! (Color white)
PRINT(RPT:detail)
! [Priority 8000]
END !!! (Color white)
! End of "Process Manager Method Executable Code Section"
RETURN ReturnValue

Then, yo manually print each detail on takerecord procedure:
for example:
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
mat:summNum = sum:summNum
set(SummaryIndex,SummaryIndex)
loop
next(summary)
if errorcode() or mat:summNum <> sum:summNum then break.
PRINT(RPT:detailN)
end

IF 1 = 2
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
you do this for each child file