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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-02-26 12:42:52 +01:00
parent 6e023041f9
commit 39dd8a0501
36 changed files with 11903 additions and 629 deletions
Download Patch File Download Diff File Expand all files Collapse all files

123
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -35,12 +35,10 @@ Partial Class frmKundenUebersichtZOLL
Me.tabZolltarife = New System.Windows.Forms.TabPage()
Me.pnlZollTarife = New System.Windows.Forms.Panel()
Me.tabKundendaten = New System.Windows.Forms.TabPage()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbStatistik = New System.Windows.Forms.TabPage()
Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
@@ -95,7 +93,7 @@ Partial Class frmKundenUebersichtZOLL
Me.Label40 = New System.Windows.Forms.Label()
Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.tbCBAM = New System.Windows.Forms.TabPage()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -122,6 +120,8 @@ Partial Class frmKundenUebersichtZOLL
Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueCBAM = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
@@ -148,7 +148,9 @@ Partial Class frmKundenUebersichtZOLL
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -221,17 +223,6 @@ Partial Class frmKundenUebersichtZOLL
Me.tabKundendaten.TabIndex = 0
Me.tabKundendaten.Text = "Kundendaten"
'
'usrcntlKundenuebersicht
'
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -256,6 +247,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen)
Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch)
Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht)
Me.tbcntrKundenDaten.Controls.Add(Me.tbCBAM)
Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0)
Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
@@ -276,16 +268,6 @@ Partial Class frmKundenUebersichtZOLL
Me.TabPage1.TabIndex = 2
Me.TabPage1.Text = "Offerte"
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbStatistik
'
Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -973,14 +955,15 @@ Partial Class frmKundenUebersichtZOLL
Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
'
'UsrcntlFiskaluebersicht1
'tbCBAM
'
Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
Me.UsrcntlFiskaluebersicht1.TabIndex = 0
Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
Me.tbCBAM.Name = "tbCBAM"
Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3)
Me.tbCBAM.Size = New System.Drawing.Size(1182, 697)
Me.tbCBAM.TabIndex = 8
Me.tbCBAM.Text = "CBAM"
Me.tbCBAM.UseVisualStyleBackColor = True
'
'NotifyIcon1
'
@@ -1006,7 +989,7 @@ Partial Class frmKundenUebersichtZOLL
Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueCBAM, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1})
Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
Me.MenuStripKunden.Name = "MenuStripKunden"
@@ -1023,8 +1006,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueKunden.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueKunden.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueKunden.Name = "mnueKunden"
Me.mnueKunden.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
Me.mnueKunden.Size = New System.Drawing.Size(107, 69)
Me.mnueKunden.Size = New System.Drawing.Size(107, 64)
Me.mnueKunden.Text = "Kunden"
Me.mnueKunden.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueKunden.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1039,8 +1021,8 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueZoll.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueZoll.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
Me.mnueZoll.Name = "mnueZoll"
Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0, 0, 0, 5)
Me.mnueZoll.Size = New System.Drawing.Size(107, 64)
Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0)
Me.mnueZoll.Size = New System.Drawing.Size(107, 59)
Me.mnueZoll.Text = "Kunden-Zolltarif"
Me.mnueZoll.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueZoll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1054,8 +1036,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueOfferte.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueOfferte.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
Me.mnueOfferte.Name = "mnueOfferte"
Me.mnueOfferte.Padding = New System.Windows.Forms.Padding(4, 0, 4, 15)
Me.mnueOfferte.Size = New System.Drawing.Size(107, 64)
Me.mnueOfferte.Size = New System.Drawing.Size(107, 49)
Me.mnueOfferte.Text = "Offerte/Preise"
Me.mnueOfferte.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueOfferte.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
@@ -1069,8 +1050,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueRechnungen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueRechnungen.Margin = New System.Windows.Forms.Padding(0, 0, 0, 2)
Me.mnueRechnungen.Name = "mnueRechnungen"
Me.mnueRechnungen.Padding = New System.Windows.Forms.Padding(4, 0, 4, 10)
Me.mnueRechnungen.Size = New System.Drawing.Size(107, 61)
Me.mnueRechnungen.Size = New System.Drawing.Size(107, 51)
Me.mnueRechnungen.Text = "Rechnungen"
Me.mnueRechnungen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueRechnungen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1082,8 +1062,8 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueSpeditionsbuch.Image = Global.SDL.My.Resources.Resources.spedbuch1
Me.mnueSpeditionsbuch.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueSpeditionsbuch.Name = "mnueSpeditionsbuch"
Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 10)
Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 79)
Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 0)
Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 69)
Me.mnueSpeditionsbuch.Text = "Speditionsbuch"
Me.mnueSpeditionsbuch.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueSpeditionsbuch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1096,8 +1076,7 @@ Partial Class frmKundenUebersichtZOLL
Me.mnueStatistik.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueStatistik.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueStatistik.Name = "mnueStatistik"
Me.mnueStatistik.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5)
Me.mnueStatistik.Size = New System.Drawing.Size(107, 63)
Me.mnueStatistik.Size = New System.Drawing.Size(107, 58)
Me.mnueStatistik.Text = "Statistik"
Me.mnueStatistik.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueStatistik.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -1217,6 +1196,26 @@ Partial Class frmKundenUebersichtZOLL
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22)
Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)"
'
'EORIAntragToolStripMenuItem
'
Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
'
'mnueCBAM
'
Me.mnueCBAM.Enabled = False
Me.mnueCBAM.ForeColor = System.Drawing.Color.White
Me.mnueCBAM.Image = Global.SDL.My.Resources.Resources.cbam_s
Me.mnueCBAM.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueCBAM.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueCBAM.Name = "mnueCBAM"
Me.mnueCBAM.Size = New System.Drawing.Size(107, 49)
Me.mnueCBAM.Text = "CBAM"
Me.mnueCBAM.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueCBAM.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.mnueCBAM.Visible = False
'
'mnueFiskaluebersicht
'
Me.mnueFiskaluebersicht.Enabled = False
@@ -1469,11 +1468,35 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'EORIAntragToolStripMenuItem
'usrcntlKundenuebersicht
'
Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrcntlFiskaluebersicht1
'
Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
Me.UsrcntlFiskaluebersicht1.TabIndex = 0
'
'frmKundenUebersichtZOLL
'
@@ -1644,4 +1667,6 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
Friend WithEvents mneBearbeiten As ToolStripMenuItem
Friend WithEvents EORIAntragToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tbCBAM As TabPage
Friend WithEvents mnueCBAM As ToolStripMenuItem
End Class

