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

Mergekonflikt aufgelöst (eingehene Änderungen von Andreas wurden übernommen).

Browse Source
This commit is contained in:
d.breimaier
2022-10-10 14:18:18 +02:00
parent 89edda0a7d 4dcbcbab96
commit 276c19cc30
20 changed files with 2137 additions and 906 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -953,6 +953,12 @@
<Compile Include="usrCntlSND_ATBGestellung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlSND_Ausfuhr.Designer.vb">
<DependentUpon>usrCntlSND_Ausfuhr.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlSND_Ausfuhr.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlSND_NCTSGestellungsadresse.Designer.vb">
<DependentUpon>usrCntlSND_NCTSGestellungsadresse.vb</DependentUpon>
</Compile>
@@ -1268,6 +1274,9 @@
<EmbeddedResource Include="usrCntlSND_ATBGestellung.resx">
<DependentUpon>usrCntlSND_ATBGestellung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlSND_Ausfuhr.resx">
<DependentUpon>usrCntlSND_Ausfuhr.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlSND_NCTSGestellungsadresse.resx">
<DependentUpon>usrCntlSND_NCTSGestellungsadresse.vb</DependentUpon>
</EmbeddedResource>

90
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -23,17 +23,18 @@ Partial Class usrCntlBenachrichtigungen
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
@@ -49,9 +50,26 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(236, 203)
Me.Panel2.Size = New System.Drawing.Size(284, 203)
Me.Panel2.TabIndex = 2
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(160, 86)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
Me.MyComboBox2.TabIndex = 27
Me.MyComboBox2.Visible = False
'
'gridAvisoBenachrichtigungen
'
Me.gridAvisoBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
@@ -59,8 +77,8 @@ Partial Class usrCntlBenachrichtigungen
Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.Color.Azure
Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -68,17 +86,18 @@ Partial Class usrCntlBenachrichtigungen
Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
Me.gridAvisoBenachrichtigungen.ReadOnly = True
Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(236, 144)
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 144)
Me.gridAvisoBenachrichtigungen.TabIndex = 2
'
'Panel4
'
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.cbxNeukunden)
Me.Panel4.Controls.Add(Me.Button10)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel4.Location = New System.Drawing.Point(0, 165)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(236, 38)
Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.TabIndex = 5
'
'Button10
@@ -89,7 +108,7 @@ Partial Class usrCntlBenachrichtigungen
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(111, 3)
Me.Button10.Location = New System.Drawing.Point(159, 3)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(121, 30)
Me.Button10.TabIndex = 3
@@ -108,25 +127,20 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(236, 21)
Me.Panel3.Size = New System.Drawing.Size(284, 21)
Me.Panel3.TabIndex = 3
'
'MyComboBox2
'cbxCluster
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(112, 86)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
Me.MyComboBox2.TabIndex = 27
Me.MyComboBox2.Visible = False
Me.cbxCluster.AutoSize = True
Me.cbxCluster.ForeColor = System.Drawing.Color.White
Me.cbxCluster.Location = New System.Drawing.Point(219, 4)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
Me.cbxCluster.TabIndex = 29
Me.cbxCluster.Text = "Cluster"
Me.cbxCluster.UseVisualStyleBackColor = True
Me.cbxCluster.Visible = False
'
'cbxTeams
'
@@ -154,24 +168,24 @@ Partial Class usrCntlBenachrichtigungen
'
Me.Label25.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label25.ForeColor = System.Drawing.Color.White
Me.Label25.Location = New System.Drawing.Point(579, 6)
Me.Label25.Location = New System.Drawing.Point(627, 6)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(207, 19)
Me.Label25.TabIndex = 1
Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbxCluster
'cbxNeukunden
'
Me.cbxCluster.AutoSize = True
Me.cbxCluster.ForeColor = System.Drawing.Color.White
Me.cbxCluster.Location = New System.Drawing.Point(219, 4)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
Me.cbxCluster.TabIndex = 29
Me.cbxCluster.Text = "Cluster"
Me.cbxCluster.UseVisualStyleBackColor = True
Me.cbxCluster.Visible = False
Me.cbxNeukunden.AutoSize = True
Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
Me.cbxNeukunden.Location = New System.Drawing.Point(7, 3)
Me.cbxNeukunden.Name = "cbxNeukunden"
Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
Me.cbxNeukunden.TabIndex = 30
Me.cbxNeukunden.Text = "Neukunden"
Me.cbxNeukunden.UseVisualStyleBackColor = True
Me.cbxNeukunden.Visible = False
'
'usrCntlBenachrichtigungen
'
@@ -179,10 +193,11 @@ Partial Class usrCntlBenachrichtigungen
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel2)
Me.Name = "usrCntlBenachrichtigungen"
Me.Size = New System.Drawing.Size(236, 203)
Me.Size = New System.Drawing.Size(284, 203)
Me.Panel2.ResumeLayout(False)
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
@@ -199,4 +214,5 @@ Partial Class usrCntlBenachrichtigungen
Public WithEvents gridAvisoBenachrichtigungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxTeams As CheckBox
Friend WithEvents cbxCluster As CheckBox
Friend WithEvents cbxNeukunden As CheckBox
End Class

42
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -31,20 +31,32 @@
Dim whereMA = " AND ( 1<>1 "
If cbxCluster.Checked Then
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
If cbxNeukunden.Checked Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='13') " 'TEAM_NEUKUNDEN --> VERAG
End Select
Else
whereMA &= " OR (ab_TO_Art='B' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
whereMA &= " OR (ab_TO_Art='N' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "') "
whereMA &= " OR (ab_TO_Art='A' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "') "
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
End If
If cbxCluster.Checked Then
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') "
Else
whereMA &= " OR (ab_TO_Art='B' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "') "
whereMA &= " OR (ab_TO_Art='N' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "') "
whereMA &= " OR (ab_TO_Art='A' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "') "
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
End If
If cbxTeams.Checked Then
whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
Else
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') "
If cbxTeams.Checked Then
whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId & "') "
End If
End If
End If
whereMA &= " ) "
@@ -183,6 +195,10 @@
cbxCluster.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
End If
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeNeukunden", "AVISO") Then
cbxNeukunden.Visible = True
'cbxNeukunden.Checked = True
End If
@@ -285,4 +301,8 @@
Private Sub cbxCluster_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCluster.CheckedChanged
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
End Class

12
Aviso/frmEintragAviso.vb
View File

