FKAT: Text bei Guthaben Vk, VG setzen bei DY API, RechnugnsPDF in KD Stamm

2022-12-30 23:14:53 +01:00
parent 9460308c2d
commit f258201c87
12 changed files with 227 additions and 91 deletions
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -35,12 +35,10 @@ Partial Class frmKundenUebersichtZOLL
        Me.tabZolltarife = New System.Windows.Forms.TabPage()
        Me.pnlZollTarife = New System.Windows.Forms.Panel()
        Me.tabKundendaten = New System.Windows.Forms.TabPage()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.tbStatistik = New System.Windows.Forms.TabPage()
        Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Button1 = New System.Windows.Forms.Button()
@@ -143,6 +141,11 @@ Partial Class frmKundenUebersichtZOLL
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.btnRgPdf = New System.Windows.Forms.Button()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -167,6 +170,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.pnlTop.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip3.SuspendLayout()
+        Me.ctxtRg.SuspendLayout()
        Me.SuspendLayout()
        '
        'ContextMenuStrip1
@@ -213,17 +217,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.tabKundendaten.TabIndex = 0
        Me.tabKundendaten.Text = "Kundendaten"
        '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
-        Me.usrcntlKundenuebersicht.TabIndex = 0
-        '
        'ContextMenuStrip2
        '
        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -267,16 +260,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.TabPage1.TabIndex = 2
        Me.TabPage1.Text = "Offerte"
        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
        'tbStatistik
        '
        Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -851,6 +834,7 @@ Partial Class frmKundenUebersichtZOLL
        '
        'MyPanel1
        '
+        Me.MyPanel1.Controls.Add(Me.btnRgPdf)
        Me.MyPanel1.Controls.Add(Me.btnMonat)
        Me.MyPanel1.Controls.Add(Me.Button10)
        Me.MyPanel1.Controls.Add(Me.Button11)
@@ -1412,6 +1396,56 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
+        'ctxtRg
+        '
+        Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
+        Me.ctxtRg.Name = "ctxtRg"
+        Me.ctxtRg.Size = New System.Drawing.Size(197, 26)
+        '
+        'DateiHochladenToolStripMenuItem
+        '
+        Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
+        Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
+        Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
+        '
+        'btnRgPdf
+        '
+        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
+        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
+        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
+        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnRgPdf.Name = "btnRgPdf"
+        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
+        Me.btnRgPdf.TabIndex = 212
+        Me.btnRgPdf.Text = "Als PDF"
+        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRgPdf.UseVisualStyleBackColor = True
+        '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
        'frmKundenUebersichtZOLL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1457,6 +1491,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.pnlTop.PerformLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ContextMenuStrip3.ResumeLayout(False)
+        Me.ctxtRg.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
@@ -1573,4 +1608,7 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
    Friend WithEvents cboKundenblattFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents SYSKAÜbertragToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents btnRgPdf As Button
+    Friend WithEvents ctxtRg As ContextMenuStrip
+    Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/kunden/frmKundenUebersichtZOLL.resx
+++ b/SDL/kunden/frmKundenUebersichtZOLL.resx
@@ -123,6 +123,9 @@
  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>518, 17</value>
  </metadata>
+  <metadata name="ctxtRg.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>832, 17</value>
+  </metadata>
  <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -1252,9 +1252,9 @@ Public Class frmKundenUebersichtZOLL
        Else

            If If(KUNDE.EORITIN, "") = "" Then
-            MsgBox("Bitte EORI-Nr. eintragen!")
-            Exit Sub
-        End If
+                MsgBox("Bitte EORI-Nr. eintragen!")
+                Exit Sub
+            End If
            If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
                '    init(KUNDE.KundenNr)
                MsgBox("Daten gesendet!")
@@ -1354,4 +1354,62 @@ Public Class frmKundenUebersichtZOLL
            f.ShowDialog(Me)
        End If
    End Sub
+
+    Function getList_RK_ID() As List(Of Integer)
+        Dim listRgNr As New List(Of Integer)
+        Dim list As New List(Of Integer)
+        If dgvRg.SelectedRows.Count > 0 Then
+            For Each r As DataGridViewRow In dgvRg.SelectedRows
+                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
+                    list.Add(r.Cells("RK_ID").Value)
+                    listRgNr.Add(r.Cells("RechnungsNr").Value)
+                End If
+            Next
+        End If
+        Return list
+    End Function
+
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnRgPdf.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                Process.Start(RG_PATH)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            Dim list As New List(Of String)
+
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                list.Add(RG_PATH)
+            Next
+
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, list.ToArray)
+            Clipboard.SetDataObject(d, True)
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub dgvrg_SelectionChanged(sender As Object, e As EventArgs) Handles dgvRg.SelectionChanged
+        btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
+    End Sub
+
 End Class
+
+
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -175,7 +175,9 @@ Public Class usrCntlKundenuebersicht
                Try

                    tbWeitereKundenDetails.TabPages.Remove(tbUmsatz)
-                    tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+                    If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
+                        tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+                    End If
                    tbcntrAllg.TabPages.Remove(tbAvisoMail)
                    tbcntrAllg.TabPages.Remove(tbKdSpez)
                Catch ex As Exception
@@ -272,10 +274,13 @@ Public Class usrCntlKundenuebersicht
            If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
                tbWeitereKundenDetails.TabPages.Add(tbUmsatz)
                tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
+                  ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
+                tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
            End If
        End If


+
        initDGVUmsatz()
        initDGVOffenePosten()
        initDGVVollmachten()
@@ -362,6 +367,10 @@ Public Class usrCntlKundenuebersicht
                        End If
                    End If
                End If
+
+                If (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" AndAlso ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then
+                    dgvOffenePosten.Visible = True
+                End If
            Else
                lblFirma.Visible = False
            End If