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

NCTS5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-14 15:07:15 +01:00
parent 8f8b4a22ad
commit e1675edd94
6 changed files with 261 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.6.4")> <Assembly: AssemblyVersion("1.2.6.5")>
<Assembly: AssemblyFileVersion("1.2.6.4")> <Assembly: AssemblyFileVersion("1.2.6.5")>

69
SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb
View File

@@ -7,6 +7,7 @@ Public Class rptKontrolleLKW_Dakosy
Public datVon As Date Public datVon As Date
Public datBis As Date Public datBis As Date
Public FIRMA As String = "ATILLA" Public FIRMA As String = "ATILLA"
Public NCTSSystemDY As String = "NCTS5"
Dim operatorID = "1" Dim operatorID = "1"
Dim kundenSQL As New kundenSQL Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = Nothing Dim SUB_DATA As DataTable = Nothing
@@ -58,33 +59,63 @@ Public Class rptKontrolleLKW_Dakosy
firmaStr = " AND (ncts_ObjectName LIKE 'A20%' OR ncts_ObjectName LIKE '5701%' ) " firmaStr = " AND (ncts_ObjectName LIKE 'A20%' OR ncts_ObjectName LIKE '5701%' ) "
Else 'ATILLA Else 'ATILLA
'firmaStr = " AND ncts_ObjectName NOT LIKE 'DU%' " 'firmaStr = " AND ncts_ObjectName NOT LIKE 'DU%' "
firmaStr = " AND ncts_ObjectName LIKE '4801%' " firmaStr = " AND (ncts_ObjectName LIKE '4801%' OR ncts_ObjectName LIKE '4802%' ) "
End If End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'" ' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId " Dim sqlStr As String = ""
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'" Dim sqlStrSUB As String = ""
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
Select Case NCTSSystemDY
Case "NCTS5"
sqlStr = " SELECT isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,'')) as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsGRT_AmountToBeCovered),0) as GarantieWert "
sqlStr &= " FROM tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= " AND nctsGRT_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date), isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,''))"
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
sqlStrSUB = " SELECT *, nctsGRT_AmountToBeCovered as nctsSA_AbgabenBetrag,nctsGRT_GRN as nctsSA_GRN, isnull(nctsGRT_AmountToBeCovered,0) as GarantieWert,isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,'')) as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum "
sqlStrSUB &= " FROM tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= " AND nctsGRT_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
Case Else
sqlStr = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
sqlStrSUB = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
End Select
' MsgBox(sqlStr)
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000) Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000) SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000)

3
SDL/Reports/frmPrintLayout.vb
View File

@@ -145,12 +145,13 @@ Public Class frmPrintLayout
Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
End Sub End Sub
Public Sub AuswertungKontrolleLKWDAKOSY(datvon, datbis, FIRMA) Public Sub AuswertungKontrolleLKWDAKOSY(datvon, datbis, FIRMA, NCTSSystemDY)
Me.Text = "Auswertung LKWs" Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_Dakosy = New rptKontrolleLKW_Dakosy Dim report As rptKontrolleLKW_Dakosy = New rptKontrolleLKW_Dakosy
report.datVon = datvon report.datVon = datvon
report.datBis = datbis report.datBis = datbis
report.FIRMA = FIRMA report.FIRMA = FIRMA
report.NCTSSystemDY = NCTSSystemDY
report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Viewer.LoadDocument(report) Viewer.LoadDocument(report)
Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous

3
SDL/SDL.vbproj
View File

@@ -5023,8 +5023,7 @@
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup> <PropertyGroup>
<PostBuildEvent> <PostBuildEvent>\\192.168.0.90\f\Zertifikate\signtool.exe sign /f \\192.168.0.90\f\Zertifikate\AL20231110.pfx /p zYGNNJRG+tzlw90Rz6NqOXnoeBycFCy07YcUsY5iD0M= "SDL.exe"</PostBuildEvent>
</PostBuildEvent>
</PropertyGroup> </PropertyGroup>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

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

