fix abrechnung, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -3279,7 +3279,7 @@ Public Class cFakturierung
             Dim RechnungsNr = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
             Dim RechnungsDatum = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
             Dim zahlungszieldatum As Date = CDate(RechnungsDatum).AddDays(ZZTage)
-            Dim desc As InvoiceDescriptor = InvoiceDescriptor.CreateInvoice(addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RechnungsNr, RechnungsDatum, IIf(FIRMA.Firma_ID = 26, CurrencyCodes.GBP, CurrencyCodes.EUR))
+            Dim desc As InvoiceDescriptor = InvoiceDescriptor.CreateInvoice(RechnungsNr, RechnungsDatum, IIf(FIRMA.Firma_ID = 26, CurrencyCodes.GBP, CurrencyCodes.EUR))
 
             Select Case BelegartenKz
                 Case "AR"

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -1,5 +1,7 @@
 Imports System.IO
+Imports GrapeCity.ActiveReports.PageReportModel
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmAbrechnungsMaske
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -199,7 +201,7 @@ Public Class frmAbrechnungsMaske
             Else
 
                 ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID"
-                sqlstr &= " SELECT cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr  as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr"
+                sqlstr &= " SELECT cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr  as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr, ReErfZeitstempel"
                 sqlstr &= ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck, isnull(BelegartenKz, '') as BelegartenKz "
                 sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
                 sqlstr &= " WHERE 1=1 "
@@ -218,6 +220,7 @@ Public Class frmAbrechnungsMaske
                 .Columns("Firma_ID").Visible = False
                 .Columns("RechnungsLandKz").Visible = False
                 .Columns("RechnungsKundenNr").Visible = False
+                .Columns("ReErfZeitstempel").Visible = False
                 .Columns("PosNr").HeaderText = "Pos-Nr."
 
                 If .Columns.Contains("BelegartenKz") Then
@@ -992,10 +995,25 @@ Public Class frmAbrechnungsMaske
 
             If noRE_NR Then MsgBox("ACHTUNG, RechnungsNr wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub
 
-            For Each row As DataGridViewRow In dgvRechnungen.SelectedRows
+            Dim selectedRows = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)
+
+            Select Case cboSort._value
+                Case "EZ"
+                    selectedRows = selectedRows.OrderBy(Function(r) CDate(r.Cells("ReErfZeitstempel").Value))
+
+                Case Else
+                    selectedRows = selectedRows _
+            .OrderBy(Function(r) r.Cells("FilialenNr").Value) _
+            .ThenBy(Function(r) r.Cells("AbfertigungsNr").Value) _
+            .ThenBy(Function(r) r.Cells("RK_ID").Value)
+            End Select
+
+            For Each row As DataGridViewRow In selectedRows
+
+                If row.Cells("RK_ID").Value IsNot DBNull.Value AndAlso IsNumeric(row.Cells("RK_ID").Value) Then
 
-                If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then
                     ListOfRK_ID.Add(CInt(row.Cells("RK_ID").Value))
+
                 End If
 
             Next