WTagMesse := "oBest:TW1"
WTagBeerdigung := "oBest:TW2"
WTagTrauerfeier := "oBest:TW3"
WTagUrnenbeisetzung := "oBest:TW4"

SDatumMesse := "DtoC(1->&TD1)"
SDatumBeerdigung := "DtoC(1->&TD2)"
SDatumTrauerfeier := "DtoC(1->&TD3)"
SDatumUrnenbeisetzung := "DtoC(1->&TD4)"

SZeitMesse := "Str(1->&TZ1,5,2)"
SZeitBeerdigung := "Str(1->&TZ2,5,2)"
SZeitTrauerfeier := "Str(1->&TZ3,5,2)"
SZeitUrnenbeisetzung := "Str(1->&TZ4,5,2)"

OrtMesse := "Trim(1->&TO1)"
OrtBeerdigung := "Trim(1->&TO2)"
OrtTrauerfeier := "Trim(1->&TO3)"
OrtUrnenbeisetzung := "Trim(1->&TO4)"

Stadt := "Trim(OrtOhnePLZ(1->plz_ort))"

            IF 1->best_art = "E"
               cText = "Der Trauergottesdienst ist am "+&WTagMesse+", dem "+&SDatumMesse+", um "+&SZeitMesse+" Uhr,"+CRLF
               cText += "in der "+&OrtMesse+" Kirche, "+&Stadt+"."+CRLF
               cText += "Die Beerdigung ist am "+&WTagBeerdigung+", dem "+&SDatumBeerdigung+", um "+&SZeitBeerdigung+" Uhr,"+CRLF
               cText += "auf dem "+&OrtBeerdigung+", "+&Stadt+"."
            ELSE
               cText += "Die Trauerfeier ist am "+&WTagTrauerfeier+", dem "+&SDatumTrauerfeier+", um "+&SZeitTrauerfeier+" Uhr,"+CRLF
               cText += "in der "+&OrtTrauerfeier+", "+&Stadt+"."+CRLF
               cText += "Die Urnenbeisetzung ist am "+&WTagUrnenbeisetzung+", dem "+&SDatumUrnenbeisetzung+", um "+&SZeitUrnenbeisetzung+" Uhr,"+CRLF
               cText += "auf dem "+&OrtUrnenbeisetzung+", "+&Stadt+"."
            ENDIF
            IF SET(43)==0 //cBrNe4 == "a"     //04.12.2006 09:57 Standard="B" =OEM / "a" wirkt nur in ~TD
               cText := ConvToAnsiCP(cText)
            ENDIF
            cText += IIf(!Empty(cVT),CRLF + cVT,"")   // bei Terminen wird der vorb. Text angeh„ngt
         ELSE
            IF 1->best_art = "E"
            // IF-Bedingungen 23.11.2007 17:05
               IF DtoC(1->&TD1) != "  "   
                  cText = "Der Trauergottesdienst ist am "+oBest:TW1+", dem "+DtoC(1->&TD1)+","+CRLF
                  cText += "um "+Str(1->&TZ1,5,2)+" Uhr, "+"in der "+Trim(1->&TO1)+" Kirche, "+OrtOhnePLZ(1->plz_ort)+"."+CRLF
               ENDIF
               IF DtoC(1->&TD2) != "  "
                  cText += "Die Trauerfeier findet am "+oBest:TW2+", dem "+DtoC(1->&TD2)+","+CRLF
                  cText += "um "+Str(1->&TZ2,5,2)+" Uhr, "+"in der "+Trim(1->&TO2)+", "+OrtOhnePLZ(1->plz_ort)+" statt."+CRLF
               ENDIF
               IF DtoC(1->&TD4) != "  "
                  cText += "Die Beerdigung findet am "+oBest:TW4+", dem "+DtoC(1->&TD4)+","+CRLF
                  cText += "um "+Str(1->&TZ4,5,2)+" Uhr, "+"auf dem "+Trim(1->&TO4)+", "+Trim(1->&Fried)+" statt."
               ENDIF
            ELSE
               IF DtoC(1->&TD1) != "  "
                  cText = "Der Trauergottesdienst ist am "+oBest:TW1+", dem "+DtoC(1->&TD1)+","+CRLF
                  cText += "um "+Str(1->&TZ1,5,2)+" Uhr, "+"in der "+Trim(1->&TO1)+" Kirche, "+OrtOhnePLZ(1->plz_ort)+"."+CRLF
               ENDIF
               IF DtoC(1->&TD2) != "  "
                  cText += "Die Trauerfeier findet am "+oBest:TW2+", dem "+DtoC(1->&TD2)+","+CRLF
                  cText += "um "+Str(1->&TZ2,5,2)+" Uhr, "+"in der "+Trim(1->&TO2)+", "+OrtOhnePLZ(1->plz_ort)+" statt."+CRLF
               ENDIF
               IF DtoC(1->&TD4) != "  "
                  cText += "Die Urnenbeisetzung ist am "+oBest:TW4+", dem "+DtoC(1->&TD4)+","+CRLF
                  cText += "um "+Str(1->&TZ4,5,2)+" Uhr, "+"auf dem "+Trim(1->&TO4)+", "+Trim(1->&Fried)+"."
               ENDIF
            ENDIF
            IF SET(43)==0 //cBrNe4 == "a"     //04.12.2006 09:57 Standard="B" =OEM / "a" wirkt nur in ~TD
               cText := ConvToAnsiCP(cText)
            ENDIF
            cText += IIf(!Empty(cVT),CRLF + cVT,"")   // bei Terminen wird der vorb. Text angeh„ngt
         ENDIF