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

20
SDL/Fakturierung/cFakturierung.vb
View File

@@ -5589,6 +5589,7 @@ Public Class cFakturierung
End If
AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
@@ -5656,7 +5657,22 @@ Public Class cFakturierung
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID)
Dim isZNB As Boolean = False
Dim Anzahl = 0
Dim SteuerfreierBetrag As Double = 0
Dim SteuerpflichtigerBetrag As Double = 0
Dim LeistungsText As String = ""
If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
isZNB = True
LeistungsText = "Nachberechnung von VZ "
'LeistungsText = System.Text.RegularExpressions.Regex.Replace(LeistungsText, "\r\n|\r|\n", " ")
Anzahl = 1
SteuerfreierBetrag = RECHNUNG.SteuerfreierGesamtbetrag
SteuerpflichtigerBetrag = RECHNUNG.SteuerpflichtigerGesamtbetrag
End If
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID, isZNB, LeistungsText, Anzahl, SteuerpflichtigerBetrag, SteuerfreierBetrag)
rpt.SubReport.Report = subRpt
@@ -6257,7 +6273,7 @@ Public Class cFakturierung
Else
If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Or RG_AH.Bezeichnung.ToUpper.Contains("VERZUGSZINSEN") Then
Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
If Not listAnh.Contains(Path) Then

21
SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb
View File

@@ -6,12 +6,23 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
Dim _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String)
Dim isZNB As Boolean
Dim LeistungsText As String
Dim Anzahl As Integer
Dim SteuerpflichtigerBetrag As Double
Dim SteuerfreierBetrag As Double
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, VorschauID As String, Optional isZNB As Boolean = False, Optional LeistungsText As String = "", Optional Anzahl As Integer = 0, Optional SteuerpflichtigerBetrag As Double = 0, Optional SteuerfreierBetrag As Double = 0)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG
Me.VorschauID = VorschauID
Me.isZNB = isZNB
Me.LeistungsText = LeistungsText
Me.Anzahl = Anzahl
Me.SteuerpflichtigerBetrag = SteuerpflichtigerBetrag
Me.SteuerfreierBetrag = SteuerfreierBetrag
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
@@ -52,7 +63,7 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
dt.Columns.Add("clmnLeistungsNr")
RECHNUNG.ORDER_POSITIONEN()
If Not isZNB Then
For Each POS In RECHNUNG.POSITIONEN
If VorschauID = "PROVISIONSABRECHNUNG" Then
If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
@@ -63,6 +74,12 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
End If
Next
Else
dt.Rows.Add(LeistungsText, SteuerfreierBetrag, SteuerpflichtigerBetrag, Anzahl, 950)
End If
Me.DataSource = dt
End Sub

6
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1866,13 +1866,13 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
Dim ohneOnboarding As String = IIf(usrCntl.cbxOnboardingVerrechnen.Checked, "", "ohne_Onboarding_")
' Dim firma=getUO2()
Select Case usrCntl.cboSprache._value
Case "TR", "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_" & usrCntl.cboSprache._value, listTowrite)
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_" & ohneOnboarding & usrCntl.cboSprache._value, listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite)
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt" & ohneOnboarding, listTowrite)
End Select
Return ""

9
SDL/SDL.vbproj
View File

@@ -1253,6 +1253,12 @@
<Compile Include="mdm\IDS\rptIDS_Anhang.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="mdm\rptPOS_ZNB.Designer.vb">
<DependentUpon>rptPOS_ZNB.vb</DependentUpon>
</Compile>
<Compile Include="mdm\rptPOS_ZNB.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="mdm\usrcntlFremdrechnungen.Designer.vb">
<DependentUpon>usrcntlFremdrechnungen.vb</DependentUpon>
</Compile>
@@ -3881,6 +3887,9 @@
<EmbeddedResource Include="mdm\IDS\rptIDS_Anhang.resx">
<DependentUpon>rptIDS_Anhang.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\rptPOS_ZNB.resx">
<DependentUpon>rptPOS_ZNB.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
<DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
</EmbeddedResource>