@@ -143,7 +143,7 @@ Public Class frmEintragAviso
cboImEx.Visible = True
'txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
'txtBestimmungszollstelle.Visible = True
'lblZA.Visible = True
pnl.Visible = True
@@ -159,7 +159,7 @@ Public Class frmEintragAviso
cboImEx.Visible = True
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
pnl.Visible = True
Case "VERAG"
@@ -200,6 +200,12 @@ Public Class frmEintragAviso
lblSndFremd.Visible = True
cboImEx.Visible = True
Label1.Visible = True
Case "DTB"
cboImEx.Visible = True
Label1.Visible = True
lblFiskAT.Visible = False
txtSndFiskalAT.Visible = False
End Select
Select Case FIRMA_TMP
Case "FRONTOFFICE"
@@ -1695,7 +1701,7 @@ Public Class frmEintragAviso
pnl.Visible = False
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
Label1.Visible = (cboGrenzstelle._value = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
Label1.Visible = (cboGrenzstelle._value = "WAI" Or cboGrenzstelle._value = "DTB" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
Select Case FIRMA_TMP
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"

120
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -88,6 +88,7 @@ Partial Class frmHauptfenster
Me.NKDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NEUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DTBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -267,6 +268,7 @@ Partial Class frmHauptfenster
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel()
Me.btnColor = New System.Windows.Forms.Button()
Me.lblMeineAviso = New System.Windows.Forms.Label()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label18 = New System.Windows.Forms.Label()
@@ -354,6 +356,12 @@ Partial Class frmHauptfenster
Me.GüterlisteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.ColorDialog = New System.Windows.Forms.ColorDialog()
Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -390,6 +398,7 @@ Partial Class frmHauptfenster
Me.pnlSearch.SuspendLayout()
Me.pnlOptionen.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.ctxtFarben.SuspendLayout()
Me.SuspendLayout()
'
'mnuInfo
@@ -696,7 +705,7 @@ Partial Class frmHauptfenster
'
'StandortWechselnToolStripMenuItem
'
Me.StandortWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SUBToolStripMenuItem, Me.SBGToolStripMenuItem, Me.WAIToolStripMenuItem, Me.NKDToolStripMenuItem, Me.NEUToolStripMenuItem, Me.AMBToolStripMenuItem})
Me.StandortWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SUBToolStripMenuItem, Me.SBGToolStripMenuItem, Me.WAIToolStripMenuItem, Me.NKDToolStripMenuItem, Me.NEUToolStripMenuItem, Me.AMBToolStripMenuItem, Me.DTBToolStripMenuItem})
Me.StandortWechselnToolStripMenuItem.Name = "StandortWechselnToolStripMenuItem"
Me.StandortWechselnToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
Me.StandortWechselnToolStripMenuItem.Text = "Standort wechseln"
@@ -739,6 +748,12 @@ Partial Class frmHauptfenster
Me.AMBToolStripMenuItem.Text = "AMB"
Me.AMBToolStripMenuItem.Visible = False
'
'DTBToolStripMenuItem
'
Me.DTBToolStripMenuItem.Name = "DTBToolStripMenuItem"
Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
Me.DTBToolStripMenuItem.Text = "DTB"
'
'SpracheWechselnToolStripMenuItem
'
Me.SpracheWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeutschToolStripMenuItem, Me.TürkischToolStripMenuItem})
@@ -1838,6 +1853,7 @@ Partial Class frmHauptfenster
'
'lblMitarbeiter
'
Me.lblMitarbeiter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblMitarbeiter.AutoSize = True
Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control
Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
@@ -1851,6 +1867,7 @@ Partial Class frmHauptfenster
'
'lblGrenzstelle
'
Me.lblGrenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblGrenzstelle.AutoSize = True
Me.lblGrenzstelle.BackColor = System.Drawing.SystemColors.Control
Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
@@ -1989,7 +2006,7 @@ Partial Class frmHauptfenster
'SplitContainer2
'
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer2.FixedPanel = System.Windows.Forms.FixedPanel.Panel2
Me.SplitContainer2.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer2.Location = New System.Drawing.Point(0, 5)
Me.SplitContainer2.Name = "SplitContainer2"
'
@@ -1998,12 +2015,13 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel1.BackColor = System.Drawing.SystemColors.Control
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinks)
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinksOben)
Me.SplitContainer2.Panel1MinSize = 164
'
'SplitContainer2.Panel2
'
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
Me.SplitContainer2.Panel2MinSize = 650
Me.SplitContainer2.Size = New System.Drawing.Size(815, 300)
Me.SplitContainer2.SplitterDistance = 164
Me.SplitContainer2.SplitterDistance = 111
Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0
@@ -2021,7 +2039,7 @@ Partial Class frmHauptfenster
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
Me.pnlLinks.Name = "pnlLinks"
Me.pnlLinks.Size = New System.Drawing.Size(111, 214)
Me.pnlLinks.Size = New System.Drawing.Size(164, 214)
Me.pnlLinks.TabIndex = 0
'
'lblFimaAviso
@@ -2046,7 +2064,7 @@ Partial Class frmHauptfenster
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(111, 111)
Me.Panel2.Size = New System.Drawing.Size(164, 111)
Me.Panel2.TabIndex = 10
'
'Label7
@@ -2068,7 +2086,7 @@ Partial Class frmHauptfenster
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158)
Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(84, 27)
Me.lblErrVermerk.Size = New System.Drawing.Size(137, 27)
Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -2143,7 +2161,7 @@ Partial Class frmHauptfenster
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
Me.pnlLinksOben.Name = "pnlLinksOben"
Me.pnlLinksOben.Size = New System.Drawing.Size(111, 86)
Me.pnlLinksOben.Size = New System.Drawing.Size(164, 86)
Me.pnlLinksOben.TabIndex = 1
'
'Label22
@@ -2218,8 +2236,8 @@ Partial Class frmHauptfenster
'SplitContainer3.Panel2
'
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
Me.SplitContainer3.Size = New System.Drawing.Size(703, 300)
Me.SplitContainer3.SplitterDistance = 172
Me.SplitContainer3.Size = New System.Drawing.Size(650, 300)
Me.SplitContainer3.SplitterDistance = 158
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
@@ -2228,7 +2246,7 @@ Partial Class frmHauptfenster
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(172, 300)
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
@@ -2239,7 +2257,7 @@ Partial Class frmHauptfenster
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(527, 300)
Me.pnl.Size = New System.Drawing.Size(488, 300)
Me.pnl.TabIndex = 0
'
'Button10
@@ -2268,7 +2286,7 @@ Partial Class frmHauptfenster
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
@@ -2283,7 +2301,7 @@ Partial Class frmHauptfenster
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Top
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
@@ -2297,12 +2315,13 @@ Partial Class frmHauptfenster
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(527, 277)
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel6.Controls.Add(Me.btnColor)
Me.Panel6.Controls.Add(Me.lblMeineAviso)
Me.Panel6.Controls.Add(Me.cboMy_Grenzstelle)
Me.Panel6.Controls.Add(Me.Label18)
@@ -2315,9 +2334,20 @@ Partial Class frmHauptfenster
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(0, 0)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(527, 21)
Me.Panel6.Size = New System.Drawing.Size(488, 21)
Me.Panel6.TabIndex = 1
'
'btnColor
'
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnColor.BackColor = System.Drawing.Color.White
Me.btnColor.Location = New System.Drawing.Point(397, -1)
Me.btnColor.Name = "btnColor"
Me.btnColor.Size = New System.Drawing.Size(36, 23)
Me.btnColor.TabIndex = 27
Me.btnColor.UseVisualStyleBackColor = False
Me.btnColor.Visible = False
'
'lblMeineAviso
'
Me.lblMeineAviso.AutoSize = True
@@ -2341,7 +2371,7 @@ Partial Class frmHauptfenster
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(152, 1)
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
@@ -2351,7 +2381,7 @@ Partial Class frmHauptfenster
Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.ForeColor = System.Drawing.Color.White
Me.Label18.Location = New System.Drawing.Point(84, 4)
Me.Label18.Location = New System.Drawing.Point(45, 4)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(62, 13)
Me.Label18.TabIndex = 25
@@ -2362,7 +2392,7 @@ Partial Class frmHauptfenster
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_LKW.AutoSize = True
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
Me.cbx_My_LKW.Location = New System.Drawing.Point(28, 3)
Me.cbx_My_LKW.Location = New System.Drawing.Point(-11, 3)
Me.cbx_My_LKW.Name = "cbx_My_LKW"
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24
@@ -2376,7 +2406,7 @@ Partial Class frmHauptfenster
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(414, 3)
Me.cboMy_QS.Location = New System.Drawing.Point(445, 3)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23
@@ -2390,7 +2420,7 @@ Partial Class frmHauptfenster
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(435, 3)
Me.cboMy_VB.Location = New System.Drawing.Point(464, 3)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22
@@ -2408,7 +2438,7 @@ Partial Class frmHauptfenster
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(271, 1)
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
@@ -2418,7 +2448,7 @@ Partial Class frmHauptfenster
Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.ForeColor = System.Drawing.Color.White
Me.Label17.Location = New System.Drawing.Point(222, 3)
Me.Label17.Location = New System.Drawing.Point(183, 3)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 13)
Me.Label17.TabIndex = 20
@@ -2428,7 +2458,7 @@ Partial Class frmHauptfenster
'
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkte.ForeColor = System.Drawing.Color.White
Me.lblAkte.Location = New System.Drawing.Point(800, 6)
Me.lblAkte.Location = New System.Drawing.Point(761, 6)
Me.lblAkte.Name = "lblAkte"
Me.lblAkte.Size = New System.Drawing.Size(207, 19)
Me.lblAkte.TabIndex = 1
@@ -3394,6 +3424,40 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'ctxtFarben
'
Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21})
Me.ctxtFarben.Name = "cntxt"
Me.ctxtFarben.Size = New System.Drawing.Size(122, 92)
'
'ALLEToolStripMenuItem
'
Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem"
Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22)
Me.ALLEToolStripMenuItem.Text = "ALLE"
'
'ToolStripMenuItem19
'
Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem19.Text = "ROT"
'
'ToolStripMenuItem20
'
Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem20.Text = "ORANGE"
'
'ToolStripMenuItem21
'
Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3461,6 +3525,7 @@ Partial Class frmHauptfenster
Me.pnlSearch.PerformLayout()
Me.pnlOptionen.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
Me.ctxtFarben.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3785,5 +3850,12 @@ Partial Class frmHauptfenster
Friend WithEvents BrexitToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EmbargosLänderToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GüterlisteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DTBToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnColor As Button
Friend WithEvents ColorDialog As ColorDialog
Friend WithEvents ctxtFarben As ContextMenuStrip
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
End Class

