Crystal 2008 from delphi 2010

Delphi Code converter that will comment out crepe code and replace with necessary code to generate crystal reports from any version of Delphi.

The following includes samples of how different types of code get converted from delphi with a 
crepe component to code that will work the same using a special VB component.

crystalrun(rptname,crparms,crfilter,crsort);  // autofix 
is a function that calls a VB exe that will generate the crystal report similar to the crepe component?

Converter inserts  // autocomment 09/25/2009 on any line it comments out. It also adds  // autofix to the end of all new generated code.

After reviewing samples below and interested in purchasing a copy of these utilities, contact 
DKollar@questsystech.com  or ABobby@questsystech.com

=================================================================================================

---------------
---------------    Sample  with parameters by name
---------------
//     Reports.ReportName := ReportDirectory+'\DepCobraLetter.rpt'; // autocomment 09/25/2009
  rptname := REPORTDIRECTORY+'\DEPCOBRALETTER.RPT';                  // autofix  + datetostr(now); 
//     Reports.Paramfields.Retrieve;                            // autocomment 09/25/2009
//     Reports.ParamFields.Name := 'Social';                    // autocomment 09/25/2009
//     Reports.ParamFields.Value := Social;                     // autocomment 09/25/2009
crparms:='SOCIAL' + ':' +  SOCIAL;                     
//     Reports.ParamFields.Name := 'DepNo';                     // autocomment 09/25/2009
//     Reports.ParamFields.asNumber := DepNo;                   // autocomment 09/25/2009
crparms:=crparms + ';' + 'DEPNO' + ':' + INTTOSTR( DEPNO);
//     Reports.ParamFields.Name := 'TermDate';                  // autocomment 09/25/2009
//     Reports.ParamFields.asDate := TermDate;                  // autocomment 09/25/2009
crparms:=crparms + ';' + 'TERMDATE' + ':' + datetostr( TERMDATE);
//     Reports.DiscardData;                                     // autocomment 09/25/2009
//     Reports.Execute;                                         // autocomment 09/25/2009
    crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//     While Iswindow(Reports.ReportWindowHandle) do Application.ProcessMessages; // autocomment 09/25/2009
//     Reports.CloseJob;                                        // autocomment 09/25/2009

---------------
---------------    Sample  with paramaters by fld number
---------------
//       Reports.ReportName := ReportDirectory+'\ClaimsEntered2.rpt'; // autocomment 09/25/2009
  rptname := REPORTDIRECTORY+'\CLAIMSENTERED2.RPT';                  // autofix  + datetostr(now); 
//       Reports.ParamFields.Retrieve;                          // autocomment 09/25/2009
//       Reports.ParamFields[0].asDate := DateStart.Date;       // autocomment 09/25/2009
crparms:='0' + ':' + datetostr( DATESTART.DATE);
//       Reports.ParamFields[1].asDate := DateEnd.Date;         // autocomment 09/25/2009
crparms:=crparms + ';' + '1' + ':' + datetostr( DATEEND.DATE);
//       Reports.ParamFields[2].value := MenuDM.ClaimType;      // autocomment 09/25/2009
crparms:=crparms + ';' + '2' + ':' +  MENUDM.CLAIMTYPE;      
//       Reports.DiscardData;                                   // autocomment 09/25/2009
//       Reports.Execute;                                       // autocomment 09/25/2009
    crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//       While IsWindow(Reports.ReportWindowHandle) do          // autocomment 09/25/2009
            Application.ProcessMessages;
//       Reports.CloseJob;                                      // autocomment 09/25/2009

---------------
---------------    Sample  with sort
---------------

//     Reports.ReportName := ReportDirectory+'\Providers.rpt';  // autocomment 09/25/2009
  rptname := REPORTDIRECTORY+'\PROVIDERS.RPT';                   // autofix  + datetostr(now); 