6
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2355,6 +2355,9 @@ Public Class frmMDM_USTVAntrag
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & "_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
'Datenarchiv/Dokumente/MDM/kdNr/MDM/MDM_Daten/Ustva_id_PosNr
If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
If DS.DELETE_COMPLETE() Then
'löschen nicht vorhandenen Verweis!
@@ -3573,6 +3576,9 @@ Public Class frmMDM_USTVAntrag
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UStVAn_ID & "_" & r.Cells("UStVPo_ID").Value, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
'
' 'Datenarchiv/Dokumente/MDM/kdNr/MDM/MDM_Daten/Ustva_id_PosNr
If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
DS.DELETE_COMPLETE()
End If

157
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

@@ -76,6 +76,9 @@ Partial Class usrCntlBH
Me.Label1 = New System.Windows.Forms.Label()
Me.btnWord = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cboFirma_FIBUFilialen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label67 = New System.Windows.Forms.Label()
Me.Button16 = New System.Windows.Forms.Button()
Me.txtMonateSyskavergleich = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label61 = New System.Windows.Forms.Label()
Me.Button15 = New System.Windows.Forms.Button()
@@ -166,6 +169,11 @@ Partial Class usrCntlBH
Me.btn_Erloeskkonten = New System.Windows.Forms.Button()
Me.Label62 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
Me.Label71 = New System.Windows.Forms.Label()
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.cbxZBalsSR = New System.Windows.Forms.CheckBox()
Me.Label57 = New System.Windows.Forms.Label()
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
@@ -190,9 +198,7 @@ Partial Class usrCntlBH
Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label51 = New System.Windows.Forms.Label()
Me.txtJahr_FIBU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button16 = New System.Windows.Forms.Button()
Me.Label67 = New System.Windows.Forms.Label()
Me.cboFirma_FIBUFilialen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button17 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox13.SuspendLayout()
@@ -906,6 +912,41 @@ Partial Class usrCntlBH
Me.GroupBox2.TabIndex = 4
Me.GroupBox2.TabStop = False
'
'cboFirma_FIBUFilialen
'
Me.cboFirma_FIBUFilialen._allowedValuesFreiText = Nothing
Me.cboFirma_FIBUFilialen._allowFreiText = False
Me.cboFirma_FIBUFilialen._value = ""
Me.cboFirma_FIBUFilialen.DropDownWidth = 150
Me.cboFirma_FIBUFilialen.FormattingEnabled = True
Me.cboFirma_FIBUFilialen.Location = New System.Drawing.Point(406, 57)
Me.cboFirma_FIBUFilialen.Name = "cboFirma_FIBUFilialen"
Me.cboFirma_FIBUFilialen.Size = New System.Drawing.Size(54, 21)
Me.cboFirma_FIBUFilialen.TabIndex = 43
'
'Label67
'
Me.Label67.AutoSize = True
Me.Label67.Location = New System.Drawing.Point(145, 87)
Me.Label67.Name = "Label67"
Me.Label67.Size = New System.Drawing.Size(105, 13)
Me.Label67.TabIndex = 45
Me.Label67.Text = "Vergleich UID-Syska"
'
'Button16
'
Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button16.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button16.Location = New System.Drawing.Point(6, 81)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(121, 23)
Me.Button16.TabIndex = 44
Me.Button16.Text = " Excel"
Me.Button16.UseVisualStyleBackColor = True
'
'txtMonateSyskavergleich
'
Me.txtMonateSyskavergleich._DateTimeOnly = False
@@ -1949,6 +1990,7 @@ Partial Class usrCntlBH
'
'GroupBox14
'
Me.GroupBox14.Controls.Add(Me.Button17)
Me.GroupBox14.Controls.Add(Me.Label63)
Me.GroupBox14.Controls.Add(Me.Label66)
Me.GroupBox14.Controls.Add(Me.txtLand)
@@ -1959,7 +2001,7 @@ Partial Class usrCntlBH
Me.GroupBox14.Controls.Add(Me.btn_ZV)
Me.GroupBox14.Controls.Add(Me.btn_Laender)
Me.GroupBox14.Controls.Add(Me.btn_Erloeskkonten)
Me.GroupBox14.Location = New System.Drawing.Point(20, 153)
Me.GroupBox14.Location = New System.Drawing.Point(14, 227)
Me.GroupBox14.Name = "GroupBox14"
Me.GroupBox14.Size = New System.Drawing.Size(841, 123)
Me.GroupBox14.TabIndex = 38
@@ -2115,7 +2157,7 @@ Partial Class usrCntlBH
Me.Label62.AutoSize = True
Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label62.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label62.Location = New System.Drawing.Point(17, 133)
Me.Label62.Location = New System.Drawing.Point(11, 207)
Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(145, 17)
Me.Label62.TabIndex = 37
@@ -2123,6 +2165,11 @@ Partial Class usrCntlBH
'
'GroupBox11
'
Me.GroupBox11.Controls.Add(Me.txtPloseAnh_Einarbeitung)
Me.GroupBox11.Controls.Add(Me.Label71)
Me.GroupBox11.Controls.Add(Me.pbPloseAnh_Proz)
Me.GroupBox11.Controls.Add(Me.lblPloseAnh_Proz)
Me.GroupBox11.Controls.Add(Me.cbxZBalsSR)
Me.GroupBox11.Controls.Add(Me.Label57)
Me.GroupBox11.Controls.Add(Me.btnDel_)
Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails)
@@ -2147,10 +2194,57 @@ Partial Class usrCntlBH
Me.GroupBox11.Controls.Add(Me.txtZRbis)
Me.GroupBox11.Location = New System.Drawing.Point(14, 30)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(847, 88)
Me.GroupBox11.Size = New System.Drawing.Size(847, 149)
Me.GroupBox11.TabIndex = 36
Me.GroupBox11.TabStop = False
'
'txtPloseAnh_Einarbeitung
'
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(80, 121)
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
Me.txtPloseAnh_Einarbeitung.TabIndex = 80
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Location = New System.Drawing.Point(13, 121)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(56, 13)
Me.Label71.TabIndex = 77
Me.Label71.Text = "Fortschritt:"
'
'pbPloseAnh_Proz
'
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(16, 92)
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(245, 23)
Me.pbPloseAnh_Proz.TabIndex = 78
'
'lblPloseAnh_Proz
'
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(192, 121)
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
Me.lblPloseAnh_Proz.TabIndex = 79
Me.lblPloseAnh_Proz.Text = "0%"
Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbxZBalsSR
'
Me.cbxZBalsSR.AutoSize = True
Me.cbxZBalsSR.Checked = True
Me.cbxZBalsSR.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxZBalsSR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxZBalsSR.Location = New System.Drawing.Point(524, 67)
Me.cbxZBalsSR.Name = "cbxZBalsSR"
Me.cbxZBalsSR.Size = New System.Drawing.Size(177, 17)
Me.cbxZBalsSR.TabIndex = 76
Me.cbxZBalsSR.Text = "als Sammelrechnung fakturieren"
Me.cbxZBalsSR.UseVisualStyleBackColor = True
'
'Label57
'
Me.Label57.AutoSize = True
@@ -2519,7 +2613,7 @@ Partial Class usrCntlBH
Me.txtJahr_FIBU._Waehrung = False
Me.txtJahr_FIBU._WaehrungZeichen = True
Me.txtJahr_FIBU.ForeColor = System.Drawing.Color.Black
Me.txtJahr_FIBU.Location = New System.Drawing.Point(175, 133)
Me.txtJahr_FIBU.Location = New System.Drawing.Point(169, 207)
Me.txtJahr_FIBU.MaxLineLength = -1
Me.txtJahr_FIBU.MaxLines_Warning = ""
Me.txtJahr_FIBU.MaxLines_Warning_Label = Nothing
@@ -2528,40 +2622,17 @@ Partial Class usrCntlBH
Me.txtJahr_FIBU.TabIndex = 76
Me.txtJahr_FIBU.Text = "0"
'
'Button16
'Button17
'
Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button16.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button16.Location = New System.Drawing.Point(6, 81)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(121, 23)
Me.Button16.TabIndex = 44
Me.Button16.Text = " Excel"
Me.Button16.UseVisualStyleBackColor = True
'
'Label67
'
Me.Label67.AutoSize = True
Me.Label67.Location = New System.Drawing.Point(145, 87)
Me.Label67.Name = "Label67"
Me.Label67.Size = New System.Drawing.Size(105, 13)
Me.Label67.TabIndex = 45
Me.Label67.Text = "Vergleich UID-Syska"
'
'cboFirma_FIBUFilialen
'
Me.cboFirma_FIBUFilialen._allowedValuesFreiText = Nothing
Me.cboFirma_FIBUFilialen._allowFreiText = False
Me.cboFirma_FIBUFilialen._value = ""
Me.cboFirma_FIBUFilialen.DropDownWidth = 150
Me.cboFirma_FIBUFilialen.FormattingEnabled = True
Me.cboFirma_FIBUFilialen.Location = New System.Drawing.Point(406, 57)
Me.cboFirma_FIBUFilialen.Name = "cboFirma_FIBUFilialen"
Me.cboFirma_FIBUFilialen.Size = New System.Drawing.Size(54, 21)
Me.cboFirma_FIBUFilialen.TabIndex = 43
Me.Button17.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button17.FlatAppearance.BorderSize = 0
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Location = New System.Drawing.Point(816, 19)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(25, 20)
Me.Button17.TabIndex = 81
Me.Button17.UseVisualStyleBackColor = True
'
'usrCntlBH
'
@@ -2788,4 +2859,10 @@ Partial Class usrCntlBH
Friend WithEvents cboFirma_FIBUFilialen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label67 As Label
Friend WithEvents Button16 As Button
Friend WithEvents cbxZBalsSR As CheckBox
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
Friend WithEvents Label71 As Label
Friend WithEvents pbPloseAnh_Proz As ProgressBar
Friend WithEvents lblPloseAnh_Proz As Label
Friend WithEvents Button17 As Button
End Class

