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

Datev Interface, Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-02-01 15:56:02 +01:00
parent 5522fd066c
commit 433031ed56
2 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
View File

@@ -40,7 +40,7 @@
Dim personenRow As String = ""
personenRow &= row("Kontonummer") & ";" 'Mapping für KOntonummern einbauen weil bei AMBAR Kontonummer <> Kundennummer
personenRow &= row("Kontonummer") & ";" 'Mapping für KOntonummern einbauen weil bei AMBAR Kundennummer <> DebitorenNr Datev
personenRow &= FormatStringDVO(row("Name"), 50) & ";"
personenRow &= FormatStringDVO(row("Name2"), 50) & ";"
personenRow &= emptyFormatedValue(4)
@@ -304,7 +304,7 @@
headerString &= Datenkategorie.ToString & ";"
headerString &= Chr(34) & "Debitoren/Kreditoren" & Chr(34) & ";" 'Debitoren\Kreditoren
headerString &= Formatversion.ToString & ";"
headerString &= ";;;;;"
headerString &= emptyFormatedValueWithoutCommas(5)
headerString &= BeraterNr.ToString & ";" 'Beraternummer
headerString &= MandantenNr.ToString & ";" 'Mandantennummer
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
@@ -313,7 +313,7 @@
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
headerString &= Chr(34) & Chr(34) & ";"
headerString &= ";;;;;;;;;;;;"
headerString &= emptyFormatedValueWithoutCommas(12)
Return headerString
End Function
@@ -323,7 +323,7 @@
headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen
headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel
headerString &= "11;" 'Buchungsstapel -> 12 nicht möglich, steht aber in Schnittsetllenbeschreibung, 11 laut Testdaten???
headerString &= ";;;;;"
headerString &= emptyFormatedValueWithoutCommas(5)
headerString &= BeraterNr.ToString & ";"
headerString &= MandantenNr.ToString & ";"
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
@@ -332,7 +332,7 @@
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
headerString &= Chr(34) & Chr(34) & ";"
headerString &= ";;;;;;;;;;;;"
headerString &= emptyFormatedValueWithoutCommas(12)
Return headerString
End Function
@@ -464,6 +464,7 @@
Case Else
For Each r In dt.Rows
If IsNumeric(r("Kontonummer")) AndAlso CInt(r("Kontonummer")) > 2000000 Then r("Kontonummer") = (CInt(r("Kontonummer")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)