diff --git a/Aviso/App.config b/Aviso/App.config index 96c7394..cf5284a 100644 --- a/Aviso/App.config +++ b/Aviso/App.config @@ -1,4 +1,4 @@ - + diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index b012385..e394487 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -68,6 +68,7 @@ Public Class frmGesamtsicherheitenMenuNEU Public Function LoadDGV() Dim sqladdon As String = "" + Dim sqlWhere As String = "" Dim sqlSicherheitssaldo As String = "" If chkOffen.Checked Then sqlSicherheitssaldo &= " HAVING ( COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) + @@ -77,6 +78,24 @@ Public Class frmGesamtsicherheitenMenuNEU If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" If cbxAUTO.Checked Then sqladdon &= " AND CAST(gs_dakoyimport AS INT) = 1" + + If txtSuchbegriff.Text <> "" Then + + sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR + gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%' + )" + + + + + End If + 'Dim sqlstring As String = ' " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId, ' max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT( @@ -145,17 +164,10 @@ Public Class frmGesamtsicherheitenMenuNEU tblGesamtsicherheit gs LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr - WHERE + WHERE gs.gs_gsnr <> 2030 AND gs.gs_standort = '" & Standort & "' " & sqladdon & " - AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' - AND ( - gs.gs_freitext LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text & "%' OR - gs.gs_warenort LIKE '%" & txtSuchbegriff.Text & "%' - ) + AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & sqlWhere & " + GROUP BY gs.gs_gsnr " & sqlSicherheitssaldo & "ORDER BY @@ -472,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag END) AS gs_SicherheitsSaldo - FROM tblGesamtsicherheit + FROM tblGesamtsicherheit WHERE gs_gsnr <> 2030 GROUP BY gs_gsnr ), PositionenSaldo AS ( @@ -482,7 +494,7 @@ Public Class frmGesamtsicherheitenMenuNEU WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag END) AS gsp_SicherheitsSaldo - FROM tblGesamtsicherheitsPositionen + FROM tblGesamtsicherheitsPositionen WHERE gsp_gsnr <> 2030 GROUP BY gsp_gsnr ) SELECT @@ -497,7 +509,7 @@ Public Class frmGesamtsicherheitenMenuNEU FROM tblGesamtsicherheit gs LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr - WHERE gs.gs_standort = '" & Standort & "' + WHERE gs.gs_standort = '" & Standort & "' AND gs.gs_gsnr <> 2030 AND gs.gs_datum < '" & Date.Now().AddDays(-85) & "' GROUP BY gs.gs_gsnr ) AS meh2 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index e983c64..65e9dfa 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -80,12 +80,7 @@ Public Class frmGesamtsicherheitenNEU cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - If warenortPrefix <> "" Then - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND LEFT([wo_warenort],2) = " & warenortPrefix & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) - Else - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) ' - End If - + setcboWarenort(True) If datum = Nothing Then datum = Date.Now @@ -94,28 +89,6 @@ Public Class frmGesamtsicherheitenNEU txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200) - If Standort = "AMBAR GmbH" Then - For i As Integer = 0 To cboFiliale.Items.Count - 1 - If cboFiliale.Items(i).ToString().Contains("5701") Then - cboFiliale.SelectedIndex = i - Exit For - End If - Next - For i As Integer = 0 To cboWarenort.Items.Count - 1 - If cboWarenort.Items(i).ToString().Contains("AMBAR") Then - cboWarenort.SelectedIndex = i - Exit For - End If - Next - ElseIf grenzstelle <> "" Then - - For i As Integer = 0 To cboWarenort.Items.Count - 1 - If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then - cboWarenort.SelectedIndex = i - Exit For - End If - Next - End If Else LoadDGVSicherheiten(True) @@ -2339,4 +2312,58 @@ Public Class frmGesamtsicherheitenNEU End Sub + Private Sub setcboWarenort(setDefaultValue As Boolean) + + Dim whereWarenort As String = " WHERE [wo_aktiv] = 1 AND wo_ze = 1" + + + If Standort = "Atilla GmbH" Then + + '----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026 + + whereWarenort &= " AND [wo_firma] not in (24, 21,22,23, 11)" + + Else + If warenortPrefix <> "" Then + whereWarenort &= " AND LEFT([wo_warenort],2) = " & warenortPrefix & "" + Else + whereWarenort &= " AND [wo_firma] = " & firmaId + End If + + End If + + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] " & whereWarenort, True, "AVISO", True) + + + If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then + + If Standort = "AMBAR GmbH" Then + For i As Integer = 0 To cboFiliale.Items.Count - 1 + If cboFiliale.Items(i).ToString().Contains("5701") Then + cboFiliale.SelectedIndex = i + Exit For + End If + Next + For i As Integer = 0 To cboWarenort.Items.Count - 1 + If cboWarenort.Items(i).ToString().Contains("AMBAR") Then + cboWarenort.SelectedIndex = i + Exit For + End If + Next + ElseIf grenzstelle <> "" Then + + For i As Integer = 0 To cboWarenort.Items.Count - 1 + If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then + cboWarenort.SelectedIndex = i + Exit For + End If + Next + End If + + End If + + + + End Sub + End Class diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index ad7a018..a4d46d9 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -133,7 +133,6 @@ Partial Class frmSendungsdetailsNEU Me.Label25 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke() Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.tbDigicust = New System.Windows.Forms.TabPage() Me.dgvDigicust = New System.Windows.Forms.DataGridView() @@ -260,35 +259,10 @@ Partial Class frmSendungsdetailsNEU Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button4 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() - Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox() Me.lblSonstigesKosten = New System.Windows.Forms.Label() Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_VERAG = New System.Windows.Forms.Button() - Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox() - Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox() - Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox() Me.Panel15 = New System.Windows.Forms.Panel() Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() @@ -301,7 +275,6 @@ Partial Class frmSendungsdetailsNEU Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFrachtfuehrer = New System.Windows.Forms.Label() Me.pnlT1 = New System.Windows.Forms.Panel() - Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse() Me.Label43 = New System.Windows.Forms.Label() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -1038,7 +1011,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem8.Text = "T1" ' 'ToolStripMenuItem9 @@ -1046,7 +1019,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" - Me.ToolStripMenuItem9.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem9.Text = "T2" ' 'ToolStripMenuItem10 @@ -1054,7 +1027,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" - Me.ToolStripMenuItem10.Size = New System.Drawing.Size(102, 30) + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(94, 22) Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Visible = False ' @@ -1099,7 +1072,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" - Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem20.Text = "EZA" ' 'ToolStripMenuItem18 @@ -1108,7 +1081,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" - Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem18.Text = "T1" ' 'ToolStripMenuItem19 @@ -1117,7 +1090,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" - Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30) + Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22) Me.ToolStripMenuItem19.Text = "T2" ' 'toolSendMIC @@ -1135,7 +1108,7 @@ Partial Class frmSendungsdetailsNEU ' Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" - Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem22.Text = "MIC Import senden" ' 'ToolStripMenuItem23 @@ -1143,7 +1116,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" - Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem23.Text = "MIC Transit senden" ' 'ToolStripMenuItem24 @@ -1152,7 +1125,7 @@ Partial Class frmSendungsdetailsNEU Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" - Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30) + Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22) Me.ToolStripMenuItem24.Text = "MIC Export senden" ' 'toolSendDyModelTrans @@ -1169,21 +1142,21 @@ Partial Class frmSendungsdetailsNEU ' Me.toolModal_Import.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Import.Name = "toolModal_Import" - Me.toolModal_Import.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Import.Size = New System.Drawing.Size(145, 22) Me.toolModal_Import.Text = "IMPORT" ' 'toolModal_Export ' Me.toolModal_Export.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Export.Name = "toolModal_Export" - Me.toolModal_Export.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Export.Size = New System.Drawing.Size(145, 22) Me.toolModal_Export.Text = "EXPORT" ' 'toolModal_Transit ' Me.toolModal_Transit.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.toolModal_Transit.Name = "toolModal_Transit" - Me.toolModal_Transit.Size = New System.Drawing.Size(153, 30) + Me.toolModal_Transit.Size = New System.Drawing.Size(145, 22) Me.toolModal_Transit.Text = "TRANSIT (T1)" ' 'ToolStripMenuItem12 @@ -3658,66 +3631,6 @@ Partial Class frmSendungsdetailsNEU Me.Button1.Text = "BAR - Beleg" Me.Button1.UseVisualStyleBackColor = False ' - 'cntlFrachtfuehrer_Sonst - ' - Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST" - Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF" - Me.cntlFrachtfuehrer_Sonst._readOnly = True - Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168) - Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst" - Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtfuehrer_Sonst.TabIndex = 82 - Me.cntlFrachtfuehrer_Sonst.TabStop = False - Me.cntlFrachtfuehrer_Sonst.value = "" - ' - 'cntlAbsender_Sonst - ' - Me.cntlAbsender_Sonst._abrArt = "SONST" - Me.cntlAbsender_Sonst._beteiligter = "ABS" - Me.cntlAbsender_Sonst._readOnly = True - Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133) - Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst" - Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Sonst.TabIndex = 68 - Me.cntlAbsender_Sonst.TabStop = False - Me.cntlAbsender_Sonst.value = "" - ' - 'cntlEmpfaenger_Sonst - ' - Me.cntlEmpfaenger_Sonst._abrArt = "SONST" - Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF" - Me.cntlEmpfaenger_Sonst._readOnly = True - Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94) - Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst" - Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpfaenger_Sonst.TabIndex = 53 - Me.cntlEmpfaenger_Sonst.TabStop = False - Me.cntlEmpfaenger_Sonst.value = "" - ' - 'cntlAuftraggeber_Sonst - ' - Me.cntlAuftraggeber_Sonst._abrArt = "SONST" - Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR" - Me.cntlAuftraggeber_Sonst._readOnly = True - Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57) - Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst" - Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftraggeber_Sonst.TabIndex = 36 - Me.cntlAuftraggeber_Sonst.TabStop = False - Me.cntlAuftraggeber_Sonst.value = "" - ' - 'cntlAvisierer_Sonst - ' - Me.cntlAvisierer_Sonst._abrArt = "SONST" - Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER" - Me.cntlAvisierer_Sonst._readOnly = True - Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20) - Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst" - Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Sonst.TabIndex = 21 - Me.cntlAvisierer_Sonst.TabStop = False - Me.cntlAvisierer_Sonst.value = "" - ' 'lblSonstigesKosten ' Me.lblSonstigesKosten.AutoSize = True @@ -3785,246 +3698,6 @@ Partial Class frmSendungsdetailsNEU Me.btnAufschub_VERAG.UseVisualStyleBackColor = False Me.btnAufschub_VERAG.Visible = False ' - 'cntlFrachtf_Clear - ' - Me.cntlFrachtf_Clear._abrArt = "CLEARING" - Me.cntlFrachtf_Clear._beteiligter = "FRACHTF" - Me.cntlFrachtf_Clear._readOnly = False - Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168) - Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear" - Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Clear.TabIndex = 81 - Me.cntlFrachtf_Clear.TabStop = False - Me.cntlFrachtf_Clear.value = "" - ' - 'cntlFrachtf_Abf - ' - Me.cntlFrachtf_Abf._abrArt = "ABFKOST" - Me.cntlFrachtf_Abf._beteiligter = "FRACHTF" - Me.cntlFrachtf_Abf._readOnly = False - Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168) - Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf" - Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Abf.TabIndex = 80 - Me.cntlFrachtf_Abf.TabStop = False - Me.cntlFrachtf_Abf.value = "" - ' - 'cntlFrachtf_Eust - ' - Me.cntlFrachtf_Eust._abrArt = "EUST" - Me.cntlFrachtf_Eust._beteiligter = "FRACHTF" - Me.cntlFrachtf_Eust._readOnly = False - Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168) - Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust" - Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Eust.TabIndex = 79 - Me.cntlFrachtf_Eust.TabStop = False - Me.cntlFrachtf_Eust.value = "" - ' - 'cntlFrachtf_Zoll - ' - Me.cntlFrachtf_Zoll._abrArt = "ZOLL" - Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF" - Me.cntlFrachtf_Zoll._readOnly = False - Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168) - Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll" - Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlFrachtf_Zoll.TabIndex = 78 - Me.cntlFrachtf_Zoll.TabStop = False - Me.cntlFrachtf_Zoll.value = "" - ' - 'cntlAbsender_Clear - ' - Me.cntlAbsender_Clear._abrArt = "CLEARING" - Me.cntlAbsender_Clear._beteiligter = "ABS" - Me.cntlAbsender_Clear._readOnly = False - Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133) - Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear" - Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Clear.TabIndex = 67 - Me.cntlAbsender_Clear.TabStop = False - Me.cntlAbsender_Clear.value = "" - ' - 'cntlAbsender_Abf - ' - Me.cntlAbsender_Abf._abrArt = "ABFKOST" - Me.cntlAbsender_Abf._beteiligter = "ABS" - Me.cntlAbsender_Abf._readOnly = False - Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133) - Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf" - Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Abf.TabIndex = 66 - Me.cntlAbsender_Abf.TabStop = False - Me.cntlAbsender_Abf.value = "" - ' - 'cntlAbsender_Eust - ' - Me.cntlAbsender_Eust._abrArt = "EUST" - Me.cntlAbsender_Eust._beteiligter = "ABS" - Me.cntlAbsender_Eust._readOnly = False - Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133) - Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust" - Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Eust.TabIndex = 65 - Me.cntlAbsender_Eust.TabStop = False - Me.cntlAbsender_Eust.value = "" - ' - 'cntlAbsender_Zoll - ' - Me.cntlAbsender_Zoll._abrArt = "ZOLL" - Me.cntlAbsender_Zoll._beteiligter = "ABS" - Me.cntlAbsender_Zoll._readOnly = False - Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133) - Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll" - Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAbsender_Zoll.TabIndex = 64 - Me.cntlAbsender_Zoll.TabStop = False - Me.cntlAbsender_Zoll.value = "" - ' - 'cntlEmpf_Clear - ' - Me.cntlEmpf_Clear._abrArt = "CLEARING" - Me.cntlEmpf_Clear._beteiligter = "EMPF" - Me.cntlEmpf_Clear._readOnly = False - Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94) - Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear" - Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Clear.TabIndex = 52 - Me.cntlEmpf_Clear.TabStop = False - Me.cntlEmpf_Clear.value = "" - ' - 'cntlEmpf_Abf - ' - Me.cntlEmpf_Abf._abrArt = "ABFKOST" - Me.cntlEmpf_Abf._beteiligter = "EMPF" - Me.cntlEmpf_Abf._readOnly = False - Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94) - Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf" - Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Abf.TabIndex = 51 - Me.cntlEmpf_Abf.TabStop = False - Me.cntlEmpf_Abf.value = "" - ' - 'cntlEmpf_Eust - ' - Me.cntlEmpf_Eust._abrArt = "EUST" - Me.cntlEmpf_Eust._beteiligter = "EMPF" - Me.cntlEmpf_Eust._readOnly = False - Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94) - Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust" - Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Eust.TabIndex = 50 - Me.cntlEmpf_Eust.TabStop = False - Me.cntlEmpf_Eust.value = "" - ' - 'cntlEmpf_Zoll - ' - Me.cntlEmpf_Zoll._abrArt = "ZOLL" - Me.cntlEmpf_Zoll._beteiligter = "EMPF" - Me.cntlEmpf_Zoll._readOnly = False - Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94) - Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll" - Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlEmpf_Zoll.TabIndex = 49 - Me.cntlEmpf_Zoll.TabStop = False - Me.cntlEmpf_Zoll.value = "" - ' - 'cntlAuftr_Clear - ' - Me.cntlAuftr_Clear._abrArt = "CLEARING" - Me.cntlAuftr_Clear._beteiligter = "AUFTR" - Me.cntlAuftr_Clear._readOnly = False - Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57) - Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear" - Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Clear.TabIndex = 35 - Me.cntlAuftr_Clear.TabStop = False - Me.cntlAuftr_Clear.value = "" - ' - 'cntlAuftr_Abf - ' - Me.cntlAuftr_Abf._abrArt = "ABFKOST" - Me.cntlAuftr_Abf._beteiligter = "AUFTR" - Me.cntlAuftr_Abf._readOnly = False - Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57) - Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf" - Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Abf.TabIndex = 34 - Me.cntlAuftr_Abf.TabStop = False - Me.cntlAuftr_Abf.value = "" - ' - 'cntlAuftr_Eust - ' - Me.cntlAuftr_Eust._abrArt = "EUST" - Me.cntlAuftr_Eust._beteiligter = "AUFTR" - Me.cntlAuftr_Eust._readOnly = False - Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57) - Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust" - Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Eust.TabIndex = 33 - Me.cntlAuftr_Eust.TabStop = False - Me.cntlAuftr_Eust.value = "" - ' - 'cntlAuftr_Zoll - ' - Me.cntlAuftr_Zoll._abrArt = "ZOLL" - Me.cntlAuftr_Zoll._beteiligter = "AUFTR" - Me.cntlAuftr_Zoll._readOnly = False - Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57) - Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll" - Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAuftr_Zoll.TabIndex = 32 - Me.cntlAuftr_Zoll.TabStop = False - Me.cntlAuftr_Zoll.value = "" - ' - 'cntlAvisierer_Clear - ' - Me.cntlAvisierer_Clear._abrArt = "CLEARING" - Me.cntlAvisierer_Clear._beteiligter = "AVISIERER" - Me.cntlAvisierer_Clear._readOnly = False - Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20) - Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear" - Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Clear.TabIndex = 20 - Me.cntlAvisierer_Clear.TabStop = False - Me.cntlAvisierer_Clear.value = "" - ' - 'cntlAvisierer_Abf - ' - Me.cntlAvisierer_Abf._abrArt = "ABFKOST" - Me.cntlAvisierer_Abf._beteiligter = "AVISIERER" - Me.cntlAvisierer_Abf._readOnly = False - Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20) - Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf" - Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Abf.TabIndex = 19 - Me.cntlAvisierer_Abf.TabStop = False - Me.cntlAvisierer_Abf.value = "" - ' - 'cntlAvisierer_Eust - ' - Me.cntlAvisierer_Eust._abrArt = "EUST" - Me.cntlAvisierer_Eust._beteiligter = "AVISIERER" - Me.cntlAvisierer_Eust._readOnly = False - Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20) - Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust" - Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Eust.TabIndex = 18 - Me.cntlAvisierer_Eust.TabStop = False - Me.cntlAvisierer_Eust.value = "" - ' - 'cntlAvisierer_Zoll - ' - Me.cntlAvisierer_Zoll._abrArt = "ZOLL" - Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER" - Me.cntlAvisierer_Zoll._readOnly = False - Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20) - Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll" - Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20) - Me.cntlAvisierer_Zoll.TabIndex = 17 - Me.cntlAvisierer_Zoll.TabStop = False - Me.cntlAvisierer_Zoll.value = "" - ' 'Panel15 ' Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -4215,14 +3888,6 @@ Partial Class frmSendungsdetailsNEU Me.pnlT1.Size = New System.Drawing.Size(549, 118) Me.pnlT1.TabIndex = 86 ' - 'UsrCntlSND_NCTSGestellungsadresse1 - ' - Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1" - Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 118) - Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0 - ' 'Label43 ' Me.Label43.AutoSize = True diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 1a6d9e3..a238684 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -1261,13 +1261,13 @@ Public Class frmSendungsdetailsNEU ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen - ' SENDUNG_LIST.Add(NEW_SND) + ' SENDUNG_LIST.Add(NEW_SND) - NEW_SND.SAVE(False) 'Insert neue Sendung - VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden - ' initDataBinding() - If initAfter Then LAST_SENDUNG(False) 'letzte Sendung - initButtons() + NEW_SND.SAVE(False) 'Insert neue Sendung + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden + ' initDataBinding() + If initAfter Then LAST_SENDUNG(False) 'letzte Sendung + initButtons() 'End If End Sub @@ -2765,6 +2765,12 @@ Public Class frmSendungsdetailsNEU Case "44" pnlT1.Controls.Add(usrcntl_ATB) + cboVorpapier._value = "" + cboVorpapier2._value = "" + cboVorpapier3._value = "" + txtVorpapierPos.Text = "" + txtVorpapier2Pos.Text = "" + txtVorpapier3Pos.Text = "" cboVorpapier.Enabled = False cboVorpapier2.Enabled = False cboVorpapier3.Enabled = False @@ -8115,4 +8121,22 @@ Public Class frmSendungsdetailsNEU Private Sub btnStatusAbgeschlossen_Click(sender As Object, e As EventArgs) Handles btnStatusAbgeschlossen.Click ''' End Sub + + Private Sub txtVorpapierPos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtVorpapierPos.KeyPress, txtVorpapier2Pos.KeyPress, txtVorpapier3Pos.KeyPress + If Char.IsControl(e.KeyChar) Then + Return + End If + + If Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ","c OrElse e.KeyChar = "+"c OrElse e.KeyChar = " "c Then + Return + End If + + e.Handled = True + End Sub + + Private Sub txtVorpapierPos_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVorpapierPos.KeyDown, txtVorpapier2Pos.KeyDown, txtVorpapier3Pos.KeyDown + If e.Control AndAlso e.KeyCode = Keys.V Then + e.SuppressKeyPress = True + End If + End Sub End Class diff --git a/Aviso/usrCntlSND_ATBGestellung.Designer.vb b/Aviso/usrCntlSND_ATBGestellung.Designer.vb index c6b249d..a990d15 100644 --- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb +++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb @@ -24,18 +24,18 @@ Partial Class usrCntlSND_ATBGestellung Private Sub InitializeComponent() Me.pnlT1 = New System.Windows.Forms.Panel() Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Label1 = New System.Windows.Forms.Label() Me.btnGesSicherheit = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox() - Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label33 = New System.Windows.Forms.Label() + Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.pnlT1.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -64,37 +64,12 @@ Partial Class usrCntlSND_ATBGestellung ' Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox5.Location = New System.Drawing.Point(0, 8) + Me.PictureBox5.Location = New System.Drawing.Point(2, 8) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(18, 19) Me.PictureBox5.TabIndex = 132 Me.PictureBox5.TabStop = False ' - 'txtT1Datum - ' - Me.txtT1Datum._DateTimeOnly = False - Me.txtT1Datum._numbersOnly = False - Me.txtT1Datum._numbersOnlyKommastellen = "" - Me.txtT1Datum._numbersOnlyTrennzeichen = True - Me.txtT1Datum._Prozent = False - Me.txtT1Datum._ShortDateNew = True - Me.txtT1Datum._ShortDateOnly = False - Me.txtT1Datum._TimeOnly = False - Me.txtT1Datum._TimeOnly_Seconds = False - Me.txtT1Datum._value = "" - Me.txtT1Datum._Waehrung = False - Me.txtT1Datum._WaehrungZeichen = True - Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtT1Datum.ForeColor = System.Drawing.Color.Black - Me.txtT1Datum.Location = New System.Drawing.Point(272, 33) - Me.txtT1Datum.MaxLength = 10 - Me.txtT1Datum.MaxLineLength = -1 - Me.txtT1Datum.MaxLines_Warning = "" - Me.txtT1Datum.MaxLines_Warning_Label = Nothing - Me.txtT1Datum.Name = "txtT1Datum" - Me.txtT1Datum.Size = New System.Drawing.Size(83, 20) - Me.txtT1Datum.TabIndex = 38 - ' 'DateTimePicker1 ' Me.DateTimePicker1.CustomFormat = "''" @@ -150,6 +125,60 @@ Partial Class usrCntlSND_ATBGestellung Me.cbxATBFakturieren.ThreeState = True Me.cbxATBFakturieren.UseVisualStyleBackColor = True ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(23, 59) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(92, 13) + Me.Label4.TabIndex = 20 + Me.Label4.Text = "ATB / Gestellung:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(23, 81) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 13) + Me.Label3.TabIndex = 15 + Me.Label3.Text = "Zollstelle:" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(23, 14) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(79, 13) + Me.Label33.TabIndex = 3 + Me.Label33.Text = "Vorpapier / T1:" + ' + 'txtT1Datum + ' + Me.txtT1Datum._DateTimeOnly = False + Me.txtT1Datum._numbersOnly = False + Me.txtT1Datum._numbersOnlyKommastellen = "" + Me.txtT1Datum._numbersOnlyTrennzeichen = True + Me.txtT1Datum._Prozent = False + Me.txtT1Datum._ShortDateNew = True + Me.txtT1Datum._ShortDateOnly = False + Me.txtT1Datum._TimeOnly = False + Me.txtT1Datum._TimeOnly_Seconds = False + Me.txtT1Datum._value = "" + Me.txtT1Datum._Waehrung = False + Me.txtT1Datum._WaehrungZeichen = True + Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtT1Datum.ForeColor = System.Drawing.Color.Black + Me.txtT1Datum.Location = New System.Drawing.Point(272, 33) + Me.txtT1Datum.MaxLength = 10 + Me.txtT1Datum.MaxLineLength = -1 + Me.txtT1Datum.MaxLines_Warning = "" + Me.txtT1Datum.MaxLines_Warning_Label = Nothing + Me.txtT1Datum.Name = "txtT1Datum" + Me.txtT1Datum.Size = New System.Drawing.Size(83, 20) + Me.txtT1Datum.TabIndex = 38 + ' 'txtATBNr ' Me.txtATBNr._DateTimeOnly = False @@ -196,25 +225,6 @@ Partial Class usrCntlSND_ATBGestellung Me.txtATBT1.Size = New System.Drawing.Size(269, 20) Me.txtATBT1.TabIndex = 22 ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(23, 59) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(92, 13) - Me.Label4.TabIndex = 20 - Me.Label4.Text = "ATB / Gestellung:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(23, 81) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(51, 13) - Me.Label3.TabIndex = 15 - Me.Label3.Text = "Zollstelle:" - ' 'txtT1VerzollungsadresseBestimmungszollstelle ' Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False @@ -241,16 +251,6 @@ Partial Class usrCntlSND_ATBGestellung Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16 Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing ' - 'Label33 - ' - Me.Label33.AutoSize = True - Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(23, 14) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(79, 13) - Me.Label33.TabIndex = 3 - Me.Label33.Text = "Vorpapier / T1:" - ' 'usrCntlSND_ATBGestellung ' Me.Controls.Add(Me.pnlT1)