46
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1,7 +1,9 @@
Imports System.Globalization
Imports System.Text
Imports ClosedXML.Excel
Imports com.sun.xml.internal.rngom
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class usrCntlBH
Dim GrenzeVersicherung = 50000
@@ -901,6 +903,7 @@ Public Class usrCntlBH
Else
Dim counter As Integer = 0
Dim cnt As Integer = 0
For Each r As DataRow In dt.Rows
@@ -936,6 +939,15 @@ Public Class usrCntlBH
End If
End If
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt.Rows.Count
Dim proz As Double = (cnt / dt.Rows.Count) * 100
pbPloseAnh_Proz.Value = proz
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
'GroupBox12.Refresh()
My.Application.DoEvents()
cnt += 1
Next
@@ -987,6 +999,10 @@ Public Class usrCntlBH
End If
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt.Rows.Count & " / " & dt.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
End If
@@ -1042,7 +1058,7 @@ Public Class usrCntlBH
End Function
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String, ZahlungszielAusDebitor As Integer)
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, ByRef Fusstext As String, ZahlungszielAusDebitor As Integer, sammelrechnung As Boolean)
Try
If KdNr = "" Then Return False
@@ -1055,7 +1071,7 @@ Public Class usrCntlBH
Dim Abfertigungsart As Integer
'TODO. Setzen!
OffertenNr = 95 : Abfertigungsart = 10 : RG.Anlage_1 = ""
OffertenNr = 95 : Abfertigungsart = 10
RG.Firma_ID = 19
@@ -1067,7 +1083,13 @@ Public Class usrCntlBH
RG.Buchungsjahr = cRKSV.getGJ(SPEDBUCH.Abfertigungsdatum, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
If sammelrechnung Then
RG.Sammelrechnung = 6
Else
RG.Sammelrechnung = 0
End If
RG.BelegartenKz = "AR"
RG.BelegartenNr = 70
RG.BelegartenBez = "Rechnung"
@@ -1180,6 +1202,7 @@ Public Class usrCntlBH
RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
If RG.SAVE Then
RK_ID = RG.RK_ID
Return True
@@ -1238,6 +1261,8 @@ Public Class usrCntlBH
Return False
End Function
Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click
Dim frm As New frmZinsnachberechnung("tblMDM_Zinsberechnung", "FMZOLL")
frm.ShowDialog(Me)
@@ -1330,7 +1355,7 @@ Public Class usrCntlBH
If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung mit Abrechnungsdatum " & CDate(txtZRbis.Text).ToShortDateString & " verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then
Dim cnt As Integer = 0
For Each R In dt_Main.Rows
@@ -1353,18 +1378,31 @@ Public Class usrCntlBH
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim RK_ID As Integer = -1
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext, R("belegZahlungsziel")) Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext, R("belegZahlungsziel"), cbxZBalsSR.Checked) Then verarbOK = False
If verarbOK Then
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL")
End If
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
pbPloseAnh_Proz.Value = proz
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
'GroupBox12.Refresh()
My.Application.DoEvents()
cnt += 1
Next
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
End If
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
End If

