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

cbam

Browse Source
This commit is contained in:
d.breimaier
2025-10-02 09:25:25 +02:00
parent 6a03240f7e
commit 2651aeec46
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SDL/Resources/CBAM_Auswertung_GP.xlsx
View File

Binary file not shown.

14
SDL/kunden/usrCntlCBAM.vb
View File

@@ -452,7 +452,12 @@ Public Class usrCntlCBAM
,'' as 'importer post code' ,'' as 'importer post code'
,'' as 'importer po box' ,'' as 'importer po box'
,'' as 'importer coordinate longitude (x)' ,'' as 'importer coordinate longitude (x)'
,'' as 'importer coordinate latitude (y)'" ,'' as 'importer coordinate latitude (y)'
,isnull(max(CZ_Name), '') as 'exporter title'
,isnull(max(CZ_Ländercode), '') as 'exporter country code or member state'
,'' as 'exporter street'
,'' as 'exporter street additional'"
Dim SQL_DAKOSY As String = "SELECT Dim SQL_DAKOSY As String = "SELECT
[Registriernummer_MRN] RegistriernummerATLAS [Registriernummer_MRN] RegistriernummerATLAS
,PositionNo PositionsNummer ,PositionNo PositionsNummer
@@ -1177,6 +1182,7 @@ Public Class usrCntlCBAM
Dim f As New List(Of String) Dim f As New List(Of String)
If btnCBAM_DS_DAKOSY_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Detail.Tag) If btnCBAM_DS_DAKOSY_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Detail.Tag)
If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag) If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag)
If btnCBAM_DS_DAKOSY_GP.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_GP.Tag)
If f.Count > 0 Then If f.Count > 0 Then
'Zwischenablage 'Zwischenablage
@@ -1725,6 +1731,12 @@ Public Class usrCntlCBAM
Blatt.Range("AE" & cnt).Value = row("importer po box") Blatt.Range("AE" & cnt).Value = row("importer po box")
Blatt.Range("AF" & cnt).Value = row("importer coordinate longitude (x)") Blatt.Range("AF" & cnt).Value = row("importer coordinate longitude (x)")
Blatt.Range("AG" & cnt).Value = row("importer coordinate latitude (y)") Blatt.Range("AG" & cnt).Value = row("importer coordinate latitude (y)")
Blatt.Range("AH" & cnt).Value = row("exporter title")
Blatt.Range("AI" & cnt).Value = row("exporter country code or member state")
Blatt.Range("AJ" & cnt).Value = row("exporter street")
Blatt.Range("AK" & cnt).Value = row("exporter street additional")
cnt += 1 cnt += 1
rowcounter += 1 rowcounter += 1
Next Next