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 End If
AddHandler rpt.Detail.Format, Sub() AddHandler rpt.Detail.Format, Sub()
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").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) Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then 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 rpt.SubReport.Report = subRpt
@@ -6257,7 +6273,7 @@ Public Class cFakturierung
Else 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) Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
If Not listAnh.Contains(Path) Then 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 _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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. ' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me._LAN = _LAN Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG Me.RECHNUNG = RECHNUNG
Me.VorschauID = VorschauID 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. ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart 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") dt.Columns.Add("clmnLeistungsNr")
RECHNUNG.ORDER_POSITIONEN() RECHNUNG.ORDER_POSITIONEN()
If Not isZNB Then
For Each POS In RECHNUNG.POSITIONEN For Each POS In RECHNUNG.POSITIONEN
If VorschauID = "PROVISIONSABRECHNUNG" Then If VorschauID = "PROVISIONSABRECHNUNG" Then
If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then If CBool(SQL.DLookup("Abfertigungskosten", "Leistungen", "LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
@@ -63,6 +74,12 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
End If End If
Next Next
Else
dt.Rows.Add(LeistungsText, SteuerfreierBetrag, SteuerpflichtigerBetrag, Anzahl, 950)
End If
Me.DataSource = dt Me.DataSource = dt
End Sub 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)) 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() ' Dim firma=getUO2()
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "TR", "EN" 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 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 End Select
Return "" Return ""

9
SDL/SDL.vbproj
View File

