cbam
This commit is contained in:
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.3.1.5")>
|
||||
<Assembly: AssemblyFileVersion("1.3.1.5")>
|
||||
<Assembly: AssemblyVersion("1.3.1.6")>
|
||||
<Assembly: AssemblyFileVersion("1.3.1.6")>
|
||||
|
||||
@@ -938,4 +938,197 @@ Public Class usrCntlCBAM
|
||||
Clipboard.SetDataObject(d, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click
|
||||
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Copy.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Deteil.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
|
||||
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
|
||||
,ValData_InvVal 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%'
|
||||
|
||||
and telnam_aktuellsteNachricht=1
|
||||
|
||||
and telanm_ART ='EUA'
|
||||
and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
|
||||
|
||||
|
||||
|
||||
"
|
||||
|
||||
|
||||
If cbxVERAG.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)
|
||||
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 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),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
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user