From 1b20fdd5d11468d27384ede5d5fc5d843b206098 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 30 Aug 2024 22:40:37 +0200 Subject: [PATCH] .NET 4.8, Spire PDF, PDF Komprimieren --- SDL/App.config | 40 +- SDL/My Project/Application.Designer.vb | 6 + SDL/My Project/Settings.Designer.vb | 2 +- SDL/My Project/license.elic.xml | 26 ++ SDL/My Project/licenseViewer.elic.xml | 25 ++ SDL/SDL.vbproj | 9 +- SDL/Web References/EORI/Reference.vb | 10 +- .../at.gv.bmf.finanzonline/Reference.vb | 8 +- .../at.gv.bmf.finanzonlineLogin/Reference.vb | 10 +- SDL/Web References/eu.europa.ec/Reference.vb | 12 +- SDL/Web References/eu.europa.ec1/Reference.vb | 26 +- SDL/kunden/usrCntlCBAM.vb | 72 ++-- VERAG_PROG_ALLGEMEIN/App.config | 96 ++--- .../My Project/Settings.Designer.vb | 382 +++++++++--------- .../My Project/license.elic.xml | 58 ++- .../My Project/licenseViewer.elic.xml | 25 ++ .../VERAG_PROG_ALLGEMEIN.vbproj | 20 +- .../RKSV_DE_DSFinVKService/Reference.vb | 130 +++--- .../Web References/UIDPruefung/Reference.vb | 12 +- .../Reference.vb | 10 +- .../at.gv.bmf.finanzonline/Reference.vb | 8 +- .../Web References/eu.europa.ec/Reference.vb | 12 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 5 + 23 files changed, 529 insertions(+), 475 deletions(-) create mode 100644 SDL/My Project/license.elic.xml create mode 100644 SDL/My Project/licenseViewer.elic.xml create mode 100644 VERAG_PROG_ALLGEMEIN/My Project/licenseViewer.elic.xml diff --git a/SDL/App.config b/SDL/App.config index c0e5b351..2fb2e6a3 100644 --- a/SDL/App.config +++ b/SDL/App.config @@ -1,43 +1,43 @@ - + -
+
- + - + - - + + - - + + - - + + - - + + - - + + - - + + @@ -64,18 +64,18 @@ - - + + - + - + diff --git a/SDL/My Project/Application.Designer.vb b/SDL/My Project/Application.Designer.vb index fc6cf8b1..87f5c1df 100644 --- a/SDL/My Project/Application.Designer.vb +++ b/SDL/My Project/Application.Designer.vb @@ -34,5 +34,11 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.SDL.frmLogin End Sub + + _ + Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean + Me.MinimumSplashScreenDisplayTime = 0 + Return MyBase.OnInitialize(commandLineArgs) + End Function End Class End Namespace diff --git a/SDL/My Project/Settings.Designer.vb b/SDL/My Project/Settings.Designer.vb index 6f8b0448..798f43cd 100644 --- a/SDL/My Project/Settings.Designer.vb +++ b/SDL/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/SDL/My Project/license.elic.xml b/SDL/My Project/license.elic.xml new file mode 100644 index 00000000..030cec9f --- /dev/null +++ b/SDL/My Project/license.elic.xml @@ -0,0 +1,26 @@ + + + B081D0F5-EF94-42F2-B287-4812D84164CE + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2024-08-31T00:00:00Z + 2025-08-31T00:00:00Z + + + Spire.PDF Pro Edition + 10.7 + + Developer Subscription + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + diff --git a/SDL/My Project/licenseViewer.elic.xml b/SDL/My Project/licenseViewer.elic.xml new file mode 100644 index 00000000..30f93032 --- /dev/null +++ b/SDL/My Project/licenseViewer.elic.xml @@ -0,0 +1,25 @@ + + + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2024-08-31T00:00:00Z + 2025-08-31T00:00:00Z + + + Spire.PDFViewer for Forms + 7.12 + + Developer Subscription + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 31d1b370..d0a480ee 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -11,7 +11,7 @@ SDL 512 WindowsForms - v4.7 + v4.8 true @@ -298,10 +298,6 @@ False ..\..\..\dll\RKAesIcm.dll - - False - ..\..\..\dll\Spire.PDF\2023\Spire.Pdf.dll - @@ -2762,6 +2758,7 @@ True Application.myapp + True True @@ -4794,6 +4791,8 @@ + + diff --git a/SDL/Web References/EORI/Reference.vb b/SDL/Web References/EORI/Reference.vb index 01171632..0667e014 100644 --- a/SDL/Web References/EORI/Reference.vb +++ b/SDL/Web References/EORI/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace EORI ''' - _ @@ -121,7 +121,7 @@ Namespace EORI End Class ''' - - - _ + _ Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs) ''' - _ Partial Public Class validateEORICompletedEventArgs diff --git a/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb b/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb index 018156dc..8666f25a 100644 --- a/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb +++ b/SDL/Web References/at.gv.bmf.finanzonline/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace at.gv.bmf.finanzonline ''' - _ @@ -129,7 +129,7 @@ Namespace at.gv.bmf.finanzonline End Class ''' - _ Public Enum uidAbfrageServiceRequestStufe @@ -144,11 +144,11 @@ Namespace at.gv.bmf.finanzonline End Enum ''' - _ + _ Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs) ''' - _ Partial Public Class uidAbfrageCompletedEventArgs diff --git a/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb b/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb index 46f96118..7a96e569 100644 --- a/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb +++ b/SDL/Web References/at.gv.bmf.finanzonlineLogin/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace at.gv.bmf.finanzonlineLogin ''' - _ @@ -156,11 +156,11 @@ Namespace at.gv.bmf.finanzonlineLogin End Class ''' - _ + _ Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs) ''' - _ Partial Public Class loginCompletedEventArgs @@ -199,11 +199,11 @@ Namespace at.gv.bmf.finanzonlineLogin End Class ''' - _ + _ Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs) ''' - _ Partial Public Class logoutCompletedEventArgs diff --git a/SDL/Web References/eu.europa.ec/Reference.vb b/SDL/Web References/eu.europa.ec/Reference.vb index 39ba7fe9..0ce64cd0 100644 --- a/SDL/Web References/eu.europa.ec/Reference.vb +++ b/SDL/Web References/eu.europa.ec/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace eu.europa.ec ''' - _ @@ -200,7 +200,7 @@ Namespace eu.europa.ec End Class ''' - _ Public Enum matchCode @@ -219,11 +219,11 @@ Namespace eu.europa.ec End Enum ''' - _ + _ Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs) ''' - _ Partial Public Class checkVatCompletedEventArgs @@ -286,11 +286,11 @@ Namespace eu.europa.ec End Class ''' - _ + _ Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs) ''' - _ Partial Public Class checkVatApproxCompletedEventArgs diff --git a/SDL/Web References/eu.europa.ec1/Reference.vb b/SDL/Web References/eu.europa.ec1/Reference.vb index 8374c639..dc24e902 100644 --- a/SDL/Web References/eu.europa.ec1/Reference.vb +++ b/SDL/Web References/eu.europa.ec1/Reference.vb @@ -24,7 +24,7 @@ Imports System.Xml.Serialization Namespace eu.europa.ec1 ''' - _ @@ -73,14 +73,14 @@ Namespace eu.europa.ec1 ''' Public Event validateEORICompleted As validateEORICompletedEventHandler - + ''' - - Public Function validateEORI(ByVal eori() As String) As eoriValidationResult + _ + Public Function validateEORI( ByVal eori() As String) As eoriValidationResult Dim results() As Object = Me.Invoke("validateEORI", New Object() {eori}) - Return CType(results(0), eoriValidationResult) + Return CType(results(0),eoriValidationResult) End Function - + ''' Public Overloads Sub validateEORIAsync(ByVal eori() As String) Me.validateEORIAsync(eori, Nothing) @@ -121,7 +121,7 @@ Namespace eu.europa.ec1 End Class ''' - - - _ + _ Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs) ''' - _ Partial Public Class validateEORICompletedEventArgs @@ -324,12 +324,12 @@ Namespace eu.europa.ec1 MyBase.New(exception, cancelled, userState) Me.results = results End Sub - + ''' Public ReadOnly Property Result() As eoriValidationResult Get - Me.RaiseExceptionIfNecessary() - Return CType(Me.results(0), eoriValidationResult) + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),eoriValidationResult) End Get End Property End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 2f58a48f..760b276e 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -445,39 +445,9 @@ Public Class usrCntlCBAM btnCBAM_DS_DAKOSY_XML.Tag = "" If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - - Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType - - CBAM_XML.Year = txtJahr.Text - CBAM_XML.ReportingPeriod = cboQuartal._value - - For Each g In dt.Rows - Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType - GOODS.CommodityCode.HsCode = g("Tarifnummer").ToString.Substring(0, 6) - GOODS.CommodityCode.CnCode = g("Tarifnummer").ToString.Substring(6, 2) - GOODS.OriginCountry.Country = g("VersendungsLand") - GOODS.MeasureImported.NetMass = g("Eigenmasse") - GOODS.MeasureImported.MeasurementUnit = "KG" - CBAM_XML.ImportedGood.Add(GOODS) - Next - - Dim optFileName = EORI & "_XML_" & txtVon._value & "-" & txtBis._value - Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName - If Not My.Computer.FileSystem.DirectoryExists(sPath) Then - My.Computer.FileSystem.CreateDirectory(sPath) - End If - - Dim filename = sPath & optFileName & ".xml" - While System.IO.File.Exists(filename) - filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xml" - End While - - - CBAM_XML.SaveToFile(filename) - btnCBAM_DS_DAKOSY_XML.Tag = filename - btnCBAM_DS_DAKOSY_XML.Enabled = True - - Me.Cursor = Cursors.WaitCursor + '--------------------------------------------------------------------------------------------------------------------------------------------- + doCBAM_XML(dt, EORI) + '--------------------------------------------------------------------------------------------------------------------------------------------- End If @@ -496,6 +466,42 @@ Public Class usrCntlCBAM End Sub + Private Sub doCBAM_XML(dt As DataTable, EORI As String) + Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType + + CBAM_XML.Year = txtJahr.Text + CBAM_XML.ReportingPeriod = cboQuartal._value + + For Each g In dt.Rows + Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType + GOODS.CommodityCode.HsCode = g("Tarifnummer").ToString.Substring(0, 6) + GOODS.CommodityCode.CnCode = g("Tarifnummer").ToString.Substring(6, 2) + GOODS.OriginCountry.Country = g("VersendungsLand") + GOODS.MeasureImported.NetMass = g("Eigenmasse") + GOODS.MeasureImported.MeasurementUnit = "KG" + CBAM_XML.ImportedGood.Add(GOODS) + Next + + Dim optFileName = EORI & "_XML_" & txtVon._value & "-" & txtBis._value + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + Dim filename = sPath & optFileName & ".xml" + While System.IO.File.Exists(filename) + filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xml" + End While + + + CBAM_XML.SaveToFile(filename) + btnCBAM_DS_DAKOSY_XML.Tag = filename + btnCBAM_DS_DAKOSY_XML.Enabled = True + + 'Me.Cursor = Cursors.WaitCursor + End Sub + + Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click, btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click, btnCBAM_DS_DAKOSY_XML.Click diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config index 0dede84a..b281dd61 100644 --- a/VERAG_PROG_ALLGEMEIN/App.config +++ b/VERAG_PROG_ALLGEMEIN/App.config @@ -9,52 +9,31 @@ - - - - - - - - - - - - - - - - - - - - - connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" /> - + + + + + + + + + + + + + + + + + + + + + connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=ASFINAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" /> + - + @@ -65,30 +44,25 @@ Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200 - + - + http://ec.europa.eu/taxation_customs/vies/services/checkVatService - + https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/ - + https://finanzonline.bmf.gv.at:443/fonws/ws/session - + http://localhost:8733/DSFinVKService - + http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService @@ -96,17 +70,13 @@ - - + + - - + + diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb index b515438f..57633c08 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -13,15 +13,15 @@ Option Explicit On Namespace My - - + + _ Partial Public NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) - + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + #Region "Automatische My.Settings-Speicherfunktion" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean @@ -36,10 +36,10 @@ Namespace My End Sub #End If #End Region - + Public Shared ReadOnly Property [Default]() As MySettings Get - + #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject @@ -53,296 +53,296 @@ Namespace My Return defaultInstance End Get End Property - - + + _ Public Property SCANCANON_PRODConnectionString() As String Get - Return CType(Me("SCANCANON_PRODConnectionString"), String) + Return CType(Me("SCANCANON_PRODConnectionString"),String) End Get Set - Me("SCANCANON_PRODConnectionString") = Value + Me("SCANCANON_PRODConnectionString") = value End Set End Property - - + + _ Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String) End Get End Property - - + + _ Public Property DISPOConnectionString() As String Get - Return CType(Me("DISPOConnectionString"), String) + Return CType(Me("DISPOConnectionString"),String) End Get Set - Me("DISPOConnectionString") = Value + Me("DISPOConnectionString") = value End Set End Property - - + + _ Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String) End Get End Property - - + + _ Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String) End Get End Property - - + + _ Public Property asdadasdasdasdasdasd() As String Get - Return CType(Me("asdadasdasdasdasdasd"), String) + Return CType(Me("asdadasdasdasdasdasd"),String) End Get Set - Me("asdadasdasdasdasdasd") = Value + Me("asdadasdasdasdasdasd") = value End Set End Property - - + + _ Public ReadOnly Property FMZOLL_PRODConnectionString() As String Get - Return CType(Me("FMZOLL_PRODConnectionString"), String) + Return CType(Me("FMZOLL_PRODConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property SYSKAConnectionString() As String Get - Return CType(Me("SYSKAConnectionString"), String) + Return CType(Me("SYSKAConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property ATLASConnectionString() As String Get - Return CType(Me("ATLASConnectionString"), String) + Return CType(Me("ATLASConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property ADMINConnectionString_DEV() As String Get - Return CType(Me("ADMINConnectionString_DEV"), String) + Return CType(Me("ADMINConnectionString_DEV"),String) End Get End Property - - + + _ Public ReadOnly Property SDL_PRODConnectionString() As String Get - Return CType(Me("SDL_PRODConnectionString"), String) + Return CType(Me("SDL_PRODConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property FMZOLLConnectionString() As String Get - Return CType(Me("FMZOLLConnectionString"), String) + Return CType(Me("FMZOLLConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property AVISOConnectionStringTEST() As String Get - Return CType(Me("AVISOConnectionStringTEST"), String) + Return CType(Me("AVISOConnectionStringTEST"),String) End Get End Property - - + + _ Public ReadOnly Property AVISOConnectionString() As String Get - Return CType(Me("AVISOConnectionString"), String) + Return CType(Me("AVISOConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property SDLConnectionString() As String Get - Return CType(Me("SDLConnectionString"), String) + Return CType(Me("SDLConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property EZOLLConnectionString() As String Get - Return CType(Me("EZOLLConnectionString"), String) + Return CType(Me("EZOLLConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property AVISO_ATILLAConnectionString() As String Get - Return CType(Me("AVISO_ATILLAConnectionString"), String) + Return CType(Me("AVISO_ATILLAConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property ATLAS_SBGConnectionString() As String Get - Return CType(Me("ATLAS_SBGConnectionString"), String) + Return CType(Me("ATLAS_SBGConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property UIDConnectionString() As String Get - Return CType(Me("UIDConnectionString"), String) + Return CType(Me("UIDConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property UID_PRODConnectionString() As String Get - Return CType(Me("UID_PRODConnectionString"), String) + Return CType(Me("UID_PRODConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property FDConnectionString() As String Get - Return CType(Me("FDConnectionString"), String) + Return CType(Me("FDConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property FD_PRODConnectionString() As String Get - Return CType(Me("FD_PRODConnectionString"), String) + Return CType(Me("FD_PRODConnectionString"),String) End Get End Property - - + + _ Public ReadOnly Property DISPOConnectionStringTEST() As String Get - Return CType(Me("DISPOConnectionStringTEST"), String) + Return CType(Me("DISPOConnectionStringTEST"),String) End Get End Property - - + + _ Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"), String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"),String) End Get End Property - - + + _ Public ReadOnly Property VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService() As String Get - Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"), String) + Return CType(Me("VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService"),String) End Get End Property - - + + _ Public ReadOnly Property ADMINConnectionString_OLD() As String Get - Return CType(Me("ADMINConnectionString_OLD"), String) + Return CType(Me("ADMINConnectionString_OLD"),String) End Get End Property diff --git a/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml b/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml index fb5cc36c..030cec9f 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml +++ b/VERAG_PROG_ALLGEMEIN/My Project/license.elic.xml @@ -1,32 +1,26 @@ - - - Runtime - VERAG Spedition AG - al@verag.ag - VERAG Spedition AG - 2022-07-12T00:00:00Z - 2023-07-12T00:00:00Z - - - Spire.PDFViewer for Forms - 7.1 - - 1 - 1 - - - - Spire.PDF Pro Edition - 8.7 - - 1 - 1 - - - - - e-iceblue - sales@e-iceblue.com - http://www.e-iceblue.com - - \ No newline at end of file + + + B081D0F5-EF94-42F2-B287-4812D84164CE + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2024-08-31T00:00:00Z + 2025-08-31T00:00:00Z + + + Spire.PDF Pro Edition + 10.7 + + Developer Subscription + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + diff --git a/VERAG_PROG_ALLGEMEIN/My Project/licenseViewer.elic.xml b/VERAG_PROG_ALLGEMEIN/My Project/licenseViewer.elic.xml new file mode 100644 index 00000000..30f93032 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/My Project/licenseViewer.elic.xml @@ -0,0 +1,25 @@ + + + Runtime + VERAG Spedition AG + al@verag.ag + VERAG Spedition AG + 2024-08-31T00:00:00Z + 2025-08-31T00:00:00Z + + + Spire.PDFViewer for Forms + 7.12 + + Developer Subscription + 1 + 1 + + + + + e-iceblue + sales@e-iceblue.com + http://www.e-iceblue.com + + diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 5fbbf0e4..fa5c5e22 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -12,7 +12,7 @@ VERAG_PROG_ALLGEMEIN 512 Windows - v4.7 + v4.8 @@ -132,17 +132,11 @@ False F:\PROGRAMMIERUNG\dll\NetSpell.SpellChecker.DLL - - False - F:\PROGRAMMIERUNG\dll\Spire.PDF\2023\Spire.License.dll + + ..\..\..\dll\Spire.PDF\2024\Spire.Pdf.dll - - False - F:\PROGRAMMIERUNG\dll\Spire.PDF\2023\Spire.Pdf.dll - - - False - F:\PROGRAMMIERUNG\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll + + ..\..\..\dll\Spire.PDF\2024\Spire.PdfViewer.Forms.dll @@ -604,6 +598,7 @@ True Application.myapp + True True @@ -1417,6 +1412,9 @@ + + +