From 82e4914c3554275a66703789f8d2e85b5a581a91 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 Sep 2022 09:48:17 +0200 Subject: [PATCH] Korrektur PDF-Output --- SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb index 3ec34e33..d92e9f1e 100644 --- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb +++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb @@ -256,16 +256,24 @@ list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off"))) - If BB.bb_Zufrieden = True Then + + + If BB.bb_Zufrieden = "" Or IsNothing(BB.bb_Zufrieden) Then + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off")) + + + ElseIf BB.bb_Zufrieden = True Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "On")) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off")) ElseIf BB.bb_Zufrieden = False Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off")) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "On")) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZufriedenNEIN", IIf(BB.bb_ZufriedenNEIN <> "", BB.bb_ZufriedenNEIN.ToString, ""))) - ElseIf BB.bb_Zufrieden = "" Or IsNothing(BB.bb_Zufrieden) Then - list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off")) - list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off")) + End If Select Case BB.bb_Kontaktart.ToString