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)