27
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -105,7 +105,6 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
timerOP.Interval = 500
timerOP.Enabled = False
@@ -206,6 +205,12 @@ Public Class frmKundenUebersichtZOLL
mnueFiskaluebersicht.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", Me) Then
mnueCBAM.Visible = True
mnueCBAM.Visible = True
mnueCBAM.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
@@ -303,6 +308,7 @@ Public Class frmKundenUebersichtZOLL
mnueFiskaluebersicht.Enabled = True
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
mnueCBAM.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -335,6 +341,7 @@ Public Class frmKundenUebersichtZOLL
mnueStatistik.Enabled = False
mneFormulare.Enabled = False
mnueFiskal.Enabled = False
mnueCBAM.Enabled = False
mneBearbeiten.Enabled = False
toolOptionen.Enabled = False
mnueFiskaluebersicht.Enabled = False
@@ -517,6 +524,9 @@ Public Class frmKundenUebersichtZOLL
ElseIf tbcntrKundenDaten.SelectedIndex = 6 Then
' initBtns("Monat")
initSpeditinsbuch()
ElseIf tbcntrKundenDaten.SelectedIndex = 8 Then
' initBtns("Monat")
initCBAM()
End If
End Sub
@@ -613,6 +623,15 @@ Public Class frmKundenUebersichtZOLL
End Sub
Sub initCBAM()
tbCBAM.Controls.Clear()
Dim s As New SDL.usrCntlCBAM(kdNr)
s.Dock = DockStyle.Fill
tbCBAM.Controls.Add(s)
End Sub
Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvRg.DoubleClick
If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -1419,6 +1438,12 @@ Public Class frmKundenUebersichtZOLL
Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {})
End Sub
Private Sub ToolStripMenuItem5_Click_1(sender As Object, e As EventArgs) Handles mnueCBAM.Click
changeTab(8, mnueStatistik)
End Sub
End Class

