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-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -158,14 +158,34 @@ Partial Class usrCntlZOLLAuswertungen
Me.datVonImex = New System.Windows.Forms.DateTimePicker()
Me.Label43 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.pnl = New System.Windows.Forms.Panel()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
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()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
Me.cbxUnispedSplittungNachPos = New System.Windows.Forms.CheckBox()
Me.cbxUnispedAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
Me.Button13 = New System.Windows.Forms.Button()
Me.Label61 = New System.Windows.Forms.Label()
Me.txtUnispedStatBis = New System.Windows.Forms.TextBox()
Me.txtUnispedStatVon = New System.Windows.Forms.TextBox()
Me.Label62 = New System.Windows.Forms.Label()
Me.Label63 = New System.Windows.Forms.Label()
Me.cboUnispedBrgDy = New System.Windows.Forms.ComboBox()
Me.Label64 = New System.Windows.Forms.Label()
Me.datUnispedBis = New System.Windows.Forms.DateTimePicker()
Me.Label65 = New System.Windows.Forms.Label()
Me.Label66 = New System.Windows.Forms.Label()
Me.datUnispedVon = New System.Windows.Forms.DateTimePicker()
Me.Label67 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -193,6 +213,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
Me.pnl.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox9.SuspendLayout()
Me.SuspendLayout()
'
'Label3
@@ -1138,11 +1161,12 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Controls.Add(Me.TabPage5)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Top
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(847, 1270)
Me.tbcntr.Size = New System.Drawing.Size(830, 1270)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1175,7 +1199,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(839, 1244)
Me.TabPage1.Size = New System.Drawing.Size(822, 1244)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1643,42 +1667,11 @@ 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(856, 1244)
Me.TabPage2.Size = New System.Drawing.Size(822, 1244)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1)
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskalvertretung_42001)
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(856, 1244)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung"
Me.TabPage3.UseVisualStyleBackColor = True
'
'TabPage4
'
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(856, 1244)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.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(847, 57)
Me.pnl.TabIndex = 23
'
'UsrCntlAuswertungenUIDPruefung1
'
Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
@@ -1697,6 +1690,18 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1)
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenFiskalvertretung_42001)
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.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung"
Me.TabPage3.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenFiskal_IntrastatMeldung1
'
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
@@ -1713,6 +1718,16 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
'
'TabPage4
'
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.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
@@ -1721,6 +1736,225 @@ 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)
Me.TabPage5.Controls.Add(Me.PictureBox8)
Me.TabPage5.Controls.Add(Me.GroupBox9)
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.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
'
'Label60
'
Me.Label60.AutoSize = True
Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label60.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label60.Location = New System.Drawing.Point(12, 19)
Me.Label60.Name = "Label60"
Me.Label60.Size = New System.Drawing.Size(336, 17)
Me.Label60.TabIndex = 23
Me.Label60.Text = "NCTS Gestellungskontrolle ATLAS - DAKOSY"
'
'PictureBox8
'
Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.flagge_D
Me.PictureBox8.Location = New System.Drawing.Point(355, 20)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(29, 16)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox8.TabIndex = 24
Me.PictureBox8.TabStop = False
'
'GroupBox9
'
Me.GroupBox9.Controls.Add(Me.cbxUnispedSplittungNachPos)
Me.GroupBox9.Controls.Add(Me.cbxUnispedAnrechnungRefBetrag)
Me.GroupBox9.Controls.Add(Me.Button13)
Me.GroupBox9.Controls.Add(Me.Label61)
Me.GroupBox9.Controls.Add(Me.txtUnispedStatBis)
Me.GroupBox9.Controls.Add(Me.txtUnispedStatVon)
Me.GroupBox9.Controls.Add(Me.Label62)
Me.GroupBox9.Controls.Add(Me.Label63)
Me.GroupBox9.Controls.Add(Me.cboUnispedBrgDy)
Me.GroupBox9.Controls.Add(Me.Label64)
Me.GroupBox9.Controls.Add(Me.datUnispedBis)
Me.GroupBox9.Controls.Add(Me.Label65)
Me.GroupBox9.Controls.Add(Me.Label66)
Me.GroupBox9.Controls.Add(Me.datUnispedVon)
Me.GroupBox9.Controls.Add(Me.Label67)
Me.GroupBox9.Controls.Add(Me.Button14)
Me.GroupBox9.Location = New System.Drawing.Point(6, 31)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(705, 93)
Me.GroupBox9.TabIndex = 22
Me.GroupBox9.TabStop = False
'
'cbxUnispedSplittungNachPos
'
Me.cbxUnispedSplittungNachPos.AutoSize = True
Me.cbxUnispedSplittungNachPos.Location = New System.Drawing.Point(148, 76)
Me.cbxUnispedSplittungNachPos.Name = "cbxUnispedSplittungNachPos"
Me.cbxUnispedSplittungNachPos.Size = New System.Drawing.Size(146, 17)
Me.cbxUnispedSplittungNachPos.TabIndex = 21
Me.cbxUnispedSplittungNachPos.Text = "Splittung nach Positionen"
Me.cbxUnispedSplittungNachPos.UseVisualStyleBackColor = True
'
'cbxUnispedAnrechnungRefBetrag
'
Me.cbxUnispedAnrechnungRefBetrag.AutoSize = True
Me.cbxUnispedAnrechnungRefBetrag.Location = New System.Drawing.Point(148, 59)
Me.cbxUnispedAnrechnungRefBetrag.Name = "cbxUnispedAnrechnungRefBetrag"
Me.cbxUnispedAnrechnungRefBetrag.Size = New System.Drawing.Size(138, 17)
Me.cbxUnispedAnrechnungRefBetrag.TabIndex = 20
Me.cbxUnispedAnrechnungRefBetrag.Text = "Anrechnung Ref Betrag"
Me.cbxUnispedAnrechnungRefBetrag.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button13.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button13.Location = New System.Drawing.Point(6, 49)
Me.Button13.Name = "Button13"
Me.Button13.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
Me.Button13.Size = New System.Drawing.Size(121, 38)
Me.Button13.TabIndex = 19
Me.Button13.Text = "Excel"
Me.Button13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button13.UseVisualStyleBackColor = True
'
'Label61
'
Me.Label61.AutoSize = True
Me.Label61.Location = New System.Drawing.Point(368, 74)
Me.Label61.Name = "Label61"
Me.Label61.Size = New System.Drawing.Size(10, 13)
Me.Label61.TabIndex = 17
Me.Label61.Text = "-"
'
'txtUnispedStatBis
'
Me.txtUnispedStatBis.Location = New System.Drawing.Point(378, 69)
Me.txtUnispedStatBis.Name = "txtUnispedStatBis"
Me.txtUnispedStatBis.Size = New System.Drawing.Size(23, 20)
Me.txtUnispedStatBis.TabIndex = 16
Me.txtUnispedStatBis.Text = "50"
'
'txtUnispedStatVon
'
Me.txtUnispedStatVon.Location = New System.Drawing.Point(344, 69)
Me.txtUnispedStatVon.Name = "txtUnispedStatVon"
Me.txtUnispedStatVon.Size = New System.Drawing.Size(23, 20)
Me.txtUnispedStatVon.TabIndex = 15
Me.txtUnispedStatVon.Text = "50"
'
'Label62
'
Me.Label62.AutoSize = True
Me.Label62.Location = New System.Drawing.Point(340, 55)
Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(40, 13)
Me.Label62.TabIndex = 14
Me.Label62.Text = "Status:"
'
'Label63
'
Me.Label63.AutoSize = True
Me.Label63.Location = New System.Drawing.Point(436, 55)
Me.Label63.Name = "Label63"
Me.Label63.Size = New System.Drawing.Size(167, 13)
Me.Label63.TabIndex = 13
Me.Label63.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboUnispedBrgDy
'
Me.cboUnispedBrgDy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboUnispedBrgDy.DropDownWidth = 350
Me.cboUnispedBrgDy.FormattingEnabled = True
Me.cboUnispedBrgDy.Location = New System.Drawing.Point(439, 69)
Me.cboUnispedBrgDy.Name = "cboUnispedBrgDy"
Me.cboUnispedBrgDy.Size = New System.Drawing.Size(221, 21)
Me.cboUnispedBrgDy.TabIndex = 12
'
'Label64
'
Me.Label64.AutoSize = True
Me.Label64.Location = New System.Drawing.Point(569, 30)
Me.Label64.Name = "Label64"
Me.Label64.Size = New System.Drawing.Size(23, 13)
Me.Label64.TabIndex = 10
Me.Label64.Text = "bis:"
'
'datUnispedBis
'
Me.datUnispedBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datUnispedBis.Location = New System.Drawing.Point(598, 27)
Me.datUnispedBis.Name = "datUnispedBis"
Me.datUnispedBis.Size = New System.Drawing.Size(93, 20)
Me.datUnispedBis.TabIndex = 9
'
'Label65
'
Me.Label65.AutoSize = True
Me.Label65.Location = New System.Drawing.Point(436, 11)
Me.Label65.Name = "Label65"
Me.Label65.Size = New System.Drawing.Size(122, 13)
Me.Label65.TabIndex = 8
Me.Label65.Text = "Gestellungsdatum (Frist):"
'
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.Location = New System.Drawing.Point(436, 30)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(28, 13)
Me.Label66.TabIndex = 8
Me.Label66.Text = "von:"
'
'datUnispedVon
'
Me.datUnispedVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datUnispedVon.Location = New System.Drawing.Point(470, 27)
Me.datUnispedVon.Name = "datUnispedVon"
Me.datUnispedVon.Size = New System.Drawing.Size(93, 20)
Me.datUnispedVon.TabIndex = 7
'
'Label67
'
Me.Label67.AutoSize = True
Me.Label67.Location = New System.Drawing.Point(145, 12)
Me.Label67.Name = "Label67"
Me.Label67.Size = New System.Drawing.Size(278, 39)
Me.Label67.TabIndex = 5
Me.Label67.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."
'
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.Location = New System.Drawing.Point(6, 12)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(121, 38)
Me.Button14.TabIndex = 4
Me.Button14.Text = "Auswertung starten"
Me.Button14.UseVisualStyleBackColor = True
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1730,7 +1964,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(847, 926)
Me.Size = New System.Drawing.Size(830, 926)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -1768,6 +2002,11 @@ Partial Class usrCntlZOLLAuswertungen
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.ResumeLayout(False)
End Sub
@@ -1915,4 +2154,24 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents txtStatEZoll_TC_Von As TextBox
Friend WithEvents Label56 As Label
Friend WithEvents PictureBox7 As PictureBox
Friend WithEvents TabPage5 As TabPage
Friend WithEvents Label60 As Label
Friend WithEvents PictureBox8 As PictureBox
Friend WithEvents GroupBox9 As GroupBox
Friend WithEvents cbxUnispedSplittungNachPos As CheckBox
Friend WithEvents cbxUnispedAnrechnungRefBetrag As CheckBox
Friend WithEvents Button13 As Button
Friend WithEvents Label61 As Label
Friend WithEvents txtUnispedStatBis As TextBox
Friend WithEvents txtUnispedStatVon As TextBox
Friend WithEvents Label62 As Label
Friend WithEvents Label63 As Label
Friend WithEvents cboUnispedBrgDy As ComboBox
Friend WithEvents Label64 As Label
Friend WithEvents datUnispedBis As DateTimePicker
Friend WithEvents Label65 As Label
Friend WithEvents Label66 As Label
Friend WithEvents datUnispedVon As DateTimePicker
Friend WithEvents Label67 As Label
Friend WithEvents Button14 As Button
End Class

