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

Prozeduren, Mailsender, MSE-Automatik

Browse Source
This commit is contained in:
d.breimaier
2024-10-18 09:50:30 +02:00
parent 3950f2f100
commit ad16598414
13 changed files with 1158 additions and 1870 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
MailSender/MAILSender.vb
View File

@@ -2380,7 +2380,7 @@ Module Mail
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr) Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count) System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & von.ToShortDateString.Replace(".", "-") Dim excelBez = "TETRAPACK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK") genExcel(dt, excelBez, "TETRAPACK")
Return sPath & excelBez & ".xlsx" Return sPath & excelBez & ".xlsx"
@@ -2421,7 +2421,7 @@ Module Mail
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL") Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL")
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count) System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & von.ToShortDateString.Replace(".", "-") Dim excelBez = "TETRAPACK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK") genExcel(dt, excelBez, "TETRAPACK")
Return sPath & excelBez & ".xlsx" Return sPath & excelBez & ".xlsx"

6
UID/frmAPIZugaenge.vb
View File

@@ -123,7 +123,7 @@ Public Class frmAPIZugaenge
If e.KeyCode = Keys.Enter Then If e.KeyCode = Keys.Enter Then
If txtSuche.Text <> "" Then If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'" sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If End If
loadDGV(sqladdon) loadDGV(sqladdon)
End If End If
@@ -133,7 +133,7 @@ Public Class frmAPIZugaenge
Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProduktivsystem.CheckedChanged Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProduktivsystem.CheckedChanged
Dim sqladdon As String = "" Dim sqladdon As String = ""
If txtSuche.Text <> "" Then If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'" sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If End If
loadDGV(sqladdon) loadDGV(sqladdon)
@@ -165,7 +165,7 @@ Public Class frmAPIZugaenge
Dim sqladdon As String = "" Dim sqladdon As String = ""
If txtSuche.Text <> "" Then If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'" sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If End If
loadDGV(sqladdon) loadDGV(sqladdon)
End Sub End Sub

12
UID/usrctlProcedures.Designer.vb generated
View File

@@ -112,6 +112,7 @@ Partial Class usrctlProcedures
Me.Button31 = New System.Windows.Forms.Button() Me.Button31 = New System.Windows.Forms.Button()
Me.Button32 = New System.Windows.Forms.Button() Me.Button32 = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label()
Me.Button33 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -953,10 +954,20 @@ Partial Class usrctlProcedures
Me.lblStatus.TabIndex = 63 Me.lblStatus.TabIndex = 63
Me.lblStatus.Text = "Zeilen:" Me.lblStatus.Text = "Zeilen:"
' '
'Button33
'
Me.Button33.Location = New System.Drawing.Point(399, 29)
Me.Button33.Name = "Button33"
Me.Button33.Size = New System.Drawing.Size(145, 49)
Me.Button33.TabIndex = 64
Me.Button33.Text = "DAKOSY CSV Importieren"
Me.Button33.UseVisualStyleBackColor = True
'
'usrctlProcedures 'usrctlProcedures
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Button33)
Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.Button32) Me.Controls.Add(Me.Button32)
Me.Controls.Add(Me.Button31) Me.Controls.Add(Me.Button31)
@@ -1112,4 +1123,5 @@ Partial Class usrctlProcedures
Friend WithEvents Button31 As Button Friend WithEvents Button31 As Button
Friend WithEvents Button32 As Button Friend WithEvents Button32 As Button
Friend WithEvents lblStatus As Label Friend WithEvents lblStatus As Label
Friend WithEvents Button33 As Button
End Class End Class

6
UID/usrctlProcedures.resx
View File

@@ -123,10 +123,4 @@
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root> </root>

285
UID/usrctlProcedures.vb
View File

