Provisionsabrechnung
This commit is contained in:
@@ -3303,7 +3303,7 @@ Public Class cFakturierung
|
||||
If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
|
||||
If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
|
||||
If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
|
||||
If Not CHECK_SR_GESSUM_SQLDT(dt) Then MsgBox("ERR04: Summe der REchnungen in Sammelrechnung ist '0'. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
|
||||
If Not CHECK_SR_GESSUM_SQLDT(dt) Then MsgBox("ERR04: Summe der Rechnungen in Sammelrechnung ist '0'. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
|
||||
'Rechnungsart prüfen, ob Sammelrechnung oder unvollständige SRG /
|
||||
If Not CHECK_SR_RU_RK_SQLDT(dt) Then MsgBox("ERR05: Bei Kopf-Sammelrechnung müssen Kopfdaten und unvollständige Rg-Einträge vorhanden sein. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True
|
||||
|
||||
@@ -3810,7 +3810,7 @@ Public Class cFakturierung
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing, Optional Sammelrechnungskopie As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing, Optional Sammelrechnungskopie As Boolean = False, Optional RG_LIST As List(Of Integer) = Nothing, Optional Firma_ID As Integer = -1) As Boolean
|
||||
Try
|
||||
|
||||
|
||||
@@ -3822,6 +3822,9 @@ Public Class cFakturierung
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(2,3,4) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
|
||||
ElseIf RG_LIST IsNot Nothing Then
|
||||
' MsgBox("Select * FROM Rechnungsausgang WHERE Firma_ID='" & Firma_ID & "' And RechnungsNr IN (" & String.Join(",", RG_LIST) & ") ORDER BY FilialenNr, AbfertigungsNr")
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Firma_ID='" & Firma_ID & "' And RechnungsNr IN (" & String.Join(",", RG_LIST) & ") ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
Else
|
||||
dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
|
||||
End If
|
||||
@@ -3847,8 +3850,11 @@ Public Class cFakturierung
|
||||
'ORIGINAL
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
|
||||
'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf"
|
||||
Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf"
|
||||
'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben
|
||||
Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf"
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
RG_Bezeichnung = "Provisionsabrechnung_" & Now.ToString("yyyyMMdd_HHmmss") & ".pdf"
|
||||
End If
|
||||
|
||||
If isMDMRechnungsdruck Then
|
||||
rpt = SammelRechnungAnlagenDruck_MDM(ROW, isMDMRechnungsdruck, dt, FIRMA, Rechnugnsdruck, KD_RG, RechnungsNr, VorschauID, Sammelrechnungskopie, RG_Bezeichnung, SammelrechnungsDT, tmpPath)
|
||||
@@ -4021,6 +4027,36 @@ Public Class cFakturierung
|
||||
If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper
|
||||
|
||||
|
||||
'--------PROVISIONSABRECHNUNG----------------------------------------
|
||||
Dim ADR_PROV As cAdressen = Nothing
|
||||
Dim KD_ERW_PROV As cKundenErweitert = Nothing
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
rpt.lblUeberschriftRG_GS.Text = "PROVISIONSABRECHNUNG"
|
||||
rpt.lblSummeUeberschrift.Text = "Rechnungsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Visible = False
|
||||
rpt.lblRgNr.Visible = False
|
||||
rpt.lblRgDatumUeberschrift.Text = "Datum:"
|
||||
rpt.lblRgDatum.Text = Now.ToShortDateString
|
||||
'--------
|
||||
Dim ProvisionAn = ""
|
||||
KD_ERW_PROV = New cKundenErweitert(Row("RechnungsKundenNr"))
|
||||
If KD_ERW_PROV IsNot Nothing AndAlso KD_ERW_PROV.kde_Provisionsverguetung Then
|
||||
ADR_PROV = New cAdressen(KD_ERW_PROV.kde_Provisionsverguetung_GSAnKdNr)
|
||||
If ADR_PROV Is Nothing Then Return Nothing
|
||||
|
||||
ProvisionAn = If(ADR_PROV.Name_1, "") & vbNewLine
|
||||
If If(ADR_PROV.Name_2, "") <> "" Then ProvisionAn &= ADR_PROV.Name_2 & vbNewLine
|
||||
If If(ADR_PROV.Straße, "") <> "" Then ProvisionAn &= ADR_PROV.Straße & vbNewLine
|
||||
If If(ADR_PROV.Ort, "") <> "" Then ProvisionAn &= ADR_PROV.Ort & vbNewLine
|
||||
If If(ADR_PROV.LandKz, "") <> "" Then ProvisionAn &= cProgramFunctions.getLandBez_fromISO1Land(ADR_PROV.LandKz, "", Row("RechnungSprache")).ToString.ToUpper
|
||||
|
||||
rpt.lblRechnungAn.Text = ProvisionAn & "" & vbNewLine & "-- Provisionsabrechnung für Kunde: --" & vbNewLine & rpt.lblRechnungAn.Text
|
||||
rpt.lblRechnungAn.Height += 0.5
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------
|
||||
|
||||
|
||||
If isMDMRechnungsdruck Then
|
||||
@@ -4114,93 +4150,111 @@ Public Class cFakturierung
|
||||
End If
|
||||
|
||||
|
||||
'AddHandler rpt.ReportStart, Sub()
|
||||
' If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
' Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID)
|
||||
' rpt.SubReport1.Report = subRptProv
|
||||
' rpt.SubReport1.Visible = True
|
||||
' End If
|
||||
' End Sub
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
|
||||
' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
|
||||
' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
|
||||
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value)
|
||||
If RECHNUNG IsNot Nothing Then
|
||||
rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000")
|
||||
rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
|
||||
' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
|
||||
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value)
|
||||
If RECHNUNG IsNot Nothing Then
|
||||
rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000")
|
||||
rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
|
||||
Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein")
|
||||
rpt.txtAbfertigungsart.Text = AbfertigungsBez
|
||||
Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein")
|
||||
rpt.txtAbfertigungsart.Text = AbfertigungsBez
|
||||
|
||||
rpt.txtPackstuecke.Text = ""
|
||||
If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ")
|
||||
rpt.txtPackstuecke.Text = ""
|
||||
If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ")
|
||||
|
||||
rpt.txtSendungsdetails.Text = ""
|
||||
If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine
|
||||
If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
|
||||
If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
|
||||
rpt.txtSendungsdetails.Text = ""
|
||||
If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine
|
||||
If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
|
||||
If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
|
||||
|
||||
If If(RECHNUNG.Handling, "") <> "" Then
|
||||
rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
|
||||
End If
|
||||
If True Then 'ANLAGEN
|
||||
Dim Anlagen = ""
|
||||
If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
|
||||
If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", "
|
||||
If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", "
|
||||
If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", "
|
||||
If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", "
|
||||
If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", "
|
||||
If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2)
|
||||
If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
|
||||
End If
|
||||
If If(RECHNUNG.Handling, "") <> "" Then
|
||||
rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
|
||||
End If
|
||||
If True Then 'ANLAGEN
|
||||
Dim Anlagen = ""
|
||||
If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
|
||||
If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", "
|
||||
If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", "
|
||||
If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", "
|
||||
If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", "
|
||||
If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", "
|
||||
If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2)
|
||||
If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
|
||||
End If
|
||||
|
||||
|
||||
|
||||
rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
|
||||
rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
|
||||
rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
|
||||
Dim stPfl As Double = 0
|
||||
Dim stFrei As Double = 0
|
||||
Dim stPfl As Double = 0
|
||||
Dim stFrei As Double = 0
|
||||
|
||||
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv!
|
||||
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv!
|
||||
|
||||
For Each p In RECHNUNG.POSITIONEN
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
Next
|
||||
stPfl *= vorzeichen
|
||||
rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
For Each p In RECHNUNG.POSITIONEN
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
'Bei ProvAbr _> Nur Leistungen die als Provisionsabrechnung zählen!
|
||||
If CBool(SQL.DLookup("Provisionsabrechnung", "Leistungen", "LeistungsNr='" & p.LeistungsNr & "'", "FMZOLL")) Then
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
Else
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
|
||||
stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen
|
||||
rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
Next
|
||||
stPfl *= vorzeichen
|
||||
rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
|
||||
sumSteuerpflichtig += stPfl
|
||||
sumSteuerfrei += stFrei
|
||||
' stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen
|
||||
stFrei = stFrei * vorzeichen
|
||||
rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
|
||||
sumSteuerpflichtig += stPfl
|
||||
sumSteuerfrei += stFrei
|
||||
|
||||
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG)
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Or KUNDE_ERW.kde_FakturierungSR_Details Or isMDMRechnungsdruck Then
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID)
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
' rpt.Line10.AnchorBottom = True
|
||||
' rpt.Line10.Height = rpt.Detail.Height
|
||||
End If
|
||||
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
' rpt.Line10.AnchorBottom = True
|
||||
' rpt.Line10.Height = rpt.Detail.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "")
|
||||
rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "")
|
||||
|
||||
@@ -4231,8 +4285,35 @@ Public Class cFakturierung
|
||||
rpt.lblZWSumme.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
Dim NettoGes = sumSteuerpflichtig + sumSteuerfrei
|
||||
Dim ProvProzent As Double = KD_ERW_PROV.kde_Provisionsverguetung_ProzentDL
|
||||
Dim ProvBetrag = NettoGes * ProvProzent
|
||||
Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID)
|
||||
subRptProv.lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
|
||||
|
||||
rpt.SubReport1.Report = subRptProv
|
||||
rpt.SubReport1.Visible = True
|
||||
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
|
||||
|
||||
'rpt.SubReport1.Height = 100 ' nur falls nötig; sonst per Layout
|
||||
Else
|
||||
rpt.SubReport1.Report = Nothing
|
||||
rpt.SubReport1.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
|
||||
Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
@@ -4492,7 +4573,7 @@ Public Class cFakturierung
|
||||
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG)
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID)
|
||||
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
@@ -4574,6 +4655,14 @@ Public Class cFakturierung
|
||||
Return USRKURZNAME
|
||||
End Function
|
||||
|
||||
Shared Function getSBRgNameByMaId(Firma_id As Integer, MAID As Integer) As String
|
||||
|
||||
If MAID <= 0 Then Return ""
|
||||
Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname FROM [tblMitarbeiter] WHERE [mit_id]='" & MAID & "' ", "ADMIN")
|
||||
Return txt
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getSBRgName_FirmaPruef(Firma_id As Integer, USRKURZNAME As String) As String
|
||||
Dim firma = ""
|
||||
|
||||
Reference in New Issue
Block a user