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

BRG Auswertung DURMAZ - TELOTEC

Browse Source 
BRG Auswertung UNISPED
This commit is contained in:
Andreas Luxbauer
2024-08-20 09:00:22 +02:00
parent 7bc2bbe25a
commit 13b3671d4f
12 changed files with 488 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

498
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlZOLLAuswertungen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlZOLLAuswertungen
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Label3 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
@@ -42,7 +42,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.btnNCTS = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.grpDurmaz = New System.Windows.Forms.GroupBox()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.picDurmaz = New System.Windows.Forms.PictureBox()
@@ -64,6 +64,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label19 = New System.Windows.Forms.Label()
Me.cboEZOLLMandant = New System.Windows.Forms.ComboBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLLStatus = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.datEZOLLBis = New System.Windows.Forms.DateTimePicker()
@@ -88,10 +89,11 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label27 = New System.Windows.Forms.Label()
Me.datVonATILLA = New System.Windows.Forms.DateTimePicker()
Me.Label28 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label30 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label95 = New System.Windows.Forms.Label()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox()
Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
Me.Button8 = New System.Windows.Forms.Button()
@@ -112,6 +114,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label98 = New System.Windows.Forms.Label()
Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Label88 = New System.Windows.Forms.Label()
@@ -129,7 +132,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.datAuswertVon_NCTSTR_AWOR = New System.Windows.Forms.DateTimePicker()
Me.Label93 = New System.Windows.Forms.Label()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
Me.grpUNISPED = New System.Windows.Forms.GroupBox()
Me.Button23 = New System.Windows.Forms.Button()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.txtJahr_NCTSTR_UNISPED = New System.Windows.Forms.NumericUpDown()
@@ -142,8 +145,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.datAuswertVon_NCTSTR_UNISPED = New System.Windows.Forms.DateTimePicker()
Me.Label87 = New System.Windows.Forms.Label()
Me.Label76 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.grpVERIMEX = New System.Windows.Forms.GroupBox()
Me.Label94 = New System.Windows.Forms.Label()
Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button22 = New System.Windows.Forms.Button()
Me.Button19 = New System.Windows.Forms.Button()
Me.Button18 = New System.Windows.Forms.Button()
@@ -186,6 +190,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label56 = New System.Windows.Forms.Label()
Me.Button12 = New System.Windows.Forms.Button()
Me.Label53 = New System.Windows.Forms.Label()
Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label55 = New System.Windows.Forms.Label()
Me.datEZOLL_TC_Bis = New System.Windows.Forms.DateTimePicker()
Me.Label57 = New System.Windows.Forms.Label()
@@ -193,7 +198,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.datEZOLL_TC_Von = New System.Windows.Forms.DateTimePicker()
Me.Label59 = New System.Windows.Forms.Label()
Me.Label46 = New System.Windows.Forms.Label()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.grpAMBAR = New System.Windows.Forms.GroupBox()
Me.Button11 = New System.Windows.Forms.Button()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.txtJahrAmbar = New System.Windows.Forms.NumericUpDown()
@@ -207,7 +212,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label51 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Label44 = New System.Windows.Forms.Label()
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.grpIMEX = New System.Windows.Forms.GroupBox()
Me.Button21 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
@@ -246,12 +251,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14 = New System.Windows.Forms.Button()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button24 = New System.Windows.Forms.Button()
Me.Label36 = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
@@ -260,7 +262,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.grpDurmaz.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
@@ -276,10 +278,10 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR_AWOR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox12.SuspendLayout()
Me.grpUNISPED.SuspendLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR_UNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox11.SuspendLayout()
Me.grpVERIMEX.SuspendLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -287,10 +289,10 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.grpAMBAR.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrAmbar, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox6.SuspendLayout()
Me.grpIMEX.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -512,32 +514,33 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label8.TabIndex = 12
Me.Label8.Text = "Auswertung LKW - DURMAZ" & Global.Microsoft.VisualBasic.ChrW(10)
'
'GroupBox2
'grpDurmaz
'
Me.GroupBox2.Controls.Add(Me.Button15)
Me.GroupBox2.Controls.Add(Me.Button6)
Me.GroupBox2.Controls.Add(Me.picDurmaz)
Me.GroupBox2.Controls.Add(Me.txtJahrDurmaz)
Me.GroupBox2.Controls.Add(Me.cboMonatDurmaz)
Me.GroupBox2.Controls.Add(Me.Label9)
Me.GroupBox2.Controls.Add(Me.datBisDurmaz)
Me.GroupBox2.Controls.Add(Me.Label10)
Me.GroupBox2.Controls.Add(Me.Label12)
Me.GroupBox2.Controls.Add(Me.Label13)
Me.GroupBox2.Controls.Add(Me.datVonDurmaz)
Me.GroupBox2.Controls.Add(Me.Label14)
Me.GroupBox2.Controls.Add(Me.btnNCTSDurmaz)
Me.GroupBox2.Location = New System.Drawing.Point(7, 733)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(705, 145)
Me.GroupBox2.TabIndex = 11
Me.GroupBox2.TabStop = False
Me.grpDurmaz.Controls.Add(Me.Button24)
Me.grpDurmaz.Controls.Add(Me.Button15)
Me.grpDurmaz.Controls.Add(Me.Button6)
Me.grpDurmaz.Controls.Add(Me.picDurmaz)
Me.grpDurmaz.Controls.Add(Me.txtJahrDurmaz)
Me.grpDurmaz.Controls.Add(Me.cboMonatDurmaz)
Me.grpDurmaz.Controls.Add(Me.Label9)
Me.grpDurmaz.Controls.Add(Me.datBisDurmaz)
Me.grpDurmaz.Controls.Add(Me.Label10)
Me.grpDurmaz.Controls.Add(Me.Label12)
Me.grpDurmaz.Controls.Add(Me.Label13)
Me.grpDurmaz.Controls.Add(Me.datVonDurmaz)
Me.grpDurmaz.Controls.Add(Me.Label14)
Me.grpDurmaz.Controls.Add(Me.btnNCTSDurmaz)
Me.grpDurmaz.Location = New System.Drawing.Point(7, 733)
Me.grpDurmaz.Name = "grpDurmaz"
Me.grpDurmaz.Size = New System.Drawing.Size(705, 145)
Me.grpDurmaz.TabIndex = 11
Me.grpDurmaz.TabStop = False
'
'Button15
'
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.Location = New System.Drawing.Point(6, 57)
Me.Button15.Location = New System.Drawing.Point(6, 16)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(121, 37)
Me.Button15.TabIndex = 14
@@ -548,7 +551,7 @@ Partial Class usrCntlZOLLAuswertungen
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button6.Location = New System.Drawing.Point(6, 95)
Me.Button6.Location = New System.Drawing.Point(6, 54)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(121, 37)
Me.Button6.TabIndex = 13
@@ -650,14 +653,16 @@ Partial Class usrCntlZOLLAuswertungen
'
'btnNCTSDurmaz
'
Me.btnNCTSDurmaz.Enabled = False
Me.btnNCTSDurmaz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNCTSDurmaz.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnNCTSDurmaz.Location = New System.Drawing.Point(6, 19)
Me.btnNCTSDurmaz.Location = New System.Drawing.Point(133, 93)
Me.btnNCTSDurmaz.Name = "btnNCTSDurmaz"
Me.btnNCTSDurmaz.Size = New System.Drawing.Size(121, 37)
Me.btnNCTSDurmaz.TabIndex = 4
Me.btnNCTSDurmaz.Text = "Auswertung starten"
Me.btnNCTSDurmaz.UseVisualStyleBackColor = True
Me.btnNCTSDurmaz.Visible = False
'
'Label16
'
@@ -760,6 +765,20 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label29.TabIndex = 19
Me.Label29.Text = "Mandant:"
'
'cboEZOLLBrg
'
Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
Me.cboEZOLLBrg._allowFreiText = False
Me.cboEZOLLBrg._value = ""
Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboEZOLLBrg.DropDownWidth = 350
Me.cboEZOLLBrg.FormattingEnabled = True
Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
Me.cboEZOLLBrg.TabIndex = 12
'
'cboEZOLLStatus
'
Me.cboEZOLLStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -856,6 +875,8 @@ Partial Class usrCntlZOLLAuswertungen
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label36)
Me.GroupBox4.Controls.Add(Me.MyComboBox1)
Me.GroupBox4.Controls.Add(Me.Button20)
Me.GroupBox4.Controls.Add(Me.Button7)
Me.GroupBox4.Controls.Add(Me.Button3)
@@ -869,7 +890,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox4.Controls.Add(Me.Label27)
Me.GroupBox4.Controls.Add(Me.datVonATILLA)
Me.GroupBox4.Controls.Add(Me.Label28)
Me.GroupBox4.Controls.Add(Me.Button2)
Me.GroupBox4.Location = New System.Drawing.Point(9, 893)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(705, 179)
@@ -880,7 +900,7 @@ Partial Class usrCntlZOLLAuswertungen
'
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button20.Location = New System.Drawing.Point(6, 136)
Me.Button20.Location = New System.Drawing.Point(6, 95)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(121, 37)
Me.Button20.TabIndex = 15
@@ -891,7 +911,7 @@ Partial Class usrCntlZOLLAuswertungen
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button7.Location = New System.Drawing.Point(6, 96)
Me.Button7.Location = New System.Drawing.Point(6, 55)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(121, 37)
Me.Button7.TabIndex = 14
@@ -902,7 +922,7 @@ Partial Class usrCntlZOLLAuswertungen
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.Location = New System.Drawing.Point(6, 57)
Me.Button3.Location = New System.Drawing.Point(6, 16)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(121, 37)
Me.Button3.TabIndex = 13
@@ -1001,17 +1021,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label28.TabIndex = 5
Me.Label28.Text = "Liefert eine Liste der im definierten Zeitraum verarbeiteten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Versandscheine (nac" &
"h LKWs gruppiert)."
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button2.Location = New System.Drawing.Point(6, 19)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(121, 37)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ATLAS)"
Me.Button2.UseVisualStyleBackColor = True
'
'Label30
'
@@ -1050,6 +1059,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.TabIndex = 19
Me.GroupBox5.TabStop = False
'
'cboDYDatumArt
'
Me.cboDYDatumArt._allowedValuesFreiText = Nothing
Me.cboDYDatumArt._allowFreiText = False
Me.cboDYDatumArt._value = ""
Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDYDatumArt.DropDownWidth = 350
Me.cboDYDatumArt.FormattingEnabled = True
Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
Me.cboDYDatumArt.Name = "cboDYDatumArt"
Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
Me.cboDYDatumArt.TabIndex = 39
'
'Label95
'
Me.Label95.AutoSize = True
@@ -1059,6 +1081,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label95.TabIndex = 23
Me.Label95.Text = "NCTS-SYSTEM:"
'
'cboDY_NCTS
'
Me.cboDY_NCTS._allowedValuesFreiText = Nothing
Me.cboDY_NCTS._allowFreiText = False
Me.cboDY_NCTS._value = ""
Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDY_NCTS.DropDownWidth = 350
Me.cboDY_NCTS.FormattingEnabled = True
Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
Me.cboDY_NCTS.Name = "cboDY_NCTS"
Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
Me.cboDY_NCTS.TabIndex = 22
'
'cbxSplittungNachPos
'
Me.cbxSplittungNachPos.AutoSize = True
@@ -1234,7 +1269,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(701, 1829)
Me.tbcntr.Size = New System.Drawing.Size(1347, 1829)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1247,9 +1282,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Controls.Add(Me.Label82)
Me.TabPage1.Controls.Add(Me.GroupBox13)
Me.TabPage1.Controls.Add(Me.PictureBox11)
Me.TabPage1.Controls.Add(Me.GroupBox12)
Me.TabPage1.Controls.Add(Me.grpUNISPED)
Me.TabPage1.Controls.Add(Me.Label76)
Me.TabPage1.Controls.Add(Me.GroupBox11)
Me.TabPage1.Controls.Add(Me.grpVERIMEX)
Me.TabPage1.Controls.Add(Me.Label68)
Me.TabPage1.Controls.Add(Me.PictureBox9)
Me.TabPage1.Controls.Add(Me.GroupBox10)
@@ -1258,10 +1293,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Controls.Add(Me.PictureBox6)
Me.TabPage1.Controls.Add(Me.GroupBox8)
Me.TabPage1.Controls.Add(Me.Label46)
Me.TabPage1.Controls.Add(Me.GroupBox7)
Me.TabPage1.Controls.Add(Me.grpAMBAR)
Me.TabPage1.Controls.Add(Me.Label45)
Me.TabPage1.Controls.Add(Me.Label44)
Me.TabPage1.Controls.Add(Me.GroupBox6)
Me.TabPage1.Controls.Add(Me.grpIMEX)
Me.TabPage1.Controls.Add(Me.Label30)
Me.TabPage1.Controls.Add(Me.PictureBox3)
Me.TabPage1.Controls.Add(Me.Label16)
@@ -1269,7 +1304,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Controls.Add(Me.ComboBox4)
Me.TabPage1.Controls.Add(Me.Label8)
Me.TabPage1.Controls.Add(Me.Label35)
Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Controls.Add(Me.grpDurmaz)
Me.TabPage1.Controls.Add(Me.GroupBox5)
Me.TabPage1.Controls.Add(Me.GroupBox3)
Me.TabPage1.Controls.Add(Me.Label17)
@@ -1277,7 +1312,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(693, 1803)
Me.TabPage1.Size = New System.Drawing.Size(1339, 1803)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1291,6 +1326,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label98.TabIndex = 39
Me.Label98.Text = "NCTS-SYSTEM (DAKOSY):"
'
'cboNCTSSystemDY
'
Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
Me.cboNCTSSystemDY._allowFreiText = False
Me.cboNCTSSystemDY._value = ""
Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNCTSSystemDY.DropDownWidth = 350
Me.cboNCTSSystemDY.FormattingEnabled = True
Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
Me.cboNCTSSystemDY.TabIndex = 38
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Label3)
@@ -1466,24 +1514,24 @@ Partial Class usrCntlZOLLAuswertungen
Me.PictureBox11.TabIndex = 34
Me.PictureBox11.TabStop = False
'
'GroupBox12
'grpUNISPED
'
Me.GroupBox12.Controls.Add(Me.Button23)
Me.GroupBox12.Controls.Add(Me.PictureBox12)
Me.GroupBox12.Controls.Add(Me.txtJahr_NCTSTR_UNISPED)
Me.GroupBox12.Controls.Add(Me.cboMonat_NCTSTR_UNISPED)
Me.GroupBox12.Controls.Add(Me.Label83)
Me.GroupBox12.Controls.Add(Me.datAuswertBis_NCTSTR_UNISPED)
Me.GroupBox12.Controls.Add(Me.Label84)
Me.GroupBox12.Controls.Add(Me.Label85)
Me.GroupBox12.Controls.Add(Me.Label86)
Me.GroupBox12.Controls.Add(Me.datAuswertVon_NCTSTR_UNISPED)
Me.GroupBox12.Controls.Add(Me.Label87)
Me.GroupBox12.Location = New System.Drawing.Point(9, 1548)
Me.GroupBox12.Name = "GroupBox12"
Me.GroupBox12.Size = New System.Drawing.Size(705, 102)
Me.GroupBox12.TabIndex = 35
Me.GroupBox12.TabStop = False
Me.grpUNISPED.Controls.Add(Me.Button23)
Me.grpUNISPED.Controls.Add(Me.PictureBox12)
Me.grpUNISPED.Controls.Add(Me.txtJahr_NCTSTR_UNISPED)
Me.grpUNISPED.Controls.Add(Me.cboMonat_NCTSTR_UNISPED)
Me.grpUNISPED.Controls.Add(Me.Label83)
Me.grpUNISPED.Controls.Add(Me.datAuswertBis_NCTSTR_UNISPED)
Me.grpUNISPED.Controls.Add(Me.Label84)
Me.grpUNISPED.Controls.Add(Me.Label85)
Me.grpUNISPED.Controls.Add(Me.Label86)
Me.grpUNISPED.Controls.Add(Me.datAuswertVon_NCTSTR_UNISPED)
Me.grpUNISPED.Controls.Add(Me.Label87)
Me.grpUNISPED.Location = New System.Drawing.Point(9, 1548)
Me.grpUNISPED.Name = "grpUNISPED"
Me.grpUNISPED.Size = New System.Drawing.Size(705, 102)
Me.grpUNISPED.TabIndex = 35
Me.grpUNISPED.TabStop = False
'
'Button23
'
@@ -1599,28 +1647,28 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label76.TabIndex = 33
Me.Label76.Text = "Auswertung LKW - VERIMEX"
'
'GroupBox11
'grpVERIMEX
'
Me.GroupBox11.Controls.Add(Me.Label94)
Me.GroupBox11.Controls.Add(Me.cboBRG_Verimex)
Me.GroupBox11.Controls.Add(Me.Button22)
Me.GroupBox11.Controls.Add(Me.Button19)
Me.GroupBox11.Controls.Add(Me.Button18)
Me.GroupBox11.Controls.Add(Me.PictureBox10)
Me.GroupBox11.Controls.Add(Me.txtJahr_NCTSTR)
Me.GroupBox11.Controls.Add(Me.cboMonat_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label77)
Me.GroupBox11.Controls.Add(Me.datAuswertBis_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label78)
Me.GroupBox11.Controls.Add(Me.Label79)
Me.GroupBox11.Controls.Add(Me.Label80)
Me.GroupBox11.Controls.Add(Me.datAuswertVon_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label81)
Me.GroupBox11.Location = New System.Drawing.Point(9, 1355)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(705, 164)
Me.GroupBox11.TabIndex = 32
Me.GroupBox11.TabStop = False
Me.grpVERIMEX.Controls.Add(Me.Label94)
Me.grpVERIMEX.Controls.Add(Me.cboBRG_Verimex)
Me.grpVERIMEX.Controls.Add(Me.Button22)
Me.grpVERIMEX.Controls.Add(Me.Button19)
Me.grpVERIMEX.Controls.Add(Me.Button18)
Me.grpVERIMEX.Controls.Add(Me.PictureBox10)
Me.grpVERIMEX.Controls.Add(Me.txtJahr_NCTSTR)
Me.grpVERIMEX.Controls.Add(Me.cboMonat_NCTSTR)
Me.grpVERIMEX.Controls.Add(Me.Label77)
Me.grpVERIMEX.Controls.Add(Me.datAuswertBis_NCTSTR)
Me.grpVERIMEX.Controls.Add(Me.Label78)
Me.grpVERIMEX.Controls.Add(Me.Label79)
Me.grpVERIMEX.Controls.Add(Me.Label80)
Me.grpVERIMEX.Controls.Add(Me.datAuswertVon_NCTSTR)
Me.grpVERIMEX.Controls.Add(Me.Label81)
Me.grpVERIMEX.Location = New System.Drawing.Point(9, 1355)
Me.grpVERIMEX.Name = "grpVERIMEX"
Me.grpVERIMEX.Size = New System.Drawing.Size(705, 164)
Me.grpVERIMEX.TabIndex = 32
Me.grpVERIMEX.TabStop = False
'
'Label94
'
@@ -1631,6 +1679,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label94.TabIndex = 18
Me.Label94.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBRG_Verimex
'
Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
Me.cboBRG_Verimex._allowFreiText = False
Me.cboBRG_Verimex._value = ""
Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBRG_Verimex.DropDownWidth = 350
Me.cboBRG_Verimex.FormattingEnabled = True
Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
Me.cboBRG_Verimex.TabIndex = 17
'
'Button22
'
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2064,6 +2125,20 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label53.TabIndex = 13
Me.Label53.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBrgEZollTC
'
Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
Me.cboBrgEZollTC._allowFreiText = False
Me.cboBrgEZollTC._value = ""
Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgEZollTC.DropDownWidth = 350
Me.cboBrgEZollTC.FormattingEnabled = True
Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
Me.cboBrgEZollTC.TabIndex = 12
'
'Label55
'
Me.Label55.AutoSize = True
@@ -2128,24 +2203,24 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label46.TabIndex = 25
Me.Label46.Text = "Auswertung LKW - AMBAR"
'
'GroupBox7
'grpAMBAR
'
Me.GroupBox7.Controls.Add(Me.Button11)
Me.GroupBox7.Controls.Add(Me.PictureBox5)
Me.GroupBox7.Controls.Add(Me.txtJahrAmbar)
Me.GroupBox7.Controls.Add(Me.cboMonatAmbar)
Me.GroupBox7.Controls.Add(Me.Label47)
Me.GroupBox7.Controls.Add(Me.datBisAmbar)
Me.GroupBox7.Controls.Add(Me.Label48)
Me.GroupBox7.Controls.Add(Me.Label49)
Me.GroupBox7.Controls.Add(Me.Label50)
Me.GroupBox7.Controls.Add(Me.datVonAmbar)
Me.GroupBox7.Controls.Add(Me.Label51)
Me.GroupBox7.Location = New System.Drawing.Point(9, 1223)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(705, 102)
Me.GroupBox7.TabIndex = 24
Me.GroupBox7.TabStop = False
Me.grpAMBAR.Controls.Add(Me.Button11)
Me.grpAMBAR.Controls.Add(Me.PictureBox5)
Me.grpAMBAR.Controls.Add(Me.txtJahrAmbar)
Me.grpAMBAR.Controls.Add(Me.cboMonatAmbar)
Me.grpAMBAR.Controls.Add(Me.Label47)
Me.grpAMBAR.Controls.Add(Me.datBisAmbar)
Me.grpAMBAR.Controls.Add(Me.Label48)
Me.grpAMBAR.Controls.Add(Me.Label49)
Me.grpAMBAR.Controls.Add(Me.Label50)
Me.grpAMBAR.Controls.Add(Me.datVonAmbar)
Me.grpAMBAR.Controls.Add(Me.Label51)
Me.grpAMBAR.Location = New System.Drawing.Point(9, 1223)
Me.grpAMBAR.Name = "grpAMBAR"
Me.grpAMBAR.Size = New System.Drawing.Size(705, 102)
Me.grpAMBAR.TabIndex = 24
Me.grpAMBAR.TabStop = False
'
'Button11
'
@@ -2272,25 +2347,25 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label44.TabIndex = 22
Me.Label44.Text = "Auswertung LKW - IMEX"
'
'GroupBox6
'grpIMEX
'
Me.GroupBox6.Controls.Add(Me.Button21)
Me.GroupBox6.Controls.Add(Me.Button10)
Me.GroupBox6.Controls.Add(Me.PictureBox4)
Me.GroupBox6.Controls.Add(Me.txtJahrIMEX)
Me.GroupBox6.Controls.Add(Me.cboMonatIMEX)
Me.GroupBox6.Controls.Add(Me.Label39)
Me.GroupBox6.Controls.Add(Me.datBisImex)
Me.GroupBox6.Controls.Add(Me.Label40)
Me.GroupBox6.Controls.Add(Me.Label41)
Me.GroupBox6.Controls.Add(Me.Label42)
Me.GroupBox6.Controls.Add(Me.datVonImex)
Me.GroupBox6.Controls.Add(Me.Label43)
Me.GroupBox6.Location = New System.Drawing.Point(9, 1094)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(705, 102)
Me.GroupBox6.TabIndex = 18
Me.GroupBox6.TabStop = False
Me.grpIMEX.Controls.Add(Me.Button21)
Me.grpIMEX.Controls.Add(Me.Button10)
Me.grpIMEX.Controls.Add(Me.PictureBox4)
Me.grpIMEX.Controls.Add(Me.txtJahrIMEX)
Me.grpIMEX.Controls.Add(Me.cboMonatIMEX)
Me.grpIMEX.Controls.Add(Me.Label39)
Me.grpIMEX.Controls.Add(Me.datBisImex)
Me.grpIMEX.Controls.Add(Me.Label40)
Me.grpIMEX.Controls.Add(Me.Label41)
Me.grpIMEX.Controls.Add(Me.Label42)
Me.grpIMEX.Controls.Add(Me.datVonImex)
Me.grpIMEX.Controls.Add(Me.Label43)
Me.grpIMEX.Location = New System.Drawing.Point(9, 1094)
Me.grpIMEX.Name = "grpIMEX"
Me.grpIMEX.Size = New System.Drawing.Size(705, 102)
Me.grpIMEX.TabIndex = 18
Me.grpIMEX.TabStop = False
'
'Button21
'
@@ -2434,7 +2509,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(710, 1803)
Me.TabPage2.Size = New System.Drawing.Size(1356, 1803)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -2447,7 +2522,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(710, 1803)
Me.TabPage3.Size = New System.Drawing.Size(1356, 1803)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -2458,7 +2533,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(710, 1803)
Me.TabPage4.Size = New System.Drawing.Size(1356, 1803)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
@@ -2471,7 +2546,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(710, 1803)
Me.TabPage5.Size = New System.Drawing.Size(1356, 1803)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2679,88 +2754,41 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(701, 57)
Me.pnl.Size = New System.Drawing.Size(1347, 57)
Me.pnl.TabIndex = 23
'
'cboNCTSSystemDY
'Button24
'
Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing
Me.cboNCTSSystemDY._allowFreiText = False
Me.cboNCTSSystemDY._value = ""
Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboNCTSSystemDY.DropDownWidth = 350
Me.cboNCTSSystemDY.FormattingEnabled = True
Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706)
Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY"
Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21)
Me.cboNCTSSystemDY.TabIndex = 38
Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button24.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button24.Location = New System.Drawing.Point(6, 93)
Me.Button24.Name = "Button24"
Me.Button24.Size = New System.Drawing.Size(121, 37)
Me.Button24.TabIndex = 16
Me.Button24.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)"
Me.Button24.UseVisualStyleBackColor = True
'
'cboBRG_Verimex
'Label36
'
Me.cboBRG_Verimex._allowedValuesFreiText = Nothing
Me.cboBRG_Verimex._allowFreiText = False
Me.cboBRG_Verimex._value = ""
Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBRG_Verimex.DropDownWidth = 350
Me.cboBRG_Verimex.FormattingEnabled = True
Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
Me.cboBRG_Verimex.TabIndex = 17
Me.Label36.AutoSize = True
Me.Label36.Location = New System.Drawing.Point(183, 98)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(194, 13)
Me.Label36.TabIndex = 20
Me.Label36.Text = "Bürgschaft (keine Auswahl = Standard):"
'
'cboBrgEZollTC
'MyComboBox1
'
Me.cboBrgEZollTC._allowedValuesFreiText = Nothing
Me.cboBrgEZollTC._allowFreiText = False
Me.cboBrgEZollTC._value = ""
Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgEZollTC.DropDownWidth = 350
Me.cboBrgEZollTC.FormattingEnabled = True
Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68)
Me.cboBrgEZollTC.Name = "cboBrgEZollTC"
Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21)
Me.cboBrgEZollTC.TabIndex = 12
'
'cboDYDatumArt
'
Me.cboDYDatumArt._allowedValuesFreiText = Nothing
Me.cboDYDatumArt._allowFreiText = False
Me.cboDYDatumArt._value = ""
Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDYDatumArt.DropDownWidth = 350
Me.cboDYDatumArt.FormattingEnabled = True
Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9)
Me.cboDYDatumArt.Name = "cboDYDatumArt"
Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21)
Me.cboDYDatumArt.TabIndex = 39
'
'cboDY_NCTS
'
Me.cboDY_NCTS._allowedValuesFreiText = Nothing
Me.cboDY_NCTS._allowFreiText = False
Me.cboDY_NCTS._value = ""
Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDY_NCTS.DropDownWidth = 350
Me.cboDY_NCTS.FormattingEnabled = True
Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117)
Me.cboDY_NCTS.Name = "cboDY_NCTS"
Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21)
Me.cboDY_NCTS.TabIndex = 22
'
'cboEZOLLBrg
'
Me.cboEZOLLBrg._allowedValuesFreiText = Nothing
Me.cboEZOLLBrg._allowFreiText = False
Me.cboEZOLLBrg._value = ""
Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboEZOLLBrg.DropDownWidth = 350
Me.cboEZOLLBrg.FormattingEnabled = True
Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"})
Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69)
Me.cboEZOLLBrg.Name = "cboEZOLLBrg"
Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21)
Me.cboEZOLLBrg.TabIndex = 12
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox1.DropDownWidth = 350
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(186, 112)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(221, 21)
Me.MyComboBox1.TabIndex = 19
'
'UsrCntlAuswertungenUIDPruefung1
'
@@ -2777,7 +2805,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(29, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'UsrCntlAuswertungenEV_Veranlagungen1
@@ -2829,11 +2857,11 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(701, 1174)
Me.Size = New System.Drawing.Size(1347, 1174)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.grpDurmaz.ResumeLayout(False)
Me.grpDurmaz.PerformLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrDurmaz, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
@@ -2855,12 +2883,12 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahr_NCTSTR_AWOR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox12.ResumeLayout(False)
Me.GroupBox12.PerformLayout()
Me.grpUNISPED.ResumeLayout(False)
Me.grpUNISPED.PerformLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahr_NCTSTR_UNISPED, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
Me.grpVERIMEX.ResumeLayout(False)
Me.grpVERIMEX.PerformLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2870,12 +2898,12 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox7.PerformLayout()
Me.grpAMBAR.ResumeLayout(False)
Me.grpAMBAR.PerformLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrAmbar, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox6.PerformLayout()
Me.grpIMEX.ResumeLayout(False)
Me.grpIMEX.PerformLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2905,7 +2933,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents grpDurmaz As System.Windows.Forms.GroupBox
Friend WithEvents picDurmaz As System.Windows.Forms.PictureBox
Friend WithEvents txtJahrDurmaz As System.Windows.Forms.NumericUpDown
Friend WithEvents cboMonatDurmaz As System.Windows.Forms.ComboBox
@@ -2952,7 +2980,6 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents datVonATILLA As System.Windows.Forms.DateTimePicker
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents cboEZOLLMandant As System.Windows.Forms.ComboBox
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
@@ -2987,7 +3014,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents UsrCntlAuswertungenFiskalvertretung_42001 As SDL.usrCntlAuswertungenFiskalvertretung_4200
Friend WithEvents UsrCntlAuswertungenFiskal_IntrastatMeldung1 As SDL.usrCntlAuswertungenFiskal_IntrastatMeldung
Friend WithEvents Label44 As System.Windows.Forms.Label
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents grpIMEX As System.Windows.Forms.GroupBox
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents txtJahrIMEX As System.Windows.Forms.NumericUpDown
@@ -3006,7 +3033,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents UsrCntlAuswertungenUIDPruefung1 As usrCntlAuswertungenUIDPruefung
Friend WithEvents cbxWarenbezeichnung As CheckBox
Friend WithEvents Label46 As Label
Friend WithEvents GroupBox7 As GroupBox
Friend WithEvents grpAMBAR As GroupBox
Friend WithEvents Button11 As Button
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents txtJahrAmbar As NumericUpDown
@@ -3077,7 +3104,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label75 As Label
Friend WithEvents Button17 As Button
Friend WithEvents Label76 As Label
Friend WithEvents GroupBox11 As GroupBox
Friend WithEvents grpVERIMEX As GroupBox
Friend WithEvents Button18 As Button
Friend WithEvents PictureBox10 As PictureBox
Friend WithEvents txtJahr_NCTSTR As NumericUpDown
@@ -3109,7 +3136,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label92 As Label
Friend WithEvents datAuswertVon_NCTSTR_AWOR As DateTimePicker
Friend WithEvents Label93 As Label
Friend WithEvents GroupBox12 As GroupBox
Friend WithEvents grpUNISPED As GroupBox
Friend WithEvents Button23 As Button
Friend WithEvents PictureBox12 As PictureBox
Friend WithEvents txtJahr_NCTSTR_UNISPED As NumericUpDown
@@ -3130,4 +3157,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label98 As Label
Friend WithEvents cboNCTSSystemDY As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboDYDatumArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button24 As Button
Friend WithEvents Label36 As Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

172
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -134,6 +134,8 @@ Public Class usrCntlZOLLAuswertungen
cboDYDatumArt.SelectedIndex = 0
cboEZOLLBrg.Items.Clear()
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
@@ -174,9 +176,9 @@ Public Class usrCntlZOLLAuswertungen
Case "IMEX"
GroupBox1.Enabled = False
GroupBox3.Enabled = False
GroupBox2.Enabled = False
grpDurmaz.Enabled = False
GroupBox4.Enabled = False
GroupBox7.Enabled = False
grpAMBAR.Enabled = False
cboBrgDy.Items.Clear()
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
@@ -188,12 +190,33 @@ Public Class usrCntlZOLLAuswertungen
End If
Case "UNISPED"
tbcntr.TabPages.Remove(TabPage1)
'tbcntr.TabPages.Remove(TabPage1)
tbcntr.TabPages.Remove(TabPage2)
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUSWERTUNGEN_EV-FISKAL", "SDL") Then
tbcntr.TabPages.Remove(TabPage3)
End If
cboBrgDy.Items.Clear()
' cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
cboBrgDy.SelectedIndex = 0
cboBrg_NCTSTR.Items.Clear()
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
cboBrg_NCTSTR.SelectedIndex = 0
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
MyComboBox1.SelectedIndex = 0
grpIMEX.Enabled = False
grpDurmaz.Enabled = False
grpVERIMEX.Enabled = False
grpAMBAR.Enabled = False
GroupBox8.Enabled = False
GroupBox3.Enabled = False
' tbcntr.TabPages.Remove(TabPage4)
Case Else
@@ -204,6 +227,7 @@ Public Class usrCntlZOLLAuswertungen
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20AT520000G000092 - AT Brg ATILLA", "20AT520000G000092"))
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
cboBrgDy.SelectedIndex = 0
cboBrg_NCTSTR.Items.Clear()
@@ -212,10 +236,21 @@ Public Class usrCntlZOLLAuswertungen
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20AT520000G000092 - AT Brg ATILLA", "20AT520000G000092"))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
cboBrg_NCTSTR.SelectedIndex = 0
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUSWERTUNGEN_EV-FISKAL", "SDL") Then
tbcntr.TabPages.Remove(TabPage3)
End If
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05DE0000000009345 - DE Brg", "05DE0000000009345"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
MyComboBox1.SelectedIndex = 0
End Select
cboBrgEZollTC.Items.Clear()
@@ -224,8 +259,21 @@ Public Class usrCntlZOLLAuswertungen
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg VERAG", "05AT510000G000FP7"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20AT520000G000092 - AT Brg ATILLA", "20AT520000G000092"))
cboBrgEZollTC.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg (UNISPED)", "17DE0000000071270"))
cboBrgEZollTC.SelectedIndex = 0
'MyComboBox1.Items.Clear()
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
''BRG übernehmen:
'MyComboBox1.Items.AddRange(cboBrgDy.Items.Cast(Of String).ToArray())
cboBRG_Verimex.SelectedIndex = 0
datEZOLL_TC_Von.Value = Now ' d.AddMonths(-3)
datEZOLL_TC_Bis.Value = Now.AddDays(3)
@@ -285,6 +333,12 @@ Public Class usrCntlZOLLAuswertungen
Case CheckState.Indeterminate : BestimmungErreichttxt = " "
End Select
'GEHT HIER NICHTTTTTTT
Dim EZOLL_SRV = "EZOLL"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
EZOLL_SRV = "EZOLL_UNISPED"
End If
If operatorId <> "" Then
operatorId = " AND OperatorId = '" & operatorId & "' "
End If
@@ -337,7 +391,7 @@ Public Class usrCntlZOLLAuswertungen
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button2_Click(sender As Object, e As EventArgs)
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW(datVonATILLA.Text, datBisATILLA.Text, "ATILLA")
frmPrintLayout.Show()
@@ -347,7 +401,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
' MsgBox("Diese Auswertung ist noch nicht verfügbar!")
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWZOLARIS(datVonATILLA.Text, datBisATILLA.Text, "ATILLA")
frmPrintLayout.AuswertungKontrolleLKWZOLARIS(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", MyComboBox1._value)
frmPrintLayout.Show()
End Sub
@@ -357,15 +411,6 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button5_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button5.Click
Select Case cboDY_NCTS._value
Case "NCTS4" : doDY_NCTS4(exportPDF, exportEXCEL)
Case "NCTS5" : doDY_NCTS5(exportPDF, exportEXCEL)
End Select
End Sub
Sub doDY_NCTS4(Optional exportPDF As String = "", Optional exportEXCEL As String = "")
Dim sqlStr = ""
@@ -376,6 +421,7 @@ Public Class usrCntlZOLLAuswertungen
End If
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "")
@@ -393,16 +439,20 @@ Public Class usrCntlZOLLAuswertungen
Sub doDY_NCTS5(Optional exportPDF As String = "", Optional exportEXCEL As String = "")
Dim sqlStr = ""
If cbxSplittungNachPos.Checked Then
sqlStr = getSQL_NCTS004_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
Else
sqlStr = getSQL_NCTS004_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
End If
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "")
If exportPDF = "" And exportEXCEL = "" Then
frmPrintLayout.Show()
Else
@@ -462,7 +512,7 @@ Public Class usrCntlZOLLAuswertungen
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",(SELECT COUNT(*) FROM tblDakosy_NCTSOut_Warenposition where nctsWP_NctsId=ncts_Id) as POS"
If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef"
sqlStr &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
sqlStr &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
@@ -501,7 +551,7 @@ Public Class usrCntlZOLLAuswertungen
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr, "
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,isnull(ncts_LimitDate,'') as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], isnull(nctsGRT_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,isnull(ncts_LimitDate,'') as Gestellungsdatum,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [Sichertheits-Betrag], isnull(nctsGRT_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",( SELECT COUNT(*) FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem where ncts_Id = [nctsHCCI_NctsId]) as POS"
If anrechnungsZP Then sqlStr &= ",isnull(ncts_Ankunft,ncts_Erledigung) as AnrechnungRef"
@@ -575,7 +625,7 @@ Public Class usrCntlZOLLAuswertungen
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [Sichertheits-Betrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef"
@@ -618,7 +668,7 @@ Public Class usrCntlZOLLAuswertungen
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsGRT_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,ncts_LimitDate as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], isnull(nctsGRT_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,ncts_LimitDate as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [Sichertheits-Betrag], isnull(nctsGRT_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],ncts_GrossMass [ncts_GesamtRohmasse],'0' [ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",[nctsHCCI_DeclarationGoodsItemNumber] as POS, nctsHCCI_DescriptionOfGoods as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ",isnull(ncts_Ankunft,ncts_Erledigung) as AnrechnungRef"
@@ -654,7 +704,7 @@ Public Class usrCntlZOLLAuswertungen
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Eroeffnung as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Eroeffnung as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [Sichertheits-Betrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ", ncts_Ankunft as AnrechnungRef"
@@ -671,13 +721,13 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", cboNCTSSystemDY._value)
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", cboNCTSSystemDY._value, "")
frmPrintLayout.Show()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", cboNCTSSystemDY._value)
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", cboNCTSSystemDY._value, MyComboBox1._value)
frmPrintLayout.Show()
End Sub
@@ -727,6 +777,9 @@ Public Class usrCntlZOLLAuswertungen
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
End If
End Sub
Function clearDTPosSiBetrag(dt2 As DataTable) As DataTable
@@ -749,10 +802,10 @@ Public Class usrCntlZOLLAuswertungen
'Next
Dim mrn = ""
Dim cnt = 1
dt.Columns("SichertheitsBetrag").ReadOnly = False
dt.Columns("Sichertheits-Betrag").ReadOnly = False
For Each r As DataRow In dt.Rows
If mrn = r("MRN") Then
r("SichertheitsBetrag") = "0"
r("Sichertheits-Betrag") = "0"
cnt += 1
Else
cnt = 1
@@ -789,7 +842,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX", cboNCTSSystemDY._value)
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX", cboNCTSSystemDY._value, "")
frmPrintLayout.Show()
End Sub
@@ -799,7 +852,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR", cboNCTSSystemDY._value)
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR", cboNCTSSystemDY._value, "")
frmPrintLayout.Show()
End Sub
@@ -873,7 +926,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
' MsgBox("Diese Auswertung ist noch nicht verfügbar!")
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWZOLARIS(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ")
frmPrintLayout.AuswertungKontrolleLKWZOLARIS(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", "")
frmPrintLayout.Show()
End Sub
@@ -906,13 +959,13 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonATILLA.Text, datBisATILLA.Text, "ATILLA")
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", MyComboBox1._value)
frmPrintLayout.Show()
End Sub
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonATILLA.Text, datBisATILLA.Text, "IMEX")
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonATILLA.Text, datBisATILLA.Text, "IMEX", "")
frmPrintLayout.Show()
End Sub
@@ -949,5 +1002,66 @@ Public Class usrCntlZOLLAuswertungen
frmPrintLayout.Show()
End Sub
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", "")
frmPrintLayout.Show()
End Sub
'Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
' doDY_NCTS5(True, False, "UNISPED")
'End Sub
'Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
' doDY_NCTS5(True, False, "")
'End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Select Case cboDY_NCTS._value
Case "NCTS4" : doDY_NCTS4()
Case "NCTS5" : doDY_NCTS5()
End Select
End Sub
'Private Sub Button5_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button5.Click
' Dim sqlStr = ""
' If cbxSplittungNachPos.Checked Then
' sqlStr = getSQL_NCTS_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
' Else
' sqlStr = getSQL_NCTS_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
' End If
' Dim frmPrintLayout As New frmPrintLayout()
' frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "")
' If exportPDF = "" And exportEXCEL = "" Then
' frmPrintLayout.Show()
' Else
' AddHandler frmPrintLayout.Viewer.LoadCompleted, Sub()
' If exportPDF <> "" Then ExportToPDF(frmPrintLayout.Viewer.Document, exportPDF)
' If exportEXCEL <> "" Then ExportToExcel(frmPrintLayout.Viewer.Document, exportEXCEL)
' End Sub
' End If
'End Sub
'Private Sub Button5_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button5.Click
' Select Case cboDY_NCTS._value
' Case "NCTS4" : doDY_NCTS4(exportPDF, exportEXCEL)
' Case "NCTS5" : doDY_NCTS5(exportPDF, exportEXCEL)
' End Select
'End Sub
'Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
' Select Case cboDY_NCTS._value
' ' Case "NCTS4" : doDY_NCTS4_XLS()
' Case "NCTS5" : doDY_NCTS5_XLS("UNISPED")
' End Select
'End Sub
End Class