irrer merge
This commit is contained in:
@@ -5,7 +5,7 @@ Imports System.Net.Security
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports io.konik.zugferd
|
||||
Imports com.sun.org.apache.xerces.internal.impl.dv.xs
|
||||
Imports MDM_Worker
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -94,6 +94,7 @@ Public Class frmStartOptions
|
||||
cbxMSEalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
|
||||
cbxMSEneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
|
||||
cbxPlose.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
|
||||
cbxPloseNeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
|
||||
cbxITalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
|
||||
cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
|
||||
cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
|
||||
@@ -798,12 +799,13 @@ Public Class frmStartOptions
|
||||
Dim IDSneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
|
||||
Dim MSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
|
||||
Dim MSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
|
||||
Dim PLOSE = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
|
||||
Dim PLOSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
|
||||
Dim IT = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
|
||||
Dim UTAalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
|
||||
Dim UTAneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
|
||||
Dim PLOSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
|
||||
|
||||
cMDMFunctionsAllgemein.setSchnittstellen(PLOSE, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu)
|
||||
cMDMFunctionsAllgemein.setSchnittstellen(PLOSEalt, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu, PLOSEneu)
|
||||
|
||||
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
|
||||
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
|
||||
@@ -1285,6 +1287,8 @@ Public Class frmStartOptions
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub sendMailZollbelegGESTELLUNGSADRESSE(pfad As String, nga_id As Object, art As String, ByRef list As List(Of Integer), BezugsNr As String, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
Try
|
||||
If nga_id IsNot Nothing Then
|
||||
@@ -3978,17 +3982,17 @@ Public Class frmStartOptions
|
||||
End If
|
||||
SDL.Sachbearbeiter = "ASFINAG"
|
||||
|
||||
Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
|
||||
SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
If Validto <> "" Then
|
||||
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
|
||||
End If
|
||||
SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.SAVE()
|
||||
End If
|
||||
|
||||
@@ -4034,21 +4038,21 @@ Public Class frmStartOptions
|
||||
End If
|
||||
SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
|
||||
|
||||
Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
|
||||
Dim Validto = SQl.checkNullStr(row.Item("contractDate"))
|
||||
|
||||
SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
|
||||
SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber"))
|
||||
If Validto <> "" Then
|
||||
'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
|
||||
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
|
||||
End If
|
||||
|
||||
SDL.OBUID = SQL.checkNullStr(row.Item("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
|
||||
SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
|
||||
SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
|
||||
SDL.Status = SQL.checkNullStr(row.Item("status"))
|
||||
SDL.Nationalitaet = SQL.checkNullStr(row.Item("nationality"))
|
||||
SDL.CO2Kategorie = SQL.checkNullStr(row.Item("CO2EmissionsClass"))
|
||||
SDL.OBUID = SQl.checkNullStr(row.Item("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate"))
|
||||
SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory"))
|
||||
SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory"))
|
||||
SDL.Status = SQl.checkNullStr(row.Item("status"))
|
||||
SDL.Nationalitaet = SQl.checkNullStr(row.Item("nationality"))
|
||||
SDL.CO2Kategorie = SQl.checkNullStr(row.Item("CO2EmissionsClass"))
|
||||
SDL.SAVE()
|
||||
End If
|
||||
|
||||
@@ -4155,7 +4159,7 @@ Public Class frmStartOptions
|
||||
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
|
||||
@@ -4956,7 +4960,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
|
||||
Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles RMC_import.LinkClicked
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
@@ -4966,17 +4970,17 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
|
||||
Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_imports.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, cbxDateienlöschenUTA.Checked, False)
|
||||
f.year = txtUTAYear.Text
|
||||
f.UtaTestkunden = False
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
|
||||
Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Transaktions.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
@@ -5022,7 +5026,7 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked
|
||||
Private Sub MSE_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_RE.LinkClicked
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
@@ -5080,7 +5084,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked
|
||||
Private Sub MSETransakt_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransakt.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
@@ -5189,7 +5193,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked
|
||||
Private Sub MSE_Kunden_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Kunden.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
@@ -5217,10 +5221,10 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked, LinkLabel62.LinkClicked
|
||||
Private Sub MSETransID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransID.LinkClicked, MSE_missingTrans.LinkClicked, MSE_not_billed_Trans.LinkClicked
|
||||
|
||||
|
||||
If sender Is LinkLabel59 Then
|
||||
If sender Is MSETransID Then
|
||||
If Not IsNumeric(txtTransactionID.Text) Then
|
||||
MsgBox("ID muss 10stellige Nr sein!")
|
||||
Me.Visible = True
|
||||
@@ -5252,7 +5256,7 @@ Public Class frmStartOptions
|
||||
|
||||
Dim dtTransactionID = New DataTable
|
||||
|
||||
If sender Is LinkLabel59 Then
|
||||
If sender Is MSETransID Then
|
||||
dtTransactionID.Columns.Add("transaction_id", GetType(String))
|
||||
dtTransactionID.Columns.Add("found", GetType(Boolean))
|
||||
dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
|
||||
@@ -5262,7 +5266,7 @@ Public Class frmStartOptions
|
||||
R("batch_seq_nr") = 0
|
||||
dtTransactionID.Rows.Add(R)
|
||||
|
||||
ElseIf sender Is LinkLabel61 Then
|
||||
ElseIf sender Is MSE_missingTrans Then
|
||||
|
||||
dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found, 0 as batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & Date.Parse(datVon.Value).ToShortDateString & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
|
||||
If dtTransactionID.Rows.Count = 0 Then
|
||||
@@ -5276,7 +5280,7 @@ Public Class frmStartOptions
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
ElseIf sender Is LinkLabel62 Then
|
||||
ElseIf sender Is MSE_not_billed_Trans Then
|
||||
|
||||
|
||||
dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found, trans.batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] as bills
|
||||
@@ -5331,7 +5335,7 @@ Public Class frmStartOptions
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel60.LinkClicked
|
||||
Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Settlements.LinkClicked
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
@@ -5402,7 +5406,7 @@ Public Class frmStartOptions
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked)
|
||||
cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked, cbxPloseNeu.Checked)
|
||||
|
||||
If sender Is Button23 Then
|
||||
|
||||
@@ -5441,14 +5445,14 @@ Public Class frmStartOptions
|
||||
showPic(ok, PictureBox25)
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked, LinkLabel69.LinkClicked
|
||||
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_Laender.LinkClicked, IDS_Laendercode.LinkClicked, Laender_Steuercode.LinkClicked
|
||||
|
||||
Dim iso2Laneder = ""
|
||||
|
||||
Select Case sender.Name
|
||||
Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
|
||||
Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
|
||||
Case "LinkLabel69" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
|
||||
Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
|
||||
Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
|
||||
Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
|
||||
|
||||
End Select
|
||||
|
||||
@@ -5458,9 +5462,9 @@ Public Class frmStartOptions
|
||||
If dtiso2Laneder.Rows.Count > 0 Then
|
||||
For Each r As DataRow In dtiso2Laneder.Rows
|
||||
Select Case sender.Name
|
||||
Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
|
||||
Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
Case "LinkLabel69" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
|
||||
Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
|
||||
End Select
|
||||
|
||||
|
||||
@@ -5474,7 +5478,7 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
|
||||
Private Sub LinkLabel65_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel65.LinkClicked
|
||||
Private Sub IDS_import_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_import.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("IDS", False, False, cbxIDSUmbenenen.Checked, True)
|
||||
@@ -5485,7 +5489,7 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
|
||||
Private Sub LinkLabel66_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel66.LinkClicked
|
||||
Private Sub ATCNRinRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ATCNRinRE.LinkClicked
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
If txtMRNPrefix.Text = "" Then Exit Sub
|
||||
@@ -5537,14 +5541,26 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel70_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel70.LinkClicked
|
||||
|
||||
|
||||
Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null"
|
||||
|
||||
|
||||
Private Sub IDS_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_RE.LinkClicked
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
nochmal:
|
||||
|
||||
Select Case checkDatefromIDSInvioces("tblIDSInvoicesNew")
|
||||
Case 0 : Exit Sub
|
||||
Case 1 : GoTo nochmal
|
||||
Case 2 : GoTo weiter
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
weiter:
|
||||
|
||||
|
||||
Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
|
||||
|
||||
|
||||
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendeRechungsdaten, "FMZOLL")
|
||||
|
||||
If dtRechnnungsdaten.Rows.Count > 0 Then
|
||||
@@ -5581,9 +5597,9 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Next
|
||||
MsgBox("alle Rechnungsdaten gesetzt!")
|
||||
MsgBox("alle Daten in tblIDSInvoicesNew gesetzt!")
|
||||
Else
|
||||
MsgBox("keine fehlenden Rechnunngsdaten vorhanden!")
|
||||
MsgBox("keine fehlenden Daten in tblIDSInvoicesNew vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
@@ -5637,7 +5653,7 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
|
||||
Private Sub PlosePdfRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles PlosePdfRE.LinkClicked
|
||||
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
|
||||
Dim kdNrPlose As Integer = -1
|
||||
If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
|
||||
@@ -5646,13 +5662,22 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel90_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
|
||||
Private Sub IDS_REDetails_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_REDetails.LinkClicked
|
||||
|
||||
Exit Sub
|
||||
|
||||
Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%'"
|
||||
nochmal:
|
||||
|
||||
Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%'"
|
||||
Select Case checkDatefromIDSInvioces("tblIDSInvoicesNewSplittedByCountry")
|
||||
Case 0 : Exit Sub
|
||||
Case 1 : GoTo nochmal
|
||||
Case 2 : GoTo weiter
|
||||
End Select
|
||||
weiter:
|
||||
|
||||
|
||||
Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
|
||||
|
||||
Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
|
||||
|
||||
Dim fehlendeRechungsdatenTotalInvoiceID As String = "select CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TotalInvoiceId is null"
|
||||
|
||||
@@ -5699,9 +5724,9 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Next
|
||||
MsgBox("alle Rechnungspositionsdaten gesetzt!")
|
||||
MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR gesetzt!")
|
||||
Else
|
||||
MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
|
||||
MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
@@ -5739,9 +5764,9 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Next
|
||||
MsgBox("alle Rechnungspositionsdaten gesetzt!")
|
||||
MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry mit DVR gesetzt!")
|
||||
Else
|
||||
MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
|
||||
MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry mit DVR vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
@@ -5785,7 +5810,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel74_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel74.LinkClicked
|
||||
Private Sub UTAREPdf_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTAREPdf.LinkClicked
|
||||
|
||||
Dim utaDate As New Date
|
||||
|
||||
@@ -5824,7 +5849,7 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
|
||||
Private Sub KN8_DESTAT_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles KN8_DESTAT.LinkClicked
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
|
||||
@@ -5837,4 +5862,65 @@ Public Class frmStartOptions
|
||||
Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles Button27.Click
|
||||
cErrorHandler.sendERRORperMail(My.Application.Info.AssemblyName, "TEST", "", "error@verag.ag", "", "Error_Test")
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel52_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
|
||||
|
||||
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
|
||||
Dim kdNrPlose As Integer = -1
|
||||
If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
|
||||
|
||||
cPLOSE_Inv_Data.setWahrunginIvoiceFromTransactions(txtPloseJahr.Text, True, kdNrPlose)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function checkDatefromIDSInvioces(table As String) As Integer
|
||||
|
||||
|
||||
|
||||
Dim sql As New SQL
|
||||
|
||||
Dim fehlendeRechungsdatenDatum As String = "select distinct(cast(YearMonthDay as Date)) as YearMonthDay FROM [VERAG].[dbo].[" & table & "] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
|
||||
|
||||
Dim dtRechnnungsdatenfalschesDatum As DataTable = sql.loadDgvBySql(fehlendeRechungsdatenDatum, "FMZOLL")
|
||||
|
||||
For Each row As DataRow In dtRechnnungsdatenfalschesDatum.Rows
|
||||
|
||||
If Not IsDBNull(row.Item("YearMonthDay")) AndAlso row.Item("YearMonthDay") IsNot Nothing AndAlso IsDate(row.Item("YearMonthDay")) Then
|
||||
|
||||
Dim abrDate As Date = row.Item("YearMonthDay")
|
||||
|
||||
If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
|
||||
|
||||
If Not vbYes = MsgBox("Die IDS-Rechnungen besitzen das Datum: " & abrDate.ToShortDateString & "!" & vbNewLine & "Soll das Datum auf geändert werden", vbYesNoCancel) Then
|
||||
Return 0
|
||||
Else
|
||||
Dim f As New frmDatumsabfrage("IDS-falsches Rechnungsdatum: " & abrDate.ToShortDateString, True)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
If sql.doSQL("Update [" & table & "] set YearMonthDay = '" & f.Datum.ToShortDateString & "' where cast(YearMonthDay as Date) = '" & abrDate.ToShortDateString & "'", "FMZOLL") Then
|
||||
Return 1
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Return 2
|
||||
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user