TRANSFER INTERLIS1;

MODEL Register_DM01AV_UR_SZ_OW_NW_V24_01_V2

DOMAIN
  Status = (Rechtsgueltig, InMutation, Aufgehoben);
  AnredeT = (Keine,     !! z.B Schuetzenverein
             Herr,
             Frau,
             HerrFrau,  !! Herr und Frau
             Firma,
             weitere);

      Grundstuecksart = (
        Liegenschaft,
        SelbstRecht (
          Baurecht,
          Quellenrecht,
          Konzessionsrecht,
          weitere (
            Fischenzrecht,
            Baurecht_kant,
            weitere)), !! Keine Objekte in der Kategorie weitere,
                       !! nur fuer Erweiterungen
        Bergwerk);

      BBArt = (
        Gebaeude,
        befestigt (
          Strasse_Weg,
          Trottoir,
          Verkehrsinsel,
          Bahn,
          Flugplatz,
          Wasserbecken,
          uebrige_befestigte),
        humusiert (
          Acker_Wiese_Weide,
          Intensivkultur (
            Reben,
            uebrige_Intensivkultur),
          Gartenanlage,
          Hoch_Flachmoor,
          uebrige_humusierte),
        Gewaesser (
          stehendes,
          fliessendes,
          Schilfguertel),
        bestockt (
          geschlossener_Wald,
          Wytweide (  !! Wytweide = bestockte Weide
            Wytweide_dicht,
            Wytweide_offen),
          uebrige_bestockte),
        vegetationslos (
          Fels,
          Gletscher_Firn,
          Geroell_Sand,
          Abbau_Deponie,
          uebrige_vegetationslose));



  ObjArt  = (
        Mauer,
        unterirdisches_Gebaeude,
        uebriger_Gebaeudeteil,
        eingedoltes_oeffentliches_Gewaesser,
        wichtige_Treppe,
        Tunnel_Unterfuehrung_Galerie,
        Bruecke_Passerelle,
        Bahnsteig,
        Brunnen,
        Reservoir,
        Pfeiler,
        Unterstand,
        Silo_Turm_Gasometer,
        Hochkamin,
        Denkmal,
        Mast_Antenne,
        Aussichtsturm,
        Uferverbauung,
        Schwelle,
        Lawinenverbauung,
        massiver_Sockel,
        Ruine_archaeologisches_Objekt,
        Landungssteg,
        einzelner_Fels,
        schmale_bestockte_Flaeche,
        Rinnsal,
        schmaler_Weg,
        Hochspannungsfreileitung,
        Druckleitung,
        Bahngeleise,
        Luftseilbahn,
        Gondelbahn_Sesselbahn,
        Materialseilbahn,
        Skilift,
        Faehre,
        Grotte_Hoehleneingang,
        Achse (
          Achse,
          Schusslinie,
          Rutschbahn_Rodelbahn),
        wichtiger_Einzelbaum,
        Bildstock_Kruzifix,
        Quelle,
        Bezugspunkt,
        weitere (
          Jauchegrube_Mistlege,
          weitere));                  !! fuer kantonale oder kommunale Mehran-
                                      !! forderungen weiter zu unterteilen

  Eigentumsart = (Alleineigentum,                 !! 0
                  Miteigentum,                    !! 1
                  Gesamteigentum(
                    GE,                           !! 2 Gesamteigentum allg.
                    EinfacheGesellschaft,         !! 3
                    Erbengemeinschaft,            !! 4
                    Guetergemeinschaft,           !! 5
                    Errungenschaftsgemeinschaft,  !! 6
                    Kommanditgesellschaft,        !! 7
                    Konkursglaeubigergemeinschaft,!! 8
                    Kollektivgesellschaft,        !! 9
                    Stockwerkeigentum),           !! 10
                  Herrenlos,                      !! 11 Besitzer unbekannt
                  SubjektivDinglich);             !! 12

  Personart = (
        Gemeinschaft(
          EinfacheGesellschaft                 !! 0
          ,KollektiveGesellschaft              !! 1
          ,Kommanditgesellschaft               !! 2
          ,Guetergemeinschaft                  !! 3
          ,Erbengemeinschaft                   !! 4
          ,weitere                             !! 5
        )
        ,natuerlichePerson                     !! 6
        ,juristischePerson(
          Aktiengesellschaft                   !! 7
          ,Kommanditaktiengesellschaft         !! 8
          ,GmbH                                !! 9
          ,Genossenschaft                      !! 10
          ,Verein                              !! 11
          ,Stiftung                            !! 12
          ,weitere                             !! 13
        )
      );

    GrudaNr4 = [1..9999];
    GrudaNr5 = [1..99999];

    Qualitaetsstandard = (
      AV93,
      PV74,
      PN,
      PEP, !! Provisorischen Ersatzprodukte
      weitere); !! Keine Objekte in der Kategorie weitere, nur fuer Erweiterungen


  Bemerkungsart = (OeffentlGewaesser,
!!                   EingedoltesOeffentlGewaesser,
!!                   UnterGebaeude,   !! Unterirdisches Gebaeude Nr.
!!                   Unterstand,      !! Unterstand Ueberdachung Nr.
!!                   Reservoir,
!!                   Silo_Turm_Gasometer,
!!                   Hochkamin,
!!                   Aussichtsturm,
!!                   LFP1,            !! Lagefixpunkt 1 Nr.
!!                   LFP2,            !! Lagefixpunkt 2 Nr.
!!                   SDR,             !! Seblstaendiges und dauerndes Recht
!!                   SubDingl,        !! Subjektiv dingliches Miteigentum
                   weitere);

  TOPIC Register =

    TABLE Mutation =               !! Liegenschaften.LiegenschaftNachf
      NBIdent: OPTIONAL TEXT*12;
      Mutationsnummer: TEXT*12;
      GueltigerEintrag: OPTIONAL DATE; !! Techn. Bearbeitung
      Vollzugsdatum: OPTIONAL DATE;
    IDENT
      Mutationsnummer,NBIdent;
    END Mutation;

    TABLE Grundstueck =                  !! Liegenschaften.Grundstueck
      MutRef: -> Mutation; !! Beziehung 1-mc
      NichtLSDatum: OPTIONAL DATE;       !! Datum der verursachenden Mutation in BB/EO/Anmerkungen
      NichtLSMutNr: OPTIONAL TEXT*12;   !! Mutationsnummer der verursachenden Mutation in BB/EO/Anmerkungen
      NBIdent: OPTIONAL TEXT*12;
      Nummer: TEXT*12;
      NummerZusatz: OPTIONAL TEXT*12;             !! Kleine Schnittstelle
      Amt: OPTIONAL TEXT*3;                     !! Kleine Schnittstelle
      SubKreis: OPTIONAL TEXT*15;                 !! Kleine Schnittstelle
      Los: OPTIONAL TEXT*15;                      !! Kleine Schnittstelle
      Art: Grundstuecksart;
      Gueltigkeit: Status;
      Flaechenmass: OPTIONAL DIM2 1 999999999;
      TechnFlaeche: OPTIONAL DIM2 0.0000 999999999.9999;
      DatumLetzteAenderung: OPTIONAL DATE;   !! Datum wird bei Bearbeitung im GEOS Pro automatisch gesetzt.
      Sachbearbeiter: OPTIONAL TEXT*30;      !! Wird aus der Benutzerverwaltung übernommen
      EGRIS_EGRID: OPTIONAL TEXT*14;     !! Schweizweit eindeutige ID
      Qualitaet: OPTIONAL Qualitaetsstandard;
    IDENT
      Nummer,SubKreis,Los,MutRef,NichtLSDatum;
    END Grundstueck;

    TABLE Plan =                                !! Planeinteilung.Plan
      NBIdent: OPTIONAL TEXT*12;
      Nummer: TEXT*12;
    IDENT
      Nummer,NBIdent;
    END Plan;

    TABLE Flurname =                           !! Nomenklatur.Flurname
      Name: TEXT*40;
    NO IDENT
    END Flurname;

    TABLE Eigentuemer =
      Nummer: TEXT*8;
      Name: TEXT*200;
      Vorname: OPTIONAL TEXT*30;
      Strasse: OPTIONAL TEXT*60;
      Hausnummer: OPTIONAL TEXT*12;
      GebaeudeBezeichnung : OPTIONAL TEXT*60;    !! Die Objektbeschreibung, z.B. Hotel Anker.
      PLZ: TEXT*10;
      Ortschaft: TEXT*40;
      Land: OPTIONAL TEXT*20;           !! Default CH
      Geburtsdatum: OPTIONAL DATE;
      ZusatzinformationEmpfaenger : OPTIONAL TEXT*40; !! Zusätzliche Empfängerinformation, c/o
      PostDienstleistung : OPTIONAL TEXT*30;     !! Postlagernd oder das Postfach des Empfängers, z.B. "Postlagernd" oder "Postfach 33" oder leer wenn der Empfänger kein Postfach hat.
      Geschlecht : OPTIONAL (
        maennlich,
        weiblich);                      !! Das Geschlecht einer natürlichen Person (z.B. weiblich).
      Sitz : OPTIONAL TEXT*40;                   !! Der Sitz einer juristischen Person.
      Buergerort: OPTIONAL TEXT*30;
      AHVNr: OPTIONAL TEXT*14;
      Art: OPTIONAL Personart;
      EPID: OPTIONAL TEXT*20;           !! Kleine Schnittstelle
      UIP: OPTIONAL TEXT*20;            !! Kleine Schnittstelle
    IDENT
      Nummer;
    END Eigentuemer;

    TABLE GemeinschaftTeilhaber =
      Gemeinschaft: -> Eigentuemer;
      Teilhaber: -> Eigentuemer;
    NO IDENT
    END GemeinschaftTeilhaber;

    TABLE Adresse =
      Nummer: TEXT*8;
      Anrede: OPTIONAL AnredeT;  !! Default Keine
      Name: TEXT*200;
      Vorname: OPTIONAL TEXT*30;
      Strasse: OPTIONAL TEXT*60;
      Polizeinummer: OPTIONAL TEXT*12;
      Land: OPTIONAL TEXT*20;     !! Default CH
      PLZ: TEXT*10;
      Ortschaft: TEXT*40;
    NO IDENT
    END Adresse;

     TABLE Kulturarten =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      Art: BBArt;
      Flaechenmass: OPTIONAL DIM2 0 999999999;
      SortNr: [0..9999];  !! Legt die Reihenfolge innerhalb des
                          !! Grundstueckes fest
      Qualitaet: OPTIONAL Qualitaetsstandard;
    IDENT
      GrundstueckRef, SortNr;
    END Kulturarten;

    TABLE Gebaeudenummer =            !! Bodenbedeckung.Gebaeudenummer
      Objekt: -> Kulturarten; !! Beziehung 1-mc
      Nummer: TEXT*12;
      GWR_EGID: OPTIONAL [1..999999999];
      IstProjektiert: OPTIONAL (ja,nein);
      GebTeil: OPTIONAL (vollstaendig, GroessterTeil,NichtGTeil);
      GesFlaechenmass: OPTIONAL DIM2 1 999999999;
    NO IDENT
    END Gebaeudenummer;

    TABLE Lokalisation =            !! Gebaeudeadressen.Lokalisation
      Text: TEXT*60;
      KurzText: OPTIONAL TEXT*24;
    NO IDENT
    END Lokalisation;

    TABLE Gebaeudeadresse =            !! Gebaeudeadressen.Gebaeudeeingang
      Objekt: -> Gebaeudenummer; !! Beziehung 1-mc
      Lokalisation: -> Lokalisation;   !! Beziehung 1-mc
      Hausnummer: TEXT*12;
      GWR_EGID: OPTIONAL [1..999999999];
      GWR_EDID: OPTIONAL [0..99];
      LageY: OPTIONAL [480000.000..840000.000];
      LageX: OPTIONAL [70000.000..310000.000];
    NO IDENT
    END Gebaeudeadresse;

    TABLE Objektname =                    !! Bodenbedeckung.Objektname
      Objekt: -> Kulturarten; !! Beziehung 1-mc
      Name: TEXT*30;
    NO IDENT
    END Objektname;

    TABLE Anmerkung =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      Art: Bemerkungsart;
      AndereArt: TEXT*20;
      Bemerkung: TEXT*20;
      Nummer: TEXT*32;
      SortNr: [0..9999];  !! Legt die Reihenfolge innerhalb des
                          !! Grundstueckes fest
    IDENT
      GrundstueckRef, SortNr;
    END Anmerkung;

    TABLE LFP =                                     !! Fixpunkte.LFP
      Nummer: TEXT*12;
    IDENT
      Nummer;
    END LFP;

    TABLE Einzelobjekt =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      Art: ObjArt;
      Flaechenmass: OPTIONAL DIM2 0 999999999;
      SortNr: [0..9999];  !! Legt die Reihenfolge innerhalb des
                          !! Grundstueckes fest
      Qualitaet: Qualitaetsstandard;
    NO IDENT
    END Einzelobjekt;

    TABLE Objektnummer =                !! Einzelobjekte.Objektnummer
      Objekt: -> Einzelobjekt; !! Beziehung 1-mc
      Nummer: TEXT*12;
      GWR_EGID: OPTIONAL [1..999999999];
      GebTeil: OPTIONAL (vollstaendig, GroessterTeil,NichtGTeil);
      GesFlaechenmass: OPTIONAL DIM2 1 999999999;
    NO IDENT
    END Objektnummer;

    TABLE EOGebaeudeadresse =            !! Gebaeudeadressen.Gebaeudeeingang
      Objekt: -> Objektnummer; !! Beziehung 1-mc
      Lokalisation: -> Lokalisation;   !! Beziehung 1-mc
      Hausnummer: TEXT*12;
      GWR_EGID: OPTIONAL [1..999999999];
      GWR_EDID: OPTIONAL [0..99];
      LageY: OPTIONAL [480000.000..840000.000];
      LageX: OPTIONAL [70000.000..310000.000];
      IstProjektiert: OPTIONAL (ja,nein);
    NO IDENT
    END EOGebaeudeadresse;

    TABLE EOObjektname =                  !! Einzelobjekte.Objektname
      Objekt: -> Einzelobjekt; !! Beziehung 1-mc
      Name: TEXT*30;
    NO IDENT
    END EOObjektname;

    TABLE Bemerkungen =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      Beschrieb: TEXT*80;
      SortNr: [0..9999];  !! Legt die Reihenfolge innerhalb des
                          !! Grundstueckes fest
    IDENT
      GrundstueckRef, SortNr;
    END Bemerkungen;

