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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb
View File

@@ -21,15 +21,15 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\Intrastat\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\Intrastat\KA221.ASC", FileMode.Create)
If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\KA221.ASC", FileMode.Create)
Dim sw As New StreamWriter(fs)
' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
' XML-Datei anlegen.
' fso = New FileSystemObject
' strPath = fso.BuildPath("F:\FMZoll\ZM", "ZM_Formular_online.xml")
' strPath = fso.BuildPath("\\FMZoll.verag.ost.dmn\FMZoll\ZM", "ZM_Formular_online.xml")
' txt = fso.CreateTextFile(strPath, True, False)
'With txt
@@ -86,28 +86,28 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
End If
' DoEvents()
' rst.MoveNext()
Next
Next
'.Close()
' End With
' txt = Nothing
' fso = Nothing
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter F:\FMZoll\ZM\ZM_Formular_online.xml"
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter \\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml"
' rst.Close()
' rst = Nothing
sw.Close()
If Not IO.Directory.Exists("F:\FMZoll\Intrastat\ArchivNEU\") Then IO.Directory.CreateDirectory("F:\FMZoll\Intrastat\ArchivNEU\")
If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\")
Try
IO.File.Copy("F:\FMZoll\Intrastat\KA221.ASC", "F:\FMZoll\Intrastat\ArchivNEU\" & Now.ToString("dd.MM.yyyy HH.mm.ss") & " " & datVon.Value.ToShortDateString & " " & datBis.Value.ToShortDateString & " KA221.ASC")
File.Copy("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\KA221.ASC", "\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\" & Now.ToString("dd.MM.yyyy HH.mm.ss") & " " & datVon.Value.ToShortDateString & " " & datBis.Value.ToShortDateString & " KA221.ASC")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Process.Start("F:\FMZoll\Intrastat\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\")
End If
Catch ex As Exception
@@ -187,7 +187,7 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -200,6 +200,6 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("F:\FMZoll\Intrastat\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\")
End Sub
End Class

22
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb
View File

@@ -22,15 +22,15 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\ZM\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
Dim sw As New StreamWriter(fs)
' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
' XML-Datei anlegen.
' fso = New FileSystemObject
' strPath = fso.BuildPath("F:\FMZoll\ZM", "ZM_Formular_online.xml")
' strPath = fso.BuildPath("\\FMZoll.verag.ost.dmn\FMZoll\ZM", "ZM_Formular_online.xml")
' txt = fso.CreateTextFile(strPath, True, False)
'With txt
sw.WriteLine("<?xml version=""1.0"" encoding=""UTF-8"" ?>")
@@ -74,15 +74,15 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
' End With
' txt = Nothing
' fso = Nothing
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter F:\FMZoll\ZM\ZM_Formular_online.xml"
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter \\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml"
' rst.Close()
' rst = Nothing
sw.Close()
'Process.Start("F:\FMZoll\ZM\ZM_Formular_online_TEST.xml")
'Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online_TEST.xml")
Process.Start("F:\FMZoll\ZM\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
End If
Catch ex As Exception
@@ -314,7 +314,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
' sqlStr &= " WHERE (eza_Trans_DatumZeit) Between '" & datVon.Value.ToShortDateString & "' And '" & datBis.Value.ToShortDateString & "' "
'sqlStr &= " and ezaAd_AdressTyp='DT' and eza_VerfahrenBeantragtCode=42 and eza_FiskalvertretungKz=1 /*AND ezaAd_UStIDAnmelder='DE813667748'*/ and ezaAd_UStIDAnmelder is not null"
End If
sqlStr &= " ) as Tb"
@@ -343,8 +343,8 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\ZM\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
Dim sw As New StreamWriter(fs)
@@ -361,7 +361,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Next
sw.Close()
fs.Close()
Process.Start("F:\FMZoll\ZM\ZM_Formular_online.csv")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv")
End If
Catch ex As Exception
@@ -532,6 +532,6 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("F:\FMZoll\ZM\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
End Sub
End Class

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

@@ -43,6 +43,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label2 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.GroupBox2 = 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()
Me.txtJahrDurmaz = New System.Windows.Forms.NumericUpDown()
@@ -113,6 +114,38 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label35 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label76 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.Button18 = New System.Windows.Forms.Button()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.txtJahr_NCTSTR = New System.Windows.Forms.NumericUpDown()
Me.cboMonat_NCTSTR = New System.Windows.Forms.ComboBox()
Me.Label77 = New System.Windows.Forms.Label()
Me.datAuswertBis_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label78 = New System.Windows.Forms.Label()
Me.Label79 = New System.Windows.Forms.Label()
Me.Label80 = New System.Windows.Forms.Label()
Me.datAuswertVon_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label81 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.cbxSplittungNachPos_NCTSTR = New System.Windows.Forms.CheckBox()
Me.cbxAnrechnungRefBetrag_NCTSTR = New System.Windows.Forms.CheckBox()
Me.Button16 = New System.Windows.Forms.Button()
Me.Label69 = New System.Windows.Forms.Label()
Me.txtStatBis_NCTSTR = New System.Windows.Forms.TextBox()
Me.txtStatVon_NCTSTR = New System.Windows.Forms.TextBox()
Me.Label70 = New System.Windows.Forms.Label()
Me.Label71 = New System.Windows.Forms.Label()
Me.cboBrg_NCTSTR = New System.Windows.Forms.ComboBox()
Me.Label72 = New System.Windows.Forms.Label()
Me.datBis_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label73 = New System.Windows.Forms.Label()
Me.Label74 = New System.Windows.Forms.Label()
Me.datVon_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label75 = New System.Windows.Forms.Label()
Me.Button17 = New System.Windows.Forms.Button()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
@@ -165,7 +198,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.pnl = New System.Windows.Forms.Panel()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
@@ -186,6 +218,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.datUnispedVon = New System.Windows.Forms.DateTimePicker()
Me.Label67 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -200,6 +233,11 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox11.SuspendLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox10.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
@@ -212,10 +250,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
Me.pnl.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox9.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'Label3
@@ -420,7 +458,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label8.Location = New System.Drawing.Point(8, 581)
Me.Label8.Location = New System.Drawing.Point(8, 721)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(211, 17)
Me.Label8.TabIndex = 12
@@ -428,6 +466,7 @@ Partial Class usrCntlZOLLAuswertungen
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button15)
Me.GroupBox2.Controls.Add(Me.Button6)
Me.GroupBox2.Controls.Add(Me.picDurmaz)
Me.GroupBox2.Controls.Add(Me.txtJahrDurmaz)
@@ -440,17 +479,28 @@ Partial Class usrCntlZOLLAuswertungen
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, 593)
Me.GroupBox2.Location = New System.Drawing.Point(7, 733)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(705, 97)
Me.GroupBox2.Size = New System.Drawing.Size(705, 145)
Me.GroupBox2.TabIndex = 11
Me.GroupBox2.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.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(121, 37)
Me.Button15.TabIndex = 14
Me.Button15.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ZOLARIS)"
Me.Button15.UseVisualStyleBackColor = True
'
'Button6
'
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, 57)
Me.Button6.Location = New System.Drawing.Point(6, 95)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(121, 37)
Me.Button6.TabIndex = 13
@@ -784,7 +834,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label17.Location = New System.Drawing.Point(8, 706)
Me.Label17.Location = New System.Drawing.Point(10, 881)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(198, 17)
Me.Label17.TabIndex = 18
@@ -805,7 +855,7 @@ Partial Class usrCntlZOLLAuswertungen
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(7, 718)
Me.GroupBox4.Location = New System.Drawing.Point(9, 893)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(705, 147)
Me.GroupBox4.TabIndex = 17
@@ -1166,12 +1216,17 @@ 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(830, 1270)
Me.tbcntr.Size = New System.Drawing.Size(728, 1529)
Me.tbcntr.TabIndex = 22
'
'TabPage1
'
Me.TabPage1.AutoScroll = True
Me.TabPage1.Controls.Add(Me.Label76)
Me.TabPage1.Controls.Add(Me.GroupBox11)
Me.TabPage1.Controls.Add(Me.Label68)
Me.TabPage1.Controls.Add(Me.PictureBox9)
Me.TabPage1.Controls.Add(Me.GroupBox10)
Me.TabPage1.Controls.Add(Me.PictureBox7)
Me.TabPage1.Controls.Add(Me.Label52)
Me.TabPage1.Controls.Add(Me.PictureBox6)
@@ -1199,11 +1254,341 @@ 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(822, 1244)
Me.TabPage1.Size = New System.Drawing.Size(720, 1503)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Label76
'
Me.Label76.AutoSize = True
Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label76.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label76.Location = New System.Drawing.Point(12, 1309)
Me.Label76.Name = "Label76"
Me.Label76.Size = New System.Drawing.Size(214, 17)
Me.Label76.TabIndex = 33
Me.Label76.Text = "Auswertung LKW - OREGON"
'
'GroupBox11
'
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, 1324)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(705, 102)
Me.GroupBox11.TabIndex = 32
Me.GroupBox11.TabStop = False
'
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button18.Location = New System.Drawing.Point(6, 19)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(121, 37)
Me.Button18.TabIndex = 14
Me.Button18.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(FREMDSYSTEM)"
Me.Button18.UseVisualStyleBackColor = True
'
'PictureBox10
'
Me.PictureBox10.Image = Global.SDL.My.Resources.Resources.oregon
Me.PictureBox10.Location = New System.Drawing.Point(494, 12)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(166, 44)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox10.TabIndex = 12
Me.PictureBox10.TabStop = False
'
'txtJahr_NCTSTR
'
Me.txtJahr_NCTSTR.Location = New System.Drawing.Point(315, 66)
Me.txtJahr_NCTSTR.Maximum = New Decimal(New Integer() {2050, 0, 0, 0})
Me.txtJahr_NCTSTR.Minimum = New Decimal(New Integer() {1999, 0, 0, 0})
Me.txtJahr_NCTSTR.Name = "txtJahr_NCTSTR"
Me.txtJahr_NCTSTR.Size = New System.Drawing.Size(48, 20)
Me.txtJahr_NCTSTR.TabIndex = 11
Me.txtJahr_NCTSTR.Value = New Decimal(New Integer() {2016, 0, 0, 0})
'
'cboMonat_NCTSTR
'
Me.cboMonat_NCTSTR.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMonat_NCTSTR.FormattingEnabled = True
Me.cboMonat_NCTSTR.Items.AddRange(New Object() {"", "Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"})
Me.cboMonat_NCTSTR.Location = New System.Drawing.Point(186, 65)
Me.cboMonat_NCTSTR.Name = "cboMonat_NCTSTR"
Me.cboMonat_NCTSTR.Size = New System.Drawing.Size(87, 21)
Me.cboMonat_NCTSTR.TabIndex = 11
'
'Label77
'
Me.Label77.AutoSize = True
Me.Label77.Location = New System.Drawing.Point(569, 69)
Me.Label77.Name = "Label77"
Me.Label77.Size = New System.Drawing.Size(23, 13)
Me.Label77.TabIndex = 10
Me.Label77.Text = "bis:"
'
'datAuswertBis_NCTSTR
'
Me.datAuswertBis_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertBis_NCTSTR.Location = New System.Drawing.Point(598, 66)
Me.datAuswertBis_NCTSTR.Name = "datAuswertBis_NCTSTR"
Me.datAuswertBis_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datAuswertBis_NCTSTR.TabIndex = 9
'
'Label78
'
Me.Label78.AutoSize = True
Me.Label78.Location = New System.Drawing.Point(279, 69)
Me.Label78.Name = "Label78"
Me.Label78.Size = New System.Drawing.Size(30, 13)
Me.Label78.TabIndex = 8
Me.Label78.Text = "Jahr:"
'
'Label79
'
Me.Label79.AutoSize = True
Me.Label79.Location = New System.Drawing.Point(145, 69)
Me.Label79.Name = "Label79"
Me.Label79.Size = New System.Drawing.Size(40, 13)
Me.Label79.TabIndex = 8
Me.Label79.Text = "Monat:"
'
'Label80
'
Me.Label80.AutoSize = True
Me.Label80.Location = New System.Drawing.Point(436, 69)
Me.Label80.Name = "Label80"
Me.Label80.Size = New System.Drawing.Size(28, 13)
Me.Label80.TabIndex = 8
Me.Label80.Text = "von:"
'
'datAuswertVon_NCTSTR
'
Me.datAuswertVon_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertVon_NCTSTR.Location = New System.Drawing.Point(470, 66)
Me.datAuswertVon_NCTSTR.Name = "datAuswertVon_NCTSTR"
Me.datAuswertVon_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datAuswertVon_NCTSTR.TabIndex = 7
'
'Label81
'
Me.Label81.AutoSize = True
Me.Label81.Location = New System.Drawing.Point(145, 16)
Me.Label81.Name = "Label81"
Me.Label81.Size = New System.Drawing.Size(276, 26)
Me.Label81.TabIndex = 5
Me.Label81.Text = "Liefert eine Liste der im definierten Zeitraum verarbeiteten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Versandscheine (nac" &
"h LKWs gruppiert)."
'
'Label68
'
Me.Label68.AutoSize = True
Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label68.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label68.Location = New System.Drawing.Point(8, 536)
Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(323, 17)
Me.Label68.TabIndex = 30
Me.Label68.Text = "NCTS Gestellungskontrolle FREMDSYSTEM"
'
'PictureBox9
'
Me.PictureBox9.Image = Global.SDL.My.Resources.Resources.flagge_tr
Me.PictureBox9.Location = New System.Drawing.Point(351, 537)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(29, 16)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox9.TabIndex = 31
Me.PictureBox9.TabStop = False
'
'GroupBox10
'
Me.GroupBox10.Controls.Add(Me.cbxSplittungNachPos_NCTSTR)
Me.GroupBox10.Controls.Add(Me.cbxAnrechnungRefBetrag_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Button16)
Me.GroupBox10.Controls.Add(Me.Label69)
Me.GroupBox10.Controls.Add(Me.txtStatBis_NCTSTR)
Me.GroupBox10.Controls.Add(Me.txtStatVon_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label70)
Me.GroupBox10.Controls.Add(Me.Label71)
Me.GroupBox10.Controls.Add(Me.cboBrg_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label72)
Me.GroupBox10.Controls.Add(Me.datBis_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label73)
Me.GroupBox10.Controls.Add(Me.Label74)
Me.GroupBox10.Controls.Add(Me.datVon_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label75)
Me.GroupBox10.Controls.Add(Me.Button17)
Me.GroupBox10.Location = New System.Drawing.Point(7, 548)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(705, 93)
Me.GroupBox10.TabIndex = 29
Me.GroupBox10.TabStop = False
'
'cbxSplittungNachPos_NCTSTR
'
Me.cbxSplittungNachPos_NCTSTR.AutoSize = True
Me.cbxSplittungNachPos_NCTSTR.Location = New System.Drawing.Point(148, 76)
Me.cbxSplittungNachPos_NCTSTR.Name = "cbxSplittungNachPos_NCTSTR"
Me.cbxSplittungNachPos_NCTSTR.Size = New System.Drawing.Size(146, 17)
Me.cbxSplittungNachPos_NCTSTR.TabIndex = 21
Me.cbxSplittungNachPos_NCTSTR.Text = "Splittung nach Positionen"
Me.cbxSplittungNachPos_NCTSTR.UseVisualStyleBackColor = True
'
'cbxAnrechnungRefBetrag_NCTSTR
'
Me.cbxAnrechnungRefBetrag_NCTSTR.AutoSize = True
Me.cbxAnrechnungRefBetrag_NCTSTR.Location = New System.Drawing.Point(148, 59)
Me.cbxAnrechnungRefBetrag_NCTSTR.Name = "cbxAnrechnungRefBetrag_NCTSTR"
Me.cbxAnrechnungRefBetrag_NCTSTR.Size = New System.Drawing.Size(138, 17)
Me.cbxAnrechnungRefBetrag_NCTSTR.TabIndex = 20
Me.cbxAnrechnungRefBetrag_NCTSTR.Text = "Anrechnung Ref Betrag"
Me.cbxAnrechnungRefBetrag_NCTSTR.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button16.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button16.Location = New System.Drawing.Point(6, 49)
Me.Button16.Name = "Button16"
Me.Button16.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
Me.Button16.Size = New System.Drawing.Size(121, 38)
Me.Button16.TabIndex = 19
Me.Button16.Text = "Excel"
Me.Button16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button16.UseVisualStyleBackColor = True
'
'Label69
'
Me.Label69.AutoSize = True
Me.Label69.Location = New System.Drawing.Point(368, 74)
Me.Label69.Name = "Label69"
Me.Label69.Size = New System.Drawing.Size(10, 13)
Me.Label69.TabIndex = 17
Me.Label69.Text = "-"
'
'txtStatBis_NCTSTR
'
Me.txtStatBis_NCTSTR.Location = New System.Drawing.Point(378, 69)
Me.txtStatBis_NCTSTR.Name = "txtStatBis_NCTSTR"
Me.txtStatBis_NCTSTR.Size = New System.Drawing.Size(23, 20)
Me.txtStatBis_NCTSTR.TabIndex = 16
Me.txtStatBis_NCTSTR.Text = "50"
'
'txtStatVon_NCTSTR
'
Me.txtStatVon_NCTSTR.Location = New System.Drawing.Point(344, 69)
Me.txtStatVon_NCTSTR.Name = "txtStatVon_NCTSTR"
Me.txtStatVon_NCTSTR.Size = New System.Drawing.Size(23, 20)
Me.txtStatVon_NCTSTR.TabIndex = 15
Me.txtStatVon_NCTSTR.Text = "50"
'
'Label70
'
Me.Label70.AutoSize = True
Me.Label70.Location = New System.Drawing.Point(340, 55)
Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(40, 13)
Me.Label70.TabIndex = 14
Me.Label70.Text = "Status:"
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Location = New System.Drawing.Point(436, 55)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(167, 13)
Me.Label71.TabIndex = 13
Me.Label71.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBrg_NCTSTR
'
Me.cboBrg_NCTSTR.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrg_NCTSTR.DropDownWidth = 350
Me.cboBrg_NCTSTR.FormattingEnabled = True
Me.cboBrg_NCTSTR.Location = New System.Drawing.Point(439, 69)
Me.cboBrg_NCTSTR.Name = "cboBrg_NCTSTR"
Me.cboBrg_NCTSTR.Size = New System.Drawing.Size(221, 21)
Me.cboBrg_NCTSTR.TabIndex = 12
'
'Label72
'
Me.Label72.AutoSize = True
Me.Label72.Location = New System.Drawing.Point(569, 30)
Me.Label72.Name = "Label72"
Me.Label72.Size = New System.Drawing.Size(23, 13)
Me.Label72.TabIndex = 10
Me.Label72.Text = "bis:"
'
'datBis_NCTSTR
'
Me.datBis_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBis_NCTSTR.Location = New System.Drawing.Point(598, 27)
Me.datBis_NCTSTR.Name = "datBis_NCTSTR"
Me.datBis_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datBis_NCTSTR.TabIndex = 9
'
'Label73
'
Me.Label73.AutoSize = True
Me.Label73.Location = New System.Drawing.Point(436, 11)
Me.Label73.Name = "Label73"
Me.Label73.Size = New System.Drawing.Size(122, 13)
Me.Label73.TabIndex = 8
Me.Label73.Text = "Gestellungsdatum (Frist):"
'
'Label74
'
Me.Label74.AutoSize = True
Me.Label74.Location = New System.Drawing.Point(436, 30)
Me.Label74.Name = "Label74"
Me.Label74.Size = New System.Drawing.Size(28, 13)
Me.Label74.TabIndex = 8
Me.Label74.Text = "von:"
'
'datVon_NCTSTR
'
Me.datVon_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon_NCTSTR.Location = New System.Drawing.Point(470, 27)
Me.datVon_NCTSTR.Name = "datVon_NCTSTR"
Me.datVon_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datVon_NCTSTR.TabIndex = 7
'
'Label75
'
Me.Label75.AutoSize = True
Me.Label75.Location = New System.Drawing.Point(145, 12)
Me.Label75.Name = "Label75"
Me.Label75.Size = New System.Drawing.Size(278, 39)
Me.Label75.TabIndex = 5
Me.Label75.Text = "Liefert eine Liste der nocht nicht gestellten Abfertigungen," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "wobei nach dem Gest" &
"llungsdatum im definierten Zeitraum" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "eingeschränkt wird."
'
'Button17
'
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button17.Location = New System.Drawing.Point(6, 12)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(121, 38)
Me.Button17.TabIndex = 4
Me.Button17.Text = "Auswertung starten"
Me.Button17.UseVisualStyleBackColor = True
'
'PictureBox7
'
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple
@@ -1387,7 +1772,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label46.AutoSize = True
Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label46.Location = New System.Drawing.Point(10, 1002)
Me.Label46.Location = New System.Drawing.Point(12, 1177)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(199, 17)
Me.Label46.TabIndex = 25
@@ -1406,7 +1791,7 @@ Partial Class usrCntlZOLLAuswertungen
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(7, 1017)
Me.GroupBox7.Location = New System.Drawing.Point(9, 1192)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(705, 102)
Me.GroupBox7.TabIndex = 24
@@ -1520,7 +1905,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label45.AutoSize = True
Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label45.Location = New System.Drawing.Point(8, 554)
Me.Label45.Location = New System.Drawing.Point(8, 694)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(409, 17)
Me.Label45.TabIndex = 23
@@ -1531,7 +1916,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label44.Location = New System.Drawing.Point(10, 873)
Me.Label44.Location = New System.Drawing.Point(12, 1048)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(182, 17)
Me.Label44.TabIndex = 22
@@ -1550,7 +1935,7 @@ Partial Class usrCntlZOLLAuswertungen
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(7, 888)
Me.GroupBox6.Location = New System.Drawing.Point(9, 1063)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(705, 102)
Me.GroupBox6.TabIndex = 18
@@ -1667,7 +2052,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(822, 1244)
Me.TabPage2.Size = New System.Drawing.Size(737, 1503)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1697,7 +2082,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(822, 1244)
Me.TabPage3.Size = New System.Drawing.Size(737, 1503)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1723,7 +2108,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(822, 1244)
Me.TabPage4.Size = New System.Drawing.Size(737, 1503)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
@@ -1736,15 +2121,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Label2)
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(830, 57)
Me.pnl.TabIndex = 23
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.Label60)
@@ -1753,7 +2129,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(822, 1244)
Me.TabPage5.Size = New System.Drawing.Size(737, 1503)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -1955,6 +2331,15 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14.Text = "Auswertung starten"
Me.Button14.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.Controls.Add(Me.Label2)
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(728, 57)
Me.pnl.TabIndex = 23
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1964,7 +2349,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(830, 926)
Me.Size = New System.Drawing.Size(728, 926)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -1985,6 +2370,13 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
@@ -2000,13 +2392,13 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -2174,4 +2566,37 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents datUnispedVon As DateTimePicker
Friend WithEvents Label67 As Label
Friend WithEvents Button14 As Button
Friend WithEvents Button15 As Button
Friend WithEvents Label68 As Label
Friend WithEvents PictureBox9 As PictureBox
Friend WithEvents GroupBox10 As GroupBox
Friend WithEvents cbxSplittungNachPos_NCTSTR As CheckBox
Friend WithEvents cbxAnrechnungRefBetrag_NCTSTR As CheckBox
Friend WithEvents Button16 As Button
Friend WithEvents Label69 As Label
Friend WithEvents txtStatBis_NCTSTR As TextBox
Friend WithEvents txtStatVon_NCTSTR As TextBox
Friend WithEvents Label70 As Label
Friend WithEvents Label71 As Label
Friend WithEvents cboBrg_NCTSTR As ComboBox
Friend WithEvents Label72 As Label
Friend WithEvents datBis_NCTSTR As DateTimePicker
Friend WithEvents Label73 As Label
Friend WithEvents Label74 As Label
Friend WithEvents datVon_NCTSTR As DateTimePicker
Friend WithEvents Label75 As Label
Friend WithEvents Button17 As Button
Friend WithEvents Label76 As Label
Friend WithEvents GroupBox11 As GroupBox
Friend WithEvents Button18 As Button
Friend WithEvents PictureBox10 As PictureBox
Friend WithEvents txtJahr_NCTSTR As NumericUpDown
Friend WithEvents cboMonat_NCTSTR As ComboBox
Friend WithEvents Label77 As Label
Friend WithEvents datAuswertBis_NCTSTR As DateTimePicker
Friend WithEvents Label78 As Label
Friend WithEvents Label79 As Label
Friend WithEvents Label80 As Label
Friend WithEvents datAuswertVon_NCTSTR As DateTimePicker
Friend WithEvents Label81 As Label
End Class

