Vermerke

VERAGAddIn/frmAvisoAnfügen.vb

@@ -1,5 +1,6 @@
 Imports System.Diagnostics
 Imports System.Windows.Forms
+Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA
 
 Public Class frmAvisoAnfuegen
 
@@ -8,6 +9,7 @@ Public Class frmAvisoAnfuegen
     Public Bezeichnung = ""
     Public PDF_MAIL = ""
     Public Art = ""
+    Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Public ATT As List(Of String)
 
@@ -133,12 +135,13 @@ Public Class frmAvisoAnfuegen
                 If AvisoId <= 0 Then Exit Sub
                 Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                 If firma = "" Then firma = "VERAG"
-                Dim sql = "SELECT [tblSnd_SendungID],[FilialenNr],[AbfertigungsNr],[tblSnd_Absender] as Absender,[tblSnd_Empfaenger] as Empfänger,[tblSnd_Auftraggeber] as Auftraggeber,[tblSnd_Colli] as Colli,[tblSnd_Gewicht] as Gewicht,[tblSnd_FremdspeditionText] as Fremd "
+                Dim sql = "SELECT [tblSnd_SendungID],[FilialenNr],[AbfertigungsNr],[tblSnd_Absender] as Absender,[tblSnd_Empfaenger] as Empfänger,[tblSnd_Auftraggeber] as Auftraggeber,[tblSnd_Colli] as Colli,[tblSnd_Gewicht] as Gewicht,[tblSnd_FremdspeditionText] as Fremd,tblSnd_AvisoID "
                 sql &= " FROM [tblSendungen] where tblSnd_AvisoID=" & AvisoId
 
                 .SET_SQL(sql, "AVISO")
                 .LOAD()
 
+                .Columns("tblSnd_AvisoID").Visible = False
                 .Columns("tblSnd_SendungID").Visible = False
                 .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
 
@@ -257,4 +260,35 @@ Public Class frmAvisoAnfuegen
         End Try
 
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If Me.SendungsId >= 0 Then
+
+            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+            Dim sv As New AVISO.frmAddSendungsvermerkShort(AvisoId, Me.SendungsId) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+            sv.Location = Me.PointToClient(Cursor.Position)
+            sv.ShowDialog(frmGrayOut)
+            frmGrayOut.Close()
+            sv.Close()
+
+            initVermerke()
+
+        End If
+    End Sub
+
+    Sub initVermerke()
+        If dgvSendungen.SelectedRows.Count > 0 Then
+            Me.SendungsId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+            Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value)
+            If AVISO IsNot Nothing Then
+                usrcntrVermerke.init(AVISO, SendungsId)
+            End If
+        Else
+            usrcntrVermerke.init(Nothing, -1)
+        End If
+
+    End Sub
+    Private Sub dgvSendungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSendungen.SelectionChanged
+        initVermerke()
+    End Sub
 End Class