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

NCTS Auswertungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-27 15:03:12 +02:00
parent 47ad49ba44
commit 917326ab79
1 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -376,9 +376,9 @@ Public Class usrCntlZOLLAuswertungen
Dim sqlStr = ""
If cbxSplittungNachPos.Checked Then
sqlStr = getSQL_NCTS_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
sqlStr = getSQL_NCTS004_ATLAS_DY_POS(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
Else
sqlStr = getSQL_NCTS_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
sqlStr = getSQL_NCTS004_ATLAS_DY(datVonDy.Text, datBisDy.Text, txtStatVonDy.Text, txtStatBisDy.Text, DirectCast(cboBrgDy.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag.Checked, False)
End If
@@ -449,7 +449,7 @@ Public Class usrCntlZOLLAuswertungen
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
MsgBox(sqlStr)
Return sqlStr
End Function
@@ -458,7 +458,7 @@ Public Class usrCntlZOLLAuswertungen
Function getSQL_NCTS004_ATLAS_DY(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
brg = " AND nctsGRT_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
@@ -467,7 +467,7 @@ Public Class usrCntlZOLLAuswertungen
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_ATILLA As String = "20AT520000G000092"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "', '" & brg_AT_ATILLA & "' ) "
brg = " AND nctsGRT_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "', '" & brg_AT_ATILLA & "' ) "
End If
@@ -475,17 +475,17 @@ Public Class usrCntlZOLLAuswertungen
'*XXXXXXXXXXXXXXXXXXXXXXXX
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr, "
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as Gestellungsdatum,isnull(nctsSA_AbgabenBetrag,0) as [Sichertheits-Betrag], isnull(nctsSA_GRN,'') as Buergschaft "
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,ncts_LimitDate as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], isnull(nctsGRT_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",(SELECT COUNT(*) FROM tblDakosy_NCTSOut_Warenposition where nctsWP_NctsId=ncts_Id) as POS"
If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef"
sqlStr &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId"
sqlStr &= ",( SELECT COUNT(*) FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem where ncts_Id = [nctsHCCI_NctsId]) as POS"
If anrechnungsZP Then sqlStr &= ",isnull(ncts_Ankunft,ncts_Erledigung) as AnrechnungRef"
sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_LimitDate] ASC "
Return sqlStr
@@ -561,7 +561,7 @@ Public Class usrCntlZOLLAuswertungen
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
MsgBox(sqlStr)
Return sqlStr
End Function
@@ -569,7 +569,7 @@ Public Class usrCntlZOLLAuswertungen
Function getSQL_NCTS004_ATLAS_DY_POS(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
brg = " AND nctsGRT_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
@@ -578,7 +578,7 @@ Public Class usrCntlZOLLAuswertungen
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim brg_AT_ATILLA As String = "20AT520000G000092"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "', '" & brg_AT_ATILLA & "' ) "
brg = " AND nctsGRT_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "', '" & brg_AT_ATILLA & "' ) "
End If
@@ -586,19 +586,19 @@ Public Class usrCntlZOLLAuswertungen
'*XXXXXXXXXXXXXXXXXXXXXXXX
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsGRT_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ",(SELECT TOP (1) convert(date,[dySt_ergZeitpunkt] ,104) FROM [tblDakosy_Statusmeldungen] where dySt_dyId=[ncts_dyaAnmID] and [dySt_status] IN (53,60) order by dySt_status) as AnrechnungRef"
sqlStr &= ", ncts_AbgangsDienststellennummer as BesAbgZA, ncts_BestimmungsstelleDienststellennummer as BestZA, [nctsWP_Rohmasse] as Rohmasse"
sqlStr &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId inner join [VERAG].[dbo].[tblDakosy_NCTSOut_Warenposition] on ncts_Id = [nctsWP_NctsId]"
sqlStr &= " isnull(ncts_Consignee_Name,isnull(ncts_Consignee_IdentificationNumber,'')) as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Trans_DatumZeit as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,ncts_LimitDate as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsGRT_AmountToBeCovered,0) as [SichertheitsBetrag], isnull(nctsGRT_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],ncts_GrossMass [ncts_GesamtRohmasse],'0' [ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",[nctsHCCI_DeclarationGoodsItemNumber] as POS, nctsHCCI_DescriptionOfGoods as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ",isnull(ncts_Ankunft,ncts_Erledigung) as AnrechnungRef"
sqlStr &= ", [ncts_CustomsOfficeOfDeparture] as BesAbgZA, [ncts_CustomsOfficeOfDestinationDeclared] as BestZA, ncts_GrossMass as Rohmasse"
sqlStr &= " from tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId inner join [VERAG].[dbo].tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem on ncts_Id = [nctsHCCI_NctsId]"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
sqlStr &= " AND CAST(ncts_LimitDate as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY ncts_LimitDate ASC "
Return sqlStr