59
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -78,6 +78,8 @@ Public Class usrCntlZOLLAuswertungen
datBisDy.Value = Now.AddDays(3)
datUnispedBis.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"))
@@ -106,6 +108,12 @@ Public Class usrCntlZOLLAuswertungen
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboEZOLLBrg.SelectedIndex = 1
cboUnispedBrgDy.Items.Clear()
cboUnispedBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboUnispedBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT500000G000EU9 - AT Brg UNISPED", "05AT500000G000EU9 "))
cboUnispedBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071270 - DE Brg UNISPED", "17DE0000000071270 "))
cboUnispedBrgDy.SelectedIndex = 1
datEZOLLVon.Value = Now ' d.AddMonths(-3)
datEZOLLBis.Value = Now.AddDays(3)
@@ -132,6 +140,12 @@ Public Class usrCntlZOLLAuswertungen
tbcntr.TabPages.Remove(TabPage2)
tbcntr.TabPages.Remove(TabPage3)
Case "UNISPED"
tbcntr.TabPages.Remove(TabPage1)
tbcntr.TabPages.Remove(TabPage2)
tbcntr.TabPages.Remove(TabPage3)
tbcntr.TabPages.Remove(TabPage4)
Case Else
cboBrgDy.Items.Clear()
@@ -501,15 +515,48 @@ Public Class usrCntlZOLLAuswertungen
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
Private Sub UsrCntlAuswertungenFiskal_IntrastatMeldung1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenFiskal_IntrastatMeldung1.Load
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
If cbxSplittungNachPos.Checked Then
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_DY_POS(datUnispedVon.Text, datUnispedBis.Text, txtUnispedStatVon.Text, txtUnispedStatBis.Text, DirectCast(cboUnispedBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxUnispedAnrechnungRefBetrag.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_DY(datUnispedVon.Text, datUnispedBis.Text, txtUnispedStatVon.Text, txtUnispedStatBis.Text, DirectCast(cboUnispedBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxUnispedAnrechnungRefBetrag.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
End If
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button14.Click
Dim sqlStr = ""
If cbxSplittungNachPos.Checked Then
sqlStr = getSQL_NCTS_ATLAS_DY_POS(datUnispedVon.Text, datUnispedBis.Text, txtUnispedStatVon.Text, txtUnispedStatBis.Text, DirectCast(cboUnispedBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxUnispedAnrechnungRefBetrag.Checked, False)
Else
sqlStr = getSQL_NCTS_ATLAS_DY(datUnispedVon.Text, datUnispedBis.Text, txtUnispedStatVon.Text, txtUnispedStatBis.Text, DirectCast(cboUnispedBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxUnispedAnrechnungRefBetrag.Checked, False)
End If
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datUnispedVon.Text, datUnispedBis.Text, txtUnispedStatVon.Text, txtUnispedStatBis.Text, DirectCast(cboUnispedBrgDy.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
End Class