@@ -1253,6 +1253,12 @@
<Compile Include="mdm\IDS\rptIDS_Anhang.vb"> <Compile Include="mdm\IDS\rptIDS_Anhang.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </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"> <Compile Include="mdm\usrcntlFremdrechnungen.Designer.vb">
<DependentUpon>usrcntlFremdrechnungen.vb</DependentUpon> <DependentUpon>usrcntlFremdrechnungen.vb</DependentUpon>
</Compile> </Compile>
@@ -3881,6 +3887,9 @@
<EmbeddedResource Include="mdm\IDS\rptIDS_Anhang.resx"> <EmbeddedResource Include="mdm\IDS\rptIDS_Anhang.resx">
<DependentUpon>rptIDS_Anhang.vb</DependentUpon> <DependentUpon>rptIDS_Anhang.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\rptPOS_ZNB.resx">
<DependentUpon>rptPOS_ZNB.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx"> <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
<DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon> <DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
</EmbeddedResource> </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) 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 IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
If DS.DELETE_COMPLETE() Then If DS.DELETE_COMPLETE() Then
'löschen nicht vorhandenen Verweis! '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) 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 If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
DS.DELETE_COMPLETE() DS.DELETE_COMPLETE()
End If 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.Label1 = New System.Windows.Forms.Label()
Me.btnWord = New System.Windows.Forms.Button() Me.btnWord = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() 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.txtMonateSyskavergleich = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label61 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label()
Me.Button15 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button()
@@ -166,6 +169,11 @@ Partial Class usrCntlBH
Me.btn_Erloeskkonten = New System.Windows.Forms.Button() Me.btn_Erloeskkonten = New System.Windows.Forms.Button()
Me.Label62 = New System.Windows.Forms.Label() Me.Label62 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox() 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.Label57 = New System.Windows.Forms.Label()
Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnWikiStatusmails = New System.Windows.Forms.Button() Me.btnWikiStatusmails = New System.Windows.Forms.Button()
@@ -190,9 +198,7 @@ Partial Class usrCntlBH
Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label51 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label()
Me.txtJahr_FIBU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtJahr_FIBU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button16 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.Label67 = New System.Windows.Forms.Label()
Me.cboFirma_FIBUFilialen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.GroupBox13.SuspendLayout() Me.GroupBox13.SuspendLayout()
@@ -906,6 +912,41 @@ Partial Class usrCntlBH
Me.GroupBox2.TabIndex = 4 Me.GroupBox2.TabIndex = 4
Me.GroupBox2.TabStop = False 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 'txtMonateSyskavergleich
' '
Me.txtMonateSyskavergleich._DateTimeOnly = False Me.txtMonateSyskavergleich._DateTimeOnly = False
@@ -1949,6 +1990,7 @@ Partial Class usrCntlBH
' '
'GroupBox14 'GroupBox14
' '
Me.GroupBox14.Controls.Add(Me.Button17)
Me.GroupBox14.Controls.Add(Me.Label63) Me.GroupBox14.Controls.Add(Me.Label63)
Me.GroupBox14.Controls.Add(Me.Label66) Me.GroupBox14.Controls.Add(Me.Label66)
Me.GroupBox14.Controls.Add(Me.txtLand) 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_ZV)
Me.GroupBox14.Controls.Add(Me.btn_Laender) Me.GroupBox14.Controls.Add(Me.btn_Laender)
Me.GroupBox14.Controls.Add(Me.btn_Erloeskkonten) 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.Name = "GroupBox14"
Me.GroupBox14.Size = New System.Drawing.Size(841, 123) Me.GroupBox14.Size = New System.Drawing.Size(841, 123)
Me.GroupBox14.TabIndex = 38 Me.GroupBox14.TabIndex = 38
@@ -2115,7 +2157,7 @@ Partial Class usrCntlBH
Me.Label62.AutoSize = True 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.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.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.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(145, 17) Me.Label62.Size = New System.Drawing.Size(145, 17)
Me.Label62.TabIndex = 37 Me.Label62.TabIndex = 37
@@ -2123,6 +2165,11 @@ Partial Class usrCntlBH
' '
'GroupBox11 '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.Label57)
Me.GroupBox11.Controls.Add(Me.btnDel_) Me.GroupBox11.Controls.Add(Me.btnDel_)
Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails) Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails)
@@ -2147,10 +2194,57 @@ Partial Class usrCntlBH
Me.GroupBox11.Controls.Add(Me.txtZRbis) Me.GroupBox11.Controls.Add(Me.txtZRbis)
Me.GroupBox11.Location = New System.Drawing.Point(14, 30) Me.GroupBox11.Location = New System.Drawing.Point(14, 30)
Me.GroupBox11.Name = "GroupBox11" 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.TabIndex = 36
Me.GroupBox11.TabStop = False 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 'Label57
' '
Me.Label57.AutoSize = True Me.Label57.AutoSize = True
@@ -2519,7 +2613,7 @@ Partial Class usrCntlBH
Me.txtJahr_FIBU._Waehrung = False Me.txtJahr_FIBU._Waehrung = False
Me.txtJahr_FIBU._WaehrungZeichen = True Me.txtJahr_FIBU._WaehrungZeichen = True
Me.txtJahr_FIBU.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtJahr_FIBU.MaxLines_Warning = "" Me.txtJahr_FIBU.MaxLines_Warning = ""
Me.txtJahr_FIBU.MaxLines_Warning_Label = Nothing Me.txtJahr_FIBU.MaxLines_Warning_Label = Nothing
@@ -2528,40 +2622,17 @@ Partial Class usrCntlBH
Me.txtJahr_FIBU.TabIndex = 76 Me.txtJahr_FIBU.TabIndex = 76
Me.txtJahr_FIBU.Text = "0" Me.txtJahr_FIBU.Text = "0"
' '
'Button16 'Button17
' '
Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button17.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button17.FlatAppearance.BorderSize = 0
Me.Button16.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button17.Location = New System.Drawing.Point(816, 19)
Me.Button16.Location = New System.Drawing.Point(6, 81) Me.Button17.Name = "Button17"
Me.Button16.Name = "Button16" Me.Button17.Size = New System.Drawing.Size(25, 20)
Me.Button16.Size = New System.Drawing.Size(121, 23) Me.Button17.TabIndex = 81
Me.Button16.TabIndex = 44 Me.Button17.UseVisualStyleBackColor = True
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
' '
'usrCntlBH 'usrCntlBH
' '
@@ -2788,4 +2859,10 @@ Partial Class usrCntlBH
Friend WithEvents cboFirma_FIBUFilialen As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFirma_FIBUFilialen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label67 As Label Friend WithEvents Label67 As Label
Friend WithEvents Button16 As Button 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 End Class