646
SDL/kunden/usrCntlCBAM.Designer.vb generated Normal file
View File

@@ -0,0 +1,646 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlCBAM
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.components = New System.ComponentModel.Container()
Me.lblOffert = New System.Windows.Forms.TextBox()
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button()
Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button()
Me.btnCBAMPruef_TELOTEC = New System.Windows.Forms.Button()
Me.btnCBAMPruef_DHF_UNISPED = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnCBAMPruef_ALLE = New System.Windows.Forms.Button()
Me.txtCBAMPruef_DAKOSY = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox()
Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DAKOSY = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnCBAM_DS_DAKOSY_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DAKOSY_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Deteil = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Summe = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Detail = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.btnCBAM_DS_DAKOSY_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button()
Me.cntxtAddSdl.SuspendLayout()
Me.SuspendLayout()
'
'lblOffert
'
Me.lblOffert.BackColor = System.Drawing.Color.White
Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblOffert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOffert.Location = New System.Drawing.Point(5, 10)
Me.lblOffert.Multiline = True
Me.lblOffert.Name = "lblOffert"
Me.lblOffert.ReadOnly = True
Me.lblOffert.Size = New System.Drawing.Size(110, 22)
Me.lblOffert.TabIndex = 0
Me.lblOffert.Text = "CBAM"
'
'cntxtAddSdl
'
Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem})
Me.cntxtAddSdl.Name = "cntxtAddSdl"
Me.cntxtAddSdl.Size = New System.Drawing.Size(82, 26)
'
'DToolStripMenuItem
'
Me.DToolStripMenuItem.Name = "DToolStripMenuItem"
Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22)
Me.DToolStripMenuItem.Text = "d"
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = ""
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(106, 48)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(341, 20)
Me.txtEori.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(5, 51)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "EORI:"
'
'btnCBAMPruef_DAKOSY
'
Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74)
Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY"
Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DAKOSY.TabIndex = 3
Me.btnCBAMPruef_DAKOSY.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
Me.btnCBAMPruef_DAKOSY.UseVisualStyleBackColor = True
'
'btnCBAMPruef_DHF_VERAG
'
Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74)
Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG"
Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4
Me.btnCBAMPruef_DHF_VERAG.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
Me.btnCBAMPruef_DHF_VERAG.UseVisualStyleBackColor = True
'
'btnCBAMPruef_TELOTEC
'
Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74)
Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC"
Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_TELOTEC.TabIndex = 5
Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True
'
'btnCBAMPruef_DHF_UNISPED
'
Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74)
Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED"
Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6
Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 130)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(51, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Ergebnis:"
'
'btnCBAMPruef_ALLE
'
Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74)
Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE"
Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42)
Me.btnCBAMPruef_ALLE.TabIndex = 8
Me.btnCBAMPruef_ALLE.Text = "Alle"
Me.btnCBAMPruef_ALLE.UseVisualStyleBackColor = True
'
'txtCBAMPruef_DAKOSY
'
Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125)
Me.txtCBAMPruef_DAKOSY.Multiline = True
Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY"
Me.txtCBAMPruef_DAKOSY.ReadOnly = True
Me.txtCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DAKOSY.TabIndex = 10
Me.txtCBAMPruef_DAKOSY.Text = "-"
Me.txtCBAMPruef_DAKOSY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_DHF_VERAG
'
Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125)
Me.txtCBAMPruef_DHF_VERAG.Multiline = True
Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG"
Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True
Me.txtCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DHF_VERAG.TabIndex = 11
Me.txtCBAMPruef_DHF_VERAG.Text = "-"
Me.txtCBAMPruef_DHF_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_DHF_UNISPED
'
Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125)
Me.txtCBAMPruef_DHF_UNISPED.Multiline = True
Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED"
Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True
Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12
Me.txtCBAMPruef_DHF_UNISPED.Text = "-"
Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtCBAMPruef_TELOTEC
'
Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White
Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125)
Me.txtCBAMPruef_TELOTEC.Multiline = True
Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC"
Me.txtCBAMPruef_TELOTEC.ReadOnly = True
Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22)
Me.txtCBAMPruef_TELOTEC.TabIndex = 13
Me.txtCBAMPruef_TELOTEC.Text = "-"
Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtBis
'
Me.txtBis._DateTimeOnly = False
Me.txtBis._numbersOnly = False
Me.txtBis._numbersOnlyKommastellen = ""
Me.txtBis._numbersOnlyTrennzeichen = True
Me.txtBis._Prozent = False
Me.txtBis._ShortDateNew = False
Me.txtBis._ShortDateOnly = False
Me.txtBis._TimeOnly = False
Me.txtBis._TimeOnly_Seconds = False
Me.txtBis._value = ""
Me.txtBis._Waehrung = False
Me.txtBis._WaehrungZeichen = True
Me.txtBis.ForeColor = System.Drawing.Color.Black
Me.txtBis.Location = New System.Drawing.Point(860, 49)
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
Me.txtBis.MaxLines_Warning_Label = Nothing
Me.txtBis.Name = "txtBis"
Me.txtBis.Size = New System.Drawing.Size(110, 20)
Me.txtBis.TabIndex = 14
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(744, 49)
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(110, 20)
Me.txtVon.TabIndex = 15
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(694, 52)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(44, 13)
Me.Label4.TabIndex = 17
Me.Label4.Text = "von-bis:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(453, 51)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(51, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Zeitraum:"
'
'cboQuartal
'
Me.cboQuartal._allowedValuesFreiText = Nothing
Me.cboQuartal._allowFreiText = False
Me.cboQuartal._value = ""
Me.cboQuartal.FormattingEnabled = True
Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"})
Me.cboQuartal.Location = New System.Drawing.Point(511, 48)
Me.cboQuartal.Name = "cboQuartal"
Me.cboQuartal.Size = New System.Drawing.Size(45, 21)
Me.cboQuartal.TabIndex = 19
'
'txtJahr
'
Me.txtJahr._DateTimeOnly = False
Me.txtJahr._numbersOnly = False
Me.txtJahr._numbersOnlyKommastellen = ""
Me.txtJahr._numbersOnlyTrennzeichen = True
Me.txtJahr._Prozent = False
Me.txtJahr._ShortDateNew = False
Me.txtJahr._ShortDateOnly = False
Me.txtJahr._TimeOnly = False
Me.txtJahr._TimeOnly_Seconds = False
Me.txtJahr._value = ""
Me.txtJahr._Waehrung = False
Me.txtJahr._WaehrungZeichen = True
Me.txtJahr.ForeColor = System.Drawing.Color.Black
Me.txtJahr.Location = New System.Drawing.Point(562, 49)
Me.txtJahr.MaxLineLength = -1
Me.txtJahr.MaxLines_Warning = ""
Me.txtJahr.MaxLines_Warning_Label = Nothing
Me.txtJahr.Name = "txtJahr"
Me.txtJahr.Size = New System.Drawing.Size(60, 20)
Me.txtJahr.TabIndex = 20
'
'btnCBAM_DS_DHF_UNISPED
'
Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 168)
Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED"
Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24
Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)"
Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC
'
Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 168)
Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC"
Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_TELOTEC.TabIndex = 23
Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG
'
Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 168)
Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG"
Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22
Me.btnCBAM_DS_DHF_VERAG.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)"
Me.btnCBAM_DS_DHF_VERAG.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DAKOSY
'
Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 168)
Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY"
Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DAKOSY.TabIndex = 21
Me.btnCBAM_DS_DAKOSY.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)"
Me.btnCBAM_DS_DAKOSY.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(5, 183)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(64, 13)
Me.Label3.TabIndex = 25
Me.Label3.Text = "Datensätze:"
'
'btnCBAM_DS_DAKOSY_Deteil
'
Me.btnCBAM_DS_DAKOSY_Deteil.Enabled = False
Me.btnCBAM_DS_DAKOSY_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DAKOSY_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Deteil.Location = New System.Drawing.Point(144, 216)
Me.btnCBAM_DS_DAKOSY_Deteil.Name = "btnCBAM_DS_DAKOSY_Deteil"
Me.btnCBAM_DS_DAKOSY_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Deteil.TabIndex = 26
Me.btnCBAM_DS_DAKOSY_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DAKOSY_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DAKOSY_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DAKOSY_Summe
'
Me.btnCBAM_DS_DAKOSY_Summe.Enabled = False
Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 264)
Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe"
Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27
Me.btnCBAM_DS_DAKOSY_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DAKOSY_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DAKOSY_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Summe
'
Me.btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 264)
Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe"
Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29
Me.btnCBAM_DS_DHF_VERAG_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DHF_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_VERAG_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Deteil
'
Me.btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_VERAG_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Deteil.Location = New System.Drawing.Point(318, 216)
Me.btnCBAM_DS_DHF_VERAG_Deteil.Name = "btnCBAM_DS_DHF_VERAG_Deteil"
Me.btnCBAM_DS_DHF_VERAG_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Deteil.TabIndex = 28
Me.btnCBAM_DS_DHF_VERAG_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DHF_VERAG_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_VERAG_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Summe
'
Me.btnCBAM_DS_DHF_UNISPED_Summe.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 264)
Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe"
Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31
Me.btnCBAM_DS_DHF_UNISPED_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_DHF_UNISPED_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_UNISPED_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Deteil
'
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_DHF_UNISPED_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Location = New System.Drawing.Point(492, 216)
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Name = "btnCBAM_DS_DHF_UNISPED_Deteil"
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Deteil.TabIndex = 30
Me.btnCBAM_DS_DHF_UNISPED_Deteil.Text = "Detailbericht"
Me.btnCBAM_DS_DHF_UNISPED_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_DHF_UNISPED_Deteil.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Summe
'
Me.btnCBAM_DS_TELOTEC_Summe.Enabled = False
Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 264)
Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe"
Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33
Me.btnCBAM_DS_TELOTEC_Summe.Text = "Summenbereicht"
Me.btnCBAM_DS_TELOTEC_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_TELOTEC_Summe.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Detail
'
Me.btnCBAM_DS_TELOTEC_Detail.Enabled = False
Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 216)
Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail"
Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32
Me.btnCBAM_DS_TELOTEC_Detail.Text = "Detailbericht"
Me.btnCBAM_DS_TELOTEC_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCBAM_DS_TELOTEC_Detail.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(5, 74)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(41, 13)
Me.Label6.TabIndex = 34
Me.Label6.Text = "Prüfen:"
'
'btnCBAM_DS_DAKOSY_Copy
'
Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False
Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 312)
Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy"
Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35
Me.btnCBAM_DS_DAKOSY_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DAKOSY_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_VERAG_Copy
'
Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 312)
Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy"
Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36
Me.btnCBAM_DS_DHF_VERAG_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DHF_VERAG_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DHF_UNISPED_Copy
'
Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False
Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 312)
Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy"
Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37
Me.btnCBAM_DS_DHF_UNISPED_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DHF_UNISPED_Copy.UseVisualStyleBackColor = True
'
'btnCBAM_DS_TELOTEC_Copy
'
Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False
Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 312)
Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy"
Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38
Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True
'
'usrCntlCBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Copy)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Summe)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Detail)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Deteil)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Deteil)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Summe)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Deteil)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY)
Me.Controls.Add(Me.txtJahr)
Me.Controls.Add(Me.cboQuartal)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtVon)
Me.Controls.Add(Me.txtBis)
Me.Controls.Add(Me.txtCBAMPruef_TELOTEC)
Me.Controls.Add(Me.txtCBAMPruef_DHF_UNISPED)
Me.Controls.Add(Me.txtCBAMPruef_DHF_VERAG)
Me.Controls.Add(Me.txtCBAMPruef_DAKOSY)
Me.Controls.Add(Me.btnCBAMPruef_ALLE)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnCBAMPruef_DHF_UNISPED)
Me.Controls.Add(Me.btnCBAMPruef_TELOTEC)
Me.Controls.Add(Me.btnCBAMPruef_DHF_VERAG)
Me.Controls.Add(Me.btnCBAMPruef_DAKOSY)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtEori)
Me.Controls.Add(Me.lblOffert)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "usrCntlCBAM"
Me.Size = New System.Drawing.Size(1041, 576)
Me.cntxtAddSdl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblOffert As System.Windows.Forms.TextBox
Friend WithEvents cntxtAddSdl As ContextMenuStrip
Friend WithEvents DToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents btnCBAMPruef_DAKOSY As Button
Friend WithEvents btnCBAMPruef_DHF_VERAG As Button
Friend WithEvents btnCBAMPruef_TELOTEC As Button
Friend WithEvents btnCBAMPruef_DHF_UNISPED As Button
Friend WithEvents Label2 As Label
Friend WithEvents btnCBAMPruef_ALLE As Button
Friend WithEvents txtCBAMPruef_DAKOSY As TextBox
Friend WithEvents txtCBAMPruef_DHF_VERAG As TextBox
Friend WithEvents txtCBAMPruef_DHF_UNISPED As TextBox
Friend WithEvents txtCBAMPruef_TELOTEC As TextBox
Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnCBAM_DS_DHF_UNISPED As Button
Friend WithEvents btnCBAM_DS_TELOTEC As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG As Button
Friend WithEvents btnCBAM_DS_DAKOSY As Button
Friend WithEvents Label3 As Label
Friend WithEvents btnCBAM_DS_DAKOSY_Deteil As Button
Friend WithEvents btnCBAM_DS_DAKOSY_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Deteil As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Summe As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Deteil As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Summe As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Detail As Button
Friend WithEvents Label6 As Label
Friend WithEvents btnCBAM_DS_DAKOSY_Copy As Button
Friend WithEvents btnCBAM_DS_DHF_VERAG_Copy As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Copy As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Copy As Button
End Class

