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

Fremdrechnungen, MDM-Zinsrechnung, etc,

Browse Source
This commit is contained in:
d.breimaier
2025-10-23 11:41:13 +02:00
parent 0cf0691ff8
commit 7c4794d385
8 changed files with 314 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3,12 +3,9 @@ Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Net Imports System.Net
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports com.sun.org.apache.xpath.internal.operations
Imports javax.print.attribute.standard
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports s2industries.ZUGFeRD Imports s2industries.ZUGFeRD
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cFakturierung Public Class cFakturierung
@@ -2319,6 +2316,28 @@ Public Class cFakturierung
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then
rpt.lblLeistungNr.Visible = False
rpt.lblAnzahl.Visible = False
rpt.lblSteuerfrei.Visible = False
rpt.lblSteuerpflichtig.Visible = False
rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
rpt.lblLeistungUeberschrift.Text = "RechnungsNr"
rpt.lblAnzahlUeberschrift.Text = "Tage"
rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a."
rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
rpt.lbl_onlyZR_VZUeberschrift.Visible = True
rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True
rpt.txtLeistung.Visible = False
End If
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
@@ -2610,14 +2629,15 @@ Public Class cFakturierung
If RECHNUNG.Firma_ID = 19 Then If RECHNUNG.Firma_ID = 19 Then
If rpt.lblSteuerbetrag.Text = "" Then rpt.lblSteuersatz.Text = ""
'rpt.lblSteuersatz.Visible = False 'rpt.lblSteuersatz.Visible = False
'rpt.lblSteuerbetrag.Visible = False 'rpt.lblSteuerbetrag.Visible = False
rpt.lblSteuerpflichtigGes.Visible = False rpt.lblSteuerpflichtigGes.Visible = False
rpt.lblSteuerfreiGes.Visible = False rpt.lblSteuerfreiGes.Visible = False
rpt.lblZwText.Visible = False rpt.lblZwText.Visible = False
rpt.lblZWSumme.Visible = False rpt.lblZWSumme.Visible = False
End If End If
End Sub End Sub

154
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb generated
View File

