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

KVI Report

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-09 10:59:15 +02:00
parent 320f35affe
commit cfa9bfe77a
5 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SDL/Resources/KVI_report.xlsx
View File

Binary file not shown.

22
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -3280,10 +3280,12 @@ Public Class usrCntlSpeditionsBuchSuche
Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
Blatt.Range("X" & cnt).Value = row.Item("Herkunft")
Blatt.Range("Y" & cnt).Value = ZOLLANMELDUNG.Incoterms
Blatt.Range("Z" & cnt).Value = row.Item("Verfahren")
Blatt.Range("AA" & cnt).Value = row.Item("Preferenz")
Blatt.Range("AB" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
Blatt.Range("z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
Blatt.Range("AB" & cnt).Value = row.Item("Verfahren")
Blatt.Range("AC" & cnt).Value = row.Item("Preferenz")
Blatt.Range("AD" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
@@ -3332,20 +3334,22 @@ Public Class usrCntlSpeditionsBuchSuche
Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
Blatt.Range("X" & cnt).Value = ""
Blatt.Range("Y" & cnt).Value = ZOLLANMELDUNG.Incoterms
Blatt.Range("Z" & cnt).Value = ""
Blatt.Range("AA" & cnt).Value = ""
Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
Blatt.Range("Z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
Blatt.Range("AB" & cnt).Value = ""
Blatt.Range("AC" & cnt).Value = ""
Blatt.Range("AD" & cnt).Value = ""
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
End If
cnt += 1
End If
End If
cnt += 1
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)

4
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -1158,7 +1158,7 @@ Public Class SQL
If dt.Rows.Count > 1 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then
' MsgBox("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
End If
End If
End If
@@ -1411,7 +1411,7 @@ Public Class SQL
If dt.Rows.Count > 1 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then
' MsgBox("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
End If
End If
s = dt.Rows(0).Item(0)

23
VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb
View File

@@ -211,6 +211,29 @@ Public Class cGreendeal_CBAM_Trn
End Function
Public Shared Function isCBAMTnr(TNR As String, Optional LIST As List(Of String) = Nothing) As Boolean
If LIST Is Nothing Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST Is Nothing Then VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST = cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers
LIST = VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST
End If
If TNR Is Nothing Then Return False
If String.IsNullOrWhiteSpace(TNR) Then Return False
For Each cbamTnr As String In LIST
If Not String.IsNullOrWhiteSpace(cbamTnr) Then
If TNR.StartsWith(cbamTnr.Replace("%", "").Trim) Then
Return True
End If
End If
Next
Return False
End Function
Public Shared Function LoadCBAMTariffNumbers(Optional onlyActive As Boolean = True,
Optional includeExclusions As Boolean = False) _
As List(Of String)

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -28,6 +28,8 @@ Public Class cAllgemein
Public Shared AVISO_LAYOUT_NEW As Boolean = False
Public Shared CBAM_LIST As List(Of String) = Nothing
'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
Public Shared FMZOLL_ATLAS_Datensicherung_OLD As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"