ANzeige Vermerke

Aviso/usrcntlAktDetails.vb

@@ -883,7 +883,18 @@ Public Class usrcntlAktDetails
     End Sub
 
     Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" &
+                                " 
+                                CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 
+                                    THEN
+                                        CASE 
+                                            WHEN LEN(Hinweis_Vermerk) > 200 
+                                                THEN LEFT(Hinweis_Vermerk, 200) + '...'
+                                            ELSE Hinweis_Vermerk 
+                                        END 
+                                    ELSE  
+                                        VermerkeCodes.Bezeichnung 
+                                    END as [Hinweis_Vermerk_Anzeige]
+                                ,[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" &
                              " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                              " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                              " WHERE AvisoID = [[AvisoId]] [[sendwhere]]  AND HintergrundVermerk =0 " &
@@ -3994,5 +4005,16 @@ Public Class usrcntlAktDetails
     Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
         openAlleMarkierte(AvisoID)
     End Sub
+
+    Private Sub VermerkTextAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VermerkTextAnzeigenToolStripMenuItem.Click
+        If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
+        Dim index As Integer = -1
+        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
+        If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value Is DBNull.Value Then
+            MsgBox("Kein Vermerktext hinterlegt!")
+        Else
+            MsgBox(gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value)
+        End If
+    End Sub
 End Class