diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index aac6d6d4..d690090a 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 303aa325..9a6605dd 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -1809,27 +1809,27 @@ Public Class usrCntlSpeditionsBuchSuche If existingRow IsNot Nothing Then - existingRow("Anzahl") = CInt(existingRow("Anzahl")) + anz - existingRow("BAR") = CDbl(existingRow("BAR")) + bar - existingRow("HANDLING") = CDbl(existingRow("HANDLING")) + handling - existingRow("zu_kassieren_BAR") = CDbl(existingRow("zu_kassieren_BAR")) + zukassBAR - Else - - Dim R As DataRow = dt_summen.NewRow() - R("Anzahl") = anz - R("BAR") = bar - R("HANDLING") = handling - R("zu_kassieren_BAR") = zukassBAR - R("Grenzstelle") = grenzstelle - R("FilialNr") = filialNr - - dt_summen.Rows.Add(R) - End If + existingRow("Anzahl") = CInt(existingRow("Anzahl")) + anz + existingRow("BAR") = CDbl(existingRow("BAR")) + bar + existingRow("HANDLING") = CDbl(existingRow("HANDLING")) + handling + existingRow("zu_kassieren_BAR") = CDbl(existingRow("zu_kassieren_BAR")) + zukassBAR + Else + Dim R As DataRow = dt_summen.NewRow() + R("Anzahl") = anz + R("BAR") = bar + R("HANDLING") = handling + R("zu_kassieren_BAR") = zukassBAR + R("Grenzstelle") = grenzstelle + R("FilialNr") = filialNr + dt_summen.Rows.Add(R) End If - sumAnz += anz + + End If + + sumAnz += anz sumBar += bar sumhandling += handling sumzukassBAR += zukassBAR @@ -1853,7 +1853,7 @@ Public Class usrCntlSpeditionsBuchSuche Dim sb As New System.Text.StringBuilder - sb.AppendLine(String.Format("{0,-15} {1,6} {2,12} {3,15} {4,15}", "Grenzstelle", "Anz", "Bar", "Kassiert BAR", "Handling")) + sb.AppendLine(String.Format("{0,-15} {1,6} {2,12} {3,15} {4,15}", "Grenzstelle", "Anz", "zu kassieren", "kassiert", "Handling")) sb.AppendLine(New String("-"c, 65)) @@ -1861,11 +1861,11 @@ Public Class usrCntlSpeditionsBuchSuche Dim grenzstelle As String = If(IsDBNull(r_("Grenzstelle")), "", r_("Grenzstelle").ToString()) Dim anz As Integer = If(IsDBNull(r_("Anzahl")), 0, CInt(r_("Anzahl"))) - Dim bar As Double = If(IsDBNull(r_("BAR")), 0, CDbl(r_("BAR"))) Dim kass As Double = If(IsDBNull(r_("zu_kassieren_BAR")), 0, CDbl(r_("zu_kassieren_BAR"))) + Dim bar As Double = If(IsDBNull(r_("BAR")), 0, CDbl(r_("BAR"))) Dim handling As Double = If(IsDBNull(r_("HANDLING")), 0, CDbl(r_("HANDLING"))) - sb.AppendLine(String.Format("{0,-15} {1,6} {2,12:N2} {3,15:N2} {4,15:N2}", grenzstelle, anz, bar, kass, handling)) + sb.AppendLine(String.Format("{0,-15} {1,6} {2,12:N2} {3,15:N2} {4,15:N2}", grenzstelle, anz, kass, bar, handling)) Next SumText = sb.ToString() @@ -3119,11 +3119,8 @@ Public Class usrCntlSpeditionsBuchSuche Dim Abfertigungsart As Integer OffertenNr = 2 : Abfertigungsart = 23 - If isGutschrift Then - RG.Anlage_1 = "SA Handling " & grenzstelle - Else - RG.Anlage_1 = "SA Gutschrift " & grenzstelle - End If + + RG.Anlage_1 = "SA " & grenzstelle If grenzstelle = "NKD" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 1 Then RG.Firma_ID = 11 'wenn NKD diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index f327cada..02a35f93 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -2307,9 +2307,7 @@ Public Class usrcntlFakturierung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL If SQL.doSQL("Update tblMDMEinarbeitung set billing_completed = 1, billing_completed_user = '" & cAllgemein.USRKURZNAME & "' where cast(billingdate as Date) = '" & rechnungsdatum.ToShortDateString & "' and isnull(billing_completed,0) = 0 ", "FMZOLL") Then showPic(True, PictureBox11) - - - If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then 'Mailversand nur am SR am Ende des Monats mit Daten des Vormonats + If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1) Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum) @@ -2338,11 +2336,6 @@ Public Class usrcntlFakturierung Private Function createAuswertung(von As Date, bis As Date) As String - 'Daten sind immer vom Vormonat! - - - - Dim SQLString = "SELECT year(rechnungsdatum)Year,MONTH(rechnungsdatum)Month,RechnungsKundenNr CustomerNo, Adressen.Ordnungsbegriff Customer,Adressen.LandKz Ctry, Offertenstamm.OffertenNr, Offertenstamm.OffertenBez,leistungen.LeistungsNr ProdNo,leistungen.LeistungsBez ProdDscr, /*count(distinct([Rechnungsausgang].Rk_ID)) CountInv,*/ sum(RechnungsausgangPositionen.SteuerfreierBetrag+RechnungsausgangPositionen.SteuerpflichtigerBetrag)NetSum,ReverseCharge FROM [VERAG].[dbo].[Rechnungsausgang] inner join Adressen on RechnungsKundenNr=AdressenNr