Gesamtsicherheiten_CSVExport

Aviso/Aviso.vbproj

@@ -1126,6 +1126,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmGesamtsicherheiten.resx">
       <DependentUpon>frmGesamtsicherheiten.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmGesamtsicherheitenMenu.resx">
       <DependentUpon>frmGesamtsicherheitenMenu.vb</DependentUpon>

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -76,6 +76,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.dgvListe.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvListe.ContextMenuStrip = Me.ContextMenuStrip1
         Me.dgvListe.Location = New System.Drawing.Point(-3, 307)
         Me.dgvListe.Name = "dgvListe"
         Me.dgvListe.ReadOnly = True
@@ -123,7 +124,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(606, 313)
+        Me.Panel1.Size = New System.Drawing.Size(606, 309)
         Me.Panel1.TabIndex = 0
         '
         'btnOpenOver85Days
@@ -438,7 +439,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.FlatButton2.FlatAppearance.BorderSize = 0
         Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.FlatButton2.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton2.Location = New System.Drawing.Point(513, 193)
+        Me.FlatButton2.Location = New System.Drawing.Point(513, 191)
         Me.FlatButton2.Name = "FlatButton2"
         Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
         Me.FlatButton2.TabIndex = 30
@@ -476,7 +477,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.txtbis._WaehrungZeichen = True
         Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.txtbis.ForeColor = System.Drawing.Color.Black
-        Me.txtbis.Location = New System.Drawing.Point(513, 169)
+        Me.txtbis.Location = New System.Drawing.Point(513, 167)
         Me.txtbis.MaxLineLength = -1
         Me.txtbis.MaxLines_Warning = ""
         Me.txtbis.MaxLines_Warning_Label = Nothing
@@ -502,7 +503,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.txtVon._WaehrungZeichen = True
         Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.txtVon.ForeColor = System.Drawing.Color.Black
-        Me.txtVon.Location = New System.Drawing.Point(510, 126)
+        Me.txtVon.Location = New System.Drawing.Point(510, 124)
         Me.txtVon.MaxLineLength = -1
         Me.txtVon.MaxLines_Warning = ""
         Me.txtVon.MaxLines_Warning_Label = Nothing
@@ -518,7 +519,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.Label3.ForeColor = System.Drawing.Color.Honeydew
-        Me.Label3.Location = New System.Drawing.Point(510, 150)
+        Me.Label3.Location = New System.Drawing.Point(510, 148)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(24, 15)
         Me.Label3.TabIndex = 22
@@ -531,7 +532,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.Label2.ForeColor = System.Drawing.Color.Honeydew
-        Me.Label2.Location = New System.Drawing.Point(510, 107)
+        Me.Label2.Location = New System.Drawing.Point(510, 105)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(28, 15)
         Me.Label2.TabIndex = 10
@@ -591,7 +592,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.btnNeu.FlatAppearance.BorderSize = 0
         Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnNeu.ForeColor = System.Drawing.Color.Black
-        Me.btnNeu.Location = New System.Drawing.Point(522, 278)
+        Me.btnNeu.Location = New System.Drawing.Point(522, 276)
         Me.btnNeu.Name = "btnNeu"
         Me.btnNeu.Size = New System.Drawing.Size(75, 23)
         Me.btnNeu.TabIndex = 34
@@ -604,7 +605,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblSaldo.AutoSize = True
         Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblSaldo.Location = New System.Drawing.Point(398, 23)
+        Me.lblSaldo.Location = New System.Drawing.Point(398, 21)
         Me.lblSaldo.Name = "lblSaldo"
         Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
         Me.lblSaldo.TabIndex = 1
@@ -616,7 +617,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblZollsatz.AutoSize = True
         Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblZollsatz.Location = New System.Drawing.Point(399, 85)
+        Me.lblZollsatz.Location = New System.Drawing.Point(399, 83)
         Me.lblZollsatz.Name = "lblZollsatz"
         Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
         Me.lblZollsatz.TabIndex = 9
@@ -628,7 +629,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert.AutoSize = True
         Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblReferenzwert.Location = New System.Drawing.Point(399, 58)
+        Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56)
         Me.lblReferenzwert.Name = "lblReferenzwert"
         Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
         Me.lblReferenzwert.TabIndex = 6

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -254,6 +254,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                         'in2 = """" & firstin & """" & ";"
                         in2 = firstin & ";"
                         out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                        out = Replace(out, "€", "")
                     Catch ex As Exception
                         out &= ""
                     End Try
@@ -429,4 +430,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     End Function
 
+    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
+        csvexport(dgvListe)
+    End Sub
 End Class

Aviso/frmGesamtsicherheitenNEU.vb

@@ -380,7 +380,7 @@ Public Class frmGesamtsicherheitenNEU
                         End With
                         attachPosNrToExistingATB = True
                         indexGsId = OPEN.SAVEOBJECT()
-                        If count = 1 Then MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") ': indexGsId = OPEN.SAVEOBJECT()
+                        If count = 1 Then MsgBox("INFO: Dieser Eintrag wurde bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") ': indexGsId = OPEN.SAVEOBJECT()
 
                 End Select