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?
Adresse mit Hauptpostcode, wo ist Adresse hinterlegt?
Moderator: SYNERPY
-
- Beiträge: 88
- Registriert: Do Mär 15, 2007 11:07 am
- Wohnort: Hochheim am Main (Hessen)
Adresse mit Hauptpostcode, wo ist Adresse hinterlegt?
MfG > RKR
GDB-Version: AvERP2009-A
Software-Version: 3.6.0.15
GDB-Version: AvERP2009-A
Software-Version: 3.6.0.15
-
- Beiträge: 515
- Registriert: Di Okt 19, 2004 5:45 am
- Wohnort: Diepholz
Re: Adresse mit Hauptpostcode, wo ist Adresse hinterlegt?
Hallo RKR
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.
was steht denn im SQL des q_rep15RKR hat geschrieben: 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?
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.
Zuletzt geändert von festus01 am Fr Jan 23, 2009 7:56 pm, insgesamt 1-mal geändert.
MfG
KDP
----------------------------------------------------------
Durch den Computer spart der Mensch so viel Zeit,
dass er diese am Computer verbringen kann.
KDP
----------------------------------------------------------
Durch den Computer spart der Mensch so viel Zeit,
dass er diese am Computer verbringen kann.
-
- Beiträge: 589
- Registriert: Mi Apr 16, 2008 7:51 am
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
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;
Gruß
Geri12
Software-Version: V4.2.5.2
FDB-Version: AvERP2008-A.14
Geri12
Software-Version: V4.2.5.2
FDB-Version: AvERP2008-A.14