sammelrechnungsdruck, ustva, etc.
This commit is contained in:
@@ -133,7 +133,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||||
|
||||
Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an."
|
||||
Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an."
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -249,7 +249,6 @@ Public Class usrcntlFakturierung
|
||||
ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
|
||||
|
||||
showPic(ok, PictureBox1)
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub
|
||||
|
||||
If Not ok Then Exit Sub
|
||||
|
||||
@@ -286,11 +285,10 @@ Public Class usrcntlFakturierung
|
||||
|
||||
End If
|
||||
|
||||
Dim steuersatz As Double = Math.Floor(r("Steuersatz %"))
|
||||
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
|
||||
|
||||
ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
|
||||
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
|
||||
|
||||
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
|
||||
|
||||
If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
|
||||
|
||||
@@ -405,8 +403,9 @@ Public Class usrcntlFakturierung
|
||||
End If
|
||||
If intZlr > 0 Then
|
||||
|
||||
Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
|
||||
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
|
||||
|
||||
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
|
||||
'Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
|
||||
|
||||
' Die Abfrage liest in der Tabelle Rechnungsausgang,
|
||||
' passend zu den durch die vorherige Abfrage bereitgestellten Parametern.
|
||||
@@ -426,7 +425,7 @@ Public Class usrcntlFakturierung
|
||||
And Rechnungsausgang.RechnungsKundenNr = " & r("RechnungsKundenNr") & "
|
||||
And Rechnungsausgang.BelegartenNr = " & r("BelegartenNr") & "
|
||||
And Rechnungsausgang.Währungscode = '" & r("Währungscode") & "'
|
||||
And Rechnungsausgang.[Steuersatz %] = " & SteuersatzString & "
|
||||
And Rechnungsausgang.[Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & "
|
||||
And Rechnungsausgang.Lastschrift = " & IIf(r("Lastschrift"), 1, 0) & "
|
||||
AND cast(Rechnungsausgang.Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
|
||||
ORDER by
|
||||
@@ -632,8 +631,8 @@ Public Class usrcntlFakturierung
|
||||
|
||||
For Each r In dtBB.Rows
|
||||
'spSelectReDruSchnSumBS415
|
||||
Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
|
||||
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
|
||||
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
|
||||
'Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
|
||||
|
||||
Dim sum As DataTable = (New SQL).loadDgvBySql("SELECT ISNULL(SUM(dbo.RechnungsausgangPositionen.Preis * dbo.RechnungsausgangPositionen.Anzahl),0) AS [Summe von Preis]
|
||||
FROM dbo.Rechnungsausgang INNER JOIN
|
||||
@@ -646,7 +645,7 @@ Public Class usrcntlFakturierung
|
||||
AND (dbo.Rechnungsausgang.RechnungsKundenNr = " & r("RechnungsKundenNr") & ")
|
||||
AND (dbo.Rechnungsausgang.BelegartenNr =" & r("BelegartenNr") & ")
|
||||
AND (dbo.Rechnungsausgang.Währungscode = '" & r("Währungscode") & "')
|
||||
AND (dbo.Rechnungsausgang.[Steuersatz %] =" & SteuersatzString & ")
|
||||
AND (dbo.Rechnungsausgang.[Steuersatz %] =" & steuersatz.ToString.Replace(",", ".") & ")
|
||||
AND (dbo.Rechnungsausgang.Lastschrift =" & IIf(r("Lastschrift"), 1, 0) & ")
|
||||
AND (dbo.Leistungen.BS415 = 1)", "FMZOLL",)
|
||||
If sum.Rows.Count > 0 Then
|
||||
@@ -675,7 +674,7 @@ Public Class usrcntlFakturierung
|
||||
AND (RechnungsKundenNr = " & r("RechnungsKundenNr") & ")
|
||||
AND (BelegartenNr =" & r("BelegartenNr") & ")
|
||||
AND (Währungscode = '" & r("Währungscode") & "')
|
||||
AND ([Steuersatz %] =" & SteuersatzString & ")
|
||||
AND ([Steuersatz %] =" & steuersatz.ToString.Replace(",", ".") & ")
|
||||
AND (Lastschrift =" & IIf(r("Lastschrift"), 1, 0) & ")
|
||||
ORDER BY OffertenNr"
|
||||
|
||||
@@ -1057,7 +1056,8 @@ Public Class usrcntlFakturierung
|
||||
End If
|
||||
cnt += 1
|
||||
|
||||
'Exit For
|
||||
'todo nach test auskommentieren!!!
|
||||
If cnt > 3 Then Exit For
|
||||
|
||||
Next
|
||||
|
||||
@@ -1208,7 +1208,8 @@ Public Class usrcntlFakturierung
|
||||
Dim dtBerichtkunden_PDF As DataTable = (New SQL).loadDgvBySql("SELECT tblMautbericht.[Customer No], Adressen.Ordnungsbegriff AS [Customer name], tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal], Sum(tblMautbericht.[Net Amount]) AS [Net Amount], Sum(tblMautbericht.[VAT Amount]) AS [VAT Amount], Sum(tblMautbericht.[Total Amount]) AS [Total Amount]
|
||||
FROM tblMautbericht INNER JOIN Adressen ON tblMautbericht.[Customer No] = Adressen.AdressenNr
|
||||
WHERE cast(BillingDate as Date) = '" & cbxDateMautbericht._value & "'
|
||||
GROUP BY tblMautbericht.[Customer No], Adressen.Ordnungsbegriff, tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal] ", "FMZOLL")
|
||||
GROUP BY tblMautbericht.[Customer No], Adressen.Ordnungsbegriff, tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal]
|
||||
ORDER BY tblMautbericht.[Licence Plate Number] , tblMautbericht.[Transaction Country], tblMautbericht.[Transaction date] ", "FMZOLL")
|
||||
|
||||
If dtBerichtkunden_PDF.Rows.Count = 0 Then
|
||||
MsgBox("Es wurden keine Daten bereitgestellt")
|
||||
@@ -1243,7 +1244,6 @@ Public Class usrcntlFakturierung
|
||||
|
||||
|
||||
|
||||
|
||||
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte, dtLaender)
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user