123
SDL/kunden/usrCntlCBAM.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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>
<metadata name="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

570
SDL/kunden/usrCntlCBAM.vb Normal file
View File

@@ -0,0 +1,570 @@

Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Public Class usrCntlCBAM
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdnr = -1
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Sub New()
InitializeComponent()
End Sub
Sub New(kdNr)
InitializeComponent()
Me.kdnr = kdNr
End Sub
Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click
txtCBAMPruef_DAKOSY.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DAKOSY.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click
btnCBAMPruef_DAKOSY.PerformClick()
btnCBAMPruef_DHF_VERAG.PerformClick()
btnCBAMPruef_DHF_UNISPED.PerformClick()
btnCBAMPruef_TELOTEC.PerformClick()
End Sub
Private Sub btnCBAMPruef_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_VERAG.Click
txtCBAMPruef_DHF_VERAG.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DHF_VERAG.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DHF_VERAG.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_DHF_UNISPED_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_UNISPED.Click
txtCBAMPruef_DHF_UNISPED.Text = "-"
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DHF_UNISPED.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_DHF_UNISPED.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAMPruef_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_TELOTEC.Click
txtCBAMPruef_TELOTEC.Text = "nicht verfügbar"
Exit Sub
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_TELOTEC.Text = dt.Rows(0)(0) & " Einträge"
Me.Cursor = Cursors.Default
Exit Sub
End If
txtCBAMPruef_TELOTEC.Text = "0"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
txtJahr.Text = Now.Year
If Now.Month < 3 Then
txtJahr.Text = Now.Year - 1
cboQuartal.Text = "Q4"
ElseIf Now.Month < 6 Then : cboQuartal.Text = "Q1"
ElseIf Now.Month < 9 Then : cboQuartal.Text = "Q2"
ElseIf Now.Month < 12 Then : cboQuartal.Text = "Q3"
End If
If kdnr > 0 Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
End If
If KD IsNot Nothing Then
txtEori.Text = KD.EORITIN
End If
End Sub
Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged
If cboQuartal.Text <> "" And IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then
Select Case cboQuartal.Text
Case "Q1" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
End Select
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
btnCBAM_DS_DAKOSY_Copy.Enabled = False
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT
[eza_ANR] RegistriernummerATLAS
,ezaWP_PositionsNummer PositionsNummer
,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum
,[eza_ObjectName] BezugsNr
,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis
,ezaWP_WarennummerEZT Tarifnummer
,ezaWP_Eigenmasse Eigenmasse
,[eza_VersendungsLandCode] VersendungsLand
,[eza_Bestimmungsland] Bestimmungsland
,[ezaWP_Artikelpreis]Rechnungspreis
,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DAKOSY_Deteil.Tag = path
btnCBAM_DS_DAKOSY_Deteil.Enabled = True
btnCBAM_DS_DAKOSY_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DAKOSY_Summe.Enabled = False
btnCBAM_DS_DAKOSY_Summe.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
SELECT
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
OR ezaWP_WarennummerEZT like '25070080%'
OR ezaWP_WarennummerEZT like '283421%'
OR ezaWP_WarennummerEZT like '260112%'
OR ezaWP_WarennummerEZT like '720211%'
OR ezaWP_WarennummerEZT like '720219%'
OR ezaWP_WarennummerEZT like '720241%'
OR ezaWP_WarennummerEZT like '720249%'
OR ezaWP_WarennummerEZT like '720260%'
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DAKOSY_Summe.Tag = path
btnCBAM_DS_DAKOSY_Summe.Enabled = True
btnCBAM_DS_DAKOSY_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click,
btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click
If sender.tag <> "" Then
Try : Process.Start(sender.tag) : Catch : End Try
End If
End Sub
Private Sub btnCBAM_DS_DAKOSY_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag)
If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DHF_VERAG_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Deteil.Tag)
If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_UNISPED_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_UNISPED_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_DHF_UNISPED_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Deteil.Tag)
If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_TELOTEC_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC_Copy.Click
Dim f As New List(Of String)
If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
btnCBAM_DS_DHF_VERAG_Deteil.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
, Orig Ursprungsland
, isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender
, isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
, isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
, isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
order by (SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID ))
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Deteil.Tag = path
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
Try
Dim EORI = txtEori.Text
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
select left(zsAnmGdsitem.ComCd,8) Tarifnummer, sum(Net)Eigenmasse, sum(ItVal)Rechnungspreis,Orig
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(ComCd,4) between 7301 and 7311
OR left(ComCd,4) between 7205 and 7229
OR left(ComCd,4) between 7603 and 7614
OR ComCd like '25070080%'
OR ComCd like '283421%'
OR ComCd like '260112%'
OR ComCd like '720211%'
OR ComCd like '720219%'
OR ComCd like '720241%'
OR ComCd like '720249%'
OR ComCd like '720260%'
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
GROUP BY Orig,left(zsAnmGdsitem.ComCd,8)
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Summe.Tag = path
btnCBAM_DS_DHF_VERAG_Summe.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class