Datev Interface, Essensbestellungen

SDL/frmEssensbestellungen.vb

@@ -296,7 +296,7 @@ Public Class frmEssensbestellungen
         Dim SQLWhere As String = ""
         If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
 
-        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
+        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung], [eb_abgerechnet]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
 
         dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
         dgvBestellungen.LOAD()
@@ -328,10 +328,19 @@ Public Class frmEssensbestellungen
             .Columns("eb_preis").HeaderText = "Preis"
             .Columns("eb_preis").Width = 40
             .Columns("eb_preis").DefaultCellStyle.Format = "N"
-            .Columns("eb_anmerkung").HeaderText = "Anm"
-            .Columns("eb_anmerkung").Width = 80
+            .Columns("eb_anmerkung").HeaderText = "Anm."
+            .Columns("eb_anmerkung").Width = 70
+            .Columns("eb_abgerechnet").HeaderText = "verrechnet"
+            .Columns("eb_abgerechnet").Width = 70
         End With
 
+        For Each row As DataGridViewRow In dgvBestellungen.Rows
+            If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
+                If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
+            End If
+        Next
+
+
     End Sub
 
     Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)

VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb

@@ -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)