Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

2025-06-04 10:57:19 +02:00
parent 85c6a43c7e b8cbc02757
commit 43bc9196e4
2 changed files with 7 additions and 3 deletions
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
@@ -614,6 +614,10 @@ Public Class cDatev_Interface
            Case 24
                If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 3000000 AndAlso ktoNr.Length = 7 Then ktoNr = (CInt(ktoNr) - 3000000) '- 300000

+                If ktoNr = 13401 Then
+                    ktoNr = 73401 'AMBAR halt, DONT ASK!
+                End If
+
            Case Else

                If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000