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,40 +245,98 @@ Public Class frmGesamtsicherheitenMenuNEU
         savefiledialog.InitialDirectory = "C:\Verag"
         savefiledialog.ShowDialog()
 
+        If quelldgv2 IsNot Nothing Then
 
-        Try
+            Try
-            For r As Integer = 0 To quelldgv.Rows.Count - 1
+                For r As Integer = 0 To quelldgv.Rows.Count - 1
-                For c As Integer = 0 To quelldgv.Columns.Count
+                    For c As Integer = 0 To quelldgv.Columns.Count
-                    'test &= r & c & vbCrLf
+                        'test &= r & c & vbCrLf
-                    Try
+                        Try
-                        'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
-                        firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                            firstin = quelldgv.Rows(r).Cells(c).Value.ToString
-                        'in2 = """" & firstin & """" & ";"
+                            'in2 = """" & firstin & """" & ";"
-                        in2 = firstin & ";"
+                            in2 = firstin & ";"
-                        out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
-                        out = Replace(out, "€", "")
+                            out = Replace(out, "€", "")
-                    Catch ex As Exception
+                        Catch ex As Exception
-                        out &= ""
+                            out &= ""
-                    End Try
+                        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
 
-                out &= "nZ"
+            Catch ex As Exception
-            Next
+                MsgBox(ex.Message)
-            For c As Integer = 0 To quelldgv.Columns.Count - 1
+            End Try
-                header &= quelldgv.Columns(c).Name & ";"
+
-            Next
+
-            out = Replace(out, "nZ", vbCrLf)
+        Else
-            'MsgBox(out)
+
-            Using sw As New IO.StreamWriter(savefiledialog.FileName)
+            Try
-                sw.WriteLine(header)
+                For r As Integer = 0 To quelldgv.Rows.Count - 1
-                sw.WriteLine(out)
+                    For c As Integer = 0 To quelldgv.Columns.Count
-            End Using
+                        'test &= r & c & vbCrLf
-        Catch ex As Exception
+                        Try
-            MsgBox(ex.Message)
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
-        End Try
+                            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
+
+                    out &= "nZ"
+                Next
+                For c As Integer = 0 To quelldgv.Columns.Count - 1
+                    header &= quelldgv.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
+        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)
@@ -401,7 +459,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
         Dim dtNew As New DataTable
 
-            Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum, 
+        Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum, 
                   (Select SUM( Case 
 			when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
 			when gs_art = 'Close' then gs_sicherheitsbetrag
@@ -417,7 +475,7 @@ Public Class frmGesamtsicherheitenMenuNEU
             From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
             Where gs_standort = '" & Standort & "'  AND Sicherheitssaldo != '0' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
 
-            dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
+        dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
 
         If (dtNew.Rows(0).Item(0) IsNot DBNull.Value) Then
 
@@ -426,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                 MsgBox("Es sind " & anzahlOffenerGSUeber85Tage & " ATBs offen, die älter als 85 Tage sind!")
             End If
             Return anzahlOffenerGSUeber85Tage
-            End If
+        End If
 
 
 
@@ -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