edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Korrektur PDF-Output

Browse Source
This commit is contained in:
d.breimaier
2022-09-21 09:48:17 +02:00
parent 78c1d771a8
commit 82e4914c35
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
View File

@@ -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