Fakt. Druckroutine, Ustva

SDL/Fakturierung/cFakturierung.vb

@@ -9,6 +9,7 @@ Imports GrapeCity.ActiveReports.SectionReportModel
 Imports GrapeCity.ActiveReports
 Imports System.ComponentModel
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
+Imports System.Web.UI.WebControls.Expressions
 
 Public Class cFakturierung
 
@@ -2960,7 +2961,10 @@ Public Class cFakturierung
 
             Dim Aktuelle_RgNr As Integer = -1
             If Not vorschau Then
-                Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
+                If Not MDMRENrvoarhanden Then
+                    Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch. nur wenn keine Vorschau oder keine Re.Nr vergeben!!!
+                End If
+
             End If
 
 
@@ -3027,10 +3031,10 @@ Public Class cFakturierung
                     Else
 
                         If SammelrechungArt = 6 Then
-                            If RechnungsdruckArt = 7 Then
+                            If RechnungsdruckArt = 7 Then 'RechnungsdruckArt = 7 ist die Erstellung per MDM-Sammelabrechnung!
                                 RG.[Status] = 2 'Bei MDM Abrechnung; Druck später!!
                             Else
-                                RG.[Status] = 4 ' Beim finalen Versenden der Sammelrechnung
+                                RG.[Status] = 4 ' Beim finalen Versenden der Sammelrechnung keine neue ReNr vergeben.
                                 If RG.RechnungsNr >= 0 Then Aktuelle_RgNr = RG.RechnungsNr
                             End If
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.7.6")>
+<Assembly: AssemblyVersion("1.3.7.7")>
-<Assembly: AssemblyFileVersion("1.3.7.6")>
+<Assembly: AssemblyFileVersion("1.3.7.7")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2,6 +2,7 @@
 Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
+Imports com.sun.tools.corba.se.idl.constExpr
 Imports itextsharp.text.pdf
 Imports itextsharp.text.pdf.parser
 Imports Microsoft.Office.Interop
@@ -743,8 +744,14 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                         USTV_POS.UStVPo_Zeitstempel = Now()
 
-                        USTV_POS.UStVPo_daId = sql.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & USTV_POS.UStVPo_ReDat & "' and Rechnungsausgang.RechnungsNr='" & USTV_POS.UStVPo_ReNr & "' AND FilialenNr = 4814  AND RK_ID is not null", "FMZOLL")
+                        USTV_POS.UStVPo_daId = 0
-                        If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                        Dim rkID = sql.getValueTxtBySql("SELECT TOP(1) isnull(RK_ID,0) FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & USTV_POS.UStVPo_ReDat & "' and Rechnungsausgang.RechnungsNr='" & USTV_POS.UStVPo_ReNr & "' AND FilialenNr = 4814  AND RK_ID is not null", "FMZOLL")
+                        If rkID <> "" AndAlso IsNumeric(rkID) Then USTV_POS.UStVPo_daId = rkID
+                        If USTV_POS.UStVPo_daId > 0 Then
+                            USTV_POS.UStVPo_daId_loeschbar = False
+                        Else
+                            USTV_POS.UStVPo_daId_loeschbar = True
+                        End If
 
 
                         Dim dt_Prod As New DataTable
@@ -1760,7 +1767,7 @@ Public Class frmMDM_USTVAntrag
         If dsID < 0 Then Return ""
 
         'Anschrift Nummerierung:
-        Dim x = 200
+        Dim x = 100
         Dim y = 10
         Dim width = 300
         Dim height = 10

SDL/seriendruck/usrCntlFakturierung.vb

@@ -937,21 +937,33 @@ Public Class usrcntlFakturierung
             End If
         End If
 
-        If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub
+
 
         Dim listPDFs As New List(Of String)
 
-        Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text] 
+        'Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr] 
+        '                                             FROM Rechnungsausgang
+        '                                             WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' 
+        '                                             GROUP BY [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr]
+        '                                             ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr]"
+
+
+        Dim SQLString ="SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, Sum([SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag]) AS Sammelrechnungsbetrag
                                                     FROM Rechnungsausgang
                                                     WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'  
-                                                     ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]"
+                                                    GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]
+                                                    ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr]"
 
 
-        Dim dtSammelrechnungen As DataTable = (New SQL).loadDgvBySql(SQLString, "FMZOLL")
 
-        If dtSammelrechnungen.Rows.Count > 0 Then
 
-            Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen)
+        Dim dtSammelrechnungenGruppiert As DataTable = (New SQL).loadDgvBySql(SQLString, "FMZOLL")
+
+        If dtSammelrechnungenGruppiert.Rows.Count > 0 Then
+
+            If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub
+
+            Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert)
 
             showPic(reNrisSet, PictureBox7)
 
@@ -1036,8 +1048,6 @@ Public Class usrcntlFakturierung
                         End If
                     cnt += 1
 
-                    'todo nach test auskommentieren!!!
-                    'If cnt > 3 Then Exit For
 
                 Next
 

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1365,8 +1365,9 @@ Public Class cFormularManager
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
 
                     For i As Integer = 0 To sPrinters.Count - 1
-                        If i.ToString.ToLower.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
+                        Dim printer As String = sPrinters(i).ToString.ToLower
-                            printerName = i
+                        If printer.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
+                            printerName = printer
                         End If
                     Next
                 End If