47
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -45,7 +45,7 @@ Public Class frmEssensbestellungenAdministration
Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] ,[eb_firma] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],
[eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am]
[eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], cast([eb_gesendet_am] as Date) as eb_gesendet_am
FROM
[tblEssensbestellungen] WHERE 1=1 "
@@ -328,6 +328,11 @@ Public Class frmEssensbestellungenAdministration
End If
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Select
@@ -348,6 +353,11 @@ Public Class frmEssensbestellungenAdministration
End If
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Select
@@ -355,7 +365,7 @@ Public Class frmEssensbestellungenAdministration
Select Case dgvBestellungen.SelectedRows.Count
Case 1
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abschicken?", vbYesNoCancel) Then
bestellungenSenden(True)
bestellungenSenden(True, "SEL")
generateEMailforHighway(sender, e)
Else
Exit Sub
@@ -363,7 +373,7 @@ Public Class frmEssensbestellungenAdministration
Case Else
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
bestellungenSenden(True)
bestellungenSenden(True, "ALL")
generateEMailforHighway(sender, e)
Else
Exit Sub
@@ -387,6 +397,7 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_storniert = True
If stornieren Then
bestellung.eb_storniert_am = Now
bestellung.eb_storniertVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Else
bestellung.eb_storniert_am = DBNull.Value
@@ -399,10 +410,6 @@ Public Class frmEssensbestellungenAdministration
Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub
Private Sub bestellungenAbrechnen(abrechnen As Boolean)
@@ -415,6 +422,7 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_abgerechnet = abrechnen
If abrechnen Then
bestellung.eb_abgerechnet_am = Now
bestellung.eb_abgerechnetVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Else
bestellung.eb_abgerechnet_am = DBNull.Value
@@ -425,14 +433,9 @@ Public Class frmEssensbestellungenAdministration
Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub
Private Sub bestellungenSenden(senden As Boolean)
Private Sub bestellungenSenden(senden As Boolean, anmerkung As String)
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
@@ -442,6 +445,8 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_gesendet = senden
If senden Then
bestellung.eb_gesendet_am = Now
bestellung.eb_gesendetVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " " & anmerkung
If IsDBNull(bestellung.eb_gesendetFirst_am) OrElse bestellung.eb_gesendetFirst_am Is Nothing Then bestellung.eb_gesendetFirst_am = bestellung.eb_gesendet_am
Else
bestellung.eb_gesendet_am = DBNull.Value
@@ -451,13 +456,7 @@ Public Class frmEssensbestellungenAdministration
Next
If dgvBestellungen.RowCount > 0 Then
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End If
End Sub
@@ -500,6 +499,8 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_gesendet = True
bestellung.eb_gesendet_am = Now
If IsDBNull(bestellung.eb_gesendetFirst_am) OrElse bestellung.eb_gesendetFirst_am Is Nothing Then bestellung.eb_gesendetFirst_am = bestellung.eb_gesendet_am
bestellung.eb_gesendetVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
bestellung.SAVE()
End If
Next
@@ -543,6 +544,14 @@ Public Class frmEssensbestellungenAdministration
Me.Cursor = Cursors.Default
If dgvBestellungen.RowCount > 0 Then
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End If
End Sub

