Adresse mit Hauptpostcode, wo ist Adresse hinterlegt?

[RKR]

Hallo,

wir wollen das in unseren Formulare (z.B. im Angebot) das im Adressfeld auch der Hauptpostcode des ausgewählten Ansprechpartners des Kunden angedruckt wird. Bisher wird ja nur der Name des Anaprechpartners angedruckt, aber die ja ebenfalls wichtigen Informationen zum Ansprechpartner wie Abteilung, Hauptpostcode etc. werden nicht angedruckt, falls vorhanden...

Meine Frage wäre nun, wo ist denn die Adresse aus dem Formular ([also die q_rep15"Adresse"]) bzw. die q_rep15 überhaupt programmiert bzw. definiert oder "zusammengebaut"? Habe im Designer bzw. im Objectinspector bisher nichts finden können?

PS.: Laut einem Forumsbeitrag: "Die Adresse ist in einer eigenen Query, da diese zusammengebaut wird, so dass sie der DIN 5008 entspricht." Gehört laut DIN5008 also die Abteilung und Hauptpostcode nicht dazu?

[festus01]

Hallo RKR

Meine Frage wäre nun, wo ist denn die Adresse aus dem Formular ([also die q_rep15"Adresse"]) bzw. die q_rep15 überhaupt programmiert bzw. definiert oder "zusammengebaut"? Habe im Designer bzw. im Objectinspector bisher nichts finden können?

was steht denn im SQL des q_rep15
Select * from P_REP_ADRESSE() oder so ähnlich, dann wird die Adresse in der Procedure P_REP_ADRESSE zusammengebaut
und die wiederum befindet sich auf der Datenbank.

[Geri12]

Hallo RKR

Zur DIN kann ich nichts sagen, da sollen sich andere drüber den Kopf zerbrechen. Bei uns sollte auch das Feld HAUSPOSTCODE mit auf die Ausdrucke, da steht die Abt. u.ä. drinnen, was mitgedruckt werden soll.

Gelöst habe ich das (wie festus01 schon richtig schrieb) in der Prozedur P_REP_ADRESSE, indem ich dort zuerst mal zum Namen des Ansprechpartners1 zusätzlich die entspr. Ansprechpartner1-ID ausgelesen habe. Kurz vor'm Zusammenbau der Adresse lese ich dann weitere Daten aus dem Ansprechpartner1-Datensatz aus, den ich über besagte ID wiederfinde.
Ein Ausbau um weitere Felder bzw. weitere Ansprechpartner sollte nach diesem Schema problemlos machbar sein.

Habe den DDL-Code mal angehängt, speziell zu beachten sind "ansprabt" und "bansp_id" ...

Datenbank: AvERP2008-A.14

Code: Alles auswählen

SET TERM ^ ;

CREATE OR ALTER PROCEDURE P_REP_ADRESSE (
    id integer,
    art varchar(8))
returns (
    adresse varchar(1000),
    ausland varchar(1),
    euland varchar(1),
    zoll_iso_code varchar(3))