6
Aviso/frmHauptfenster.resx
View File

@@ -259,6 +259,12 @@
<metadata name="Timer_REFRESH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1421, 17</value>
</metadata>
<metadata name="ColorDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1557, 17</value>
</metadata>
<metadata name="ctxtFarben.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

422
Aviso/frmHauptfenster.vb
View File

@@ -188,6 +188,9 @@ Public Class frmHauptfenster
'transparentpnl.BackColor = Color.FromArgb(25, Color.Red)
' transparentpnl.BackColor = Color.Transparent
TimerAkte.Enabled = True
Grid_aktiv = False
@@ -227,6 +230,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
@@ -251,6 +255,7 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.changeItem("")
cboMyAvisoAnzeige.Items.Clear()
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
cboMyAvisoAnzeige.changeItem("Benutzer")
@@ -1091,9 +1096,12 @@ Public Class frmHauptfenster
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 "
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "T1" Then
If cboMyAvisoAnzeige._value = "ALLE" Then
' inBearbeitungSQL = " 1=1 " 'ALLE
inBearbeitungSQL = " ( tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') OR Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') OR tblSendungen.LetzterMitarbeiterId=@maId) "
ElseIf cboMyAvisoAnzeige._value = "T1" Then
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
'NUR VERAG/IMEX:
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
@@ -1120,11 +1128,39 @@ Public Class frmHauptfenster
End Select
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
'Farbe
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
Select Case btnColor.BackColor
Case Color.Red
sqlStr &= " AND (Status = 3 ) "
Case Color.Orange
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE()) ) ) "
Case Color.Yellow
sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 1,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 2,GETDATE()) AS DATE) ) ) "
End Select
End If
''Farbe
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
' Select Case btnColor.BackColor
' Case Color.Red
' sqlStr &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
' Case Color.Orange
' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
' Case Color.Yellow
' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
' End Select
'End If
'''sqlStr &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
''' Funktioniert nciht, wg. WO
sqlStr &= " ORDER BY case " &
" when [Status] =3 then 0 " &
" when [Status] =1 then 5 " &
" else 1 " &
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
" when [Status] =3 then 0 " &
" when [Status] =1 then 5 " &
" else 1 " &
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If
'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
@@ -1373,8 +1409,54 @@ Public Class frmHauptfenster
'End If
'Farbkennung
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
If Not cbx_My_LKW.Checked Then
Select Case r.Cells("Status").Value
Case "1", "2"
' Freigabe, N.Eingetr.
Case "3"
' Ankunft
r.DefaultCellStyle.BackColor = Color.IndianRed
Case Else
'Alle anderen Status:
If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then
Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value)
'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
' r.DefaultCellStyle.BackColor = Color.IndianRed
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen
' r.DefaultCellStyle.BackColor = Color.Orange
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen
' r.DefaultCellStyle.BackColor = Color.LightYellow
'End If
If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
r.DefaultCellStyle.BackColor = Color.Orange
ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(2).ToShortDateString) Then 'morgen
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
Else
End If
End Select
End If
End If
Next
'.Width = gridAviso.Width - gridVermerke.Width
'.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
@@ -1545,7 +1627,7 @@ Public Class frmHauptfenster
If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
End If
End Select
@@ -1846,14 +1928,14 @@ Public Class frmHauptfenster
If frmLogin.AnmeldungOK Then
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
End If
Catch ex As Exception
End Try
End Try
If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
Try
@@ -2190,32 +2272,32 @@ Public Class frmHauptfenster
End If
'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Case "ATILLA"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
' Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' Case Else
' Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' usrcntl.changeCurrentSndId()
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
'End Select
' Case "ATILLA"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
' Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' Case Else
' Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' usrcntl.changeCurrentSndId()
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
'End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
@@ -2425,19 +2507,19 @@ Public Class frmHauptfenster
End If
btnWichtigeStandort.Visible = False
Panel2.Visible = False
Label4.Visible = False
cboGrenzstelle.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
Else 'VERAG
BürgschaftenExcelToolStripMenuItem.Visible = True
Panel2.Visible = False
Label4.Visible = False
cboGrenzstelle.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
Else 'VERAG
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ToolStripMenuItem6.Visible = True
@@ -2445,13 +2527,32 @@ Public Class frmHauptfenster
Button5.Visible = True
End If
End If
If SplitContainer2.Width > 800 Then
'SplitContainer2.Panel2MinSize = 600
SplitContainer2.SplitterDistance = 130 'SplitContainer2.Width - 750
If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!!
' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
splitMain.SplitterDistance = CInt(splitMain.Height / 2)
Else
End If
'If SplitContainer2.Width > 800 Then
' 'SplitContainer2.Panel2MinSize = 600
' SplitContainer2.SplitterDistance = 130 'SplitContainer2.Width - 750
' If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!!
' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
'End If
If SplitContainer2.Width > 1000 Then
SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750
Else
SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750
End If
If My.Computer.Screen.WorkingArea.Width < 1300 Then
'tabAnkunft.Text = "ANKUNFT."
'tabErfasst.Text = "ERFASST"
@@ -2464,6 +2565,10 @@ Public Class frmHauptfenster
End If
tbcntrAviso.Width = Panel1.Width
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub
WithEvents timerStart As New Timer
@@ -3655,6 +3760,11 @@ Public Class frmHauptfenster
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
Label17.Visible = Not cbx_My_LKW.Checked
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
btnColor.Visible = Not cbx_My_LKW.Checked
Else
btnColor.Visible = False
End If
If cbx_My_LKW.Checked Then
lblMeineAviso.Text = "Meine Aviso:"
Else
@@ -3824,7 +3934,7 @@ Public Class frmHauptfenster
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
CHMRC.VATTEST(InputBox("Token"))
cHMRC.VATTEST(InputBox("Token"))
End Sub
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
@@ -4026,6 +4136,42 @@ Public Class frmHauptfenster
Dim f As New frmNCTSRouten()
f.ShowDialog(Me)
End Sub
Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
ctxtFarben.Show(Cursor.Position)
End Sub
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
btnColor.BackColor = Color.Red
meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
btnColor.BackColor = Color.Orange
meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
btnColor.BackColor = Color.Yellow
meineAviso_anzeigen()
End Sub
Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
btnColor.BackColor = Color.White
meineAviso_anzeigen()
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -4441,64 +4587,64 @@ Public Class AvisoStatusFunctions
If GrenzstelleMail = "" And art <> 5 Then
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
End If
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
End If
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG"
' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG"
' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
@@ -4534,25 +4680,25 @@ Public Class AvisoStatusFunctions
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
End Sub
@@ -5656,20 +5802,26 @@ Public Class AvisoStatusFunctions
SENDUNG_TMP.saveSachbearbeiter = True
If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then
If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then ' VB gesetzt!
SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
'Lt. Bespr. ML und TW (6.10.22) --> wenn VBQS gesetzt, soll MA leer sein:
SENDUNG_TMP.LetzterMitarbeiter = ""
SENDUNG_TMP.LetzterMitarbeiterId = -1
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
@@ -5919,10 +6071,10 @@ Public Class AvisoStatusFunctions
Dim AtcMrn = ""
Dim DsId = ""
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
@@ -5989,10 +6141,10 @@ Public Class AvisoStatusFunctions
End If
End If
Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING()
For Each hd In s.HANDLING
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING()
For Each hd In s.HANDLING
AtcMrn &= hd.sndhdg_nr & ", "
Next
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)
@@ -6291,7 +6443,7 @@ Public Class AvisoStatusFunctions
myVermerk.VermerkCodeId = VermerkCodeId
Dim VermerkeDAL As New cVermerkeDAL
VermerkeDAL.SpeichernVermerk(myVermerk)
frmHauptfenster.Details_anzeigen(AvisoID)
If frmHauptfenster IsNot Nothing Then frmHauptfenster.Details_anzeigen(AvisoID)
End Sub

