Rundunungsdiff bei Gesamtsicherh

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1078,6 +1078,13 @@ Public Class usrcntlKundeBearbeitenFull
         If Filiale > 0 Then
             cboFiliale.changeItem(Filiale)
         End If
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "DANIEL" Then
+            Button5.Visible = True
+        Else
+            Button5.Visible = False
+        End If
+
     End Sub
 
 

VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb

@@ -16,6 +16,7 @@ Public Class cGesamtsicherheitsPositionen
     Property gsp_abfertigungsNr As Object = Nothing
     Property gsp_ATCNr As String
     Property gsp_erstellungsdatum As DateTime
+    Property gsp_isPosRundungsdiff As Boolean
 
     Property gsp_datum As Object = Nothing
 
@@ -49,6 +50,7 @@ Public Class cGesamtsicherheitsPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_ATCNr", gsp_ATCNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_erstellungsdatum", gsp_erstellungsdatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_datum", gsp_datum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_isPosRundungsdiff", gsp_isPosRundungsdiff))
 
 
         Return list

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 BeraterNr As Integer = 3050
-    Shared MandantenNr As Integer = 99999
+    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
+                Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr
-                End Select
+                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 &= datevVersion.ToString & ";"
-        headerString &= DebitorenNr.ToString & ";" 'Debitoren\Kreditoren
+        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 &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
-        headerString &= "6;" 'Sachkontenlänge
+        headerString &= Kontenlänge.ToString & ";"
-        headerString &= ";" 'DatumVon
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
-        headerString &= ";" 'DatumBis
+        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 &= BeraterNr.ToString & ";"
-        headerString &= MandantenNr.ToString & ";" 'Mandantennummer
+        headerString &= MandantenNr.ToString & ";"
-        headerString &= "20210101;" 'WJ-Beginn
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
-        headerString &= "6;" 'Sachkontenlänge
+        headerString &= Kontenlänge.ToString & ";"
-        headerString &= "20210101;" 'DatumVon
+        headerString &= Geschäftsjahr.ToString & "0101" & ";" 'DatumVon
-        headerString &= "20210331;" 'DatumBis
+        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 

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -24,6 +24,8 @@ Public Class cSicherheiten
     Property gs_zollsatz As Object
     Property gs_avisoId As Integer
 
+    Property gs_isRundungsdiff As Boolean
+
     Public hasEntry = False
 
     Dim SQL As New SQL
@@ -65,6 +67,7 @@ Public Class cSicherheiten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_warenort", gs_warenort))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zollsatz", gs_zollsatz))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_avisoId", gs_avisoId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_isRundungsdiff", gs_isRundungsdiff))
 
         Return list
     End Function