creditsafe bugfix, abrechnungmaske (gu an CS oder AG), ZE-Buttons, Syska

2024-06-25 08:22:35 +02:00
parent 8841b1381c
commit 37bbc7d14f
10 changed files with 106 additions and 65 deletions
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -157,7 +157,7 @@ Public Class frmAbrechnungsMaske
                sqlstr &= "   WHERE 1=1 AND R1.Firma_ID=24 "
                sqlstr &= getRGWhere(MyComboBox3._value)
                sqlstr &= "   and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where"
-                sqlstr &= "   R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND RechnungsKundenNr=3013401 and R2.[BelegartenNr]=71)=0"
+                sqlstr &= "   R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND (RechnungsKundenNr=3013401 OR RechnungsKundenNr = 3017683) and R2.[BelegartenNr]=71)=0"
                sqlstr &= "   and Speditionsbuch.Abfertigungsart IN (1)"
                sqlstr &= "   ORDER BY FilialenNr, AbfertigungsNr, UnterNr"

--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
@@ -277,6 +277,8 @@ Partial Class usrCntlFaktAbrechnung
        Me.GutschriftAusRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.SeperateRechnungFürEUSTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnlTop.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -3929,7 +3931,7 @@ Partial Class usrCntlFaktAbrechnung
        '
        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem})
        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 70)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 92)
        '
        'GutschriftAusRechnungToolStripMenuItem
        '
@@ -3945,9 +3947,22 @@ Partial Class usrCntlFaktAbrechnung
        '
        'GutschriftAnVeragToolStripMenuItem
        '
+        Me.GutschriftAnVeragToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VeragAGToolStripMenuItem, Me.VeragCSToolStripMenuItem})
        Me.GutschriftAnVeragToolStripMenuItem.Name = "GutschriftAnVeragToolStripMenuItem"
        Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
-        Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an Verag"
+        Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an"
+        '
+        'VeragAGToolStripMenuItem
+        '
+        Me.VeragAGToolStripMenuItem.Name = "VeragAGToolStripMenuItem"
+        Me.VeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.VeragAGToolStripMenuItem.Text = "Verag AG"
+        '
+        'VeragCSToolStripMenuItem
+        '
+        Me.VeragCSToolStripMenuItem.Name = "VeragCSToolStripMenuItem"
+        Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.VeragCSToolStripMenuItem.Text = "Verag CS"
        '
        'usrCntlFaktAbrechnung
        '
@@ -4231,4 +4246,6 @@ Partial Class usrCntlFaktAbrechnung
    Friend WithEvents Label56 As Label
    Friend WithEvents txtRechnungAnZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents GutschriftAnVeragToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VeragAGToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -1,5 +1,4 @@
-Imports System.IO
-Imports com.sun.xml.internal.rngom.digested
+
 Imports VERAG_PROG_ALLGEMEIN

 Public Class usrCntlFaktAbrechnung
@@ -545,7 +544,7 @@ Public Class usrCntlFaktAbrechnung
        End If

        'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        '    FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
        'End If

        Select Case FirmaTmp
@@ -1886,6 +1885,7 @@ Public Class usrCntlFaktAbrechnung

        Dim FIRMATMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
        kdFirmaRechnungAn._UseFIRMA = FIRMATMP
+        If cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL") Then kdFirmaRechnungAn._UseFIRMA = Nothing
        kdFirmaAbsender._UseFIRMA = FIRMATMP
        kdFirmaAuftraggeber._UseFIRMA = FIRMATMP
        kdFirmaEmpfaenger._UseFIRMA = FIRMATMP
@@ -3974,14 +3974,26 @@ Nächste_Textzeile_lesen:
        End If
    End Sub

-    Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GutschriftAnVeragToolStripMenuItem.Click
+    Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragAGToolStripMenuItem.Click, VeragCSToolStripMenuItem.Click
+
+        Dim verag As String = ""
+
+        Select Case sender.name
+            Case "VeragAGToolStripMenuItem"
+                verag = "Verag AG"
+                veragKunde = 3013401
+
+            Case "VeragCSToolStripMenuItem"
+                verag = "Verag Customs Service"
+                veragKunde = 3017683
+        End Select

        Dim spedbuch = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value)

        If spedbuch.Abfertigungsart <> 1 AndAlso RECHNUNG.[BelegartenNr] = 71 Then Exit Sub 'nur bei Rechnung und abfertigungsart 1


-        Dim abfrage = "Soll eine neue Gutschrift an die Verag AG für die Verzollung/EUST erstellt werden?"
+        Dim abfrage = "Soll eine neue Gutschrift an die " & verag & " für die Verzollung/EUST erstellt werden?"
        Dim PosWithWEustOrVerz As Boolean = False
        Dim selectedPOS As New List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
        For Each POS In RECHNUNG.POSITIONEN.Where(Function(x) x.Anzahl > 0).ToList
@@ -3994,7 +4006,6 @@ Nächste_Textzeile_lesen:
        If Not PosWithWEustOrVerz Then Exit Sub

        If vbYes = MsgBox(abfrage, vbYesNoCancel) Then
-            veragKunde = 3013401
            saveMe()
            Dim RECHNUNGOldID = RECHNUNG.RK_ID
            Dim RECHNUNG_TMP = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RECHNUNGOldID)
@@ -4110,4 +4121,6 @@ Nächste_Textzeile_lesen:
        btn.Enabled = IIf(cboSammelrechnung._value = 0, True, False)

    End Sub
+
+
 End Class
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -2811,6 +2811,7 @@ Public Class usrCntlKundenuebersicht
                End Select


+
                Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")

                If lblBonitaetsdatum._value <> Nothing Then
@@ -2832,50 +2833,30 @@ Public Class usrCntlKundenuebersicht



-                    ' If cs.checkDateOfLastRequest(company) < lastChecked Then
-                    Dim dtEvents As New DataTable
+                    If cs.checkDateOfLastRequest(company) < lastChecked Then
+                        Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
+                        If a = vbYes Then

-                    dtEvents.Columns.Add("eventId", GetType(String))
-                    dtEvents.Columns.Add("companyId", GetType(String))
-                    dtEvents.Columns.Add("portfolioId", GetType(String))
-                    dtEvents.Columns.Add("ruleName", GetType(String))
-                    dtEvents.Columns.Add("localEventCode", GetType(String))
-                    dtEvents.Columns.Add("globalEventCode", GetType(String))
-                    dtEvents.Columns.Add("newValue", GetType(String))
-                    dtEvents.Columns.Add("oldValue", GetType(String))
-                    dtEvents.Columns.Add("eventDate", GetType(DateTime))
-                    dtEvents.Columns.Add("createdDate", GetType(DateTime))
-
-                    cs.getCompanieEvents(company, dtEvents)
-
-                    If dtEvents.Rows.Count > 0 Then
-                        dtEvents.DefaultView.Sort = "eventDate desc"
-                        If dtEvents.Rows(0).Item("eventDate") < lastChecked Then
-
-                            Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
-                            If a = vbYes Then
-
-                                setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
-
-                            End If
-
-                        Else
-                            setCreditsafereportEntry(cs, company)
+                            setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren

                        End If
-                    Else

+                    Else
                        setCreditsafereportEntry(cs, company)

                    End If
-
-
                Else
-                    MsgBox("Authentifizierungsfehler bei Creditsafe-User")
+
+                    setCreditsafereportEntry(cs, company)

                End If

+
+            Else
+                MsgBox("Authentifizierungsfehler bei Creditsafe-User")
+
            End If
+
        End If