More functions!

Comments

• AlexTZ

  October 2004 edited 11:45PM

  Please read the "developer manual".
• coolman_kk

  October 2004 edited 11:45PM

  Thank you.
  In source below I add Delphi IncYear() function and DateFormat for FormatDateTime(), but I have problem.
  When start report first time all is ok, but when start second time get a error: "Could not convert variant of type (Null) into type (Double)".
  
  Do u have any idea, how to fix this problem?
  Thank you.
  
  
  function TForm69.m_FDate: String;
  begin
  Result := 'dd' + DateSeparator + 'mm' + DateSeparator + 'yyyy';
  end;
  
  function TForm69.m_IncYear(dDate, nInc: Variant): Variant;
  begin
  Result := IncYear( dDate,nInc );
  end;
  
  function TForm69.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
  begin
  If MethodName = 'M_INCYEAR' Then
  Result := m_IncYear( Params[0],Params[1] );
  If MethodName = 'M_FDATE' Then
  Result := m_FDate;
  end;
  
  procedure TForm69.FormShow(Sender: TObject);
  begin
  Form69.frxReport1.AddFunction('function m_IncYear(dDate, nInc: Variant): Variant');
  Form69.frxReport1.AddFunction('function m_FDate : String');
  Form69.frxReport1.LoadFromFile( 'cit0002.fr3' );
  end;
  
  

  ---

  in report 'cit0002.fr3'
  
  begin
  memo72.text := 'Date: ' + FormatDateTime( m_FDate,m_IncYear(StrToDate(<frxDBDataset1."D_NOMER">),1) );
  end.
• coolman_kk

  October 2004 edited 11:45PM

  ????
• AlexTZ

  October 2004 edited 11:45PM

  Probably <frxDBDataset1."D_NOMER"> is Null in some cases, you should check it for Null.
• coolman_kk

  October 2004 edited 11:45PM

  Hello Alex,
  I check all date fields and all is filled!
  
  I use and other function that fill '0' before number, but this also work only first time on the second get a error!
  
  In 3.03 and 3.04 not work.
  Maybe I have to free functions and create it again, but how to do that? Any ideas?
  
  If u have sample where send u?
  Thanks.
• AlexTZ

  October 2004 edited 11:45PM

  Send me a demo, I will check it.
  tz@fast-report.com