Sierendurck, Kundenblatt, FaktAbrechnung (doppelte KeyPressedEvents), cDatenserver, etc.
This commit is contained in:
@@ -86,7 +86,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function UStVAKunden_SummenNeuBerechnen(Optional KundenNr As Integer = 0) As Boolean
|
||||
Shared Function UStVAKunden_SummenNeuBerechnen(Optional KundenNr As Integer = 0, Optional saveValues As Boolean = True, Optional dt As DataTable = Nothing) As Boolean
|
||||
Try
|
||||
|
||||
Dim sumChangedPLOSEOK As Boolean = True
|
||||
@@ -99,7 +99,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
Else
|
||||
sqlWhere = "in (SELECT DISTINCT tblSteuernummern.AdressenNr AS UStVAn_KuNr
|
||||
FROM tblSteuernummern
|
||||
where AdressenNr is not null)"
|
||||
where AdressenNr is not null) "
|
||||
End If
|
||||
|
||||
'alle Kunden, die eine SteuerNr hinterlegt haben inkl. deren hinterlegte Summen!
|
||||
@@ -107,7 +107,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
FROM Kunden
|
||||
left JOIN [tblKundenErweitert] on [kde_KundenNr] = Kunden.KundenNr
|
||||
WHERE Kunden.KundenNr " & sqlWhere &
|
||||
"order by Kunden.KundenNr"
|
||||
" order by Kunden.KundenNr"
|
||||
|
||||
|
||||
Dim dtKunden As DataTable = sql.loadDgvBySql(sqlKunden, "FMZOLL")
|
||||
@@ -137,21 +137,21 @@ Public Class cMDMFunctionsAllgemein
|
||||
|
||||
Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL")
|
||||
|
||||
Dim curUStV_SummeVorschaubetragEUR As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_VERAG As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_IDS As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_IT As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_MSE As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_UTA As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_PLOSE As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_VERAG As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_IDS As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_IT As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_MSE As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_UTA As Double = 0
|
||||
Dim curUStV_SummeVorschaubetragEUR_PLOSE As Double = 0
|
||||
|
||||
Dim curUStV_SummeUmsatzsteuerbetragEUR As Double
|
||||
Dim curUStV_SummeErstattungsbetragEUR As Double
|
||||
Dim curUStV_Summe3470BetragEUR As Double
|
||||
Dim curUStV_SummeVZBetragEUR As Double
|
||||
Dim curUStV_SummeUmsatzsteuerbetragEUR As Double = 0
|
||||
Dim curUStV_SummeErstattungsbetragEUR As Double = 0
|
||||
Dim curUStV_Summe3470BetragEUR As Double = 0
|
||||
Dim curUStV_SummeVZBetragEUR As Double = 0
|
||||
Dim invoiceDate = If(Date.Now > New Date(Date.Now.Year, 6, 30), New Date(Date.Now.Year, 1, 1), New Date(Date.Now.Year - 1, 1, 1))
|
||||
|
||||
'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen)
|
||||
'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen , die aber schon eingelesen wurden)
|
||||
curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), invoiceDate)
|
||||
curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate)
|
||||
curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate)
|
||||
@@ -204,7 +204,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
End If
|
||||
|
||||
|
||||
If sumChanged Then
|
||||
If sumChanged And saveValues Then
|
||||
'updateSummen
|
||||
sumChangedOK = sql.doSQL("Update Kunden set Kunden.UStV_SummeUmsatzsteuerbetragEUR = " & curUStV_SummeUmsatzsteuerbetragEUR.ToString.Replace(",", ".") & ",
|
||||
Kunden.UStV_SummeErstattungsbetragEUR = " & curUStV_SummeErstattungsbetragEUR.ToString.Replace(",", ".") & ",
|
||||
@@ -220,7 +220,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
" WHERE Kunden.KundenNr = " & r.Item("KundenNr"), "FMZOLL")
|
||||
End If
|
||||
|
||||
If sumChangedPLOSE Then
|
||||
If sumChangedPLOSE And saveValues Then
|
||||
If IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) Then
|
||||
Dim kndErw As New cKundenErweitert(r.Item("KundenNr"))
|
||||
kndErw.kde_UStV_SummeVorschaubetragEUR_PLOSE = curUStV_SummeVorschaubetragEUR_PLOSE
|
||||
@@ -231,6 +231,37 @@ Public Class cMDMFunctionsAllgemein
|
||||
End If
|
||||
End If
|
||||
|
||||
If KundenNr > 0 AndAlso dt IsNot Nothing Then
|
||||
|
||||
dt.Columns.Add("KundenNr", GetType(String))
|
||||
dt.Columns.Add("VorschaubetragEUR", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_VERAG", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_IDS", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_IT", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_MSE", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_UTA", GetType(Double))
|
||||
dt.Columns.Add("VorschaubetragEUR_PLOSE", GetType(Double))
|
||||
dt.Columns.Add("UmsatzsteuerbetragEUR", GetType(Double))
|
||||
dt.Columns.Add("ErstattungsbetragEUR", GetType(Double))
|
||||
dt.Columns.Add("3470BetragEUR", GetType(Double))
|
||||
dt.Columns.Add("VZBetragEUR", GetType(Double))
|
||||
|
||||
Dim ro As DataRow = dt.NewRow
|
||||
ro("KundenNr") = KundenNr
|
||||
ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
|
||||
ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
|
||||
ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS
|
||||
ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
|
||||
ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
|
||||
ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
|
||||
ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
|
||||
ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
|
||||
ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
|
||||
ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
|
||||
ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
|
||||
dt.Rows.Add(ro)
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
@@ -1,19 +1,14 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports System.Drawing.Printing
|
||||
Imports Ghostscript.NET.Processor
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Drawing
|
||||
Imports Spire.Pdf.Print
|
||||
Imports Spire.Pdf
|
||||
Imports Spire.Pdf.HtmlConverter
|
||||
Imports System.Threading
|
||||
Imports System.Drawing.Printing
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Runtime.DesignerServices
|
||||
Imports System.Windows.Forms
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports Spire.Pdf
|
||||
Imports Spire.Pdf.Print
|
||||
|
||||
|
||||
Public Class cDATENSERVER
|
||||
|
||||
@@ -2272,6 +2267,28 @@ Public Class DATENVERVER_OPTIONS
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Shared Function getFileExtensionFromBase64String(base64 As String) As String
|
||||
|
||||
Dim list As List(Of KeyValuePair(Of String, String)) = New List(Of KeyValuePair(Of String, String))
|
||||
list.Add(New KeyValuePair(Of String, String)("JVBERi0", "pdf"))
|
||||
list.Add(New KeyValuePair(Of String, String)("R0lGODdh", "gif"))
|
||||
list.Add(New KeyValuePair(Of String, String)("iVBORw0KGgo", "png"))
|
||||
list.Add(New KeyValuePair(Of String, String)("TU0AK", "tiff"))
|
||||
list.Add(New KeyValuePair(Of String, String)("UEs", "gif"))
|
||||
list.Add(New KeyValuePair(Of String, String)("PK", "zip"))
|
||||
|
||||
For Each type In list
|
||||
If base64.Contains(type.Key) Then
|
||||
Return type.Value
|
||||
End If
|
||||
Next
|
||||
|
||||
Return "unknown"
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user