diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 4657516..7ce08c1 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -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" diff --git a/UID/frmAPIZugaenge.vb b/UID/frmAPIZugaenge.vb index 539d909..59e0924 100644 --- a/UID/frmAPIZugaenge.vb +++ b/UID/frmAPIZugaenge.vb @@ -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 diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index f24a0c0..44f912e 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/UID/usrctlProcedures.Designer.vb @@ -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 diff --git a/UID/usrctlProcedures.resx b/UID/usrctlProcedures.resx index c9977e7..508fc32 100644 --- a/UID/usrctlProcedures.resx +++ b/UID/usrctlProcedures.resx @@ -123,10 +123,4 @@ True - - True - - - True - \ No newline at end of file diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 42c43d7..f770df9 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -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") diff --git a/VERAGMonitoring/App.config b/VERAGMonitoring/App.config index 5f70bbd..a86c646 100644 --- a/VERAGMonitoring/App.config +++ b/VERAGMonitoring/App.config @@ -1,6 +1,6 @@ - + diff --git a/VERAGMonitoring/My Project/Settings.Designer.vb b/VERAGMonitoring/My Project/Settings.Designer.vb index af0b39a..4a489f0 100644 --- a/VERAGMonitoring/My Project/Settings.Designer.vb +++ b/VERAGMonitoring/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/VERAGMonitoring/VERAGMonitoring.vbproj b/VERAGMonitoring/VERAGMonitoring.vbproj index 44633e9..5060187 100644 --- a/VERAGMonitoring/VERAGMonitoring.vbproj +++ b/VERAGMonitoring/VERAGMonitoring.vbproj @@ -11,7 +11,7 @@ VERAGMonitoring 512 WindowsForms - v4.7 + v4.8 @@ -166,6 +166,7 @@ True Application.myapp + True True diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj index 2999689..476f438 100644 --- a/initATLASAufschubkonten/RoutineManager.vbproj +++ b/initATLASAufschubkonten/RoutineManager.vbproj @@ -137,7 +137,6 @@ - frmNachrichtenVerarbeitung_MDM_divers.vb diff --git a/initATLASAufschubkonten/cUTA.vb b/initATLASAufschubkonten/cUTA.vb deleted file mode 100644 index cb70f36..0000000 --- a/initATLASAufschubkonten/cUTA.vb +++ /dev/null @@ -1,1277 +0,0 @@ -Imports System.Data.SqlClient -Imports System.IO -Imports System.Reflection -Imports VERAG_PROG_ALLGEMEIN - -Public Class cUTA - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Public Function clearimporttable() As Boolean - - Return SQL.doSQL("DELETE FROM tblUTAImportNew", "FMZOLL") - - End Function - - Public Function importUTALeistungen() As Boolean - - 'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind. - Dim query = "INSERT INTO tblUTALeistungen (Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr ) - Select tblUTAImportNew.Fakturierwarenart, tblUTAImportNew.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr - From tblUTAImportNew INNER Join tblUTAFakturierwarenarten On tblUTAImportNew.Fakturierwarenart = tblUTAFakturierwarenarten.Fakturierwarenart - Group By tblUTAImportNew.Fakturierwarenart, tblUTAImportNew.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr - HAVING((((SELECT tblUTALeistungen.Fakturierwarenart FROM tblUTALeistungen WHERE tblUTALeistungen.Fakturierwarenart=tblUTAImportNew.Fakturierwarenart And tblUTALeistungen.Lieferland=tblUTAImportNew.Lieferland)) Is Null))" - - Return SQL.doSQL(query, "FMZOLL") - - End Function - - Public Class UTAHeader - - Property Übertragungsnummer As Integer - Property ErstellDatumUhrzeit As DateTime - Property Absender_ID As Object = Nothing - Property Empfänger_ID As Object = Nothing - Property Filler_Feld_5 As Object = Nothing - Property Abrechnungsnummer As Object = Nothing - Property DTF_Format As Object = Nothing - - Public hasEntry = False - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New(Übertragungsnummer, ErstellDatumUhrzeit) - Me.Übertragungsnummer = Übertragungsnummer - Me.ErstellDatumUhrzeit = ErstellDatumUhrzeit - LOAD() - End Sub - - Sub New() - - End Sub - - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsnummer", Übertragungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstellDatumUhrzeit", ErstellDatumUhrzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender_ID", Absender_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger_ID", Empfänger_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_5", Filler_Feld_5)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abrechnungsnummer", Abrechnungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DTF_Format", DTF_Format)) - - Return list - End Function - - Public Function SAVE() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblUTAHeaderNew WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit = @ErstellDatumUhrzeit) " & - " BEGIN " & getUpdateCmd() & " End " & - " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " - - Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) - End Function - - Public Sub LOAD() - Try - hasEntry = False - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("Select * FROM tblUTAHeaderNew WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit = @ErstellDatumUhrzeit", conn) - cmd.Parameters.AddWithValue("@Übertragungsnummer", Übertragungsnummer) - cmd.Parameters.AddWithValue("@ErstellDatumUhrzeit", ErstellDatumUhrzeit) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each li In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) - - If dr.Item(li.Text) Is Nothing Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(li.Text)) - End If - - Next - hasEntry = True - End If - dr.Close() - End Using - End Using - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - End Sub - - - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblUTAHeaderNew] SET " & str & " WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit = @ErstellDatumUhrzeit ") - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblUTAHeaderNew (" & str & ") VALUES(" & values & ") ") - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - End Class - - Public Class UTABody - - - Property ErstellDatumUhrzeit As DateTime - Property Übertragungsnummer As Integer - Property Übertragungsposition As Integer - Property Abrechnungsnummer As Double - Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime - Property Rechnungsempfänger_Kundennummer As Integer - Property Abrechnungsdatum As DateTime - Property Kundennummer As Integer - Property Kartennummer As String - Property Belegdatum As DateTime - Property Akzeptanzstellennummer As Double - Property Standort_der_Akzeptanzstelle As String - Property Lieferland As String - Property Belegnummer_des_Lieferanten As String - Property Kilometerstand As Double - Property Fakturierwarenart As String - Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Char - Property Menge As Double - Property SB_BT As Char - Property Umsatzsteuerprozentsatz As Double - Property Lieferlandwährung_ISO As String - Property Einzelpreis_Brutto_in_Lieferlandwährung As Double - Property Einzelpreis_Netto_in_Lieferlandwährung As Double - Property Betrag_Service_in_Lieferlandwährung As Double - Property Betrag_Nachlass_in_Lieferlandwährung As Double - Property Gesamtbetrag_Netto_in_Lieferlandwährung As Double - Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Double - Property Darstellwährung_ISO As String - Property Betrag_Service_in_Darstellwährung As Double - Property Betrag_Nachlass_in_Darstellwährung As Double - Property Gesamtbetrag_Netto_in_Darstellwährung As Double - Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Double - Property Gesamtbetrag_Brutto_in_Darstellwährung As Double - Property Prägetext_i_d_R_KFZ_Kennzeichen As String - Property Kunden_Kostenstelle_1 As String - Property Kartentyp As String - Property Filler_Feld_35 As Char - Property Filler_Feld_36 As String - Property KZ_Autobahn As Char - Property INFO_Feld As String - Property KFZ_Kennzeichen As String - Property Filler_Feld_40 As Char - Property Buchungsart As Char - Property Buchungsgrund As Char - Property Filler_Feld_43 As Char - Property Informationsbeleg As Char - Property Belegherkunft As Char - Property Filler_Feld_46 As String - Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double - Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double - Property Rechnungsdatum As DateTime - Property Umsatzsteuerprozentsatz_informativ As Double - Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Double - Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Double - Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Double - Property Fälligkeitsdatum As DateTime - Property Zahlungsziel_in_Tagen As Integer - Property Zahlungsart As String - Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As String - Property TC_Rechnungsdatum As DateTime - Property Zahlungszielgruppe As String - Property Kunden_Kostenstelle_2 As String - Property Lieferzeit As String - Property Fremdkartennummer As String - Property OnBoardUnitID As String - Property KFZ_Kennzeichen_komprimiert As String - Property Kartenkategorie As String - Property Rechnungsnummer_pro_Lieferland As Double - Property Autobahnauffahrt As String - Property Autobahnausfahrt As String - Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer - Property Nummer_Belastungsanzeige As Double - Property Betreuungsstelle As String - Property Filler_Feld_72 As String - Property Akzeptanz_Medium As String - Property Steuerkategorie As String - Property UTA_Beleg_ID As String - Property UTA_Normalbeleg_ID As String - Property Gebühren_Bescheinigung_von As DateTime - Property Gebühren_Bescheinigung_bis As DateTime - Property Herausgeber_Nutzer_Nummer As String - Property Maßeinheit As String - Property Land_der_Akzeptanzstelle As String - Property Postleitzahl_der_Akzeptanzstelle As String - Property Steuerliches_Lieferland As String - Property Steuerliche_Produktgruppe As String - Property Leistungsort_verlagerbar As Char - Property abgerechnetDatum As Object - Property abgerechnet As Boolean = False - Property daId As Object - - - Public hasEntry = False - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New(Übertragungsnummer, Übertragungsposition, ErstellDatumUhrzeit) - Me.Übertragungsnummer = Übertragungsnummer - Me.Übertragungsposition = Übertragungsposition - Me.ErstellDatumUhrzeit = ErstellDatumUhrzeit - LOAD() - End Sub - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstellDatumUhrzeit", ErstellDatumUhrzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsnummer", Übertragungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsposition", Übertragungsposition)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abrechnungsnummer", Abrechnungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_für_Lieferungen_und_Leistungen_bis", Datum_für_Lieferungen_und_Leistungen_bis)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsempfänger_Kundennummer", Rechnungsempfänger_Kundennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abrechnungsdatum", Abrechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kundennummer", Kundennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartennummer", Kartennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdatum", Belegdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Akzeptanzstellennummer", Akzeptanzstellennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Standort_der_Akzeptanzstelle", Standort_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferland", Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegnummer_des_Lieferanten", Belegnummer_des_Lieferanten)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kilometerstand", Kilometerstand)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturierwarenart", Fakturierwarenart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Menge", Menge)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_BT", SB_BT)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umsatzsteuerprozentsatz", Umsatzsteuerprozentsatz)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferlandwährung_ISO", Lieferlandwährung_ISO)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Brutto_in_Lieferlandwährung", Einzelpreis_Brutto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Netto_in_Lieferlandwährung", Einzelpreis_Netto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Service_in_Lieferlandwährung", Betrag_Service_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Lieferlandwährung", Betrag_Nachlass_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Netto_in_Lieferlandwährung", Gesamtbetrag_Netto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Brutto_in_Lieferlandwährung", Gesamtbetrag_Brutto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Darstellwährung_ISO", Darstellwährung_ISO)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Darstellwährung", Betrag_Nachlass_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Netto_in_Darstellwährung", Gesamtbetrag_Netto_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Gesamtbetrag_Umsatzsteuer_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Brutto_in_Darstellwährung", Gesamtbetrag_Brutto_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prägetext_i_d_R_KFZ_Kennzeichen", Prägetext_i_d_R_KFZ_Kennzeichen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden_Kostenstelle_1", Kunden_Kostenstelle_1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartentyp", Kartentyp)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_35", Filler_Feld_35)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_36", Filler_Feld_36)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KZ_Autobahn", KZ_Autobahn)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KFZ_Kennzeichen", KFZ_Kennzeichen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("INFO_Feld", INFO_Feld)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_40", Filler_Feld_40)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsart", Buchungsart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsgrund", Buchungsgrund)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_43", Filler_Feld_43)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Informationsbeleg", Informationsbeleg)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegherkunft", Belegherkunft)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_46", Filler_Feld_46)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdatum", Rechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umsatzsteuerprozentsatz_informativ", Umsatzsteuerprozentsatz_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel_in_Tagen", Zahlungsziel_in_Tagen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsart", Zahlungsart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TC_Rechnungsnummer_gegenüber_dem_Nutzer", TC_Rechnungsnummer_gegenüber_dem_Nutzer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TC_Rechnungsdatum", TC_Rechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungszielgruppe", Zahlungszielgruppe)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden_Kostenstelle_2", Kunden_Kostenstelle_2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferzeit", Lieferzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremdkartennummer", Fremdkartennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OnBoardUnitID", OnBoardUnitID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KFZ_Kennzeichen_komprimiert", KFZ_Kennzeichen_komprimiert)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartenkategorie", Kartenkategorie)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer_pro_Lieferland", Rechnungsnummer_pro_Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Autobahnauffahrt", Autobahnauffahrt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Autobahnausfahrt", Autobahnausfahrt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattschlüssel_der_französischen_Autobahngesellschaften", Rabattschlüssel_der_französischen_Autobahngesellschaften)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer_Belastungsanzeige", Nummer_Belastungsanzeige)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betreuungsstelle", Betreuungsstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_72", Filler_Feld_72)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Akzeptanz_Medium", Akzeptanz_Medium)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerkategorie", Steuerkategorie)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTA_Beleg_ID", UTA_Beleg_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTA_Normalbeleg_ID", UTA_Normalbeleg_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gebühren_Bescheinigung_von", Gebühren_Bescheinigung_von)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gebühren_Bescheinigung_bis", Gebühren_Bescheinigung_bis)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Herausgeber_Nutzer_Nummer", Herausgeber_Nutzer_Nummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Maßeinheit", Maßeinheit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Land_der_Akzeptanzstelle", Land_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Postleitzahl_der_Akzeptanzstelle", Postleitzahl_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("daId", daId)) - - Return list - End Function - - Public Function SAVE() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblUTAImportNew WHERE Übertragungsnummer=@Übertragungsnummer AND Übertragungsposition = @Übertragungsposition AND ErstellDatumUhrzeit = @ErstellDatumUhrzeit) " & - " BEGIN " & getUpdateCmd() & " End " & - " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " - - Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) - End Function - - Public Sub LOAD() - Try - hasEntry = False - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("Select * FROM tblUTAImportNew WHERE Übertragungsnummer=@Übertragungsnummer AND Übertragungsposition = @Übertragungsposition AND ErstellDatumUhrzeit = @ErstellDatumUhrzeit ", conn) - cmd.Parameters.AddWithValue("@Übertragungsnummer", Übertragungsnummer) - cmd.Parameters.AddWithValue("@Übertragungsposition", Übertragungsposition) - cmd.Parameters.AddWithValue("@ErstellDatumUhrzeit", ErstellDatumUhrzeit) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each li In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) - - If dr.Item(li.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(li.Text)) - End If - - Next - hasEntry = True - End If - dr.Close() - End Using - End Using - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - End Sub - - - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblUTAImportNew] SET " & str & " WHERE Übertragungsnummer=@Übertragungsnummer AND Übertragungsposition = @Übertragungsposition") - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblUTAImportNew (" & str & ") VALUES(" & values & ") ") - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - End Class - - Public Class UTAArchiv - Property ErstellDatumUhrzeit As DateTime - Property Übertragungsnummer As Integer - Property Übertragungsposition As Integer - Property Abrechnungsnummer As Object - Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime - Property Rechnungsempfänger_Kundennummer As Integer - Property Abrechnungsdatum As DateTime - Property Kundennummer As Integer - Property Kartennummer As Object - Property Belegdatum As DateTime - Property Akzeptanzstellennummer As Object - Property Standort_der_Akzeptanzstelle As Object - Property Lieferland As Object - Property Belegnummer_des_Lieferanten As Object - Property Kilometerstand As Object - Property Fakturierwarenart As Object - Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Object - Property Menge As Object - Property SB_BT As Object - Property Umsatzsteuerprozentsatz As Object - Property Lieferlandwährung_ISO As Object - Property Einzelpreis_Netto_in_Lieferlandwährung As Object - Property Einzelpreis_Brutto_in_Lieferlandwährung As Object - Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Object - Property Betrag_Service_in_Lieferlandwährung As Object - Property Betrag_Nachlass_in_Lieferlandwährung As Object - Property Gesamtbetrag_Netto_in_Lieferlandwährung As Object - Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Object - Property Darstellwährung_ISO As Object - Property Betrag_Service_in_Darstellwährung As Object - Property Betrag_Nachlass_in_Darstellwährung As Object - Property Gesamtbetrag_Netto_in_Darstellwährung As Object - Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Object - Property Gesamtbetrag_Brutto_in_Darstellwährung As Object - Property Prägetext_i_d_R_KFZ_Kennzeichen As Object - Property Kunden_Kostenstelle_1 As Object - Property Kartentyp As Object - Property Filler_Feld_35 As Object - Property Filler_Feld_36 As Object - Property KZ_Autobahn As Object - Property INFO_Feld As Object - Property KFZ_Kennzeichen As Object - Property Filler_Feld_40 As Object - Property Buchungsart As Object - Property Buchungsgrund As Object - Property Filler_Feld_43 As Object - Property Informationsbeleg As Object - Property Belegherkunft As Object - Property Filler_Feld_46 As Object - Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object - Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object - Property Rechnungsdatum As DateTime - Property Umsatzsteuerprozentsatz_informativ As Object - Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Object - Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Object - Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Object - Property Fälligkeitsdatum As DateTime - Property Zahlungsziel_in_Tagen As Integer - Property Zahlungsart As Object - Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As Object - Property TC_Rechnungsdatum As DateTime - Property Zahlungszielgruppe As Object - Property Kunden_Kostenstelle_2 As Object - Property Lieferzeit As Object - Property Fremdkartennummer As Object - Property OnBoardUnitID As Object - Property KFZ_Kennzeichen_komprimiert As Object - Property Kartenkategorie As Object - Property Rechnungsnummer_pro_Lieferland As Object - Property Autobahnauffahrt As Object - Property Autobahnausfahrt As Object - Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer - Property Nummer_Belastungsanzeige As Object - Property Betreuungsstelle As Object - Property Filler_Feld_72 As Object - Property Akzeptanz_Medium As Object - Property Steuerkategorie As Object - Property UTA_Beleg_ID As Object - Property UTA_Normalbeleg_ID As Object - Property Gebühren_Bescheinigung_von As DateTime - Property Gebühren_Bescheinigung_bis As DateTime - Property Herausgeber_Nutzer_Nummer As Object - Property Maßeinheit As Object - Property Land_der_Akzeptanzstelle As Object - Property Postleitzahl_der_Akzeptanzstelle As Object - Property Steuerliches_Lieferland As Object - Property Steuerliche_Produktgruppe As Object - Property Leistungsort_verlagerbar As Object - Property UStVAn_ID As Object - - Public hasEntry = False - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - Sub New(Belegdatum, UTA_Beleg_ID) - Me.Belegdatum = Belegdatum - Me.UTA_Beleg_ID = UTA_Beleg_ID - LOAD() - End Sub - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstellDatumUhrzeit", ErstellDatumUhrzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsnummer", Übertragungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsposition", Übertragungsposition)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abrechnungsnummer", Abrechnungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_für_Lieferungen_und_Leistungen_bis", Datum_für_Lieferungen_und_Leistungen_bis)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsempfänger_Kundennummer", Rechnungsempfänger_Kundennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abrechnungsdatum", Abrechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kundennummer", Kundennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartennummer", Kartennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdatum", Belegdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Akzeptanzstellennummer", Akzeptanzstellennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Standort_der_Akzeptanzstelle", Standort_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferland", Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegnummer_des_Lieferanten", Belegnummer_des_Lieferanten)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kilometerstand", Kilometerstand)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturierwarenart", Fakturierwarenart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen", Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Menge", Menge)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_BT", SB_BT)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umsatzsteuerprozentsatz", Umsatzsteuerprozentsatz)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferlandwährung_ISO", Lieferlandwährung_ISO)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Netto_in_Lieferlandwährung", Einzelpreis_Netto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Brutto_in_Lieferlandwährung", Einzelpreis_Brutto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Service_in_Lieferlandwährung", Betrag_Service_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Lieferlandwährung", Betrag_Nachlass_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Netto_in_Lieferlandwährung", Gesamtbetrag_Netto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Brutto_in_Lieferlandwährung", Gesamtbetrag_Brutto_in_Lieferlandwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Darstellwährung_ISO", Darstellwährung_ISO)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Darstellwährung", Betrag_Nachlass_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Netto_in_Darstellwährung", Gesamtbetrag_Netto_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung", Gesamtbetrag_Umsatzsteuer_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_Brutto_in_Darstellwährung", Gesamtbetrag_Brutto_in_Darstellwährung)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prägetext_i_d_R_KFZ_Kennzeichen", Prägetext_i_d_R_KFZ_Kennzeichen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden_Kostenstelle_1", Kunden_Kostenstelle_1)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartentyp", Kartentyp)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_35", Filler_Feld_35)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_36", Filler_Feld_36)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KZ_Autobahn", KZ_Autobahn)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KFZ_Kennzeichen", KFZ_Kennzeichen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("INFO_Feld", INFO_Feld)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_40", Filler_Feld_40)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsart", Buchungsart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungsgrund", Buchungsgrund)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_43", Filler_Feld_43)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Informationsbeleg", Informationsbeleg)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegherkunft", Belegherkunft)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_46", Filler_Feld_46)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen", Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen", Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsdatum", Rechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umsatzsteuerprozentsatz_informativ", Umsatzsteuerprozentsatz_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ", Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ", Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ", Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel_in_Tagen", Zahlungsziel_in_Tagen)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsart", Zahlungsart)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TC_Rechnungsnummer_gegenüber_dem_Nutzer", TC_Rechnungsnummer_gegenüber_dem_Nutzer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TC_Rechnungsdatum", TC_Rechnungsdatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungszielgruppe", Zahlungszielgruppe)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunden_Kostenstelle_2", Kunden_Kostenstelle_2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferzeit", Lieferzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fremdkartennummer", Fremdkartennummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OnBoardUnitID", OnBoardUnitID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KFZ_Kennzeichen_komprimiert", KFZ_Kennzeichen_komprimiert)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kartenkategorie", Kartenkategorie)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsnummer_pro_Lieferland", Rechnungsnummer_pro_Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Autobahnauffahrt", Autobahnauffahrt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Autobahnausfahrt", Autobahnausfahrt)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattschlüssel_der_französischen_Autobahngesellschaften", Rabattschlüssel_der_französischen_Autobahngesellschaften)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nummer_Belastungsanzeige", Nummer_Belastungsanzeige)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Betreuungsstelle", Betreuungsstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Filler_Feld_72", Filler_Feld_72)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Akzeptanz_Medium", Akzeptanz_Medium)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerkategorie", Steuerkategorie)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTA_Beleg_ID", UTA_Beleg_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UTA_Normalbeleg_ID", UTA_Normalbeleg_ID)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gebühren_Bescheinigung_von", Gebühren_Bescheinigung_von)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gebühren_Bescheinigung_bis", Gebühren_Bescheinigung_bis)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Herausgeber_Nutzer_Nummer", Herausgeber_Nutzer_Nummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Maßeinheit", Maßeinheit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Land_der_Akzeptanzstelle", Land_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Postleitzahl_der_Akzeptanzstelle", Postleitzahl_der_Akzeptanzstelle)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) - - Return list - End Function - - Public Function SAVE() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - 'Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM CLFArchiv WHERE PKFileName=@PKFileName AND OBUID = @OBUID) " & - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblUTAArchiv WHERE UTA_Beleg_ID = @UTA_Beleg_ID AND Belegdatum = @Belegdatum) " & - " BEGIN " & getUpdateCmd() & " End " & - " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " - - Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) - End Function - - Public Sub LOAD() - Try - hasEntry = False - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("Select * FROM tblUTAArchiv WHERE UTA_Beleg_ID = @UTA_Beleg_ID AND Belegdatum = @Belegdatum ", conn) - cmd.Parameters.AddWithValue("@UTA_Beleg_ID", UTA_Beleg_ID) - cmd.Parameters.AddWithValue("@Belegdatum", Belegdatum) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each li In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) - - If dr.Item(li.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(li.Text)) - End If - - Next - hasEntry = True - End If - dr.Close() - End Using - End Using - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - End Sub - - - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblUTAArchiv] SET " & str & " WHERE UTA_Beleg_ID = @UTA_Beleg_ID AND Belegdatum = @Belegdatum") - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblUTAArchiv (" & str & ") VALUES(" & values & ") ") - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - - - - End Class - - Public Class UTATrailer - - Property ErstellDatumUhrzeit As DateTime - Property Übertragungsnummer As Integer - Property Anzahl_Sätze As Integer - Property Checksumme As Object = Nothing - - Public hasEntry = False - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Sub New(Übertragungsnummer, ErstellDatumUhrzeit) - Me.Übertragungsnummer = Übertragungsnummer - Me.ErstellDatumUhrzeit = ErstellDatumUhrzeit - LOAD() - End Sub - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstellDatumUhrzeit", ErstellDatumUhrzeit)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Übertragungsnummer", Übertragungsnummer)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anzahl_Sätze", Anzahl_Sätze)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Checksumme", Checksumme)) - Return list - End Function - - Public Function SAVE() As Boolean - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblUTATrailerNew WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit=@ErstellDatumUhrzeit) " & - " BEGIN " & getUpdateCmd() & " End " & - " Else " & - " BEGIN " & getInsertCmd() & " End " & - " commit tran " - - Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) - End Function - - Public Sub LOAD() - Try - hasEntry = False - Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("Select * FROM tblUTATrailerNew WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit=@ErstellDatumUhrzeit", conn) - cmd.Parameters.AddWithValue("@Übertragungsnummer", Übertragungsnummer) - cmd.Parameters.AddWithValue("@ErstellDatumUhrzeit", ErstellDatumUhrzeit) - Dim dr = cmd.ExecuteReader() - If dr.Read Then - For Each li In getParameterList() - Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) - - If dr.Item(li.Text) Is DBNull.Value Then - propInfo.SetValue(Me, Nothing) - Else - propInfo.SetValue(Me, dr.Item(li.Text)) - End If - - Next - hasEntry = True - End If - dr.Close() - End Using - End Using - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - End Sub - - - - Public Function getUpdateCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - - Dim str As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblUTATrailerNew] SET " & str & " WHERE Übertragungsnummer=@Übertragungsnummer AND ErstellDatumUhrzeit=@ErstellDatumUhrzeit") - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - Public Function getInsertCmd() As String - Try - Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - Dim str As String = "" - Dim values As String = "" - For Each i In list - If Not i.isPrimaryParam Then - str &= "[" & i.Text & "]," - values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," - End If - Next - str = str.Substring(0, str.Length - 1) 'wg. ',' - values = values.Substring(0, values.Length - 1) 'wg. ',' - Return (" INSERT INTO tblUTATrailerNew (" & str & ") VALUES(" & values & ") ") - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) - End Try - Return "" - End Function - - - - End Class - - - - Function getNachrichtenDatenFromFTP(ByRef filenameList As List(Of String), ByVal fileType As String, ByRef testFTP As Boolean) As Integer - Dim cnt = 0 - Try - Dim SERVERPath = "" - - SERVERPath = Me.FTP_PFAD - - Dim catchedFiles As Boolean = False - For Each f In System.IO.Directory.GetFiles(SERVERPath) - Dim fi As New System.IO.FileInfo(f) - If fi.Name.ToUpper.Contains(fileType) Then - If Not fi.Name.StartsWith(".") Then - Dim zielPfad = VERARBEITUNG_PFAD & "\" & fi.Name - While System.IO.File.Exists(zielPfad) - zielPfad = VERARBEITUNG_PFAD & "\" & "DOPPELT" & "\" & fi.Name.Replace(fi.Extension, "") & fi.Extension & Now.ToString("_yyyyMMdd_HHmmss") - End While - System.IO.File.Copy(f, zielPfad) - If System.IO.File.Exists(zielPfad) Then - System.IO.File.Delete(f) - catchedFiles = True - End If - - Dim filename = frmStartOptions.cut_file((New FileInfo(zielPfad)).Name) - If filename.ToUpper.Contains(fileType) Then - filenameList.Add(filename) - cnt += 1 - End If - - End If - End If - - Next - - Return cnt - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - Return cnt - End Function - - Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer) As Boolean - - - Dim booHeaderVorhanden = False - Dim booPrüfziffernfehler = False - Dim booInTransaktion = False - Dim booTrailerVorhanden = False - Dim dtmErstellDatumUhrzeit As Date - Dim lngÜbertragungsnummer As Integer - Dim lngÜbertragungsposition As Integer - Dim curChecksumme As Double - - Dim lngRecordCount As Long - - 'Datei auf Fehler prüfen! - Do While (objFileRead.Peek() > -1) - Dim strZeile = objFileRead.ReadLine() - - - Select Case Mid(strZeile, 1, 2) - Case "10" - booHeaderVorhanden = True - lngRecordCount = lngRecordCount + 1 - Case "20" - ' Meldung bei nicht vorhandenen Haeder. - If Not booHeaderVorhanden Then - MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") - objFileRead.Close() - Return False - End If - - lngRecordCount = lngRecordCount + 1 - - Case "90" - ' Meldung bei nicht vorhandenen Haeder. - If Not booHeaderVorhanden Then - MsgBox("Datei kann wegen fehlenden Header nicht verarbeitet werden.") - objFileRead.Close() - Return False - End If - - - booTrailerVorhanden = True - lngRecordCount = lngRecordCount + 1 - - ' Prüfsumme Anzahl der Sätze im File ohne Header und Trailer. - If Trim(Mid(strZeile, 3, 13)) <> (lngRecordCount) Then - MsgBox("Fehler: " & vbNewLine & "Prüfsumme in der Datei stimmt nicht mit der Zeilenanzahl der Datei überein! " & vbNewLine & "Record Count: " & Trim(Mid(strZeile, 3, 13)) & vbCrLf & "Prüfsumme: " & (lngRecordCount) & vbCrLf) - objFileRead.Close() - Return False - End If - - ' Meldung bei Prüfsummenfehler. - If booPrüfziffernfehler Then - MsgBox("Datei kann wegen Prüfsummenfehler nicht verarbeitet werden.") - objFileRead.Close() - - End If - Case Else - booPrüfziffernfehler = True - End Select - - Loop - - - Dim lngPKLine As Long = 0 - lngRecordCount = 0 - - 'gleicher PKFileName wird nun aus CLFHeader gelöscht. CASCADE löscht dann zugehörige CLFBody und CLFTrailer. - 'If Not SQL.doSQL("DELETE tblUTAHeaderNew.ErstellDatumUhrzeit, tblUTAHeaderNew.Übertragungsnummer FROM tblUTAHeaderNew WHERE (((tblUTAHeaderNew.ErstellDatumUhrzeit)=" & Format$(dtmErstellDatumUhrzeit, "\#mm\/dd\/yyyy hh\:nn\:ss AM/PM\#") & ") AND ((tblUTAHeaderNew.Übertragungsnummer)=" & lngÜbertragungsnummer, "FMZOLL") Then - ' MsgBox("Fehler beim Löschen des CLF-Headers") - ' objFileRead.Close() - ' Return False - 'End If - - 'If Not SQL.doSQL("UPDATE CLF SET PKFileName = '" & fi.Name.ToString & "'", "FMZOLL") Then - ' MsgBox("Fehler beim Update der CLF-Nr") - ' objFileRead.Close() - ' Return False - 'End If - objFileRead.DiscardBufferedData() - objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin) - - Do While (objFileRead.Peek() > -1) - Dim strZeile = objFileRead.ReadLine() - - Select Case Mid(strZeile, 1, 2) - Case "10" - booHeaderVorhanden = True - lngRecordCount = lngRecordCount + 1 - dtmErstellDatumUhrzeit = DateSerial(Mid(strZeile, 35, 4), Mid(strZeile, 32, 2), Mid(strZeile, 29, 2)) & " " & TimeSerial(Mid(strZeile, 40, 2), Mid(strZeile, 43, 2), Mid(strZeile, 46, 2)) - lngÜbertragungsnummer = Mid(strZeile, 61, 6) - 'Dim ext = CInt(fi.Extension.Remove(0, 1)) - Dim clfHeader As New cUTA.UTAHeader(lngÜbertragungsnummer, dtmErstellDatumUhrzeit) - With clfHeader - .Absender_ID = Mid(strZeile, 10, 6) - .Empfänger_ID = Mid(strZeile, 23, 6) - .Filler_Feld_5 = IIf(Trim(Mid(strZeile, 39, 1)) = "", Nothing, Trim(Mid(strZeile, 39, 1))) - .Abrechnungsnummer = IIf(Trim(Mid(strZeile, 48, 13)) = Nothing, "", Trim(Mid(strZeile, 48, 13))) - .DTF_Format = IIf(Trim(Mid(strZeile, 67, 6)) = Nothing, "", Trim(Mid(strZeile, 67, 6))) - .SAVE() - End With - - Case "20" - lngRecordCount = lngRecordCount + 1 - lngÜbertragungsposition = lngÜbertragungsposition + 1 - Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit) - With clfBody - .Übertragungsnummer = lngÜbertragungsnummer - .Übertragungsposition = lngÜbertragungsposition - .Abrechnungsnummer = Mid(strZeile, 3, 13) - .[Datum_für_Lieferungen_und_Leistungen_bis] = DateSerial(Mid(strZeile, 20, 4), Mid(strZeile, 18, 2), Mid(strZeile, 16, 2)) - .[Rechnungsempfänger_Kundennummer] = Mid(strZeile, 24, 13) - .[Abrechnungsdatum] = DateSerial(Mid(strZeile, 41, 4), Mid(strZeile, 39, 2), Mid(strZeile, 37, 2)) - .[Kundennummer] = Mid(strZeile, 45, 13) - .[Kartennummer] = IIf(Trim(Mid(strZeile, 58, 19)) = "", Nothing, Trim(Mid(strZeile, 58, 19))) - .[Belegdatum] = DateSerial(Mid(strZeile, 81, 4), Mid(strZeile, 79, 2), Mid(strZeile, 77, 2)) - .[Akzeptanzstellennummer] = Mid(strZeile, 85, 13) - .[Standort_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 98, 25)) = "", Nothing, Trim(Mid(strZeile, 98, 25))) - .[Lieferland] = IIf(Trim(Mid(strZeile, 123, 3)) = "", Nothing, Trim(Mid(strZeile, 123, 3))) - .[Belegnummer_des_Lieferanten] = IIf(Trim(Mid(strZeile, 126, 13)) = "", Nothing, Trim(Mid(strZeile, 126, 13))) - .[Kilometerstand] = Mid(strZeile, 139, 8) - .[Fakturierwarenart] = IIf(Trim(Mid(strZeile, 147, 5)) = "", Nothing, Trim(Mid(strZeile, 147, 5))) - .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen] = IIf(Trim(Mid(strZeile, 152, 1)) = "", Nothing, Trim(Mid(strZeile, 152, 1))) - .[Menge] = Mid(strZeile, 153, 10) / 100 - .[SB_BT] = IIf(Trim(Mid(strZeile, 163, 1)) = "", Nothing, Trim(Mid(strZeile, 163, 1))) - .[Umsatzsteuerprozentsatz] = Mid(strZeile, 164, 5) / 10000 - .[Lieferlandwährung_ISO] = IIf(Trim(Mid(strZeile, 169, 3)) = "", Nothing, Trim(Mid(strZeile, 169, 3))) - .[Einzelpreis_Brutto_in_Lieferlandwährung] = Mid(strZeile, 172, 11) / 100 - .[Einzelpreis_Netto_in_Lieferlandwährung] = Mid(strZeile, 183, 11) / 100 - .[Betrag_Service_in_Lieferlandwährung] = Mid(strZeile, 194, 11) / 100 - .[Betrag_Nachlass_in_Lieferlandwährung] = Mid(strZeile, 205, 11) / 100 - .[Gesamtbetrag_Netto_in_Lieferlandwährung] = Mid(strZeile, 216, 11) / 100 - .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = Mid(strZeile, 227, 11) / 100 - .[Darstellwährung_ISO] = IIf(Trim(Mid(strZeile, 238, 3)) = "", Nothing, Trim(Mid(strZeile, 238, 3))) - .[Betrag_Service_in_Darstellwährung] = Mid(strZeile, 241, 11) / 100 - .[Betrag_Nachlass_in_Darstellwährung] = Mid(strZeile, 252, 11) / 100 - .[Gesamtbetrag_Netto_in_Darstellwährung] = Mid(strZeile, 263, 11) / 100 - .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = Mid(strZeile, 274, 11) / 100 - .[Gesamtbetrag_Brutto_in_Darstellwährung] = Mid(strZeile, 285, 11) / 100 - .[Prägetext_i_d_R_KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 296, 16)) = "", Nothing, Trim(Mid(strZeile, 296, 16))) - .[Kunden_Kostenstelle_1] = IIf(Trim(Mid(strZeile, 312, 20)) = "", Nothing, Trim(Mid(strZeile, 312, 20))) - .[Kartentyp] = IIf(Trim(Mid(strZeile, 332, 8)) = "", Nothing, Trim(Mid(strZeile, 332, 8))) - .[Filler_Feld_35] = IIf(Trim(Mid(strZeile, 340, 1)) = "", Nothing, Trim(Mid(strZeile, 340, 1))) - .[Filler_Feld_36] = IIf(Trim(Mid(strZeile, 341, 3)) = "", Nothing, Trim(Mid(strZeile, 341, 3))) - .[KZ_Autobahn] = IIf(Trim(Mid(strZeile, 344, 1)) = "", Nothing, Trim(Mid(strZeile, 344, 1))) - .[INFO_Feld] = IIf(Trim(Mid(strZeile, 345, 18)) = "", Nothing, Trim(Mid(strZeile, 345, 18))) - .[KFZ_Kennzeichen] = IIf(Trim(Mid(strZeile, 363, 16)) = "", Nothing, Trim(Mid(strZeile, 363, 16))) - .[Filler_Feld_40] = IIf(Trim(Mid(strZeile, 379, 1)) = "", Nothing, Trim(Mid(strZeile, 379, 1))) - .[Buchungsart] = IIf(Trim(Mid(strZeile, 380, 1)) = "", Nothing, Trim(Mid(strZeile, 380, 1))) - .[Buchungsgrund] = IIf(Trim(Mid(strZeile, 381, 1)) = "", Nothing, Trim(Mid(strZeile, 381, 1))) - .[Filler_Feld_43] = IIf(Trim(Mid(strZeile, 382, 1)) = "", Nothing, Trim(Mid(strZeile, 382, 1))) - .[Informationsbeleg] = IIf(Trim(Mid(strZeile, 383, 1)) = "", Nothing, Trim(Mid(strZeile, 383, 1))) - .[Belegherkunft] = IIf(Trim(Mid(strZeile, 384, 1)) = "", Nothing, Trim(Mid(strZeile, 384, 1))) - .[Filler_Feld_46] = IIf(Trim(Mid(strZeile, 385, 14)) = "", Nothing, Trim(Mid(strZeile, 385, 14))) - .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 399, 13) / 10000 - .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = Mid(strZeile, 412, 13) / 10000 - .[Rechnungsdatum] = DateSerial(Mid(strZeile, 429, 4), Mid(strZeile, 427, 2), Mid(strZeile, 425, 2)) - .[Umsatzsteuerprozentsatz_informativ] = Mid(strZeile, 433, 5) / 10000 - .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 438, 11) / 100 - .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 449, 11) / 100 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = Mid(strZeile, 460, 11) / 100 - .[Fälligkeitsdatum] = DateSerial(Mid(strZeile, 475, 4), Mid(strZeile, 473, 2), Mid(strZeile, 471, 2)) - .[Zahlungsziel_in_Tagen] = Mid(strZeile, 479, 3) - .[Zahlungsart] = IIf(Trim(Mid(strZeile, 482, 8)) = "", Nothing, Trim(Mid(strZeile, 482, 8))) - .[TC_Rechnungsnummer_gegenüber_dem_Nutzer] = IIf(Trim(Mid(strZeile, 490, 20)) = "", Nothing, Trim(Mid(strZeile, 490, 20))) - .[TC_Rechnungsdatum] = DateSerial(Mid(strZeile, 514, 4), Mid(strZeile, 512, 2), Mid(strZeile, 510, 2)) - .[Zahlungszielgruppe] = IIf(Trim(Mid(strZeile, 518, 7)) = "", Nothing, Trim(Mid(strZeile, 518, 7))) - .[Kunden_Kostenstelle_2] = IIf(Trim(Mid(strZeile, 525, 20)) = "", Nothing, Trim(Mid(strZeile, 525, 20))) - .[Lieferzeit] = IIf(Trim(Mid(strZeile, 545, 6)) = "", Nothing, Trim(Mid(strZeile, 545, 6))) - .[Fremdkartennummer] = IIf(Trim(Mid(strZeile, 551, 20)) = "", Nothing, Trim(Mid(strZeile, 551, 20))) - .[OnBoardUnitID] = IIf(Trim(Mid(strZeile, 571, 20)) = "", Nothing, Trim(Mid(strZeile, 571, 20))) - .[KFZ_Kennzeichen_komprimiert] = IIf(Trim(Mid(strZeile, 591, 16)) = "", Nothing, Trim(Mid(strZeile, 591, 16))) - .[Kartenkategorie] = IIf(Trim(Mid(strZeile, 607, 8)) = "", Nothing, Trim(Mid(strZeile, 607, 8))) - .[Rechnungsnummer_pro_Lieferland] = Mid(strZeile, 615, 13) - .[Autobahnauffahrt] = IIf(Trim(Mid(strZeile, 628, 40)) = "", Nothing, Trim(Mid(strZeile, 628, 40))) - .[Autobahnausfahrt] = IIf(Trim(Mid(strZeile, 668, 40)) = "", Nothing, Trim(Mid(strZeile, 668, 40))) - .[Rabattschlüssel_der_französischen_Autobahngesellschaften] = IIf(Trim(Mid(strZeile, 708, 1)) = "", Nothing, Trim(Mid(strZeile, 708, 1))) - .[Nummer_Belastungsanzeige] = Mid(strZeile, 709, 13) - .[Betreuungsstelle] = IIf(Trim(Mid(strZeile, 722, 20)) = "", Nothing, Trim(Mid(strZeile, 722, 20))) - .[Filler_Feld_72] = IIf(Trim(Mid(strZeile, 742, 20)) = "", Nothing, Trim(Mid(strZeile, 742, 20))) - .[Akzeptanz_Medium] = IIf(Trim(Mid(strZeile, 762, 20)) = "", Nothing, Trim(Mid(strZeile, 762, 20))) - .[Steuerkategorie] = IIf(Trim(Mid(strZeile, 782, 8)) = "", Nothing, Trim(Mid(strZeile, 782, 8))) - .[UTA_Beleg_ID] = Mid(strZeile, 790, 11) - .[UTA_Normalbeleg_ID] = Mid(strZeile, 801, 11) - .[Gebühren_Bescheinigung_von] = DateSerial(Mid(strZeile, 816, 4), Mid(strZeile, 814, 2), Mid(strZeile, 812, 2)) - .[Gebühren_Bescheinigung_bis] = DateSerial(Mid(strZeile, 824, 4), Mid(strZeile, 822, 2), Mid(strZeile, 820, 2)) - .[Herausgeber_Nutzer_Nummer] = IIf(Trim(Mid(strZeile, 828, 20)) = "", Nothing, Trim(Mid(strZeile, 828, 20))) - .[Maßeinheit] = IIf(Trim(Mid(strZeile, 848, 8)) = "", Nothing, Trim(Mid(strZeile, 848, 8))) - .[Land_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 856, 3)) = "", Nothing, Trim(Mid(strZeile, 856, 3))) - .[Postleitzahl_der_Akzeptanzstelle] = IIf(Trim(Mid(strZeile, 859, 7)) = "", Nothing, Trim(Mid(strZeile, 859, 7))) - .[Steuerliches_Lieferland] = IIf(Trim(Mid(strZeile, 866, 3)) = "", Nothing, Trim(Mid(strZeile, 866, 3))) - .[Steuerliche_Produktgruppe] = IIf(Trim(Mid(strZeile, 869, 5)) = "", Nothing, Trim(Mid(strZeile, 869, 5))) - .[Leistungsort_verlagerbar] = IIf(Trim(Mid(strZeile, 874, 1)) = "", Nothing, Trim(Mid(strZeile, 874, 1))) - - Select Case .[Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen] - Case "0" 'positiv - curChecksumme = curChecksumme + .[Gesamtbetrag_Brutto_in_Darstellwährung] - Case "1" 'negativ - curChecksumme = curChecksumme - .[Gesamtbetrag_Brutto_in_Darstellwährung] - .[Menge] = 0 - .[Menge] - .[Einzelpreis_Brutto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung] - .[Einzelpreis_Netto_in_Lieferlandwährung] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung] - .[Betrag_Service_in_Lieferlandwährung] = 0 - .[Betrag_Service_in_Lieferlandwährung] - .[Betrag_Nachlass_in_Lieferlandwährung] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung] - .[Gesamtbetrag_Netto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Netto_in_Lieferlandwährung] - .[Gesamtbetrag_Brutto_in_Lieferlandwährung] = 0 - .[Gesamtbetrag_Brutto_in_Lieferlandwährung] - .[Betrag_Service_in_Darstellwährung] = 0 - .[Betrag_Service_in_Darstellwährung] - .[Betrag_Nachlass_in_Darstellwährung] = 0 - .[Betrag_Nachlass_in_Darstellwährung] - .[Gesamtbetrag_Netto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Netto_in_Darstellwährung] - .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] = 0 - .[Gesamtbetrag_Umsatzsteuer_in_Darstellwährung] - .[Gesamtbetrag_Brutto_in_Darstellwährung] = 0 - .[Gesamtbetrag_Brutto_in_Darstellwährung] - .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen] - .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] = 0 - .[Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen] - .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ] - .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ] - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] - End Select - - .SAVE() - - - 'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID) - 'clfArchiv.Übertragungsnummer = .Übertragungsnummer - 'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit - 'clfArchiv.Übertragungsposition = .Übertragungsposition - 'clfArchiv.Abrechnungsnummer = .Abrechnungsnummer - 'clfArchiv.Datum_für_Lieferungen_und_Leistungen_bis = .Datum_für_Lieferungen_und_Leistungen_bis - 'clfArchiv.Rechnungsempfänger_Kundennummer = .Rechnungsempfänger_Kundennummer - 'clfArchiv.Abrechnungsdatum = .Abrechnungsdatum - 'clfArchiv.Kundennummer = .Kundennummer - 'clfArchiv.Kartennummer = .Kartennummer - 'clfArchiv.Akzeptanzstellennummer = .Akzeptanzstellennummer - 'clfArchiv.Standort_der_Akzeptanzstelle = .Standort_der_Akzeptanzstelle - 'clfArchiv.Lieferland = .Lieferland - 'clfArchiv.Belegnummer_des_Lieferanten = .Belegnummer_des_Lieferanten - 'clfArchiv.Kilometerstand = .Kilometerstand - 'clfArchiv.Fakturierwarenart = .Fakturierwarenart - 'clfArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = .Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen - 'clfArchiv.Menge = .Menge - 'clfArchiv.SB_BT = .SB_BT - 'clfArchiv.Umsatzsteuerprozentsatz = .Umsatzsteuerprozentsatz - 'clfArchiv.Lieferlandwährung_ISO = .Lieferlandwährung_ISO - 'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung - 'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung = .Einzelpreis_Brutto_in_Lieferlandwährung - 'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung - 'clfArchiv.Betrag_Service_in_Lieferlandwährung = .Betrag_Service_in_Lieferlandwährung - 'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung - 'clfArchiv.Gesamtbetrag_Netto_in_Lieferlandwährung = .Gesamtbetrag_Netto_in_Lieferlandwährung - 'clfArchiv.Gesamtbetrag_Brutto_in_Lieferlandwährung = .Gesamtbetrag_Brutto_in_Lieferlandwährung - 'clfArchiv.Darstellwährung_ISO = .Darstellwährung_ISO - 'clfArchiv.Betrag_Service_in_Darstellwährung = .Betrag_Service_in_Darstellwährung - 'clfArchiv.Betrag_Nachlass_in_Darstellwährung = .Betrag_Nachlass_in_Darstellwährung - 'clfArchiv.Gesamtbetrag_Netto_in_Darstellwährung = .Gesamtbetrag_Netto_in_Darstellwährung - 'clfArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = .Gesamtbetrag_Umsatzsteuer_in_Darstellwährung - 'clfArchiv.Gesamtbetrag_Brutto_in_Darstellwährung = .Gesamtbetrag_Brutto_in_Darstellwährung - 'clfArchiv.Prägetext_i_d_R_KFZ_Kennzeichen = .Prägetext_i_d_R_KFZ_Kennzeichen - 'clfArchiv.Kunden_Kostenstelle_1 = .Kunden_Kostenstelle_1 - 'clfArchiv.Kartentyp = .Kartentyp - 'clfArchiv.Filler_Feld_35 = .Filler_Feld_35 - 'clfArchiv.Filler_Feld_36 = .Filler_Feld_36 - 'clfArchiv.KZ_Autobahn = .KZ_Autobahn - 'clfArchiv.INFO_Feld = .INFO_Feld - 'clfArchiv.KFZ_Kennzeichen = .KFZ_Kennzeichen - 'clfArchiv.Filler_Feld_40 = .Filler_Feld_40 - 'clfArchiv.Buchungsart = .Buchungsart - 'clfArchiv.Buchungsgrund = .Buchungsgrund - 'clfArchiv.Filler_Feld_43 = .Filler_Feld_43 - 'clfArchiv.Informationsbeleg = .Informationsbeleg - 'clfArchiv.Belegherkunft = .Belegherkunft - 'clfArchiv.Filler_Feld_46 = .Filler_Feld_46 - 'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen - 'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen - 'clfArchiv.Rechnungsdatum = .Rechnungsdatum - 'clfArchiv.Umsatzsteuerprozentsatz_informativ = .Umsatzsteuerprozentsatz_informativ - 'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung - 'clfArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = .Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ - 'clfArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = .Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ - 'clfArchiv.Fälligkeitsdatum = .Fälligkeitsdatum - 'clfArchiv.Zahlungsziel_in_Tagen = .Zahlungsziel_in_Tagen - 'clfArchiv.Zahlungsart = .Zahlungsart - 'clfArchiv.TC_Rechnungsnummer_gegenüber_dem_Nutzer = .TC_Rechnungsnummer_gegenüber_dem_Nutzer - 'clfArchiv.TC_Rechnungsdatum = .TC_Rechnungsdatum - 'clfArchiv.Zahlungszielgruppe = .Zahlungszielgruppe - 'clfArchiv.Kunden_Kostenstelle_2 = .Kunden_Kostenstelle_2 - 'clfArchiv.Lieferzeit = .Lieferzeit - 'clfArchiv.Fremdkartennummer = .Fremdkartennummer - 'clfArchiv.OnBoardUnitID = .OnBoardUnitID - 'clfArchiv.KFZ_Kennzeichen_komprimiert = .KFZ_Kennzeichen_komprimiert - 'clfArchiv.Kartenkategorie = .Kartenkategorie - 'clfArchiv.Rechnungsnummer_pro_Lieferland = .Rechnungsnummer_pro_Lieferland - 'clfArchiv.Autobahnauffahrt = .Autobahnauffahrt - 'clfArchiv.Autobahnausfahrt = .Autobahnausfahrt - 'clfArchiv.Rabattschlüssel_der_französischen_Autobahngesellschaften = .Rabattschlüssel_der_französischen_Autobahngesellschaften - 'clfArchiv.Nummer_Belastungsanzeige = .Nummer_Belastungsanzeige - 'clfArchiv.Betreuungsstelle = .Betreuungsstelle - 'clfArchiv.Filler_Feld_72 = .Filler_Feld_72 - 'clfArchiv.Akzeptanz_Medium = .Akzeptanz_Medium - 'clfArchiv.Steuerkategorie = .Steuerkategorie - 'clfArchiv.UTA_Normalbeleg_ID = .UTA_Normalbeleg_ID - 'clfArchiv.Gebühren_Bescheinigung_von = .Gebühren_Bescheinigung_von - 'clfArchiv.Gebühren_Bescheinigung_bis = .Gebühren_Bescheinigung_bis - 'clfArchiv.Herausgeber_Nutzer_Nummer = .Herausgeber_Nutzer_Nummer - 'clfArchiv.Maßeinheit = .Maßeinheit - 'clfArchiv.Land_der_Akzeptanzstelle = .Land_der_Akzeptanzstelle - 'clfArchiv.Postleitzahl_der_Akzeptanzstelle = .Postleitzahl_der_Akzeptanzstelle - 'clfArchiv.Steuerliches_Lieferland = .Steuerliches_Lieferland - 'clfArchiv.Steuerliche_Produktgruppe = .Steuerliche_Produktgruppe - 'clfArchiv.Leistungsort_verlagerbar = .Leistungsort_verlagerbar - 'clfArchiv.SAVE() - - End With - - Case "90" - - If curChecksumme < 0 Then - curChecksumme = 0 - curChecksumme - End If - If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then - MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden") - 'Return False - End If - - - lngRecordCount = lngRecordCount + 1 - Dim clfTrailer As New cUTA.UTATrailer(lngÜbertragungsnummer, dtmErstellDatumUhrzeit) - With clfTrailer - .ErstellDatumUhrzeit = dtmErstellDatumUhrzeit - .Übertragungsnummer = lngÜbertragungsnummer - .Anzahl_Sätze = Mid(strZeile, 3, 13) - .Checksumme = Mid(strZeile, 16, 18) / 100 - .SAVE() - End With - - - - Case Else - ' Andere RecordNumber überlesen. - End Select - - Loop - cnt = CInt(lngRecordCount) - objFileRead.Close() - Return True - - End Function - - Public VERARBEITUNG_PFAD - Public ARCHIV_PFAD - Public ERROR_PFAD - Public ZIEL_PFAD - Public FTP_PFAD - Public API_STRING As String - Public API As New DataTable - - Dim Dateiname = "" - - Public Function initImportPfade(programName As String) As Boolean - - - ERROR_PFAD = cUTA.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - ARCHIV_PFAD = cUTA.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - VERARBEITUNG_PFAD = cUTA.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - ZIEL_PFAD = cUTA.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - - If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then - System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) - ElseIf VERARBEITUNG_PFAD = "" Then - MsgBox("Verabreitungspfad nicht gesetzt!") - End If - - Return Paramter.getFTPConenction(API_STRING, API, programName) - - End Function - - Public Class Paramter - - Shared apiSettingsloaded As Boolean = False - Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String - Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='UTA' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) - End Function - - Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean - - API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN") - If API.Rows.Count = 0 Then - MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!") - Else - apiSettingsloaded = True - API_String = API.Rows(0).Item("api_url") - End If - - Return apiSettingsloaded - End Function - - End Class - - -End Class diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index e5499c1..a4666aa 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -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 @@ -4003,93 +4003,93 @@ Public Class cWorker_NCTS 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 - Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) - STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009 - STATUS.dySt_artMitteilung = "UEM" - STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 - - STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 - STATUS.dySt_ergCode = "MRN" - STATUS.dySt_ergMitteilung = MRN - STATUS.dySt_ergZeitpunkt = zp - 'EINTRAG IN tblDakosy_Zollanmeldungen - Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") - Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True) - - - NCTS_TMP.ncts_Eroeffnung = zp - NCTS_TMP.SAVE() - - '------------------------------------------------------------------------------------------------------------------------------ - '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() - - 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 - - - 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 - '------------------------------------------------------------------------------------------------------------------------------ - - 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT - ' If TE.nctsTE_NumberOfSeals > 0 Then - - ' End If - 'Next - - 'If Verschluss_Anzahl > 0 Then - ' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl - ' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art - ' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) - ' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) - ' NCTS_TMP.SAVE() 'End If + ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. + + If readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit) + STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009 + STATUS.dySt_artMitteilung = "UEM" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50 + STATUS.dySt_ergCode = "MRN" + STATUS.dySt_ergMitteilung = MRN + STATUS.dySt_ergZeitpunkt = zp + 'EINTRAG IN tblDakosy_Zollanmeldungen + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN, True) - SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) - SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) + NCTS_TMP.ncts_Eroeffnung = zp + NCTS_TMP.SAVE() - If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id - STATUS.SAVE() - statusTMP = STATUS - cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE - ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then + '------------------------------------------------------------------------------------------------------------------------------ + '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() - NCTS_TMP.insertIntoSpedBuch(DY_TMP) + ' 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 - '=====ATEZ BEREITSTELLUNG========== - checkATEZ_Bereitstellung(DY_TMP, d) - '================================== + ' 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) - FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) - End If + ' Next + ' Next + ' NCTS_TMP.SAVE_Guarantee() + 'End If + '------------------------------------------------------------------------------------------------------------------------------ + + 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT + ' If TE.nctsTE_NumberOfSeals > 0 Then + + ' End If + 'Next + + 'If Verschluss_Anzahl > 0 Then + ' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl + ' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art + ' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing) + ' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing) + ' NCTS_TMP.SAVE() + 'End If + + + SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division) + SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum) + + If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id + STATUS.SAVE() + statusTMP = STATUS + cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE + ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then + + NCTS_TMP.insertIntoSpedBuch(DY_TMP) + + + '=====ATEZ BEREITSTELLUNG========== + checkATEZ_Bereitstellung(DY_TMP, d) + '================================== + + FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr) + End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) readNCTS_Ueberlassungsmeldung009 = "" diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index a71c0b5..6cc25f3 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -22,14 +22,16 @@ Partial Class frmStartOptions 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.PictureBox25 = New System.Windows.Forms.PictureBox() + Me.Button23 = New System.Windows.Forms.Button() Me.PictureBox24 = New System.Windows.Forms.PictureBox() Me.buchungenAMBAR = New System.Windows.Forms.Button() Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() @@ -47,20 +49,16 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -69,13 +67,11 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -145,15 +141,6 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview() - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.LinkLabel50 = New System.Windows.Forms.LinkLabel() Me.Label26 = New System.Windows.Forms.Label() @@ -169,18 +156,16 @@ Partial Class frmStartOptions Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.Label42 = New System.Windows.Forms.Label() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.LinkLabel62 = New System.Windows.Forms.LinkLabel() Me.LinkLabel60 = New System.Windows.Forms.LinkLabel() Me.LinkLabel61 = New System.Windows.Forms.LinkLabel() Me.Label40 = New System.Windows.Forms.Label() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel59 = New System.Windows.Forms.LinkLabel() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() @@ -223,9 +208,6 @@ Partial Class frmStartOptions Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.Label24 = New System.Windows.Forms.Label() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.CheckBox1 = New System.Windows.Forms.CheckBox() @@ -233,7 +215,6 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -249,11 +230,39 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() - Me.PictureBox25 = New System.Windows.Forms.PictureBox() - Me.Button23 = New System.Windows.Forms.Button() + Me.LinkLabel64 = New System.Windows.Forms.LinkLabel() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label43 = New System.Windows.Forms.Label() + Me.CheckBox8 = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() + CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit() @@ -277,7 +286,6 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit() @@ -287,13 +295,16 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.CheckBox8) + Me.pnl.Controls.Add(Me.Label43) + Me.pnl.Controls.Add(Me.txtKdNr) Me.pnl.Controls.Add(Me.PictureBox25) Me.pnl.Controls.Add(Me.Button23) Me.pnl.Controls.Add(Me.PictureBox24) @@ -376,6 +387,29 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(1229, 1007) Me.pnl.TabIndex = 0 ' + 'PictureBox25 + ' + Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image) + Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox25.Location = New System.Drawing.Point(1108, 264) + Me.PictureBox25.Name = "PictureBox25" + Me.PictureBox25.Size = New System.Drawing.Size(18, 18) + Me.PictureBox25.TabIndex = 94 + Me.PictureBox25.TabStop = False + Me.PictureBox25.Visible = False + ' + 'Button23 + ' + Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button23.Location = New System.Drawing.Point(910, 253) + Me.Button23.Name = "Button23" + Me.Button23.Size = New System.Drawing.Size(187, 38) + Me.Button23.TabIndex = 93 + Me.Button23.Text = "Summen aktualisieren (USTV-Anträge)" + Me.Button23.UseVisualStyleBackColor = True + ' 'PictureBox24 ' Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image) @@ -430,29 +464,6 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 208) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -642,29 +653,6 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -711,30 +699,6 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -759,30 +723,6 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -831,17 +771,6 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -934,17 +863,6 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1047,30 +965,6 @@ Partial Class frmStartOptions Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' 'Label41 ' Me.Label41.AutoSize = True @@ -1865,165 +1759,6 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.LinkLabel50) @@ -2184,18 +1919,17 @@ Partial Class frmStartOptions ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.LinkLabel64) + Me.TabPage4.Controls.Add(Me.Label42) Me.TabPage4.Controls.Add(Me.cbxUploadDA) - Me.TabPage4.Controls.Add(Me.txtBatchNr) Me.TabPage4.Controls.Add(Me.Label5) Me.TabPage4.Controls.Add(Me.LinkLabel23) Me.TabPage4.Controls.Add(Me.LinkLabel24) - Me.TabPage4.Controls.Add(Me.cbxMSEBatchNr) Me.TabPage4.Controls.Add(Me.cbxOnlyBilledTransactions) Me.TabPage4.Controls.Add(Me.LinkLabel62) Me.TabPage4.Controls.Add(Me.LinkLabel60) Me.TabPage4.Controls.Add(Me.LinkLabel61) Me.TabPage4.Controls.Add(Me.Label40) - Me.TabPage4.Controls.Add(Me.txtTransactionID) Me.TabPage4.Controls.Add(Me.LinkLabel59) Me.TabPage4.Controls.Add(Me.Label39) Me.TabPage4.Controls.Add(Me.Label38) @@ -2238,6 +1972,10 @@ Partial Class frmStartOptions Me.TabPage4.Controls.Add(Me.LinkLabel43) Me.TabPage4.Controls.Add(Me.LinkLabel44) Me.TabPage4.Controls.Add(Me.Label24) + Me.TabPage4.Controls.Add(Me.txtBatchNrofTransaction) + Me.TabPage4.Controls.Add(Me.txtBatchNr) + Me.TabPage4.Controls.Add(Me.cbxMSEBatchNr) + Me.TabPage4.Controls.Add(Me.txtTransactionID) Me.TabPage4.Controls.Add(Me.cbxRMC) Me.TabPage4.Controls.Add(Me.txtTBLNr) Me.TabPage4.Controls.Add(Me.txtTWLNr) @@ -2248,6 +1986,16 @@ Partial Class frmStartOptions Me.TabPage4.Text = "VERAG 360" Me.TabPage4.UseVisualStyleBackColor = True ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.Location = New System.Drawing.Point(772, 235) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(40, 13) + Me.Label42.TabIndex = 130 + Me.Label42.Text = "Batch" + ' 'cbxUploadDA ' Me.cbxUploadDA.AutoSize = True @@ -2259,32 +2007,6 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - Me.txtBatchNr._WaehrungZeichen = True - Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNr.ForeColor = System.Drawing.Color.Red - Me.txtBatchNr.Location = New System.Drawing.Point(721, 181) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'Label5 ' Me.Label5.AutoSize = True @@ -2318,19 +2040,6 @@ Partial Class frmStartOptions Me.LinkLabel24.TabStop = True Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST" ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(670, 181) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' 'cbxOnlyBilledTransactions ' Me.cbxOnlyBilledTransactions.AutoSize = True @@ -2387,33 +2096,6 @@ Partial Class frmStartOptions Me.Label40.TabIndex = 116 Me.Label40.Text = "ID" ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - Me.txtTransactionID._WaehrungZeichen = True - Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window - Me.txtTransactionID.ForeColor = System.Drawing.Color.Black - Me.txtTransactionID.Location = New System.Drawing.Point(691, 232) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'LinkLabel59 ' Me.LinkLabel59.AutoSize = True @@ -2859,65 +2541,6 @@ Partial Class frmStartOptions Me.Label24.TabIndex = 30 Me.Label24.Text = "Import" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(241, 168) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(165, 246) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(165, 218) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True @@ -2996,30 +2619,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -3188,6 +2787,503 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' + 'LinkLabel64 + ' + Me.LinkLabel64.AutoSize = True + Me.LinkLabel64.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel64.Location = New System.Drawing.Point(416, 160) + Me.LinkLabel64.Name = "LinkLabel64" + Me.LinkLabel64.Size = New System.Drawing.Size(135, 13) + Me.LinkLabel64.TabIndex = 131 + Me.LinkLabel64.TabStop = True + Me.LinkLabel64.Text = "Ländercode ISO2 einfügen" + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 208) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + Me.txtBatchNrofTransaction._WaehrungZeichen = True + Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red + Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(817, 232) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Red + Me.txtBatchNr.Location = New System.Drawing.Point(721, 181) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(670, 181) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(681, 232) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(241, 168) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(165, 246) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(165, 218) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -3212,40 +3308,59 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'Button21 + 'DataGridViewTextBoxColumn1 ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.HeaderText = "MRN" + Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'PictureBox25 + 'txtKdNr ' - Me.PictureBox25.BackgroundImage = CType(resources.GetObject("PictureBox25.BackgroundImage"), System.Drawing.Image) - Me.PictureBox25.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox25.Location = New System.Drawing.Point(762, 459) - Me.PictureBox25.Name = "PictureBox25" - Me.PictureBox25.Size = New System.Drawing.Size(18, 18) - Me.PictureBox25.TabIndex = 94 - Me.PictureBox25.TabStop = False - Me.PictureBox25.Visible = False + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(961, 227) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 ' - 'Button23 + 'Label43 ' - Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button23.Location = New System.Drawing.Point(564, 459) - Me.Button23.Name = "Button23" - Me.Button23.Size = New System.Drawing.Size(187, 24) - Me.Button23.TabIndex = 93 - Me.Button23.Text = "Kundendaten aktualisieren (USTV-Anträge)" - Me.Button23.UseVisualStyleBackColor = True + Me.Label43.AutoSize = True + Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label43.Location = New System.Drawing.Point(907, 234) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(35, 13) + Me.Label43.TabIndex = 132 + Me.Label43.Text = "KdNr" + ' + 'CheckBox8 + ' + Me.CheckBox8.AutoSize = True + Me.CheckBox8.Checked = True + Me.CheckBox8.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox8.Location = New System.Drawing.Point(1018, 207) + Me.CheckBox8.Name = "CheckBox8" + Me.CheckBox8.Size = New System.Drawing.Size(79, 17) + Me.CheckBox8.TabIndex = 133 + Me.CheckBox8.Text = "Testsystem" + Me.CheckBox8.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -3262,6 +3377,7 @@ Partial Class frmStartOptions Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit() @@ -3287,7 +3403,6 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.TabPage4.ResumeLayout(False) @@ -3299,7 +3414,7 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -3533,4 +3648,11 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel63 As LinkLabel Friend WithEvents PictureBox25 As PictureBox Friend WithEvents Button23 As Button + Friend WithEvents Label42 As Label + Friend WithEvents txtBatchNrofTransaction As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents LinkLabel64 As LinkLabel + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents Label43 As Label + Friend WithEvents txtKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents CheckBox8 As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 1218b74..372de61 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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 \ No newline at end of file