20200108

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -94,6 +94,7 @@ Public Class usrcntlAktDetailsATILLANeu
         Vermerke_anzeigen()
         initDgvSpeditionsbuch()
         initdgvZollAnmeldungen()
+        initAnhaenge()
 
         If AVISO IsNot Nothing Then
 
@@ -425,6 +426,72 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
 
+    Sub initAnhaenge()
+        Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
+                                        ORDER BY   
+										  case	    
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        ' order by [anh_Reihenfolge],[anh_id]
+        dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+
+        If dgvanhaenge.RowCount = 0 Then dgvanhaenge.Columns.Clear() : Exit Sub
+
+        With dgvanhaenge
+
+            .RowTemplate.MinimumHeight = 20
+            .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 = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("anh_Typ").Width = 60
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+        End With
+
+    End Sub
+    Private Sub dgvanhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvanhaenge.CellDoubleClick
+        Try
+
+            If dgvanhaenge.SelectedRows.Count > 0 Then
+                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value))
+                End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
+
+
     Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
         If gridVermerke.RowCount = 0 Then Exit Sub
 
@@ -1231,4 +1298,6 @@ Public Class usrcntlAktDetailsATILLANeu
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
     End Sub
+
+
 End Class