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