//     Reports.Paramfields.Retrieve;                            // autocomment 09/25/2009
//     Reports.ParamFields[0].Value := Provider;                // autocomment 09/25/2009
crparms:='0' + ':' +  PROVIDER;                
//     Reports.ParamFields[1].Value := Sort;                    // autocomment 09/25/2009
crparms:=crparms + ';' + '1' + ':' +  SORT;                    
//     Reports.ParamFields[2].Value := Participating;           // autocomment 09/25/2009
crparms:=crparms + ';' + '2' + ':' +  PARTICIPATING;           
//     Reports.ParamFields[3].Value := FedID;                   // autocomment 09/25/2009
crparms:=crparms + ';' + '3' + ':' +  FEDID;                   
//     Reports.ParamFields[4].Value := GScode;                  // autocomment 09/25/2009
crparms:=crparms + ';' + '4' + ':' +  GSCODE;                  
//     Reports.DiscardData;                                     // autocomment 09/25/2009
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//  crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//     Reports.Execute;                                         // autocomment 09/25/2009
    crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//     While Iswindow(Reports.ReportWindowHandle) do Application.ProcessMessages; // autocomment 09/25/2009
//       Reports.CloseJob;                                      // autocomment 09/25/2009

---------------
---------------    Sample  with filter
---------------
//     Reports.ReportName := ReportDirectory+'\MembCard.rpt';   // autocomment 09/25/2009
  rptname := REPORTDIRECTORY+'\MEMBCARD.RPT';                    // autofix  + datetostr(now); 
//     Reports.Selection.Formula.Text := '{Members.WorkStatus} = ' + quotedStr('A') + ' and ' + // autocomment 09/25/2009
  crfilter:=  '{MEMBERS.WORKSTATUS} = ' + QUOTEDSTR('A') + ' AND ' +   // autofix
  crparms:='Filter:True ';                  // autofix     
                                      '{Members.EmprID} = ' + IntToStr(EmployersEmpID.Value);
//     Reports.DiscardData;                                     // autocomment 09/25/2009
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//  crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//     Reports.Execute;                                         // autocomment 09/25/2009
    crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
//  crystalrun(rptname,' ',' ',' ');  // autocomment
//     While IsWindow(Reports.ReportWindowHandle) do            // autocomment 09/25/2009
          Application.ProcessMessages;
0
Andrew
9/25/2009 6:32:36 PM
embarcadero.delphi.reporting 487 articles. 0 followers. Follow

1 Replies
482 Views

Similar Articles

[PageSpeed] 34

