abrechungsmaske, etc.

This commit is contained in:
2026-07-22 17:15:40 +02:00
parent 73e1092042
commit 4e8ddb8afc

View File

@@ -941,6 +941,17 @@ Anzeige:
End If
Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100), 2)
'Prüfung einbauen, ob es in dieser Gestellung bereits zu dieser ATB-Nr dieser Sicherheitsbetrag eingefügt wurde, dann einfach 0 einfügen-
If True Then
If dtGesamtsicherheit.AsEnumerable().Any(Function(r) r.Field(Of String)("gs_MRNNr") = MRN_SUMA AndAlso r.Field(Of Double)("gsp_Warenwert") = WarenwertEUR) Then
Sicherheitsbetrag = 0
WarenwertEUR = 0
End If
End If
End If
End If