Rundunungsdiff bei Gesamtsicherh

2023-01-23 08:07:21 +01:00
parent 277542caea
commit 5cf4737596
5 changed files with 2080 additions and 2057 deletions
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
@@ -1,14 +1,16 @@
 Public Class cDatev_Interface

    Shared datevVersion As Integer = 700
-    Shared DebitorenNr As Integer = 16
+    Shared Datenkategorie As Integer = 16
    Shared StapelbuchungsNr As Integer = 21
-    Shared BeraterNr As Integer = 1001
-    Shared MandantenNr As Integer = 99999
+    Shared BeraterNr As Integer = 3050
+    Shared MandantenNr As Integer = 12533
+    Shared Kontenlänge As Integer = 6
+    Shared Formatversion As Integer = 4
    Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
    'STAMMDATEN
    Shared Function getStammdaten() As DataTable
-        Dim sqlStr = "Select KundenNrZentrale As [Kontonummer], isnull([Name 1],'') as Name, isnull([Name 2],'') as Name2, LTRIM([Ort]) as Ort,KundenNr As [Kundennummer],isnull(UstIdKz,'') As [EU-Land] ,isnull(UstIdNr,'') As [EU-UstID], isnull(Anrede,'') as Anrede,isnull(KTO,'') as Bankkonto, isnull(BLZ,'') as [BLZ], '' as [Bankname], '' as [Länderkennzeichen Bank], '' as [IBAN], '' as [BIC], '' as [Anrede], '' as [Adresszusatz], ISNULL([Strasse],'') as Strasse, ISNULL(PLZ,'') as PLZ,  isnull(UstIdNr,'') as [Steuernummer], isnull(Ansprechpartner,'') as [Ansprechpartner], isnull(Telefon,'') as [Telefonnummer], isnull([E-Mail],'') as [E-Mail], isnull([Telefax],'') as [Faxnummer], '' as [Internetadresse],  isnull(Adressen.landkz,'') as [Länderkennzeichen]"
+        Dim sqlStr = "Select top (10) KundenNrZentrale As [Kontonummer], isnull([Name 1],'') as Name, isnull([Name 2],'') as Name2, LTRIM([Ort]) as Ort,KundenNr As [Kundennummer],isnull(UstIdKz,'') As [EU-Land] ,isnull(UstIdNr,'') As [EU-UstID], isnull(Anrede,'') as Anrede,isnull(KTO,'') as Bankkonto, isnull(BLZ,'') as [BLZ], '' as [Bankname], '' as [Länderkennzeichen Bank], '' as [IBAN], '' as [BIC], '' as [Anrede], '' as [Adresszusatz], ISNULL([Strasse],'') as Strasse, ISNULL(PLZ,'') as PLZ,  isnull(UstIdNr,'') as [Steuernummer], isnull(Ansprechpartner,'') as [Ansprechpartner], isnull(Telefon,'') as [Telefonnummer], isnull([E-Mail],'') as [E-Mail], isnull([Telefax],'') as [Faxnummer], '' as [Internetadresse],  isnull(Adressen.landkz,'') as [Länderkennzeichen]"
        sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr  "
        sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
        sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
@@ -69,7 +71,7 @@
        personenRow &= FormatStringDVO(row("Bankkonto")) & ";"
        personenRow &= emptyFormatedValue()
        personenRow &= FormatStringDVO(row("IBAN")) & ";"
-        personenRow &= emptyFormatedValue(208)
+        personenRow &= emptyFormatedValue(197)

        Return personenRow

@@ -107,7 +109,7 @@
                    fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))


-                    fileKD.WriteLine(genStammdatenHeader())
+                    fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr))
                    fileKD.WriteLine(genStammdatenBeginn())

                    initKDNr(dt_Stamm)
@@ -184,8 +186,9 @@
                Select Case FIRMA.Firma_ID
                    Case 21 : NameZusatz = "UNISPED_AT_" : Buchungsjahr = Geschaeftsjahr
                    Case 22 : NameZusatz = "UNISPED_DE_" : Buchungsjahr = Geschaeftsjahr
-                    Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr
-                End Select
+                Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr
+                Case 24 : NameZusatz = "AMBAR_" : Buchungsjahr = Geschaeftsjahr
+            End Select


                '----------------- Buchungssätze -----------------
