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

essensbestellungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-08 14:16:16 +02:00
parent f70bdbbf71
commit f71f799e3e
18 changed files with 1476 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

758
SDL/mdm/rptPOS_ZNB.Designer.vb generated Normal file
View File

@@ -0,0 +1,758 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPOS_ZNB
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPOS_ZNB))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblReDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblReBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZahlungsdat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZinsen = 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.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaTel = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ, Me.Label5})
Me.PageHeader.Height = 0.1458333!
Me.PageHeader.Name = "PageHeader"
'
'lblReNr
'
Me.lblReNr.Height = 0.1433071!
Me.lblReNr.HyperLink = Nothing
Me.lblReNr.Left = 0.01417351!
Me.lblReNr.Name = "lblReNr"
Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReNr.Text = "RENR"
Me.lblReNr.Top = 0!
Me.lblReNr.Width = 0.9220473!
'
'lblReDat
'
Me.lblReDat.Height = 0.1433071!
Me.lblReDat.HyperLink = Nothing
Me.lblReDat.Left = 0.9362205!
Me.lblReDat.Name = "lblReDat"
Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReDat.Text = "RE Datum"
Me.lblReDat.Top = 0!
Me.lblReDat.Width = 0.9842521!
'
'lblReBetrag
'
Me.lblReBetrag.Height = 0.1433071!
Me.lblReBetrag.HyperLink = Nothing
Me.lblReBetrag.Left = 4.343308!
Me.lblReBetrag.Name = "lblReBetrag"
Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReBetrag.Text = "RE Betrag"
Me.lblReBetrag.Top = 0!
Me.lblReBetrag.Width = 1.181102!
'
'lblZahlungsdat
'
Me.lblZahlungsdat.Height = 0.1433071!
Me.lblZahlungsdat.HyperLink = Nothing
Me.lblZahlungsdat.Left = 2.64252!
Me.lblZahlungsdat.Name = "lblZahlungsdat"
Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblZahlungsdat.Text = "Zahlung"
Me.lblZahlungsdat.Top = 0!
Me.lblZahlungsdat.Width = 0.9661417!
'
'lblTage
'
Me.lblTage.Height = 0.1433071!
Me.lblTage.HyperLink = Nothing
Me.lblTage.Left = 3.608661!
Me.lblTage.Name = "lblTage"
Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblTage.Text = "VZ Tage"
Me.lblTage.Top = 0!
Me.lblTage.Width = 0.7346458!
'
'lblZinsen
'
Me.lblZinsen.Height = 0.1433071!
Me.lblZinsen.HyperLink = Nothing
Me.lblZinsen.Left = 5.936615!
Me.lblZinsen.Name = "lblZinsen"
Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblZinsen.Text = "Zinsen p.a."
Me.lblZinsen.Top = 0.002362205!
Me.lblZinsen.Width = 0.7374014!
'
'lblVZ
'
Me.lblVZ.Height = 0.1433071!
Me.lblVZ.HyperLink = Nothing
Me.lblVZ.Left = 6.674016!
Me.lblVZ.Name = "lblVZ"
Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: right; text-justify: auto; ddo-" &
"char-set: 0"
Me.lblVZ.Text = "Verzugszinsen"
Me.lblVZ.Top = 0!
Me.lblVZ.Width = 0.8169292!
'
'Label5
'
Me.Label5.Height = 0.1433071!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 1.920473!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.Label5.Text = "F<EFBFBD>llig"
Me.Label5.Top = 0!
Me.Label5.Width = 0.7220473!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txt_Anmerkung, Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig})
Me.Detail.Height = 0.1338583!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txt_Anmerkung
'
Me.txt_Anmerkung.Height = 0.1338583!
Me.txt_Anmerkung.Left = 1.903543!
Me.txt_Anmerkung.Name = "txt_Anmerkung"
Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txt_Anmerkung.Text = "-"
Me.txt_Anmerkung.Top = 0!
Me.txt_Anmerkung.Visible = False
Me.txt_Anmerkung.Width = 3.620866!
'
'txtREnr
'
Me.txtREnr.Height = 0.1338583!
Me.txtREnr.Left = 0.01417323!
Me.txtREnr.Name = "txtREnr"
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtREnr.Text = "-"
Me.txtREnr.Top = 0!
Me.txtREnr.Width = 0.9220473!
'
'txtReDat
'
Me.txtReDat.Height = 0.1338583!
Me.txtReDat.Left = 0.9362202!
Me.txtReDat.Name = "txtReDat"
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtReDat.Text = "-"
Me.txtReDat.Top = 0!
Me.txtReDat.Width = 0.9842521!
'
'txtZE
'
Me.txtZE.Height = 0.1338583!
Me.txtZE.Left = 2.64252!
Me.txtZE.Name = "txtZE"
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtZE.Text = "-"
Me.txtZE.Top = 0!
Me.txtZE.Width = 0.9661417!
'
'txtReBetrag
'
Me.txtReBetrag.Height = 0.1338583!
Me.txtReBetrag.Left = 4.343308!
Me.txtReBetrag.Name = "txtReBetrag"
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtReBetrag.Text = "-"
Me.txtReBetrag.Top = 0!
Me.txtReBetrag.Width = 0.8267722!
'
'txtTage
'
Me.txtTage.Height = 0.1338583!
Me.txtTage.Left = 3.608661!
Me.txtTage.Name = "txtTage"
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtTage.Text = "-"
Me.txtTage.Top = 0!
Me.txtTage.Width = 0.6618112!
'
'txtZinsen
'
Me.txtZinsen.Height = 0.1338583!
Me.txtZinsen.Left = 6.753544!
Me.txtZinsen.Name = "txtZinsen"
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.Top = 0!
Me.txtZinsen.Width = 0.7374014!
'
'txtVZ
'
Me.txtVZ.Height = 0.1338583!
Me.txtVZ.Left = 5.936615!
Me.txtVZ.Name = "txtVZ"
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.Top = 0!
Me.txtVZ.Width = 0.7492127!
'
'txtFaellig
'
Me.txtFaellig.Height = 0.1338583!
Me.txtFaellig.Left = 1.920472!
Me.txtFaellig.Name = "txtFaellig"
Me.txtFaellig.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: left; ddo-char" &
"-set: 0"
Me.txtFaellig.Text = "-"
Me.txtFaellig.Top = 0!
Me.txtFaellig.Width = 0.7220473!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2})
Me.PageFooter.Height = 0.2503937!
Me.PageFooter.Name = "PageFooter"
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.07401575!
Me.Line2.Width = 7.480313!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480313!
Me.Line2.Y1 = 0.07401575!
Me.Line2.Y2 = 0.07401575!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.480315!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.1173228!
Me.ReportInfo2.Width = 1.994928!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgDatum, Me.txtKunde, Me.Label16, Me.Picture1, Me.picVERAG, Me.lblUeberschriftRG_GS, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.Label18, Me.Label1, Me.TextBox1, Me.Label2, Me.Label3, Me.Label4, Me.lblHeader})
Me.ReportHeader1.Height = 1.405906!
Me.ReportHeader1.Name = "ReportHeader1"
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 6.674016!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.6716536!
Me.lblRgDatum.Width = 0.7921257!
'
'txtKunde
'
Me.txtKunde.Height = 0.1574802!
Me.txtKunde.HyperLink = Nothing
Me.txtKunde.Left = 5.111811!
Me.txtKunde.Name = "txtKunde"
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKunde.Text = "1000000 TEST"
Me.txtKunde.Top = 0.8291339!
Me.txtKunde.Width = 2.354331!
'
'Label16
'
Me.Label16.Height = 0.1574803!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 4.304331!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label16.Text = "Kunde:"
Me.Label16.Top = 0.8291339!
Me.Label16.Width = 0.8114175!
'
'Picture1
'
Me.Picture1.Height = 0.6102362!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 3.244882!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Visible = False
Me.Picture1.Width = 1.059449!
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.01023622!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.1220473!
Me.picVERAG.Width = 2.198425!
'
'lblUeberschriftRG_GS
'
Me.lblUeberschriftRG_GS.Height = 0.2311024!
Me.lblUeberschriftRG_GS.HyperLink = Nothing
Me.lblUeberschriftRG_GS.Left = 4.500394!
Me.lblUeberschriftRG_GS.Name = "lblUeberschriftRG_GS"
Me.lblUeberschriftRG_GS.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung"
Me.lblUeberschriftRG_GS.Top = 0.3870079!
Me.lblUeberschriftRG_GS.Width = 2.969686!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.002755864!
Me.Line3.LineColor = System.Drawing.Color.DimGray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.6102362!
Me.Line3.Width = 7.475196!
Me.Line3.X1 = 0.002755864!
Me.Line3.X2 = 7.477952!
Me.Line3.Y1 = 0.6102362!
Me.Line3.Y2 = 0.6102362!
'
'lblFirmaOrt
'
Me.lblFirmaOrt.Height = 0.1181102!
Me.lblFirmaOrt.HyperLink = Nothing
Me.lblFirmaOrt.Left = 0.01417317!
Me.lblFirmaOrt.Name = "lblFirmaOrt"
Me.lblFirmaOrt.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaOrt.Text = "A-4975 Suben"
Me.lblFirmaOrt.Top = 0.7503937!
Me.lblFirmaOrt.Width = 1.19685!
'
'lblFirmaStrasse
'
Me.lblFirmaStrasse.Height = 0.1181102!
Me.lblFirmaStrasse.HyperLink = Nothing
Me.lblFirmaStrasse.Left = 0.01417319!
Me.lblFirmaStrasse.Name = "lblFirmaStrasse"
Me.lblFirmaStrasse.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaStrasse.Text = "Suben Nr. 100"
Me.lblFirmaStrasse.Top = 0.8685039!
Me.lblFirmaStrasse.Width = 1.19685!
'
'lblFirmaTel
'
Me.lblFirmaTel.Height = 0.1181103!
Me.lblFirmaTel.HyperLink = Nothing
Me.lblFirmaTel.Left = 1.211024!
Me.lblFirmaTel.Name = "lblFirmaTel"
Me.lblFirmaTel.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaTel.Text = "Tel. +43 7711 2777 - 0"
Me.lblFirmaTel.Top = 0.7503937!
Me.lblFirmaTel.Width = 1.28189!
'
'lblFirmaFax
'
Me.lblFirmaFax.Height = 0.1181103!
Me.lblFirmaFax.HyperLink = Nothing
Me.lblFirmaFax.Left = 1.211024!
Me.lblFirmaFax.Name = "lblFirmaFax"
Me.lblFirmaFax.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblFirmaFax.Text = "Fax +43 7711 31600"
Me.lblFirmaFax.Top = 0.868504!
Me.lblFirmaFax.Width = 1.28189!
'
'lblFirmaEmail
'
Me.lblFirmaEmail.Height = 0.1181103!
Me.lblFirmaEmail.HyperLink = Nothing
Me.lblFirmaEmail.Left = 2.492913!
Me.lblFirmaEmail.Name = "lblFirmaEmail"
Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaEmail.Text = "s.kriegner@verag.ag"
Me.lblFirmaEmail.Top = 0.868504!
Me.lblFirmaEmail.Width = 1.436614!
'
'lblFirmaWeb
'
Me.lblFirmaWeb.Height = 0.1181102!
Me.lblFirmaWeb.HyperLink = Nothing
Me.lblFirmaWeb.Left = 2.492913!
Me.lblFirmaWeb.Name = "lblFirmaWeb"
Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblFirmaWeb.Text = "www.verag.ag"
Me.lblFirmaWeb.Top = 0.7503937!
Me.lblFirmaWeb.Width = 1.436614!
'
'Label18
'
Me.Label18.Height = 0.1574803!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 6.237402!
Me.Label18.Name = "Label18"
Me.Label18.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label18.Text = "Datum:"
Me.Label18.Top = 0.6716536!
Me.Label18.Width = 0.436614!
'
'Label1
'
Me.Label1.Height = 0.2311024!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 4.496457!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label1.Text = "-"
Me.Label1.Top = 0.0523622!
Me.Label1.Width = 2.969686!
'
'TextBox1
'
Me.TextBox1.Height = 0.1574803!
Me.TextBox1.Left = 5.0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox1.Text = "1000000"
Me.TextBox1.Top = 0.9866142!
Me.TextBox1.Width = 0.8688979!
'
'Label2
'
Me.Label2.Height = 0.1574803!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 4.304331!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label2.Text = "Partner-Kunden-Nr:"
Me.Label2.Top = 0.9866142!
Me.Label2.Width = 1.020079!
'
'Label3
'
Me.Label3.Height = 0.1574803!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 5.983465!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label3.Text = "Zeitraum bis:"
Me.Label3.Top = 0.9866142!
Me.Label3.Width = 0.6905512!
'
'Label4
'
Me.Label4.Height = 0.1574803!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.670079!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "01.01.2019"
Me.Label4.Top = 0.9866142!
Me.Label4.Width = 0.7960634!
'
'lblHeader
'
Me.lblHeader.Height = 0.2094488!
Me.lblHeader.HyperLink = Nothing
Me.lblHeader.Left = 0!
Me.lblHeader.Name = "lblHeader"
Me.lblHeader.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lblHeader.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; text-justify: auto; vertical-align: middle; ddo-char-set: 1"
Me.lblHeader.Text = "VERZUGSZINSEN"
Me.lblHeader.Top = 1.196457!
Me.lblHeader.Width = 7.466146!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.lblGessumme, Me.Line7, Me.Line8})
Me.ReportFooter1.Height = 0.6578248!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtBruttoGesSum
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
'
'lblGessumme
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475196!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475196!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
'
'rptPOS_ZNB
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.490945!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFaellig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents lblFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaTel As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaFax As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaEmail As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtBruttoGesSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGessumme As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblReDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblReBetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZahlungsdat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txt_Anmerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtREnr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtReDat As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZE As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtReBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtTage As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

