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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-14 10:40:51 +02:00
parent 8306c6e0eb
commit a7380ff612
11 changed files with 790 additions and 477 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
SDL/kunden/usrCntlCBAM.Designer.vb generated
View File

@@ -62,7 +62,13 @@ Partial Class usrCntlCBAM
Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button()
Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxVERAG = New System.Windows.Forms.CheckBox()
Me.btnCBAM_DS_DAKOSY_XML = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.cntxtAddSdl.SuspendLayout()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout()
'
'lblOffert
@@ -511,9 +517,9 @@ Partial Class usrCntlCBAM
Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False
Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 312)
Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(106, 312)
Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy"
Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(168, 42)
Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35
Me.btnCBAM_DS_DAKOSY_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_DAKOSY_Copy.UseVisualStyleBackColor = True
@@ -554,11 +560,70 @@ Partial Class usrCntlCBAM
Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren"
Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True
'
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.cbxVERAG)
Me.MyPanel1.Location = New System.Drawing.Point(98, 4)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(590, 28)
Me.MyPanel1.TabIndex = 39
'
'cbxVERAG
'
Me.cbxVERAG.AutoSize = True
Me.cbxVERAG.Location = New System.Drawing.Point(8, 6)
Me.cbxVERAG.Name = "cbxVERAG"
Me.cbxVERAG.Size = New System.Drawing.Size(63, 17)
Me.cbxVERAG.TabIndex = 0
Me.cbxVERAG.Text = "VERAG"
Me.cbxVERAG.UseVisualStyleBackColor = True
'
'btnCBAM_DS_DAKOSY_XML
'
Me.btnCBAM_DS_DAKOSY_XML.Enabled = False
Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml
Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 378)
Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML"
Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42)
Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40
Me.btnCBAM_DS_DAKOSY_XML.Text = "XML"
Me.btnCBAM_DS_DAKOSY_XML.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Enabled = False
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(144, 426)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(130, 42)
Me.Button2.TabIndex = 42
Me.Button2.Text = "In Zwischenablage kopieren"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Enabled = False
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(106, 474)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(168, 42)
Me.Button3.TabIndex = 43
Me.Button3.Text = "Alles in Zwischenablage kopieren"
Me.Button3.UseVisualStyleBackColor = True
'
'usrCntlCBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_XML)
Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Copy)
Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Copy)
@@ -600,6 +665,8 @@ Partial Class usrCntlCBAM
Me.Name = "usrCntlCBAM"
Me.Size = New System.Drawing.Size(1041, 576)
Me.cntxtAddSdl.ResumeLayout(False)
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -643,4 +710,9 @@ Partial Class usrCntlCBAM
Friend WithEvents btnCBAM_DS_DHF_VERAG_Copy As Button
Friend WithEvents btnCBAM_DS_DHF_UNISPED_Copy As Button
Friend WithEvents btnCBAM_DS_TELOTEC_Copy As Button
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents cbxVERAG As CheckBox
Friend WithEvents btnCBAM_DS_DAKOSY_XML As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
End Class

296
SDL/kunden/usrCntlCBAM.vb
View File