> {quote:title=Andrew Bobby wrote:}{quote}
> Delphi Code converter that will comment out crepe code and replace with necessary code to generate crystal reports from any version of Delphi.
> 
> The following includes samples of how different types of code get converted from delphi with a 
> crepe component to code that will work the same using a special VB component.
> 
> crystalrun(rptname,crparms,crfilter,crsort);  // autofix 
> is a function that calls a VB exe that will generate the crystal report similar to the crepe component?
> 
> Converter inserts  // autocomment 09/25/2009 on any line it comments out. It also adds  // autofix to the end of all new generated code.
> 
> After reviewing samples below and interested in purchasing a copy of these utilities, contact 
> DKollar@questsystech.com  or ABobby@questsystech.com
> 
> =================================================================================================
> 
> ---------------
> ---------------    Sample  with parameters by name
> ---------------
> //     Reports.ReportName := ReportDirectory+'\DepCobraLetter.rpt'; // autocomment 09/25/2009
>   rptname := REPORTDIRECTORY+'\DEPCOBRALETTER.RPT';                  // autofix  + datetostr(now); 
> //     Reports.Paramfields.Retrieve;                            // autocomment 09/25/2009
> //     Reports.ParamFields.Name := 'Social';                    // autocomment 09/25/2009
> //     Reports.ParamFields.Value := Social;                     // autocomment 09/25/2009
> crparms:='SOCIAL' + ':' +  SOCIAL;                     
> //     Reports.ParamFields.Name := 'DepNo';                     // autocomment 09/25/2009
> //     Reports.ParamFields.asNumber := DepNo;                   // autocomment 09/25/2009
> crparms:=crparms + ';' + 'DEPNO' + ':' + INTTOSTR( DEPNO);
> //     Reports.ParamFields.Name := 'TermDate';                  // autocomment 09/25/2009
> //     Reports.ParamFields.asDate := TermDate;                  // autocomment 09/25/2009
> crparms:=crparms + ';' + 'TERMDATE' + ':' + datetostr( TERMDATE);
> //     Reports.DiscardData;                                     // autocomment 09/25/2009
> //     Reports.Execute;                                         // autocomment 09/25/2009
>     crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //     While Iswindow(Reports.ReportWindowHandle) do Application.ProcessMessages; // autocomment 09/25/2009
> //     Reports.CloseJob;                                        // autocomment 09/25/2009
> 
> ---------------
> ---------------    Sample  with paramaters by fld number
> ---------------
> //       Reports.ReportName := ReportDirectory+'\ClaimsEntered2.rpt'; // autocomment 09/25/2009
>   rptname := REPORTDIRECTORY+'\CLAIMSENTERED2.RPT';                  // autofix  + datetostr(now); 
> //       Reports.ParamFields.Retrieve;                          // autocomment 09/25/2009
> //       Reports.ParamFields[0].asDate := DateStart.Date;       // autocomment 09/25/2009
> crparms:='0' + ':' + datetostr( DATESTART.DATE);
> //       Reports.ParamFields[1].asDate := DateEnd.Date;         // autocomment 09/25/2009
> crparms:=crparms + ';' + '1' + ':' + datetostr( DATEEND.DATE);
> //       Reports.ParamFields[2].value := MenuDM.ClaimType;      // autocomment 09/25/2009
> crparms:=crparms + ';' + '2' + ':' +  MENUDM.CLAIMTYPE;      
> //       Reports.DiscardData;                                   // autocomment 09/25/2009
> //       Reports.Execute;                                       // autocomment 09/25/2009
>     crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //       While IsWindow(Reports.ReportWindowHandle) do          // autocomment 09/25/2009
>             Application.ProcessMessages;
> //       Reports.CloseJob;                                      // autocomment 09/25/2009
> 
> ---------------
> ---------------    Sample  with sort
> ---------------
> 
> //     Reports.ReportName := ReportDirectory+'\Providers.rpt';  // autocomment 09/25/2009
>   rptname := REPORTDIRECTORY+'\PROVIDERS.RPT';                   // autofix  + datetostr(now); 
> //     Reports.Paramfields.Retrieve;                            // autocomment 09/25/2009
> //     Reports.ParamFields[0].Value := Provider;                // autocomment 09/25/2009
> crparms:='0' + ':' +  PROVIDER;                
> //     Reports.ParamFields[1].Value := Sort;                    // autocomment 09/25/2009
> crparms:=crparms + ';' + '1' + ':' +  SORT;                    
> //     Reports.ParamFields[2].Value := Participating;           // autocomment 09/25/2009
> crparms:=crparms + ';' + '2' + ':' +  PARTICIPATING;           
> //     Reports.ParamFields[3].Value := FedID;                   // autocomment 09/25/2009
> crparms:=crparms + ';' + '3' + ':' +  FEDID;                   
> //     Reports.ParamFields[4].Value := GScode;                  // autocomment 09/25/2009
> crparms:=crparms + ';' + '4' + ':' +  GSCODE;                  
> //     Reports.DiscardData;                                     // autocomment 09/25/2009
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //  crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //     Reports.Execute;                                         // autocomment 09/25/2009
>     crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //     While Iswindow(Reports.ReportWindowHandle) do Application.ProcessMessages; // autocomment 09/25/2009
> //       Reports.CloseJob;                                      // autocomment 09/25/2009
> 
> ---------------
> ---------------    Sample  with filter
> ---------------
> //     Reports.ReportName := ReportDirectory+'\MembCard.rpt';   // autocomment 09/25/2009
>   rptname := REPORTDIRECTORY+'\MEMBCARD.RPT';                    // autofix  + datetostr(now); 
> //     Reports.Selection.Formula.Text := '{Members.WorkStatus} = ' + quotedStr('A') + ' and ' + // autocomment 09/25/2009
>   crfilter:=  '{MEMBERS.WORKSTATUS} = ' + QUOTEDSTR('A') + ' AND ' +   // autofix
>   crparms:='Filter:True ';                  // autofix     
>                                       '{Members.EmprID} = ' + IntToStr(EmployersEmpID.Value);
> //     Reports.DiscardData;                                     // autocomment 09/25/2009
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //  crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //     Reports.Execute;                                         // autocomment 09/25/2009
>     crystalrun(rptname,crparms,crfilter,crsort);  // autofix     
> //  crystalrun(rptname,' ',' ',' ');  // autocomment
> //     While IsWindow(Reports.ReportWindowHandle) do            // autocomment 09/25/2009
>           Application.ProcessMessages;
0
Luiz
11/6/2010 9:03:31 AM
Reply:

