edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Datev

Browse Source
This commit is contained in:
d.breimaier
2023-01-24 16:16:49 +01:00
parent 306386f910
commit 09d7e9f71d
3 changed files with 138 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
View File

@@ -311,7 +311,7 @@
headerString &= datevVersion.ToString & ";" 'Versionnummer Datev
headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen
headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel
headerString &= "11;" 'Buchungsstapel
headerString &= "11;" 'Buchungsstapel -> 12 nicht möglich, steht aber in Schnittsetllenbeschreibung, 11 laut Testdaten???
headerString &= ";;;;;"
headerString &= BeraterNr.ToString & ";"
headerString &= MandantenNr.ToString & ";"
@@ -342,26 +342,28 @@
' If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 --> SONST PROBLKEM BEI UNISPED; DA STEUER vom NETTO abgezogen wird!
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto)
'Soll oder Haben
genBuchungsZeile &= IIf(row("BelegartenNr") = "70", FormatStringDVO(Chr(83)), FormatStringDVO(Chr(72))) & ";"
genBuchungsZeile &= IIf(row("BelegartenNr") = "70", FormatStringDVO(Chr(72)), FormatStringDVO(Chr(83))) & ";"
'Fremdwährungen -> nicht benötigt
genBuchungsZeile &= emptyFormatedValue()
genBuchungsZeile &= emptyFormatedValueWithoutCommas(2)
genBuchungsZeile &= emptyFormatedValue()
'Debitorenkonto
genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";"
'Erlöskonto
genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";"
'Debitorenkonto
genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";"
'BU-Schlüssel -> nicht benötigt
'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
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") & ";"
@@ -372,10 +374,44 @@
' Skontoangabe -> Kontrollieren
genBuchungsZeile &= emptyFormatedValue()
'Buchungstext
genBuchungsZeile &= FormatStringDVO(row("Buchungstext"),, Chr(34) & Chr(34)) & ";"
'genBuchungsZeile &= FormatStringDVO(row("Buchungstext"),, Chr(34) & Chr(34)) & ";"
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(25)
'UID-Nr
genBuchungsZeile &= FormatStringDVO(row("RechnungsUstIdKz")).Substring(0, 3) & FormatStringDVO(row("RechnungsUstIdNr")).Substring(1) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(7)
'Zusatzinformation Art1
genBuchungsZeile &= FormatStringDVO("D-Rechnung.") & ";"
'Zusatzinformation Inhalt1
genBuchungsZeile &= FormatStringDVO("Datum " & CDate(row("Rechnungsdatum")).ToString("ddMMyyyy"))
genBuchungsZeile &= FormatStringDVO("Art RE" & " Re.Nr.")
genBuchungsZeile &= FormatStringDVO(row("Rechnungsnummer")).Substring(0, 2) & "-" & FormatStringDVO(row("Rechnungsnummer")).Substring(2) & ";"
'Zusatzinformation Art2
genBuchungsZeile &= FormatStringDVO("D-RechPositionen.") & ";"
'Zusatzinformation Inhalt2
genBuchungsZeile &= FormatStringDVO(row("Leistungsbezeichnung"), 20) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(45)
'USt-Schlüssel (Anzahlungen)
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(8)
'keine Skontosperre - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(7)
'keine Festschreibung - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leistungsdatum
genBuchungsZeile &= CDate(row("Abfertigungsdatum")).ToString("ddMMyyyy") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(2)
'keine Generallumkehr - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(3)
'genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";"
'Dim KdAtrNr = SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr='" & RgNrOld & "' And Buchungsjahr='" & Geschäftsjahr & "' and Firma_ID='" & FIRMA.Firma_ID & "'", "FMZOLL", "")
@@ -402,7 +438,6 @@
''... aus ...
'SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")))
genBuchungsZeile &= emptyFormatedValue(107)
End Function