Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

2024-06-13 10:56:04 +02:00
parent f26b09f8d7 deabe0060a
commit a0da3e7c34
9 changed files with 175 additions and 90 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -1,7 +1,9 @@

 Imports System.Globalization
+Imports System.Net
 Imports awt.ShellApi
 Imports com.sun.org.apache.xerces.internal.impl.dv.xs
+Imports com.sun.org.apache.xml.internal.serializer
 Imports java.awt.geom
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
@@ -543,11 +545,11 @@ Public Class cFakturierung
                    Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
                    '  If ZZKdZahlungszielVL <> ZZKdZahlungsziel Then
                    If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
-                            Select Case RECHNUNG.RechnungSprache
-                                Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+ZZVL>, you can deduct the template commission charged. " & vbCrLf)
-                                Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+ZZVL> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
-                            End Select
-                        End If
+                        Select Case RECHNUNG.RechnungSprache
+                            Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+ZZVL>, you can deduct the template commission charged. " & vbCrLf)
+                            Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+ZZVL> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
+                        End Select
+                    End If
                    ' End If
            End Select

@@ -1565,6 +1567,24 @@ Public Class cFakturierung
                                MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
                            End Try
                        End If
+
+                        If RECHNUNG.Firma_ID = 24 Then
+
+                            Dim API As New DataTable
+                            Dim Program = "DATEV-PDF"
+                            API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & Program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
+                            If API.Rows.Count = 0 Then
+                                MsgBox("keine gültigen API-Einstellungen für " & Program & " gefunden!")
+                            Else
+
+                                Dim client As WebClient = New WebClient
+                                client.Credentials = New NetworkCredential(API.Rows(0).Item("api_user").ToString, API.Rows(0).Item("api_password").ToString)
+                                client.UploadFile(API.Rows(0).Item("api_url") & "/" & RG_Bezeichnung, tmpPath)
+
+                            End If
+
+                        End If
+
                    Catch ex As Exception
                        MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
                    End Try
@@ -2477,6 +2497,24 @@ Public Class cFakturierung
                        Catch ex As Exception
                            MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
                        End Try
+
+                        If dt.Rows(0)("Firma_ID") = 24 Then
+
+                            Dim API As New DataTable
+                            Dim Program = "DATEV-PDF"
+                            API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & Program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
+                            If API.Rows.Count = 0 Then
+                                MsgBox("keine gültigen API-Einstellungen für " & Program & " gefunden!")
+                            Else
+
+                                Dim client As WebClient = New WebClient
+                                client.Credentials = New NetworkCredential(API.Rows(0).Item("api_user").ToString, API.Rows(0).Item("api_password").ToString)
+                                client.UploadFile(API.Rows(0).Item("api_url") & "/Sammelrechnung_" & RechnungsNr & ".pdf", pathPDF)
+
+                            End If
+
+                        End If
+
                    End If
                End If
            Catch ex As Exception
@@ -2492,7 +2530,7 @@ Public Class cFakturierung
    Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean
        Dim dt As DataTable
        If VorschauID = "" Then
-            SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
+            SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
        Else
            SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
        End If
@@ -3526,7 +3564,7 @@ Public Class cFakturierung

                    where 1=1 "

-        If VorschauID="" Then
+        If VorschauID = "" Then
            SQLStr &= " AND Status IN (" & Status & ")   And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "'"
        Else
            SQLStr &= " AND RechnungsNr is null And VorschauID='" & VorschauID & "' "
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -50,7 +50,7 @@ Public Class frmAbrechnungsMaske
        End If

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

        MyComboBox2.Items.Clear()
@@ -794,4 +794,5 @@ Public Class frmAbrechnungsMaske
        Dim webAddress As String = "https://wiki.verag.ag/de/abteilungen/verrechnung/xxxx"
        Process.Start(webAddress)
    End Sub
+
 End Class
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -1,4 +1,5 @@
 Imports System.IO
+Imports com.sun.xml.internal.rngom.digested
 Imports VERAG_PROG_ALLGEMEIN

 Public Class usrCntlFaktAbrechnung
