neu

Aviso/frmSendungsdetailsNEU.vb

@@ -2342,6 +2342,8 @@ Public Class frmSendungsdetailsNEU
             initSpeditionbuch()
         ElseIf TabControl1.SelectedTab Is TabPage3 Then
             initVermerke()
+        ElseIf TabControl1.SelectedTab Is tbAnhang Then
+            initAnhang()
         End If
     End Sub
 
@@ -2414,6 +2416,38 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
+    Sub initAnhang()
+        Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'
+                                        order by [anh_Reihenfolge],[anh_id]"
+
+
+        dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO")
+
+
+        If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub
+
+        With dgvAnhang
+
+            .RowTemplate.MinimumHeight = 40
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("anh_Art").MinimumWidth = 100
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("anh_Typ").Width = 150
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+        End With
+    End Sub
     Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click
         ' ZollSystem: 0=ATLAS  1= EZOLL
         loadDataInLIST()
@@ -2670,7 +2704,7 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.Leave
         If IsNumeric(txtGewicht.Text) Then
-            txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N0")
+            txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N1")
         End If
     End Sub
 
@@ -3080,5 +3114,21 @@ Public Class frmSendungsdetailsNEU
         initVermerke()
     End Sub
 
+    Private Sub dgvAnhang_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhang.CellDoubleClick
+        Try
+            If TabControl1.SelectedTab Is tbAnhang Then
+                If dgvAnhang.SelectedRows.Count > 0 Then
+                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value))
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
 
+    End Sub
+
+    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
+        Dim f As New frmSendungAnhangImport(AvisoId)
+        f.Show(Me)
+    End Sub
 End Class