132
SDL/mdm/rptPOS_ZNB.resx Normal file
View File

File diff suppressed because one or more lines are too long

120
SDL/mdm/rptPOS_ZNB.vb Normal file
View File

@@ -0,0 +1,120 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPOS_ZNB
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim Betrag As Double
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Betrag As Double)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.RECHNUNG = RECHNUNG
Me.Betrag = Betrag
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
txtREnr.Text = ""
txtReDat.Text = ""
txtReBetrag.Text = ""
txtZE.Text = ""
txtTage.Text = ""
txtZinsen.Text = ""
txtVZ.Text = ""
txtFaellig.Text = ""
txt_Anmerkung.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("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 IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Math.Abs(CDbl(Me.Fields.Item("clmnReBetrag").Value)).ToString("N2")
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 Then
If IsDate(Me.Fields.Item("clmnZE").Value) Then
txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
txt_Anmerkung.Visible = False
txtZE.Visible = True
txtFaellig.Visible = True
txtTage.Visible = True
txtReBetrag.Visible = True
Else
txt_Anmerkung.Text &= Me.Fields.Item("clmnZE").Value
txt_Anmerkung.Visible = True
txtZE.Visible = False
txtFaellig.Visible = False
txtTage.Visible = False
txtReBetrag.Visible = False
End If
End If
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 IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & "%"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("clmnID")
dt.Columns.Add("clmnReNr")
dt.Columns.Add("clmnReDatum")
dt.Columns.Add("clmnAbfNr")
dt.Columns.Add("clmnReBetrag")
dt.Columns.Add("clmnZE")
dt.Columns.Add("clmnTage")
dt.Columns.Add("clmnZinsen")
dt.Columns.Add("clmnVZ")
dt.Columns.Add("clmnFaellig")
If Betrag < 0 Then
Dim Rabatt As String = "Rabatt"
Select Case RECHNUNG.RechnungSprache
Case "EN" : Rabatt = "Discount"
Case "RO" : Rabatt = "Reducere"
Case "TR" : Rabatt = "İndirim"
Case Else
Rabatt = "Rabatt"
End Select
dt.Rows.Add("0", Rabatt, RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", "", "", Betrag.ToString, "", "")
'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"))
Else
If RECHNUNG.BelegartenKz <> "AG" Then
' 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, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID, "FMZOLL")
For Each rg As DataRow In Me.DataSource.Rows
dt.Rows.Add(rg.Item("id"), rg.Item("belegNr"), rg.Item("belegDatum"), rg.Item("buchungstext"), rg.Item("zahlungsBetrag"), rg.Item("zahlungDatum"), rg.Item("ueberschreitungInTagen"), rg.Item("zinsbetrag"), rg.Item("zinssatz"), rg.Item("faelligkeitsDatum"))
Next
Else
dt.Rows.Add("0", "", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", "", "", Betrag.ToString, "", "")
End If
End If
Me.DataSource = dt
End Sub
End Class