@@ -103,10 +103,14 @@ Partial Public Class rptRechnungDruck_MDM
Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lbl_onlyZR_VZUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lbl_onlyZR_ZahlungsDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lbl_onlyZR_FaelligUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lbl_onlyZR_ReDatUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -194,10 +198,14 @@ Partial Public Class rptRechnungDruck_MDM
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -224,7 +232,7 @@ Partial Public Class rptRechnungDruck_MDM
'Detail 'Detail
' '
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport}) Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport})
Me.Detail.Height = 0.369286! Me.Detail.Height = 0.3901193!
Me.Detail.KeepTogether = True Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
' '
@@ -317,12 +325,12 @@ Partial Public Class rptRechnungDruck_MDM
' '
Me.SubReport.CloseBorder = False Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1259843! Me.SubReport.Height = 0.1259843!
Me.SubReport.Left = 0.03307087! Me.SubReport.Left = 0!
Me.SubReport.Name = "SubReport" Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1" Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.1732284! Me.SubReport.Top = 0.1712599!
Me.SubReport.Width = 7.442126! Me.SubReport.Width = 7.066142!
' '
'PageFooter 'PageFooter
' '
@@ -1216,11 +1224,89 @@ Partial Public Class rptRechnungDruck_MDM
' '
'GroupHeader4 'GroupHeader4
' '
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
Me.GroupHeader4.Height = 1.627275! Me.GroupHeader4.Height = 1.627275!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
' '
'lblLeistungUeberschrift
'
Me.lblLeistungUeberschrift.Height = 0.1511808!
Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01455834!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lblLeistungUeberschrift.Text = "Leistung"
Me.lblLeistungUeberschrift.Top = 1.415504!
Me.lblLeistungUeberschrift.Width = 0.9220559!
'
'lblSteuerfreiUeberschrift
'
Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.512198!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 1.415504!
Me.lblSteuerfreiUeberschrift.Width = 1.554331!
'
'lbl_onlyZR_VZUeberschrift
'
Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048!
Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift"
Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1"
Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen"
Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354!
Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294!
'
'lbl_onlyZR_ZahlungsDatUeberschrift
'
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
'
'lbl_onlyZR_FaelligUeberschrift
'
Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969!
Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354!
Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
'
'lbl_onlyZR_ReDatUeberschrift
'
Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142!
Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum"
Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.416142!
Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
'
'lblSteuerpflichtigUeberschrift 'lblSteuerpflichtigUeberschrift
' '
Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
@@ -1233,41 +1319,17 @@ Partial Public Class rptRechnungDruck_MDM
Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! Me.lblSteuerpflichtigUeberschrift.Top = 1.415504!
Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
' '
'lblLeistungUeberschrift
'
Me.lblLeistungUeberschrift.Height = 0.1511808!
Me.lblLeistungUeberschrift.HyperLink = Nothing
Me.lblLeistungUeberschrift.Left = 0.01455834!
Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1"
Me.lblLeistungUeberschrift.Text = "Leistung"
Me.lblLeistungUeberschrift.Top = 1.415504!
Me.lblLeistungUeberschrift.Width = 3.366143!
'
'lblAnzahlUeberschrift 'lblAnzahlUeberschrift
' '
Me.lblAnzahlUeberschrift.Height = 0.1511808! Me.lblAnzahlUeberschrift.Height = 0.1511807!
Me.lblAnzahlUeberschrift.HyperLink = Nothing Me.lblAnzahlUeberschrift.HyperLink = Nothing
Me.lblAnzahlUeberschrift.Left = 3.380701! Me.lblAnzahlUeberschrift.Left = 3.459055!
Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
"r-set: 1" "r-set: 1"
Me.lblAnzahlUeberschrift.Text = "Anzahl" Me.lblAnzahlUeberschrift.Text = "Anzahl"
Me.lblAnzahlUeberschrift.Top = 1.415504! Me.lblAnzahlUeberschrift.Top = 1.415504!
Me.lblAnzahlUeberschrift.Width = 0.5771656! Me.lblAnzahlUeberschrift.Width = 0.4988112!
'
'lblSteuerfreiUeberschrift
'
Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
Me.lblSteuerfreiUeberschrift.Left = 5.512198!
Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
Me.lblSteuerfreiUeberschrift.Top = 1.415504!
Me.lblSteuerfreiUeberschrift.Width = 1.554331!
' '
'Line4 'Line4
' '
@@ -1599,10 +1661,14 @@ Partial Public Class rptRechnungDruck_MDM
CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl_onlyZR_VZUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl_onlyZR_ZahlungsDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl_onlyZR_FaelligUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1635,11 +1701,11 @@ Partial Public Class rptRechnungDruck_MDM
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
@@ -1731,4 +1797,8 @@ Partial Public Class rptRechnungDruck_MDM
Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents lbl_onlyZR_FaelligUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lbl_onlyZR_ReDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lbl_onlyZR_ZahlungsDatUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lbl_onlyZR_VZUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
End Class End Class

122
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb generated
View File

