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

Compare commits

base: edv:7ec27cb8b61131b9094ec9b5a565afead8df3abf
Branches Tags
edv:master edv:ADMIN
..
compare: edv:bcbbf76d311f978e6a599d6916b352ae95ec62fe
Branches Tags
edv:ADMIN edv:master

2 Commits
7ec27cb8b6 ... bcbbf76d31

Author SHA1 Message Date
d.breimaier
bcbbf76d31 fix dyverarbeitung 2026-03-30 15:44:31 +02:00
d.breimaier
525148be30 Verwahrungen -> Fremdwährungen 2026-03-30 13:33:28 +02:00
2 changed files with 20 additions and 11 deletions
Expand all files Collapse all files

18
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -892,7 +892,8 @@ Anzeige:
Dim saldo As Double = GesSichRef.CalcSaldo() Dim saldo As Double = GesSichRef.CalcSaldo()
Dim Warenwert As Double = 0 Dim WarenwertEUR As Double = 0
Dim Warenwert_temp As Double = 0
Dim Sicherheitsbetrag As Double = 0 Dim Sicherheitsbetrag As Double = 0
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten! 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
@@ -913,8 +914,17 @@ Anzeige:
If rowsVorp.Length > 0 Then If rowsVorp.Length > 0 Then
Dim row = rowsVorp(0) Dim row = rowsVorp(0)
Warenwert = CDbl(row("tblSnd_Warenwert")) Warenwert_temp = CDbl(row("tblSnd_Warenwert"))
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) Dim Waehrung = row("tblSnd_WarenwertWaehrung")
If Waehrung <> "EUR" Then
Dim kurs As New cEZB_Waehrungskurse(Waehrung)
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(Warenwert_temp, Waehrung, Today()), 2)
Else
WarenwertEUR = Warenwert_temp
End If
Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
End If End If
End If End If
@@ -978,7 +988,7 @@ Anzeige:
If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett! If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett!
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED) .gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0) .gsp_warenwert = IIf(isCompletelyFinished, WarenwertEUR, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0) .gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
If isCompletelyFinished Then If isCompletelyFinished Then
If Not isNCTS Then If Not isNCTS Then

11
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1550,13 +1550,12 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then 'If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
' If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then ' End If
'End If
End If
End If
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
@@ -7997,7 +7996,7 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden 'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") Dim statusAVISO As Integer = statusAVISO = CInt(SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1))
' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") ' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
Select Case statusAVISO Select Case statusAVISO