Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024
This commit is contained in:
20
SDL/My Project/Resources.Designer.vb
generated
20
SDL/My Project/Resources.Designer.vb
generated
@@ -1134,6 +1134,26 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
Friend ReadOnly Property KVI_report() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("KVI_report", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
Friend ReadOnly Property KVI_report_general() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("KVI_report_general", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@@ -976,4 +976,10 @@
|
||||
<data name="VERAG_CBAM_Report_Template" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\VERAG_CBAM_Report_Template.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="KVI_report" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\KVI_report.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="KVI_report_general" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\KVI_report_general.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
</root>
|
||||
BIN
SDL/Resources/KVI_report.xlsx
Normal file
BIN
SDL/Resources/KVI_report.xlsx
Normal file
Binary file not shown.
BIN
SDL/Resources/KVI_report_general.xlsx
Normal file
BIN
SDL/Resources/KVI_report_general.xlsx
Normal file
Binary file not shown.
Binary file not shown.
@@ -4971,6 +4971,8 @@
|
||||
<None Include="Resources\Kostenkalkulation_CS.xlsx" />
|
||||
<None Include="Resources\Kostenkalkulation_AG.xlsx" />
|
||||
<None Include="Resources\Kostenkalkulation_IMEX.xlsx" />
|
||||
<None Include="Resources\KVI_report.xlsx" />
|
||||
<None Include="Resources\KVI_report_general.xlsx" />
|
||||
<None Include="Resources\LKW_Liste.xlsx" />
|
||||
<None Include="Resources\MDM_Schreiben\GOBOX_UMSTELLUNG.dotx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
|
||||
@@ -64,6 +64,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnlOpt = New System.Windows.Forms.Panel()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.cbxSpedBerichtBar = New System.Windows.Forms.CheckBox()
|
||||
Me.Label31 = New System.Windows.Forms.Label()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
@@ -93,6 +94,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -209,7 +211,6 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
|
||||
Me.pnlRechts.SuspendLayout()
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -802,6 +803,19 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.Panel3.Size = New System.Drawing.Size(386, 186)
|
||||
Me.Panel3.TabIndex = 95
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(308, 159)
|
||||
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(62, 25)
|
||||
Me.Button2.TabIndex = 93
|
||||
Me.Button2.Text = "Jahr"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxSpedBerichtBar
|
||||
'
|
||||
Me.cbxSpedBerichtBar.AutoSize = True
|
||||
@@ -1172,25 +1186,32 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(322, 156)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
|
||||
Me.MenuStrip1.TabIndex = 89
|
||||
Me.MenuStrip1.Text = "Kundenauswertungen"
|
||||
'
|
||||
'KundenauswertungenToolStripMenuItem1
|
||||
'
|
||||
Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem})
|
||||
Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem})
|
||||
Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
|
||||
Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
|
||||
Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23)
|
||||
Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen"
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
Me.ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ToolStripMenuItem2.Text = "Kanadevia (Zeitraum auswählen)"
|
||||
'
|
||||
'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
|
||||
'
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -1198,14 +1219,14 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)"
|
||||
'
|
||||
'ZFThyrnauZeitraumAuswählenToolStripMenuItem
|
||||
'
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -1213,7 +1234,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Name = "AuswertungDiversZeitraumAuswählenToolStripMenuItem"
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
|
||||
Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -2902,19 +2923,6 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.SplitContainer.SplitterWidth = 2
|
||||
Me.SplitContainer.TabIndex = 3
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(308, 159)
|
||||
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(62, 25)
|
||||
Me.Button2.TabIndex = 93
|
||||
Me.Button2.Text = "Jahr"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
@@ -3143,4 +3151,5 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -127,6 +127,89 @@
|
||||
<value>431, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripMenuItem2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
|
||||
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
|
||||
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
|
||||
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
|
||||
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
|
||||
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
|
||||
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
|
||||
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
|
||||
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
|
||||
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
|
||||
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
|
||||
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
|
||||
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
|
||||
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
|
||||
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
|
||||
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
|
||||
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
|
||||
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
|
||||
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
|
||||
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
|
||||
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
|
||||
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
|
||||
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
|
||||
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
|
||||
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
|
||||
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
|
||||
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
|
||||
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
|
||||
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
|
||||
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
|
||||
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
|
||||
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
|
||||
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
|
||||
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
|
||||
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
|
||||
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
|
||||
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
|
||||
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
|
||||
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
|
||||
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
|
||||
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
|
||||
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
|
||||
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
|
||||
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
|
||||
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
|
||||
x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
|
||||
bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
|
||||
qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
|
||||
JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8
|
||||
Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp
|
||||
l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg
|
||||
Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh
|
||||
9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K
|
||||
gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA
|
||||
OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ
|
||||
gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj
|
||||
s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX
|
||||
VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc
|
||||
//ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/
|
||||
5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er
|
||||
p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn
|
||||
DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO
|
||||
fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9
|
||||
HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR
|
||||
SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY
|
||||
cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4
|
||||
rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps
|
||||
69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg
|
||||
u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F
|
||||
iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm
|
||||
iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK
|
||||
TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p
|
||||
ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld
|
||||
AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd
|
||||
GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+
|
||||
dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1
|
||||
tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
|
||||
|
||||
@@ -3174,5 +3174,297 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
||||
lblKdAusFortschritt.Text = "lädt..."
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
|
||||
Dim kdnrsrch = 770931
|
||||
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
|
||||
,cast([Abfertigungsdatum] as date)Abfertigungsdatum
|
||||
,Absender,Empfänger
|
||||
,Rechnungsbetrag Betrag
|
||||
,BelegNr
|
||||
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land,isnull(KdAuftragsNr,'')KdAuftragsNr
|
||||
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
where (EmpfängerKundenNr IN (" & kdnrsrch & ") OR VermittlerKundenNr IN (" & kdnrsrch & ")) and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And isAbfertigung =1 ", "FMZOLL") 'Speditionsbuch.Abfertigungsart IN (1,3,29,38,66,46,47,37,39)
|
||||
|
||||
Dim Path = ""
|
||||
If dt IsNot Nothing And dt.Rows.Count > 0 Then
|
||||
|
||||
|
||||
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
|
||||
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
|
||||
My.Computer.FileSystem.CreateDirectory(sPath)
|
||||
End If
|
||||
|
||||
|
||||
Dim exclApp As Object 'as Application
|
||||
Dim Datei As Object 'as WorkBook
|
||||
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
|
||||
exclApp = CreateObject("Excel.Application")
|
||||
|
||||
If cbxDetailbericht.Checked Then
|
||||
|
||||
With exclApp
|
||||
.Visible = False
|
||||
|
||||
Try
|
||||
Path = sPath & "KVI_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "KVI_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.KVI_report, False)
|
||||
Catch ex As System.Exception
|
||||
' MsgBox(ex.Message)
|
||||
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Datei = .Workbooks.Open(Path) 'Anpassen
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
'Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
|
||||
Dim cnt = 2
|
||||
For Each r In dt.Rows
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
Try
|
||||
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
|
||||
|
||||
If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then
|
||||
|
||||
Dim rowcounter As Integer = 0
|
||||
|
||||
For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
|
||||
|
||||
Dim ZollInProzent As Double = 0
|
||||
If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
|
||||
ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
|
||||
End If
|
||||
|
||||
Dim KdAtrNr = r("KDAuftragsNr")
|
||||
If kdnrsrch = 770931 Then ' Sonderfall Kanadevia
|
||||
If KdAtrNr.ToString.Contains("/") Then
|
||||
KdAtrNr = KdAtrNr.ToString.Split("/")(0) 'nur vorderer Teil nehmen
|
||||
End If
|
||||
End If
|
||||
|
||||
Blatt.Range("A" & cnt).Value = cnt - 1
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
|
||||
Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
|
||||
Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
|
||||
Blatt.Range("F" & cnt).Value = KdAtrNr
|
||||
Blatt.Range("G" & cnt).Value = r("BelegNr")
|
||||
Blatt.Range("H" & cnt).Value = row.Item("PosNr")
|
||||
Blatt.Range("I" & cnt).Value = row.Item("WarenNr")
|
||||
Blatt.Range("J" & cnt).Value = "-"
|
||||
Blatt.Range("K" & cnt).Value = row.Item("WarenBez")
|
||||
Blatt.Range("L" & cnt).Value = ""
|
||||
Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
|
||||
Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
|
||||
Blatt.Range("O" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
|
||||
Blatt.Range("P" & cnt).Value = ""
|
||||
Blatt.Range("Q" & cnt).Value = row.Item("Netto")
|
||||
Blatt.Range("R" & cnt).Value = row.Item("PosWert")
|
||||
Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "")
|
||||
Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "")
|
||||
Blatt.Range("U" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "")
|
||||
Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
|
||||
Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
|
||||
Blatt.Range("X" & cnt).Value = row.Item("Herkunft")
|
||||
Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
|
||||
Blatt.Range("z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
|
||||
Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
|
||||
Blatt.Range("AB" & cnt).Value = row.Item("Verfahren")
|
||||
Blatt.Range("AC" & cnt).Value = row.Item("Preferenz")
|
||||
Blatt.Range("AD" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
|
||||
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
|
||||
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
End If
|
||||
|
||||
cnt += 1
|
||||
rowcounter += 1
|
||||
Next
|
||||
Else
|
||||
Dim ZollInProzent As Double = 0
|
||||
If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
|
||||
ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim KdAtrNr = r("KDAuftragsNr")
|
||||
If kdnrsrch = 770931 Then ' Sonderfall Kanadevia
|
||||
If KdAtrNr.ToString.Contains("/") Then
|
||||
KdAtrNr = KdAtrNr.ToString.Split("/")(0) 'nur vorderer Teil nehmen
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Blatt.Range("A" & cnt).Value = cnt - 1
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
|
||||
Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
|
||||
Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
|
||||
Blatt.Range("F" & cnt).Value = KdAtrNr
|
||||
Blatt.Range("G" & cnt).Value = r("BelegNr")
|
||||
Blatt.Range("H" & cnt).Value = ""
|
||||
Blatt.Range("I" & cnt).Value = ""
|
||||
Blatt.Range("J" & cnt).Value = "-"
|
||||
Blatt.Range("K" & cnt).Value = ""
|
||||
Blatt.Range("L" & cnt).Value = ""
|
||||
Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
|
||||
Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
|
||||
Blatt.Range("O" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
|
||||
Blatt.Range("P" & cnt).Value = ""
|
||||
Blatt.Range("Q" & cnt).Value = ""
|
||||
Blatt.Range("R" & cnt).Value = ""
|
||||
Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
|
||||
Blatt.Range("T" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
|
||||
Blatt.Range("U" & cnt).Value = ZollInProzent.ToString("N2") & " %"
|
||||
Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
|
||||
Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
|
||||
Blatt.Range("X" & cnt).Value = ""
|
||||
Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
|
||||
Blatt.Range("Z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
|
||||
Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
|
||||
Blatt.Range("AB" & cnt).Value = ""
|
||||
Blatt.Range("AC" & cnt).Value = ""
|
||||
Blatt.Range("AD" & cnt).Value = ""
|
||||
|
||||
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
|
||||
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
cnt += 1
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
|
||||
Next
|
||||
Datei.Save
|
||||
|
||||
If False Then
|
||||
Blatt.PrintOutEx()
|
||||
Else
|
||||
'Process.Start(Path)
|
||||
.Visible = True
|
||||
|
||||
End If
|
||||
End With
|
||||
|
||||
Else
|
||||
|
||||
|
||||
With exclApp
|
||||
.Visible = False
|
||||
|
||||
Try
|
||||
Path = sPath & "KVI_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "KVI_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.KVI_report_general, False)
|
||||
Catch ex As System.Exception
|
||||
' MsgBox(ex.Message)
|
||||
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Datei = .Workbooks.Open(Path) 'Anpassen
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
Dim cnt = 3
|
||||
For Each r In dt.Rows
|
||||
Blatt.Range("A" & cnt).Value = cnt - 2
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
|
||||
' Blatt.Range("C" & cnt).Value = r("RechnungsNr")
|
||||
Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
|
||||
Blatt.Range("E" & cnt).Value = r("Absender")
|
||||
Blatt.Range("F" & cnt).Value = r("Empfänger")
|
||||
Blatt.Range("H" & cnt).Value = "" 'r("Betrag")
|
||||
|
||||
|
||||
Dim KdAtrNr = r("KDAuftragsNr")
|
||||
If kdnrsrch = 770931 Then ' Sonderfall Kanadevia
|
||||
If KdAtrNr.ToString.Contains("/") Then
|
||||
KdAtrNr = KdAtrNr.ToString.Split("/")(0) 'nur vorderer Teil nehmen
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Blatt.Range("G" & cnt).Value = KdAtrNr
|
||||
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
Try
|
||||
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
|
||||
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
|
||||
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
|
||||
Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
|
||||
Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
|
||||
|
||||
|
||||
'----------------------------------NEW
|
||||
|
||||
Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Anmelder
|
||||
Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung
|
||||
Blatt.Range("O" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst
|
||||
'----------------------------------
|
||||
|
||||
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
|
||||
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
cnt += 1
|
||||
Next
|
||||
Datei.Save
|
||||
|
||||
If False Then
|
||||
Blatt.PrintOutEx()
|
||||
Else
|
||||
'Process.Start(Path)
|
||||
.Visible = True
|
||||
|
||||
End If
|
||||
End With
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
lblKdAusFortschritt.Text = "fertig"
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
lblKdAusFortschritt.Text = "Fehler"
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -120,6 +120,7 @@ Public Class usrCntlATLAS_EXGestellung
|
||||
Next
|
||||
If Not err Then
|
||||
If cbxNCTS.Checked Then
|
||||
'Es wird gleich eine NCTS Nachricht erstellt, die BEfüllung erfolge nach Verarbeitung der EXG -> bei der letzten wird der NCTS Datensatz gesendet
|
||||
Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, "")
|
||||
NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear()
|
||||
NCTS_OUT.DELETE_HouseConsignment()
|
||||
@@ -132,9 +133,8 @@ Public Class usrCntlATLAS_EXGestellung
|
||||
MsgBox(NCTS_OUT.ncts_dyaAnmID)
|
||||
cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID)
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'Dim BezugsNr = ""
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user