Gesamtsicherheiten_CSVExport

2022-10-28 14:18:26 +02:00
parent 0fdf25d07e
commit 6340c9d055
4 changed files with 17 additions and 11 deletions
--- a/Aviso/Aviso.vbproj
+++ b/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>
--- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
+++ b/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
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/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
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/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