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

cbam importer, sessions, mailsender, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-11-09 14:52:32 +01:00
parent 77b757b031
commit dd1986a0ef
7 changed files with 172 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -103,6 +103,8 @@ Public Class cImporter_TelotecToVERAG
AddParty(ZA, "EXPORTER", tel.ExpTra_TIN, tel.ExpTra_Na, tel.ExpTra_Strt, tel.ExpTra_Pst, tel.ExpTra_Cty, tel.ExpTra_Ctry, tel.ExpTra_UID)
AddParty(ZA, "DECLARANT", tel.Declarant_TIN, tel.Declarant_Na, tel.Declarant_Strt, tel.Declarant_Pst, tel.Declarant_Cty, tel.Declarant_Ctry, tel.Declarant_UID)
Dim hasValidCBAMDocNr_VERAG As Boolean = False
' ================================================================
' ABGABEN (HEADER)
' ================================================================
@@ -181,6 +183,12 @@ Public Class cImporter_TelotecToVERAG
.zaDoc_Date = Doc_Date
}
it.Documents.Add(dd)
'CBAM-CHECK
If dd.zaDoc_Code = "Y128" And dd.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
hasValidCBAMDocNr_VERAG = True
End If
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
@@ -196,7 +204,7 @@ Public Class cImporter_TelotecToVERAG
'CBAM WARNING
' ================================================================
If freshinsert Then
ZA.checkfreshCBAMWarning()
ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
End If
' ================================================================
' ================================================================