@@ -26,6 +26,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFaellig = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -35,6 +36,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -44,6 +46,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -51,6 +54,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -61,7 +65,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'Detail 'Detail
' '
Me.Detail.CanGrow = False Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ}) Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig})
Me.Detail.Height = 0.1755249! Me.Detail.Height = 0.1755249!
Me.Detail.KeepTogether = True Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
@@ -72,76 +76,95 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.txtREnr.Left = 0.005119062! Me.txtREnr.Left = 0.005119062!
Me.txtREnr.Name = "txtREnr" Me.txtREnr.Name = "txtREnr"
Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtREnr.Text = "-" Me.txtREnr.Text = "-"
Me.txtREnr.Top = 0! Me.txtREnr.Top = 0!
Me.txtREnr.Width = 1.562204! Me.txtREnr.Width = 0.8244095!
' '
'txtReDat 'txtReDat
' '
Me.txtReDat.Height = 0.1338583! Me.txtReDat.Height = 0.1338583!
Me.txtReDat.Left = 1.567323! Me.txtReDat.Left = 0.9232284!
Me.txtReDat.Name = "txtReDat" Me.txtReDat.Name = "txtReDat"
Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtReDat.Text = "-" Me.txtReDat.Text = "-"
Me.txtReDat.Top = 0! Me.txtReDat.Top = 0!
Me.txtReDat.Width = 1.562204! Me.txtReDat.Width = 0.8657481!
' '
'txtZE 'txtZE
' '
Me.txtZE.Height = 0.1338583! Me.txtZE.Height = 0.1338583!
Me.txtZE.Left = 4.691732! Me.txtZE.Left = 2.405118!
Me.txtZE.Name = "txtZE" Me.txtZE.Name = "txtZE"
Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtZE.Text = "-" Me.txtZE.Text = "-"
Me.txtZE.Top = 0! Me.txtZE.Top = 0!
Me.txtZE.Width = 0.8539373! Me.txtZE.Width = 0.9661418!
' '
'txtReBetrag 'txtReBetrag
' '
Me.txtReBetrag.Height = 0.1338583! Me.txtReBetrag.Height = 0.1338583!
Me.txtReBetrag.Left = 3.129528! Me.txtReBetrag.Left = 3.948426!
Me.txtReBetrag.Name = "txtReBetrag" Me.txtReBetrag.Name = "txtReBetrag"
Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
"r-set: 0"
Me.txtReBetrag.Text = "-" Me.txtReBetrag.Text = "-"
Me.txtReBetrag.Top = 0! Me.txtReBetrag.Top = 0!
Me.txtReBetrag.Width = 1.562204! Me.txtReBetrag.Width = 0.9708654!
' '
'txtTage 'txtTage
' '
Me.txtTage.Height = 0.1338583! Me.txtTage.Height = 0.1338583!
Me.txtTage.Left = 5.54567! Me.txtTage.Left = 3.37126!
Me.txtTage.Name = "txtTage" Me.txtTage.Name = "txtTage"
Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtTage.Text = "-" Me.txtTage.Text = "-"
Me.txtTage.Top = 0! Me.txtTage.Top = 0!
Me.txtTage.Width = 0.6039373! Me.txtTage.Width = 0.5771654!
' '
'txtZinsen 'txtZinsen
' '
Me.txtZinsen.Height = 0.1338583! Me.txtZinsen.Height = 0.1338583!
Me.txtZinsen.Left = 6.149607! Me.txtZinsen.Left = 6.319685!
Me.txtZinsen.Name = "txtZinsen" Me.txtZinsen.Name = "txtZinsen"
Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" &
"r-set: 0"
Me.txtZinsen.Text = "-" Me.txtZinsen.Text = "-"
Me.txtZinsen.Top = 0! Me.txtZinsen.Top = 0!
Me.txtZinsen.Width = 0.6039373! Me.txtZinsen.Width = 0.7374016!
' '
'txtVZ 'txtVZ
' '
Me.txtVZ.Height = 0.1338583! Me.txtVZ.Height = 0.1338583!
Me.txtVZ.Left = 6.753544! Me.txtVZ.Left = 5.502756!
Me.txtVZ.Name = "txtVZ" Me.txtVZ.Name = "txtVZ"
Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtVZ.Text = "-" Me.txtVZ.Text = "-"
Me.txtVZ.Top = 0! Me.txtVZ.Top = 0!
Me.txtVZ.Width = 0.6988189! Me.txtVZ.Width = 0.8169292!
'
'txtFaellig
'
Me.txtFaellig.Height = 0.1338583!
Me.txtFaellig.Left = 1.788977!
Me.txtFaellig.Name = "txtFaellig"
Me.txtFaellig.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txtFaellig.Text = "-"
Me.txtFaellig.Top = 0!
Me.txtFaellig.Width = 0.6161416!
' '
'PageFooter 'PageFooter
' '
@@ -150,10 +173,11 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
' '
'GroupHeader4 'GroupHeader4
' '
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ}) Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ, Me.Label1})
Me.GroupHeader4.Height = 0.1433071! Me.GroupHeader4.Height = 0.1433071!
Me.GroupHeader4.KeepTogether = True Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4" Me.GroupHeader4.Name = "GroupHeader4"
Me.GroupHeader4.Visible = False
' '
'lblReNr 'lblReNr
' '
@@ -165,79 +189,99 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
"har-set: 0" "har-set: 0"
Me.lblReNr.Text = "RechnungsNr" Me.lblReNr.Text = "RechnungsNr"
Me.lblReNr.Top = 0! Me.lblReNr.Top = 0!
Me.lblReNr.Width = 1.562205! Me.lblReNr.Visible = False
Me.lblReNr.Width = 0.8244095!
' '
'lblReDat 'lblReDat
' '
Me.lblReDat.Height = 0.1433071! Me.lblReDat.Height = 0.1433071!
Me.lblReDat.HyperLink = Nothing Me.lblReDat.HyperLink = Nothing
Me.lblReDat.Left = 1.567323! Me.lblReDat.Left = 0.8295276!
Me.lblReDat.Name = "lblReDat" Me.lblReDat.Name = "lblReDat"
Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblReDat.Text = "Rechnungsdatum" Me.lblReDat.Text = "Rechnungsdatum"
Me.lblReDat.Top = 0! Me.lblReDat.Top = 0!
Me.lblReDat.Width = 1.562205! Me.lblReDat.Visible = False
Me.lblReDat.Width = 1.084646!
' '
'lblReBetrag 'lblReBetrag
' '
Me.lblReBetrag.Height = 0.1433071! Me.lblReBetrag.Height = 0.1433071!
Me.lblReBetrag.HyperLink = Nothing Me.lblReBetrag.HyperLink = Nothing
Me.lblReBetrag.Left = 3.129528! Me.lblReBetrag.Left = 3.948426!
Me.lblReBetrag.Name = "lblReBetrag" Me.lblReBetrag.Name = "lblReBetrag"
Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblReBetrag.Text = "Rechnungsbetrag" Me.lblReBetrag.Text = "Zahlungsbetrag"
Me.lblReBetrag.Top = 0! Me.lblReBetrag.Top = 0!
Me.lblReBetrag.Width = 1.562205! Me.lblReBetrag.Visible = False
Me.lblReBetrag.Width = 1.554331!
' '
'lblZahlungsdat 'lblZahlungsdat
' '
Me.lblZahlungsdat.Height = 0.1433071! Me.lblZahlungsdat.Height = 0.1433071!
Me.lblZahlungsdat.HyperLink = Nothing Me.lblZahlungsdat.HyperLink = Nothing
Me.lblZahlungsdat.Left = 4.691732! Me.lblZahlungsdat.Left = 2.405118!
Me.lblZahlungsdat.Name = "lblZahlungsdat" Me.lblZahlungsdat.Name = "lblZahlungsdat"
Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblZahlungsdat.Text = "Zahlungsdatum" Me.lblZahlungsdat.Text = "Zahlungsdatum"
Me.lblZahlungsdat.Top = 0! Me.lblZahlungsdat.Top = 0!
Me.lblZahlungsdat.Width = 0.8539371! Me.lblZahlungsdat.Visible = False
Me.lblZahlungsdat.Width = 0.9661418!
' '
'lblTage 'lblTage
' '
Me.lblTage.Height = 0.1433071! Me.lblTage.Height = 0.1433071!
Me.lblTage.HyperLink = Nothing Me.lblTage.HyperLink = Nothing
Me.lblTage.Left = 5.518111! Me.lblTage.Left = 3.37126!
Me.lblTage.Name = "lblTage" Me.lblTage.Name = "lblTage"
Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblTage.Text = "Tage" Me.lblTage.Text = "Tage"
Me.lblTage.Top = 0! Me.lblTage.Top = 0!
Me.lblTage.Width = 0.6314961! Me.lblTage.Visible = False
Me.lblTage.Width = 0.5771654!
' '
'lblZinsen 'lblZinsen
' '
Me.lblZinsen.Height = 0.1433071! Me.lblZinsen.Height = 0.1433071!
Me.lblZinsen.HyperLink = Nothing Me.lblZinsen.HyperLink = Nothing
Me.lblZinsen.Left = 6.149607! Me.lblZinsen.Left = 6.319685!
Me.lblZinsen.Name = "lblZinsen" Me.lblZinsen.Name = "lblZinsen"
Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblZinsen.Text = "Zinsen" Me.lblZinsen.Text = "Zinsen p.a."
Me.lblZinsen.Top = 0! Me.lblZinsen.Top = 0!
Me.lblZinsen.Width = 0.6039373! Me.lblZinsen.Visible = False
Me.lblZinsen.Width = 0.7374016!
' '
'lblVZ 'lblVZ
' '
Me.lblVZ.Height = 0.1433071! Me.lblVZ.Height = 0.1433071!
Me.lblVZ.HyperLink = Nothing Me.lblVZ.HyperLink = Nothing
Me.lblVZ.Left = 6.753544! Me.lblVZ.Left = 5.502756!
Me.lblVZ.Name = "lblVZ" Me.lblVZ.Name = "lblVZ"
Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0" "har-set: 0"
Me.lblVZ.Text = "Verzugszinsen" Me.lblVZ.Text = "Verzugszinsen"
Me.lblVZ.Top = 0! Me.lblVZ.Top = 0!
Me.lblVZ.Width = 0.6988189! Me.lblVZ.Visible = False
Me.lblVZ.Width = 0.8169292!
'
'Label1
'
Me.Label1.Height = 0.1433071!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 1.914173!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.Label1.Text = "F<EFBFBD>llig"
Me.Label1.Top = 0!
Me.Label1.Visible = False
Me.Label1.Width = 0.4909448!
' '
'GroupFooter4 'GroupFooter4
' '
@@ -287,6 +331,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -294,6 +339,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
@@ -315,4 +361,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class End Class

