E2003 Undeklarierter Bezeichner:

[franktron]

Ich kriege immer die Meldung [DCC Fehler] m_ra.pas(10): E2003 Undeklarierter Bezeichner: 'RA_INIT'

obwohl die Function da ist.

Interface

Delphi-Quellcode:

unit interface_ra_ext;

interface

Uses Classes, DB, VirtualTable;

Type
  IKAS_XML_RA_EXT = interface ['{AC828166-4971-4DBD-B4DC-C294CE38B0F2}']
    Function RA_INIT(Const Jahr,R_Status,KdNr,Konto,Kostenstelle : Longint;Const Belegdatum : TDate;
       Const ET : TStream=Nil;Const ST : TStream=Nil;Const Netto : Boolean=True;
      Const RE : Boolean=True;Const Rabatt : Double=0;Const Ansprech : String='';
      Const BestNr : String='';Const EigKdNr : String='';
      Const UZ : String='';Const LZ : String='') : Longint;

    Procedure RA_UPDATE_AU(Const ID : Longint;Const AuNr : String='';
       Const AuNri : Longint=0;Const AuJahr : Longint=0);
      Procedure RA_FINAL(Const ID : Longint;Const Temp : Boolean=False;
       Const Vorgang : String='';Const AText : String='');

      Procedure RA_AddPos(Const ID : Longint;Const Pos,Pos2,Typ : Longint;
       Const Anzahl,AEAnz,Preis,Rabatt,Mwst : Double;
       Const Memo : TStream;Const Bez1,Bez2 : String;Const Einheit : Longint;
      Const Konto : Longint=0;Const ArtNr : Longint=0;Const ArtNrT : String='';
      Const BestNr : String='';Const EK : Double=0;Const htz : String='';Const prgnr : String='';
      Const FemiID : String='';Const SollStd : Double=0;Const SNNr : TStream=Nil);
  end;


implementation

end.

Klasse

Delphi-Quellcode:

TKAS_Server_RA = class(TSQL_kas_server,IKAS_XML_RA,IKAS_XML_RA_EXT)
  Private

  public
    Procedure DecodeXML; override;

    Procedure UpdTable; override;
    Procedure StartDay; override;
    Procedure StartMonth; override;
    Procedure StartYear; override;

    Function RA_INIT(Const Jahr,R_Status,KdNr,Konto,Kostenstelle : Longint;Const Belegdatum : TDate;
       Const ET : TStream=Nil;Const ST : TStream=Nil;Const Netto : Boolean=True;
      Const RE : Boolean=True;Const Rabatt : Double=0;Const Ansprech : String='';
      Const BestNr : String='';Const EigKdNr : String='';
      Const UZ : String='';Const LZ : String='') : Longint;

    Procedure RA_UPDATE_AU(Const ID : Longint;Const AuNr : String='';
       Const AuNri : Longint=0;Const AuJahr : Longint=0);
      Procedure RA_FINAL(Const ID : Longint;Const Temp : Boolean=False;
       Const Vorgang : String='';Const AText : String='');

      Procedure RA_AddPos(Const ID : Longint;Const Pos,Pos2,Typ : Longint;
       Const Anzahl,AEAnz,Preis,Rabatt,Mwst : Double;
       Const Memo : TStream;Const Bez1,Bez2 : String;Const Einheit : Longint;
      Const Konto : Longint=0;Const ArtNr : Longint=0;Const ArtNrT : String='';
      Const BestNr : String='';Const EK : Double=0;Const htz : String='';Const prgnr : String='';
      Const FemiID : String='';Const SollStd : Double=0;Const SNNr : TStream=Nil);
  end;

was ist das für ein Bug oder habe ich was falsch gemacht