fakt, etc.

DAKOSY_Worker/cImporter_DakosyToVERAG.vb

@@ -170,23 +170,25 @@ Public Class cImporter_DakosyToVERAG
 
             If eza.eza_AUFSCHUB IsNot Nothing Then
                 For Each d In eza.eza_AUFSCHUB
+                    If d.ezaAfb_PositionsNummer Is Nothing Then
 
-                    Dim duty As New cVERAG_CustomsDeclarations_Duty
+                        Dim duty As New cVERAG_CustomsDeclarations_Duty
 
-                    duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
-                    duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
-                    duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
-                    duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
-                    duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
-                    duty.zaDuty_AccountHolderName = d.AufschubnehmerName
-                    duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
-                    duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
-                    duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
-                    duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
-                    duty.zaDuty_Currency = "EUR"
-                    duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+                        duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+                        duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+                        duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+                        duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+                        duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+                        duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+                        duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+                        duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+                        duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                        duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                        duty.zaDuty_Currency = "EUR"
+                        duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
 
-                    ZA.Duties.Add(duty)
+                        ZA.Duties.Add(duty)
+                    End If
                 Next
             End If
 
@@ -286,6 +288,35 @@ Public Class cImporter_DakosyToVERAG
                         Next
                     End If
 
+                    ' ================================================================
+                    ' ABGABEN  POS
+                    ' ================================================================
+
+                    If eza.eza_AUFSCHUB IsNot Nothing Then
+                        For Each d In eza.eza_AUFSCHUB
+                            If d.ezaAfb_PositionsNummer IsNot Nothing AndAlso CInt(d.ezaAfb_PositionsNummer) = item.zaItem_PosNo Then
+
+                                Dim duty As New cVERAG_CustomsDeclarations_Duty
+
+                                duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+                                duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+                                duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+                                duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+                                duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+                                duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+                                duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+                                duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+                                duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                                duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+                                duty.zaDuty_Currency = "EUR"
+                                duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+                                duty.zaDuty_Prozentsatz = ToNullableDecimal(d.ezaAfb_Prozentsatz)
+
+                                item.Duties.Add(duty)
+                            End If
+                        Next
+                    End If
+
                     ZA.Items.Add(item)
                 Next
             End If

TELOTEK_Worker_lib/cTelokec.vb

@@ -921,7 +921,9 @@ Public Class cTelotec_Anmeldung
 
             SPEDITIONSBUCH.Rechnungsbetrag = DY.ValData_InvVal
             ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
-            SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross
+            If DY.Hea_TotGross IsNot Nothing Then
+                SPEDITIONSBUCH.Rohmasse = CDbl(DY.Hea_TotGross)
+            End If
 
             'Anhang
             If If(DY.Refs_CRN, "") <> String.Empty Then
@@ -1076,7 +1078,8 @@ Public Class cTelotec_Anmeldung
             ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
             SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross
 
-
+            MsgBox(SPEDITIONSBUCH.Rohmasse)
+            MsgBox(DY.Hea_TotGross)
             'Personal Abfertigung:
             Try
                 If If(DY.dec_CreatePersonalID, DY.Represent_Na) IsNot Nothing Then

UID/usrctlProcedures.vb

@@ -4362,6 +4362,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
                         Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
                         Case "Mauretanien" : ISO2SetCountry = "MR"
                         Case "Vereinigtes Königreich (Nordirland)" : ISO2SetCountry = "GB"
+                        Case "Oman" : ISO2SetCountry = "OM"
                     End Select
 
 

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -1275,8 +1275,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                     If filepath <> "" Then
                         Dim anhenge As New List(Of String)
                         anhenge.Add(filepath)
-                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
-                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC-Import", 19)
+                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von RMC für Importdatei: " & fi.Name & vbNewLine & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & vbNewLine & "*Automatic generated e-mail*",,,,,, anhenge)
                     End If
                 End If
 

initATLASAufschubkonten/frmStartOptions.vb

@@ -413,7 +413,7 @@ Public Class frmStartOptions
                         '---------------------UTA----------------------
                         importFileFromUTAMailAnhang(pfad, betreff)
 
-                    ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Then
+                    ElseIf von.Contains("@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Or von.Contains("q8truck.nl@q8.com") Or von.Contains("df@verag.ag") Or von.Contains("df@verag.ag") Then
                         '---------------------IDS----------------------
 
                         importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -8152,7 +8152,7 @@ repeatRequest:
 
         'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht - 29.04.2026 Start der neuen Funktion!
 
-        Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null  and  dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and CONVERT(DATE, GETDATE())  and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False)
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null  and  dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and CONVERT(DATE, GETDATE()) and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False)
 
         Dim sumTotal_IMEX As Integer = 0
         Dim sumTotal_VERAG As Integer = 0
@@ -8190,7 +8190,9 @@ repeatRequest:
         Dim dtATILLA As DataTable = dt.Clone()
         Dim dt360 As DataTable = dt.Clone()
 
-
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        Dim fileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA")
+        Dim arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD")
 
 
         For Each row In dt.Rows
@@ -8213,21 +8215,15 @@ repeatRequest:
 
                         Try
 
+
                             Dim psi As New ProcessStartInfo()
+                            psi.FileName = fileName
+                            psi.Arguments = arguments & Path
 
                             'Workstation Daniel
                             'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
                             'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar""  --no-notices --action validate --source " & Path & ""
 
-                            'Server - DEVELOPER
-                            'psi.FileName = "C:\Program Files (x86)\Java\jre1.8.0_491\bin\java.exe"
-                            'psi.Arguments = "-jar ""C:\Verag\Mustang-CLI-2.21.0.jar""  --no-notices --action validate --source " & Path & ""
-
-
-                            Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
-                            psi.FileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA")
-                            psi.Arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD") & Path
-
                             psi.RedirectStandardOutput = True
                             psi.RedirectStandardError = True
                             psi.UseShellExecute = False