@@ -92,6 +92,8 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label95 = New System.Windows.Forms.Label()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox() Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox()
Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox() Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
@@ -103,7 +105,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.cboBrgDy = New System.Windows.Forms.ComboBox() Me.cboBrgDy = New System.Windows.Forms.ComboBox()
Me.Label34 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label()
Me.datBisDy = New System.Windows.Forms.DateTimePicker() Me.datBisDy = New System.Windows.Forms.DateTimePicker()
Me.Label36 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label()
Me.datVonDy = New System.Windows.Forms.DateTimePicker() Me.datVonDy = New System.Windows.Forms.DateTimePicker()
Me.Label38 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label()
@@ -112,6 +113,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label35 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() 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() Me.Label88 = New System.Windows.Forms.Label()
Me.Label82 = New System.Windows.Forms.Label() Me.Label82 = New System.Windows.Forms.Label()
Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox()
@@ -221,18 +226,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.datVonImex = New System.Windows.Forms.DateTimePicker() Me.datVonImex = New System.Windows.Forms.DateTimePicker()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label() Me.Label60 = New System.Windows.Forms.Label()
Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.GroupBox9 = New System.Windows.Forms.GroupBox()
@@ -254,9 +251,14 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14 = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button()
Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.Label95 = New System.Windows.Forms.Label() Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -268,6 +270,8 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.SuspendLayout() Me.GroupBox5.SuspendLayout()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox13.SuspendLayout() Me.GroupBox13.SuspendLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR_AWOR, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtJahr_NCTSTR_AWOR, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -290,7 +294,6 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
@@ -299,7 +302,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox9.SuspendLayout() Me.GroupBox9.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label3 'Label3
@@ -1038,6 +1040,7 @@ Partial Class usrCntlZOLLAuswertungen
' '
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Controls.Add(Me.cboDYDatumArt)
Me.GroupBox5.Controls.Add(Me.Label95) Me.GroupBox5.Controls.Add(Me.Label95)
Me.GroupBox5.Controls.Add(Me.cboDY_NCTS) Me.GroupBox5.Controls.Add(Me.cboDY_NCTS)
Me.GroupBox5.Controls.Add(Me.cbxSplittungNachPos) Me.GroupBox5.Controls.Add(Me.cbxSplittungNachPos)
@@ -1051,7 +1054,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.Controls.Add(Me.cboBrgDy) Me.GroupBox5.Controls.Add(Me.cboBrgDy)
Me.GroupBox5.Controls.Add(Me.Label34) Me.GroupBox5.Controls.Add(Me.Label34)
Me.GroupBox5.Controls.Add(Me.datBisDy) Me.GroupBox5.Controls.Add(Me.datBisDy)
Me.GroupBox5.Controls.Add(Me.Label36)
Me.GroupBox5.Controls.Add(Me.Label37) Me.GroupBox5.Controls.Add(Me.Label37)
Me.GroupBox5.Controls.Add(Me.datVonDy) Me.GroupBox5.Controls.Add(Me.datVonDy)
Me.GroupBox5.Controls.Add(Me.Label38) Me.GroupBox5.Controls.Add(Me.Label38)
@@ -1062,6 +1064,28 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.TabIndex = 19 Me.GroupBox5.TabIndex = 19
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
' '
'Label95
'
Me.Label95.AutoSize = True
Me.Label95.Location = New System.Drawing.Point(145, 103)
Me.Label95.Name = "Label95"
Me.Label95.Size = New System.Drawing.Size(86, 13)
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 'cbxSplittungNachPos
' '
Me.cbxSplittungNachPos.AutoSize = True Me.cbxSplittungNachPos.AutoSize = True
@@ -1134,7 +1158,7 @@ Partial Class usrCntlZOLLAuswertungen
'Label33 'Label33
' '
Me.Label33.AutoSize = True Me.Label33.AutoSize = True
Me.Label33.Location = New System.Drawing.Point(436, 55) Me.Label33.Location = New System.Drawing.Point(436, 74)
Me.Label33.Name = "Label33" Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(167, 13) Me.Label33.Size = New System.Drawing.Size(167, 13)
Me.Label33.TabIndex = 13 Me.Label33.TabIndex = 13
@@ -1145,7 +1169,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.cboBrgDy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboBrgDy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgDy.DropDownWidth = 350 Me.cboBrgDy.DropDownWidth = 350
Me.cboBrgDy.FormattingEnabled = True Me.cboBrgDy.FormattingEnabled = True
Me.cboBrgDy.Location = New System.Drawing.Point(439, 69) Me.cboBrgDy.Location = New System.Drawing.Point(439, 88)
Me.cboBrgDy.Name = "cboBrgDy" Me.cboBrgDy.Name = "cboBrgDy"
Me.cboBrgDy.Size = New System.Drawing.Size(252, 21) Me.cboBrgDy.Size = New System.Drawing.Size(252, 21)
Me.cboBrgDy.TabIndex = 12 Me.cboBrgDy.TabIndex = 12
@@ -1153,7 +1177,7 @@ Partial Class usrCntlZOLLAuswertungen
'Label34 'Label34
' '
Me.Label34.AutoSize = True Me.Label34.AutoSize = True
Me.Label34.Location = New System.Drawing.Point(569, 30) Me.Label34.Location = New System.Drawing.Point(569, 35)
Me.Label34.Name = "Label34" Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(23, 13) Me.Label34.Size = New System.Drawing.Size(23, 13)
Me.Label34.TabIndex = 10 Me.Label34.TabIndex = 10
@@ -1162,24 +1186,15 @@ Partial Class usrCntlZOLLAuswertungen
'datBisDy 'datBisDy
' '
Me.datBisDy.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.datBisDy.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBisDy.Location = New System.Drawing.Point(598, 27) Me.datBisDy.Location = New System.Drawing.Point(598, 32)
Me.datBisDy.Name = "datBisDy" Me.datBisDy.Name = "datBisDy"
Me.datBisDy.Size = New System.Drawing.Size(93, 20) Me.datBisDy.Size = New System.Drawing.Size(93, 20)
Me.datBisDy.TabIndex = 9 Me.datBisDy.TabIndex = 9
' '
'Label36
'
Me.Label36.AutoSize = True
Me.Label36.Location = New System.Drawing.Point(436, 11)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(122, 13)
Me.Label36.TabIndex = 8
Me.Label36.Text = "Gestellungsdatum (Frist):"
'
'Label37 'Label37
' '
Me.Label37.AutoSize = True Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(436, 30) Me.Label37.Location = New System.Drawing.Point(436, 35)
Me.Label37.Name = "Label37" Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(28, 13) Me.Label37.Size = New System.Drawing.Size(28, 13)
Me.Label37.TabIndex = 8 Me.Label37.TabIndex = 8
@@ -1188,7 +1203,7 @@ Partial Class usrCntlZOLLAuswertungen
'datVonDy 'datVonDy
' '
Me.datVonDy.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.datVonDy.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVonDy.Location = New System.Drawing.Point(470, 27) Me.datVonDy.Location = New System.Drawing.Point(470, 32)
Me.datVonDy.Name = "datVonDy" Me.datVonDy.Name = "datVonDy"
Me.datVonDy.Size = New System.Drawing.Size(93, 20) Me.datVonDy.Size = New System.Drawing.Size(93, 20)
Me.datVonDy.TabIndex = 7 Me.datVonDy.TabIndex = 7
@@ -1246,12 +1261,14 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57) Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(757, 1829) Me.tbcntr.Size = New System.Drawing.Size(689, 1829)
Me.tbcntr.TabIndex = 22 Me.tbcntr.TabIndex = 22
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.AutoScroll = True Me.TabPage1.AutoScroll = True
Me.TabPage1.Controls.Add(Me.Label98)
Me.TabPage1.Controls.Add(Me.cboNCTSSystemDY)
Me.TabPage1.Controls.Add(Me.Panel1) Me.TabPage1.Controls.Add(Me.Panel1)
Me.TabPage1.Controls.Add(Me.Label88) Me.TabPage1.Controls.Add(Me.Label88)
Me.TabPage1.Controls.Add(Me.Label82) Me.TabPage1.Controls.Add(Me.Label82)
@@ -1287,11 +1304,54 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(749, 1803) Me.TabPage1.Size = New System.Drawing.Size(681, 1803)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'Label98
'
Me.Label98.AutoSize = True
Me.Label98.Location = New System.Drawing.Point(445, 692)
Me.Label98.Name = "Label98"
Me.Label98.Size = New System.Drawing.Size(139, 13)
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)
Me.Panel1.Controls.Add(Me.GroupBox1)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Location = New System.Drawing.Point(526, 237)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(188, 38)
Me.Panel1.TabIndex = 37
Me.Panel1.Visible = False
'
'pic
'
Me.pic.Image = Global.SDL.My.Resources.Resources.flagge_D
Me.pic.Location = New System.Drawing.Point(275, 14)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(29, 16)
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pic.TabIndex = 15
Me.pic.TabStop = False
'
'Label88 'Label88
' '
Me.Label88.AutoSize = True Me.Label88.AutoSize = True
@@ -2424,16 +2484,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.PictureBox3.TabIndex = 21 Me.PictureBox3.TabIndex = 21
Me.PictureBox3.TabStop = False Me.PictureBox3.TabStop = False
' '
'pic
'
Me.pic.Image = Global.SDL.My.Resources.Resources.flagge_D
Me.pic.Location = New System.Drawing.Point(275, 14)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(29, 16)
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pic.TabIndex = 15
Me.pic.TabStop = False
'
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.flagge_A Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.flagge_A
@@ -2451,29 +2501,11 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(766, 1803) Me.TabPage2.Size = New System.Drawing.Size(698, 1803)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden" Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'UsrCntlAuswertungenUIDPruefung1
'
Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
'
'UsrCntlAuswertungenKunden_Auftragsrueckgang1
'
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1) Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1)
@@ -2482,62 +2514,22 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(766, 1803) Me.TabPage3.Size = New System.Drawing.Size(698, 1803)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung" Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'UsrCntlAuswertungenEV_Veranlagungen1
'
Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
'
'UsrCntlAuswertungenFiskal_IntrastatMeldung1
'
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
'
'UsrCntlAuswertungenFiskalvertretung_42001
'
Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
'
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1) Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1)
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(766, 1803) Me.TabPage4.Size = New System.Drawing.Size(698, 1803)
Me.TabPage4.TabIndex = 3 Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten" Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'TabPage5 'TabPage5
' '
Me.TabPage5.Controls.Add(Me.Label60) Me.TabPage5.Controls.Add(Me.Label60)
@@ -2546,7 +2538,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5" Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(766, 1803) Me.TabPage5.Size = New System.Drawing.Size(698, 1803)
Me.TabPage5.TabIndex = 4 Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED" Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True Me.TabPage5.UseVisualStyleBackColor = True
@@ -2754,38 +2746,79 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(757, 57) Me.pnl.Size = New System.Drawing.Size(689, 57)
Me.pnl.TabIndex = 23 Me.pnl.TabIndex = 23
' '
'Panel1 'UsrCntlAuswertungenUIDPruefung1
' '
Me.Panel1.Controls.Add(Me.Label3) Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.GroupBox1) Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
Me.Panel1.Controls.Add(Me.pic) Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
Me.Panel1.Location = New System.Drawing.Point(526, 237) Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
Me.Panel1.Name = "Panel1" Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
Me.Panel1.Size = New System.Drawing.Size(188, 38)
Me.Panel1.TabIndex = 37
Me.Panel1.Visible = False
' '
'Label95 'UsrCntlAuswertungenKunden_Auftragsrueckgang1
' '
Me.Label95.AutoSize = True Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Me.Label95.Location = New System.Drawing.Point(145, 103) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label95.Name = "Label95" Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
Me.Label95.Size = New System.Drawing.Size(86, 13) Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
Me.Label95.TabIndex = 23 Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
Me.Label95.Text = "NCTS-SYSTEM:" Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
' '
'cboDY_NCTS 'UsrCntlAuswertungenEV_Veranlagungen1
' '
Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
Me.cboDY_NCTS.DropDownWidth = 350 Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
Me.cboDY_NCTS.FormattingEnabled = True Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117) Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
Me.cboDY_NCTS.Name = "cboDY_NCTS" Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21) '
Me.cboDY_NCTS.TabIndex = 22 'UsrCntlAuswertungenFiskal_IntrastatMeldung1
'
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
'
'UsrCntlAuswertungenFiskalvertretung_42001
'
Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'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
' '
'usrCntlZOLLAuswertungen 'usrCntlZOLLAuswertungen
' '
@@ -2796,7 +2829,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen" Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(757, 1174) Me.Size = New System.Drawing.Size(689, 1174)
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
@@ -2814,6 +2847,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.ResumeLayout(False) Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox13.ResumeLayout(False) Me.GroupBox13.ResumeLayout(False)
Me.GroupBox13.PerformLayout() Me.GroupBox13.PerformLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2843,7 +2879,6 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtJahrIMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
@@ -2855,8 +2890,6 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -2936,7 +2969,6 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label34 As System.Windows.Forms.Label Friend WithEvents Label34 As System.Windows.Forms.Label
Friend WithEvents datBisDy As System.Windows.Forms.DateTimePicker Friend WithEvents datBisDy As System.Windows.Forms.DateTimePicker
Friend WithEvents Label35 As System.Windows.Forms.Label Friend WithEvents Label35 As System.Windows.Forms.Label
Friend WithEvents Label36 As System.Windows.Forms.Label
Friend WithEvents Label37 As System.Windows.Forms.Label Friend WithEvents Label37 As System.Windows.Forms.Label
Friend WithEvents datVonDy As System.Windows.Forms.DateTimePicker Friend WithEvents datVonDy As System.Windows.Forms.DateTimePicker
Friend WithEvents Label38 As System.Windows.Forms.Label Friend WithEvents Label38 As System.Windows.Forms.Label
@@ -3095,4 +3127,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label95 As Label Friend WithEvents Label95 As Label
Friend WithEvents cboDY_NCTS As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboDY_NCTS As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents Label98 As Label
Friend WithEvents cboNCTSSystemDY As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboDYDatumArt As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class End Class

