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

[uligerhardt]

Dann ist aller Wahrscheinlichkeit nach dein Aufruf irgendwie verkehrt. Zeig den doch mal.

[franktron]

Nein wenn ich die RA_INIT aus dem Interface Raus nehme geht es sofort.

Und es ist der Komplette Code mehr ist da noch nicht.

[hoika]

Hallo,

was passiert, wenn du die Funktion in RA_INIT2 umbenennst ?

Ausserdem kann das nicht der gesamte Code sein (es fehlt TSQL_kas_server),
vielleicht ist die Funktion dort auch noch mal drin ?


Heiko

[franktron]

Zitat von hoika:

Hallo,

was passiert, wenn du die Funktion in RA_INIT2 umbenennst ?

Ausserdem kann das nicht der gesamte Code sein (es fehlt TSQL_kas_server),
vielleicht ist die Funktion dort auch noch mal drin ?


Heiko

Nein ist Sie nicht wenn ich die RA_INIT aus dem Interface nehme oder das Interface aus der Klasse gehts und der Compiler ist lieb.

und Umbenennen bringt nix, auch die Parameter weniger bringt nix es its auch immer diese Funktion vorher wahrs eine Procedure.

[hoika]

Hallo,

Zitat:

es its auch immer diese Funktion vorher wahrs eine Procedure

noch ne alte DCU im Suchpfad ?





Heiko

[franktron]

Ne hat auch nix gebracht leider

[generic]

gibt es die Methode vielleicht im andern Interface?

IKAS_XML_RA
IKAS_XML_RA_EXT

[franktron]

Nein das andere ist leer und umrennen hilft ja auch nicht.

Er sagt ja auch das es nicht da ist ist es aber, ich habe auch schon das andere Interface raus genommen.