!! Verknuepfungen

    TABLE GS_zu_Plan =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      PlanRef: -> Plan; !! Beziehung 1-mc
    NO IDENT
    END GS_zu_Plan;

    TABLE GS_zu_Flurname =
      GrundstueckRef: -> Grundstueck; !! Beziehung 1-mc
      FlurnameRef: -> Flurname; !! Beziehung 1-mc
    NO IDENT
    END GS_zu_Flurname;

    TABLE GS_zu_Strasse =
      GrundstueckRef: -> Grundstueck; !! Beziehung 1-mc
      StrasseRef: -> Lokalisation; !! Beziehung 1-mc
      Nummer: OPTIONAL TEXT*8;
    NO IDENT
    END GS_zu_Strasse;

    TABLE Anteile =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      !! EigentuemerRef und BerechtigtGSRef nie gleichzeitig vorhanden
      EigentuemerRef: OPTIONAL -> Eigentuemer;  !! Beziehung 1-mc
      BerechtigtGSRef: OPTIONAL -> Grundstueck; !! Beziehung 1-mc
                                                !! Falls subj. Dingl.
      AdresseRef: OPTIONAL -> Adresse;          !! Zustelladresse
      Art: Eigentumsart;
      Zaehler: OPTIONAL [1..100000];
      Nenner: OPTIONAL [1..100000];
      DatumHandAenderung: OPTIONAL DATE;
      SortNr: [0..9999];     !! Legt die Reihenfolge innerhalb des
                             !! Grundstueckes fest
    IDENT
      GrundstueckRef, SortNr;
    END Anteile;

    TABLE SubAnteile =
      StammAnteilRef: -> Anteile;  !! Beziehung 1-mc
      SubAnteilRef: -> Anteile; !! Beziehung 1-c
    IDENT
      SubAnteilRef;
    END SubAnteile;

     TABLE Rechte =
      BeguenstigtRef: -> Grundstueck;  !! Beziehung 1-mc
      BelastetRef: -> Grundstueck;     !! Beziehung 1-mc
    NO IDENT
    END Rechte;

     TABLE Vorgaenger =
      VorgaengerRef: -> Grundstueck;  !! Beziehung 1-mc
      NachfolgerRef: -> Grundstueck;  !! Beziehung 1-mc
    NO IDENT
    END Vorgaenger;

    TABLE GS_zu_LFP =
      GrundstueckRef: -> Grundstueck;  !! Beziehung 1-mc
      LFPRef: -> LFP;                  !! Beziehung 1-mc
    NO IDENT
    END GS_zu_LFP;

  END Register.

  TOPIC Systemdaten =

    TABLE Kultursumme =
       ArtText: TEXT*40;
    NO IDENT
    END Kultursumme;

    TABLE KulturartTexte =
       KultursummeRef: ->Kultursumme;
       Art: BBArt;
       ArtText: TEXT*40;
       Zusammenfassen: (Nein,Ja);
       NurSumme: (Nein,Ja);
       AuchSumme: (Nein,Ja);
       Variante: [0..7];
       Text_Anmerkung: OPTIONAL TEXT*60;
    IDENT
      Art,Variante;
    END KulturartTexte;

    TABLE EinzelobjektartTexte =
       Art: ObjArt;
       ArtText: TEXT*40;
       Zusammenfassen: (Nein,Ja);
       Variante: [0..7];
       Text_Anmerkung: OPTIONAL TEXT*60;
    IDENT
      Art,Variante;
    END EinzelobjektartTexte;

  END Systemdaten.

