Crystal Report on-the-fly
$30-40 USD
Dibayar saat pengiriman
I recently came across a project (VB/access) which uses one blank Crystal report file(dsr) and creates all the reports on the fly based on that report. Even the connection is used thru connection string. This I've figured out how to do from other reports on that project. But I cannot figure out how to link a subreport to each record of the main report. say, you have a list of names and related phone numbers. the phone numbers list is the subreport which is to link to each name. I just want a working copy of this.
ggosh
**see attatchment for sample**
if there's expenses attatched with each bed, linked to the main report by bed no., how do you define the link?
## Deliverables
Rent A Coder requirements notice: As originally posted, this bid request does not have complete details. Should a dispute arise and this project go into arbitration "as is", the contract's vagueness might cause it to be interpreted against you, even though you were acting in good-faith. So for your protection, if you are interested in this project, please work-out and document the requirements onsite.
1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.
2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables):
a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment.
b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request.
3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).
* * *This broadcast message was sent to all bidders on Monday May 23, 2005 2:56:39 PM:
Some more info:
Crystal Report Version 8.0
the project uses Crytal Report Viewer Control([url removed, login to view]) and runtime dll([url removed, login to view])
sample report:- to give you an idea what the thing looks like. the functions used are just to make the coding a little clean-modularised the details of the multiple lines used to do a job.
Public Sub preBedList(Optional rflt As String)
Dim mr As New CRFlatRep
Dim rsql As String
Dim t As Integer
Dim rw As Integer
rpdesc = "Bed List"
rsql = "select b.bed_no,[url removed, login to view],rtrim([url removed, login to view]) as name,[url removed, login to view] from bedmast b,bedcat c where b.btype=[url removed, login to view] order by [url removed, login to view]"
Set mr = SetRepDB(mr, NHCCon, rsql, rflt)
[url removed, login to view] 0, [url removed, login to view](1).Fields(4), crGCAnyValue, crDescendingOrder
[url removed, login to view] 1, [url removed, login to view](1).Fields(3), crGCAnyValue, crAscendingOrder
[url removed, login to view] rSize = crPaperFanfoldStdGerman
rw = 12000 ' 8.5" of [url removed, login to view] excluding margins
'Report Header
[url removed, login to view] = True
t = SetRPgHdr(mr, rpdesc, rw, , True)
Set txT = AddRepTxt([url removed, login to view], "Category", 1800, t + 50, 12, 3000)
Set txT = AddRepTxt([url removed, login to view], "Bed No.", 4800, t + 50, 12, 1500)
Set txT = AddRepTxt([url removed, login to view], "Rate", 6300, t + 50, 12, 1500, , crRightAlign)
t = t + [url removed, login to view] + 50
[url removed, login to view] = t + 50
Set ln = [url removed, login to view](0, t, rw, t)
Set flD = AddRepFld([url removed, login to view](4).Sections(1), "{[url removed, login to view]}", 1800, 50, 15, 4000, 400)
[url removed, login to view] = True
[url removed, login to view](4).Sections(1).Height = 450
t = 0
'Set flD = AddRepFld([url removed, login to view], "{[url removed, login to view]}", 1800, 50, 12)
'[url removed, login to view] = True
Set flD = AddRepFld([url removed, login to view], "{ado.bed_no}", 4800, t + 50, 12)
Set flD = AddRepFld([url removed, login to view], "{ado.r ate}", 6300, t + 50, 12, 1500, , 2)
[url removed, login to view] = [url removed, login to view] + 170
SetRepFtr mr, True, rw
SetRPgFtr mr, , rw
ShowReport mr, True
End Sub
ggosh
* * *This broadcast message was sent to all bidders on Tuesday May 24, 2005 11:39:14 AM:
check up the specs again.
## Platform
VB6, CR 8.0, MS Access 2000
ID Proyek: #3730261