48
Aviso/frmLaufzettel.vb
View File

@@ -163,12 +163,21 @@ Public Class frmLaufzettel
btnLaufzettelDrucken.Enabled = True
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "WAI", "DTB"
CheckBox2.Checked = True
CheckBox3.Visible = False
CheckBox4.Checked = True
End Select
'pnlZumZoll
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "DTB" Then
CheckBox2.Checked = False ' Wenn nicht FO, dann normal nicht gewählt...
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "SUB" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then '... und nur in SUBEN ersichtlich
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "SUB" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "DTB" Then '... und nur in SUBEN ersichtlich
pnlZumZoll.Visible = False
End If
End If
If SENDUNG_LIST Is Nothing Then
@@ -249,27 +258,36 @@ Public Class frmLaufzettel
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "DTB" Then
Try
Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_DTB(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Else
Try
'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
Dim path = ""
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
If Not CheckBox3.Checked And Not CheckBox4.Checked Then
MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
Exit Sub
End If
Try
'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
Dim path = ""
If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
'If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
End If
End If

1176
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

212
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -118,6 +118,103 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
</value>
</data>
<data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
AElFTkSuQmCC
</value>
</data>
<data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
</value>
</data>
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1531,6 +1628,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1542,103 +1642,18 @@
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
</value>
</data>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
</value>
</data>
<data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
AElFTkSuQmCC
</value>
</data>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@@ -1883,6 +1898,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

142
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -30,6 +30,7 @@ Public Class frmSendungsdetailsNEU
Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf
Dim usrcntl_ATA As usrCntlSND_Handling
Dim usrcntl_ATB As usrCntlSND_ATBGestellung
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
Sub New()
@@ -135,28 +136,31 @@ Public Class frmSendungsdetailsNEU
lblErr_EmpfKdNr.Visible = False
lblErr_FraechterKdNr.Visible = False
Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
Case <= 0, 10
Case Else
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
End Select
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
'Aktuell noch nicht!
'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
' Case <= 0, 10
' Case Else
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
'End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
Else
If FilialeAktFirma <> "" Then
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
Else
If FilialeAktFirma <> "" Then
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
End If
End If
End If
End If
Return True
End Function
@@ -275,7 +279,7 @@ Public Class frmSendungsdetailsNEU
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] , [Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
If AVISO.Grenzstelle.Replace("???", "") = "" Then
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
@@ -372,6 +376,7 @@ Public Class frmSendungsdetailsNEU
' cboZolltarif.changeItem("0")
usrcntl_NCTS = New usrCntlSND_NCTSGestellungsadresse
usrcntl_AUSFUHR = New usrCntlSND_Ausfuhr
usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf
'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then
@@ -1128,7 +1133,8 @@ Public Class frmSendungsdetailsNEU
txtFrachtkosten.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "")
txtFrachtkostenEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "")
txtFrachtkostenNichtEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU, "")
txtWarenwert.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, ""))
@@ -1267,6 +1273,7 @@ Public Class frmSendungsdetailsNEU
pnlT1.Controls.Clear()
usrcntl_NCTS.reset()
usrcntl_AUSFUHR.reset()
usrcntl_FISKAL.reset()
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
@@ -1283,7 +1290,7 @@ Public Class frmSendungsdetailsNEU
' txtT1Verzollungsadresse.Text = ""
Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
Case 5, 6
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then
usrcntl_NCTS.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId)
usrcntl_NCTS.setValues()
@@ -1305,6 +1312,25 @@ Public Class frmSendungsdetailsNEU
Case 26, 28
usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "")
pnlT1.Controls.Add(usrcntl_FISKAL)
Case 7
If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then
usrcntl_AUSFUHR.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId)
usrcntl_AUSFUHR.setValues()
End If
'trotzdem überschreiben:
usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse, "")
usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse, "")
usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ, "")
usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort, "")
usrcntl_AUSFUHR.sbT1VerzollungsadresseLand.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land, ""))
usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI, "")
usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "")
usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "")
usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, ""))
usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO
pnlT1.Controls.Add(usrcntl_AUSFUHR)
Case 23
usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
@@ -1646,7 +1672,7 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = Nothing
Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
Case 5, 6
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSGestellungsadresse) Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_NCTS.txtT1Verzollungsadresse.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text
@@ -1661,6 +1687,21 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked
End If
Case 7
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Ausfuhr) Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = usrcntl_AUSFUHR.sbT1VerzollungsadresseLand._value
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text
SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle._value
SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_AUSFUHR.NCTS_GA IsNot Nothing, usrcntl_AUSFUHR.NCTS_GA.nga_id, Nothing)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked
End If
Case 26, 28
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSFiskalEndempf) Then
@@ -1682,7 +1723,9 @@ Public Class frmSendungsdetailsNEU
End Select
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkosten.Text)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkostenEU.Text)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU = SQL.isNullNothingDbl(txtFrachtkostenNichtEU.Text)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = SQL.isNullNothingDbl(txtWarenwert.Text)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = SQL.isNullNothing(txtWarenwertWaehrung._value)
@@ -2125,8 +2168,14 @@ Public Class frmSendungsdetailsNEU
pnlT1.Controls.Clear()
Select Case cboAbfertigungsart._value
Case "5", "6", "24", "33", "34"
Case "5", "18", "32"
pnlT1.Controls.Add(usrcntl_NCTS)
' usrcntl_NCTS.Label33.Text = "NCTS-" & vbNewLine & "Gestellungsadr."
Case "6", "24", "33", "34", "37", "40", "42"
pnlT1.Controls.Add(usrcntl_NCTS)
' usrcntl_NCTS.Label33.Text = "Amtsplatz/" & vbNewLine & "Zollstopp"
Case "7"
pnlT1.Controls.Add(usrcntl_AUSFUHR)
Case "26", "28"
pnlT1.Controls.Add(usrcntl_FISKAL)
@@ -3821,7 +3870,13 @@ Public Class frmSendungsdetailsNEU
If Not IO.File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!")
Else
Process.Start(docPath)
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
System.IO.File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Else
Process.Start(docPath)
End If
End If
End If
End If
@@ -5310,12 +5365,41 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default
End Sub
Sub calculateFreightcost()
Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
Dim f As New SDL.frmCMR
Dim frmFrachtkostenBerechnen = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value)
f.btnCMRtoAkt.Visible = True
f.txtCMRName.Visible = True
If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
f.uCmr.txtKfz.Text = AVISO.LKW_Nr
f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
If f.ShowDialog(Me) Then
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If f.PDF_Path <> "" Then
Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
initAnhang()
End If
If frmFrachtkostenBerechnen.ShowDialog() = DialogResult.OK Then
' TODO -> Übergabe Parameter Frachtanteil
End If
End Sub
Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
MsgBox("Funktion noch nicht verfügbar!")
End Sub
End Class

455
Aviso/usrCntlSND_Ausfuhr.Designer.vb generated Normal file
View File