as
declare variable name varchar(100);
declare variable bez varchar(40);
declare variable abteilung varchar(40);
declare variable strasse varchar(100);
declare variable ansprechp varchar(130);
declare variable ansprabt varchar(40);
declare variable bansp_id integer;
declare variable ansprechp1 varchar(40);
declare variable ansprechp2 varchar(40);
declare variable ansprechp3 varchar(40);
declare variable postfach varchar(15);
declare variable plz varchar(15);
declare variable ort varchar(40);
declare variable cr varchar(3);
declare variable plzort varchar(56);
declare variable plz_id integer;
declare variable fplz_id integer;
declare variable badr_id integer;
declare variable blief_id_liefnr integer;
declare variable bkunde_id_kunr integer;
declare variable bplz_id_landplz integer;
declare variable bplz_id_landplz_p integer;
declare variable bland_id_landkennz integer;
declare variable bland_maskenkey varchar(3);
declare variable fbland_id_landkennz integer;
declare variable fbland_maskenkey varchar(3);
declare variable badr_id_firadr integer;
declare variable bfirma_plz integer;
declare variable bfirma_plz_p integer;
declare variable spra_id integer;
declare variable word_postfach varchar(30);
declare variable bmand_id integer;
declare variable sja varchar(1);
declare variable snein varchar(1);
declare variable bland_land varchar(40);
declare variable ust_id varchar(20);
declare variable gebiet_pflicht varchar(1);
declare variable bplzgebiet_maskenkey varchar(40);
BEGIN
  /* Letzter Stand 29.12.2008 15:22 Geri12 */

  /* Letzter Stand 16.05.2008 11:52:55 MG */
  /* Protokollieren, dass Aktion hier durchgelaufen ist */
  IF (GEN_ID(GEN_ENTWICKLUNG,0) = 0) THEN
    INSERT INTO A_WASMACHTIB (PROGRAMMTEIL) VALUES ('P_REP_ADRESSE');

  EXECUTE PROCEDURE P_BFIRMA_JANEIN RETURNING_VALUES (:sJA, :sNEIN);

  CR = F_CRLF();
  WORD_POSTFACH = 'Postfach';
  SPRA_ID = NULL;
  BMAND_ID = NULL;
  BANSP_ID = NULL;

  IF ((ART = 'BBES') OR (ART = 'BBES_L'))  THEN
  BEGIN
    SELECT BLIEF_ID_LIEFNR,
           ANSPRECHPARTNER,
           BANSP_ID,
           BMAND_ID
    FROM BBES
    WHERE ID = :ID
    INTO :BLIEF_ID_LIEFNR,
         :ANSPRECHP1,
         :BANSP_ID,
         :BMAND_ID;

    SELECT BADR_ID_ADRNR
    FROM BLIEF
    WHERE ID = :BLIEF_ID_LIEFNR
    INTO :BADR_ID;
  END

  IF (ART = 'BAUF') THEN
  BEGIN
    SELECT BKUNDE_ID_KUNR,
           ANSPRECHP,
           ANSPRECHP2,
           ANSPRECHP3,
           BANSP_ID,
           BMAND_ID
    FROM BAUF
    WHERE ID = :ID
    INTO :BKUNDE_ID_KUNR,
         :ANSPRECHP1,
         :ANSPRECHP2,
         :ANSPRECHP3,
         :BANSP_ID,
         :BMAND_ID;

    SELECT BADR_ID_ADRNR
    FROM BKUNDE
    WHERE ID = :BKUNDE_ID_KUNR
    INTO :BADR_ID;
  END

  IF (ART = 'BAUFLIEF') THEN
  BEGIN
    SELECT BADR_ID_LIEFADRNR,
           ANSPRECHP,
           BMAND_ID,
           BKUNDE_ID_KUNR
    FROM BAUF
    WHERE ID = :ID
    INTO :BADR_ID,
         :ANSPRECHP,
         :BMAND_ID,
         :BKUNDE_ID_KUNR;
  END
  
  IF (ART = 'BAUFRECH') THEN
  BEGIN
    SELECT BADR_ID_READRNR,
           ANSPRECHP,
           BMAND_ID,
           BKUNDE_ID_KUNR
    FROM BAUF
    WHERE ID = :ID
    INTO :BADR_ID,
         :ANSPRECHP,
         :BMAND_ID,
         :BKUNDE_ID_KUNR;
  END  

  IF (ART = 'BRLS') THEN
  BEGIN
    SELECT BADR_ID_LADRCODE,
           ANSPRECHP,
           ANSPRECHP2,
           ANSPRECHP3,
           BANSP_ID,
           BMAND_ID,
           BKUNDE_ID_LINKKEY
    FROM BRLS
    WHERE ID = :ID
    INTO :BADR_ID,
         :ANSPRECHP1,
         :ANSPRECHP2,
         :ANSPRECHP3,
         :BANSP_ID,
         :BMAND_ID,
         :BKUNDE_ID_KUNR;
  END

  
  IF (ART = 'PFRECH') THEN
  BEGIN
    SELECT FIRST 1
           B.BADR_ID,
           A.BMAND_ID,
           A.BKUNDE_ID_LINKKEY
    FROM BRLS A
    LEFT OUTER JOIN BRLSPFRECHADR B ON B.BRLS_ID_LINKKEY = A.ID
    WHERE A.ID = :ID
    INTO :BADR_ID,
         :BMAND_ID,
         :BKUNDE_ID_KUNR;
  END 

  IF (ART = 'BRRC') THEN
  BEGIN
    SELECT BADR_ID_RADRCODE,
           ANSPRECHP,
           ANSPRECHP2,
           ANSPRECHP3,
           BANSP_ID,
           BMAND_ID,
           BKUNDE_ID_LINKKEY
    FROM BRRC
    WHERE ID = :ID
    INTO :BADR_ID,
         :ANSPRECHP1,
         :ANSPRECHP2,
         :ANSPRECHP3,
         :BANSP_ID,
         :BMAND_ID,
         :BKUNDE_ID_KUNR;
  END

  IF ((ART = 'BLLCR') OR (ART = 'BLRC'))  THEN
  BEGIN
    SELECT BADR_ID_ADRNR
    FROM BLIEF
    WHERE ID = :ID
    INTO :BADR_ID;
  END

  IF (ART = 'BANFPO') THEN
  BEGIN
    SELECT B.BADR_ID_ADRNR
    FROM BANFPO A
    LEFT OUTER JOIN BLIEF B ON A.BLIEF_ID = B.ID
    WHERE A.ID = :ID
    INTO :BADR_ID;
  END

  IF (ART = 'BADRBRIE') THEN
  BEGIN
    SELECT BADR_ID_LINKKEY,
           BMAND_ID,
           ANSPRECHP
    FROM BADRBRIEF
    WHERE ID = :ID
    INTO :BADR_ID,
         :BMAND_ID,
         :ANSPRECHP1;
  END
  
  IF (ART = 'BANFLIEF') THEN
  BEGIN
    SELECT A.BMAND_ID,
           B.BADR_ID_ADRNR
    FROM BANFLIEF A
    LEFT OUTER JOIN BLIEF B ON A.BLIEF_ID_LIEFNR = B.ID
    WHERE A.ID = :ID
    INTO :BMAND_ID,
         :BADR_ID;
  END

  IF (ART = 'BREKLKU') THEN
  BEGIN
    SELECT A.BKUNDE_ID,
           A.KUANSPRECHP,
           A.BMAND_ID
    FROM BREKL A
    WHERE ID = :ID
    INTO :BKUNDE_ID_KUNR,
         :ANSPRECHP1,
         :BMAND_ID;

    SELECT BADR_ID_ADRNR
    FROM BKUNDE
    WHERE ID = :BKUNDE_ID_KUNR
    INTO :BADR_ID;
  END

  IF (ART = 'BREKLLI') THEN
  BEGIN
    SELECT A.BLIEF_ID,
           A.LIANSPRECHP,
           A.BMAND_ID
    FROM BREKL A
    WHERE ID = :ID
    INTO :BLIEF_ID_LIEFNR,
         :ANSPRECHP1,
         :BMAND_ID;

    SELECT BADR_ID_ADRNR
    FROM BLIEF
    WHERE ID = :BLIEF_ID_LIEFNR
    INTO :BADR_ID;
  END

  IF (ART = 'BKBTBES') THEN
    SELECT A.BMAND_ID,
           A.BADR_ID_KUNDE,
           A.ANSPRECHP
    FROM BKBTBES A
    WHERE ID = :ID
    INTO :BMAND_ID,
         :BADR_ID,
         :ANSPRECHP1;

  /* Adresse für Serienbrief */
  IF (ART = 'BSERBRIE') THEN
  BEGIN
    SELECT A.BADR_ID,
           B.BMAND_ID,
           A.ANSPRECHP
    FROM BSERBRIEFPO A
    LEFT OUTER JOIN BSERBRIEF B ON A.BSERBRIEF_ID_LINKKEY = B.ID
    WHERE A.ID = :ID
    INTO :BADR_ID,
         :BMAND_ID,
         :ANSPRECHP1;
  END

   /* Adresse für Geschenkeliste */
  IF (ART = 'BXMASPO') THEN
  BEGIN
    SELECT B.BADR_ID_ADRNR,
           A.ANSP
    FROM BXMASPO A
    LEFT OUTER JOIN BKUNDE B ON A.BKUNDE_ID = B.ID
    WHERE A.ID = :ID
    INTO :BADR_ID,
         :ANSPRECHP1;
  END

  /* GK: BADR neu als Abfrage */
  IF ((ART = 'BZAHL') OR (ART = 'BADR') OR (ART = 'BBESPADR')) THEN
    BADR_ID = :ID;

  /* Ansprechpartner zusammenbauen */
  ANSPRECHP = '';

  ANSPRECHP = ANSPRECHP1;

  -- Geri12, 29.12.2008
  if ((BANSP_ID IS NOT NULL) AND (BANSP_ID > 0)) then
  BEGIN
    --
    SELECT X.HAUSPOSTCODE
    FROM BANSP X
    WHERE X.ID = :BANSP_ID
    INTO :ANSPRABT;
    --
    if ((ANSPRABT IS NOT NULL) AND (ANSPRABT > '')) then
      ANSPRECHP = ANSPRECHP || CR || f_lrtrim(f_Left(:ANSPRABT,40));
    --
  END
  -- ENDE -> Geri12, 29.12.2008

  /* spezielle Kundenlösungen berücksichtigen */
  IF (NOT EXISTS(SELECT ID FROM BFIRMA WHERE SYNERPY_KUNR = 'HM01')) THEN
  BEGIN
    IF (ANSPRECHP <> '' AND ANSPRECHP IS NOT NULL) THEN
    BEGIN
      IF (ANSPRECHP2 <> '' AND ANSPRECHP2 IS NOT NULL) THEN
        ANSPRECHP = ANSPRECHP || CR || ANSPRECHP2;
    END
    ELSE
      ANSPRECHP = ANSPRECHP2;
  
    IF (ANSPRECHP <> '' AND ANSPRECHP IS NOT NULL) THEN
    BEGIN
      IF (ANSPRECHP3 <> '' AND ANSPRECHP3 IS NOT NULL) THEN
        ANSPRECHP = ANSPRECHP || CR || ANSPRECHP3;
    END
    ELSE
      ANSPRECHP = ANSPRECHP3;
  END

  /* Drucksprache ermitteln */
  SELECT WB.A_SPRACHE_ID
  FROM BADR WA
  LEFT OUTER JOIN BSPRA WB ON WA.BSPRA_ID_DRUSPRA = WB.ID
  WHERE WA.ID = :BADR_ID INTO :SPRA_ID;
  IF (SPRA_ID IS NULL) THEN
    IF (BMAND_ID IS NULL) THEN
      SELECT A_SPRACHE_ID
      FROM BFIRMA
      INTO :SPRA_ID;
    ELSE
      SELECT B.A_SPRACHE_ID
      FROM BMAND A
      LEFT OUTER JOIN BSPRA B ON A.BSPRA_ID = B.ID
      WHERE A.ID = :BMAND_ID
      INTO :SPRA_ID;

  IF (ART = 'BZAHL') THEN
    SELECT TRANS
    FROM P_SMREPORTLABEL(:SPRA_ID,
                         'LB_FINANZBUCHHALTUNG',
                         'z.H. FINANZBUCHHALTUNG')
    INTO :ANSPRECHP;

  SELECT TRANS
  FROM P_SMREPORTLABEL(:SPRA_ID,
                       'LB_POSTFACH',
                       'Postfach')
  INTO :WORD_POSTFACH;

  IF (WORD_POSTFACH IS NULL) THEN
    WORD_POSTFACH = 'Postfach';

  SELECT NAME,
         BEZ,
         ABTEILUNG,
         STRASSE,
         POSTFACH,
         BPLZ_ID_LANDPLZ,
         BPLZ_ID_LANDPLZ_P
  FROM BADR
  WHERE ID = :BADR_ID
  INTO :NAME,
       :BEZ,
       :ABTEILUNG,
       :STRASSE,
       :POSTFACH,
       :BPLZ_ID_LANDPLZ,
       :BPLZ_ID_LANDPLZ_P;

  /* Name, Vorname tauschen bei Name und Bez */
  SELECT ERG
  FROM P_REP_TAUSCHE_NAME(:NAME)
  INTO :NAME;

  SELECT ERG
  FROM P_REP_TAUSCHE_NAME(:BEZ)
  INTO :BEZ;

  /* Adresse zusammensetzen */
  ADRESSE = '';

  IF ((NAME IS NOT NULL) AND (NAME <> '')) THEN BEGIN
    IF ((ADRESSE IS NOT NULL) AND (ADRESSE <> '')) THEN
      ADRESSE = ADRESSE || CR;
    ADRESSE = ADRESSE || NAME;
  END

  IF ((BEZ IS NOT NULL) AND (BEZ <> '')) THEN
    ADRESSE = ADRESSE || CR || BEZ;

  IF ((ABTEILUNG IS NOT NULL) AND (ABTEILUNG <> '')) THEN
    ADRESSE = ADRESSE || CR || ABTEILUNG;

  /* Ansprechpartner (ist nur bei Kunden besetzt) */
  IF ((ANSPRECHP IS NOT NULL) AND (ANSPRECHP <> '')) THEN
    ADRESSE = ADRESSE || CR || ANSPRECHP;

  /* Bei Kundenlieferschein, Ersatzteilauftrag und Lieferantenlieferschein gilt
     Vorfahrtsregel Strasse vor Postfach, sonst umgekehrt */
  IF ((ART = 'BRLS') OR (ART = 'BAUFLIEF') OR (ART = 'BBES_L')) THEN
  BEGIN
    IF ((STRASSE IS NOT NULL) AND (STRASSE <> '')) THEN
    BEGIN
      ADRESSE = ADRESSE || CR || STRASSE;
      PLZ_ID = BPLZ_ID_LANDPLZ;
    END
    ELSE
    BEGIN
      IF (POSTFACH IS NOT NULL AND POSTFACH <> '') THEN
        ADRESSE = ADRESSE || CR || WORD_POSTFACH || ' ' || POSTFACH;

      IF (BPLZ_ID_LANDPLZ_P IS NOT NULL) THEN
        PLZ_ID = BPLZ_ID_LANDPLZ_P;
      ELSE
        PLZ_ID = BPLZ_ID_LANDPLZ;
    END
  END
  ELSE
  BEGIN
    IF ((POSTFACH IS NOT NULL) AND (POSTFACH <> '')) THEN
    BEGIN
      ADRESSE = ADRESSE || CR || WORD_POSTFACH || ' ' || POSTFACH;
      PLZ_ID = BPLZ_ID_LANDPLZ_P;
    END
    ELSE
    BEGIN
      IF ((STRASSE IS NOT NULL) AND (STRASSE <> '')) THEN
        ADRESSE = ADRESSE || CR || STRASSE;
      PLZ_ID = BPLZ_ID_LANDPLZ;
    END
  END

  /* Länderkennzeichen */
  SELECT BLAND_ID_LANDKENNZ
  FROM BPLZ
  WHERE ID = :PLZ_ID
  INTO :BLAND_ID_LANDKENNZ;

  /* Kundenländerkennzeichen */
  SELECT A.MASKENKEY,
         A.EG_LAND,
         F_ANSIUPPERCASE(A.LAND),
         A.ZOLL_ISO_CODE,
         A.GEBIET_PFLICHT
  FROM BLAND A
  WHERE A.ID = :BLAND_ID_LANDKENNZ
  INTO :BLAND_MASKENKEY,
       :EULAND,
       :BLAND_LAND,
       :ZOLL_ISO_CODE,
       :GEBIET_PFLICHT;

  /* Firmenländerkennzeichen ermitteln */
  IF (BMAND_ID IS NULL) THEN
    SELECT MIN(BADR_ID_FIRADR)
    FROM BFIRMA
    INTO :BADR_ID_FIRADR;
  ELSE
    SELECT MIN(BADR_ID)
    FROM BMAND
    WHERE ID = :BMAND_ID
    INTO :BADR_ID_FIRADR;

  SELECT BPLZ_ID_LANDPLZ,
         BPLZ_ID_LANDPLZ_P
  FROM BADR
  WHERE ID = :BADR_ID_FIRADR
  INTO :BFIRMA_PLZ,
       :BFIRMA_PLZ_P;

  /* Postleitzahl der Firma */
  IF (BFIRMA_PLZ IS NOT NULL) THEN
    FPLZ_ID = BFIRMA_PLZ;
  ELSE IF (BFIRMA_PLZ IS NOT NULL) THEN
    FPLZ_ID = BFIRMA_PLZ_P;

  SELECT BLAND_ID_LANDKENNZ
  FROM BPLZ
  WHERE ID = :FPLZ_ID
  INTO :FBLAND_ID_LANDKENNZ;

  /* Firmenländerkennzeichen */
  SELECT MASKENKEY
  FROM BLAND
  WHERE ID = :FBLAND_ID_LANDKENNZ
  INTO :FBLAND_MASKENKEY;

  /* Ist der Adressat im selben Land wie wir? */
  IF (FBLAND_ID_LANDKENNZ = BLAND_ID_LANDKENNZ) THEN
    AUSLAND = sNEIN;
  ELSE
    AUSLAND = sJA;

  /* PLZ und Ort über Join auf BPLZ holen */
  PLZ = null;
  ORT = null;

  SELECT A.PLZ,
         A.ORT,
         B.MASKENKEY
  FROM BPLZ A
  LEFT OUTER JOIN BPLZGEBIET B ON A.BPLZGEBIET_ID = B.ID
  WHERE A.ID = :PLZ_ID
  INTO :PLZ,
       :ORT,
       :BPLZGEBIET_MASKENKEY;

  /* Ortsname wird bei Auslandsadressen in Großbuchstaben angegeben */
  IF (BLAND_MASKENKEY <> FBLAND_MASKENKEY) THEN
    ORT = F_ANSIUPPERCASE(ORT);

  PLZORT = '';

  /* PLZ = 0 dann keine PLZ andrucken */
  IF (PLZ <> '' AND PLZ IS NOT NULL) THEN
    IF (F_LRTRIM(PLZ) = '0') THEN
      PLZORT = ORT;
  ELSE
    PLZORT = PLZ;

  IF ((PLZORT IS NOT NULL) AND (PLZORT <> '') AND (F_LRTRIM(PLZ) <> '0')) THEN
  BEGIN
    IF ((ORT IS NOT NULL) AND (ORT <> '')) THEN
      PLZORT = PLZORT || ' ' || ORT;
  END
  ELSE
    PLZORT = ORT;

  /* Wenn das Postleitzahlengebiet Pflicht ist, dann an den Ort anhängen */
  IF (GEBIET_PFLICHT = sJA AND BPLZGEBIET_MASKENKEY IS NOT NULL) THEN
    PLZORT = PLZORT || ' (' || BPLZGEBIET_MASKENKEY || ')';

  IF ((PLZORT IS NOT NULL) AND (PLZORT <> '')) THEN
    ADRESSE = ADRESSE || CR || PLZORT;

  IF (BLAND_MASKENKEY <> FBLAND_MASKENKEY) THEN
    ADRESSE = ADRESSE || CR || BLAND_LAND;

  /* Ggf. abweichende USt-ID anzeigen, wenn abweichend von Kundenstamm */
  IF ((ART = 'BAUFLIEF') OR (ART = 'BAUFRECH') OR (ART = 'BRRC')) THEN
  BEGIN
    UST_ID = NULL;
    SELECT A.UST_ID_NR
    FROM BKUNDEADR A
    LEFT OUTER JOIN BKUNDE B ON A.BKUNDE_ID_LINKKEY = B.ID
    WHERE A.BADR_ID = :BADR_ID AND
          A.BKUNDE_ID_LINKKEY = :BKUNDE_ID_KUNR AND
          B.ID = :BKUNDE_ID_KUNR AND
          F_EQUALSTRING(A.UST_ID_NR, B.UST_ID_NR) = 0
    INTO :UST_ID;

    IF (UST_ID IS NOT NULL) THEN
      ADRESSE = ADRESSE || CR || CR || UST_ID;
  END
    
  SUSPEND;
