Prozeduren, Mailsender, MSE-Automatik
This commit is contained in:
@@ -2380,7 +2380,7 @@ Module Mail
|
||||
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
|
||||
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")
|
||||
|
||||
Return sPath & excelBez & ".xlsx"
|
||||
@@ -2421,7 +2421,7 @@ Module Mail
|
||||
|
||||
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL")
|
||||
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")
|
||||
|
||||
Return sPath & excelBez & ".xlsx"
|
||||
|
||||
@@ -123,7 +123,7 @@ Public Class frmAPIZugaenge
|
||||
|
||||
If e.KeyCode = Keys.Enter 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
|
||||
loadDGV(sqladdon)
|
||||
End If
|
||||
@@ -133,7 +133,7 @@ Public Class frmAPIZugaenge
|
||||
Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProduktivsystem.CheckedChanged
|
||||
Dim sqladdon As String = ""
|
||||
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
|
||||
loadDGV(sqladdon)
|
||||
|
||||
@@ -165,7 +165,7 @@ Public Class frmAPIZugaenge
|
||||
|
||||
Dim sqladdon As String = ""
|
||||
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
|
||||
loadDGV(sqladdon)
|
||||
End Sub
|
||||
|
||||
12
UID/usrctlProcedures.Designer.vb
generated
12
UID/usrctlProcedures.Designer.vb
generated
@@ -112,6 +112,7 @@ Partial Class usrctlProcedures
|
||||
Me.Button31 = New System.Windows.Forms.Button()
|
||||
Me.Button32 = New System.Windows.Forms.Button()
|
||||
Me.lblStatus = New System.Windows.Forms.Label()
|
||||
Me.Button33 = New System.Windows.Forms.Button()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -953,10 +954,20 @@ Partial Class usrctlProcedures
|
||||
Me.lblStatus.TabIndex = 63
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.Button33)
|
||||
Me.Controls.Add(Me.lblStatus)
|
||||
Me.Controls.Add(Me.Button32)
|
||||
Me.Controls.Add(Me.Button31)
|
||||
@@ -1112,4 +1123,5 @@ Partial Class usrctlProcedures
|
||||
Friend WithEvents Button31 As Button
|
||||
Friend WithEvents Button32 As Button
|
||||
Friend WithEvents lblStatus As Label
|
||||
Friend WithEvents Button33 As Button
|
||||
End Class
|
||||
|
||||
@@ -123,10 +123,4 @@
|
||||
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</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>
|
||||
@@ -315,7 +315,7 @@ Public Class usrctlProcedures
|
||||
' & "authenticationLevel=pktPrivacy," _
|
||||
' & "authority=ntlmdomain:verag.ost.dmn," _
|
||||
' & "(Debug,!RemoteShutdown)}" _
|
||||
'& "[locale=ms_409]" _
|
||||
'& " DYIMPORT.locale=ms_409]" _
|
||||
'& "!\\User1\ROOT\CIMV2:Win32_LogicalDisk=""C:""")
|
||||
Dim Process
|
||||
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
|
||||
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 f = stamper.AcroFields
|
||||
|
||||
@@ -643,7 +643,7 @@ Public Class usrctlProcedures
|
||||
End Function
|
||||
|
||||
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)
|
||||
@@ -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.Open()
|
||||
|
||||
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [AVISO].[dbo].[Aviso] where [Ankunft] between @DatVon and @DatBis and Grenzstelle='SUB'", cn)
|
||||
'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND
|
||||
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, DYIMPORT.Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, DYIMPORT.Freigabe])) AND
|
||||
Dim VonStr = ""
|
||||
Dim BisStr = ""
|
||||
If i = 6 Then
|
||||
@@ -1442,9 +1442,9 @@ Public Class usrctlProcedures
|
||||
s = sr.ReadLine()
|
||||
|
||||
|
||||
Dim sql = "UPDATE [Adressen] " &
|
||||
" SET [Auswahl]='I' " &
|
||||
" WHERE [AdressenNr] = @kdnr"
|
||||
Dim sql = "UPDATE DYIMPORT.Adressen] " &
|
||||
" SET DYIMPORT.Auswahl]='I' " &
|
||||
" WHERE DYIMPORT.AdressenNr] = @kdnr"
|
||||
|
||||
Dim cn As New SqlConnection()
|
||||
cn.ConnectionString = My.Resources.connStringFMZOLL
|
||||
@@ -1490,21 +1490,21 @@ Public Class usrctlProcedures
|
||||
Dim cnt = 1
|
||||
'dim listAVISO = New List(Of cAviso)
|
||||
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
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
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
|
||||
addAenderung(NEWAVISOID, r2)
|
||||
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
|
||||
SpeichernVermerk(NEWAVISOID, r2)
|
||||
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
|
||||
@@ -1537,7 +1537,7 @@ Public Class usrctlProcedures
|
||||
|
||||
Public Sub addAenderung(NEWAVISOID As Integer, ByVal r As DataRow)
|
||||
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)"
|
||||
|
||||
Dim sql = hAuswahl
|
||||
@@ -2253,7 +2253,7 @@ Public Class usrctlProcedures
|
||||
KD.Zollvollmacht = CDate(vollmacht).ToShortDateString
|
||||
|
||||
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")
|
||||
Else
|
||||
KD.Zollvollmacht_vom = False
|
||||
@@ -2861,7 +2861,7 @@ Public Class usrctlProcedures
|
||||
' KD.Zollvollmacht = CDate(vollmacht).ToShortDateString
|
||||
|
||||
' 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")
|
||||
' Else
|
||||
' KD.Zollvollmacht_vom = False
|
||||
@@ -3442,6 +3442,261 @@ Public Class usrctlProcedures
|
||||
VERAG_PROG_ALLGEMEIN.cGoogleAPI.test()
|
||||
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)
|
||||
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
|
||||
2
VERAGMonitoring/My Project/Settings.Designer.vb
generated
2
VERAGMonitoring/My Project/Settings.Designer.vb
generated
@@ -15,7 +15,7 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<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)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
@@ -11,7 +11,7 @@
|
||||
<AssemblyName>VERAGMonitoring</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
@@ -166,6 +166,7 @@
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
|
||||
@@ -137,7 +137,6 @@
|
||||
<Compile Include="cATEZWorker.vb" />
|
||||
<Compile Include="cOREGONWorker.vb" />
|
||||
<Compile Include="cMAVIWorker.vb" />
|
||||
<Compile Include="cUTA.vb" />
|
||||
<Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb">
|
||||
<DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon>
|
||||
</Compile>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -3918,8 +3918,8 @@ Public Class cWorker_NCTS
|
||||
End Function
|
||||
Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
|
||||
Try
|
||||
' 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.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||
'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim division = ""
|
||||
Dim Wiedergestellungsdatum As Object = Nothing
|
||||
@@ -3954,19 +3954,19 @@ Public Class cWorker_NCTS
|
||||
|
||||
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
|
||||
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
|
||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
|
||||
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)
|
||||
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
|
||||
If a.Key = "LimitDate" Then
|
||||
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
'If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
|
||||
' 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)
|
||||
' 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
|
||||
' If a.Key = "LimitDate" Then
|
||||
' Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
End If
|
||||
'Verschluesse
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing 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
|
||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
@@ -4013,27 +4013,27 @@ Public Class cWorker_NCTS
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
'GARANTIE ÜBERSCHREIBEN:
|
||||
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()
|
||||
'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()
|
||||
|
||||
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
|
||||
Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||
' For Each GRT In GRT_M.GuaranteeReference
|
||||
' Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||
|
||||
|
||||
NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||
NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||
NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||
'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||
NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||
NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||
NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||
' NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||
' NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||
' NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||
' 'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||
' NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||
' NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||
' NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||
|
||||
Next
|
||||
Next
|
||||
NCTS_TMP.SAVE_Guarantee()
|
||||
End If
|
||||
' Next
|
||||
' Next
|
||||
' NCTS_TMP.SAVE_Guarantee()
|
||||
'End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
||||
|
||||
1142
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1142
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -6,8 +6,6 @@ Imports System.Xml
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
|
||||
Public Class frmStartOptions
|
||||
Dim WithEvents timer As New Timer
|
||||
|
||||
@@ -85,7 +83,7 @@ Public Class frmStartOptions
|
||||
|
||||
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
|
||||
|
||||
'PARAM = "mdm_mail_attach"
|
||||
PARAM = ""
|
||||
|
||||
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
|
||||
@@ -568,6 +566,139 @@ Public Class frmStartOptions
|
||||
|
||||
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
|
||||
'Nur bei manuellem Start wird der fehler ausgegeben
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
@@ -4305,10 +4436,10 @@ Public Class frmStartOptions
|
||||
End If
|
||||
If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value
|
||||
If node.HasChildNodes Then
|
||||
For Each element As XmlElement In node.ChildNodes
|
||||
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 = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText
|
||||
For Each element As XmlElement In node.ChildNodes
|
||||
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 = "iso3" AndAlso element.InnerText <> "" Then wk.fw_iso3 = element.InnerText
|
||||
If element.Name = "kurswert" AndAlso element.InnerText <> "" Then
|
||||
wk.fw_kurswert = element.InnerText
|
||||
End If
|
||||
@@ -4324,9 +4455,9 @@ Public Class frmStartOptions
|
||||
End If
|
||||
|
||||
Next
|
||||
count = count + 1
|
||||
wk.SAVE()
|
||||
End If
|
||||
count = count + 1
|
||||
wk.SAVE()
|
||||
End If
|
||||
Next
|
||||
Dim wk_euro
|
||||
|
||||
@@ -4348,19 +4479,17 @@ Public Class frmStartOptions
|
||||
|
||||
wk_euro.SAVE()
|
||||
|
||||
'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
|
||||
'If count <> sqlCount Then
|
||||
' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
|
||||
' 'erg = False
|
||||
'End If
|
||||
'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
|
||||
'If count <> sqlCount Then
|
||||
' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
|
||||
' 'erg = False
|
||||
'End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Using
|
||||
|
||||
Return erg
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -4491,6 +4620,9 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Function DELETE_Kundenumsaetze(deleteLastYears As Integer) As Boolean
|
||||
Try
|
||||
|
||||
@@ -4817,14 +4949,16 @@ Public Class frmStartOptions
|
||||
If sender Is LinkLabel59 Then
|
||||
dtTransactionID.Columns.Add("transaction_id", GetType(String))
|
||||
dtTransactionID.Columns.Add("found", GetType(Boolean))
|
||||
dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
|
||||
Dim R As DataRow = dtTransactionID.NewRow
|
||||
R("transaction_id") = txtTransactionID.Text
|
||||
R("found") = True
|
||||
R("batch_seq_nr") = 0
|
||||
dtTransactionID.Rows.Add(R)
|
||||
|
||||
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
|
||||
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
|
||||
Me.Visible = True
|
||||
@@ -4839,7 +4973,7 @@ Public Class frmStartOptions
|
||||
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")
|
||||
If dtTransactionID.Rows.Count = 0 Then
|
||||
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
|
||||
@@ -4863,6 +4997,10 @@ Public Class frmStartOptions
|
||||
Exit Sub
|
||||
Else
|
||||
|
||||
If dtTransactionID.Rows.Count = 1 Then
|
||||
txtBatchNrofTransaction.Text = dtTransactionID(0).Item("batch_seq_nr")
|
||||
End If
|
||||
|
||||
Dim dv = New DataView(dtTransactionID)
|
||||
Dim dtMissingTransactions As New DataTable
|
||||
dv.RowFilter = "found = false"
|
||||
@@ -4941,8 +5079,52 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = 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 Class
|
||||
Reference in New Issue
Block a user