From f538f7fe70352a4241b9bd3767a07342a6672f7a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 5 Mar 2025 17:04:46 +0100 Subject: [PATCH] rechnugnssuche, Fremdrechnungen, etc. --- initATLASAufschubkonten/frmStartOptions.vb | 21 +++++++++++-------- .../frmTCNachrichtenVerarbeitung.vb | 4 ---- 2 files changed, 12 insertions(+), 13 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 07b8a55..6ff6c09 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -866,12 +866,7 @@ Public Class frmStartOptions For Each row In dt.Rows Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"), row("LizenzNr")) - If Not cDHF_Anhaenge.hasEntry Or cDHF_Anhaenge.LRN = "4805/24006407" Then 'WENN NEU:: - - - If cDHF_Anhaenge.LRN = "4805/24006407" Then - MsgBox("Test") - End If + If Not cDHF_Anhaenge.hasEntry Then 'WENN NEU:: cDHF_Anhaenge.AnmID = row("AnmID") cDHF_Anhaenge.LizenzNr = row("LizenzNr") @@ -3245,13 +3240,17 @@ Public Class frmStartOptions If SQL.doSQL("INSERT INTO tblKundenBesonderheiten (kdb_KundenNr,kdb_kategorie,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_visible,kdb_hervorheben,kdb_history) " & " VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & textUIDVermerk & "'," & "4" & ",'" & "AUTO" & "','" & Now() & "',1,1,0)", "FMZOLL") Then setUIDToNull(kunde) - End If Else If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine kunde.Besonderheiten &= textUIDVermerk + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : kunde.FiBuSchnittstelle = True 'IMEX-Kunden sollen neu in DVO exportiert werden! + End Select + kunde.SAVE() setUIDToNull(kunde) @@ -3666,7 +3665,7 @@ Public Class frmStartOptions Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked) 'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked) 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) showPic(bool, PictureBox12) @@ -4692,13 +4691,17 @@ Public Class frmStartOptions Dim enddatum_monat2 = lastDaycurrentMonth.Month Dim enddatum_jahr2 = lastDaycurrentMonth.Year + Try System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = "https://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?view=xmlexportkursesearchresultZOLLWeb&kursart=" & kursart & + + 'Mit dem 26.02.2025 hat sich die URL für den Abruf der Wechselkurse geändert!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + 'Dim URL = "https://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?view=xmlexportkursesearchresultZOLLWeb&kursart=" & kursart & + Dim URL = "https://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?view=xmlexportkursesearchresultzoll&kursart=" & kursart & "&startdatum_tag2=" & startdatum_tag2 & "&startdatum_monat2=" & startdatum_monat2 & "&startdatum_jahr2=" & startdatum_jahr2 & diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index 5717a03..ab69b29 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb @@ -1,9 +1,5 @@ Imports System.IO -Imports System.Globalization Imports System.Xml -Imports Renci.SshNet -Imports System.Net.Mail -Imports DocumentFormat.OpenXml.Drawing.Diagrams Public Class frmTCNachrichtenVerarbeitung Dim cntDatenEingelesen As Integer = 0