Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Master Detail Reports using Rave

Status
Not open for further replies.

tjcusick

Programmer
Dec 26, 2006
134
US
I've followed the instructions and i've even downloaded the webinar from Nevrona's website and again followed everything they specified on there and i generated the following code in delphi but for some reason Rave will not give me a Master Detail report it just looses the details and only shows me the Master information?? any suggestions?

Code:
[navy][i]// for automatic syntax highlighting see faq102-6487 
[/i][/navy][b]procedure[/b] TCusRptDM.FAMCCGetCols(Connection: TRvCustomConnection);
[b]begin[/b]
  With Connection [b]do[/b] [b]begin[/b]
    WriteField([teal]'FAMILY_ID'[/teal], dtString, [purple]16[/purple], [teal]''[/teal], [teal]''[/teal]);
    WriteField([teal]'FAM_NAME'[/teal], dtString, [purple]50[/purple], [teal]''[/teal], [teal]''[/teal]);
  [b]end[/b];
[b]end[/b];

[b]procedure[/b] TCusRptDM.FAMCCGetRow(Connection: TRvCustomConnection);
[b]begin[/b]                     
  With Connection [b]do[/b] [b]begin[/b]
    dbfFam.EnsureOpen;
    [b]with[/b] dbfFam [b]do[/b] [b]begin[/b]
      WriteStrData(FieldAsString([teal]'FAMILY_ID'[/teal]), [teal]''[/teal]);
      WriteStrData(FieldAsString([teal]'FAM_NAME'[/teal]), [teal]''[/teal]);
    [b]end[/b];
  [b]end[/b];
[b]end[/b];

[b]procedure[/b] TCusRptDM.FAMCCOpen(Connection: TRvCustomConnection);
[b]begin[/b]
  Connection.DataRows:=[purple]60[/purple];
[b]end[/b];

[b]procedure[/b] TCusRptDM.INDCCGetCols(Connection: TRvCustomConnection);
[b]begin[/b]
  With Connection [b]do[/b] [b]begin[/b]
    WriteField([teal]'Individual ID'[/teal], dtString, [purple]16[/purple], [teal]''[/teal], [teal]''[/teal]);
    WriteField([teal]'FAMILY_ID'[/teal], dtString, [purple]16[/purple], [teal]''[/teal], [teal]''[/teal]);
    WriteField([teal]'First Name'[/teal], dtString, [purple]30[/purple], [teal]''[/teal], [teal]''[/teal]);
  [b]end[/b];
[b]end[/b];

[b]procedure[/b] TCusRptDM.INDCCGetRow(Connection: TRvCustomConnection);
[b]begin[/b]
  With Connection [b]do[/b] [b]begin[/b]
    dbfInd.EnsureOpen;
    [b]with[/b] dbfInd [b]do[/b] [b]begin[/b]
      WriteStrData(FieldAsString([teal]'IND_ID'[/teal]),[teal]''[/teal]);
      WriteStrData(FieldAsString([teal]'FAMILY_ID'[/teal]),[teal]''[/teal]);
      WriteStrData(FieldAsString([teal]'FIRST_NAME'[/teal]),[teal]''[/teal]);
    [b]end[/b];
  [b]end[/b];
[b]end[/b];

[b]procedure[/b] TCusRptDM.INDCCOpen(Connection: TRvCustomConnection);
[b]begin[/b]
  Connection.DataRows:=[purple]200[/purple];
[b]end[/b];
 
do not use the Connection.DataRows= technique.

use OnFirst, OnNext and OnEOF instead.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top