10
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -29,15 +29,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
txtTage.Text = "" txtTage.Text = ""
txtZinsen.Text = "" txtZinsen.Text = ""
txtVZ.Text = "" txtVZ.Text = ""
txtFaellig.Text = ""
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString() If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()
If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString() If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString()
End If End If
End Sub End Sub
@@ -55,16 +58,17 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
dt.Columns.Add("clmnTage") dt.Columns.Add("clmnTage")
dt.Columns.Add("clmnZinsen") dt.Columns.Add("clmnZinsen")
dt.Columns.Add("clmnVZ") dt.Columns.Add("clmnVZ")
dt.Columns.Add("clmnFaellig")
RECHNUNG.ORDER_POSITIONEN() RECHNUNG.ORDER_POSITIONEN()
For Each POS In RECHNUNG.POSITIONEN For Each POS In RECHNUNG.POSITIONEN
Dim dtTemp As DataTable Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows For Each rg As DataRow In dtTemp.Rows
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ")) dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Next Next
Next Next

42
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -2058,14 +2058,24 @@ Public Class usrCntlFaktAbrechnung
Case 19 'MDM Case 19 'MDM
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste" Case "DE"
Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List" If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Rechnung"
Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor" If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Lief.-Rechn."
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "POS-Liste"
Case "EN"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Invoice"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Supplier Invoice(s)"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Item List"
Case "RO"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_1 = "Factura"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_2 = "Factura furnizorului"
If If(RECHNUNG.FilialenNr, String.Empty) <> "8001" Then RECHNUNG.Anlage_3 = "Lista articolelor"
End Select End Select
RECHNUNG.Anlage_4 = "" RECHNUNG.Anlage_4 = ""
RECHNUNG.Anlage_5 = "" RECHNUNG.Anlage_5 = ""
Case Else Case Else
If SPEDBUCH IsNot Nothing Then If SPEDBUCH IsNot Nothing Then
@@ -2349,8 +2359,12 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse RECHNUNG.Vorkasse = kdFirmaRechnungAn.KdData_KUNDE.Vorkasse
End If End If
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.Firma_ID = 19 Then
RECHNUNG.Nettozahlungsziel = IIf(kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel > 14, 14, kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel)
Else
RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
End If
RECHNUNG.Nettozahlungsziel = kdFirmaRechnungAn.KdData_KUNDE.Zahlungsziel
End If End If
@@ -3981,14 +3995,20 @@ Nächste_Textzeile_lesen:
If vbYes = MsgBox("Möchten Sie diese ungedruckte Rechnung wirklich löschen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie diese ungedruckte Rechnung wirklich löschen?", vbYesNoCancel) Then
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Status = 0 Then If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Status = 0 Then
If RECHNUNG.DELETE() Then If RECHNUNG.DELETE() Then
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing Then
Dim UST_ID As Integer = -1 If SPEDBUCH.FilialenNr = 4817 Then
UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0)) Dim UST_ID As Integer = -1
If UST_ID > 0 Then UST_ID = CInt(SQL.getValueTxtBySql("SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL",,, 0))
SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL") If UST_ID > 0 Then
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL") SQL.doSQL("UPDATE [tblUStVPositionen] SET UStVPo_VZ_RKID = NULL WHERE [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & UST_ID & " )", "FMZOLL")
End If
ElseIf SPEDBUCH.FilialenNr = 8001 Then
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET RK_ID = NULL, verrechnet = NULL WHERE isnull(RK_ID,0) =" & RECHNUNG.RK_ID, "FMZOLL")
End If End If
End If End If
End If End If
RaiseEvent EVENT_DELETED() RaiseEvent EVENT_DELETED()
End If End If

