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