irrer merge
This commit is contained in:
@@ -2,6 +2,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Public Class cPLOSE_Inv_Data
|
||||
|
||||
Property plInv_Id As Integer
|
||||
@@ -214,6 +215,7 @@ Public Class cPLOSE_Inv_Data
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
|
||||
Dim jahrEnd = jahr.ToString.Substring(2, 2)
|
||||
|
||||
If dtREohneDAID.Rows.Count > 0 Then
|
||||
|
||||
@@ -229,16 +231,40 @@ Public Class cPLOSE_Inv_Data
|
||||
|
||||
If filename <> "" Then
|
||||
|
||||
|
||||
|
||||
filename2 = filename.Replace("-", "_")
|
||||
|
||||
|
||||
|
||||
If Regex.IsMatch(filename, "^[A-Za-z]") Then
|
||||
Dim match As Match = Regex.Match(filename, "\d+")
|
||||
If match.Success Then
|
||||
filename3 = filename.Substring(match.Index).Trim
|
||||
filename4 = filename.Replace("-", "_")
|
||||
End If
|
||||
|
||||
ElseIf filename.Contains("_dk") Then 'Sonderlogik Dänemark
|
||||
|
||||
filename3 = filename.Replace(jahrEnd & "-", jahrEnd)
|
||||
filename4 = filename.Replace(jahrEnd & "-", jahrEnd)
|
||||
|
||||
ElseIf filename.Contains("_fy") Then 'Sonderlogik Norwegen
|
||||
|
||||
Dim indexOfFirst_ = filename.IndexOf("_fy")
|
||||
If filename.Length > indexOfFirst_ + 5 Then
|
||||
Dim month = filename.Substring(indexOfFirst_ + 3, 2)
|
||||
If IsNumeric(month) Then
|
||||
Dim test = month.IndexOf(0)
|
||||
Dim monthWithoutLeadingZero As String = month
|
||||
If monthWithoutLeadingZero.IndexOf(0) = 0 Then monthWithoutLeadingZero = monthWithoutLeadingZero.Replace("0", "")
|
||||
filename3 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
|
||||
filename4 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim daId As Integer = 0
|
||||
@@ -275,6 +301,62 @@ Public Class cPLOSE_Inv_Data
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function setWahrunginIvoiceFromTransactions(jahr As Integer, Optional message As Boolean = False, Optional kdNr As Integer = -1) As Boolean
|
||||
|
||||
If jahr > Now.Year Then Return False
|
||||
If jahr < 2020 Then Return False
|
||||
|
||||
|
||||
Dim REohneWaehrung As String = "SELECT [plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr],[plInv_SupplierCountry],[plInv_Lieferant]
|
||||
FROM [VERAG].[dbo].[tblPLOSE_Inv_Data]
|
||||
where YEAR( [plInv_SupplierRechnungsDatum]) = " & jahr & " and plInv_Currency is null " & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "") & "
|
||||
Group by [plInv_SupplierCountry],[plInv_Lieferant],[plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr]"
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtREohneWahrung As DataTable = SQL.loadDgvBySql(REohneWaehrung, "FMZOLL")
|
||||
|
||||
|
||||
|
||||
If dtREohneWahrung.Rows.Count > 0 Then
|
||||
|
||||
If vbYes = MsgBox("Details der fehlenden Währungen anzeigen?", vbYesNo) Then
|
||||
cProgramFunctions.genExcelFromDT_NEW(dtREohneWahrung,,, "Fehlende Währung in Rechnungen: " & jahr)
|
||||
End If
|
||||
|
||||
|
||||
If IIf(message, vbYes = MsgBox("Bei " & dtREohneWahrung.Rows.Count & " PLOSE-Rechnungen fehlt die Währungsbezeichnung in den Rechnungen." & vbNewLine & "Währung setzen?", vbYesNoCancel), True) Then
|
||||
|
||||
For Each r As DataRow In dtREohneWahrung.Rows
|
||||
|
||||
Dim Waehrungtabelle As DataTable = SQL.loadDgvBySql("Select plose_WaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plp_Land from tblPLOSE_Details INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode] WHERE plose_RechnungsNr = '" & r.Item("plInv_SupplierRechnungsNr") & "' And plose_RechnungsDatum = '" & r.Item("plInv_SupplierRechnungsDatum") & "' group by plose_WaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plp_Land", "FMZOLL")
|
||||
|
||||
If Waehrungtabelle.Rows.Count = 1 Then
|
||||
If Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung") = Waehrungtabelle.Rows(0).Item("plose_WaehrungLandDiesntleistung") And Waehrungtabelle.Rows(0).Item("plp_Land").ToString.Trim = r.Item("plInv_SupplierCountry").ToString.Trim Then
|
||||
Dim Waehrung As String = IIf(IsDBNull(Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung")), "", Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung"))
|
||||
If Waehrung <> "" Then
|
||||
SQL.doSQL("UPDATE [tblPLOSE_Inv_Data] SET plInv_Currency = '" & Waehrung & "' WHERE plInv_Currency is null and [plInv_SupplierRechnungsDatum] = '" & r.Item("plInv_SupplierRechnungsDatum") & "' AND [plInv_SupplierRechnungsNr] = '" & r.Item("plInv_SupplierRechnungsNr") & "' and [plInv_SupplierCountry] ='" & r.Item("plInv_SupplierCountry") & "'", "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
If message Then MsgBox("alle Währungen gesetzt!")
|
||||
Return True
|
||||
End If
|
||||
|
||||
Else
|
||||
If message Then MsgBox("keine fehlenden Währungen vorhanden!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
@@ -1940,6 +1940,12 @@ Public Class usrctlProcedures
|
||||
Return s.trim
|
||||
End Function
|
||||
|
||||
Function isleernothingremoveLinkebreaks(s) As Object
|
||||
If s Is DBNull.Value Then Return Nothing
|
||||
If s.ToString.Trim = "" Then Return Nothing
|
||||
Return s.trim.ToString.Replace(vbLf, "")
|
||||
End Function
|
||||
|
||||
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click, Button22.Click
|
||||
|
||||
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
@@ -3600,6 +3606,7 @@ Public Class usrctlProcedures
|
||||
|
||||
DYIMPORT.Packstückart = isleernothing((currentRow(99)))
|
||||
DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(100)))
|
||||
|
||||
'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(101)))
|
||||
|
||||
DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(102))) <> "", CDbl(isleernothing(currentRow(102))), 0)
|
||||
|
||||
@@ -375,8 +375,6 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
|
||||
Select Case i
|
||||
Case 1
|
||||
'------------------------------------------
|
||||
@@ -465,9 +463,7 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
'frmStartOptions.copyFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
addDGVEinarbeitung("PDF", DS.da_name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
|
||||
|
||||
@@ -352,6 +352,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Select Case invEndung
|
||||
Case "SP" : country = "ES" 'SPANIEN
|
||||
Case "DA" : country = "DK" 'DÄNEMARK
|
||||
Case "P1" : country = "PL" 'Portugal
|
||||
|
||||
'Case "RO" : country = "RO" 'RUMÄNIEN
|
||||
'Case "PL" : country = "PL" 'POLEN
|
||||
'Case "LV" : country = "LV" 'LETTLAND
|
||||
|
||||
1954
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1954
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -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