Menu

#13 Mensagem de versão

open
nobody
5
2014-10-10
2010-05-14
Anonymous
No

Toda vez que eu chamo um formulário com o FortesReport, recebo a seguinte mensagem:

"Sistema não está de acordo com a versão do FortesReport"

Utilizo o Delphi 2010

Discussion

  • Lucas Schatz

    Lucas Schatz - 2010-05-18

    esta acontecendo para mim também
    com o delphi 2009 funciona corretamente, porém com o 2010 da essa mesma mensagem

     
  • Lucas Schatz

    Lucas Schatz - 2010-05-19

    ops, quis dizer 2007

     
  • Lucas Schatz

    Lucas Schatz - 2010-06-08

    opa!
    é o seguinte, eu simplesmente mudei o método checkVersion, ficou assim:
    procedure CheckVersion(Component: TComponent);
    begin
    if Assigned(Component) and (csDesigning in Component.ComponentState) then
    Exit;
    if (KnownCommercialVersion <> KnownCommercialVersion) or
    (KnownReleaseVersion <> KnownReleaseVersion) or
    (KnownCommentVersion <> KnownCommentVersion) then
    if not ReportServiceMode then
    ShowMessage(
    'Sistema não está de acordo com a versão do FortesReport.'#13 +
    #13 +
    'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
    end;

    original:

    procedure CheckVersion(Component: TComponent);
    begin
    if Assigned(Component) and (csDesigning in Component.ComponentState) then
    Exit;
    if (KnownCommercialVersion <> KnownCommercialVersion) or
    (KnownReleaseVersion <> ReleaseVersion) or
    (KnownCommentVersion <> CommentVersion) then
    if not ReportServiceMode then
    ShowMessage(
    'Sistema não está de acordo com a versão do FortesReport.'#13 +
    #13 +
    'Versão atual ' + IntToStr(CommercialVersion) + '.' + IntToStr(ReleaseVersion) + CommentVersion);
    end;

     
MongoDB Logo MongoDB