Mehrzahlungen in Sponsoring-Zahlungen umwandeln

Vorgehensweise

• Die ID der Mailing-Vorlage ermitteln und merken.
• Die richtigen Mehrzahlungen (in den Einzahlungen) finden.
• Dann

ganz wichtig: Einen Datensatz Mehrzahlungen markieren und die Formel “SRGanzzahl01:=0” anwenden, um die Variable “SRGanzzahl01” auf Null zu setzen.

• Alle (richtigen) Mehrzahlungen markieren und nachstehende Formel anwenden:

Formel

C_BOOLEAN(SRBool01)
C_LONGINT(SRGanzzahl01;SRGanzzahl02)
C_TEXT(SRText01)
SRBool01:=(SRGanzzahl01>0)
If (Not(SRBool01))
SRText01:=Request(“ID der Mailing-Vorlage (Vorlage-ID):”;“0”)
If (OK=1)
SRGanzzahl01:=Int(Num(SRText01))
If (SRGanzzahl01<1)
ALERT(“Die eingegebene ID (für die Mailing-Vorlage) ist negativ…”)
Else
If (SRText01#String(SRGanzzahl01))
ALERT(“Die eingegebene ID (für die Mailing-Vorlage) ist nicht eindeutig…”)
Else
QUERY([s0_Mailing_Vorlage];[s0_Mailing_Vorlage]m_Betrieb=<>l_Mandant_Betrieb_ID;*)
QUERY([s0_Mailing_Vorlage]; & ;[s0_Mailing_Vorlage]i_ID=SRGanzzahl01)
If (Records in selection([s0_Mailing_Vorlage])#1)
ALERT(“Es existiert keine Mailing-Vorlage mit der ID “+String(SRGanzzahl01)+”…“)
Else
SRBool01:=True
End if
UNLOAD RECORD([s0_Mailing_Vorlage])
REDUCE SELECTION([s0_Mailing_Vorlage];0)
End if
End if
End if
End if
If (SRBool01)
If ([s1_Einzahlung]s_Einzahlungstyp=“mz”)
SRGanzzahl02:=[s1_Einzahlung]r_Einzahlung__von
QUERY([s0_Mailing];[s0_Mailing]m_Betrieb=<>l_Mandant_Betrieb_ID;*)
QUERY([s0_Mailing]; & ;[s0_Mailing]r_Vorlage=SRGanzzahl01;*)
QUERY([s0_Mailing]; & ;[s0_Mailing]r_Adresse=SRGanzzahl02)
If (Records in selection([s0_Mailing])=1)
[s1_Einzahlung]s_Einzahlungstyp:=“sp”
[s1_Einzahlung]r_Mailing:=[s0_Mailing]i_ID
End if
UNLOAD RECORD([s0_Mailing])
End if
End if