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

Compare commits

base: edv:be348b90023564c7942ff696994307bc70df2fe4
Branches Tags
edv:master edv:ADMIN
...
compare: edv:ADMIN
Branches Tags
edv:ADMIN edv:master

7 Commits
be348b9002 ... ADMIN

Author SHA1 Message Date
d.breimaier
024a414b0f fakt, etc. 2026-05-13 13:44:31 +02:00
d.breimaier
e1d468adc3 Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN 2026-05-11 16:46:40 +02:00
d.breimaier
9c49307892 div. Änderungen 2026-05-11 16:43:04 +02:00
Andreas Luxbauer
230fba0f67 Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN 2026-05-11 11:30:40 +02:00
Andreas Luxbauer
bb14f1910c TC API -> gross Mass issue behoben 2026-05-11 11:30:34 +02:00
d.breimaier
b8bf791514 Zugferd-Check 2026-05-05 13:14:59 +02:00
d.breimaier
fef3150a32 IDS 2026-05-05 10:47:12 +02:00
5 changed files with 61 additions and 30 deletions
Expand all files Collapse all files

59
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -170,23 +170,25 @@ Public Class cImporter_DakosyToVERAG
If eza.eza_AUFSCHUB IsNot Nothing Then If eza.eza_AUFSCHUB IsNot Nothing Then
For Each d In eza.eza_AUFSCHUB 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_ApplicationType = d.ezaAfb_ArtAufschubantrag
duty.zaDuty_AccountType = d.ezaAfb_Aufschubart duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
duty.zaDuty_AccountNo = d.ezaAfb_KontoNr duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
duty.zaDuty_AccountHolderName = d.AufschubnehmerName duty.zaDuty_AccountHolderName = d.AufschubnehmerName
duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
duty.zaDuty_BIN = d.ezaAfb_AufschuBIN duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag) duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag) duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
duty.zaDuty_Currency = "EUR" duty.zaDuty_Currency = "EUR"
duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit) duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
ZA.Duties.Add(duty) ZA.Duties.Add(duty)
End If
Next Next
End If End If
@@ -286,6 +288,35 @@ Public Class cImporter_DakosyToVERAG
Next Next
End If 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) ZA.Items.Add(item)
Next Next
End If End If

7
TELOTEK_Worker_lib/cTelokec.vb
View File

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

1
UID/usrctlProcedures.vb
View File

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

4
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -1275,8 +1275,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If filepath <> "" Then If filepath <> "" Then
Dim anhenge As New List(Of String) Dim anhenge As New List(Of String)
anhenge.Add(filepath) anhenge.Add(filepath)
Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19) 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) 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
End If End If

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -413,7 +413,7 @@ Public Class frmStartOptions
'---------------------UTA---------------------- '---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff) 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---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) 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! '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_IMEX As Integer = 0
Dim sumTotal_VERAG As Integer = 0 Dim sumTotal_VERAG As Integer = 0
@@ -8190,7 +8190,9 @@ repeatRequest:
Dim dtATILLA As DataTable = dt.Clone() Dim dtATILLA As DataTable = dt.Clone()
Dim dt360 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 For Each row In dt.Rows
@@ -8213,21 +8215,15 @@ repeatRequest:
Try Try
Dim psi As New ProcessStartInfo() Dim psi As New ProcessStartInfo()
psi.FileName = fileName
psi.Arguments = arguments & Path
'Workstation Daniel 'Workstation Daniel
'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe" '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 & "" '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.RedirectStandardOutput = True
psi.RedirectStandardError = True psi.RedirectStandardError = True
psi.UseShellExecute = False psi.UseShellExecute = False