571 lines
30 KiB
VB.net
571 lines
30 KiB
VB.net
|
|
|
|
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
|
|
|
|
Public Class usrCntlCBAM
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Public kdnr = -1
|
|
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
|
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Sub New(kdNr)
|
|
InitializeComponent()
|
|
Me.kdnr = kdNr
|
|
End Sub
|
|
|
|
|
|
Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click
|
|
txtCBAMPruef_DAKOSY.Text = "-"
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
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 & "'
|
|
and
|
|
(
|
|
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
|
|
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
|
|
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
|
|
OR ezaWP_WarennummerEZT like '25070080%'
|
|
OR ezaWP_WarennummerEZT like '283421%'
|
|
OR ezaWP_WarennummerEZT like '260112%'
|
|
OR ezaWP_WarennummerEZT like '720211%'
|
|
OR ezaWP_WarennummerEZT like '720219%'
|
|
OR ezaWP_WarennummerEZT like '720241%'
|
|
OR ezaWP_WarennummerEZT like '720249%'
|
|
OR ezaWP_WarennummerEZT like '720260%'
|
|
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
|
|
"
|
|
|
|
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"
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
|
|
txtCBAMPruef_DAKOSY.Text = "0"
|
|
|
|
|
|
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 btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click
|
|
btnCBAMPruef_DAKOSY.PerformClick()
|
|
btnCBAMPruef_DHF_VERAG.PerformClick()
|
|
btnCBAMPruef_DHF_UNISPED.PerformClick()
|
|
btnCBAMPruef_TELOTEC.PerformClick()
|
|
End Sub
|
|
|
|
Private Sub btnCBAMPruef_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_VERAG.Click
|
|
txtCBAMPruef_DHF_VERAG.Text = "-"
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
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 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
|
|
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
|
|
and
|
|
(
|
|
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ComCd,4) between 7301 and 7311
|
|
OR left(ComCd,4) between 7205 and 7229
|
|
OR left(ComCd,4) between 7603 and 7614
|
|
OR ComCd like '25070080%'
|
|
OR ComCd like '283421%'
|
|
OR ComCd like '260112%'
|
|
OR ComCd like '720211%'
|
|
OR ComCd like '720219%'
|
|
OR ComCd like '720241%'
|
|
OR ComCd like '720249%'
|
|
OR ComCd like '720260%'
|
|
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 & "'
|
|
"
|
|
|
|
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600)
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
txtCBAMPruef_DHF_VERAG.Text = dt.Rows(0)(0) & " Einträge"
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
|
|
txtCBAMPruef_DHF_VERAG.Text = "0"
|
|
|
|
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 btnCBAMPruef_DHF_UNISPED_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_UNISPED.Click
|
|
txtCBAMPruef_DHF_UNISPED.Text = "-"
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
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 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
|
|
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
|
|
and
|
|
(
|
|
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ComCd,4) between 7301 and 7311
|
|
OR left(ComCd,4) between 7205 and 7229
|
|
OR left(ComCd,4) between 7603 and 7614
|
|
OR ComCd like '25070080%'
|
|
OR ComCd like '283421%'
|
|
OR ComCd like '260112%'
|
|
OR ComCd like '720211%'
|
|
OR ComCd like '720219%'
|
|
OR ComCd like '720241%'
|
|
OR ComCd like '720249%'
|
|
OR ComCd like '720260%'
|
|
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 & "'
|
|
"
|
|
|
|
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600)
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
txtCBAMPruef_DHF_UNISPED.Text = dt.Rows(0)(0) & " Einträge"
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
|
|
txtCBAMPruef_DHF_UNISPED.Text = "0"
|
|
|
|
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 btnCBAMPruef_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_TELOTEC.Click
|
|
txtCBAMPruef_TELOTEC.Text = "nicht verfügbar"
|
|
Exit Sub
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim SQLSTR = "
|
|
|
|
|
|
|
|
"
|
|
|
|
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
txtCBAMPruef_TELOTEC.Text = dt.Rows(0)(0) & " Einträge"
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
|
|
txtCBAMPruef_TELOTEC.Text = "0"
|
|
|
|
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 usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
txtJahr.Text = Now.Year
|
|
|
|
|
|
If Now.Month < 3 Then
|
|
txtJahr.Text = Now.Year - 1
|
|
cboQuartal.Text = "Q4"
|
|
ElseIf Now.Month < 6 Then : cboQuartal.Text = "Q1"
|
|
ElseIf Now.Month < 9 Then : cboQuartal.Text = "Q2"
|
|
ElseIf Now.Month < 12 Then : cboQuartal.Text = "Q3"
|
|
End If
|
|
|
|
If kdnr > 0 Then
|
|
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
|
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
|
End If
|
|
If KD IsNot Nothing Then
|
|
txtEori.Text = KD.EORITIN
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged
|
|
If cboQuartal.Text <> "" And IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then
|
|
|
|
Select Case cboQuartal.Text
|
|
Case "Q1" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
|
Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
|
Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
|
Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
|
|
|
End Select
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
|
|
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
|
|
btnCBAM_DS_DAKOSY_Copy.Enabled = False
|
|
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
|
|
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
Dim SQLSTR = "
|
|
SELECT
|
|
[eza_ANR] RegistriernummerATLAS
|
|
,ezaWP_PositionsNummer PositionsNummer
|
|
,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum
|
|
,[eza_ObjectName] BezugsNr
|
|
,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis
|
|
,ezaWP_WarennummerEZT Tarifnummer
|
|
,ezaWP_Eigenmasse Eigenmasse
|
|
,[eza_VersendungsLandCode] VersendungsLand
|
|
,[eza_Bestimmungsland] Bestimmungsland
|
|
,[ezaWP_Artikelpreis]Rechnungspreis
|
|
,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung
|
|
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger
|
|
,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender
|
|
|
|
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 & "'
|
|
and
|
|
(
|
|
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
|
|
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
|
|
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
|
|
OR ezaWP_WarennummerEZT like '25070080%'
|
|
OR ezaWP_WarennummerEZT like '283421%'
|
|
OR ezaWP_WarennummerEZT like '260112%'
|
|
OR ezaWP_WarennummerEZT like '720211%'
|
|
OR ezaWP_WarennummerEZT like '720219%'
|
|
OR ezaWP_WarennummerEZT like '720241%'
|
|
OR ezaWP_WarennummerEZT like '720249%'
|
|
OR ezaWP_WarennummerEZT like '720260%'
|
|
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
|
|
"
|
|
|
|
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)
|
|
btnCBAM_DS_DAKOSY_Deteil.Tag = path
|
|
btnCBAM_DS_DAKOSY_Deteil.Enabled = True
|
|
btnCBAM_DS_DAKOSY_Copy.Enabled = True
|
|
Me.Cursor = Cursors.Default
|
|
|
|
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
|
|
|
|
|
|
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
btnCBAM_DS_DAKOSY_Summe.Enabled = False
|
|
btnCBAM_DS_DAKOSY_Summe.Tag = ""
|
|
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
Dim SQLSTR = "
|
|
SELECT
|
|
left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand
|
|
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 & "'
|
|
and
|
|
(
|
|
left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311
|
|
OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229
|
|
OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614
|
|
OR ezaWP_WarennummerEZT like '25070080%'
|
|
OR ezaWP_WarennummerEZT like '283421%'
|
|
OR ezaWP_WarennummerEZT like '260112%'
|
|
OR ezaWP_WarennummerEZT like '720211%'
|
|
OR ezaWP_WarennummerEZT like '720219%'
|
|
OR ezaWP_WarennummerEZT like '720241%'
|
|
OR ezaWP_WarennummerEZT like '720249%'
|
|
OR ezaWP_WarennummerEZT like '720260%'
|
|
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
|
|
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)
|
|
btnCBAM_DS_DAKOSY_Summe.Tag = path
|
|
btnCBAM_DS_DAKOSY_Summe.Enabled = True
|
|
btnCBAM_DS_DAKOSY_Copy.Enabled = True
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
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
|
|
If sender.tag <> "" Then
|
|
Try : Process.Start(sender.tag) : Catch : End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnCBAM_DS_DAKOSY_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Copy.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 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 btnCBAM_DS_DHF_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG_Copy.Click
|
|
Dim f As New List(Of String)
|
|
If btnCBAM_DS_DHF_VERAG_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Deteil.Tag)
|
|
If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.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 btnCBAM_DS_DHF_UNISPED_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_UNISPED_Copy.Click
|
|
Dim f As New List(Of String)
|
|
If btnCBAM_DS_DHF_UNISPED_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Deteil.Tag)
|
|
If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.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 btnCBAM_DS_TELOTEC_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC_Copy.Click
|
|
Dim f As New List(Of String)
|
|
If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
|
|
If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.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 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 = ""
|
|
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
Dim SQLSTR = "
|
|
select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis
|
|
, Orig Ursprungsland
|
|
|
|
, isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender
|
|
, isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender
|
|
, 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 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
|
|
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
|
|
and
|
|
(
|
|
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ComCd,4) between 7301 and 7311
|
|
OR left(ComCd,4) between 7205 and 7229
|
|
OR left(ComCd,4) between 7603 and 7614
|
|
OR ComCd like '25070080%'
|
|
OR ComCd like '283421%'
|
|
OR ComCd like '260112%'
|
|
OR ComCd like '720211%'
|
|
OR ComCd like '720219%'
|
|
OR ComCd like '720241%'
|
|
OR ComCd like '720249%'
|
|
OR ComCd like '720260%'
|
|
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 )) 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 ))
|
|
"
|
|
|
|
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 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
|
|
Me.Cursor = Cursors.Default
|
|
|
|
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
|
|
|
|
|
|
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
btnCBAM_DS_DHF_VERAG_Summe.Enabled = False
|
|
btnCBAM_DS_DHF_VERAG_Summe.Tag = ""
|
|
|
|
Try
|
|
Dim EORI = txtEori.Text
|
|
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
|
|
|
|
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 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
|
|
where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "'
|
|
and
|
|
(
|
|
left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
|
OR left(ComCd,4) between 7301 and 7311
|
|
OR left(ComCd,4) between 7205 and 7229
|
|
OR left(ComCd,4) between 7603 and 7614
|
|
OR ComCd like '25070080%'
|
|
OR ComCd like '283421%'
|
|
OR ComCd like '260112%'
|
|
OR ComCd like '720211%'
|
|
OR ComCd like '720219%'
|
|
OR ComCd like '720241%'
|
|
OR ComCd like '720249%'
|
|
OR ComCd like '720260%'
|
|
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 )) LIKE '" & EORI & "'
|
|
GROUP BY Orig,left(zsAnmGdsitem.ComCd,8)
|
|
"
|
|
|
|
Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 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
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
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
|
|
End Class
|