Similar Artilces:

Crystal report 2008 in Delphi 2010
Hi there, I’m using Delphi 2010 & Crystal report 2008 vcl in our application. We have changed the version number in ucrpe32.pas file & modified the related files to work with version 2008. But we are getting the following error Error: 538 Error in File Employee.rpt: Parameter has invalid structure size. ‘PrintOptions.GetCopies<PEGetPrintOptions>' Could you please help me to resolve this problem. Thanks & regards, Mary > {quote:title=Mary James wrote:}{quote} > Hi there, > > I’m using Delphi 2010 & Crystal report 2008 vcl in our applicat...

Crystal Reports 2008 and Delphi 2007
Hello all. As a technical support representative for Crystal Reports and BOE SDKs, I often come across Delphi developers requesting assistance with Crystal Reports. With help from a couple of co-workers, I wrote an article on Crystal Reports SDKs and Delphi. The article "Crystal Reports Support for Delphi – History and Present" is available at this link: https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/70533725-7926-2c10-f3b5-dd99fcfcd482 Feedback from the Delphi developer community, is very much appreciated. Feedback can be either through this forum, th...

Delphi XE / Delphi 2010
Hello! I noticed that Embarcadero® Delphi® 2010 Version is not on the list of products on Embarcadero page. Or is it still possible to buy it? Will RAD Studio XE compile programs written in Delphi 2010 without problems.? Thanks. Am 13.09.2010 09:04, schrieb Petra Nemec: > Will RAD Studio XE compile programs written in Delphi 2010 without problems.? As always you will probably have to recreate the projects as the import is still a bit -- special. Christian Hello! Does anybody know if it is still possible to get a Delphi2010 trial version (if yes where)? ...

from delphi 6 to delphi 2010
Hi. It is possible, with component RX, dxforumlibrary, InfoPower3000Pro, StringAlignGrid. Accepts communication BDE. Thank by comments. excequiel arostica wrote: >Hi. > It is possible, with component RX, dxforumlibrary, >InfoPower3000Pro, StringAlignGrid. Accepts communication BDE. > >Thank by comments. Rx is dead and sources are taken over by jcl/jvcl. I dont know about the rest of the components and i have no experiences with bde over the last 9 years. excequiel arostica wrote: > Hi. > It is possible, with component RX, dxforumlibrary,...