142
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -66,20 +66,24 @@ Public Class usrCntlZOLLAuswertungen
txtJahrATILLA.Value = Now.Year
txtJahrIMEX.Value = Now.Year
txtJahrAmbar.Value = Now.Year
txtJahr_NCTSTR.Value = Now.Year
cboMonatDurmaz.SelectedIndex = Now.AddMonths(-1).Month
cboMonatATILLA.SelectedIndex = Now.AddMonths(-1).Month
cboMonatIMEX.SelectedIndex = Now.AddMonths(-1).Month
cboMonatAmbar.SelectedIndex = Now.AddMonths(-1).Month
cboMonat_NCTSTR.SelectedIndex = Now.AddMonths(-1).Month
Dim d As Date = CDate("01." & Now.Month & "." & Now.Year)
datVon.Value = Now 'd.AddMonths(-3)
datBis.Value = Now.AddDays(3)
datBisDy.Value = Now.AddDays(3)
datUnispedBis.Value = Now.AddDays(3)
datVon_NCTSTR.Value = Now
datBis_NCTSTR.Value = Now.AddDays(3)
ComboBox1.Items.Clear()
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG SUBEN", "SUB"))
@@ -156,6 +160,13 @@ Public Class usrCntlZOLLAuswertungen
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrgDy.SelectedIndex = 0
cboBrg_NCTSTR.Items.Clear()
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
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.SelectedIndex = 0
End Select
cboBrgEZollTC.Items.Clear()
@@ -318,6 +329,31 @@ Public Class usrCntlZOLLAuswertungen
End If
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button17.Click
Dim sqlStr = ""
If cbxSplittungNachPos_NCTSTR.Checked Then
sqlStr = getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False)
Else
sqlStr = getSQL_NCTS_ATLAS_NCTS_TR(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False)
End If
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.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
Function getSQL_NCTS_ATLAS_DY(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
@@ -354,6 +390,41 @@ Public Class usrCntlZOLLAuswertungen
End Function
Function getSQL_NCTS_ATLAS_NCTS_TR(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
' 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 Gestellungsdatum,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 &= ",(SELECT COUNT(*) FROM tblNCTS_TR_Warenposition where nctsWP_NctsId=ncts_Id) as POS"
If anrechnungsZP Then sqlStr &= ", ncts_Ankunft as AnrechnungRef"
sqlStr &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] 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 & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
Return sqlStr
End Function
Function getSQL_NCTS_ATLAS_DY_POS(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
@@ -391,6 +462,41 @@ Public Class usrCntlZOLLAuswertungen
End Function
Function getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
' 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 "
'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"
sqlStr &= ", ncts_AbgangsDienststellennummer as BesAbgZA, ncts_BestimmungsstelleDienststellennummer as BestZA, [nctsWP_Rohmasse] as Rohmasse"
sqlStr &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId inner join tblNCTS_TR_Warenposition on ncts_Id = [nctsWP_NctsId]"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
Return sqlStr
End Function
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ")
@@ -506,6 +612,13 @@ Public Class usrCntlZOLLAuswertungen
datBisAmbar.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub Nctstr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMonat_NCTSTR.SelectedIndexChanged, txtJahr_NCTSTR.ValueChanged
If cboMonat_NCTSTR.SelectedIndex <= 0 Then Exit Sub
Dim d As Date = CDate("01." & (cboMonat_NCTSTR.SelectedIndex) & "." & txtJahr_NCTSTR.Text)
datAuswertVon_NCTSTR.Value = d
datAuswertBis_NCTSTR.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Dim sqlStr = getSQL_NCTS_EZOLL_TELOTEC(datEZOLL_TC_Von.Value, datEZOLL_TC_Bis.Value, txtStatEZoll_TC_Von.Text, txtStatEZoll_TC_Bis.Text, cboBrgEZollTC._value)
@@ -559,4 +672,31 @@ Public Class usrCntlZOLLAuswertungen
End If
End Sub
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.Show()
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
If cbxSplittungNachPos_NCTSTR.Checked Then
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_ncts_tr_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
End If
Else
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_NCTS_TR(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
End If
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "MAVI")
frmPrintLayout.Show()
End Sub
End Class