3
SDL/kunden/frmKundenlogin.vb
View File

@@ -115,9 +115,10 @@
Select Case txtPortal.Text
Case "Q8-TRUCK" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
Case "UTA PORTAL" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
'Case "UTA PORTAL" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
Case "PLOSE APR" : link.AccessibleDescription = "https://www.apr.plose.it/login" : link.Text = cboLieferant.Text & "-Link"
Case "MSTSTTOLLS" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
Case "UTA PORTAL" : link.AccessibleDescription = "https://sso.eu.edenred.io/web/session/step/password?returnUrl=%2Fconnect%2Fauthorize%2Fcallback%3Fscope%3Dopenid%2520uta-service-center-api%26acr_values%3Dtenant%253Auta-service-center%26state%3Dauthoauth2%257C_29893002dacb85543f3e1a66a7f91556dc1792c392%253Ahttps%253A%252F%252Fssoprod.uta.com%252Fsimplesamlphp%252Fsaml2%252Fidp%252FSSOService.php%253Fspentityid%253Dhttps%25253A%25252F%25252Fwww.uta.com%25252Fsamlsps%25252Fedenredproxy%2526cookieTime%253D1788790826%26response_type%3Dcode%26approval_prompt%3Dauto%26redirect_uri%3Dhttps%253A%252F%252Fssoprod.uta.com%252Fsimplesamlphp%252Fmodule.php%252Fauthoauth2%252Flinkback.php%26client_id%3De8d6c5eab5c64fc38f7f0764c0114083" : link.Text = cboLieferant.Text & "-Link"
Case "HUB4TRUCKS" : link.AccessibleDescription = "https://truck.telepass.com/api/uaa/login" : link.Text = cboLieferant.Text & "-Link"
Case Else : link.AccessibleDescription = "" : link.Text = cboLieferant.Text & ""

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

