New Bee -- Need Help
Publicado: Dom May 01, 2016 6:48 am
Hi All,
Trying to create Master/Detail/Sub Detail report. In subdetail report I want to print "Description" from another file (in this case "ACPT") but reports pick 1 random name and display for all records. Not sure what I am missing.
Where can I find sample prg/report for reference.
Please guide me.
Regards
Hemant
Sydney - Australia
function create_report()
REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT( "DBFCDX" )
use group shared new
set orde to 1
use depo shared new
set orde to 3
use acpt shared new //<<-- Need to print "Name" from this dbf
SET ORDER TO TAG "ACCODE"
use tran shared new
set orde to 3
SET RELATION TO acode INTO acpt
GO TOP
WITH OBJECT oReport := TFastReport():New()
oGroup := :AddDbf( "group", { "group->*" } )
oDepo := :AddDbf( "DEPO", { "Depo->*" } )
oChithi := :AddDbf( "TRAN", { "TRAN->*"} )
oAcpt := :AddDbf( "acpt", { "acpt->*" } )
oDepo:SetMaster( oGroup, {"gcod=code"} )
oChithi:SetMaster( oDepo, {"dcode=code"} )
:Create()
// :cFilename := "grp_dtl.fr3"
// :ShowReport()
:DesignReport()
:End()
END WITH
retu
Trying to create Master/Detail/Sub Detail report. In subdetail report I want to print "Description" from another file (in this case "ACPT") but reports pick 1 random name and display for all records. Not sure what I am missing.
Where can I find sample prg/report for reference.
Please guide me.
Regards
Hemant
Sydney - Australia
function create_report()
REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT( "DBFCDX" )
use group shared new
set orde to 1
use depo shared new
set orde to 3
use acpt shared new //<<-- Need to print "Name" from this dbf
SET ORDER TO TAG "ACCODE"
use tran shared new
set orde to 3
SET RELATION TO acode INTO acpt
GO TOP
WITH OBJECT oReport := TFastReport():New()
oGroup := :AddDbf( "group", { "group->*" } )
oDepo := :AddDbf( "DEPO", { "Depo->*" } )
oChithi := :AddDbf( "TRAN", { "TRAN->*"} )
oAcpt := :AddDbf( "acpt", { "acpt->*" } )
oDepo:SetMaster( oGroup, {"gcod=code"} )
oChithi:SetMaster( oDepo, {"dcode=code"} )
:Create()
// :cFilename := "grp_dtl.fr3"
// :ShowReport()
:DesignReport()
:End()
END WITH
retu