neu

SDL/Classes/cGenWord.vb

@@ -269,6 +269,7 @@ Public Class cGenWord
             odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
             odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
 
+            Dim pinVisible = False
             If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
                 If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
                     oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
@@ -289,6 +290,10 @@ Public Class cGenWord
                             If i < dt.Rows.Count Then oTable.Rows.Add()
                             '    MsgBox(cSqlDb.checkNullStr(r("KarteBoxBezeichnung")))
                             i += 1
+
+                            Select Case r("SDLNr").ToString
+                                Case "100", "212", "213", "214" : pinVisible = True
+                            End Select
                         End If
                     Next
                 End If
@@ -296,6 +301,13 @@ Public Class cGenWord
                 MessageBox.Show("Textmarke nicht vorhanden!")
             End If
 
+            Try
+                If Not pinVisible Then
+                    odoc.FormFields("PIN").Range.Text = ""
+                    odoc.FormFields("InfoPIN").Range.Text = ""
+                End If
+            Catch ex As Exception
+            End Try
 
             odoc.Save() : odoc.Activate()