edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MDM, Auswertungen, Nacherfassung, Kundebearbeiten, Mahnlauf

Browse Source
This commit is contained in:
d.breimaier
2024-11-20 17:10:35 +01:00
parent 0fb0452990
commit 7435031346
11 changed files with 500 additions and 259 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -238,7 +238,7 @@ Public Class cIDS
lngRecordCount = lngRecordCount + 1
If lngRecordCount = 1 Then
If Not isleernothing((currentRow(0))) = "Year Month Day" Then
If Not (isleernothing((currentRow(0))) = "Year Month Day" AndAlso isleernothing((currentRow(14))) = "OBO Number") Then
Return False
End If

7
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -67,6 +67,9 @@ Public Class cKunde
Property UStV_SummeVorschaubetragEUR As Object = Nothing
Property UStV_SummeVorschaubetragEUR_VERAG As Object = Nothing
Property UStV_SummeVorschaubetragEUR_IDS As Object = Nothing
Property UStV_SummeVorschaubetragEUR_MSE As Object = Nothing
Property UStV_SummeVorschaubetragEUR_UTA As Object = Nothing
Property UStV_SummeVorschaubetragEUR_IT As Object = Nothing
Property Fiskal As Boolean = False
Property Ausfuhr As Boolean = False
Property BankgarantieBetrag As Object = Nothing
@@ -184,6 +187,10 @@ Public Class cKunde
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_MSE", UStV_SummeVorschaubetragEUR_MSE))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_UTA", UStV_SummeVorschaubetragEUR_UTA))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IT", UStV_SummeVorschaubetragEUR_IT))
Return list
End Function

15
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -157,7 +157,9 @@ Public Class cMDMFunctionsAllgemein
curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate)
curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate)
curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate)
curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate)
'temporär deaktiviert!
'curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate)
curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -362,6 +364,7 @@ Public Class cMDMFunctionsAllgemein
End If
Next
'temoprär deaktiviert!!
If False Then
Dim sqlFMZollDatenNEU = "SELECT [tblIDSTransactionsNew].KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM([tblIDSTransactionsNew].[VAT Amount]) AS Vorschaubetrag
FROM tblIDSTransactionsNew INNER JOIN
@@ -408,6 +411,7 @@ Public Class cMDMFunctionsAllgemein
'1400 UStVKunden_Summen_lesen_Vorschau_IDS = UStVKunden_Summen_lesen_Vorschau_IDS + rst![Vorschaubetrag]
'1410 rst.MoveNext
'1420 Loop
Try
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
@@ -570,8 +574,10 @@ Public Class cMDMFunctionsAllgemein
End If
Next
Return summeAlteSchnittstelle
Return summeAlteSchnittstelle + summeNeueSchnittstelle
'temporär deaktiviert
'Return summeAlteSchnittstelle + summeNeueSchnittstelle
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
@@ -679,7 +685,10 @@ Public Class cMDMFunctionsAllgemein
Return summeNeueSchnittstelle
End If
Return summeAlteSchnittstelle + summeNeueSchnittstelle
Return summeAlteSchnittstelle
'temporär deaktiviert
'Return summeAlteSchnittstelle + summeNeueSchnittstelle
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)