@@ -315,7 +315,7 @@ Public Class usrctlProcedures
' & "authenticationLevel=pktPrivacy," _ ' & "authenticationLevel=pktPrivacy," _
' & "authority=ntlmdomain:verag.ost.dmn," _ ' & "authority=ntlmdomain:verag.ost.dmn," _
' & "(Debug,!RemoteShutdown)}" _ ' & "(Debug,!RemoteShutdown)}" _
'& "[locale=ms_409]" _ '& " DYIMPORT.locale=ms_409]" _
'& "!\\User1\ROOT\CIMV2:Win32_LogicalDisk=""C:""") '& "!\\User1\ROOT\CIMV2:Win32_LogicalDisk=""C:""")
Dim Process Dim Process
test = False test = False
@@ -580,7 +580,7 @@ Public Class usrctlProcedures
For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners
Try Try
Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(file) Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(file)
Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create)) Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create))
Dim f = stamper.AcroFields Dim f = stamper.AcroFields
@@ -643,7 +643,7 @@ Public Class usrctlProcedures
End Function End Function
Sub pdf2() Sub pdf2()
Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf") Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open) Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open)
@@ -974,8 +974,8 @@ Public Class usrctlProcedures
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open() cn.Open()
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [AVISO].[dbo].[Aviso] where [Ankunft] between @DatVon and @DatBis and Grenzstelle='SUB'", cn) Using cmd As New SqlCommand("SELECT COUNT(*) FROM DYIMPORT.AVISO]. DYIMPORT.dbo]. DYIMPORT.Aviso] where DYIMPORT.Ankunft] between @DatVon and @DatBis and Grenzstelle='SUB'", cn)
'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND 'DATEADD(dd, 0, DATEDIFF(dd, 0, DYIMPORT.Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, DYIMPORT.Freigabe])) AND
Dim VonStr = "" Dim VonStr = ""
Dim BisStr = "" Dim BisStr = ""
If i = 6 Then If i = 6 Then
@@ -1442,9 +1442,9 @@ Public Class usrctlProcedures
s = sr.ReadLine() s = sr.ReadLine()
Dim sql = "UPDATE [Adressen] " & Dim sql = "UPDATE DYIMPORT.Adressen] " &
" SET [Auswahl]='I' " & " SET DYIMPORT.Auswahl]='I' " &
" WHERE [AdressenNr] = @kdnr" " WHERE DYIMPORT.AdressenNr] = @kdnr"
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = My.Resources.connStringFMZOLL cn.ConnectionString = My.Resources.connStringFMZOLL
@@ -1490,21 +1490,21 @@ Public Class usrctlProcedures
Dim cnt = 1 Dim cnt = 1
'dim listAVISO = New List(Of cAviso) 'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = sql.loadDgvBySql(" SELECT TOP (" & CInt(TextBox1.Text) & ") * FROM [AVISO_ATILLA].[dbo].[Aviso] WHERE Importiert=0 order by Avisoid ", "AVISO_ATILLA") ' Dim dt As DataTable = sql.loadDgvBySql(" SELECT TOP (" & CInt(TextBox1.Text) & ") * FROM DYIMPORT.AVISO_ATILLA]. DYIMPORT.dbo]. DYIMPORT.Aviso] WHERE Importiert=0 order by Avisoid ", "AVISO_ATILLA") '
' My.MySettings.Default.AVISO_ATILLAConnectionString ' My.MySettings.Default.AVISO_ATILLAConnectionString
For Each r As DataRow In dt.Rows For Each r As DataRow In dt.Rows
Dim NEWAVISOID = (SpeichernAviso(r)) Dim NEWAVISOID = (SpeichernAviso(r))
Dim dtAenderungen As DataTable = sql.loadDgvBySql(" SELECT * FROM [AVISO_ATILLA].[dbo].[Aenderungen] WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA") Dim dtAenderungen As DataTable = sql.loadDgvBySql(" SELECT * FROM DYIMPORT.AVISO_ATILLA]. DYIMPORT.dbo]. DYIMPORT.Aenderungen] WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA")
For Each r2 As DataRow In dtAenderungen.Rows For Each r2 As DataRow In dtAenderungen.Rows
addAenderung(NEWAVISOID, r2) addAenderung(NEWAVISOID, r2)
Next Next
Dim dtVermerke As DataTable = sql.loadDgvBySql(" SELECT * FROM [AVISO_ATILLA].[dbo].[Vermerke] WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA") Dim dtVermerke As DataTable = sql.loadDgvBySql(" SELECT * FROM DYIMPORT.AVISO_ATILLA]. DYIMPORT.dbo]. DYIMPORT.Vermerke] WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA")
For Each r2 As DataRow In dtVermerke.Rows For Each r2 As DataRow In dtVermerke.Rows
SpeichernVermerk(NEWAVISOID, r2) SpeichernVermerk(NEWAVISOID, r2)
Next Next
sql.doSQL(" UPDATE [AVISO_ATILLA].[dbo].[Aviso] SET Importiert=1 WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA") ' IMPORTIERT Setzen sql.doSQL(" UPDATE DYIMPORT.AVISO_ATILLA]. DYIMPORT.dbo]. DYIMPORT.Aviso] SET Importiert=1 WHERE Avisoid='" & r("AvisoID") & "'", "AVISO_ATILLA") ' IMPORTIERT Setzen
If cnt Mod 5 = 0 Then If cnt Mod 5 = 0 Then
@@ -1537,7 +1537,7 @@ Public Class usrctlProcedures
Public Sub addAenderung(NEWAVISOID As Integer, ByVal r As DataRow) Public Sub addAenderung(NEWAVISOID As Integer, ByVal r As DataRow)
Dim hAuswahl As String = " INSERT INTO Aenderungen " & Dim hAuswahl As String = " INSERT INTO Aenderungen " &
" ([AvisoID], [Datum], [Mitarbeiter], [MitarbeiterId], [Aenderung_Art], [Aenderung_Text]) " & " ( DYIMPORT.AvisoID], DYIMPORT.Datum], DYIMPORT.Mitarbeiter], DYIMPORT.MitarbeiterId], DYIMPORT.Aenderung_Art], DYIMPORT.Aenderung_Text]) " &
" VALUES (@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)" " VALUES (@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)"
Dim sql = hAuswahl Dim sql = hAuswahl
@@ -2253,7 +2253,7 @@ Public Class usrctlProcedures
KD.Zollvollmacht = CDate(vollmacht).ToShortDateString KD.Zollvollmacht = CDate(vollmacht).ToShortDateString
sql.doSQL("INSERT INTO tblKundenVollmachten " & sql.doSQL("INSERT INTO tblKundenVollmachten " &
" ([kdvm_KundenNr],[kdvm_kdvmaId] ,[kdvm_erhalten],[kdvm_erhalten_Datum],[kdvm_Info],[kdvm_datenarchivId]) " & " ( DYIMPORT.kdvm_KundenNr], DYIMPORT.kdvm_kdvmaId] , DYIMPORT.kdvm_erhalten], DYIMPORT.kdvm_erhalten_Datum], DYIMPORT.kdvm_Info], DYIMPORT.kdvm_datenarchivId]) " &
" VALUES ('" & KD.KundenNr & "',5 ,1,'" & CDate(vollmacht).ToShortDateString & "','',null) ", "FMZOLL") " VALUES ('" & KD.KundenNr & "',5 ,1,'" & CDate(vollmacht).ToShortDateString & "','',null) ", "FMZOLL")
Else Else
KD.Zollvollmacht_vom = False KD.Zollvollmacht_vom = False
@@ -2861,7 +2861,7 @@ Public Class usrctlProcedures
' KD.Zollvollmacht = CDate(vollmacht).ToShortDateString ' KD.Zollvollmacht = CDate(vollmacht).ToShortDateString
' sql.doSQL("INSERT INTO tblKundenVollmachten " & ' sql.doSQL("INSERT INTO tblKundenVollmachten " &
' " ([kdvm_KundenNr],[kdvm_kdvmaId] ,[kdvm_erhalten],[kdvm_erhalten_Datum],[kdvm_Info],[kdvm_datenarchivId]) " & ' " ( DYIMPORT.kdvm_KundenNr], DYIMPORT.kdvm_kdvmaId] , DYIMPORT.kdvm_erhalten], DYIMPORT.kdvm_erhalten_Datum], DYIMPORT.kdvm_Info], DYIMPORT.kdvm_datenarchivId]) " &
' " VALUES ('" & KD.KundenNr & "',5 ,1,'" & CDate(vollmacht).ToShortDateString & "','',null) ", "FMZOLL") ' " VALUES ('" & KD.KundenNr & "',5 ,1,'" & CDate(vollmacht).ToShortDateString & "','',null) ", "FMZOLL")
' Else ' Else
' KD.Zollvollmacht_vom = False ' KD.Zollvollmacht_vom = False
@@ -3442,6 +3442,261 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cGoogleAPI.test() VERAG_PROG_ALLGEMEIN.cGoogleAPI.test()
End Sub End Sub
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
Dim cnt = 0
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr_tmp = ""
Try
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToLower.EndsWith(".csv") Then
' fd.FileName.EndsWith(".csv")
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(";")
Dim currentRow As String()
While Not MyReader.EndOfData
Try
'
currentRow = MyReader.ReadFields()
If currentRow.Length > 2 Then
If Not (currentRow(0).Trim() = "Teilnehmer") Then
If currentRow.Length > 137 Then
Dim DYIMPORT As New VERAG_PROG_ALLGEMEIN.cDY_Zollanmeldungen_Import()
If Not DYIMPORT.hasEntry Then
DYIMPORT.Teilnehmer = isleernothing((currentRow(0)))
DYIMPORT.Anmeldeart_A = isleernothing((currentRow(1)))
DYIMPORT.Verfahren = isleernothing((currentRow(2)))
DYIMPORT.Bezugsnummer_LRN = isleernothing((currentRow(3)))
DYIMPORT.Anlagedatum = isleernothing((currentRow(4)))
DYIMPORT.Zeit = isleernothing((currentRow(5)))
DYIMPORT.Zeitpunkt_der_letzten_CUSTAX = isleernothing((currentRow(6)))
DYIMPORT.Überlassungsdatum = isleernothing((currentRow(7)))
DYIMPORT.Annahmedatum = isleernothing((currentRow(8)))
DYIMPORT.Registriernummer_MRN = isleernothing((currentRow(9)))
DYIMPORT.Weitere_Reg_Nr = isleernothing((currentRow(10)))
DYIMPORT.EDIFNR = isleernothing((currentRow(11)))
DYIMPORT.Versendungsland = isleernothing((currentRow(12)))
DYIMPORT.Art_der_Vertretung = isleernothing((currentRow(13)))
DYIMPORT.Vertreter_des_Anmelders = isleernothing((currentRow(14)))
DYIMPORT.Vertreter_AE_EORI = isleernothing((currentRow(15)))
DYIMPORT.AE_Name = isleernothing((currentRow(16)))
DYIMPORT.Versender_CZ_EORI = isleernothing((currentRow(17)))
DYIMPORT.CZ_Code = isleernothing((currentRow(18)))
DYIMPORT.CZ_Name = isleernothing((currentRow(19)))
DYIMPORT.CZ_Ländercode = isleernothing((currentRow(20)))
DYIMPORT.Empfänger_CN_EORI = isleernothing((currentRow(21)))
DYIMPORT.CN_Code = isleernothing((currentRow(22)))
DYIMPORT.CN_Name = isleernothing((currentRow(23)))
DYIMPORT.CN_Ländercode = isleernothing((currentRow(24)))
DYIMPORT.Anmelder_DT_EORI = isleernothing((currentRow(25)))
DYIMPORT.DT_Code = isleernothing((currentRow(26)))
DYIMPORT.DT_Name = isleernothing((currentRow(27)))
DYIMPORT.DT_Ländercode = isleernothing((currentRow(28)))
DYIMPORT.UstID_DT = isleernothing((currentRow(29)))
DYIMPORT.Käufer_BY_Name = isleernothing((currentRow(30)))
DYIMPORT.BY_EORI = isleernothing((currentRow(31)))
DYIMPORT.Verkäufer_SL_Name = isleernothing((currentRow(32)))
DYIMPORT.SL_EORI = isleernothing((currentRow(33)))
DYIMPORT.ZollRechtlicherStatus = isleernothing((currentRow(34)))
DYIMPORT.Bewilligungsnummer = isleernothing((currentRow(35)))
DYIMPORT.Gesamtgewicht = IIf(isleernothing((currentRow(36))) <> "", CDbl(isleernothing(currentRow(36))), 0)
DYIMPORT.Liefercode = isleernothing((currentRow(37)))
DYIMPORT.Lieferort = isleernothing((currentRow(38)))
DYIMPORT.Lieferkey = isleernothing((currentRow(39)))
DYIMPORT.Geschäftsart = isleernothing((currentRow(40)))
DYIMPORT.Rechnungsbetrag = IIf(isleernothing((currentRow(41))) <> "", CDbl(isleernothing(currentRow(41))), 0)
DYIMPORT.Rechnungswährung = isleernothing((currentRow(42)))
DYIMPORT.Rechnungskurs = IIf(isleernothing((currentRow(43))) <> "", CDbl(isleernothing(currentRow(43))), 0)
DYIMPORT.Zollstelle = isleernothing((currentRow(44)))
DYIMPORT.Aufschubart = isleernothing((currentRow(45)))
DYIMPORT.HZAZoll = isleernothing((currentRow(46)))
DYIMPORT.KontoZoll = isleernothing((currentRow(47)))
DYIMPORT.TextZoll = isleernothing((currentRow(48)))
DYIMPORT.EORIZoll = isleernothing((currentRow(49)))
DYIMPORT.KennzeichenEigenZoll = isleernothing((currentRow(50)))
DYIMPORT.ArtEust = isleernothing((currentRow(51)))
DYIMPORT.HZAEust = isleernothing((currentRow(52)))
DYIMPORT.KontoEusT = isleernothing((currentRow(53)))
DYIMPORT.TextEust = isleernothing((currentRow(54)))
DYIMPORT.EORIEust = isleernothing((currentRow(55)))
DYIMPORT.KennzeichenEigenEust = isleernothing((currentRow(56)))
DYIMPORT.Container = isleernothing((currentRow(57)))
DYIMPORT.Unterlagenzeile = isleernothing((currentRow(58)))
DYIMPORT.Unterlagenbereich = isleernothing((currentRow(59)))
DYIMPORT.Unterlagenart = isleernothing((currentRow(60)))
DYIMPORT.Unterlagennummer = isleernothing((currentRow(61)))
DYIMPORT.Unterlagendatum = isleernothing((currentRow(62)))
DYIMPORT.PositionNo = isleernothing((currentRow(63)))
DYIMPORT.Positionen = isleernothing((currentRow(64)))
DYIMPORT.Vorausstl_Zollabgabe = IIf(isleernothing((currentRow(65))) <> "", CDbl(isleernothing(currentRow(65))), 0)
DYIMPORT.Vorausstl_Zollsatzabgabe = IIf(isleernothing((currentRow(66))) <> "", CDbl(isleernothing(currentRow(66))), 0)
DYIMPORT.Vorausstl_Eustabgabe = IIf(isleernothing((currentRow(67))) <> "", CDbl(isleernothing(currentRow(67))), 0)
DYIMPORT.Vorausstl_Eustsatzabgabe = IIf(isleernothing((currentRow(68))) <> "", CDbl(isleernothing(currentRow(68))), 0)
DYIMPORT.Zollwert = IIf(isleernothing((currentRow(69))) <> "", CDbl(isleernothing(currentRow(69))), 0)
DYIMPORT.AbgabeZoll = IIf(isleernothing((currentRow(70))) <> "", CDbl(isleernothing(currentRow(70))), 0)
DYIMPORT.AbgabeZollsatz = IIf(isleernothing((currentRow(71))) <> "", CDbl(isleernothing(currentRow(71))), 0)
DYIMPORT.Eustwert = IIf(isleernothing((currentRow(72))) <> "", CDbl(isleernothing(currentRow(72))), 0)
DYIMPORT.AbgabeEust = IIf(isleernothing((currentRow(73))) <> "", CDbl(isleernothing(currentRow(73))), 0)
DYIMPORT.AbgabeEustsatz = IIf(isleernothing((currentRow(74))) <> "", CDbl(isleernothing(currentRow(74))), 0)
DYIMPORT.AbgabeAntidumping = IIf(isleernothing((currentRow(75))) <> "", CDbl(isleernothing(currentRow(75))), 0)
DYIMPORT.AbgabeAntidumpingSatz = IIf(isleernothing((currentRow(76))) <> "", CDbl(isleernothing(currentRow(76))), 0)
DYIMPORT.Status_Steuerbescheid = isleernothing((currentRow(77)))
DYIMPORT.ArtikelCode = isleernothing((currentRow(78)))
DYIMPORT.Warentarifnummer = isleernothing((currentRow(79)))
DYIMPORT.Warenzusatz1 = isleernothing((currentRow(80)))
DYIMPORT.Warenzusatz2 = isleernothing((currentRow(81)))
DYIMPORT.Warenbezeichnung = isleernothing((currentRow(82)))
DYIMPORT.Verfahren2 = isleernothing((currentRow(83)))
DYIMPORT.EU_Code = isleernothing((currentRow(84)))
DYIMPORT.Artikelpreis = IIf(isleernothing((currentRow(85))) <> "", CDbl(isleernothing(currentRow(85))), 0)
DYIMPORT.Statistischerwert = IIf(isleernothing((currentRow(86))) <> "", CDbl(isleernothing(currentRow(86))), 0)
DYIMPORT.Eust_manuell = IIf(isleernothing((currentRow(87))) <> "", CDbl(isleernothing(currentRow(87))), 0)
DYIMPORT.Ursprung = isleernothing((currentRow(88)))
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(89)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(90)))
DYIMPORT.Rohmasse = IIf(isleernothing((currentRow(91))) <> "", CDbl(isleernothing(currentRow(91))), 0)
DYIMPORT.Rohmasseeinheit = isleernothing((currentRow(92)))
DYIMPORT.Eigenmasse = IIf(isleernothing((currentRow(93))) <> "", CDbl(isleernothing(currentRow(93))), 0)
DYIMPORT.Eigenmasseeinheit = isleernothing((currentRow(94)))
DYIMPORT.Positionszusatz = isleernothing((currentRow(95)))
DYIMPORT.Aussenhandelstatistische_Menge = IIf(isleernothing((currentRow(96))) <> "", CDbl(isleernothing(currentRow(96))), 0)
DYIMPORT.Maßeinheit = isleernothing((currentRow(97)))
DYIMPORT.AnzahlPackstücke = IIf(isleernothing((currentRow(98))) <> "", CDbl(isleernothing(currentRow(98))), 0)
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)
DYIMPORT.SonderAbgabeEust = IIf(isleernothing((currentRow(103))) <> "", CDbl(isleernothing(currentRow(103))), 0)
DYIMPORT.AbgabeZusatzzölle = IIf(isleernothing((currentRow(104))) <> "", CDbl(isleernothing(currentRow(104))), 0)
DYIMPORT.SonderAbgabeAntidumping = IIf(isleernothing((currentRow(105))) <> "", CDbl(isleernothing(currentRow(105))), 0)
DYIMPORT.Verbrauchssteuern = IIf(isleernothing((currentRow(106))) <> "", CDbl(isleernothing(currentRow(106))), 0)
DYIMPORT.Positionsunterlagenzeile = isleernothing((currentRow(107)))
DYIMPORT.Positionsunterlagenbereich = isleernothing((currentRow(108)))
DYIMPORT.Positionsunterlagenart = isleernothing((currentRow(109)))
DYIMPORT.Positionsunterlagennummer = isleernothing((currentRow(110)))
DYIMPORT.Positionsunterlagendatum = isleernothing((currentRow(111)))
DYIMPORT.DV1Rechnungsbetrag = IIf(isleernothing((currentRow(112))) <> "", CDbl(isleernothing(currentRow(112))), 0)
DYIMPORT.DV1Währung = isleernothing((currentRow(113)))
DYIMPORT.DV1UmgerechnerterRechnungsbetrag = IIf(isleernothing((currentRow(114))) <> "", CDbl(isleernothing(currentRow(114))), 0)
DYIMPORT.DV1UmgerechneteWährung = isleernothing((currentRow(115)))
DYIMPORT.DV1Versicherung = IIf(isleernothing((currentRow(116))) <> "", CDbl(isleernothing(currentRow(116))), 0)
DYIMPORT.DV1Versicherungswährung = isleernothing((currentRow(117)))
DYIMPORT.DV1Luftfrachtkosten = IIf(isleernothing((currentRow(118))) <> "", CDbl(isleernothing(currentRow(118))), 0)
DYIMPORT.DV1Luftfrachtwährung = isleernothing((currentRow(119)))
DYIMPORT.DV1Frachtkosten = IIf(isleernothing((currentRow(120))) <> "", CDbl(isleernothing(currentRow(120))), 0)
DYIMPORT.DV1Frachtwährung = isleernothing((currentRow(121)))
DYIMPORT.DV1Materialien = IIf(isleernothing((currentRow(122))) <> "", CDbl(isleernothing(currentRow(122))), 0)
DYIMPORT.DV1Materialwährung = isleernothing((currentRow(123)))
DYIMPORT.DV1Provisionen = IIf(isleernothing((currentRow(124))) <> "", CDbl(isleernothing(currentRow(124))), 0)
DYIMPORT.DV1Provisionwährung = isleernothing((currentRow(125)))
DYIMPORT.Abflughafen_Code = isleernothing((currentRow(126)))
DYIMPORT.Abflughafen_Text = isleernothing((currentRow(127)))
DYIMPORT.Vorpapierart = isleernothing((currentRow(128)))
DYIMPORT.Vorpapiere_Regnummer = isleernothing((currentRow(129)))
DYIMPORT.BEAnteil_SumA = isleernothing((currentRow(130)))
DYIMPORT.BEAnteil_ZL = IIf(isleernothing((currentRow(131))) <> "", CDbl(isleernothing(currentRow(131))), 0)
DYIMPORT.BEAnteil_AV = IIf(isleernothing((currentRow(132))) <> "", CDbl(isleernothing(currentRow(132))), 0)
DYIMPORT.UST_ID_Einführer = isleernothing((currentRow(133)))
DYIMPORT.UST_ID_Erwerber = isleernothing((currentRow(134)))
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(135)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(136)))
DYIMPORT.Importstatus = isleernothing((currentRow(137)))
If DYIMPORT.SAVE() Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine
Else
MsgBox("FEHLER: " & currentRow(2).Trim())
End If
End If
If cnt Mod 10 = 0 Then
Application.DoEvents()
Label10.Text = (cnt + 1)
End If
Else
'MsgBox(currentRow(2))
End If
End If
End If
'For Each currentField In currentRow
cnt += 1
'Next
Catch ex As Exception
MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace)
End Try
End While
End Using
End If
End If
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
End Try
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) 'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")

