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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.6.4")>
<Assembly: AssemblyFileVersion("1.2.6.4")>
<Assembly: AssemblyVersion("1.2.6.5")>
<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 datBis As Date
Public FIRMA As String = "ATILLA"
Public NCTSSystemDY As String = "NCTS5"
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
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%' ) "
Else 'ATILLA
'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
' 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 "
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)"
Dim sqlStr As String = ""
Dim sqlStrSUB As String = ""
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)
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)

3
SDL/Reports/frmPrintLayout.vb
View File

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

3
SDL/SDL.vbproj
View File

@@ -5023,8 +5023,7 @@
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PostBuildEvent>
</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>
</PropertyGroup>
<!-- 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.

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

@@ -92,6 +92,8 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button2 = New System.Windows.Forms.Button()
Me.Label30 = New System.Windows.Forms.Label()
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.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox()
Me.Button8 = New System.Windows.Forms.Button()
@@ -103,7 +105,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.cboBrgDy = New System.Windows.Forms.ComboBox()
Me.Label34 = New System.Windows.Forms.Label()
Me.datBisDy = New System.Windows.Forms.DateTimePicker()
Me.Label36 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.datVonDy = New System.Windows.Forms.DateTimePicker()
Me.Label38 = New System.Windows.Forms.Label()
@@ -112,6 +113,10 @@ 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.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.Label82 = New System.Windows.Forms.Label()
Me.GroupBox13 = New System.Windows.Forms.GroupBox()
@@ -221,18 +226,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.datVonImex = New System.Windows.Forms.DateTimePicker()
Me.Label43 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
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.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.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
@@ -254,9 +251,14 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14 = New System.Windows.Forms.Button()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label95 = New System.Windows.Forms.Label()
Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
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.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -268,6 +270,8 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox13.SuspendLayout()
CType(Me.PictureBox13, 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.txtJahrIMEX, 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()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
@@ -299,7 +302,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox9.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label3
@@ -1038,6 +1040,7 @@ Partial Class usrCntlZOLLAuswertungen
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.cboDYDatumArt)
Me.GroupBox5.Controls.Add(Me.Label95)
Me.GroupBox5.Controls.Add(Me.cboDY_NCTS)
Me.GroupBox5.Controls.Add(Me.cbxSplittungNachPos)
@@ -1051,7 +1054,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.Controls.Add(Me.cboBrgDy)
Me.GroupBox5.Controls.Add(Me.Label34)
Me.GroupBox5.Controls.Add(Me.datBisDy)
Me.GroupBox5.Controls.Add(Me.Label36)
Me.GroupBox5.Controls.Add(Me.Label37)
Me.GroupBox5.Controls.Add(Me.datVonDy)
Me.GroupBox5.Controls.Add(Me.Label38)
@@ -1062,6 +1064,28 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.TabIndex = 19
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
'
Me.cbxSplittungNachPos.AutoSize = True
@@ -1134,7 +1158,7 @@ Partial Class usrCntlZOLLAuswertungen
'Label33
'
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.Size = New System.Drawing.Size(167, 13)
Me.Label33.TabIndex = 13
@@ -1145,7 +1169,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.cboBrgDy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrgDy.DropDownWidth = 350
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.Size = New System.Drawing.Size(252, 21)
Me.cboBrgDy.TabIndex = 12
@@ -1153,7 +1177,7 @@ Partial Class usrCntlZOLLAuswertungen
'Label34
'
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.Size = New System.Drawing.Size(23, 13)
Me.Label34.TabIndex = 10
@@ -1162,24 +1186,15 @@ Partial Class usrCntlZOLLAuswertungen
'datBisDy
'
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.Size = New System.Drawing.Size(93, 20)
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
'
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.Size = New System.Drawing.Size(28, 13)
Me.Label37.TabIndex = 8
@@ -1188,7 +1203,7 @@ Partial Class usrCntlZOLLAuswertungen
'datVonDy
'
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.Size = New System.Drawing.Size(93, 20)
Me.datVonDy.TabIndex = 7
@@ -1246,12 +1261,14 @@ 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(757, 1829)
Me.tbcntr.Size = New System.Drawing.Size(689, 1829)
Me.tbcntr.TabIndex = 22
'
'TabPage1
'
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.Label88)
Me.TabPage1.Controls.Add(Me.Label82)
@@ -1287,11 +1304,54 @@ 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(749, 1803)
Me.TabPage1.Size = New System.Drawing.Size(681, 1803)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
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
'
Me.Label88.AutoSize = True
@@ -2424,16 +2484,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.PictureBox3.TabIndex = 21
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
'
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.Name = "TabPage2"
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.Text = "Kunden"
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
'
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.Name = "TabPage3"
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.Text = "Fiskalvertretung / EV-Veranlagung"
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
'
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1)
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(766, 1803)
Me.TabPage4.Size = New System.Drawing.Size(698, 1803)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
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
'
Me.TabPage5.Controls.Add(Me.Label60)
@@ -2546,7 +2538,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(766, 1803)
Me.TabPage5.Size = New System.Drawing.Size(698, 1803)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2754,38 +2746,79 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(757, 57)
Me.pnl.Size = New System.Drawing.Size(689, 57)
Me.pnl.TabIndex = 23
'
'Panel1
'UsrCntlAuswertungenUIDPruefung1
'
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
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
'
'Label95
'UsrCntlAuswertungenKunden_Auftragsrueckgang1
'
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:"
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
'
'cboDY_NCTS
'UsrCntlAuswertungenEV_Veranlagungen1
'
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
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
'
'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
'
@@ -2796,7 +2829,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
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.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -2814,6 +2847,9 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox13.ResumeLayout(False)
Me.GroupBox13.PerformLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2843,7 +2879,6 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahrIMEX, 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()
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
@@ -2855,8 +2890,6 @@ Partial Class usrCntlZOLLAuswertungen
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -2936,7 +2969,6 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label34 As System.Windows.Forms.Label
Friend WithEvents datBisDy As System.Windows.Forms.DateTimePicker
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 datVonDy As System.Windows.Forms.DateTimePicker
Friend WithEvents Label38 As System.Windows.Forms.Label
@@ -3095,4 +3127,7 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label95 As Label
Friend WithEvents cboDY_NCTS As VERAG_PROG_ALLGEMEIN.MyComboBox
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

