Chat fix, CBAM, USTV, etc.
This commit is contained in:
@@ -424,7 +424,7 @@ Public Class usrCntlCBAM
|
||||
|
||||
Dim SQL_DAKOSY = ""
|
||||
Dim SQL_GP = ""
|
||||
getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String
|
||||
getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, SQL_GP) '--> Aufbau SQL String
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600)
|
||||
|
||||
@@ -673,7 +673,7 @@ Public Class usrCntlCBAM
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP)
|
||||
Sub getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, ByRef SQL_DAKOSY, ByRef SQL_GP)
|
||||
|
||||
SQL_GP = "SELECT [Registriernummer_MRN] as 'declaration no'
|
||||
,max(Überlassungsdatum) as 'declaration date'
|
||||
@@ -782,6 +782,219 @@ Public Class usrCntlCBAM
|
||||
SQL_DAKOSY &= SQLSTR
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getDY_Detail_SQL_DHF(EORI, ByRef SQL_DHF, ByRef SQL_GP)
|
||||
|
||||
|
||||
'Conee = Importeur
|
||||
'Conor = Exportuer
|
||||
|
||||
SQL_GP = "SELECT CRN as 'declaration no'
|
||||
,cast(DecDT as date) as 'declaration date'
|
||||
,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 )),'') as 'importer identification number'
|
||||
,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 )),'') as 'exporter identification number'
|
||||
, zsAnmGdsitem.ComCd as 'commodity code'
|
||||
,Orig as 'origin country code'
|
||||
,Left(isnull(ProcCd, '00'),2) as 'requested procedure'
|
||||
,'' as 'previous procedure'
|
||||
,(Net / 1000) as 'net mass'
|
||||
,'TONNES' as 'type of measurement unit'
|
||||
,'' as 'invoice numbers'
|
||||
,'' as 'invoice date'
|
||||
,'' as 'member state auth'
|
||||
,'' as 'discharge bill waiver'
|
||||
,'' as 'authorisation'
|
||||
,'' as 'start time'
|
||||
,'' as 'end time'
|
||||
,'' as 'deadline'
|
||||
,'' as 'reporting declarant EORI number'
|
||||
,'' as 'type of representation'
|
||||
,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 )),'') as 'importer title'
|
||||
,'' as 'importer email'
|
||||
,'' as 'importer phone'
|
||||
,isnull((SELECT Ctry FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer country code or member state'
|
||||
,'' as 'importer subdivision'
|
||||
,isnull((SELECT Cty FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer city'
|
||||
,isnull((SELECT Strt FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer street'
|
||||
,'' as 'importer street additional'
|
||||
,'' as 'importer address number'
|
||||
,isnull((SELECT Pst FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'') as 'importer post code'
|
||||
,'' as 'importer po box'
|
||||
,'' as 'importer coordinate longitude (x)'
|
||||
,'' as 'importer coordinate latitude (y)'
|
||||
,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 )),'') as 'exporter title'
|
||||
,isnull((SELECT Ctry FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter country code or member state'
|
||||
,isnull((SELECT Strt FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') as 'exporter street'
|
||||
,'' as 'exporter street additional'"
|
||||
|
||||
SQL_DHF = "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"
|
||||
|
||||
Dim SQLSTR = " from zsAnmRefs
|
||||
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
|
||||
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 zsAnmDHFRefs.ErledigungsTypID like 'F%'"
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.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
|
||||
|
||||
SQL_GP &= SQLSTR
|
||||
SQL_GP &= " order by 'importer identification number'"
|
||||
|
||||
SQL_DHF &= SQLSTR
|
||||
SQL_DHF &= " order by Absender"
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub getDY_Detail_SQL_TT(EORI, ByRef SQL_TT, ByRef SQL_GP)
|
||||
|
||||
'Conee = Importeur
|
||||
'Conor = Exportuer
|
||||
|
||||
SQL_GP = "SELECT telanm_CRN as 'declaration no'
|
||||
,cast(dec_CreateDate as Date) 'declaration date'
|
||||
,isnull(ConeeTra_TIN,'') as 'importer identification number'
|
||||
,isnull(ConorTra_TIN,'') as 'exporter identification number'
|
||||
, Item_ComCd as 'commodity code'
|
||||
, isnull(Item_orig,'') as 'origin country code'
|
||||
,Left(Item_ProcCd,2) as 'requested procedure'
|
||||
,'' as 'previous procedure'
|
||||
,(isnull(Item_net,0) / 1000) as 'net mass'
|
||||
,'TONNES' as 'type of measurement unit'
|
||||
,'' as 'invoice numbers'
|
||||
,'' as 'invoice date'
|
||||
,'' as 'member state auth'
|
||||
,'' as 'discharge bill waiver'
|
||||
,'' as 'authorisation'
|
||||
,'' as 'start time'
|
||||
,'' as 'end time'
|
||||
,'' as 'deadline'
|
||||
,isnull(Declarant_TIN,'') as 'reporting declarant EORI number'
|
||||
,isnull(Declarant_Na,'') as 'type of representation'
|
||||
,isnull(ConeeTra_Na,'') as 'importer title'
|
||||
,'' as 'importer email'
|
||||
,'' as 'importer phone'
|
||||
,isnull(ConeeTra_Ctry,'') as 'importer country code or member state'
|
||||
,'' as 'importer subdivision'
|
||||
,isnull(ConeeTra_Cty,'') as 'importer city'
|
||||
,isnull(ConeeTra_Strt,'') as 'importer street'
|
||||
,'' as 'importer street additional'
|
||||
,'' as 'importer address number'
|
||||
,isnull(ConeeTra_Pst,'') as 'importer post code'
|
||||
,'' as 'importer po box'
|
||||
,'' as 'importer coordinate longitude (x)'
|
||||
,'' as 'importer coordinate latitude (y)'
|
||||
,isnull(ConorTra_Na,'') as 'exporter title'
|
||||
,isnull(ConorTra_Ctry,'') as 'exporter country code or member state'
|
||||
,isnull(ConorTra_Strt,'') as 'exporter street'
|
||||
,'' as 'exporter street additional'"
|
||||
|
||||
SQL_TT = "SELECT
|
||||
telanm_CRN Registriernummer
|
||||
,Pos_ID PositionsNummer
|
||||
,dec_CreateDate Anmeldedatum
|
||||
,telanm_BezugsNr BezugsNr
|
||||
,Declarant_DecRep VertretungsVerhaeltnis
|
||||
,Item_ComCd Tarifnummer
|
||||
,dec_TotNet Eigenmasse
|
||||
,Locs_Disp VersendungsLand
|
||||
, Locs_Dest Bestimmungsland
|
||||
,Item_ItVal Rechnungspreis
|
||||
,ValData_InvCurr Rechnungswaehrung
|
||||
,ConeeTra_TIN as Empfänger
|
||||
,ConeeTra_Na as Empfänger_
|
||||
,ConorTra_TIN as Absender
|
||||
,ConorTra_Na as Absender_ "
|
||||
|
||||
Dim SQLSTR = "FROM [VERAG].[dbo].[tblTelotec_Anmeldung]
|
||||
inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id
|
||||
|
||||
where 1=1
|
||||
|
||||
and
|
||||
(
|
||||
left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Item_ComCd,4) between 7301 and 7311
|
||||
OR left(Item_ComCd,4) between 7205 and 7229
|
||||
OR left(Item_ComCd,4) between 7603 and 7614
|
||||
OR Item_ComCd like '25070080%'
|
||||
OR Item_ComCd like '283421%'
|
||||
OR Item_ComCd like '260112%'
|
||||
OR Item_ComCd like '720211%'
|
||||
OR Item_ComCd like '720219%'
|
||||
OR Item_ComCd like '720241%'
|
||||
OR Item_ComCd like '720249%'
|
||||
OR Item_ComCd like '720260%'
|
||||
OR Item_ComCd like '280410%'
|
||||
)
|
||||
and Item_ComCd not like '310560%'
|
||||
|
||||
and telnam_aktuellsteNachricht=1
|
||||
|
||||
and telanm_ART ='EUA'
|
||||
and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
SQLSTR &= "
|
||||
and Declarant_DecRep IN(1,3,5,7)
|
||||
"
|
||||
Else
|
||||
SQLSTR &= "
|
||||
and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/
|
||||
"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
SQL_GP &= SQLSTR
|
||||
SQL_GP &= " order by ConorTra_TIN,telanm_CRN "
|
||||
SQL_TT &= SQLSTR
|
||||
SQL_TT &= " order by Absender,telanm_CRN "
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click
|
||||
@@ -1105,7 +1318,7 @@ Public Class usrCntlCBAM
|
||||
If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '???
|
||||
|
||||
Dim SQL_DAKOSY = ""
|
||||
getDY_Detail_SQL(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String
|
||||
getDY_Detail_SQL_DK(SQLSTR_WHERE_FIRMEN, EORI, SQL_DAKOSY, "") '--> Aufbau SQL String
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQL_DAKOSY, "AVISO", 600)
|
||||
@@ -1319,6 +1532,12 @@ Public Class usrCntlCBAM
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click, btnCBAM_DS_DHF_UNISPED.Click
|
||||
|
||||
btnCBAM_DS_DHF_UNISPED_GP.Enabled = False
|
||||
btnCBAM_DS_DHF_VERAG_GP.Enabled = False
|
||||
btnCBAM_DS_DHF_UNISPED_GP.Tag = ""
|
||||
btnCBAM_DS_DHF_VERAG_GP.Tag = ""
|
||||
|
||||
Dim EZOLL_SQL = "EZOLL"
|
||||
If sender Is btnCBAM_DS_DHF_VERAG Then
|
||||
btnCBAM_DS_DHF_VERAG_Detail.Enabled = False
|
||||
@@ -1340,56 +1559,17 @@ Public Class usrCntlCBAM
|
||||
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 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
|
||||
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 zsAnmDHFRefs.ErledigungsTypID like 'F%'
|
||||
"
|
||||
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.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
|
||||
Dim SQL_DHF = ""
|
||||
Dim SQL_GP = ""
|
||||
getDY_Detail_SQL_DHF(EORI, SQL_DHF, SQL_GP) '--> Aufbau SQL String
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQL_DHF, EZOLL_SQL, 600)
|
||||
|
||||
Dim dtGP = SQL.loadDgvBySql(SQL_GP, EZOLL_SQL, 600)
|
||||
|
||||
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)
|
||||
If sender Is btnCBAM_DS_DHF_VERAG Then
|
||||
@@ -1407,6 +1587,52 @@ Public Class usrCntlCBAM
|
||||
End If
|
||||
|
||||
|
||||
If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
'If ReDaten.Rows.Count > 0 Then
|
||||
' dtGP.Columns("invoice date").ReadOnly = False
|
||||
' dtGP.Columns("invoice numbers").ReadOnly = False
|
||||
' dtGP.Columns("invoice date").MaxLength = -1
|
||||
' dtGP.Columns("invoice numbers").MaxLength = -1
|
||||
'End If
|
||||
|
||||
'For Each r As DataRow In dtGP.Rows
|
||||
' Dim MDN_NR As String = r("declaration no")
|
||||
|
||||
' ' Look for matching row in dt2
|
||||
' Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
|
||||
|
||||
|
||||
|
||||
' If found.Length > 0 Then
|
||||
|
||||
' Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")
|
||||
' If rechnugnsdatum <> "" Then rechnugnsdatum.Replace("00:00:00", "")
|
||||
|
||||
' r("invoice date") = rechnugnsdatum
|
||||
' r("invoice numbers") = found(0)("Positionsunterlagennummer")
|
||||
' Else
|
||||
' r("invoice date") = "-"
|
||||
' r("invoice numbers") = "-"
|
||||
' End If
|
||||
|
||||
'Next
|
||||
If sender Is btnCBAM_DS_DHF_VERAG Then
|
||||
btnCBAM_DS_DHF_VERAG_GP.Tag = ""
|
||||
btnCBAM_DS_DHF_VERAG_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
|
||||
btnCBAM_DS_DHF_VERAG_GP.Enabled = True
|
||||
End If
|
||||
|
||||
If sender Is btnCBAM_DS_DHF_UNISPED Then
|
||||
btnCBAM_DS_DHF_UNISPED_GP.Tag = ""
|
||||
btnCBAM_DS_DHF_UNISPED_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
|
||||
btnCBAM_DS_DHF_UNISPED_GP.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -1544,7 +1770,8 @@ Public Class usrCntlCBAM
|
||||
Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click
|
||||
btnCBAM_DS_TELOTEC_Detail.Enabled = False
|
||||
btnCBAM_DS_TELOTEC_Copy.Enabled = False
|
||||
btnCBAM_DS_TELOTEC_Detail.Tag = ""
|
||||
btnCBAM_DS_TELOTEC_GP.Enabled = False
|
||||
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
@@ -1554,72 +1781,15 @@ Public Class usrCntlCBAM
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim SQLSTR = "
|
||||
SELECT
|
||||
telanm_CRN Registriernummer
|
||||
,Pos_ID PositionsNummer
|
||||
,dec_CreateDate Anmeldedatum
|
||||
,telanm_BezugsNr BezugsNr
|
||||
,Declarant_DecRep VertretungsVerhaeltnis
|
||||
,Item_ComCd Tarifnummer
|
||||
,dec_TotNet Eigenmasse
|
||||
,Locs_Disp VersendungsLand
|
||||
, Locs_Dest Bestimmungsland
|
||||
,Item_ItVal Rechnungspreis
|
||||
,ValData_InvCurr Rechnungswaehrung
|
||||
,ConeeTra_TIN as Empfänger
|
||||
,ConeeTra_Na as Empfänger_
|
||||
,ConorTra_TIN as Absender
|
||||
,ConorTra_Na as Absender_
|
||||
|
||||
FROM [VERAG].[dbo].[tblTelotec_Anmeldung]
|
||||
inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id
|
||||
|
||||
where 1=1
|
||||
|
||||
and
|
||||
(
|
||||
left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Item_ComCd,4) between 7301 and 7311
|
||||
OR left(Item_ComCd,4) between 7205 and 7229
|
||||
OR left(Item_ComCd,4) between 7603 and 7614
|
||||
OR Item_ComCd like '25070080%'
|
||||
OR Item_ComCd like '283421%'
|
||||
OR Item_ComCd like '260112%'
|
||||
OR Item_ComCd like '720211%'
|
||||
OR Item_ComCd like '720219%'
|
||||
OR Item_ComCd like '720241%'
|
||||
OR Item_ComCd like '720249%'
|
||||
OR Item_ComCd like '720260%'
|
||||
OR Item_ComCd like '280410%'
|
||||
)
|
||||
and Item_ComCd not like '310560%'
|
||||
Dim SQL_TT = ""
|
||||
Dim SQL_GP = ""
|
||||
getDY_Detail_SQL_TT(EORI, SQL_TT, SQL_GP) '--> Aufbau SQL String
|
||||
|
||||
and telnam_aktuellsteNachricht=1
|
||||
Dim dt = SQL.loadDgvBySql(SQL_TT, "FMZOLL", 600)
|
||||
|
||||
and telanm_ART ='EUA'
|
||||
and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
|
||||
|
||||
|
||||
|
||||
"
|
||||
Dim dtGP = SQL.loadDgvBySql(SQL_GP, "FMZOLL", 600)
|
||||
|
||||
|
||||
If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then
|
||||
SQLSTR &= "
|
||||
and Declarant_DecRep IN(1,3,5,7)
|
||||
"
|
||||
Else
|
||||
SQLSTR &= "
|
||||
and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/
|
||||
"
|
||||
End If
|
||||
|
||||
SQLSTR &= " order by Absender,telanm_CRN "
|
||||
|
||||
|
||||
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,, False)
|
||||
btnCBAM_DS_TELOTEC_Detail.Tag = path
|
||||
@@ -1630,6 +1800,15 @@ Public Class usrCntlCBAM
|
||||
End If
|
||||
|
||||
|
||||
If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
btnCBAM_DS_TELOTEC_GP.Tag = ""
|
||||
btnCBAM_DS_TELOTEC_GP.Tag = createExcelForGreenPulse(dtGP, EORI, "")
|
||||
btnCBAM_DS_TELOTEC_GP.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)
|
||||
|
||||
Reference in New Issue
Block a user