END^

SET TERM ; ^

DESCRIBE PROCEDURE P_REP_ADRESSE
'Adresse fuer Ausdruck holen';

GRANT INSERT ON A_WASMACHTIB TO PROCEDURE P_REP_ADRESSE;

GRANT EXECUTE ON PROCEDURE P_BFIRMA_JANEIN TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BBES TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BLIEF TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BAUF TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BKUNDE TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BRLS TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BRLSPFRECHADR TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BRRC TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BANFPO TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BADRBRIEF TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BANFLIEF TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BREKL TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BKBTBES TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BSERBRIEFPO TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BSERBRIEF TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BXMASPO TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BANSP TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BFIRMA TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BADR TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BSPRA TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BMAND TO PROCEDURE P_REP_ADRESSE;

GRANT EXECUTE ON PROCEDURE P_SMREPORTLABEL TO PROCEDURE P_REP_ADRESSE;

GRANT EXECUTE ON PROCEDURE P_REP_TAUSCHE_NAME TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BPLZ TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BLAND TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BPLZGEBIET TO PROCEDURE P_REP_ADRESSE;

GRANT SELECT ON BKUNDEADR TO PROCEDURE P_REP_ADRESSE;

GRANT EXECUTE ON PROCEDURE P_REP_ADRESSE TO PROCEDURE P_BAUF_BTOUR_PRUEFUNG;
GRANT EXECUTE ON PROCEDURE P_REP_ADRESSE TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE P_REP_ADRESSE TO SYSDBA;