46
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1,7 +1,9 @@
Imports System.Globalization Imports System.Globalization
Imports System.Text Imports System.Text
Imports ClosedXML.Excel Imports ClosedXML.Excel
Imports com.sun.xml.internal.rngom
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class usrCntlBH Public Class usrCntlBH
Dim GrenzeVersicherung = 50000 Dim GrenzeVersicherung = 50000
@@ -901,6 +903,7 @@ Public Class usrCntlBH
Else Else
Dim counter As Integer = 0 Dim counter As Integer = 0
Dim cnt As Integer = 0
For Each r As DataRow In dt.Rows For Each r As DataRow In dt.Rows
@@ -936,6 +939,15 @@ Public Class usrCntlBH
End If End If
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 Next
@@ -987,6 +999,10 @@ Public Class usrCntlBH
End If End If
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt.Rows.Count & " / " & dt.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
End If End If
@@ -1042,7 +1058,7 @@ Public Class usrCntlBH
End Function End Function
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ByRef RK_ID As Integer, 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 Try
If KdNr = "" Then Return False If KdNr = "" Then Return False
@@ -1055,7 +1071,7 @@ Public Class usrCntlBH
Dim Abfertigungsart As Integer Dim Abfertigungsart As Integer
'TODO. Setzen! 'TODO. Setzen!
OffertenNr = 95 : Abfertigungsart = 10 : RG.Anlage_1 = "" OffertenNr = 95 : Abfertigungsart = 10
RG.Firma_ID = 19 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.Buchungsjahr = cRKSV.getGJ(SPEDBUCH.Abfertigungsdatum, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
If sammelrechnung Then
RG.Sammelrechnung = 6
Else
RG.Sammelrechnung = 0 RG.Sammelrechnung = 0
End If
RG.BelegartenKz = "AR" RG.BelegartenKz = "AR"
RG.BelegartenNr = 70 RG.BelegartenNr = 70
RG.BelegartenBez = "Rechnung" RG.BelegartenBez = "Rechnung"
@@ -1180,6 +1202,7 @@ Public Class usrCntlBH
RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
If RG.SAVE Then If RG.SAVE Then
RK_ID = RG.RK_ID RK_ID = RG.RK_ID
Return True Return True
@@ -1238,6 +1261,8 @@ Public Class usrCntlBH
Return False Return False
End Function End Function
Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click
Dim frm As New frmZinsnachberechnung("tblMDM_Zinsberechnung", "FMZOLL") Dim frm As New frmZinsnachberechnung("tblMDM_Zinsberechnung", "FMZOLL")
frm.ShowDialog(Me) 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 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 For Each R In dt_Main.Rows
@@ -1353,18 +1378,31 @@ Public Class usrCntlBH
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim RK_ID As Integer = -1 Dim RK_ID As Integer = -1
If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False 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 If verarbOK Then
SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL") SQL.doSQL("UPDATE [tblMDM_Zinsberechnung] SET [verrechnet]=GETDATE(), RK_ID = " & RK_ID & " WHERE [verrechnet] Is null And kundenNr='" & R("kundenNr") & "' ", "FMZOLL")
End If 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 Next
txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
End If End If
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
End If 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], 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 FROM
[tblEssensbestellungen] WHERE 1=1 " [tblEssensbestellungen] WHERE 1=1 "
@@ -328,6 +328,11 @@ Public Class frmEssensbestellungenAdministration
End If End If
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Select End Select
@@ -348,6 +353,11 @@ Public Class frmEssensbestellungenAdministration
End If End If
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Select End Select
@@ -355,7 +365,7 @@ Public Class frmEssensbestellungenAdministration
Select Case dgvBestellungen.SelectedRows.Count Select Case dgvBestellungen.SelectedRows.Count
Case 1 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 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) generateEMailforHighway(sender, e)
Else Else
Exit Sub Exit Sub
@@ -363,7 +373,7 @@ Public Class frmEssensbestellungenAdministration
Case Else Case Else
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
bestellungenSenden(True) bestellungenSenden(True, "ALL")
generateEMailforHighway(sender, e) generateEMailforHighway(sender, e)
Else Else
Exit Sub Exit Sub
@@ -387,6 +397,7 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_storniert = True bestellung.eb_storniert = True
If stornieren Then If stornieren Then
bestellung.eb_storniert_am = Now bestellung.eb_storniert_am = Now
bestellung.eb_storniertVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Else Else
bestellung.eb_storniert_am = DBNull.Value bestellung.eb_storniert_am = DBNull.Value
@@ -399,10 +410,6 @@ Public Class frmEssensbestellungenAdministration
Next Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub End Sub
Private Sub bestellungenAbrechnen(abrechnen As Boolean) Private Sub bestellungenAbrechnen(abrechnen As Boolean)
@@ -415,6 +422,7 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_abgerechnet = abrechnen bestellung.eb_abgerechnet = abrechnen
If abrechnen Then If abrechnen Then
bestellung.eb_abgerechnet_am = Now bestellung.eb_abgerechnet_am = Now
bestellung.eb_abgerechnetVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
Else Else
bestellung.eb_abgerechnet_am = DBNull.Value bestellung.eb_abgerechnet_am = DBNull.Value
@@ -425,14 +433,9 @@ Public Class frmEssensbestellungenAdministration
Next Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub 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 For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
@@ -442,6 +445,8 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_gesendet = senden bestellung.eb_gesendet = senden
If senden Then If senden Then
bestellung.eb_gesendet_am = Now 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 Else
bestellung.eb_gesendet_am = DBNull.Value bestellung.eb_gesendet_am = DBNull.Value
@@ -451,13 +456,7 @@ Public Class frmEssensbestellungenAdministration
Next Next
If dgvBestellungen.RowCount > 0 Then
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End If
End Sub End Sub
@@ -500,6 +499,8 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_gesendet = True bestellung.eb_gesendet = True
bestellung.eb_gesendet_am = Now 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() bestellung.SAVE()
End If End If
Next Next
@@ -543,6 +544,14 @@ Public Class frmEssensbestellungenAdministration
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If dgvBestellungen.RowCount > 0 Then
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End If
End Sub End Sub