@@ -23,14 +23,16 @@ Public Class usrCntlCBAM
txtCBAMPruef_DAKOSY.Text = "-"
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
'isnull( eza_anmeldedatum, eza_Trans_DatumZeit)
Dim SQLSTR = "
SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
where eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
@@ -48,10 +50,19 @@ Public Class usrCntlCBAM
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
and eza_status between 50 and 60
"
If cbxVERAG.Checked Then
SQLSTR &= "
and eza_VertretungsVerhaeltnisCode=2
"
Else
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
"
End If
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge"
@@ -79,6 +90,7 @@ Public Class usrCntlCBAM
txtCBAMPruef_DHF_VERAG.Text = "-"
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -86,7 +98,8 @@ Public Class usrCntlCBAM
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
@@ -108,9 +121,20 @@ Public Class usrCntlCBAM
OR ComCd like '280410%'
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
and crn is not null
and zsAnmDHFRefs.ErledigungsTypID like 'F%'
"
If cbxVERAG.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
End If
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -131,6 +155,7 @@ Public Class usrCntlCBAM
txtCBAMPruef_DHF_UNISPED.Text = "-"
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -138,7 +163,8 @@ Public Class usrCntlCBAM
Dim SQLSTR = "
select COUNT(*) from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
@@ -161,8 +187,20 @@ Public Class usrCntlCBAM
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
and zsAnmDHFRefs.ErledigungsTypID like 'F%'
"
If cbxVERAG.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "'
"
End If
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -184,6 +222,7 @@ Public Class usrCntlCBAM
Exit Sub
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
Me.Cursor = Cursors.WaitCursor
Dim SQLSTR = "
@@ -252,6 +291,7 @@ Public Class usrCntlCBAM
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -276,7 +316,7 @@ Public Class usrCntlCBAM
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
@@ -294,11 +334,24 @@ Public Class usrCntlCBAM
OR ezaWP_WarennummerEZT like '280410%'
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer
and eza_status between 50 and 60
"
If cbxVERAG.Checked Then
SQLSTR &= "
and eza_VertretungsVerhaeltnisCode=2
"
Else
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
"
End If
SQLSTR &= " order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
@@ -325,6 +378,7 @@ Public Class usrCntlCBAM
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -336,7 +390,7 @@ Public Class usrCntlCBAM
FROM [VERAG].[dbo].[tblDakosy_EZA]
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
where
isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "'
eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
and
(
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
@@ -355,11 +409,23 @@ Public Class usrCntlCBAM
)
and ezaWP_WarennummerEZT not like '310560%'
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and eza_status between 41 and 60
group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)
and eza_status between 50 and 60
"
If cbxVERAG.Checked Then
SQLSTR &= "
and eza_VertretungsVerhaeltnisCode=2
"
Else
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
"
End If
SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)"
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
@@ -373,15 +439,67 @@ Public Class usrCntlCBAM
'----- XML ----------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DAKOSY_XML.Enabled = False
btnCBAM_DS_DAKOSY_XML.Tag = ""
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType
CBAM_XML.Year = txtJahr.Text
CBAM_XML.ReportingPeriod = cboQuartal._value
For Each g In dt.Rows
Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType
GOODS.CommodityCode.HsCode = g("Tarifnummer").ToString.Substring(0, 6)
GOODS.CommodityCode.CnCode = g("Tarifnummer").ToString.Substring(6, 2)
GOODS.OriginCountry.Country = g("VersendungsLand")
GOODS.MeasureImported.NetMass = g("Eigenmasse")
GOODS.MeasureImported.MeasurementUnit = "KG"
CBAM_XML.ImportedGood.Add(GOODS)
Next
Dim optFileName = EORI & "_XML_" & txtVon._value & "-" & txtBis._value
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
My.Computer.FileSystem.CreateDirectory(sPath)
End If
Dim filename = sPath & optFileName & ".xml"
While System.IO.File.Exists(filename)
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xml"
End While
CBAM_XML.SaveToFile(filename)
btnCBAM_DS_DAKOSY_XML.Tag = filename
btnCBAM_DS_DAKOSY_XML.Enabled = True
Me.Cursor = Cursors.WaitCursor
End If
'---------------------------------------------------------------------------------------------------------------------------------------------
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click,
btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click
btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click,
btnCBAM_DS_DAKOSY_XML.Click
If sender.tag <> "" Then
Try : Process.Start(sender.tag) : Catch : End Try
End If
@@ -439,13 +557,23 @@ Public Class usrCntlCBAM
End If
End Sub
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
btnCBAM_DS_DHF_VERAG_Deteil.Tag = ""
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click, btnCBAM_DS_DHF_UNISPED.Click
Dim EZOLL_SQL = "EZOLL"
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False
btnCBAM_DS_DHF_VERAG_Copy.Enabled = False
btnCBAM_DS_DHF_VERAG_Deteil.Tag = ""
End If
If sender Is btnCBAM_DS_DHF_UNISPED Then
btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = False
btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False
btnCBAM_DS_DHF_UNISPED_Deteil.Tag = ""
EZOLL_SQL = "EZOLL_UNISPED"
End If
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -460,7 +588,8 @@ Public Class usrCntlCBAM
, isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger
, isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
@@ -483,19 +612,38 @@ Public Class usrCntlCBAM
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
order by (SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID ))
"
and zsAnmDHFRefs.ErledigungsTypID like 'F%'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If cbxVERAG.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
"
End If
SQLSTR &= " order by Absender"
Dim dt = SQL.loadDgvBySql(SQLSTR, EZOLL_SQL, 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Deteil.Tag = path
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_Deteil.Tag = path
btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
End If
If sender Is btnCBAM_DS_DHF_UNISPED Then
btnCBAM_DS_DHF_UNISPED_Deteil.Tag = path
btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = True
btnCBAM_DS_DHF_UNISPED_Copy.Enabled = True
End If
Me.Cursor = Cursors.Default
End If
End If
@@ -508,11 +656,19 @@ Public Class usrCntlCBAM
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
End If
If sender Is btnCBAM_DS_DHF_UNISPED Then
btnCBAM_DS_DHF_UNISPED_Summe.Enabled = False
btnCBAM_DS_DHF_UNISPED_Summe.Tag = ""
End If
Try
Dim EORI = txtEori.Text
If cbxVERAG.Checked Then EORI = "VERAG"
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
@@ -521,7 +677,8 @@ Public Class usrCntlCBAM
Dim SQLSTR = "
select left(zsAnmGdsitem.ComCd,8) Tarifnummer, sum(Net)Eigenmasse, sum(ItVal)Rechnungspreis,Orig
from zsAnmRefs
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDHFRefs on zsAnmRefs.LizenzNr=zsAnmDHFRefs.LizenzNr and zsAnmRefs.AnmID=zsAnmDHFRefs.AnmID and zsAnmRefs.VorgangID=zsAnmDHFRefs.VorgangID and zsAnmRefs.OperatorID=zsAnmDHFRefs.OperatorID
inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
@@ -544,17 +701,34 @@ Public Class usrCntlCBAM
)
and ComCd not like '310560%'
and crn is not null
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
GROUP BY Orig,left(zsAnmGdsitem.ComCd,8)
and zsAnmDHFRefs.ErledigungsTypID like 'F%'
"
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
If cbxVERAG.Checked Then
SQLSTR &= "
and DecRep IN(3)
"
Else
SQLSTR &= "
and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "'
"
End If
SQLSTR &= " GROUP BY Orig,left(zsAnmGdsitem.ComCd,8) "
Dim dt = SQL.loadDgvBySql(SQLSTR, EZOLL_SQL, 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DHF_VERAG_Summe.Tag = path
btnCBAM_DS_DHF_VERAG_Summe.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
If sender Is btnCBAM_DS_DHF_VERAG Then
btnCBAM_DS_DHF_VERAG_Summe.Tag = path
btnCBAM_DS_DHF_VERAG_Summe.Enabled = True
btnCBAM_DS_DHF_VERAG_Copy.Enabled = True
End If
If sender Is btnCBAM_DS_DHF_UNISPED Then
btnCBAM_DS_DHF_UNISPED_Summe.Tag = path
btnCBAM_DS_DHF_UNISPED_Summe.Enabled = True
btnCBAM_DS_DHF_UNISPED_Copy.Enabled = True
End If
Me.Cursor = Cursors.Default
End If
@@ -567,4 +741,42 @@ Public Class usrCntlCBAM
Me.Cursor = Cursors.Default
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVERAG.CheckedChanged
txtEori.Enabled = Not cbxVERAG.Checked
End Sub
Private Sub btnCBAM_DS_DAKOSY_XML_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_XML.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New List(Of String)
If btnCBAM_DS_DAKOSY_XML.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_XML.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim f As New List(Of String)
If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag)
If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
If btnCBAM_DS_DAKOSY_XML.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_XML.Tag)
If f.Count > 0 Then
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
End If
End Sub
End Class

8
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -221,7 +221,7 @@ Public Class usrCntlKundenuebersicht
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
btncheckliste.Visible = False
tbcntrAllg.Visible = False
'tbcntrAllg.Visible = False
Case "IMEX"
btnThereforeTarifNr.Visible = True
' btnThereforeTarifNr.Visible = False
@@ -368,8 +368,12 @@ Public Class usrCntlKundenuebersicht
usrCntlAnhaenge.Visible = True
rtbAbf_Besonderheiten.Visible = True
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then KdFirma = KdFirma.Replace("VERAG", "ATILLA") ' WENN KD STAMM ATILLA GETRENNT --> diese Zeile löschen!!!!!!
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
lblFirma.Text = KdFirma
lblFirma.Visible = True
btnVMhinzufuegen.Enabled = False
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then