@@ -0,0 +1,455 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSND_Ausfuhr
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel()
Me.cbxNCTSAufDispo = New System.Windows.Forms.CheckBox()
Me.picDel = New System.Windows.Forms.PictureBox()
Me.txtT1Verzollungsadresse = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblNGAId = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.txtT1VerzollungsadresseEORI_NL = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseAnspr = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.sbT1VerzollungsadresseLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtT1VerzollungsadresseEORI = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtT1VerzollungsadressePlz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtT1VerzollungsadresseStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
Me.pnlT1.SuspendLayout()
CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.cbxNCTSAufDispo)
Me.pnlT1.Controls.Add(Me.picDel)
Me.pnlT1.Controls.Add(Me.txtT1Verzollungsadresse)
Me.pnlT1.Controls.Add(Me.Label5)
Me.pnlT1.Controls.Add(Me.lblNGAId)
Me.pnlT1.Controls.Add(Me.btn)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseEORI_NL)
Me.pnlT1.Controls.Add(Me.Label2)
Me.pnlT1.Controls.Add(Me.Label3)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseAnspr)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseBestimmungszollstelle)
Me.pnlT1.Controls.Add(Me.Label1)
Me.pnlT1.Controls.Add(Me.sbT1VerzollungsadresseLand)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseEORI)
Me.pnlT1.Controls.Add(Me.Label9)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseOrt)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadressePlz)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseStrasse)
Me.pnlT1.Controls.Add(Me.Label33)
Me.pnlT1.Controls.Add(Me.LinkLabel4)
Me.pnlT1.Location = New System.Drawing.Point(0, 0)
Me.pnlT1.Name = "pnlT1"
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
Me.pnlT1.TabIndex = 0
'
'cbxNCTSAufDispo
'
Me.cbxNCTSAufDispo.AutoSize = True
Me.cbxNCTSAufDispo.Checked = True
Me.cbxNCTSAufDispo.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNCTSAufDispo.Location = New System.Drawing.Point(397, 75)
Me.cbxNCTSAufDispo.Name = "cbxNCTSAufDispo"
Me.cbxNCTSAufDispo.Size = New System.Drawing.Size(96, 17)
Me.cbxNCTSAufDispo.TabIndex = 19
Me.cbxNCTSAufDispo.Text = "Adr. auf Dispo."
Me.cbxNCTSAufDispo.UseVisualStyleBackColor = True
Me.cbxNCTSAufDispo.Visible = False
'
'picDel
'
Me.picDel.BackgroundImage = Global.AVISO.My.Resources.Resources.del
Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDel.Cursor = System.Windows.Forms.Cursors.Hand
Me.picDel.Location = New System.Drawing.Point(100, 52)
Me.picDel.Name = "picDel"
Me.picDel.Size = New System.Drawing.Size(15, 15)
Me.picDel.TabIndex = 18
Me.picDel.TabStop = False
Me.picDel.Visible = False
'
'txtT1Verzollungsadresse
'
Me.txtT1Verzollungsadresse._allowFreitext = True
Me.txtT1Verzollungsadresse._AllowSetValue = False
Me.txtT1Verzollungsadresse._allowSpaceAsSplitter = False
Me.txtT1Verzollungsadresse._autoSizeGross = False
Me.txtT1Verzollungsadresse._hideIfListEmpty = True
Me.txtT1Verzollungsadresse._value = Nothing
Me.txtT1Verzollungsadresse.conn_art = "FMZOLL"
Me.txtT1Verzollungsadresse.dgvpos = "LEFT"
Me.txtT1Verzollungsadresse.DISPLAY_PARAM = Nothing
Me.txtT1Verzollungsadresse.INVISIBLE_COLUMNS = Nothing
Me.txtT1Verzollungsadresse.key_visible = False
Me.txtT1Verzollungsadresse.KEYPARAM = Nothing
Me.txtT1Verzollungsadresse.Location = New System.Drawing.Point(121, 11)
Me.txtT1Verzollungsadresse.Name = "txtT1Verzollungsadresse"
Me.txtT1Verzollungsadresse.searchActive = True
Me.txtT1Verzollungsadresse.Size = New System.Drawing.Size(269, 20)
Me.txtT1Verzollungsadresse.SQL_ORDER_BY = Nothing
Me.txtT1Verzollungsadresse.SQL_SELECT = Nothing
Me.txtT1Verzollungsadresse.SQL_WHERE = Nothing
Me.txtT1Verzollungsadresse.SQL_WhereParamList = Nothing
Me.txtT1Verzollungsadresse.TabIndex = 1
Me.txtT1Verzollungsadresse.usrcntl = Nothing
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(23, 52)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(19, 13)
Me.Label5.TabIndex = 8
Me.Label5.Text = "Id:"
'
'lblNGAId
'
Me.lblNGAId.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblNGAId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNGAId.Location = New System.Drawing.Point(48, 52)
Me.lblNGAId.Name = "lblNGAId"
Me.lblNGAId.Size = New System.Drawing.Size(46, 17)
Me.lblNGAId.TabIndex = 9
Me.lblNGAId.Text = "-"
Me.lblNGAId.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btn.Location = New System.Drawing.Point(438, 51)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(108, 23)
Me.btn.TabIndex = 17
Me.btn.Text = "speichern"
Me.btn.UseVisualStyleBackColor = True
'
'txtT1VerzollungsadresseEORI_NL
'
Me.txtT1VerzollungsadresseEORI_NL._allowFreitext = False
Me.txtT1VerzollungsadresseEORI_NL._AllowSetValue = False
Me.txtT1VerzollungsadresseEORI_NL._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseEORI_NL._autoSizeGross = False
Me.txtT1VerzollungsadresseEORI_NL._hideIfListEmpty = True
Me.txtT1VerzollungsadresseEORI_NL._value = Nothing
Me.txtT1VerzollungsadresseEORI_NL.conn_art = "FMZOLL"
Me.txtT1VerzollungsadresseEORI_NL.dgvpos = "LEFT"
Me.txtT1VerzollungsadresseEORI_NL.DISPLAY_PARAM = Nothing
Me.txtT1VerzollungsadresseEORI_NL.INVISIBLE_COLUMNS = Nothing
Me.txtT1VerzollungsadresseEORI_NL.key_visible = False
Me.txtT1VerzollungsadresseEORI_NL.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseEORI_NL.Location = New System.Drawing.Point(455, 30)
Me.txtT1VerzollungsadresseEORI_NL.MaxLength = 4
Me.txtT1VerzollungsadresseEORI_NL.Name = "txtT1VerzollungsadresseEORI_NL"
Me.txtT1VerzollungsadresseEORI_NL.searchActive = True
Me.txtT1VerzollungsadresseEORI_NL.Size = New System.Drawing.Size(91, 20)
Me.txtT1VerzollungsadresseEORI_NL.SQL_ORDER_BY = Nothing
Me.txtT1VerzollungsadresseEORI_NL.SQL_SELECT = Nothing
Me.txtT1VerzollungsadresseEORI_NL.SQL_WHERE = Nothing
Me.txtT1VerzollungsadresseEORI_NL.SQL_WhereParamList = Nothing
Me.txtT1VerzollungsadresseEORI_NL.TabIndex = 7
Me.txtT1VerzollungsadresseEORI_NL.usrcntl = Nothing
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(396, 33)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(53, 13)
Me.Label2.TabIndex = 6
Me.Label2.Text = "EORI-NL:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(23, 75)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 13)
Me.Label3.TabIndex = 15
Me.Label3.Text = "Zollstelle:"
'
'txtT1VerzollungsadresseAnspr
'
Me.txtT1VerzollungsadresseAnspr._allowFreitext = False
Me.txtT1VerzollungsadresseAnspr._AllowSetValue = False
Me.txtT1VerzollungsadresseAnspr._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseAnspr._autoSizeGross = False
Me.txtT1VerzollungsadresseAnspr._hideIfListEmpty = True
Me.txtT1VerzollungsadresseAnspr._value = Nothing
Me.txtT1VerzollungsadresseAnspr.conn_art = "FMZOLL"
Me.txtT1VerzollungsadresseAnspr.dgvpos = "LEFT"
Me.txtT1VerzollungsadresseAnspr.DISPLAY_PARAM = Nothing
Me.txtT1VerzollungsadresseAnspr.INVISIBLE_COLUMNS = Nothing
Me.txtT1VerzollungsadresseAnspr.key_visible = False
Me.txtT1VerzollungsadresseAnspr.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseAnspr.Location = New System.Drawing.Point(438, 49)
Me.txtT1VerzollungsadresseAnspr.MaxLength = 35
Me.txtT1VerzollungsadresseAnspr.Name = "txtT1VerzollungsadresseAnspr"
Me.txtT1VerzollungsadresseAnspr.searchActive = True
Me.txtT1VerzollungsadresseAnspr.Size = New System.Drawing.Size(108, 20)
Me.txtT1VerzollungsadresseAnspr.SQL_ORDER_BY = Nothing
Me.txtT1VerzollungsadresseAnspr.SQL_SELECT = Nothing
Me.txtT1VerzollungsadresseAnspr.SQL_WHERE = Nothing
Me.txtT1VerzollungsadresseAnspr.SQL_WhereParamList = Nothing
Me.txtT1VerzollungsadresseAnspr.TabIndex = 14
Me.txtT1VerzollungsadresseAnspr.usrcntl = Nothing
Me.txtT1VerzollungsadresseAnspr.Visible = False
'
'txtT1VerzollungsadresseBestimmungszollstelle
'
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT"
Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(121, 72)
Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 50
Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(269, 20)
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(396, 52)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 13)
Me.Label1.TabIndex = 13
Me.Label1.Text = "Anspr.:"
Me.Label1.Visible = False
'
'sbT1VerzollungsadresseLand
'
Me.sbT1VerzollungsadresseLand._allowFreitext = False
Me.sbT1VerzollungsadresseLand._AllowSetValue = False
Me.sbT1VerzollungsadresseLand._allowSpaceAsSplitter = False
Me.sbT1VerzollungsadresseLand._autoSizeGross = False
Me.sbT1VerzollungsadresseLand._hideIfListEmpty = True
Me.sbT1VerzollungsadresseLand._value = Nothing
Me.sbT1VerzollungsadresseLand.conn_art = "FMZOLL"
Me.sbT1VerzollungsadresseLand.dgvpos = "LEFT"
Me.sbT1VerzollungsadresseLand.DISPLAY_PARAM = Nothing
Me.sbT1VerzollungsadresseLand.INVISIBLE_COLUMNS = Nothing
Me.sbT1VerzollungsadresseLand.key_visible = False
Me.sbT1VerzollungsadresseLand.KEYPARAM = Nothing
Me.sbT1VerzollungsadresseLand.Location = New System.Drawing.Point(121, 49)
Me.sbT1VerzollungsadresseLand.MaxLength = 20
Me.sbT1VerzollungsadresseLand.Name = "sbT1VerzollungsadresseLand"
Me.sbT1VerzollungsadresseLand.searchActive = True
Me.sbT1VerzollungsadresseLand.Size = New System.Drawing.Size(32, 20)
Me.sbT1VerzollungsadresseLand.SQL_ORDER_BY = Nothing
Me.sbT1VerzollungsadresseLand.SQL_SELECT = Nothing
Me.sbT1VerzollungsadresseLand.SQL_WHERE = Nothing
Me.sbT1VerzollungsadresseLand.SQL_WhereParamList = Nothing
Me.sbT1VerzollungsadresseLand.TabIndex = 10
Me.sbT1VerzollungsadresseLand.usrcntl = Nothing
'
'txtT1VerzollungsadresseEORI
'
Me.txtT1VerzollungsadresseEORI._allowFreitext = False
Me.txtT1VerzollungsadresseEORI._AllowSetValue = False
Me.txtT1VerzollungsadresseEORI._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseEORI._autoSizeGross = False
Me.txtT1VerzollungsadresseEORI._hideIfListEmpty = True
Me.txtT1VerzollungsadresseEORI._value = Nothing
Me.txtT1VerzollungsadresseEORI.conn_art = "FMZOLL"
Me.txtT1VerzollungsadresseEORI.dgvpos = "LEFT"
Me.txtT1VerzollungsadresseEORI.DISPLAY_PARAM = Nothing
Me.txtT1VerzollungsadresseEORI.INVISIBLE_COLUMNS = Nothing
Me.txtT1VerzollungsadresseEORI.key_visible = False
Me.txtT1VerzollungsadresseEORI.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseEORI.Location = New System.Drawing.Point(438, 11)
Me.txtT1VerzollungsadresseEORI.MaxLength = 17
Me.txtT1VerzollungsadresseEORI.Name = "txtT1VerzollungsadresseEORI"
Me.txtT1VerzollungsadresseEORI.searchActive = True
Me.txtT1VerzollungsadresseEORI.Size = New System.Drawing.Size(108, 20)
Me.txtT1VerzollungsadresseEORI.SQL_ORDER_BY = Nothing
Me.txtT1VerzollungsadresseEORI.SQL_SELECT = Nothing
Me.txtT1VerzollungsadresseEORI.SQL_WHERE = Nothing
Me.txtT1VerzollungsadresseEORI.SQL_WhereParamList = Nothing
Me.txtT1VerzollungsadresseEORI.TabIndex = 2
Me.txtT1VerzollungsadresseEORI.usrcntl = Nothing
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(396, 14)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(36, 13)
Me.Label9.TabIndex = 4
Me.Label9.Text = "EORI:"
'
'txtT1VerzollungsadresseOrt
'
Me.txtT1VerzollungsadresseOrt._DateTimeOnly = False
Me.txtT1VerzollungsadresseOrt._numbersOnly = False
Me.txtT1VerzollungsadresseOrt._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadresseOrt._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadresseOrt._Prozent = False
Me.txtT1VerzollungsadresseOrt._ShortDateNew = False
Me.txtT1VerzollungsadresseOrt._ShortDateOnly = False
Me.txtT1VerzollungsadresseOrt._TimeOnly = False
Me.txtT1VerzollungsadresseOrt._TimeOnly_Seconds = False
Me.txtT1VerzollungsadresseOrt._value = Nothing
Me.txtT1VerzollungsadresseOrt._Waehrung = False
Me.txtT1VerzollungsadresseOrt._WaehrungZeichen = True
Me.txtT1VerzollungsadresseOrt.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadresseOrt.Location = New System.Drawing.Point(213, 49)
Me.txtT1VerzollungsadresseOrt.MaxLength = 35
Me.txtT1VerzollungsadresseOrt.MaxLineLength = -1
Me.txtT1VerzollungsadresseOrt.MaxLines_Warning = ""
Me.txtT1VerzollungsadresseOrt.MaxLines_Warning_Label = Nothing
Me.txtT1VerzollungsadresseOrt.Name = "txtT1VerzollungsadresseOrt"
Me.txtT1VerzollungsadresseOrt.Size = New System.Drawing.Size(177, 20)
Me.txtT1VerzollungsadresseOrt.TabIndex = 12
'
'txtT1VerzollungsadressePlz
'
Me.txtT1VerzollungsadressePlz._DateTimeOnly = False
Me.txtT1VerzollungsadressePlz._numbersOnly = False
Me.txtT1VerzollungsadressePlz._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadressePlz._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadressePlz._Prozent = False
Me.txtT1VerzollungsadressePlz._ShortDateNew = False
Me.txtT1VerzollungsadressePlz._ShortDateOnly = False
Me.txtT1VerzollungsadressePlz._TimeOnly = False
Me.txtT1VerzollungsadressePlz._TimeOnly_Seconds = False
Me.txtT1VerzollungsadressePlz._value = Nothing
Me.txtT1VerzollungsadressePlz._Waehrung = False
Me.txtT1VerzollungsadressePlz._WaehrungZeichen = True
Me.txtT1VerzollungsadressePlz.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadressePlz.Location = New System.Drawing.Point(152, 49)
Me.txtT1VerzollungsadressePlz.MaxLength = 9
Me.txtT1VerzollungsadressePlz.MaxLineLength = -1
Me.txtT1VerzollungsadressePlz.MaxLines_Warning = ""
Me.txtT1VerzollungsadressePlz.MaxLines_Warning_Label = Nothing
Me.txtT1VerzollungsadressePlz.Name = "txtT1VerzollungsadressePlz"
Me.txtT1VerzollungsadressePlz.Size = New System.Drawing.Size(62, 20)
Me.txtT1VerzollungsadressePlz.TabIndex = 11
'
'txtT1VerzollungsadresseStrasse
'
Me.txtT1VerzollungsadresseStrasse._DateTimeOnly = False
Me.txtT1VerzollungsadresseStrasse._numbersOnly = False
Me.txtT1VerzollungsadresseStrasse._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadresseStrasse._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadresseStrasse._Prozent = False
Me.txtT1VerzollungsadresseStrasse._ShortDateNew = False
Me.txtT1VerzollungsadresseStrasse._ShortDateOnly = False
Me.txtT1VerzollungsadresseStrasse._TimeOnly = False
Me.txtT1VerzollungsadresseStrasse._TimeOnly_Seconds = False
Me.txtT1VerzollungsadresseStrasse._value = Nothing
Me.txtT1VerzollungsadresseStrasse._Waehrung = False
Me.txtT1VerzollungsadresseStrasse._WaehrungZeichen = True
Me.txtT1VerzollungsadresseStrasse.ForeColor = System.Drawing.Color.Black
Me.txtT1VerzollungsadresseStrasse.Location = New System.Drawing.Point(121, 30)
Me.txtT1VerzollungsadresseStrasse.MaxLength = 35
Me.txtT1VerzollungsadresseStrasse.MaxLineLength = -1
Me.txtT1VerzollungsadresseStrasse.MaxLines_Warning = ""
Me.txtT1VerzollungsadresseStrasse.MaxLines_Warning_Label = Nothing
Me.txtT1VerzollungsadresseStrasse.Name = "txtT1VerzollungsadresseStrasse"
Me.txtT1VerzollungsadresseStrasse.Size = New System.Drawing.Size(269, 20)
Me.txtT1VerzollungsadresseStrasse.TabIndex = 5
'
'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(57, 26)
Me.Label33.TabIndex = 3
Me.Label33.Text = "Amtsplatz/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zollstopp" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'LinkLabel4
'
Me.LinkLabel4.AutoSize = True
Me.LinkLabel4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer))
Me.LinkLabel4.Location = New System.Drawing.Point(319, -2)
Me.LinkLabel4.Name = "LinkLabel4"
Me.LinkLabel4.Size = New System.Drawing.Size(41, 9)
Me.LinkLabel4.TabIndex = 0
Me.LinkLabel4.TabStop = True
Me.LinkLabel4.Text = "= Absender"
'
'usrCntlSND_Ausfuhr
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.pnlT1)
Me.Name = "usrCntlSND_Ausfuhr"
Me.Size = New System.Drawing.Size(549, 94)
Me.pnlT1.ResumeLayout(False)
Me.pnlT1.PerformLayout()
CType(Me.picDel, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnlT1 As System.Windows.Forms.Panel
Friend WithEvents sbT1VerzollungsadresseLand As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtT1VerzollungsadresseEORI As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txtT1VerzollungsadresseOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtT1VerzollungsadressePlz As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtT1VerzollungsadresseStrasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label33 As System.Windows.Forms.Label
Friend WithEvents LinkLabel4 As System.Windows.Forms.LinkLabel
Friend WithEvents txtT1VerzollungsadresseAnspr As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtT1VerzollungsadresseBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtT1VerzollungsadresseEORI_NL As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents btn As Button
Friend WithEvents Label5 As Label
Friend WithEvents lblNGAId As Label
Friend WithEvents txtT1Verzollungsadresse As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents picDel As PictureBox
Friend WithEvents cbxNCTSAufDispo As CheckBox
End Class

120
Aviso/usrCntlSND_Ausfuhr.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

134
Aviso/usrCntlSND_Ausfuhr.vb Normal file
View File

@@ -0,0 +1,134 @@
Public Class usrCntlSND_Ausfuhr
Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(id)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen(id)
End Sub
Public Sub setValues()
txtT1Verzollungsadresse.Text = If(NCTS_GA.nga_name, "")
txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "")
txtT1VerzollungsadresseOrt.Text = If(NCTS_GA.nga_ort, "")
sbT1VerzollungsadresseLand.SET_VALUE(If(NCTS_GA.nga_land, ""))
txtT1VerzollungsadresseAnspr.Text = If(NCTS_GA.nga_Ansprechpartner, "")
txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "")
txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
picDel.Visible = (NCTS_GA.nga_id > 0)
End Sub
Public Sub getValues()
NCTS_GA.nga_name = txtT1Verzollungsadresse.Text
NCTS_GA.nga_strasse = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseStrasse.Text)
NCTS_GA.nga_plz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadressePlz.Text)
NCTS_GA.nga_ort = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseOrt.Text)
NCTS_GA.nga_land = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(sbT1VerzollungsadresseLand._value)
NCTS_GA.nga_Ansprechpartner = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseAnspr.Text)
NCTS_GA.nga_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI.Text)
NCTS_GA.nga_EORI_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI_NL.Text)
NCTS_GA.nga_bestZollst = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseBestimmungszollstelle._value)
End Sub
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
Try
If Me.FindForm.GetType Is GetType(frmSendungsdetailsNEU) Then
Dim f = DirectCast(Me.FindForm, frmSendungsdetailsNEU)
If f.txtAbsender.KdNr > 0 AndAlso f.txtAbsender.KdData_ADRESSEN IsNot Nothing Then
txtT1Verzollungsadresse.Text = (If(f.txtAbsender.KdData_ADRESSEN.Name_1, "") & " " & If(f.txtAbsender.KdData_ADRESSEN.Name_2, "")).trim
txtT1VerzollungsadresseStrasse.Text = If(f.txtAbsender.KdData_ADRESSEN.Straße, "")
txtT1VerzollungsadressePlz.Text = If(f.txtAbsender.KdData_ADRESSEN.PLZ, "")
txtT1VerzollungsadresseOrt.Text = If(f.txtAbsender.KdData_ADRESSEN.Ort, "")
sbT1VerzollungsadresseLand.SET_VALUE(SDL.cProgramFunctions.getISO2Land(If(f.txtAbsender.KdData_ADRESSEN.LandKz, "")))
If f.txtAbsender.KdData_KUNDE IsNot Nothing Then
txtT1VerzollungsadresseEORI.Text = If(f.txtAbsender.KdData_KUNDE.EORITIN, "")
txtT1VerzollungsadresseEORI_NL.Text = If(f.txtAbsender.KdData_KUNDE.EORITIN_NL, "")
End If
Else
txtT1Verzollungsadresse.Text = f.txtAbsender.Text
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub usrCntlSND_NCTSGestellungsadresse_Load(sender As Object, e As EventArgs) Handles Me.Load
If NCTS_GA Is Nothing Then : NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Else : setValues() : End If
' txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [Description] +' (' +left(Code,2)+')' as displayPARAM FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "displayPARAM", "FMZOLL", True, 400, 200, {"displayPARAM", "Code"})
sbT1VerzollungsadresseLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code] display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
txtT1Verzollungsadresse.initSearchBox(Me.FindForm, " [nga_id] ,[nga_name] as Name,isnull(nga_ort,'') as Ort FROM tblNCTSGestellungsadressen", {"nga_id", "nga_name", "nga_ort", "nga_strasse", "nga_bestZollst", "nga_EORI"}, " nga_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", "nga_id", "nga_id", "Name", "FMZOLL", , 400, 200, {"nga_id"})
End Sub
Sub reset()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
setValues()
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Save_Me()
End Sub
Function Save_Me() As Boolean
getValues()
Save_Me = NCTS_GA.SAVE
lblNGAId.Text = NCTS_GA.nga_id
End Function
Private Sub txtT1Verzollungsadresse_VALUE_CHANGED() Handles txtT1Verzollungsadresse.VALUE_CHANGED
If txtT1Verzollungsadresse._value <> "" Then
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen(txtT1Verzollungsadresse._value)
setValues()
End If
End Sub
Private Sub lblNGAId_Click(sender As Object, e As EventArgs) Handles lblNGAId.Click
reset()
End Sub
Private Sub picDel_Click(sender As Object, e As EventArgs) Handles picDel.Click
If vbYes = MsgBox("Möchten Sie die NCTS-Gestellungsadresse wirklich löschen?", vbYesNoCancel + MsgBoxStyle.DefaultButton2) Then
NCTS_GA.DELETE()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
setValues()
End If
End Sub
End Class