3
SDL/kunden/frmKundenlogin.vb
View File

@@ -115,9 +115,10 @@
Select Case txtPortal.Text Select Case txtPortal.Text
Case "Q8-TRUCK" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link" 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 "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 "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 "HUB4TRUCKS" : link.AccessibleDescription = "https://truck.telepass.com/api/uaa/login" : link.Text = cboLieferant.Text & "-Link"
Case Else : link.AccessibleDescription = "" : link.Text = cboLieferant.Text & "" 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.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.gb_MDM_Rechnungen = New System.Windows.Forms.GroupBox() Me.gb_MDM_Rechnungen = New System.Windows.Forms.GroupBox()
Me.Label14 = New System.Windows.Forms.Label() 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.gb_fakturierung.SuspendLayout()
Me.GBMautberichte.SuspendLayout() Me.GBMautberichte.SuspendLayout()
CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -124,6 +126,7 @@ Partial Class usrcntlFakturierung
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gb_MDM_Rechnungen.SuspendLayout() Me.gb_MDM_Rechnungen.SuspendLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'gb_fakturierung 'gb_fakturierung
@@ -352,6 +355,8 @@ Partial Class usrcntlFakturierung
' '
'GBSammelrechnung 'GBSammelrechnung
' '
Me.GBSammelrechnung.Controls.Add(Me.PictureBox13)
Me.GBSammelrechnung.Controls.Add(Me.Label15)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox12) Me.GBSammelrechnung.Controls.Add(Me.PictureBox12)
Me.GBSammelrechnung.Controls.Add(Me.Label13) Me.GBSammelrechnung.Controls.Add(Me.Label13)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox11) Me.GBSammelrechnung.Controls.Add(Me.PictureBox11)
@@ -535,7 +540,7 @@ Partial Class usrcntlFakturierung
' '
'Label8 '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.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(151, 16) Me.Label8.Size = New System.Drawing.Size(151, 16)
Me.Label8.TabIndex = 120 Me.Label8.TabIndex = 120
@@ -545,7 +550,7 @@ Partial Class usrcntlFakturierung
' '
Me.PictureBox10.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.PictureBox10.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 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.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(14, 14) Me.PictureBox10.Size = New System.Drawing.Size(14, 14)
Me.PictureBox10.TabIndex = 119 Me.PictureBox10.TabIndex = 119
@@ -604,7 +609,7 @@ Partial Class usrcntlFakturierung
' '
Me.PictureBox9.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.PictureBox9.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 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.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(14, 14) Me.PictureBox9.Size = New System.Drawing.Size(14, 14)
Me.PictureBox9.TabIndex = 113 Me.PictureBox9.TabIndex = 113
@@ -613,7 +618,7 @@ Partial Class usrcntlFakturierung
' '
'Label2 '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.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(224, 17) Me.Label2.Size = New System.Drawing.Size(224, 17)
Me.Label2.TabIndex = 112 Me.Label2.TabIndex = 112
@@ -623,7 +628,7 @@ Partial Class usrcntlFakturierung
' '
Me.PictureBox8.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.PictureBox8.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 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.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(14, 14) Me.PictureBox8.Size = New System.Drawing.Size(14, 14)
Me.PictureBox8.TabIndex = 111 Me.PictureBox8.TabIndex = 111
@@ -632,7 +637,7 @@ Partial Class usrcntlFakturierung
' '
'Label1 '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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(224, 17) Me.Label1.Size = New System.Drawing.Size(224, 17)
Me.Label1.TabIndex = 110 Me.Label1.TabIndex = 110
@@ -1036,6 +1041,25 @@ Partial Class usrcntlFakturierung
Me.Label14.TabIndex = 73 Me.Label14.TabIndex = 73
Me.Label14.Text = "Rechnungsdaten" 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 'usrcntlFakturierung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.gb_MDM_Rechnungen.ResumeLayout(False) Me.gb_MDM_Rechnungen.ResumeLayout(False)
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1158,4 +1183,6 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents gb_MDM_Rechnungen As GroupBox Friend WithEvents gb_MDM_Rechnungen As GroupBox
Friend WithEvents Label14 As Label Friend WithEvents Label14 As Label
Friend WithEvents PictureBox13 As PictureBox
Friend WithEvents Label15 As Label
End Class 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> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="PictureBox6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj

