Paul
Fri Feb 11 13:11:12 CST 2005
I'll check it out. Thanks.
"christophe" <irs.znospamforme@skynet.be> wrote in message
news:%234GnWVBEFHA.3888@TK2MSFTNGP09.phx.gbl...
> hm rumblings,
>
> about the price,
> you only need a Set Path To localreportspath, serverreportspath
> this piece of code will cut your time of work into half and will please
> your
> user
> and then hopefully your wallet.
> (btw : I'm an "inhouse" developer, so I'm already paid for this piece of
> code ... ;-)
>
> *rename all your reports/labels so it starts with "i_"
> *these need to be included in your project.
> *and later on execution will be copied to the server/localdrive without
> "i_"
> *when calling the report in your exe, call the name without "i_".
>
> *create a projecthook and in the BeforeBuild add this :
> *it will add all reports/labels included in your project into a table and
> the table
> *will be added into your project / exe.
>
> If m.nBuildAction = 3
> * CREATE TABLE "c:\yourpath\projectincl.dbf" FREE (bestand C(50),soort
> C(1))
> _vfp.ActiveProject.files("c:\yourpath\projectincl.dbf").Remove
> USE c:\yourpath\projectincl.dbf excl IN 0
> zap
> For Each oFile In _vfp.ActiveProject.Files
> type_ = ofile.type
> fname_ = JUSTFNAME(ofile.name)
> DO case
> CASE Type_ = "R"
> WAIT WINDOW "report : "+ofile.name nowait
> INSERT INTO "projectincl" (bestand,soort) VALUES (fname_,type_)
> case Type_ = "B"
> WAIT WINDOW "label : "+ofile.name nowait
> INSERT INTO "projectincl" (bestand,soort) VALUES (fname_,type_)
> Endcase
> NEXT
> USE IN SELECT("projectincl")
> ofile = _vfp.ActiveProject.Files.Add('c:\yourpath\projectincl.dbf')
> ofile.exclude = .f.
> Endif
>
>
> *in your app.
> *copy reports/labels to server drive if they don't exist
> do rapportupdate_
>
> Procedure rapportupdate_
> Local rapporttot,labeltot
> *rapporten
> Use "projectincl" Alias "incl" IN 0
> Scan For soort $ "BR"
> *copy frx/lbx
> exerapport_=Alltrim(Incl.bestand)
> localbestand_=yourpath+Substr(exerapport_,3) &&del i_
> If .Not. File(localbestand_)
> =Strtofile(Filetostr(exerapport_),localbestand_)
> Endif
>
> *copy frt/lbt
> exerapport1_=Left(exerapport_,Len(exerapport_)-1)+"t" &&replace x met t
> .frx/.lbx => .frt/.lbt
> localbestand_=f_rpt+Substr(exerapport1_,3) &&del i_
> If .Not. File(localbestand_)
> =Strtofile(Filetostr(exerapport1_),localbestand_)
> Endif
> Endscan
> Use In Select("incl")
> Return
>
>
> call me if it doesn't work
> because I've stripped some code to fit your needs
>
> regards,
> christophe
>
>
> "Paul Pedersen" <no-reply@swen.com> schreef in bericht
> news:Oh6sWA5DFHA.1932@TK2MSFTNGP10.phx.gbl...
>> I've thought of that one too. In this case, the users all print to the
> same
>> printer, but if that ever changes, I could use your idea of keeping a
> local
>> copy.
>>
>> I'm starting to hear rumblings now about cost, so I don't want to spend
> time
>> adding features that are not specifically requested.
>>
>>
>>
>> "christophe" <irs.znospamforme@skynet.be> wrote in message
>> news:uVh5hS1DFHA.3368@TK2MSFTNGP10.phx.gbl...
>> > Hi paul,
>> >
>> > Just my experience :
>> > I also have users which in the beginning I avoided to let them
>> > alter the reports themselves.
>> > Then I changed a bit my app so when they mess up a report,
>> > the app deletes it (or they do it themselves) and a new one
>> > is copied from the app at restart.
>> >
>> > I did even more, when the user makes a copy of the report and places it
>> > in a local drive then the app uses that one, instead of the one on the
>> > server.
>> > So each user has now his own report that can be modified to fit his
>> > printer
>> > or
>> > logo or whatever he want to fit his needs.
>> > now they (and me ofcourse) can't hardly live without this "feature".
>> >
>> >
>> > regards
>> > christophe
>> >
>> > "Paul Pedersen" <no-reply@swen.com> schreef in bericht
>> > news:uOweMbiDFHA.3728@TK2MSFTNGP14.phx.gbl...
>> >> Thanks for the suggestion. That should work well enough for vertical,
> but
>> >> I'd have to use a monospaced font to get the horizontal adjustment to
>> >> line
>> >> up properly.
>> >>
>> >> Also, it would require users to modify the reports themselves, which
> I'd
>> >> prefer to avoid.
>> >>
>> >>
>> >>
>> >>
>> >> "Allan" <Allan@discussions.microsoft.com> wrote in message
>> >> news:2702FEFA-7180-4683-9079-168482845119@microsoft.com...
>> >> > Hi Paul,
>> >> >
>> >> > I had a similar problem before and what I did is to use a 'slack'
>> > textbox
>> >> > at
>> >> > the beginning of the detail band using a font size of 6. The
> controls
>> >> > containing the actual data at set to move relative to the top of the
>> >> > detail
>> >> > band. I use a 'page-setup' form to allow the user to adjust the top
>> >> > and
>> >> > fill
>> >> > the 'slack' textbox with empty spaces during printing. You can also
> do
>> >> > this
>> >> > on the margin at the left by placing 'slack' spaces before the
> controls
>> >> > actual data like: SPACE(lnLeftMargin) + lcActualData +
>> > lcOtherActualData.
>> >> >
>> >> > Hope this will help,
>> >> >
>> >> > Allan
>> >> > "Paul Pedersen" wrote:
>> >> >
>> >> >> I have reports with one record in a tall detail band, no header,
>> > footer,
>> >> >> title, nor summary. These are intended to be printed on pre-printed
>> >> >> forms,
>> >> >> with the text boxes filling in the blanks.
>> >> >>
>> >> >> As expected, there are alignment differences for different users
> using
>> >> >> different printers. Alignment between the individual controls does
> not
>> >> >> change, but margins do.
>> >> >>
>> >> >> I can allow the user to edit the report, but these users are not
>> >> >> particularly computer savvy. I have grouped all the controls on the
>> >> >> report,
>> >> >> and I would like to allow the user to specify something like "move
>> >> >> everything up 1/8 inch and right 1/4 inch", then have the app make
> the
>> >> >> adjustment.
>> >> >>
>> >> >> Can this be done with report listeners? Or is it best to hack the
>> > report?
>> >> >> Something like
>> >> >>
>> >> >> REPLACE hpos WITH hpos + 10 FOR objtype = 8
>> >> >>
>> >> >> Or, since I have grouped the controls, is there a simple way to
>> >> >> reposition
>> >> >> the group? How are groups represented in the frx?
>> >> >>
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >
>> >
>>
>>
>
>