Gesamtsicherheiten: CSV-Export für Gesamtsicherh + Positionen

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -63,6 +63,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblSaldo = New System.Windows.Forms.Label()
         Me.lblZollsatz = New System.Windows.Forms.Label()
         Me.lblReferenzwert = New System.Windows.Forms.Label()
+        Me.ExportCSV2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -85,14 +86,14 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.ExportCSV2ToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
         '
         'ExportCSVToolStripMenuItem
         '
         Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
         '
         'Panel1
@@ -647,6 +648,12 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert.TabIndex = 6
         Me.lblReferenzwert.Text = "Referenzwert: -"
         '
+        'ExportCSV2ToolStripMenuItem
+        '
+        Me.ExportCSV2ToolStripMenuItem.Name = "ExportCSV2ToolStripMenuItem"
+        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExportCSV2ToolStripMenuItem.Text = "Export CSV Details"
+        '
         'frmGesamtsicherheitenMenuNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -707,4 +714,5 @@ Partial Class frmGesamtsicherheitenMenuNEU
     Friend WithEvents Label25 As Label
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents btnOpenOver85Days As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents ExportCSV2ToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -234,7 +234,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         csvexport(dgvListe)
     End Sub
 
-    Public Shared Function csvexport(quelldgv As DataGridView)
+    Public Shared Function csvexport(quelldgv As DataGridView, Optional quelldgv2 As DataGridView = Nothing)
         Dim savefiledialog As New SaveFileDialog
         Dim firstin As String
         Dim out As String
@@ -245,6 +245,61 @@ Public Class frmGesamtsicherheitenMenuNEU
         savefiledialog.InitialDirectory = "C:\Verag"
         savefiledialog.ShowDialog()
 
+        If quelldgv2 IsNot Nothing Then
+
+            Try
+                For r As Integer = 0 To quelldgv.Rows.Count - 1
+                    For c As Integer = 0 To quelldgv.Columns.Count
+                        'test &= r & c & vbCrLf
+                        Try
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                            'in2 = """" & firstin & """" & ";"
+                            in2 = firstin & ";"
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out = Replace(out, "€", "")
+                        Catch ex As Exception
+                            out &= ""
+                        End Try
+
+                    Next
+
+                    For c As Integer = 0 To quelldgv2.Columns.Count
+                        'test &= r & c & vbCrLf
+                        Try
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            firstin = quelldgv2.Rows(r).Cells(c).Value.ToString
+                            'in2 = """" & firstin & """" & ";"
+                            in2 = firstin & ";"
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out = Replace(out, "€", "")
+                        Catch ex As Exception
+                            out &= ""
+                        End Try
+
+                    Next
+
+                    out &= "nZ"
+                Next
+                For c As Integer = 0 To quelldgv.Columns.Count - 1
+                    header &= quelldgv.Columns(c).Name & ";"
+                Next
+                For c As Integer = 0 To quelldgv2.Columns.Count - 1
+                    header &= quelldgv2.Columns(c).Name & ";"
+                Next
+                out = Replace(out, "nZ", vbCrLf)
+                'MsgBox(out)
+                Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                    sw.WriteLine(header)
+                    sw.WriteLine(out)
+                End Using
+
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+
+
+        Else
 
             Try
                 For r As Integer = 0 To quelldgv.Rows.Count - 1
@@ -274,11 +329,14 @@ Public Class frmGesamtsicherheitenMenuNEU
                     sw.WriteLine(header)
                     sw.WriteLine(out)
                 End Using
+
             Catch ex As Exception
                 MsgBox(ex.Message)
             End Try
+        End If
     End Function
 
+
     Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
     Dim TAG As Date = CDate(Now.ToShortDateString)
     Dim JAHR As Date = CDate("01.01." & Now.Year)
@@ -435,4 +493,24 @@ Public Class frmGesamtsicherheitenMenuNEU
     Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
         csvexport(dgvListe)
     End Sub
+
+    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSV2ToolStripMenuItem.Click
+
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
+            .Standort = Me.Standort
+            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+            .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
+            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
+            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
+            .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
+            .dataTable = Me.dataTable
+        End With
+
+        frm.LoadDGVSicherheitenForExport()
+        frm.LoadDGVSicherheitsPosForExport(frm.gessicherheitID)
+        csvexport(frm.dgvGesamtsicherheit, frm.dgvSicherheitsPos)
+    End Sub
 End Class

Aviso/frmGesamtsicherheitenNEU.vb

@@ -148,6 +148,19 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Public Sub LoadDGVSicherheitenForExport(Optional withFilterParam As Boolean = False)
+
+
+
+        Dim SQLStringSicherheit As String = "select [gs_gsId] as Id, [gs_ATBNr] as 'ATB Verwahrlager', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'  from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & "order by gs_gsId"
+
+        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
+        dgvGesamtsicherheit.LOAD()
+
+    End Sub
+
+
+
     Private Sub dgvGesamtsicherheit_SelectionChanged(sender As Object, e As EventArgs) Handles dgvGesamtsicherheit.SelectionChanged
         If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
 
@@ -220,6 +233,20 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Public Sub LoadDGVSicherheitsPosForExport(gsNr As Integer, Optional withFilterParam As Boolean = False)
+
+        Dim sqlSearchSting As String = ""
+
+        Dim SQLStringCRN As String =
+            "select [gsp_gsId] as ID, [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_erstellungsdatum as Date) as Datum, CONVERT(VARCHAR(5),gsp_erstellungsdatum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag, [gsp_freitext] as Freitext" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
+                " From [tblGesamtsicherheitsPositionen] where [gsp_gsnr] = '" & gsNr & "' order by [gsp_gsId]"
+
+        dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
+        dgvSicherheitsPos.LOAD()
+
+    End Sub
+
+
     'Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged
     '    If dgvSicherheitsPos.SelectedRows.Count > 0 Then