140
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,6 +1,7 @@
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung Public Class usrcntlFakturierung
@@ -372,6 +373,12 @@ Public Class usrcntlFakturierung
Dim okMaut As Boolean = False Dim okMaut As Boolean = False
okMaut = setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) okMaut = setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen)
'Gesamtmautberichte an Sammelrechnung anhängen
Dim okEZB As Boolean = False
okEZB = setZNBerichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen)
showPic(okMaut, PictureBox7) showPic(okMaut, PictureBox7)
If Not okMaut Then If Not okMaut Then
@@ -743,7 +750,7 @@ Public Class usrcntlFakturierung
Dim ok As Boolean = False 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 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 & "' 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") ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
@@ -1109,6 +1116,137 @@ Public Class usrcntlFakturierung
End Function 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 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!!! '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 End Sub
Private Sub usrcntlPDFScan_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub usrcntlPDFScan_Load(sender As Object, e As EventArgs) Handles Me.Load
' Me.txt.Text = _TEXT_PDF ' Me.txt.Text = _TEXT_PDF
Me.AllowDrop = True 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_firma As Object = Nothing
Property eb_MenuID As Object = Nothing Property eb_MenuID As Object = Nothing
Property eb_archiviert As Boolean 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 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_firma", eb_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_archiviert", eb_archiviert)) 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_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 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 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 FROM
tblMDM_Zinsberechnung tblMDM_Zinsberechnung