39
SDL/seriendruck/usrCntlFakturierung.Designer.vb generated
View File

@@ -107,6 +107,8 @@ Partial Class usrcntlFakturierung
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.gb_MDM_Rechnungen = New System.Windows.Forms.GroupBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.gb_fakturierung.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -124,6 +126,7 @@ Partial Class usrcntlFakturierung
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gb_MDM_Rechnungen.SuspendLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gb_fakturierung
@@ -352,6 +355,8 @@ Partial Class usrcntlFakturierung
'
'GBSammelrechnung
'
Me.GBSammelrechnung.Controls.Add(Me.PictureBox13)
Me.GBSammelrechnung.Controls.Add(Me.Label15)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox12)
Me.GBSammelrechnung.Controls.Add(Me.Label13)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox11)
@@ -535,7 +540,7 @@ Partial Class usrcntlFakturierung
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(168, 239)
Me.Label8.Location = New System.Drawing.Point(168, 245)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(151, 16)
Me.Label8.TabIndex = 120
@@ -545,7 +550,7 @@ Partial Class usrcntlFakturierung
'
Me.PictureBox10.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox10.Location = New System.Drawing.Point(148, 239)
Me.PictureBox10.Location = New System.Drawing.Point(148, 245)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(14, 14)
Me.PictureBox10.TabIndex = 119
@@ -604,7 +609,7 @@ Partial Class usrcntlFakturierung
'
Me.PictureBox9.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox9.Location = New System.Drawing.Point(148, 221)
Me.PictureBox9.Location = New System.Drawing.Point(148, 227)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(14, 14)
Me.PictureBox9.TabIndex = 113
@@ -613,7 +618,7 @@ Partial Class usrcntlFakturierung
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(168, 221)
Me.Label2.Location = New System.Drawing.Point(168, 227)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(224, 17)
Me.Label2.TabIndex = 112
@@ -623,7 +628,7 @@ Partial Class usrcntlFakturierung
'
Me.PictureBox8.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(148, 204)
Me.PictureBox8.Location = New System.Drawing.Point(148, 210)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(14, 14)
Me.PictureBox8.TabIndex = 111
@@ -632,7 +637,7 @@ Partial Class usrcntlFakturierung
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(168, 204)
Me.Label1.Location = New System.Drawing.Point(168, 210)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(224, 17)
Me.Label1.TabIndex = 110
@@ -1036,6 +1041,25 @@ Partial Class usrcntlFakturierung
Me.Label14.TabIndex = 73
Me.Label14.Text = "Rechnungsdaten"
'
'PictureBox13
'
Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox13.Location = New System.Drawing.Point(148, 187)
Me.PictureBox13.Name = "PictureBox13"
Me.PictureBox13.Size = New System.Drawing.Size(14, 14)
Me.PictureBox13.TabIndex = 134
Me.PictureBox13.TabStop = False
Me.PictureBox13.Visible = False
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(168, 187)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(429, 14)
Me.Label15.TabIndex = 133
Me.Label15.Text = "8. Hängt ZNB-Liste an."
'
'usrcntlFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1071,6 +1095,7 @@ Partial Class usrcntlFakturierung
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.gb_MDM_Rechnungen.ResumeLayout(False)
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1158,4 +1183,6 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label13 As Label
Friend WithEvents gb_MDM_Rechnungen As GroupBox
Friend WithEvents Label14 As Label
Friend WithEvents PictureBox13 As PictureBox
Friend WithEvents Label15 As Label
End Class

