From 14983881e82bd96c1dac38da213b215fa9f83c8d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 23 Jan 2023 08:13:26 +0100 Subject: [PATCH] Vorauskassen Benachrichtigung, Spedbuch AES AUTO Erfassung --- .../frmNacherfassungNEU.Designer.vb | 111 ++++++++++++++++-- .../Nacherfassung/frmNacherfassungNEU.vb | 9 +- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 7 +- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 6 +- .../Classes/cSpeditionsbuch.vb | 5 +- 5 files changed, 116 insertions(+), 22 deletions(-) diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb index 353d0fcd..92d2d5e0 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb @@ -233,6 +233,8 @@ Partial Class frmNacherfassungNEU Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label65 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.Panel3.SuspendLayout() Me.GroupBox4.SuspendLayout() @@ -517,6 +519,7 @@ Partial Class frmNacherfassungNEU Me.txtAbfertigungsnummer._DateTimeOnly = False Me.txtAbfertigungsnummer._numbersOnly = False Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True Me.txtAbfertigungsnummer._Prozent = False Me.txtAbfertigungsnummer._ShortDateNew = False Me.txtAbfertigungsnummer._ShortDateOnly = False @@ -552,6 +555,7 @@ Partial Class frmNacherfassungNEU Me.txtUnterNr._DateTimeOnly = False Me.txtUnterNr._numbersOnly = False Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True Me.txtUnterNr._Prozent = False Me.txtUnterNr._ShortDateNew = False Me.txtUnterNr._ShortDateOnly = False @@ -598,9 +602,9 @@ Partial Class frmNacherfassungNEU Me.btnImport.BackColor = System.Drawing.Color.Transparent Me.btnImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnImport.ForeColor = System.Drawing.Color.Black - Me.btnImport.Location = New System.Drawing.Point(593, 15) + Me.btnImport.Location = New System.Drawing.Point(679, 5) Me.btnImport.Name = "btnImport" - Me.btnImport.Size = New System.Drawing.Size(116, 24) + Me.btnImport.Size = New System.Drawing.Size(201, 38) Me.btnImport.TabIndex = 9 Me.btnImport.Text = "Datenimport" Me.btnImport.UseVisualStyleBackColor = False @@ -1106,6 +1110,7 @@ Partial Class frmNacherfassungNEU Me.txtZuschlaege._DateTimeOnly = False Me.txtZuschlaege._numbersOnly = True Me.txtZuschlaege._numbersOnlyKommastellen = "" + Me.txtZuschlaege._numbersOnlyTrennzeichen = True Me.txtZuschlaege._Prozent = False Me.txtZuschlaege._ShortDateNew = False Me.txtZuschlaege._ShortDateOnly = False @@ -1129,6 +1134,7 @@ Partial Class frmNacherfassungNEU Me.txtBarvorlagen._DateTimeOnly = False Me.txtBarvorlagen._numbersOnly = True Me.txtBarvorlagen._numbersOnlyKommastellen = "" + Me.txtBarvorlagen._numbersOnlyTrennzeichen = True Me.txtBarvorlagen._Prozent = False Me.txtBarvorlagen._ShortDateNew = False Me.txtBarvorlagen._ShortDateOnly = False @@ -1152,6 +1158,7 @@ Partial Class frmNacherfassungNEU Me.txtAE._DateTimeOnly = False Me.txtAE._numbersOnly = True Me.txtAE._numbersOnlyKommastellen = "" + Me.txtAE._numbersOnlyTrennzeichen = True Me.txtAE._Prozent = False Me.txtAE._ShortDateNew = False Me.txtAE._ShortDateOnly = False @@ -1175,6 +1182,7 @@ Partial Class frmNacherfassungNEU Me.txtT1._DateTimeOnly = False Me.txtT1._numbersOnly = True Me.txtT1._numbersOnlyKommastellen = "" + Me.txtT1._numbersOnlyTrennzeichen = True Me.txtT1._Prozent = False Me.txtT1._ShortDateNew = False Me.txtT1._ShortDateOnly = False @@ -1198,6 +1206,7 @@ Partial Class frmNacherfassungNEU Me.txtZnV._DateTimeOnly = False Me.txtZnV._numbersOnly = True Me.txtZnV._numbersOnlyKommastellen = "" + Me.txtZnV._numbersOnlyTrennzeichen = True Me.txtZnV._Prozent = False Me.txtZnV._ShortDateNew = False Me.txtZnV._ShortDateOnly = False @@ -1221,6 +1230,7 @@ Partial Class frmNacherfassungNEU Me.txtSonstiges._DateTimeOnly = False Me.txtSonstiges._numbersOnly = True Me.txtSonstiges._numbersOnlyKommastellen = "" + Me.txtSonstiges._numbersOnlyTrennzeichen = True Me.txtSonstiges._Prozent = False Me.txtSonstiges._ShortDateNew = False Me.txtSonstiges._ShortDateOnly = False @@ -1244,6 +1254,7 @@ Partial Class frmNacherfassungNEU Me.txtCarnetTIR._DateTimeOnly = False Me.txtCarnetTIR._numbersOnly = True Me.txtCarnetTIR._numbersOnlyKommastellen = "" + Me.txtCarnetTIR._numbersOnlyTrennzeichen = True Me.txtCarnetTIR._Prozent = False Me.txtCarnetTIR._ShortDateNew = False Me.txtCarnetTIR._ShortDateOnly = False @@ -1267,6 +1278,7 @@ Partial Class frmNacherfassungNEU Me.txtT2._DateTimeOnly = False Me.txtT2._numbersOnly = True Me.txtT2._numbersOnlyKommastellen = "" + Me.txtT2._numbersOnlyTrennzeichen = True Me.txtT2._Prozent = False Me.txtT2._ShortDateNew = False Me.txtT2._ShortDateOnly = False @@ -1290,6 +1302,7 @@ Partial Class frmNacherfassungNEU Me.txtZnVFremd._DateTimeOnly = False Me.txtZnVFremd._numbersOnly = True Me.txtZnVFremd._numbersOnlyKommastellen = "" + Me.txtZnVFremd._numbersOnlyTrennzeichen = True Me.txtZnVFremd._Prozent = False Me.txtZnVFremd._ShortDateNew = False Me.txtZnVFremd._ShortDateOnly = False @@ -1313,6 +1326,7 @@ Partial Class frmNacherfassungNEU Me.txtZAFremd._DateTimeOnly = False Me.txtZAFremd._numbersOnly = True Me.txtZAFremd._numbersOnlyKommastellen = "" + Me.txtZAFremd._numbersOnlyTrennzeichen = True Me.txtZAFremd._Prozent = False Me.txtZAFremd._ShortDateNew = False Me.txtZAFremd._ShortDateOnly = False @@ -1336,6 +1350,7 @@ Partial Class frmNacherfassungNEU Me.txtZA._DateTimeOnly = False Me.txtZA._numbersOnly = True Me.txtZA._numbersOnlyKommastellen = "" + Me.txtZA._numbersOnlyTrennzeichen = True Me.txtZA._Prozent = False Me.txtZA._ShortDateNew = False Me.txtZA._ShortDateOnly = False @@ -1452,6 +1467,9 @@ Partial Class frmNacherfassungNEU Me.Panel1.AutoScroll = True Me.Panel1.Controls.Add(Me.cbxEIDR) Me.Panel1.Controls.Add(Me.Button4) + Me.Panel1.Controls.Add(Me.cboNiederlassung) + Me.Panel1.Controls.Add(Me.Label56) + Me.Panel1.Controls.Add(Me.btnATLASPOS) Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger) Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer) Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerAvisierer) @@ -1578,6 +1596,7 @@ Partial Class frmNacherfassungNEU Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False Me.txtKdAuftragsnummerEmpfaenger._numbersOnly = False Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyKommastellen = "" + Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyTrennzeichen = True Me.txtKdAuftragsnummerEmpfaenger._Prozent = False Me.txtKdAuftragsnummerEmpfaenger._ShortDateNew = False Me.txtKdAuftragsnummerEmpfaenger._ShortDateOnly = False @@ -1601,6 +1620,7 @@ Partial Class frmNacherfassungNEU Me.txtKdAuftragsnummerFrachtfuehrer._DateTimeOnly = False Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnly = False Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyKommastellen = "" + Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyTrennzeichen = True Me.txtKdAuftragsnummerFrachtfuehrer._Prozent = False Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateNew = False Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateOnly = False @@ -1624,6 +1644,7 @@ Partial Class frmNacherfassungNEU Me.txtKdAuftragsnummerAvisierer._DateTimeOnly = False Me.txtKdAuftragsnummerAvisierer._numbersOnly = False Me.txtKdAuftragsnummerAvisierer._numbersOnlyKommastellen = "" + Me.txtKdAuftragsnummerAvisierer._numbersOnlyTrennzeichen = True Me.txtKdAuftragsnummerAvisierer._Prozent = False Me.txtKdAuftragsnummerAvisierer._ShortDateNew = False Me.txtKdAuftragsnummerAvisierer._ShortDateOnly = False @@ -1647,6 +1668,7 @@ Partial Class frmNacherfassungNEU Me.txtInkasso._DateTimeOnly = False Me.txtInkasso._numbersOnly = True Me.txtInkasso._numbersOnlyKommastellen = "" + Me.txtInkasso._numbersOnlyTrennzeichen = True Me.txtInkasso._Prozent = False Me.txtInkasso._ShortDateNew = False Me.txtInkasso._ShortDateOnly = False @@ -1836,6 +1858,7 @@ Partial Class frmNacherfassungNEU Me.txtCMRNr._DateTimeOnly = False Me.txtCMRNr._numbersOnly = False Me.txtCMRNr._numbersOnlyKommastellen = "" + Me.txtCMRNr._numbersOnlyTrennzeichen = True Me.txtCMRNr._Prozent = False Me.txtCMRNr._ShortDateNew = False Me.txtCMRNr._ShortDateOnly = False @@ -1860,6 +1883,7 @@ Partial Class frmNacherfassungNEU Me.txtCMRDatum._DateTimeOnly = False Me.txtCMRDatum._numbersOnly = False Me.txtCMRDatum._numbersOnlyKommastellen = "" + Me.txtCMRDatum._numbersOnlyTrennzeichen = True Me.txtCMRDatum._Prozent = False Me.txtCMRDatum._ShortDateNew = True Me.txtCMRDatum._ShortDateOnly = False @@ -1939,6 +1963,7 @@ Partial Class frmNacherfassungNEU Me.txtKdAuftragsnummer._DateTimeOnly = False Me.txtKdAuftragsnummer._numbersOnly = False Me.txtKdAuftragsnummer._numbersOnlyKommastellen = "" + Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True Me.txtKdAuftragsnummer._Prozent = False Me.txtKdAuftragsnummer._ShortDateNew = False Me.txtKdAuftragsnummer._ShortDateOnly = False @@ -2181,6 +2206,7 @@ Partial Class frmNacherfassungNEU Me.txtAvisiererKdNr._DateTimeOnly = False Me.txtAvisiererKdNr._numbersOnly = False Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" + Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True Me.txtAvisiererKdNr._Prozent = False Me.txtAvisiererKdNr._ShortDateNew = False Me.txtAvisiererKdNr._ShortDateOnly = False @@ -2384,6 +2410,7 @@ Partial Class frmNacherfassungNEU Me.txtZucker_Aufschub._DateTimeOnly = False Me.txtZucker_Aufschub._numbersOnly = False Me.txtZucker_Aufschub._numbersOnlyKommastellen = "" + Me.txtZucker_Aufschub._numbersOnlyTrennzeichen = True Me.txtZucker_Aufschub._Prozent = False Me.txtZucker_Aufschub._ShortDateNew = False Me.txtZucker_Aufschub._ShortDateOnly = False @@ -2407,6 +2434,7 @@ Partial Class frmNacherfassungNEU Me.txtZucker_Datum._DateTimeOnly = False Me.txtZucker_Datum._numbersOnly = False Me.txtZucker_Datum._numbersOnlyKommastellen = "" + Me.txtZucker_Datum._numbersOnlyTrennzeichen = True Me.txtZucker_Datum._Prozent = False Me.txtZucker_Datum._ShortDateNew = False Me.txtZucker_Datum._ShortDateOnly = False @@ -2450,6 +2478,7 @@ Partial Class frmNacherfassungNEU Me.txtZuckerMRN._DateTimeOnly = False Me.txtZuckerMRN._numbersOnly = False Me.txtZuckerMRN._numbersOnlyKommastellen = "" + Me.txtZuckerMRN._numbersOnlyTrennzeichen = True Me.txtZuckerMRN._Prozent = False Me.txtZuckerMRN._ShortDateNew = False Me.txtZuckerMRN._ShortDateOnly = False @@ -2511,6 +2540,7 @@ Partial Class frmNacherfassungNEU Me.txtCRN._DateTimeOnly = False Me.txtCRN._numbersOnly = False Me.txtCRN._numbersOnlyKommastellen = "" + Me.txtCRN._numbersOnlyTrennzeichen = True Me.txtCRN._Prozent = False Me.txtCRN._ShortDateNew = False Me.txtCRN._ShortDateOnly = False @@ -2620,6 +2650,7 @@ Partial Class frmNacherfassungNEU Me.txtRohmasse._DateTimeOnly = False Me.txtRohmasse._numbersOnly = True Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._numbersOnlyTrennzeichen = True Me.txtRohmasse._Prozent = False Me.txtRohmasse._ShortDateNew = False Me.txtRohmasse._ShortDateOnly = False @@ -2642,6 +2673,7 @@ Partial Class frmNacherfassungNEU Me.txtZahlungsaufschub._DateTimeOnly = False Me.txtZahlungsaufschub._numbersOnly = False Me.txtZahlungsaufschub._numbersOnlyKommastellen = "" + Me.txtZahlungsaufschub._numbersOnlyTrennzeichen = True Me.txtZahlungsaufschub._Prozent = False Me.txtZahlungsaufschub._ShortDateNew = False Me.txtZahlungsaufschub._ShortDateOnly = False @@ -2664,6 +2696,7 @@ Partial Class frmNacherfassungNEU Me.txtAbsenderKdNr._DateTimeOnly = False Me.txtAbsenderKdNr._numbersOnly = False Me.txtAbsenderKdNr._numbersOnlyKommastellen = "" + Me.txtAbsenderKdNr._numbersOnlyTrennzeichen = True Me.txtAbsenderKdNr._Prozent = False Me.txtAbsenderKdNr._ShortDateNew = False Me.txtAbsenderKdNr._ShortDateOnly = False @@ -2688,6 +2721,7 @@ Partial Class frmNacherfassungNEU Me.txtAnzahl._DateTimeOnly = False Me.txtAnzahl._numbersOnly = False Me.txtAnzahl._numbersOnlyKommastellen = "" + Me.txtAnzahl._numbersOnlyTrennzeichen = True Me.txtAnzahl._Prozent = False Me.txtAnzahl._ShortDateNew = False Me.txtAnzahl._ShortDateOnly = False @@ -2710,6 +2744,7 @@ Partial Class frmNacherfassungNEU Me.txtBarzahlungsbetrag._DateTimeOnly = False Me.txtBarzahlungsbetrag._numbersOnly = True Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = "" + Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True Me.txtBarzahlungsbetrag._Prozent = False Me.txtBarzahlungsbetrag._ShortDateNew = False Me.txtBarzahlungsbetrag._ShortDateOnly = False @@ -2731,6 +2766,7 @@ Partial Class frmNacherfassungNEU Me.txtFraechterKdNr._DateTimeOnly = False Me.txtFraechterKdNr._numbersOnly = False Me.txtFraechterKdNr._numbersOnlyKommastellen = "" + Me.txtFraechterKdNr._numbersOnlyTrennzeichen = True Me.txtFraechterKdNr._Prozent = False Me.txtFraechterKdNr._ShortDateNew = False Me.txtFraechterKdNr._ShortDateOnly = False @@ -2755,6 +2791,7 @@ Partial Class frmNacherfassungNEU Me.txtAuftraggeberKdNr._DateTimeOnly = False Me.txtAuftraggeberKdNr._numbersOnly = False Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = "" + Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True Me.txtAuftraggeberKdNr._Prozent = False Me.txtAuftraggeberKdNr._ShortDateNew = False Me.txtAuftraggeberKdNr._ShortDateOnly = False @@ -2779,6 +2816,7 @@ Partial Class frmNacherfassungNEU Me.txtPackstuecke._DateTimeOnly = False Me.txtPackstuecke._numbersOnly = False Me.txtPackstuecke._numbersOnlyKommastellen = "" + Me.txtPackstuecke._numbersOnlyTrennzeichen = True Me.txtPackstuecke._Prozent = False Me.txtPackstuecke._ShortDateNew = False Me.txtPackstuecke._ShortDateOnly = False @@ -2804,6 +2842,7 @@ Partial Class frmNacherfassungNEU Me.txtUmrechnungskurs._DateTimeOnly = False Me.txtUmrechnungskurs._numbersOnly = False Me.txtUmrechnungskurs._numbersOnlyKommastellen = "" + Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True Me.txtUmrechnungskurs._Prozent = False Me.txtUmrechnungskurs._ShortDateNew = False Me.txtUmrechnungskurs._ShortDateOnly = False @@ -2826,6 +2865,7 @@ Partial Class frmNacherfassungNEU Me.txtRechnungsbetrag._DateTimeOnly = False Me.txtRechnungsbetrag._numbersOnly = True Me.txtRechnungsbetrag._numbersOnlyKommastellen = "" + Me.txtRechnungsbetrag._numbersOnlyTrennzeichen = True Me.txtRechnungsbetrag._Prozent = False Me.txtRechnungsbetrag._ShortDateNew = False Me.txtRechnungsbetrag._ShortDateOnly = False @@ -2848,6 +2888,7 @@ Partial Class frmNacherfassungNEU Me.txtBemerkung._DateTimeOnly = False Me.txtBemerkung._numbersOnly = False Me.txtBemerkung._numbersOnlyKommastellen = "" + Me.txtBemerkung._numbersOnlyTrennzeichen = True Me.txtBemerkung._Prozent = False Me.txtBemerkung._ShortDateNew = False Me.txtBemerkung._ShortDateOnly = False @@ -2871,6 +2912,7 @@ Partial Class frmNacherfassungNEU Me.txtEmpfaengerKdNr._DateTimeOnly = False Me.txtEmpfaengerKdNr._numbersOnly = False Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = "" + Me.txtEmpfaengerKdNr._numbersOnlyTrennzeichen = True Me.txtEmpfaengerKdNr._Prozent = False Me.txtEmpfaengerKdNr._ShortDateNew = False Me.txtEmpfaengerKdNr._ShortDateOnly = False @@ -2895,6 +2937,7 @@ Partial Class frmNacherfassungNEU Me.txtVermerk._DateTimeOnly = False Me.txtVermerk._numbersOnly = False Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True Me.txtVermerk._Prozent = False Me.txtVermerk._ShortDateNew = False Me.txtVermerk._ShortDateOnly = False @@ -2918,6 +2961,7 @@ Partial Class frmNacherfassungNEU Me.txtErfassungsnummer._DateTimeOnly = False Me.txtErfassungsnummer._numbersOnly = False Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True Me.txtErfassungsnummer._Prozent = False Me.txtErfassungsnummer._ShortDateNew = False Me.txtErfassungsnummer._ShortDateOnly = False @@ -2941,6 +2985,7 @@ Partial Class frmNacherfassungNEU Me.txtEndEmpfKdNr._DateTimeOnly = False Me.txtEndEmpfKdNr._numbersOnly = False Me.txtEndEmpfKdNr._numbersOnlyKommastellen = "" + Me.txtEndEmpfKdNr._numbersOnlyTrennzeichen = True Me.txtEndEmpfKdNr._Prozent = False Me.txtEndEmpfKdNr._ShortDateNew = False Me.txtEndEmpfKdNr._ShortDateOnly = False @@ -2965,6 +3010,7 @@ Partial Class frmNacherfassungNEU Me.txtBelegNummerZAT1T2._DateTimeOnly = False Me.txtBelegNummerZAT1T2._numbersOnly = False Me.txtBelegNummerZAT1T2._numbersOnlyKommastellen = "" + Me.txtBelegNummerZAT1T2._numbersOnlyTrennzeichen = True Me.txtBelegNummerZAT1T2._Prozent = False Me.txtBelegNummerZAT1T2._ShortDateNew = False Me.txtBelegNummerZAT1T2._ShortDateOnly = False @@ -2987,11 +3033,10 @@ Partial Class frmNacherfassungNEU ' Me.pnlZOll.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.pnlZOll.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlZOll.Controls.Add(Me.cboNiederlassung) - Me.pnlZOll.Controls.Add(Me.Label56) + Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrAES) + Me.pnlZOll.Controls.Add(Me.Label65) Me.pnlZOll.Controls.Add(Me.lblZollsys) Me.pnlZOll.Controls.Add(Me.cboZollsystem) - Me.pnlZOll.Controls.Add(Me.btnATLASPOS) Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrEZA) Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrNCTS) Me.pnlZOll.Controls.Add(Me.Label26) @@ -3008,7 +3053,7 @@ Partial Class frmNacherfassungNEU ' Me.cboNiederlassung.FormattingEnabled = True Me.cboNiederlassung.Items.AddRange(New Object() {"SUB", "SBG", "WAI", "NEU", "SUW"}) - Me.cboNiederlassung.Location = New System.Drawing.Point(801, 17) + Me.cboNiederlassung.Location = New System.Drawing.Point(301, 309) Me.cboNiederlassung.Name = "cboNiederlassung" Me.cboNiederlassung.Size = New System.Drawing.Size(74, 21) Me.cboNiederlassung.TabIndex = 3 @@ -3016,7 +3061,7 @@ Partial Class frmNacherfassungNEU 'Label56 ' Me.Label56.AutoSize = True - Me.Label56.Location = New System.Drawing.Point(798, 1) + Me.Label56.Location = New System.Drawing.Point(298, 293) Me.Label56.Name = "Label56" Me.Label56.Size = New System.Drawing.Size(77, 13) Me.Label56.TabIndex = 0 @@ -3049,12 +3094,12 @@ Partial Class frmNacherfassungNEU ' Me.btnATLASPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnATLASPOS.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnATLASPOS.Location = New System.Drawing.Point(715, 15) + Me.btnATLASPOS.Location = New System.Drawing.Point(318, 315) Me.btnATLASPOS.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnATLASPOS.Name = "btnATLASPOS" - Me.btnATLASPOS.Size = New System.Drawing.Size(78, 24) + Me.btnATLASPOS.Size = New System.Drawing.Size(29, 24) Me.btnATLASPOS.TabIndex = 10 - Me.btnATLASPOS.Text = "Positionen" + Me.btnATLASPOS.Text = "Pos" Me.btnATLASPOS.UseVisualStyleBackColor = True Me.btnATLASPOS.Visible = False ' @@ -3063,6 +3108,7 @@ Partial Class frmNacherfassungNEU Me.txtAtlasBezNrEZA._DateTimeOnly = False Me.txtAtlasBezNrEZA._numbersOnly = False Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrEZA._numbersOnlyTrennzeichen = True Me.txtAtlasBezNrEZA._Prozent = False Me.txtAtlasBezNrEZA._ShortDateNew = False Me.txtAtlasBezNrEZA._ShortDateOnly = False @@ -3086,6 +3132,7 @@ Partial Class frmNacherfassungNEU Me.txtAtlasBezNrNCTS._DateTimeOnly = False Me.txtAtlasBezNrNCTS._numbersOnly = False Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrNCTS._numbersOnlyTrennzeichen = True Me.txtAtlasBezNrNCTS._Prozent = False Me.txtAtlasBezNrNCTS._ShortDateNew = False Me.txtAtlasBezNrNCTS._ShortDateOnly = False @@ -3095,7 +3142,7 @@ Partial Class frmNacherfassungNEU Me.txtAtlasBezNrNCTS._Waehrung = False Me.txtAtlasBezNrNCTS._WaehrungZeichen = True Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black - Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(483, 18) + Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(428, 18) Me.txtAtlasBezNrNCTS.MaxLength = 22 Me.txtAtlasBezNrNCTS.MaxLineLength = -1 Me.txtAtlasBezNrNCTS.MaxLines_Warning = "" @@ -3127,9 +3174,9 @@ Partial Class frmNacherfassungNEU Me.Label51.AutoSize = True Me.Label51.Location = New System.Drawing.Point(383, 22) Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(94, 13) + Me.Label51.Size = New System.Drawing.Size(39, 13) Me.Label51.TabIndex = 7 - Me.Label51.Text = "Bezugs-Nr. NCTS:" + Me.Label51.Text = "NCTS:" ' 'Label58 ' @@ -3189,6 +3236,7 @@ Partial Class frmNacherfassungNEU Me.txtHandlingZuKassieren._DateTimeOnly = False Me.txtHandlingZuKassieren._numbersOnly = True Me.txtHandlingZuKassieren._numbersOnlyKommastellen = "" + Me.txtHandlingZuKassieren._numbersOnlyTrennzeichen = True Me.txtHandlingZuKassieren._Prozent = False Me.txtHandlingZuKassieren._ShortDateNew = False Me.txtHandlingZuKassieren._ShortDateOnly = False @@ -3264,6 +3312,7 @@ Partial Class frmNacherfassungNEU Me.MyTextBoxLKWKz._DateTimeOnly = False Me.MyTextBoxLKWKz._numbersOnly = False Me.MyTextBoxLKWKz._numbersOnlyKommastellen = "" + Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True Me.MyTextBoxLKWKz._Prozent = False Me.MyTextBoxLKWKz._ShortDateNew = False Me.MyTextBoxLKWKz._ShortDateOnly = False @@ -3287,6 +3336,7 @@ Partial Class frmNacherfassungNEU Me.txtLKWId._DateTimeOnly = False Me.txtLKWId._numbersOnly = True Me.txtLKWId._numbersOnlyKommastellen = "" + Me.txtLKWId._numbersOnlyTrennzeichen = True Me.txtLKWId._Prozent = False Me.txtLKWId._ShortDateNew = False Me.txtLKWId._ShortDateOnly = False @@ -3337,6 +3387,39 @@ Partial Class frmNacherfassungNEU Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" ' + 'txtAtlasBezNrAES + ' + Me.txtAtlasBezNrAES._DateTimeOnly = False + Me.txtAtlasBezNrAES._numbersOnly = False + Me.txtAtlasBezNrAES._numbersOnlyKommastellen = "" + Me.txtAtlasBezNrAES._numbersOnlyTrennzeichen = True + Me.txtAtlasBezNrAES._Prozent = False + Me.txtAtlasBezNrAES._ShortDateNew = False + Me.txtAtlasBezNrAES._ShortDateOnly = False + Me.txtAtlasBezNrAES._TimeOnly = False + Me.txtAtlasBezNrAES._TimeOnly_Seconds = False + Me.txtAtlasBezNrAES._value = Nothing + Me.txtAtlasBezNrAES._Waehrung = False + Me.txtAtlasBezNrAES._WaehrungZeichen = True + Me.txtAtlasBezNrAES.ForeColor = System.Drawing.Color.Black + Me.txtAtlasBezNrAES.Location = New System.Drawing.Point(571, 18) + Me.txtAtlasBezNrAES.MaxLength = 22 + Me.txtAtlasBezNrAES.MaxLineLength = -1 + Me.txtAtlasBezNrAES.MaxLines_Warning = "" + Me.txtAtlasBezNrAES.MaxLines_Warning_Label = Nothing + Me.txtAtlasBezNrAES.Name = "txtAtlasBezNrAES" + Me.txtAtlasBezNrAES.Size = New System.Drawing.Size(100, 20) + Me.txtAtlasBezNrAES.TabIndex = 11 + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Location = New System.Drawing.Point(534, 22) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(31, 13) + Me.Label65.TabIndex = 10 + Me.Label65.Text = "AES:" + ' 'frmNacherfassungNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3578,4 +3661,6 @@ Partial Class frmNacherfassungNEU Friend WithEvents ContextMenuStrip2 As ContextMenuStrip Friend WithEvents KopierenZwischenablageToolStripMenuItem As ToolStripMenuItem Public WithEvents Button5 As Button + Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label65 As Label End Class diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 9d3053c0..f3c11a8e 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -228,6 +228,7 @@ Public Class frmNacherfassungNEU If SPEDITIONSBUCH.EndempfängerKundenNr > 0 Then txtEndEmpf.KdNr = SPEDITIONSBUCH.EndempfängerKundenNr txtAtlasBezNrEZA.Text = SPEDITIONSBUCH.AtlasBezNrEZA + txtAtlasBezNrAES.Text = SPEDITIONSBUCH.AtlasBezNrAES txtAtlasBezNrNCTS.Text = SPEDITIONSBUCH.AtlasBezNrNCTS Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" @@ -896,6 +897,7 @@ Public Class frmNacherfassungNEU SPEDITIONSBUCH.NCTS_Verzollungsadresse = txtT1Verzollungsadresse.Text SPEDITIONSBUCH.AtlasBezNrEZA = txtAtlasBezNrEZA.Text + SPEDITIONSBUCH.AtlasBezNrAES = txtAtlasBezNrAES.Text SPEDITIONSBUCH.AtlasBezNrNCTS = txtAtlasBezNrNCTS.Text SPEDITIONSBUCH.Zollsystem = If(cboZollsystem._value = "", Nothing, cboZollsystem._value) @@ -1036,7 +1038,7 @@ Public Class frmNacherfassungNEU Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnImport.Click Label26.ForeColor = Color.Black - If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then + If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Or txtAtlasBezNrAES.Text <> "" Then If cboZollsystem._value = "" Then Label26.ForeColor = Color.Red Exit Sub @@ -1056,6 +1058,7 @@ Public Class frmNacherfassungNEU Dim EZANr = txtAtlasBezNrEZA.Text Dim NCTSNr = txtAtlasBezNrNCTS.Text + Dim AESNr = txtAtlasBezNrAES.Text If cboNiederlassung.Text <> "" Then strManNl = cboNiederlassung.Text @@ -1082,7 +1085,7 @@ Public Class frmNacherfassungNEU lblLastMa.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME loadDatainSPEDBUCH() - SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound) + SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound,,, AESNr) If notFound Then lblZollsys.Visible = True MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation) @@ -1375,7 +1378,7 @@ Public Class frmNacherfassungNEU End If End Sub - Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown + Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown, txtAtlasBezNrAES.KeyDown If e.KeyCode = Keys.Return Then btnImport.PerformClick() End If diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index da5364d2..281611a6 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -657,14 +657,15 @@ Public Class cVorauskasseOptions Shared Sub insertBenachrichtigung(VermerkTxt, AvisoId, SendungID) Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'") + Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO") Dim art = "B" If sendToID < 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then - sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'") + sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO") art = "T" End If - VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 3, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt) + '6 = VK OK + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 6, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt) Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index b90ff7d6..bf1a4d32 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -318,7 +318,7 @@ Public Class cADMIN 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen 'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS " - Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " & + Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username, case WHEN isnull(mit_abweichenderAnzeigename,'')='' THEN mit_username ELSE mit_abweichenderAnzeigename END mit_usernameDisplay,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " & " tblMitarbeiter,tblBerProg where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND (mit_firma=@mit_firma OR mit_firma='ALL' ) AND bepr_programm=@bepr_programm AND bepr_userId=mit_id " @@ -345,7 +345,8 @@ Public Class cADMIN ' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD" ' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG" ' If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???" - cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username"))) + cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_usernameDisplay")) + 'cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username"))) cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) cMitarbeiterAVISO.KW = CStr(dr.Item("mit_pwd")) ' cMitarbeiterAVISO.Sicherheitsstufe = CInt(dr.Item("ber_sicherheitsstufe")) @@ -363,6 +364,7 @@ Public Class cADMIN ' VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME = CStr(dr.Item("mit_nname")) 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_username")) + ' VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_usernameDisplay")) If dr.Item("mit_firmaFMZoll") Is DBNull.Value Then MsgBox("Benutzer muss einer Firma zugeordnet sein!") Return False diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index b4f12287..466a68e2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -137,6 +137,7 @@ Public Class cSpeditionsbuch Property PersonalnummerQS As Object = Nothing 'int=-1 Property AtlasBezNrEZA As String = "" Property AtlasBezNrNCTS As String = "" + Property AtlasBezNrAES As String = "" Property Versendungsland As String = "" Property SB_CMR As Boolean = False Property SB_CMRDatum As Object = Nothing @@ -312,6 +313,7 @@ Public Class cSpeditionsbuch Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing) Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA")) Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS")) + Me.AtlasBezNrAES = SQL.checkNullStr(dr.Item("AtlasBezNrAES")) Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland")) Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR")) Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum")) @@ -378,7 +380,7 @@ Public Class cSpeditionsbuch Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr OR [AtlasBezNrAES]=@bezugsNr )", conn) cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -466,6 +468,7 @@ Public Class cSpeditionsbuch list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrAES", AtlasBezNrAES)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))