@@ -543,9 +544,9 @@ Public Class usrCntlFaktAbrechnung
            FirmaTmp = "VERAGIMEX"
        End If

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

        Select Case FirmaTmp
            Case "VERAG"
@@ -4091,7 +4092,9 @@ Nächste_Textzeile_lesen:
            Dim check As Integer = cAllgemein.checkSteuerschluessel(cboFirma._value, RECHNUNG.RechnungsLandKz, RECHNUNG.RechnungsUstIdKz, RECHNUNG.RechnungsUstIdNr, RECHNUNG.RechnungsUstIdGeprüft)
            If check >= 0 Then
                If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(cboSteuerschlüssel._value) <> check Then
-                    If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then
+                    Dim text = SQL.getValueTxtBySql("select Steuerbezeichnung from Steuertabelle where Steuerschlüssel =" & check, "FMZOLL")
+                    Dim hintUIDPruef As String = IIf((RECHNUNG.RechnungsUstIdGeprüft IsNot Nothing AndAlso CDate(RECHNUNG.RechnungsUstIdGeprüft) < Today.AddDays(-30)), " UID-ÜrPrüfung ist älter als 30 Tage!", "")
+                    If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel " & text & " sollte hinterlegt werden." & vbNewLine & IIf(hintUIDPruef <> "", hintUIDPruef & vbNewLine, "") & "Trotzdem speichern?", vbYesNo) Then
                        Return False
                    End If
                End If
--- a/SDL/UsrCntlEssensbestellungen.vb
+++ b/SDL/UsrCntlEssensbestellungen.vb
@@ -259,7 +259,8 @@ Public Class UsrCntlessensbestellungen

        Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value)

-        Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO")
+        Dim menuDate = cbxMenu.SelectedItem.ToString.Replace(cbxMenu.SelectedItem.Value & " - ", "")
+        Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & menuDate & "'", "AVISO")

        essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)

@@ -592,7 +593,7 @@ Public Class UsrCntlessensbestellungen

        'cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True)

-        cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) '/ where MenuDateVon >= GETDATE() 
+        cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() 


        '/ where MenuDateVon >= GETDATE() 
--- a/SDL/frmEssensbestellungen.vb
+++ b/SDL/frmEssensbestellungen.vb
@@ -27,7 +27,7 @@ Public Class frmEssensbestellungen
        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dürüm", "Dürüm"))
        'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))

-        cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) '/ where MenuDateVon >= GETDATE() 
+        cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) , MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() 

        cbxAlt_montag.Items.AddRange(list.ToArray())
        cbxAlt_dienstag.Items.AddRange(list.ToArray())
@@ -58,7 +58,8 @@ Public Class frmEssensbestellungen
            Exit Sub
        End If

-        Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO")
+        Dim menuDate = cbxMenu.SelectedItem.ToString.Replace(cbxMenu.SelectedItem.Value & " - ", "")
+        Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & menuDate & "'", "AVISO")

        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung)

--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -1879,6 +1879,12 @@ Public Class usrCntlKundenuebersicht
    End Sub

    Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        checkEORI()
+
+        Exit Sub
+
+
        'Create an object that calls the name for the 
        'Web service used in the added Web Reference. 

@@ -2446,6 +2452,12 @@ Public Class usrCntlKundenuebersicht
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+
+
+
+
+
        Me.Cursor = Cursors.WaitCursor
        'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf")

@@ -3148,4 +3160,23 @@ Public Class usrCntlKundenuebersicht
    End Sub


+    Private Sub checkEORI()
+
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim EORI_NR = KUNDE.EORITIN.ToString()
+
+        EORI_NR.Replace("-", "").Replace(" ", "").Trim()
+
+        If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
+
+        Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
+
+        'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
+        'If pdf <> "" Then Process.Start(pdf)
+
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
 End Class
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb
@@ -1496,7 +1496,7 @@ Public Class usrcntlKundeBearbeitenFull

    Private Sub btnDatevExport_Click(sender As Object, e As EventArgs) Handles btnDatevExport.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-            If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False) Then
+            If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False, ,, False) Then
                MsgBox("Stammdaten wurden erfolgreich exportiert!")
            Else
                MsgBox("Es wurden keine Stammdaten exportiert!")