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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2026-05-11 16:46:40 +02:00
parent 9c49307892 230fba0f67
commit e1d468adc3
2 changed files with 50 additions and 16 deletions
Download Patch File Download Diff File 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