From 10340868dc03a0a36d4ba08d07c0d3260c6e12a8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 12 Sep 2024 14:06:11 +0200 Subject: [PATCH] spire --- SDL/My Project/licensePDFPro.elic.xml | 26 +++++++++ SDL/My Project/licensePDFViewer.elic.xml | 25 +++++++++ SDL/SDL.vbproj | 2 + SDL/buchhaltung/usrCntlBH.vb | 55 ++++++++++--------- SDL/kunden/frmKundenblatt.Designer.vb | 24 ++++---- .../DATENSERVER/cDATENSERVER.vb | 13 +++-- .../My Project/licensePDFPro.elic.xml | 26 +++++++++ .../My Project/licensePDFViewer.elic.xml | 25 +++++++++ .../VERAG_PROG_ALLGEMEIN.vbproj | 8 ++- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 18 +++++- 10 files changed, 174 insertions(+), 48 deletions(-) create mode 100644 SDL/My Project/licensePDFPro.elic.xml create mode 100644 SDL/My Project/licensePDFViewer.elic.xml create mode 100644 VERAG_PROG_ALLGEMEIN/My Project/licensePDFPro.elic.xml create mode 100644 VERAG_PROG_ALLGEMEIN/My Project/licensePDFViewer.elic.xml diff --git a/SDL/My Project/licensePDFPro.elic.xml b/SDL/My Project/licensePDFPro.elic.xml new file mode 100644 index 00000000..030cec9f --- /dev/null +++ b/SDL/My Project/licensePDFPro.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/licensePDFViewer.elic.xml b/SDL/My Project/licensePDFViewer.elic.xml new file mode 100644 index 00000000..30f93032 --- /dev/null +++ b/SDL/My Project/licensePDFViewer.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 6165f811..f88ed2a3 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -4822,6 +4822,8 @@ + + diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 21fe1686..efaee0a9 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -74,7 +74,7 @@ Public Class usrCntlBH Dim dt = SQL.loadDgvBySql(getOPSql(), "FMZOLL") dt.Columns.Add("VersicherungsBetrag", Type.GetType("System.Double")) For Each r In dt.Rows - r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"), r("GemeldeterBetrag"), ) + r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"), r("GemeldeterBetrag"), r("nichtVersicherbar")) Next dt.Columns("VersicherungsBetrag").ColumnName = "V-Betrag" dt.Columns("Versicherungssumme").ColumnName = "V-Summe" @@ -112,6 +112,7 @@ Public Class usrCntlBH sqlStr &= "SELECT * FROM (" sqlStr &= " SELECT Ordnungsbegriff, AdressenNr as KdNr, Adressen.LandKz, " If cbxDeckungsstoppAnzeigen.Checked Then sqlStr &= " (SELECT TOP 1 ISNULL([kde_Versicherung_DeckungsstoppDatum],'') FROM [tblKundenErweitert] where kde_Versicherung_Deckungsstopp=1 and kde_KundenNr=AdressenNr) AS DS, " + sqlStr &= " (SELECT TOP 1 ISNULL(kde_txtVersicherungNichtVersicherbar,'') FROM [tblKundenErweitert] where kde_KundenNr=AdressenNr) AS nichtVersicherbar, " If True Then sqlStr &= " isnull((SELECT TOP 1 [kde_Versicherung_GemeldeterBetrag] FROM [tblKundenErweitert] where kde_KundenNr=AdressenNr),0) AS GemeldeterBetrag, " sqlStr &= " (SELECT SUM(Gesamtausstand) FROM dbo.[Offene Posten] WHERE (Kontonummer = AdressenNr " & Firmen_ID & ")) AS LfdSaldo, " sqlStr &= " (SELECT MIN(Belegdatum) AS Expr1" @@ -152,7 +153,7 @@ Public Class usrCntlBH End If - If cbxNichtVersicherbarAusblenden.Checked Then sqlStr &= " AND isnull((SELECT kde_txtVersicherungNichtVersicherbar FROM tblKundenErweitert WHERE kde_KundenNr=Adressen.AdressenNr),0)=0 " + If cbxKundeBeiRechtsanwaltausblenden.Checked Then sqlStr &= " and Rechtsanwalt= 0 " 'If cbxKundeBeiRechtsanwaltausblenden.Checked Then sqlStr &= " and Rechtsanwalt= 0 " @@ -178,6 +179,8 @@ Public Class usrCntlBH sqlStr &= ") as T " sqlStr &= " WHERE 1=1 " + If cbxNichtVersicherbarAusblenden.Checked Then sqlStr &= " AND isnull(nichtVersicherbar,0) = 0 " + If txtOPRisikoBetragVon._value <> "" Or txtOPRisikoBetragBis._value <> "" Then If txtOPRisikoBetragVon._value <> "" Then sqlStr &= " AND Risiko >= '" & txtOPRisikoBetragVon._value & "'" If txtOPRisikoBetragBis._value <> "" Then sqlStr &= " AND Risiko <= '" & txtOPRisikoBetragBis._value & "'" @@ -423,7 +426,7 @@ Public Class usrCntlBH - rpt.lblVersBetrag.Text = getVersBetrag(risiko, rpt.Fields.Item("Versicherungssumme").Value, rpt.Fields.Item("GemeldeterBetrag").Value).ToString("C") + rpt.lblVersBetrag.Text = getVersBetrag(risiko, rpt.Fields.Item("Versicherungssumme").Value, rpt.Fields.Item("GemeldeterBetrag").Value, IIf(rpt.Fields.Item("nichtVersicherbar").Value IsNot DBNull.Value, rpt.Fields.Item("nichtVersicherbar").Value, False)).ToString("C") @@ -452,39 +455,39 @@ Public Class usrCntlBH Me.Cursor = Cursors.Default End Sub - Function getVersBetrag(risiko, Versicherungssumme, GemeldeterBetrag, Optional versicherungGekündigt = False) As Double + Function getVersBetrag(risiko, Versicherungssumme, GemeldeterBetrag, versicherungGekündigt) As Double If risiko Is DBNull.Value Then Return 0 - If versicherungGekündigt Then Return 0 + If Not versicherungGekündigt Is DBNull.Value AndAlso versicherungGekündigt Then Return 0 Dim versBetrag As Double = 0 - If risiko <= 0 Then - versBetrag = 0 - ElseIf cbxBagatellgrenze.Checked And risiko <= txtBagatellgrenzeBei._value Then - versBetrag = 0 ' kleiner Bagatellgrenze - ElseIf risiko <= GrenzeVersicherung Then - If Versicherungssumme IsNot DBNull.Value Then - If risiko > CDbl(Versicherungssumme) Then - versBetrag = Versicherungssumme - Else - versBetrag = risiko - End If + If risiko <= 0 Then + versBetrag = 0 + ElseIf cbxBagatellgrenze.Checked And risiko <= txtBagatellgrenzeBei._value Then + versBetrag = 0 ' kleiner Bagatellgrenze + ElseIf risiko <= GrenzeVersicherung Then + If Versicherungssumme IsNot DBNull.Value Then + If risiko > CDbl(Versicherungssumme) Then + versBetrag = Versicherungssumme Else versBetrag = risiko End If Else - If Versicherungssumme IsNot DBNull.Value Then - If risiko > CDbl(Versicherungssumme) Then - versBetrag = Versicherungssumme - Else - versBetrag = risiko - End If - Else - versBetrag = GrenzeVersicherung - End If + versBetrag = risiko End If + Else + If Versicherungssumme IsNot DBNull.Value Then + If risiko > CDbl(Versicherungssumme) Then + versBetrag = Versicherungssumme + Else + versBetrag = risiko + End If + Else + versBetrag = GrenzeVersicherung + End If + End If - Return If(GemeldeterBetrag > 0, GemeldeterBetrag, versBetrag) + Return If(GemeldeterBetrag > 0, GemeldeterBetrag, versBetrag) End Function Private Sub cbxOPUmsatz_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOPUmsatz.CheckedChanged diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 2ebd164d..00a9f197 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -99,6 +99,7 @@ Partial Class frmKundenblatt Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.Button5 = New System.Windows.Forms.Button() Me.Panel5 = New System.Windows.Forms.Panel() + Me.Button7 = New System.Windows.Forms.Button() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() @@ -199,7 +200,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.Button7 = New System.Windows.Forms.Button() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -1072,6 +1072,16 @@ Partial Class frmKundenblatt Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(1169, 20) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(101, 20) + Me.Button7.TabIndex = 177 + Me.Button7.Text = "GO BOX" + Me.Button7.UseVisualStyleBackColor = True + Me.Button7.Visible = False + ' 'Label35 ' Me.Label35.AutoSize = True @@ -2231,7 +2241,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2365,16 +2375,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'Button7 - ' - Me.Button7.Location = New System.Drawing.Point(1169, 20) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(101, 20) - Me.Button7.TabIndex = 177 - Me.Button7.Text = "GO BOX" - Me.Button7.UseVisualStyleBackColor = True - Me.Button7.Visible = False - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index b77e8fee..075dbb3e 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1246,7 +1246,7 @@ Public Class cFormularManager Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") files.RemoveAll(Function(v) v.Equals("")) 'Alle leeren Stings löschen If files.Count > 0 Then Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray) @@ -1390,9 +1390,10 @@ Public Class cFormularManager ' Exit Sub 'End If - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") For Each pdfPath In PDFFile + Dim doc As New Spire.Pdf.PdfDocument(pdfPath) doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 @@ -1460,7 +1461,7 @@ Public Class cFormularManager Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "") Try - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") If printerName = "" Then Dim oPS As New System.Drawing.Printing.PrinterSettings printerName = oPS.PrinterName @@ -1513,7 +1514,7 @@ Public Class cFormularManager Try If targetPath = "" Then targetPath = getTMPPath_PDF() - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) @@ -1554,7 +1555,7 @@ Public Class cFormularManager End If - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Using webClient As New Net.WebClient() Dim data() As Byte = webClient.DownloadData(URL) @@ -2247,7 +2248,7 @@ Public Class DATENVERVER_OPTIONS Try If targetPath = "" Then targetPath = TMP_PATH - VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL) doc.LoadFromHTML(File, False, False, False) 'doc.LoadFromFile(File) diff --git a/VERAG_PROG_ALLGEMEIN/My Project/licensePDFPro.elic.xml b/VERAG_PROG_ALLGEMEIN/My Project/licensePDFPro.elic.xml new file mode 100644 index 00000000..030cec9f --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/My Project/licensePDFPro.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/VERAG_PROG_ALLGEMEIN/My Project/licensePDFViewer.elic.xml b/VERAG_PROG_ALLGEMEIN/My Project/licensePDFViewer.elic.xml new file mode 100644 index 00000000..30f93032 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/My Project/licensePDFViewer.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 247ee832..0b639874 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -134,11 +134,11 @@ False - bin\Debug\Spire.Pdf.dll + F:\PROGRAMMIERUNG\dll\Spire.PDF\Spire.Pdf.dll False - bin\Debug\Spire.PdfViewer.Forms.dll + F:\PROGRAMMIERUNG\dll\Spire.PDF\Spire.PdfViewer.Forms.dll @@ -1414,6 +1414,10 @@ + + + +