Aufruf: Adresse ermitteln

STRING = GetAdr(tcIde10 AS STRING , tcWhat AS STRING , tlold AS BOOLEAN)

Rückgabe: Adresse ermitteln

Rückgabe der Funktion: STRING

Code: Adresse ermitteln

PROCEDURE GetAdr (tcIde10 AS STRING,tcWhat AS STRING,tlold AS Boolean) AS STRING
	*/ Gibt die gewünschte Adresse zurück
	RETURN My.DATA.AddressStrings.GetAdr(m.tcIde10,m.tcWhat,m.tlold)
	* --------------------------------------------------------------------------------------------------
	* GETADR gibt die gewünschte Adresse zurück
	*
	* TCWHAT: "KU,RG,LS,AS,PF,STR,1,2,3,TFM,TFMF"
	*
	* ==================================================================================================
	*!*	Reporting: GETADR() – Ausgabe von Adressdaten (NUR für die Vorgänge(Angebote, Aufträge etc.)) ...
	*!*	GETADR() – Ausgabe von Adressdaten (NUR für die Vorgänge(Angebote, Aufträge etc.))
	*!*	Aufbau: GETADR(kopf.ide10,Variable,Schalter)
	*!*	      Variable: Welche Adresse soll ausgegeben werden? Leer,RG,LS,AS, (PF,STR,1,2)
	*!*	             Leer    = Wahlweise nach Vorgangsart
	*!*	             KU      = Kundenadresse(“KU“)
	*!*	             RG      = Rechnungsadresse (“RG“)
	*!*	             LS      = Lieferadresse (“LS“)
	*!*	             AS      = Ansprechpartner (”AS“)
	*!*	             PF      = Postfach statt Straße (wenn Postfach gefüllt)
	*!*	             STR      = Straße statt Postfach (wenn Straße gefüllt)
	*!*	             OK      = Ort in Groß-/Kleinschreibung erhalten, wenn so hinterlegt
	*!*	             LK      = Land in Groß-/Kleinschreibung ausgeben
	*!*	1      = nach Vorgang RG, LS, AS, Kunde
	*!*	2      = nach Vorgang RG, LS, Kunde
	*!*	3      = Projektadresse verwenden
	*!*	4      = Postleitzahl mit Länderkürzel
	*!*	5      = Keine Ausgabe des Landes
	*!*	      Schalter: .F./.T. = neue Postnorm/altes Adressformat

	*!*	Einige Beispiele:
	*!*	1. Kundenadresse nach neuer Postnorm (d.h. ohne Leerzeile zwischen Straße und Ort)
	*!*	      GETADR(kopf.ide10,““,.F.)
	*!*	2. Lieferadresse nach neuer Postnorm
	*!*	      GETADR(kopf.ide10,“LS“,.F.)
	*!*	3. Adresse des Ansprechpartners, mit Postfach, im alten Adressformat (d.h. mit Leerzeile zwischen Straße und Ort)
	*!*	      GETADR(kopf.ide10,“AS,PF“,.T.)
	*!*	4. Wenn die Lieferadresse gefüllt ist, drucke die Lieferadresse, sonst die Kundenadresse
	*!*	IIF(!EMPTY(GETADR(kopf.ide10,“LS“)), GETADR(kopf.ide10,“LS“), GETADR(kopf.ide10,““))
	*!*	5. Lieferadresse mit Länderkürzel
	*!*	      GETADR(kopf.ide10,“LS4“,.F.)
	*!*	6. Lieferadresse mit Länderkürzel und Land in Groß-/Kleinschreibung
	*!*	      GETADR(kopf.ide10,“LS4LK“,.F.)
	** Achtung: es gibt auch neuere Funktionen:
	**		my.data.AddressStrings.GetAddressFromMaster(ID,WHAT,OLD)		&& m.master muss vorhanden sein! oder Alias selectiert
	**		my.data.AddressStrings.GetAddress(TAB,ID,WHAT,OPTIONS)
ENDPROC