24
SDL/seriendruck/usrCntlFakturierung.resx
View File

@@ -118,6 +118,30 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj

140
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,6 +1,7 @@
Imports System.Globalization
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung
@@ -372,6 +373,12 @@ Public Class usrcntlFakturierung
Dim okMaut As Boolean = False
okMaut = setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen)
'Gesamtmautberichte an Sammelrechnung anhängen
Dim okEZB As Boolean = False
okEZB = setZNBerichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen)
showPic(okMaut, PictureBox7)
If Not okMaut Then
@@ -743,7 +750,7 @@ Public Class usrcntlFakturierung
Dim ok As Boolean = False
Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text]
Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], [Status],[FilialenNr], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text]
FROM Rechnungsausgang
WHERE " & IIf(setTextifNull, "[Status] = 4 AND Text is null", "[Status] = 0") & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
@@ -1109,6 +1116,137 @@ Public Class usrcntlFakturierung
End Function
Private Function setZNBerichtInRechnung(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean
Try
Dim counterAnhang As Integer = 0
Dim hatFehler As Boolean = False
If dtSammelRechnugen.Rows.Count = 0 Then
MsgBox("Keine Rechnungen für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")
Return False
End If
Dim dtSammelRechnugen_EZB = dtSammelRechnugen.Select("FilialenNr = 8001 and OffertenNr = 95").CopyToDataTable()
If dtSammelRechnugen_EZB.Rows.Count = 0 Then
MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")
Return False
End If
For Each row In dtSammelRechnugen_EZB.Rows
Dim kdNr = row("RechnungsKundenNr")
Dim RK_ID = row("RK_ID")
Dim RG As New cRechnungsausgang(RK_ID)
If RG Is Nothing Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Rechnung RK_ID " & RK_ID & " konnte nicht geladen werden.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
hatFehler = True
Continue For
End If
Dim dtZNBList = (New SQL).loadDgvBySql("select [id] ,[belegNr] ,[buchungstext] ,[zinssatz] ,[belegZahlungsziel],[ueberschreitungInTagen] ,[zinsbetrag] ,[belegDatum] ,[zahlungsBetrag] ,[zahlungDatum] , [faelligkeitsDatum] from tblMDM_Zinsberechnung where RK_ID =" & RG.RK_ID, "FMZOLL")
If dtZNBList.Rows.Count = 0 Then
MsgBox("Keine Zinsberechnungsdaten für RK_ID " & RG.RK_ID & " gefunden. Diese Rechnung wird übersprungen.")
hatFehler = True
Continue For
End If
Dim path As String = createZNBReport(dtZNBList, kdNr, rechnungsdatum, RG)
If path = "" Then Continue For
Dim fi As New System.IO.FileInfo(path)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "ZNB", RG.KundenNrZentrale, rechnungsdatum.ToShortDateString, "", fi.Name & fi.Extension)
If Not DS.uploadDataToDATENSERVER(path, fi.Name, fi.Extension,,,, True) Then
MsgBox("Fehler beim Speichern: Datenserver! :" & RG.Firma_ID)
hatFehler = True
Continue For ' kein Anhang ohne gültigen Datenserver-Eintrag anlegen
End If
Dim ANH As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge
ANH.dsId = CInt(DS.da_id)
ANH.Bezeichnung = "POS-Liste VERZUGSZINSEN " & rechnungsdatum.ToShortDateString & fi.Extension
RG.ANHAENGE.Add(ANH)
If Not ANH.INSERT(RG.RK_ID, False) Then
MsgBox("Fehler beim Anlegen des Anhangs für RK_ID " & RG.RK_ID)
hatFehler = True
Else
RG.Anlage_1 = "POS-Liste VERZUGSZINSEN"
RG.SAVE()
counterAnhang += 1
End If
Next
Label15.Text = "8. Hängt ZNB-Liste an." & " Anzahl: " & counterAnhang
Return Not hatFehler AndAlso counterAnhang > 0
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Label15.Text = "8. Hängt ZNB-Liste an. FEHLER!"
Return False
End Try
End Function
Private Function createZNBReport(dtZNBList As DataTable, KDNr As Integer, rechnungsdatum As Date, RG As cRechnungsausgang) As String
Dim rpt As New rptPOS_ZNB(RG, RG.SteuerfreierGesamtbetrag + RG.SteuerpflichtigerGesamtbetrag)
rpt.DataSource = dtZNBList
rpt.lblRgDatum.Text = rechnungsdatum
rpt.txtKunde.Text = KDNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KDNr).FullName
rpt.Label2.Visible = False
rpt.TextBox1.Visible = False
rpt.Label4.Text = rechnungsdatum
rpt.lblHeader.Text &= " " & RG.Vermerk
If rpt.DataSource.rows.count = 0 Then Return ""
Dim AD As New cAdressen(KDNr)
Dim sum As Double = 0
rpt.txtKunde.Text = AD.FullName
AddHandler rpt.Detail.Format, Sub()
If Not IsDBNull(rpt.Fields.Item("clmnZinsen").Value) AndAlso Not IsNothing(rpt.Fields.Item("clmnZinsen").Value) AndAlso IsNumeric(rpt.Fields.Item("clmnZinsen").Value) Then
sum += CDbl(rpt.Fields.Item("clmnZinsen").Value)
End If
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.txtBruttoGesSum.Text = sum.ToString("N2")
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG.AbfertigungsNr & ".pdf", ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
End Function
Private Function AddAttachementToRE(pathFile As String, kdNr As Integer, RECHNUNG As cRechnungsausgang, rechnungsdatum As Date) As Boolean
'TODO: Prüfung, damit anhänge nicht doppelt eingearbeitet werden! -> ist DBteschnisch unterbunden mit PrimaryKey-Einschränkung!!!

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb
View File