Crystal reports and Delphi 2010 migrating a legacy app
Hello all, I'm migrating an app from Delphi 2005 to 2010. It contains some crystal reports which no longer supports delphi. I was having a look in the interface to the Crystal DLL and it seems that the interface to the crystall DLL is in only once class in CRDynamic.pas. I was thinking that all I should have to do is convert the strings back and forwards from 16 to 8 bit to call the dll and all should be good. Has anyone tried this? If so would you like to share code or have any advice on whether it works or not? tia, Dave > {quote:title=David Ninnes wrote:}{quote} > He...

Price of upgrade from Delphi 2010 Professional to Delphi 2010 Enterprise?
It's weird, but I could not find the answer on so simple question not in Embarcadero Shop, neither by the forum search. For example, the shop info about Enterprise upgrade says: The Upgrade product is available to registered owners of 2006-2009 versions, blah-blah... So, if I'm Delphi 2010 Professional user, I even not eligible for upgrade? I have to buy a new version of Enterprise??? But if I'm Delphi 2006 Professional user, I can upgrade. Please clarify this nonsense for me. Exact question is in the subject. Thanks! Hi Dmitri, > It's weird, but I could not...

Migrate Crystal Reports 8.5 to 2008 in Delphi via RDC... Help !!!
Hello, I use Delphi 2005 with Crystal 8.5 RDC and need upgrade to Delphi 2007 and Crystal 2008 (v12)... I´m looking for using Crystal Reports 2008 in Delphi 2007 via RDC ... its possible? (Or some other option?) Someone have some patch to it? thanks . > {quote:title=aeeeeeeee beeeeeeee wrote:}{quote} > Hello, > I use Delphi 2005 with Crystal 8.5 RDC and need upgrade to Delphi 2007 and Crystal 2008 (v12)... > > I´m looking for using Crystal Reports 2008 in Delphi 2007 via RDC ... its possible? > (Or some other option?) > > Someone have som...

Delphi 2010 w Delphi 2007
I have D2007 installed on my laptop (XP sp3 running on dual core Athlon). Can I install D2010 on this machine without it affecting D2007? Will D2010 affect D2007 in any way? Thanks, Randall Carpenter > {quote:title=Randall Carpenter wrote:}{quote} > I have D2007 installed on my laptop (XP sp3 running on dual core Athlon). > Can I install D2010 on this machine without it affecting D2007? Will D2010 > affect D2007 in any way? Won't hurt a thing. I have D7, RAD Studio 2007, RAD Studio 2009, and RAD Studio 2010 all on my desktop system and they coexist fine. Jus...

Migrating From Delphi 7 to Delphi 2010
We did not know which forum was the best for this question. We have been wanting to migrate from Delphi 7 to a later version for years but it appears to be a daunting task. We first looked at D2006 and that was a radical new world. We bought D2010 a couple of years ago and not done much with it because there are so many parts to our applications. We have done a few new applications in D2010 and they seem to work okay. D2010 has not been impressive, perhaps because of the strangeness compared to D7. Is is possible for us to do a phased sort of migration where we do a form at a time? ...

delphi 2006 code in delphi 2010
hello, is there any option to make delphi 2006 code work in delphi 2010? something like in java IDEs where you can define the code level you like to use? the problem is, that i made a project with 2006 and sent it to my customer. they got 2010 and it compiles fine, but it just doesn't work. it deals with en-/decryption of text, we assumed, that it has something to do with ansi vs. unicode strings... but we cant find the exact position where the error occurs. i am a bit dissapointed, because everywhere i read that the new IDE will always be downwards compatible and so on.. but in ...

Migrate from Delphi 2007 to Delphi 2010
Hi All, Thanks in advance for your help. Below is my query, Currently I am using Delphi 2007 and i want to migrate to Delphi 2010. 1. What all things i need to take care while doing this? 2. What all third party components will get impacted? 3. Any known issues in Delphi 2010 which might impact the cause? 4. Any changes in database operation required as i am using Oracle? Hope I have post this query under correct category. If not sorry for the trouble and could you please suggest me the correct category for this? Looking forward for your response. Have a great day. Th...

