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

fakt, Version, Spedbuch-Suche

Browse Source
This commit is contained in:
d.breimaier
2026-06-09 16:11:51 +02:00
parent 3724f77c4c
commit c6762fa687
3 changed files with 25 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

47
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1809,27 +1809,27 @@ Public Class usrCntlSpeditionsBuchSuche
If existingRow IsNot Nothing Then If existingRow IsNot Nothing Then
existingRow("Anzahl") = CInt(existingRow("Anzahl")) + anz existingRow("Anzahl") = CInt(existingRow("Anzahl")) + anz
existingRow("BAR") = CDbl(existingRow("BAR")) + bar existingRow("BAR") = CDbl(existingRow("BAR")) + bar
existingRow("HANDLING") = CDbl(existingRow("HANDLING")) + handling existingRow("HANDLING") = CDbl(existingRow("HANDLING")) + handling
existingRow("zu_kassieren_BAR") = CDbl(existingRow("zu_kassieren_BAR")) + zukassBAR existingRow("zu_kassieren_BAR") = CDbl(existingRow("zu_kassieren_BAR")) + zukassBAR
Else 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
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 End If
sumAnz += anz
End If
sumAnz += anz
sumBar += bar sumBar += bar
sumhandling += handling sumhandling += handling
sumzukassBAR += zukassBAR sumzukassBAR += zukassBAR
@@ -1853,7 +1853,7 @@ Public Class usrCntlSpeditionsBuchSuche
Dim sb As New System.Text.StringBuilder 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)) 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 grenzstelle As String = If(IsDBNull(r_("Grenzstelle")), "", r_("Grenzstelle").ToString())
Dim anz As Integer = If(IsDBNull(r_("Anzahl")), 0, CInt(r_("Anzahl"))) 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 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"))) 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 Next
SumText = sb.ToString() SumText = sb.ToString()
@@ -3119,11 +3119,8 @@ Public Class usrCntlSpeditionsBuchSuche
Dim Abfertigungsart As Integer Dim Abfertigungsart As Integer
OffertenNr = 2 : Abfertigungsart = 23 OffertenNr = 2 : Abfertigungsart = 23
If isGutschrift Then
RG.Anlage_1 = "SA Handling " & grenzstelle RG.Anlage_1 = "SA " & grenzstelle
Else
RG.Anlage_1 = "SA Gutschrift " & grenzstelle
End If
If grenzstelle = "NKD" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 1 Then If grenzstelle = "NKD" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 1 Then
RG.Firma_ID = 11 'wenn NKD RG.Firma_ID = 11 'wenn NKD

9
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -2307,9 +2307,7 @@ Public Class usrcntlFakturierung
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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 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) showPic(True, PictureBox11)
If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then
If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then 'Mailversand nur am SR am Ende des Monats mit Daten des Vormonats
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1) Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1)
Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum) Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum)
@@ -2338,11 +2336,6 @@ Public Class usrcntlFakturierung
Private Function createAuswertung(von As Date, bis As Date) As String 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 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] FROM [VERAG].[dbo].[Rechnungsausgang]
inner join Adressen on RechnungsKundenNr=AdressenNr inner join Adressen on RechnungsKundenNr=AdressenNr