50
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -123,6 +123,17 @@ Public Class usrCntlZOLLAuswertungen
cboDY_NCTS.SelectedIndex = 0 cboDY_NCTS.SelectedIndex = 0
cboNCTSSystemDY.Items.Clear()
cboNCTSSystemDY.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NCTS 5 (NEU)", "NCTS5"))
cboNCTSSystemDY.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NCTS 4", "NCTS4"))
cboNCTSSystemDY.SelectedIndex = 0
cboDYDatumArt.Items.Clear()
cboDYDatumArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsdatum (Frist):", "LIMIT"))
cboDYDatumArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eröffnungsdatum", "OPEN"))
cboDYDatumArt.SelectedIndex = 0
cboEZOLLBrg.Items.Clear() cboEZOLLBrg.Items.Clear()
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "")) cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7")) cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
@@ -455,7 +466,7 @@ Public Class usrCntlZOLLAuswertungen
End Function End Function
Function getSQL_NCTS004_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) Function getSQL_NCTS004_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, Optional DYDatumArt As String = "LIMIT")
If brg <> "" Then If brg <> "" Then
brg = " AND nctsGRT_GRN = '" & brg & "' " brg = " AND nctsGRT_GRN = '" & brg & "' "
@@ -471,21 +482,27 @@ Public Class usrCntlZOLLAuswertungen
End If End If
Dim datARt = ""
Select Case DYDatumArt
Case "LIMIT" : datARt = "ncts_LimitDate"
Case "OPEN" : datARt = "ncts_Eroeffnung"
End Select
'*XXXXXXXXXXXXXXXXXXXXXXXX '*XXXXXXXXXXXXXXXXXXXXXXXX
' 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 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, " 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," 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,isnull(ncts_LimitDate,'') as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], 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] " '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" 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" If anrechnungsZP Then sqlStr &= ",isnull(ncts_Ankunft,ncts_Erledigung) as AnrechnungRef"
sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId " sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' " sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " " sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' " sqlStr &= " AND CAST(" & datARt & " as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_LimitDate] ASC " sqlStr &= " ORDER BY " & datARt & " ASC "
Return sqlStr Return sqlStr
@@ -566,7 +583,7 @@ Public Class usrCntlZOLLAuswertungen
End Function End Function
Function getSQL_NCTS004_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) Function getSQL_NCTS004_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, Optional DYDatumArt As String = "LIMIT")
If brg <> "" Then If brg <> "" Then
brg = " AND nctsGRT_GRN = '" & brg & "' " brg = " AND nctsGRT_GRN = '" & brg & "' "
@@ -582,6 +599,11 @@ Public Class usrCntlZOLLAuswertungen
End If End If
Dim datARt = ""
Select Case DYDatumArt
Case "LIMIT" : datARt = "ncts_LimitDate"
Case "OPEN" : datARt = "ncts_Eroeffnung"
End Select
'*XXXXXXXXXXXXXXXXXXXXXXXX '*XXXXXXXXXXXXXXXXXXXXXXXX
@@ -597,8 +619,8 @@ Public Class usrCntlZOLLAuswertungen
sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId inner join [VERAG].[dbo].tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem on ncts_Id = [nctsHCCI_NctsId]" sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId inner join [VERAG].[dbo].tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem on ncts_Id = [nctsHCCI_NctsId]"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' " sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " " sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' " sqlStr &= " AND CAST(" & datARt & " as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY ncts_LimitDate ASC " sqlStr &= " ORDER BY " & datARt & " ASC "
Return sqlStr Return sqlStr
@@ -642,13 +664,13 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim frmPrintLayout As New frmPrintLayout() Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ") frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ", cboNCTSSystemDY._value)
frmPrintLayout.Show() frmPrintLayout.Show()
End Sub End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim frmPrintLayout As New frmPrintLayout() Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA") frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", cboNCTSSystemDY._value)
frmPrintLayout.Show() frmPrintLayout.Show()
End Sub End Sub
@@ -669,6 +691,7 @@ Public Class usrCntlZOLLAuswertungen
End Sub End Sub
Sub doDY_NCTS4_XLS() Sub doDY_NCTS4_XLS()
If cbxSplittungNachPos.Checked Then If cbxSplittungNachPos.Checked Then
@@ -687,12 +710,12 @@ Public Class usrCntlZOLLAuswertungen
Sub doDY_NCTS5_XLS() Sub doDY_NCTS5_XLS()
If cbxSplittungNachPos.Checked Then If cbxSplittungNachPos.Checked Then
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS004_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False), "FMZOLL") Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS004_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False, cboDYDatumArt._value), "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt)) cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
End If End If
Else Else
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS004_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False), "FMZOLL") Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS004_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False, cboDYDatumArt._value), "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt) cProgramFunctions.genExcelFromDT_NEW(dt)
End If End If
@@ -759,7 +782,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim frmPrintLayout As New frmPrintLayout() Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX") frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX", cboNCTSSystemDY._value)
frmPrintLayout.Show() frmPrintLayout.Show()
End Sub End Sub
@@ -769,7 +792,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim frmPrintLayout As New frmPrintLayout() Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR") frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR", cboNCTSSystemDY._value)
frmPrintLayout.Show() frmPrintLayout.Show()
End Sub End Sub
@@ -919,4 +942,5 @@ Public Class usrCntlZOLLAuswertungen
frmPrintLayout.Show() frmPrintLayout.Show()
End Sub End Sub
End Class End Class