34
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -859,7 +859,7 @@ Public Class usrCntlBH
AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis
AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0
ORDER BY op_debitor.i_personenkonto, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000'), op_debitor.c_urbelegid" ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')"
Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU") Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
@@ -895,6 +895,7 @@ Public Class usrCntlBH
zins.belegDatum = r.Item("Belegdatum") zins.belegDatum = r.Item("Belegdatum")
zins.zahlungsBetrag = r.Item("Zahlungsbetrag") zins.zahlungsBetrag = r.Item("Zahlungsbetrag")
zins.zahlungDatum = r.Item("Zahlungsdatum") zins.zahlungDatum = r.Item("Zahlungsdatum")
zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
zins.SAVE() zins.SAVE()
@@ -975,7 +976,7 @@ Public Class usrCntlBH
End Function End Function
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer) Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String)
Try Try
If KdNr = "" Then Return False If KdNr = "" Then Return False
@@ -1035,7 +1036,6 @@ Public Class usrCntlBH
RG.Vorlageprovision_Proz = KD.Vorlageprovision RG.Vorlageprovision_Proz = KD.Vorlageprovision
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
RG.RechnungSprache = "DE" RG.RechnungSprache = "DE"
RG.Packstücke_und_Warenbezeichnung = ""
RG.Anlage_2 = "" RG.Anlage_2 = ""
RG.Anlage_3 = "" RG.Anlage_3 = ""
@@ -1043,11 +1043,13 @@ Public Class usrCntlBH
RG.Anlage_5 = "" RG.Anlage_5 = ""
RG.Anlage_6 = "" RG.Anlage_6 = ""
RG.Text = "" RG.Packstücke_und_Warenbezeichnung = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & SPEDBUCH.Vermerk
RG.EMailRechnungstext = Nothing ' "" 'RG.EMailRechnungstext = Fusstext
If Not IsDBNull(KD.Zahlungsziel) AndAlso IsNumeric(KD.Zahlungsziel) Then
RG.Nettozahlungsziel = KD.Zahlungsziel Dim Zahlungsziel As Integer = CInt(KD.Zahlungsziel)
RG.Nettozahlungsziel = IIf(Zahlungsziel > 14, 14, KD.Zahlungsziel)
End If
RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0
@@ -1216,13 +1218,15 @@ Public Class usrCntlBH
Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL") Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
If dtfehlendeOfferten.Rows.Count > 0 Then If dtfehlendeOfferten.Rows.Count > 0 Then
MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & "Vorgang wird abgebrochen!") If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then
cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True) cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
Exit Sub Exit Sub
End If
End If End If
If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then
For Each R In dt_Main.Rows For Each R In dt_Main.Rows
@@ -1230,13 +1234,17 @@ Public Class usrCntlBH
Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
Dim vermerk As String = "Abrechnungsperiode von " & startDate & " bis " & EndDate Dim vermerk As String = "Zahlungen vom " & startDate & " bis " & EndDate
Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "
Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen."
Dim verarbOK As Boolean = True Dim verarbOK As Boolean = True
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim RK_ID As Integer = -1 Dim RK_ID As Integer = -1
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID) Then verarbOK = False If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False
If verarbOK Then If verarbOK Then
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL") SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL")