END Register_DM01AV_UR_SZ_OW_NW_V24_01_V2.

!! Spezialitaeten:
!! Die Reihenfolge auf dem Ausdruck wird bei den folgenden Zuordnungen
!! mitgegeben:
!! Kulturarten, Eigentum, Bemerkungen

!! Eigentumsanteile können ihrerseits unterteilt sein.

!! Fuer den Transfer der Bemerkungen gibt es zwei Moeglichkeiten:
!! - Freier Text (Anmerkungen)
!! - Die Bemerkungen können aus den obigen Daten leicht erzeugt werden.
!!   Dazu sind die folgenden TABLE's notwendig:
!!     Rechte          Selbstaendigs und dauerndes Recht
!!     Anteil          Subjektiv dingliches Miteigentum an Kat. Nr.
!!     Einzelobjekte, Objektnummer, EOObjektname
!!                     Durchfluss eingedolten oeffentliches Gewaesser Nr.
!!     Einzelobjekte, EOObjektname
!!                     unterirdisches Gebaeude Nr.
!!                     Unterstand Ueberdachung Nr.
!!     Kulturarten, Objektname
!!                     Durchfluss öffentliches Gewaesser Nr.
!!     LFP, GS_zu_LFP  Lagefixpunkt Nr.


FORMAT FIX WITH LINESIZE = 75, TIDSIZE = 10;

CODE
BLANK = DEFAULT, UNDEFINED = DEFAULT, CONTINUE = DEFAULT;
TID = I32;
END.