@@ -200,7 +203,7 @@

                            '   initKDNr(dt_Buchungen)
                            Dim SummeBuchungen As Double = 0
-                        file.WriteLine(genStapelbuchungsHeader())
+                        file.WriteLine(genStapelbuchungsHeader(Geschaeftsjahr))
                        file.WriteLine(genBuchungenBeginn())
                        For Each r In dt_Buchungen.Rows
                                file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
@@ -266,15 +269,13 @@
                        ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
                        ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext
                       FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
-                       WHERE Firma_ID ='1' AND Sachkonto <> ''
+                       WHERE IVO.Rechnungsnummer = '21400139'
                       group by IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
                       ORDER BY Rechnungsdatum, Rechnungsnummer "
        ' --and IVO.Rechnungsnummer=19400002
        Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)

        'WHERE Firma_ID ='" & Firma_ID & "'  AND TrdinDateiname Is Null
-        'WHERE IVO.Rechnungsnummer = '21400139'
-
    End Function

    Public Shared Function genBuchungenBeginn() As String
@@ -286,38 +287,38 @@



-    Public Shared Function genStammdatenHeader() As String
+    Public Shared Function genStammdatenHeader(Geschäftsjahr As Integer) As String
        Dim headerString = Chr(34) & "EXTF" & Chr(34) & ";" 'Export aus 3rd Party App
-        headerString &= datevVersion.ToString & ";" 'Versionnummer Datev
-        headerString &= DebitorenNr.ToString & ";" 'Debitoren\Kreditoren
+        headerString &= datevVersion.ToString & ";"
+        headerString &= Datenkategorie.ToString & ";"
        headerString &= Chr(34) & "Debitoren/Kreditoren" & Chr(34) & ";" 'Debitoren\Kreditoren
-        headerString &= "5;" 'Debitoren\Kreditoren
+        headerString &= Formatversion.ToString & ";"
        headerString &= ";;;;;"
        headerString &= BeraterNr.ToString & ";" 'Beraternummer
        headerString &= MandantenNr.ToString & ";" 'Mandantennummer
-        headerString &= "20210101;" 'WJ-Beginn
-        headerString &= "6;" 'Sachkontenlänge
-        headerString &= ";" 'DatumVon
-        headerString &= ";" 'DatumBis
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
+        headerString &= Kontenlänge.ToString & ";"
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
+        headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
        headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
        headerString &= Chr(34) & Chr(34) & ";"
        headerString &= ";;;;;;;;;;;;"
        Return headerString
    End Function

-    Public Shared Function genStapelbuchungsHeader() As String
+    Public Shared Function genStapelbuchungsHeader(Geschäftsjahr As Integer) As String
        Dim headerString = Chr(34) & "EXTF" & Chr(34) & ";" 'Export aus 3rd Party App
        headerString &= datevVersion.ToString & ";" 'Versionnummer Datev
        headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen
        headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel
        headerString &= "11;" 'Buchungsstapel
        headerString &= ";;;;;"
-        headerString &= BeraterNr.ToString & ";" 'Beraternummer
-        headerString &= MandantenNr.ToString & ";" 'Mandantennummer
-        headerString &= "20210101;" 'WJ-Beginn
-        headerString &= "6;" 'Sachkontenlänge
-        headerString &= "20210101;" 'DatumVon
-        headerString &= "20210331;" 'DatumBis
+        headerString &= BeraterNr.ToString & ";"
+        headerString &= MandantenNr.ToString & ";"
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
+        headerString &= Kontenlänge.ToString & ";"
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
+        headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
        headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
        headerString &= Chr(34) & Chr(34) & ";"
        headerString &= ";;;;;;;;;;;;"
@@ -351,7 +352,17 @@
        'Erlöskonto
        genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";"
        'BU-Schlüssel -> nicht benötigt
-        genBuchungsZeile &= emptyFormatedValue()
+
+        'genBuchungsZeile &= emptyFormatedValue()
+        genBuchungsZeile &= getSteuercode(row, FIRMA) & ";"
+        If CBool(row("Steuerpflichtig")) Then
+            genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
+        Else
+            genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
+        End If
+
+
+
        'Belegdatum
        genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("ddMM") & ";"
        'Belegfeld1 -> Rechnungsnummer