36
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -800,7 +800,13 @@ Public Class usrcntlFremdrechnungen
Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked) Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
createEmail(kvp.Key, TextHTMLtable, pdflist) If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then
Else
createEmail(kvp.Key, TextHTMLtable, pdflist)
End If
Next Next
@@ -935,10 +941,14 @@ Public Class usrcntlFremdrechnungen
Lieferant = aktLieferant Lieferant = aktLieferant
End If End If
If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile
Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then
sendÍnvoice = True 'dann immer mitschicken!
End If
'ORIGINAL-RECHNUNG senden wenn: 'ORIGINAL-RECHNUNG senden wenn:
If onlyRelevantInvioces Then If onlyRelevantInvioces Then
@@ -994,10 +1004,6 @@ Public Class usrcntlFremdrechnungen
TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>" TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>" TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
If daId > 0 Then If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
@@ -1012,8 +1018,6 @@ Public Class usrcntlFremdrechnungen
Next Next
Else Else
If sendÍnvoice Then If sendÍnvoice Then
TextHTMLtable &= "<tr>" TextHTMLtable &= "<tr>"
@@ -1127,6 +1131,22 @@ Public Class usrcntlFremdrechnungen
If cbxMailoeffnen.Checked Then If cbxMailoeffnen.Checked Then
Try Try
Dim oAccount As Outlook.Account
Dim accountToSent = "mmdabrechnung@verag.ag"
If outl.Session.Accounts.Count > 0 Then
For Each oAccount In outl.Session.Accounts
If oAccount.SmtpAddress = accountToSent Then
Mail.SendUsingAccount = oAccount
Exit For
End If
Next
End If
Mail.Display() Mail.Display()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)

3
VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb
View File

@@ -20,6 +20,8 @@ Public Class cMDMZinsberechnung
Property zahlungsperiode_start As Object = Nothing Property zahlungsperiode_start As Object = Nothing
Property zahlungsperiode_ende As Object = Nothing Property zahlungsperiode_ende As Object = Nothing
Property faelligkeitsDatum As Object = Nothing
Public hasEntry = False Public hasEntry = False
Dim SQL As New SQL Dim SQL As New SQL
@@ -53,6 +55,7 @@ Public Class cMDMZinsberechnung
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_start", zahlungsperiode_start)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_start", zahlungsperiode_start))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_ende", zahlungsperiode_ende)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsperiode_ende", zahlungsperiode_ende))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("faelligkeitsDatum", faelligkeitsDatum))
Return list Return list