@@ -72,6 +72,8 @@ Public Class usrcntlPDFScanList
End Sub
Private Sub usrcntlPDFScan_Load(sender As Object, e As EventArgs) Handles Me.Load
' Me.txt.Text = _TEXT_PDF
Me.AllowDrop = True

8
VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
View File

@@ -26,6 +26,10 @@ Public Class cEssensbestellung
Property eb_firma As Object = Nothing
Property eb_MenuID As Object = Nothing
Property eb_archiviert As Boolean
Property eb_gesendetVon As Object = Nothing
Property eb_abgerechnetVon As Object = Nothing
Property eb_storniertVon As Object = Nothing
Property eb_gesendetFirst_am As Object = Nothing
Public hasEntry = False
@@ -90,6 +94,10 @@ Public Class cEssensbestellung
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_firma", eb_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_archiviert", eb_archiviert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_MenuID", eb_MenuID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendetVon", eb_gesendetVon))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abgerechnetVon", eb_abgerechnetVon))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_storniertVon", eb_storniertVon))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendetFirst_am", eb_gesendetFirst_am))
Return list

2
VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb
View File

@@ -181,7 +181,7 @@ Public Class cMDMZinsberechnung
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende
Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende, faelligkeitsDatum
FROM
tblMDM_Zinsberechnung