Hi Monks,
I need help with passing parameters to a crystal report. The Code below works fine and it even generates the Excel file from a existing Crystal Report. But the excel file does not have any data..

Any help is greatly appreciated.
Harish 

use Win32::ODBC; 
use Win32::OLE;         
use Win32::OLE::Variant;

#### Create the Crystal Report RunTime Instance ######################
+#######                               
$ex = Win32::OLE->new('CrystalRuntime.Application', sub {$_[0]->Quit;}
+) or die "Oops, cannot start Crystal";

$oReport = $ex->OpenReport('C:\CrystalParameters\Myreportone.rpt', 1) 
+;
$oReport->{'EnableParameterPrompting'} = 0 ;   
$oexportoptions = $oReport->{'ExportOptions'} ;    
                                                   
$cParameterFields = $oReport->{'ParameterFields'} ;          
                                                             
#########Add Default Values##################################
########################################################
$prms = $cParameterFields->Count; 
for ($x = 1 ; $x <= $prms ; $x++){                  
    $oParameterField = $cParameterFields->Item($x) ;   
     $tmp = $oParameterField->{'ParameterFieldName'} ; 
     $tmp = substr($tmp,1,length($tmp)-1) ;
                               
    if ($tmp  eq "tradedate2"){
      $tt = 0 ;                                      
      $tt = $oParameterField->{'IsCurrentValueSet'} ;
     if ($tt eq 0) {                                    
           $oParameterField->ClearCurrentValueAndRange ;  
           $oParameterField->AddCurrentValue("01/31/03") ;
    }
    }                    
                         
    if ($tmp  eq "mode"){
      $tt = 0 ;                                      
      $tt = $oParameterField->{'IsCurrentValueSet'} ;
     if ($tt eq 0) {                                    
           $oParameterField->ClearCurrentValueAndRange ;
           $oParameterField->AddCurrentValue("MONTH") ;
    }
    }                  
                       
} # end of the for loop                                     
############################################################          
+     
                                                                      
+     
#######set the Export Options to Export it to Excel file #############
+#####
$oexportoptions->{'FormatType'} = 36 ;    
$oexportoptions->{'DestinationType'} = 1 ;                    
$oexportoptions->{'DiskFileName'} = 'c:\mytestreportone.xls' ;
#######################################################
$oReport->Export(Variant(VT_BOOL, 0));

[download]

update (broquaint): added <code> tags

In reply to help with passing parameters to a Crystal report in PERL by harish

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.