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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:18:40 +01:00
parent a166e48d4a 67924af34e
commit fe469f9741
6 changed files with 182 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/App.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

38
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -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

83
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -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

359
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -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

36
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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

118
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated
View File

@@ -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)