50
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -123,6 +123,17 @@ Public Class usrCntlZOLLAuswertungen
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.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
@@ -455,7 +466,7 @@ Public Class usrCntlZOLLAuswertungen
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
brg = " AND nctsGRT_GRN = '" & brg & "' "
@@ -471,21 +482,27 @@ Public Class usrCntlZOLLAuswertungen
End If
Dim datARt = ""
Select Case DYDatumArt
Case "LIMIT" : datARt = "ncts_LimitDate"
Case "OPEN" : datARt = "ncts_Eroeffnung"
End Select
'*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 sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr, "
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,ncts_LimitDate as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], isnull(nctsGRT_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,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] "
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"
sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_LimitDate] ASC "
sqlStr &= " AND CAST(" & datARt & " as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY " & datARt & " ASC "
Return sqlStr
@@ -566,7 +583,7 @@ Public Class usrCntlZOLLAuswertungen
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
brg = " AND nctsGRT_GRN = '" & brg & "' "
@@ -582,6 +599,11 @@ Public Class usrCntlZOLLAuswertungen
End If
Dim datARt = ""
Select Case DYDatumArt
Case "LIMIT" : datARt = "ncts_LimitDate"
Case "OPEN" : datARt = "ncts_Eroeffnung"
End Select
'*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 &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY ncts_LimitDate ASC "
sqlStr &= " AND CAST(" & datARt & " as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY " & datARt & " ASC "
Return sqlStr
@@ -642,13 +664,13 @@ Public Class usrCntlZOLLAuswertungen
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")
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ", cboNCTSSystemDY._value)
frmPrintLayout.Show()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA")
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "ATILLA", cboNCTSSystemDY._value)
frmPrintLayout.Show()
End Sub
@@ -669,6 +691,7 @@ Public Class usrCntlZOLLAuswertungen
End Sub
Sub doDY_NCTS4_XLS()
If cbxSplittungNachPos.Checked Then
@@ -687,12 +710,12 @@ Public Class usrCntlZOLLAuswertungen
Sub doDY_NCTS5_XLS()
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
cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
End If
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
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
@@ -759,7 +782,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX")
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonImex.Text, datBisImex.Text, "IMEX", cboNCTSSystemDY._value)
frmPrintLayout.Show()
End Sub
@@ -769,7 +792,7 @@ Public Class usrCntlZOLLAuswertungen
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR")
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonAmbar.Text, datBisAmbar.Text, "AMBAR", cboNCTSSystemDY._value)
frmPrintLayout.Show()
End Sub
@@ -919,4 +942,5 @@ Public Class usrCntlZOLLAuswertungen
frmPrintLayout.Show()
End Sub
End Class