16
Aviso/usrCntlSND_NCTSGestellungsadresse.Designer.vb generated
View File

@@ -102,6 +102,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.txtT1Verzollungsadresse._allowFreitext = True
Me.txtT1Verzollungsadresse._AllowSetValue = False
Me.txtT1Verzollungsadresse._allowSpaceAsSplitter = False
Me.txtT1Verzollungsadresse._autoSizeGross = False
Me.txtT1Verzollungsadresse._hideIfListEmpty = True
Me.txtT1Verzollungsadresse._value = Nothing
@@ -158,6 +159,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.txtT1VerzollungsadresseEORI_NL._allowFreitext = False
Me.txtT1VerzollungsadresseEORI_NL._AllowSetValue = False
Me.txtT1VerzollungsadresseEORI_NL._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseEORI_NL._autoSizeGross = False
Me.txtT1VerzollungsadresseEORI_NL._hideIfListEmpty = True
Me.txtT1VerzollungsadresseEORI_NL._value = Nothing
@@ -201,6 +203,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.txtT1VerzollungsadresseAnspr._allowFreitext = False
Me.txtT1VerzollungsadresseAnspr._AllowSetValue = False
Me.txtT1VerzollungsadresseAnspr._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseAnspr._autoSizeGross = False
Me.txtT1VerzollungsadresseAnspr._hideIfListEmpty = True
Me.txtT1VerzollungsadresseAnspr._value = Nothing
@@ -227,6 +230,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
@@ -237,7 +241,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(121, 72)
Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8
Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 50
Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(269, 20)
@@ -262,6 +266,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.sbT1VerzollungsadresseLand._allowFreitext = False
Me.sbT1VerzollungsadresseLand._AllowSetValue = False
Me.sbT1VerzollungsadresseLand._allowSpaceAsSplitter = False
Me.sbT1VerzollungsadresseLand._autoSizeGross = False
Me.sbT1VerzollungsadresseLand._hideIfListEmpty = True
Me.sbT1VerzollungsadresseLand._value = Nothing
@@ -287,6 +292,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
'
Me.txtT1VerzollungsadresseEORI._allowFreitext = False
Me.txtT1VerzollungsadresseEORI._AllowSetValue = False
Me.txtT1VerzollungsadresseEORI._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseEORI._autoSizeGross = False
Me.txtT1VerzollungsadresseEORI._hideIfListEmpty = True
Me.txtT1VerzollungsadresseEORI._value = Nothing
@@ -322,10 +328,12 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseOrt._DateTimeOnly = False
Me.txtT1VerzollungsadresseOrt._numbersOnly = False
Me.txtT1VerzollungsadresseOrt._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadresseOrt._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadresseOrt._Prozent = False
Me.txtT1VerzollungsadresseOrt._ShortDateNew = False
Me.txtT1VerzollungsadresseOrt._ShortDateOnly = False
Me.txtT1VerzollungsadresseOrt._TimeOnly = False
Me.txtT1VerzollungsadresseOrt._TimeOnly_Seconds = False
Me.txtT1VerzollungsadresseOrt._value = Nothing
Me.txtT1VerzollungsadresseOrt._Waehrung = False
Me.txtT1VerzollungsadresseOrt._WaehrungZeichen = True
@@ -344,10 +352,12 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadressePlz._DateTimeOnly = False
Me.txtT1VerzollungsadressePlz._numbersOnly = False
Me.txtT1VerzollungsadressePlz._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadressePlz._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadressePlz._Prozent = False
Me.txtT1VerzollungsadressePlz._ShortDateNew = False
Me.txtT1VerzollungsadressePlz._ShortDateOnly = False
Me.txtT1VerzollungsadressePlz._TimeOnly = False
Me.txtT1VerzollungsadressePlz._TimeOnly_Seconds = False
Me.txtT1VerzollungsadressePlz._value = Nothing
Me.txtT1VerzollungsadressePlz._Waehrung = False
Me.txtT1VerzollungsadressePlz._WaehrungZeichen = True
@@ -366,10 +376,12 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.txtT1VerzollungsadresseStrasse._DateTimeOnly = False
Me.txtT1VerzollungsadresseStrasse._numbersOnly = False
Me.txtT1VerzollungsadresseStrasse._numbersOnlyKommastellen = ""
Me.txtT1VerzollungsadresseStrasse._numbersOnlyTrennzeichen = True
Me.txtT1VerzollungsadresseStrasse._Prozent = False
Me.txtT1VerzollungsadresseStrasse._ShortDateNew = False
Me.txtT1VerzollungsadresseStrasse._ShortDateOnly = False
Me.txtT1VerzollungsadresseStrasse._TimeOnly = False
Me.txtT1VerzollungsadresseStrasse._TimeOnly_Seconds = False
Me.txtT1VerzollungsadresseStrasse._value = Nothing
Me.txtT1VerzollungsadresseStrasse._Waehrung = False
Me.txtT1VerzollungsadresseStrasse._WaehrungZeichen = True
@@ -391,7 +403,7 @@ Partial Class usrCntlSND_NCTSGestellungsadresse
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(83, 26)
Me.Label33.TabIndex = 3
Me.Label33.Text = "NCTS-" & Global.Microsoft.VisualBasic.ChrW(10) & "Gestellungsadr.:"
Me.Label33.Text = "NCTS-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Gestellungsadr.:"
'
'LinkLabel4
'