Using Delphi 7 and Delphi 2010
I had a project in Delphi 7. I worked on it in Delphi 2010. When I try to open the .dpr again in Delphi 7, the IDE toolbar widens across both monitors, and Delphi 7 locks up. It appears that Delphi 2010 modifies the .dpr in a way that makes Delphi 7 unable to open it again. All my forms & units appear to open fine in D7 after D2010, except for the warnings on the ExplicitHeight and ExplicitWidth properties being missing... I can easily recreate the .dpr, but is this expected behavior? Thanks. Tom Field wrote: > I had a project in Delphi 7. > > I worked o...

Delphi 2010 professional to Delphi XE3
Hello, Sorry for this is not right place to ask this question: I have Delphi 2010 professional version, I like to upgrade to Delphi XE3 Am eligible to upgrade or no not? I like answer from Delphi sales team. I couldn’t find email to ask them. Thanks Mike Thomas <> wrote in news:506459@forums.embarcadero.com: > Hello, > > Sorry for this is not right place to ask this question: > I have Delphi 2010 professional version, I like to upgrade to Delphi > XE3 Am eligible to upgrade or no not? I like answer from Delphi > sales team. I couldn’t find emai...

ANN: Delphi HTML Reports preview
Very simple to use - buid complex reports in 10 minutes. All you need to know - SQL, HTML, CSS. Use all power of HTML4 and CSS3 in any part of report. Features: Barcodes Multiline headers Groups Cross-tabs (any level) Transformations (cross-tab with range) Pictures (+from database) Master/Detail (any level) Supports all databases and db-libraries (writing adapter for any db-acess library takes only 5 minutes) Standalone reports - no need for delphi forms/datasets. 100% native Delhi code. All Delphi versions - from Delphi 6 to XE6 (VCL). 32/64 bit. Supports Unicode for...

Web resources about - Crystal 2008 from delphi 2010 - embarcadero.delphi.reporting

Crystal - Wikipedia, the free encyclopedia
This article is about crystalline solids. For the type of glass, see Lead glass . For other uses, see Crystal (disambiguation) . A crystal or ...

Wellington, the town in NSW where crystal meth costs less than beer
One NSW town is so overrun by the drug ice that it is known as &quot;little Antarctica&quot;, and police say children as young as 10 are experimenting. ...

Steve McClaren irate after Newcastle United's humiliating loss to Crystal Palace
Steve McClaren will haul his embattled Newcastle squad in for an extra training session on Sunday following their humiliating defeat at Crystal ...

Whoomp! There It Is Crystal Pepsi Is Coming Back
PepsiCo has made it official: Crystal Pepsi is coming back, but only for a limited time via a sweepstakes. The marketer hinted at a comeback ...

Crystal Security is a compact cloud-based malware detector
... with real-time protection and you’re generally weighing down your system with services, drivers, DLLs, background processes and more. Crystal ...

Former CIA Chief Morell: ‘Crystal Clear’ Obama’s ISIS Strategy Is Not Working
Former CIA Chief Morell: 'Crystal Clear' Obama's ISIS Strategy is Not Working

Statement from Premier League’s Crystal Palace Football Club
Crystal Palace Football Club is delighted to announce that it has today signed a deal with investors Josh Harris and David Blitzer. The deal ...

Crystal Lake man, 18, killed kitten over fight about bong: prosecutor
The 18-year-old man accused of killing a kitten with his bare hands had become enraged during an argument with his sister over a bong, a prosecutor ...

CEO: My 'crystal ball' is smoky
Here's what is keeping Corporate America on the sidelines, according to Waste Management CEO David Steiner.

Return Of Crystal Pepsi Confirmed, But You Can’t Actually Buy It
A few months ago, the word on the street was that Pepsi was bringing back a carbonated ’90s icon, Crystal Pepsi . The clear-caffeine-free beverage ...

Resources last updated: 12/21/2015 7:21:39 PM