Datev AMBAR

2025-06-04 10:25:16 +02:00
parent d1a13a444a
commit 36f494f1f1
1 changed files with 4 additions and 0 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