2
Aviso/usrCntlSND_NCTSGestellungsadresse.vb
View File

@@ -86,7 +86,7 @@
' txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [Description] +' (' +left(Code,2)+')' as displayPARAM FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "displayPARAM", "FMZOLL", True, 400, 200, {"displayPARAM", "Code"})
sbT1VerzollungsadresseLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code] display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
txtT1Verzollungsadresse.initSearchBox(Me.FindForm, " [nga_id] ,[nga_name] as Name,isnull(nga_ort,'') as Ort FROM tblNCTSGestellungsadressen", {"nga_id", "nga_name", "nga_ort", "nga_strasse", "nga_bestZollst", "nga_EORI"}, " nga_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", "nga_id", "nga_id", "Name", "FMZOLL", , 400, 200, {"nga_id"})

8
Aviso/usrcntlAktDetails.vb
View File

@@ -1993,16 +1993,18 @@ Public Class usrcntlAktDetails
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_gray_small
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen"
If r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_blue_small
DirectCast(r.Cells("SenungWeiterleiten"), DataGridViewImageCell).Value = My.Resources.weiterleiten_small1
Else
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Bereits 'meine Sendung'"
ElseIf r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("LetzterMitarbeiterId").Value) > 0 Then
If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small
If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiter").Value <> "" Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"
End If
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen"
' DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen"
End If
If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"
If dgvSendungen.Columns("SendungFakturiert") IsNot Nothing Then
If (r.Cells("tblSnd_Fakturiert").Value) IsNot DBNull.Value Then

16
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -517,7 +517,20 @@ Public Class usrcntlAktDetailsATILLANeu
Try
If dgvanhaenge.SelectedRows.Count > 0 Then
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value))
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value)
If Not IO.File.Exists(docPath) Then
MsgBox("Die Datei existiert nicht!")
Else
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
File.Copy(docPath, docPathTMP)
Process.Start(docPathTMP)
Else
Process.Start(docPath)
End If
End If
End If
Catch ex As Exception
@@ -1537,6 +1550,7 @@ Public Class usrcntlAktDetailsATILLANeu
f.btnCMRtoAkt.Visible = True
f.txtCMRName.Visible = True
f.txtCMRName.Visible = True
If f.ShowDialog(Me) Then

6
Gemeinsames/Gemeinsames.vbproj
View File

@@ -303,6 +303,12 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
<Name>DAKOSY_Worker_lib</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

7
Gemeinsames/rptSendungen.vb
View File

@@ -157,11 +157,16 @@ Public Class rptSendungen
End If
Select Case VALUES.ABF_ART
Case 5, 6
Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
Case 7
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
Case 26, 28
txtNCTSVZAdr.Visible = True
lblNCTSVZAdr.Visible = True