CBAM Auswertung; Verzollungspreise; T2 aus EXG manuell
This commit is contained in:
@@ -29,35 +29,39 @@ Public Class usrCntlCBAM
|
||||
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_WHERE_FIRMEN = ""
|
||||
If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'SUB','WAI','SBG','NKD','NEU','AMBWO','AMB','IRU','EXP','SUW','DUR'"
|
||||
If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IME'"
|
||||
If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '???
|
||||
'isnull( eza_anmeldedatum, eza_Trans_DatumZeit)
|
||||
Dim SQLSTR = "
|
||||
SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
where eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
SELECT COUNT(distinct(Registriernummer_MRN)) FROM [tbl_DY_Zollmeldungen_Import]
|
||||
where Überlassungsdatum 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%'
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
)
|
||||
and ezaWP_WarennummerEZT not like '310560%'
|
||||
and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
and Warentarifnummer not like '310560%'
|
||||
|
||||
"
|
||||
|
||||
If cbxVERAG.Checked Then
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then
|
||||
SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
SQLSTR &= "
|
||||
and eza_VertretungsVerhaeltnisCode=2
|
||||
"
|
||||
and left(Art_der_Vertretung,1) IN (2)
|
||||
"
|
||||
Else
|
||||
'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
'SQLSTR &= "
|
||||
@@ -65,14 +69,11 @@ Public Class usrCntlCBAM
|
||||
' "
|
||||
'korrigierte Query:
|
||||
SQLSTR &= "
|
||||
and EXISTS (SELECT 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId = eza_Id AND [ezaAd_AdressTyp] = 'CN' AND isnull([ezaAd_NameFirma1], [ezaAd_TeilnehmerEORI]) ='" & EORI & "')
|
||||
and Empfänger_CN_EORI ='" & EORI & "'
|
||||
"
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge"
|
||||
Me.Cursor = Cursors.Default
|
||||
@@ -88,6 +89,74 @@ Public Class usrCntlCBAM
|
||||
Me.Cursor = Cursors.Default
|
||||
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 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 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)
|
||||
' 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 (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
' "
|
||||
|
||||
' If cbxVERAG.Checked Then
|
||||
' SQLSTR &= "
|
||||
' and eza_VertretungsVerhaeltnisCode=2
|
||||
' "
|
||||
' Else
|
||||
' 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
' 'SQLSTR &= "
|
||||
' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
|
||||
' ' "
|
||||
' 'korrigierte Query:
|
||||
' SQLSTR &= "
|
||||
' and EXISTS (SELECT 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId = eza_Id AND [ezaAd_AdressTyp] = 'CN' AND isnull([ezaAd_NameFirma1], [ezaAd_TeilnehmerEORI]) ='" & 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"
|
||||
' 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()
|
||||
@@ -337,9 +406,9 @@ Public Class usrCntlCBAM
|
||||
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
|
||||
|
||||
Dim SQLSTR_WHERE_FIRMEN = ""
|
||||
If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'VERAG'"
|
||||
If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IMEX'"
|
||||
If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'UNISPED'"
|
||||
If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'SUB','WAI','SBG','NKD','NEU','AMBWO','AMB','IRU','EXP','SUW','DUR'"
|
||||
If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IME'"
|
||||
If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '???
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
@@ -352,50 +421,53 @@ Public Class usrCntlCBAM
|
||||
|
||||
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
|
||||
[Registriernummer_MRN] RegistriernummerATLAS
|
||||
,PositionNo PositionsNummer
|
||||
,max(Überlassungsdatum) Anmeldedatum
|
||||
,max([Bezugsnummer_LRN]) BezugsNr
|
||||
,max([Art_der_Vertretung]) VertretungsVerhaeltnis
|
||||
,max(Warentarifnummer) Tarifnummer
|
||||
,max(Eigenmasse) Eigenmasse
|
||||
,max([VersendungsLand]) VersendungsLand
|
||||
,'DE' Bestimmungsland
|
||||
,max([Rechnungsbetrag])Rechnungspreis
|
||||
,max([Rechnungswährung]) Rechnungswaehrung
|
||||
,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI
|
||||
,isnull(max(CZ_Name), '') as Empfänger
|
||||
,isnull(max(Versender_CZ_EORI),'') as AbsenderEORI
|
||||
,isnull(max(CN_Name), '') as Absender
|
||||
|
||||
FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
FROM [tbl_DY_Zollmeldungen_Import]
|
||||
where
|
||||
eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
Überlassungsdatum 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 (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
(
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
)
|
||||
and Warentarifnummer not like '310560%'
|
||||
|
||||
"
|
||||
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then
|
||||
SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
SQLSTR &= "
|
||||
and eza_VertretungsVerhaeltnisCode=2
|
||||
and left(Art_der_Vertretung,1) IN (2)
|
||||
"
|
||||
|
||||
Else
|
||||
'Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
|
||||
@@ -404,17 +476,17 @@ Public Class usrCntlCBAM
|
||||
' "
|
||||
|
||||
SQLSTR &= "
|
||||
and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
|
||||
and Empfänger_CN_EORI='" & EORI & "'
|
||||
"
|
||||
End If
|
||||
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
SQLSTR &= " group by Registriernummer_MRN,PositionNo"
|
||||
|
||||
SQLSTR &= " order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer"
|
||||
SQLSTR &= " order by Absender,Registriernummer_MRN, PositionNo"
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
MsgBox(SQLSTR)
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600)
|
||||
' MsgBox(SQLSTR)
|
||||
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
|
||||
@@ -447,39 +519,58 @@ Public Class usrCntlCBAM
|
||||
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 ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren
|
||||
|
||||
FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
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)
|
||||
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 (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
SELECT
|
||||
left(Tarifnummer,8) Tarifnummer,sum(Eigenmasse)Eigenmasse,sum(Rohmasse)Rohmasse,sum(Rechnungspreis)Rechnungspreis,VersendungsLand VersendungsLand ,isnull(LEFT(Verfahren2,2),'') Verfahren,isnull(right(left(Verfahren2,4),2),'') VorangegangenesVerfahren
|
||||
FROM (
|
||||
SELECT
|
||||
[Registriernummer_MRN] RegistriernummerATLAS
|
||||
,PositionNo PositionsNummer
|
||||
,max(Überlassungsdatum) Anmeldedatum
|
||||
,max([Bezugsnummer_LRN]) BezugsNr
|
||||
,max([Art_der_Vertretung]) VertretungsVerhaeltnis
|
||||
,max(Warentarifnummer) Tarifnummer
|
||||
,max(Eigenmasse) Eigenmasse
|
||||
,max([VersendungsLand]) VersendungsLand
|
||||
,'DE' Bestimmungsland
|
||||
,max([Rechnungsbetrag])Rechnungspreis
|
||||
,max([Rechnungswährung]) Rechnungswaehrung
|
||||
,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI
|
||||
,isnull(max(CZ_Name), '') as Empfänger
|
||||
,isnull(max(Versender_CZ_EORI),'') as AbsenderEORI
|
||||
,isnull(max(CN_Name), '') as Absender
|
||||
,max(Rohmasse)Rohmasse
|
||||
,max(Verfahren2)Verfahren2
|
||||
|
||||
FROM [tbl_DY_Zollmeldungen_Import]
|
||||
where
|
||||
Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
and
|
||||
(
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
)
|
||||
and Warentarifnummer not like '310560%'
|
||||
|
||||
"
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then
|
||||
SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
SQLSTR &= "
|
||||
and eza_VertretungsVerhaeltnisCode=2
|
||||
and left(Art_der_Vertretung,1) IN (2)
|
||||
"
|
||||
|
||||
Else
|
||||
'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
'SQLSTR &= "
|
||||
@@ -487,17 +578,17 @@ Public Class usrCntlCBAM
|
||||
' "
|
||||
|
||||
SQLSTR &= "
|
||||
and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' and isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
|
||||
and Empfänger_CN_EORI='" & EORI & "'
|
||||
"
|
||||
|
||||
End If
|
||||
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
|
||||
SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren"
|
||||
SQLSTR &= " group by Registriernummer_MRN,PositionNo
|
||||
) as T1 group by VersendungsLand,left(Tarifnummer,8),Verfahren2 "
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 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
|
||||
@@ -537,6 +628,212 @@ Public Class usrCntlCBAM
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub btnCBAM_DS_DAKOSY_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 = ""
|
||||
|
||||
' Dim SQLSTR_WHERE_FIRMEN = ""
|
||||
' If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'VERAG'"
|
||||
' If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IMEX'"
|
||||
' If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'UNISPED'"
|
||||
|
||||
' 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
|
||||
|
||||
|
||||
' 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
|
||||
' 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)
|
||||
' 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 (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
|
||||
' "
|
||||
|
||||
|
||||
' If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
' SQLSTR &= "
|
||||
' and eza_VertretungsVerhaeltnisCode=2
|
||||
' "
|
||||
' Else
|
||||
' 'Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
|
||||
' 'SQLSTR &= "
|
||||
' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
|
||||
' ' "
|
||||
|
||||
' SQLSTR &= "
|
||||
' and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
|
||||
' "
|
||||
' End If
|
||||
|
||||
' If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
|
||||
' SQLSTR &= " order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer"
|
||||
|
||||
|
||||
' Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
' MsgBox(SQLSTR)
|
||||
' 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 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
|
||||
|
||||
' Dim SQLSTR = "
|
||||
' SELECT
|
||||
' left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren
|
||||
|
||||
' FROM [VERAG].[dbo].[tblDakosy_EZA]
|
||||
' inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id
|
||||
' 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)
|
||||
' 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 (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%')
|
||||
|
||||
' "
|
||||
|
||||
' If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
' SQLSTR &= "
|
||||
' and eza_VertretungsVerhaeltnisCode=2
|
||||
' "
|
||||
' Else
|
||||
' 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
|
||||
' 'SQLSTR &= "
|
||||
' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
|
||||
' ' "
|
||||
|
||||
' SQLSTR &= "
|
||||
' and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' and isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
|
||||
' "
|
||||
|
||||
' End If
|
||||
|
||||
' If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")"
|
||||
|
||||
' SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren"
|
||||
|
||||
|
||||
' 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
|
||||
|
||||
|
||||
|
||||
' ''----- XML ----------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' 'btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
' 'btnCBAM_DS_DAKOSY_XML.Tag = ""
|
||||
|
||||
' 'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
' ' '---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
' ' doCBAM_XML(dt, EORI)
|
||||
' ' '---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' '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 ButtonXML_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Button2.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = False
|
||||
|
||||
Reference in New Issue
Block a user