2
VERAGMonitoring/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup> </startup>
</configuration> </configuration>

2
VERAGMonitoring/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase

3
VERAGMonitoring/VERAGMonitoring.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>VERAGMonitoring</AssemblyName> <AssemblyName>VERAGMonitoring</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion> <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile /> <TargetFrameworkProfile />
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
@@ -166,6 +166,7 @@
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb"> <Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>

1
initATLASAufschubkonten/RoutineManager.vbproj
View File

@@ -137,7 +137,6 @@
<Compile Include="cATEZWorker.vb" /> <Compile Include="cATEZWorker.vb" />
<Compile Include="cOREGONWorker.vb" /> <Compile Include="cOREGONWorker.vb" />
<Compile Include="cMAVIWorker.vb" /> <Compile Include="cMAVIWorker.vb" />
<Compile Include="cUTA.vb" />
<Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb"> <Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb">
<DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon> <DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon>
</Compile> </Compile>

1277
initATLASAufschubkonten/cUTA.vb
View File

File diff suppressed because it is too large Load Diff

62
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -3918,8 +3918,8 @@ Public Class cWorker_NCTS
End Function End Function
Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
Try Try
' Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d) Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d) 'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
Dim MRN = "" Dim MRN = ""
Dim division = "" Dim division = ""
Dim Wiedergestellungsdatum As Object = Nothing Dim Wiedergestellungsdatum As Object = Nothing
@@ -3954,19 +3954,19 @@ Public Class cWorker_NCTS
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten. ' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then 'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein! ' If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) ' Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then ' If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails ' For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
If a.Key = "LimitDate" Then ' If a.Key = "LimitDate" Then
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture) ' Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
End If ' End If
Next ' Next
End If ' End If
End If ' End If
End If End If
'Verschluesse 'Verschluesse
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
@@ -3990,7 +3990,7 @@ Public Class cWorker_NCTS
End If End If
End If 'End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
@@ -4013,27 +4013,27 @@ Public Class cWorker_NCTS
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'GARANTIE ÜBERSCHREIBEN: 'GARANTIE ÜBERSCHREIBEN:
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then 'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
NCTS_TMP.ncts_GUARANTEE.Clear() ' NCTS_TMP.ncts_GUARANTEE.Clear()
For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee ' For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
For Each GRT In GRT_M.GuaranteeReference ' For Each GRT In GRT_M.GuaranteeReference
Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee ' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType ' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference ' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered ' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode ' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
NCTS_GRT.nctsGRT_GRN = GRT.GRN ' NCTS_GRT.nctsGRT_GRN = GRT.GRN
NCTS_GRT.nctsGRT_Currency = GRT.Currency ' NCTS_GRT.nctsGRT_Currency = GRT.Currency
NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT) ' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
Next ' Next
Next ' Next
NCTS_TMP.SAVE_Guarantee() ' NCTS_TMP.SAVE_Guarantee()
End If 'End If
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT

1142
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

226
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,8 +6,6 @@ Imports System.Xml
Imports Renci.SshNet Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmStartOptions Public Class frmStartOptions
Dim WithEvents timer As New Timer Dim WithEvents timer As New Timer
@@ -85,7 +83,7 @@ Public Class frmStartOptions
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
'PARAM = "mdm_mail_attach" PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
@@ -568,6 +566,139 @@ Public Class frmStartOptions
closeMe() closeMe()
'------------------------------ '------------------------------
Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeden Tag/1x pro Woche?
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice")
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim dt As New DataTable
If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT")
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True)
If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions")
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If dt.Rows.Count > 0 Then dt.Clear()
fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i)
If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage")
Exit Sub
End If
i = i + 1
Next
End If
API.UPDTAE_OK()
End If
Case "MSE_NEWSETTLEMENTS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim dt As New DataTable
If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT")
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getNewestSettlements(token, dt, batchrequestNr, totalPages, 0)
If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestSettlements")
Me.Visible = True
Exit Sub
End If
API.UPDTAE_OK()
End If
Case "MSE_NEWCUSTOMERS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim dt As New DataTable
If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT")
Exit Sub
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getCustomers(token, dt)
If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "getCustomers")
Exit Sub
End If
API.UPDTAE_OK()
End If
Case "MSE_NEWINVOICES_IMPORT" 'jeweils am 15/letzen Tage des Monats
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT")
Else
fehler = mse.getInvoices(token, invoice, Today(), Today(), True)
If fehler <> "" Then
API.UPDTAE_ERR("Datum: " & Today(), fehler, "getInvoices")
Exit Sub
End If
If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then
Dim dvInvoice As New DataView(invoice)
Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
For Each r As DataRow In distinctInv.Rows
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0)
If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromInvoiceID")
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If transactions.Rows.Count > 0 Then transactions.Clear()
fehler = mse.getSettlementsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromBatchNrAndPage")
Exit Sub
End If
Next
End If
Next
End If
API.UPDTAE_OK()
End If
Case Else Case Else
'Nur bei manuellem Start wird der fehler ausgegeben 'Nur bei manuellem Start wird der fehler ausgegeben
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
@@ -4305,10 +4436,10 @@ Public Class frmStartOptions
End If End If
If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value
If node.HasChildNodes Then If node.HasChildNodes Then
For Each element As XmlElement In node.ChildNodes For Each element As XmlElement In node.ChildNodes
If element.Name = "land" AndAlso element.InnerText <> "" Then wk.fw_land = element.InnerText If element.Name = "land" AndAlso element.InnerText <> "" Then wk.fw_land = element.InnerText
If element.Name = "iso2" AndAlso element.InnerText <> "" Then wk.fw_iso2 = element.InnerText If element.Name = "iso2" AndAlso element.InnerText <> "" Then wk.fw_iso2 = element.InnerText
If element.Name = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText If element.Name = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText
If element.Name = "kurswert" AndAlso element.InnerText <> "" Then If element.Name = "kurswert" AndAlso element.InnerText <> "" Then
wk.fw_kurswert = element.InnerText wk.fw_kurswert = element.InnerText
End If End If
@@ -4324,9 +4455,9 @@ Public Class frmStartOptions
End If End If
Next Next
count = count + 1 count = count + 1
wk.SAVE() wk.SAVE()
End If End If
Next Next
Dim wk_euro Dim wk_euro
@@ -4348,19 +4479,17 @@ Public Class frmStartOptions
wk_euro.SAVE() wk_euro.SAVE()
'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL") 'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
'If count <> sqlCount Then 'If count <> sqlCount Then
' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count) ' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
' 'erg = False ' 'erg = False
'End If 'End If
End If
End If End If
End If
End Using End Using
Return erg Return erg
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
End Try End Try
@@ -4491,6 +4620,9 @@ Public Class frmStartOptions
End Try End Try
End Function End Function
Function DELETE_Kundenumsaetze(deleteLastYears As Integer) As Boolean Function DELETE_Kundenumsaetze(deleteLastYears As Integer) As Boolean
Try Try
@@ -4817,14 +4949,16 @@ Public Class frmStartOptions
If sender Is LinkLabel59 Then If sender Is LinkLabel59 Then
dtTransactionID.Columns.Add("transaction_id", GetType(String)) dtTransactionID.Columns.Add("transaction_id", GetType(String))
dtTransactionID.Columns.Add("found", GetType(Boolean)) dtTransactionID.Columns.Add("found", GetType(Boolean))
dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
Dim R As DataRow = dtTransactionID.NewRow Dim R As DataRow = dtTransactionID.NewRow
R("transaction_id") = txtTransactionID.Text R("transaction_id") = txtTransactionID.Text
R("found") = True R("found") = True
R("batch_seq_nr") = 0
dtTransactionID.Rows.Add(R) dtTransactionID.Rows.Add(R)
ElseIf sender Is LinkLabel61 Then ElseIf sender Is LinkLabel61 Then
dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found 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") 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 If dtTransactionID.Rows.Count = 0 Then
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!") MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
Me.Visible = True Me.Visible = True
@@ -4839,7 +4973,7 @@ Public Class frmStartOptions
ElseIf sender Is LinkLabel62 Then ElseIf sender Is LinkLabel62 Then
dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found FROM [VERAG].[dbo].[tblMSESettlements] as bills dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found, trans.batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] as bills
inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] where trans.[transaction_status] <> 'Billed' and [invoice_date] = '" & datVon.Value & " '", "FMZOLL") inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] where trans.[transaction_status] <> 'Billed' and [invoice_date] = '" & datVon.Value & " '", "FMZOLL")
If dtTransactionID.Rows.Count = 0 Then If dtTransactionID.Rows.Count = 0 Then
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!") MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
@@ -4863,6 +4997,10 @@ Public Class frmStartOptions
Exit Sub Exit Sub
Else Else
If dtTransactionID.Rows.Count = 1 Then
txtBatchNrofTransaction.Text = dtTransactionID(0).Item("batch_seq_nr")
End If
Dim dv = New DataView(dtTransactionID) Dim dv = New DataView(dtTransactionID)
Dim dtMissingTransactions As New DataTable Dim dtMissingTransactions As New DataTable
dv.RowFilter = "found = false" dv.RowFilter = "found = false"
@@ -4941,8 +5079,52 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim ok = False Dim ok = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
If txtKdNr.Text <> "" AndAlso IsNumeric(txtKdNr.Text) Then
Dim ad As New cAdressen(txtKdNr.Text)
If ad Is Nothing Then
MsgBox("Diese KundenNr gibt es nicht!")
showPic(ok, PictureBox25)
Exit Sub
End If
If ad.Auswahl <> "A" Then
MsgBox("Dieser Kunde ist inaktiv!")
showPic(ok, PictureBox25)
Exit Sub
End If
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(ad.AdressenNr) Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(ad.AdressenNr)
End If
Else
'ansonsten alle Kunden
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
End If
End If
showPic(ok, PictureBox25)
End Sub
Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked
Dim iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(iso2Laneder, "FMZOLL")
If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows
SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
Next
MsgBox("alle Länder gesetzt!")
Else
MsgBox("keine fehlenden Länder vorhanden!")
End If
End Sub End Sub
End Class End Class