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

BH und Mahnungen

Browse Source
This commit is contained in:
d.breimaier
2024-08-08 11:01:26 +02:00
parent 6678f3b265
commit 017c9e49ce
4 changed files with 345 additions and 327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -290,6 +290,8 @@ Public Class frmBU_Mahnlauf
rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'If(RECHNUNG.Sachbearbeiter, "")
rpt.lblEmail.Text = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag")
Dim waehrungCode As String = KD.Währungscode

3
SDL/buchhaltung/rptMahnung.Designer.vb generated
View File

@@ -761,8 +761,9 @@ Partial Public Class rptMahnung
Me.lblEmail.HyperLink = Nothing
Me.lblEmail.Left = 5.197479!
Me.lblEmail.Name = "lblEmail"
Me.lblEmail.ShrinkToFit = True
Me.lblEmail.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: right; vertical-al" &
"ign: middle; ddo-char-set: 1"
"ign: middle; ddo-char-set: 1; ddo-shrink-to-fit: true"
Me.lblEmail.Text = "buchhaltung@verag.ag"
Me.lblEmail.Top = 2.35!
Me.lblEmail.Width = 1.895268!

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

@@ -31,12 +31,14 @@ Partial Class usrCntlBH
Me.Button11 = New System.Windows.Forms.Button()
Me.Label40 = New System.Windows.Forms.Label()
Me.Button10 = New System.Windows.Forms.Button()
Me.txtStichtag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label()
Me.Button9 = New System.Windows.Forms.Button()
Me.Label34 = New System.Windows.Forms.Label()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.Label36 = New System.Windows.Forms.Label()
Me.cboAbfVerbFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button8 = New System.Windows.Forms.Button()
Me.Label35 = New System.Windows.Forms.Label()
Me.Label32 = New System.Windows.Forms.Label()
@@ -76,26 +78,39 @@ Partial Class usrCntlBH
Me.cbx2JahreUmsatz = New System.Windows.Forms.CheckBox()
Me.cbxSDLLeistungenSperre = New System.Windows.Forms.CheckBox()
Me.Label23 = New System.Windows.Forms.Label()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.cboSort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.cbxHideZeroValues = New System.Windows.Forms.CheckBox()
Me.cbxFormatNumbers = New System.Windows.Forms.CheckBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.txtBagatellgrenzeBei = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.cbxBagatellgrenze = New System.Windows.Forms.CheckBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.txtOPUmsatzBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPUmsatzBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtOPUmsatzBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPUmsatzVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.cbxOPUmsatz = New System.Windows.Forms.CheckBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtOPRisikoBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.txtOPRisikoBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtOPKdNrBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPKdNrVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtOPKdName = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -106,21 +121,7 @@ Partial Class usrCntlBH
Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button()
Me.txtStichtag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboAbfVerbFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.cboSort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtBagatellgrenzeBei = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtOPUmsatzBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPUmsatzBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPUmsatzBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPUmsatzVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPRisikoBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPRisikoBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPKdNrBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPKdNrVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOPKdName = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxBankgarantieInfo = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox9.SuspendLayout()
@@ -262,6 +263,30 @@ Partial Class usrCntlBH
Me.Button10.Text = " Excel"
Me.Button10.UseVisualStyleBackColor = True
'
'txtStichtag
'
Me.txtStichtag._DateTimeOnly = False
Me.txtStichtag._numbersOnly = False
Me.txtStichtag._numbersOnlyKommastellen = ""
Me.txtStichtag._numbersOnlyTrennzeichen = True
Me.txtStichtag._Prozent = False
Me.txtStichtag._ShortDateNew = True
Me.txtStichtag._ShortDateOnly = False
Me.txtStichtag._TimeOnly = False
Me.txtStichtag._TimeOnly_Seconds = False
Me.txtStichtag._value = ""
Me.txtStichtag._Waehrung = False
Me.txtStichtag._WaehrungZeichen = True
Me.txtStichtag.ForeColor = System.Drawing.Color.Black
Me.txtStichtag.Location = New System.Drawing.Point(67, 10)
Me.txtStichtag.MaxLength = 10
Me.txtStichtag.MaxLineLength = -1
Me.txtStichtag.MaxLines_Warning = ""
Me.txtStichtag.MaxLines_Warning_Label = Nothing
Me.txtStichtag.Name = "txtStichtag"
Me.txtStichtag.Size = New System.Drawing.Size(60, 20)
Me.txtStichtag.TabIndex = 21
'
'Label39
'
Me.Label39.AutoSize = True
@@ -327,6 +352,17 @@ Partial Class usrCntlBH
Me.Label36.TabIndex = 30
Me.Label36.Text = "Firma:"
'
'cboAbfVerbFirma
'
Me.cboAbfVerbFirma._allowedValuesFreiText = Nothing
Me.cboAbfVerbFirma._allowFreiText = False
Me.cboAbfVerbFirma._value = ""
Me.cboAbfVerbFirma.FormattingEnabled = True
Me.cboAbfVerbFirma.Location = New System.Drawing.Point(503, 27)
Me.cboAbfVerbFirma.Name = "cboAbfVerbFirma"
Me.cboAbfVerbFirma.Size = New System.Drawing.Size(132, 21)
Me.cboAbfVerbFirma.TabIndex = 29
'
'Button8
'
Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
@@ -637,6 +673,7 @@ Partial Class usrCntlBH
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbxBankgarantieInfo)
Me.GroupBox3.Controls.Add(Me.cbxNichtVersicherbarAusblenden)
Me.GroupBox3.Controls.Add(Me.Panel1)
Me.GroupBox3.Controls.Add(Me.cbxNurVersicherteLänder)
@@ -790,6 +827,27 @@ Partial Class usrCntlBH
Me.Label23.TabIndex = 23
Me.Label23.Text = "Firmen (Debitoren):"
'
'MyListBox1
'
Me.MyListBox1._value = ""
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.Location = New System.Drawing.Point(699, 55)
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.MyListBox1.Size = New System.Drawing.Size(142, 212)
Me.MyListBox1.TabIndex = 7
'
'cboSort
'
Me.cboSort._allowedValuesFreiText = Nothing
Me.cboSort._allowFreiText = False
Me.cboSort._value = ""
Me.cboSort.FormattingEnabled = True
Me.cboSort.Location = New System.Drawing.Point(207, 205)
Me.cboSort.Name = "cboSort"
Me.cboSort.Size = New System.Drawing.Size(132, 21)
Me.cboSort.TabIndex = 22
'
'Label22
'
Me.Label22.AutoSize = True
@@ -834,6 +892,32 @@ Partial Class usrCntlBH
Me.Panel3.Size = New System.Drawing.Size(133, 50)
Me.Panel3.TabIndex = 17
'
'txtBagatellgrenzeBei
'
Me.txtBagatellgrenzeBei._DateTimeOnly = False
Me.txtBagatellgrenzeBei._numbersOnly = False
Me.txtBagatellgrenzeBei._numbersOnlyKommastellen = ""
Me.txtBagatellgrenzeBei._numbersOnlyTrennzeichen = True
Me.txtBagatellgrenzeBei._Prozent = False
Me.txtBagatellgrenzeBei._ShortDateNew = True
Me.txtBagatellgrenzeBei._ShortDateOnly = False
Me.txtBagatellgrenzeBei._TimeOnly = False
Me.txtBagatellgrenzeBei._TimeOnly_Seconds = False
Me.txtBagatellgrenzeBei._value = ""
Me.txtBagatellgrenzeBei._Waehrung = True
Me.txtBagatellgrenzeBei._WaehrungZeichen = True
Me.txtBagatellgrenzeBei.Enabled = False
Me.txtBagatellgrenzeBei.ForeColor = System.Drawing.Color.Black
Me.txtBagatellgrenzeBei.Location = New System.Drawing.Point(38, 25)
Me.txtBagatellgrenzeBei.MaxLength = 10
Me.txtBagatellgrenzeBei.MaxLineLength = -1
Me.txtBagatellgrenzeBei.MaxLines_Warning = ""
Me.txtBagatellgrenzeBei.MaxLines_Warning_Label = Nothing
Me.txtBagatellgrenzeBei.Name = "txtBagatellgrenzeBei"
Me.txtBagatellgrenzeBei.Size = New System.Drawing.Size(79, 20)
Me.txtBagatellgrenzeBei.TabIndex = 1
Me.txtBagatellgrenzeBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
'
Me.Label19.AutoSize = True
@@ -854,6 +938,17 @@ Partial Class usrCntlBH
Me.cbxBagatellgrenze.Text = "Bagatellgrenze"
Me.cbxBagatellgrenze.UseVisualStyleBackColor = True
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(532, 55)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(132, 21)
Me.MyComboBox1.TabIndex = 7
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
@@ -899,6 +994,54 @@ Partial Class usrCntlBH
Me.Label18.TabIndex = 17
Me.Label18.Text = "bis:"
'
'txtOPUmsatzBetragBis
'
Me.txtOPUmsatzBetragBis._DateTimeOnly = False
Me.txtOPUmsatzBetragBis._numbersOnly = False
Me.txtOPUmsatzBetragBis._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBetragBis._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBetragBis._Prozent = False
Me.txtOPUmsatzBetragBis._ShortDateNew = False
Me.txtOPUmsatzBetragBis._ShortDateOnly = False
Me.txtOPUmsatzBetragBis._TimeOnly = False
Me.txtOPUmsatzBetragBis._TimeOnly_Seconds = False
Me.txtOPUmsatzBetragBis._value = ""
Me.txtOPUmsatzBetragBis._Waehrung = True
Me.txtOPUmsatzBetragBis._WaehrungZeichen = True
Me.txtOPUmsatzBetragBis.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBetragBis.Location = New System.Drawing.Point(131, 48)
Me.txtOPUmsatzBetragBis.MaxLineLength = -1
Me.txtOPUmsatzBetragBis.MaxLines_Warning = ""
Me.txtOPUmsatzBetragBis.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBetragBis.Name = "txtOPUmsatzBetragBis"
Me.txtOPUmsatzBetragBis.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBetragBis.TabIndex = 18
Me.txtOPUmsatzBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtOPUmsatzBetragVon
'
Me.txtOPUmsatzBetragVon._DateTimeOnly = False
Me.txtOPUmsatzBetragVon._numbersOnly = False
Me.txtOPUmsatzBetragVon._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBetragVon._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBetragVon._Prozent = False
Me.txtOPUmsatzBetragVon._ShortDateNew = False
Me.txtOPUmsatzBetragVon._ShortDateOnly = False
Me.txtOPUmsatzBetragVon._TimeOnly = False
Me.txtOPUmsatzBetragVon._TimeOnly_Seconds = False
Me.txtOPUmsatzBetragVon._value = ""
Me.txtOPUmsatzBetragVon._Waehrung = True
Me.txtOPUmsatzBetragVon._WaehrungZeichen = True
Me.txtOPUmsatzBetragVon.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBetragVon.Location = New System.Drawing.Point(38, 48)
Me.txtOPUmsatzBetragVon.MaxLineLength = -1
Me.txtOPUmsatzBetragVon.MaxLines_Warning = ""
Me.txtOPUmsatzBetragVon.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBetragVon.Name = "txtOPUmsatzBetragVon"
Me.txtOPUmsatzBetragVon.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBetragVon.TabIndex = 16
Me.txtOPUmsatzBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label16
'
Me.Label16.AutoSize = True
@@ -908,6 +1051,54 @@ Partial Class usrCntlBH
Me.Label16.TabIndex = 2
Me.Label16.Text = "bis:"
'
'txtOPUmsatzBis
'
Me.txtOPUmsatzBis._DateTimeOnly = False
Me.txtOPUmsatzBis._numbersOnly = False
Me.txtOPUmsatzBis._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBis._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBis._Prozent = False
Me.txtOPUmsatzBis._ShortDateNew = True
Me.txtOPUmsatzBis._ShortDateOnly = False
Me.txtOPUmsatzBis._TimeOnly = False
Me.txtOPUmsatzBis._TimeOnly_Seconds = False
Me.txtOPUmsatzBis._value = ""
Me.txtOPUmsatzBis._Waehrung = False
Me.txtOPUmsatzBis._WaehrungZeichen = True
Me.txtOPUmsatzBis.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBis.Location = New System.Drawing.Point(131, 25)
Me.txtOPUmsatzBis.MaxLength = 10
Me.txtOPUmsatzBis.MaxLineLength = -1
Me.txtOPUmsatzBis.MaxLines_Warning = ""
Me.txtOPUmsatzBis.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBis.Name = "txtOPUmsatzBis"
Me.txtOPUmsatzBis.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBis.TabIndex = 4
'
'txtOPUmsatzVon
'
Me.txtOPUmsatzVon._DateTimeOnly = False
Me.txtOPUmsatzVon._numbersOnly = False
Me.txtOPUmsatzVon._numbersOnlyKommastellen = ""
Me.txtOPUmsatzVon._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzVon._Prozent = False
Me.txtOPUmsatzVon._ShortDateNew = True
Me.txtOPUmsatzVon._ShortDateOnly = False
Me.txtOPUmsatzVon._TimeOnly = False
Me.txtOPUmsatzVon._TimeOnly_Seconds = False
Me.txtOPUmsatzVon._value = ""
Me.txtOPUmsatzVon._Waehrung = False
Me.txtOPUmsatzVon._WaehrungZeichen = True
Me.txtOPUmsatzVon.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzVon.Location = New System.Drawing.Point(38, 25)
Me.txtOPUmsatzVon.MaxLength = 10
Me.txtOPUmsatzVon.MaxLineLength = -1
Me.txtOPUmsatzVon.MaxLines_Warning = ""
Me.txtOPUmsatzVon.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzVon.Name = "txtOPUmsatzVon"
Me.txtOPUmsatzVon.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzVon.TabIndex = 1
'
'Label15
'
Me.Label15.AutoSize = True
@@ -946,6 +1137,30 @@ Partial Class usrCntlBH
Me.Label14.TabIndex = 14
Me.Label14.Text = "bis:"
'
'txtOPRisikoBetragBis
'
Me.txtOPRisikoBetragBis._DateTimeOnly = False
Me.txtOPRisikoBetragBis._numbersOnly = False
Me.txtOPRisikoBetragBis._numbersOnlyKommastellen = ""
Me.txtOPRisikoBetragBis._numbersOnlyTrennzeichen = True
Me.txtOPRisikoBetragBis._Prozent = False
Me.txtOPRisikoBetragBis._ShortDateNew = False
Me.txtOPRisikoBetragBis._ShortDateOnly = False
Me.txtOPRisikoBetragBis._TimeOnly = False
Me.txtOPRisikoBetragBis._TimeOnly_Seconds = False
Me.txtOPRisikoBetragBis._value = ""
Me.txtOPRisikoBetragBis._Waehrung = True
Me.txtOPRisikoBetragBis._WaehrungZeichen = True
Me.txtOPRisikoBetragBis.ForeColor = System.Drawing.Color.Black
Me.txtOPRisikoBetragBis.Location = New System.Drawing.Point(416, 110)
Me.txtOPRisikoBetragBis.MaxLineLength = -1
Me.txtOPRisikoBetragBis.MaxLines_Warning = ""
Me.txtOPRisikoBetragBis.MaxLines_Warning_Label = Nothing
Me.txtOPRisikoBetragBis.Name = "txtOPRisikoBetragBis"
Me.txtOPRisikoBetragBis.Size = New System.Drawing.Size(70, 20)
Me.txtOPRisikoBetragBis.TabIndex = 15
Me.txtOPRisikoBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Button3
'
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
@@ -960,6 +1175,30 @@ Partial Class usrCntlBH
Me.Button3.Text = " Excel"
Me.Button3.UseVisualStyleBackColor = True
'
'txtOPRisikoBetragVon
'
Me.txtOPRisikoBetragVon._DateTimeOnly = False
Me.txtOPRisikoBetragVon._numbersOnly = False
Me.txtOPRisikoBetragVon._numbersOnlyKommastellen = ""
Me.txtOPRisikoBetragVon._numbersOnlyTrennzeichen = True
Me.txtOPRisikoBetragVon._Prozent = False
Me.txtOPRisikoBetragVon._ShortDateNew = False
Me.txtOPRisikoBetragVon._ShortDateOnly = False
Me.txtOPRisikoBetragVon._TimeOnly = False
Me.txtOPRisikoBetragVon._TimeOnly_Seconds = False
Me.txtOPRisikoBetragVon._value = ""
Me.txtOPRisikoBetragVon._Waehrung = True
Me.txtOPRisikoBetragVon._WaehrungZeichen = True
Me.txtOPRisikoBetragVon.ForeColor = System.Drawing.Color.Black
Me.txtOPRisikoBetragVon.Location = New System.Drawing.Point(308, 110)
Me.txtOPRisikoBetragVon.MaxLineLength = -1
Me.txtOPRisikoBetragVon.MaxLines_Warning = ""
Me.txtOPRisikoBetragVon.MaxLines_Warning_Label = Nothing
Me.txtOPRisikoBetragVon.Name = "txtOPRisikoBetragVon"
Me.txtOPRisikoBetragVon.Size = New System.Drawing.Size(70, 20)
Me.txtOPRisikoBetragVon.TabIndex = 13
Me.txtOPRisikoBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label13
'
Me.Label13.AutoSize = True
@@ -978,6 +1217,52 @@ Partial Class usrCntlBH
Me.Label12.TabIndex = 10
Me.Label12.Text = "bis:"
'
'txtOPKdNrBis
'
Me.txtOPKdNrBis._DateTimeOnly = False
Me.txtOPKdNrBis._numbersOnly = False
Me.txtOPKdNrBis._numbersOnlyKommastellen = ""
Me.txtOPKdNrBis._numbersOnlyTrennzeichen = True
Me.txtOPKdNrBis._Prozent = False
Me.txtOPKdNrBis._ShortDateNew = False
Me.txtOPKdNrBis._ShortDateOnly = False
Me.txtOPKdNrBis._TimeOnly = False
Me.txtOPKdNrBis._TimeOnly_Seconds = False
Me.txtOPKdNrBis._value = Nothing
Me.txtOPKdNrBis._Waehrung = False
Me.txtOPKdNrBis._WaehrungZeichen = True
Me.txtOPKdNrBis.ForeColor = System.Drawing.Color.Black
Me.txtOPKdNrBis.Location = New System.Drawing.Point(416, 84)
Me.txtOPKdNrBis.MaxLineLength = -1
Me.txtOPKdNrBis.MaxLines_Warning = ""
Me.txtOPKdNrBis.MaxLines_Warning_Label = Nothing
Me.txtOPKdNrBis.Name = "txtOPKdNrBis"
Me.txtOPKdNrBis.Size = New System.Drawing.Size(70, 20)
Me.txtOPKdNrBis.TabIndex = 11
'
'txtOPKdNrVon
'
Me.txtOPKdNrVon._DateTimeOnly = False
Me.txtOPKdNrVon._numbersOnly = False
Me.txtOPKdNrVon._numbersOnlyKommastellen = ""
Me.txtOPKdNrVon._numbersOnlyTrennzeichen = True
Me.txtOPKdNrVon._Prozent = False
Me.txtOPKdNrVon._ShortDateNew = False
Me.txtOPKdNrVon._ShortDateOnly = False
Me.txtOPKdNrVon._TimeOnly = False
Me.txtOPKdNrVon._TimeOnly_Seconds = False
Me.txtOPKdNrVon._value = Nothing
Me.txtOPKdNrVon._Waehrung = False
Me.txtOPKdNrVon._WaehrungZeichen = True
Me.txtOPKdNrVon.ForeColor = System.Drawing.Color.Black
Me.txtOPKdNrVon.Location = New System.Drawing.Point(308, 84)
Me.txtOPKdNrVon.MaxLineLength = -1
Me.txtOPKdNrVon.MaxLines_Warning = ""
Me.txtOPKdNrVon.MaxLines_Warning_Label = Nothing
Me.txtOPKdNrVon.Name = "txtOPKdNrVon"
Me.txtOPKdNrVon.Size = New System.Drawing.Size(70, 20)
Me.txtOPKdNrVon.TabIndex = 9
'
'Label11
'
Me.Label11.AutoSize = True
@@ -996,6 +1281,29 @@ Partial Class usrCntlBH
Me.Label9.TabIndex = 4
Me.Label9.Text = "Kunde (Namenseinschränkung):"
'
'txtOPKdName
'
Me.txtOPKdName._DateTimeOnly = False
Me.txtOPKdName._numbersOnly = False
Me.txtOPKdName._numbersOnlyKommastellen = ""
Me.txtOPKdName._numbersOnlyTrennzeichen = True
Me.txtOPKdName._Prozent = False
Me.txtOPKdName._ShortDateNew = False
Me.txtOPKdName._ShortDateOnly = False
Me.txtOPKdName._TimeOnly = False
Me.txtOPKdName._TimeOnly_Seconds = False
Me.txtOPKdName._value = Nothing
Me.txtOPKdName._Waehrung = False
Me.txtOPKdName._WaehrungZeichen = True
Me.txtOPKdName.ForeColor = System.Drawing.Color.Black
Me.txtOPKdName.Location = New System.Drawing.Point(308, 55)
Me.txtOPKdName.MaxLineLength = -1
Me.txtOPKdName.MaxLines_Warning = ""
Me.txtOPKdName.MaxLines_Warning_Label = Nothing
Me.txtOPKdName.Name = "txtOPKdName"
Me.txtOPKdName.Size = New System.Drawing.Size(178, 20)
Me.txtOPKdName.TabIndex = 5
'
'Label8
'
Me.Label8.AutoSize = True
@@ -1103,311 +1411,16 @@ Partial Class usrCntlBH
Me.Button7.Text = "Importieren"
Me.Button7.UseVisualStyleBackColor = True
'
'txtStichtag
'cbxBankgarantieInfo
'
Me.txtStichtag._DateTimeOnly = False
Me.txtStichtag._numbersOnly = False
Me.txtStichtag._numbersOnlyKommastellen = ""
Me.txtStichtag._numbersOnlyTrennzeichen = True
Me.txtStichtag._Prozent = False
Me.txtStichtag._ShortDateNew = True
Me.txtStichtag._ShortDateOnly = False
Me.txtStichtag._TimeOnly = False
Me.txtStichtag._TimeOnly_Seconds = False
Me.txtStichtag._value = ""
Me.txtStichtag._Waehrung = False
Me.txtStichtag._WaehrungZeichen = True
Me.txtStichtag.ForeColor = System.Drawing.Color.Black
Me.txtStichtag.Location = New System.Drawing.Point(67, 10)
Me.txtStichtag.MaxLength = 10
Me.txtStichtag.MaxLineLength = -1
Me.txtStichtag.MaxLines_Warning = ""
Me.txtStichtag.MaxLines_Warning_Label = Nothing
Me.txtStichtag.Name = "txtStichtag"
Me.txtStichtag.Size = New System.Drawing.Size(60, 20)
Me.txtStichtag.TabIndex = 21
'
'cboAbfVerbFirma
'
Me.cboAbfVerbFirma._allowedValuesFreiText = Nothing
Me.cboAbfVerbFirma._allowFreiText = False
Me.cboAbfVerbFirma._value = ""
Me.cboAbfVerbFirma.FormattingEnabled = True
Me.cboAbfVerbFirma.Location = New System.Drawing.Point(503, 27)
Me.cboAbfVerbFirma.Name = "cboAbfVerbFirma"
Me.cboAbfVerbFirma.Size = New System.Drawing.Size(132, 21)
Me.cboAbfVerbFirma.TabIndex = 29
'
'MyListBox1
'
Me.MyListBox1._value = ""
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.Location = New System.Drawing.Point(699, 55)
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.MyListBox1.Size = New System.Drawing.Size(142, 212)
Me.MyListBox1.TabIndex = 7
'
'cboSort
'
Me.cboSort._allowedValuesFreiText = Nothing
Me.cboSort._allowFreiText = False
Me.cboSort._value = ""
Me.cboSort.FormattingEnabled = True
Me.cboSort.Location = New System.Drawing.Point(207, 205)
Me.cboSort.Name = "cboSort"
Me.cboSort.Size = New System.Drawing.Size(132, 21)
Me.cboSort.TabIndex = 22
'
'txtBagatellgrenzeBei
'
Me.txtBagatellgrenzeBei._DateTimeOnly = False
Me.txtBagatellgrenzeBei._numbersOnly = False
Me.txtBagatellgrenzeBei._numbersOnlyKommastellen = ""
Me.txtBagatellgrenzeBei._numbersOnlyTrennzeichen = True
Me.txtBagatellgrenzeBei._Prozent = False
Me.txtBagatellgrenzeBei._ShortDateNew = True
Me.txtBagatellgrenzeBei._ShortDateOnly = False
Me.txtBagatellgrenzeBei._TimeOnly = False
Me.txtBagatellgrenzeBei._TimeOnly_Seconds = False
Me.txtBagatellgrenzeBei._value = ""
Me.txtBagatellgrenzeBei._Waehrung = True
Me.txtBagatellgrenzeBei._WaehrungZeichen = True
Me.txtBagatellgrenzeBei.Enabled = False
Me.txtBagatellgrenzeBei.ForeColor = System.Drawing.Color.Black
Me.txtBagatellgrenzeBei.Location = New System.Drawing.Point(38, 25)
Me.txtBagatellgrenzeBei.MaxLength = 10
Me.txtBagatellgrenzeBei.MaxLineLength = -1
Me.txtBagatellgrenzeBei.MaxLines_Warning = ""
Me.txtBagatellgrenzeBei.MaxLines_Warning_Label = Nothing
Me.txtBagatellgrenzeBei.Name = "txtBagatellgrenzeBei"
Me.txtBagatellgrenzeBei.Size = New System.Drawing.Size(79, 20)
Me.txtBagatellgrenzeBei.TabIndex = 1
Me.txtBagatellgrenzeBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(532, 55)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(132, 21)
Me.MyComboBox1.TabIndex = 7
'
'txtOPUmsatzBetragBis
'
Me.txtOPUmsatzBetragBis._DateTimeOnly = False
Me.txtOPUmsatzBetragBis._numbersOnly = False
Me.txtOPUmsatzBetragBis._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBetragBis._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBetragBis._Prozent = False
Me.txtOPUmsatzBetragBis._ShortDateNew = False
Me.txtOPUmsatzBetragBis._ShortDateOnly = False
Me.txtOPUmsatzBetragBis._TimeOnly = False
Me.txtOPUmsatzBetragBis._TimeOnly_Seconds = False
Me.txtOPUmsatzBetragBis._value = ""
Me.txtOPUmsatzBetragBis._Waehrung = True
Me.txtOPUmsatzBetragBis._WaehrungZeichen = True
Me.txtOPUmsatzBetragBis.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBetragBis.Location = New System.Drawing.Point(131, 48)
Me.txtOPUmsatzBetragBis.MaxLineLength = -1
Me.txtOPUmsatzBetragBis.MaxLines_Warning = ""
Me.txtOPUmsatzBetragBis.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBetragBis.Name = "txtOPUmsatzBetragBis"
Me.txtOPUmsatzBetragBis.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBetragBis.TabIndex = 18
Me.txtOPUmsatzBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtOPUmsatzBetragVon
'
Me.txtOPUmsatzBetragVon._DateTimeOnly = False
Me.txtOPUmsatzBetragVon._numbersOnly = False
Me.txtOPUmsatzBetragVon._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBetragVon._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBetragVon._Prozent = False
Me.txtOPUmsatzBetragVon._ShortDateNew = False
Me.txtOPUmsatzBetragVon._ShortDateOnly = False
Me.txtOPUmsatzBetragVon._TimeOnly = False
Me.txtOPUmsatzBetragVon._TimeOnly_Seconds = False
Me.txtOPUmsatzBetragVon._value = ""
Me.txtOPUmsatzBetragVon._Waehrung = True
Me.txtOPUmsatzBetragVon._WaehrungZeichen = True
Me.txtOPUmsatzBetragVon.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBetragVon.Location = New System.Drawing.Point(38, 48)
Me.txtOPUmsatzBetragVon.MaxLineLength = -1
Me.txtOPUmsatzBetragVon.MaxLines_Warning = ""
Me.txtOPUmsatzBetragVon.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBetragVon.Name = "txtOPUmsatzBetragVon"
Me.txtOPUmsatzBetragVon.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBetragVon.TabIndex = 16
Me.txtOPUmsatzBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtOPUmsatzBis
'
Me.txtOPUmsatzBis._DateTimeOnly = False
Me.txtOPUmsatzBis._numbersOnly = False
Me.txtOPUmsatzBis._numbersOnlyKommastellen = ""
Me.txtOPUmsatzBis._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzBis._Prozent = False
Me.txtOPUmsatzBis._ShortDateNew = True
Me.txtOPUmsatzBis._ShortDateOnly = False
Me.txtOPUmsatzBis._TimeOnly = False
Me.txtOPUmsatzBis._TimeOnly_Seconds = False
Me.txtOPUmsatzBis._value = ""
Me.txtOPUmsatzBis._Waehrung = False
Me.txtOPUmsatzBis._WaehrungZeichen = True
Me.txtOPUmsatzBis.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzBis.Location = New System.Drawing.Point(131, 25)
Me.txtOPUmsatzBis.MaxLength = 10
Me.txtOPUmsatzBis.MaxLineLength = -1
Me.txtOPUmsatzBis.MaxLines_Warning = ""
Me.txtOPUmsatzBis.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzBis.Name = "txtOPUmsatzBis"
Me.txtOPUmsatzBis.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzBis.TabIndex = 4
'
'txtOPUmsatzVon
'
Me.txtOPUmsatzVon._DateTimeOnly = False
Me.txtOPUmsatzVon._numbersOnly = False
Me.txtOPUmsatzVon._numbersOnlyKommastellen = ""
Me.txtOPUmsatzVon._numbersOnlyTrennzeichen = True
Me.txtOPUmsatzVon._Prozent = False
Me.txtOPUmsatzVon._ShortDateNew = True
Me.txtOPUmsatzVon._ShortDateOnly = False
Me.txtOPUmsatzVon._TimeOnly = False
Me.txtOPUmsatzVon._TimeOnly_Seconds = False
Me.txtOPUmsatzVon._value = ""
Me.txtOPUmsatzVon._Waehrung = False
Me.txtOPUmsatzVon._WaehrungZeichen = True
Me.txtOPUmsatzVon.ForeColor = System.Drawing.Color.Black
Me.txtOPUmsatzVon.Location = New System.Drawing.Point(38, 25)
Me.txtOPUmsatzVon.MaxLength = 10
Me.txtOPUmsatzVon.MaxLineLength = -1
Me.txtOPUmsatzVon.MaxLines_Warning = ""
Me.txtOPUmsatzVon.MaxLines_Warning_Label = Nothing
Me.txtOPUmsatzVon.Name = "txtOPUmsatzVon"
Me.txtOPUmsatzVon.Size = New System.Drawing.Size(60, 20)
Me.txtOPUmsatzVon.TabIndex = 1
'
'txtOPRisikoBetragBis
'
Me.txtOPRisikoBetragBis._DateTimeOnly = False
Me.txtOPRisikoBetragBis._numbersOnly = False
Me.txtOPRisikoBetragBis._numbersOnlyKommastellen = ""
Me.txtOPRisikoBetragBis._numbersOnlyTrennzeichen = True
Me.txtOPRisikoBetragBis._Prozent = False
Me.txtOPRisikoBetragBis._ShortDateNew = False
Me.txtOPRisikoBetragBis._ShortDateOnly = False
Me.txtOPRisikoBetragBis._TimeOnly = False
Me.txtOPRisikoBetragBis._TimeOnly_Seconds = False
Me.txtOPRisikoBetragBis._value = ""
Me.txtOPRisikoBetragBis._Waehrung = True
Me.txtOPRisikoBetragBis._WaehrungZeichen = True
Me.txtOPRisikoBetragBis.ForeColor = System.Drawing.Color.Black
Me.txtOPRisikoBetragBis.Location = New System.Drawing.Point(416, 110)
Me.txtOPRisikoBetragBis.MaxLineLength = -1
Me.txtOPRisikoBetragBis.MaxLines_Warning = ""
Me.txtOPRisikoBetragBis.MaxLines_Warning_Label = Nothing
Me.txtOPRisikoBetragBis.Name = "txtOPRisikoBetragBis"
Me.txtOPRisikoBetragBis.Size = New System.Drawing.Size(70, 20)
Me.txtOPRisikoBetragBis.TabIndex = 15
Me.txtOPRisikoBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtOPRisikoBetragVon
'
Me.txtOPRisikoBetragVon._DateTimeOnly = False
Me.txtOPRisikoBetragVon._numbersOnly = False
Me.txtOPRisikoBetragVon._numbersOnlyKommastellen = ""
Me.txtOPRisikoBetragVon._numbersOnlyTrennzeichen = True
Me.txtOPRisikoBetragVon._Prozent = False
Me.txtOPRisikoBetragVon._ShortDateNew = False
Me.txtOPRisikoBetragVon._ShortDateOnly = False
Me.txtOPRisikoBetragVon._TimeOnly = False
Me.txtOPRisikoBetragVon._TimeOnly_Seconds = False
Me.txtOPRisikoBetragVon._value = ""
Me.txtOPRisikoBetragVon._Waehrung = True
Me.txtOPRisikoBetragVon._WaehrungZeichen = True
Me.txtOPRisikoBetragVon.ForeColor = System.Drawing.Color.Black
Me.txtOPRisikoBetragVon.Location = New System.Drawing.Point(308, 110)
Me.txtOPRisikoBetragVon.MaxLineLength = -1
Me.txtOPRisikoBetragVon.MaxLines_Warning = ""
Me.txtOPRisikoBetragVon.MaxLines_Warning_Label = Nothing
Me.txtOPRisikoBetragVon.Name = "txtOPRisikoBetragVon"
Me.txtOPRisikoBetragVon.Size = New System.Drawing.Size(70, 20)
Me.txtOPRisikoBetragVon.TabIndex = 13
Me.txtOPRisikoBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtOPKdNrBis
'
Me.txtOPKdNrBis._DateTimeOnly = False
Me.txtOPKdNrBis._numbersOnly = False
Me.txtOPKdNrBis._numbersOnlyKommastellen = ""
Me.txtOPKdNrBis._numbersOnlyTrennzeichen = True
Me.txtOPKdNrBis._Prozent = False
Me.txtOPKdNrBis._ShortDateNew = False
Me.txtOPKdNrBis._ShortDateOnly = False
Me.txtOPKdNrBis._TimeOnly = False
Me.txtOPKdNrBis._TimeOnly_Seconds = False
Me.txtOPKdNrBis._value = Nothing
Me.txtOPKdNrBis._Waehrung = False
Me.txtOPKdNrBis._WaehrungZeichen = True
Me.txtOPKdNrBis.ForeColor = System.Drawing.Color.Black
Me.txtOPKdNrBis.Location = New System.Drawing.Point(416, 84)
Me.txtOPKdNrBis.MaxLineLength = -1
Me.txtOPKdNrBis.MaxLines_Warning = ""
Me.txtOPKdNrBis.MaxLines_Warning_Label = Nothing
Me.txtOPKdNrBis.Name = "txtOPKdNrBis"
Me.txtOPKdNrBis.Size = New System.Drawing.Size(70, 20)
Me.txtOPKdNrBis.TabIndex = 11
'
'txtOPKdNrVon
'
Me.txtOPKdNrVon._DateTimeOnly = False
Me.txtOPKdNrVon._numbersOnly = False
Me.txtOPKdNrVon._numbersOnlyKommastellen = ""
Me.txtOPKdNrVon._numbersOnlyTrennzeichen = True
Me.txtOPKdNrVon._Prozent = False
Me.txtOPKdNrVon._ShortDateNew = False
Me.txtOPKdNrVon._ShortDateOnly = False
Me.txtOPKdNrVon._TimeOnly = False
Me.txtOPKdNrVon._TimeOnly_Seconds = False
Me.txtOPKdNrVon._value = Nothing
Me.txtOPKdNrVon._Waehrung = False
Me.txtOPKdNrVon._WaehrungZeichen = True
Me.txtOPKdNrVon.ForeColor = System.Drawing.Color.Black
Me.txtOPKdNrVon.Location = New System.Drawing.Point(308, 84)
Me.txtOPKdNrVon.MaxLineLength = -1
Me.txtOPKdNrVon.MaxLines_Warning = ""
Me.txtOPKdNrVon.MaxLines_Warning_Label = Nothing
Me.txtOPKdNrVon.Name = "txtOPKdNrVon"
Me.txtOPKdNrVon.Size = New System.Drawing.Size(70, 20)
Me.txtOPKdNrVon.TabIndex = 9
'
'txtOPKdName
'
Me.txtOPKdName._DateTimeOnly = False
Me.txtOPKdName._numbersOnly = False
Me.txtOPKdName._numbersOnlyKommastellen = ""
Me.txtOPKdName._numbersOnlyTrennzeichen = True
Me.txtOPKdName._Prozent = False
Me.txtOPKdName._ShortDateNew = False
Me.txtOPKdName._ShortDateOnly = False
Me.txtOPKdName._TimeOnly = False
Me.txtOPKdName._TimeOnly_Seconds = False
Me.txtOPKdName._value = Nothing
Me.txtOPKdName._Waehrung = False
Me.txtOPKdName._WaehrungZeichen = True
Me.txtOPKdName.ForeColor = System.Drawing.Color.Black
Me.txtOPKdName.Location = New System.Drawing.Point(308, 55)
Me.txtOPKdName.MaxLineLength = -1
Me.txtOPKdName.MaxLines_Warning = ""
Me.txtOPKdName.MaxLines_Warning_Label = Nothing
Me.txtOPKdName.Name = "txtOPKdName"
Me.txtOPKdName.Size = New System.Drawing.Size(178, 20)
Me.txtOPKdName.TabIndex = 5
Me.cbxBankgarantieInfo.AutoSize = True
Me.cbxBankgarantieInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxBankgarantieInfo.Location = New System.Drawing.Point(416, 178)
Me.cbxBankgarantieInfo.Name = "cbxBankgarantieInfo"
Me.cbxBankgarantieInfo.Size = New System.Drawing.Size(187, 17)
Me.cbxBankgarantieInfo.TabIndex = 28
Me.cbxBankgarantieInfo.Text = "Zusatzinfo Bankgarantie anzeigen"
Me.cbxBankgarantieInfo.UseVisualStyleBackColor = True
'
'usrCntlBH
'
@@ -1550,4 +1563,5 @@ Partial Class usrCntlBH
Friend WithEvents Button10 As Button
Friend WithEvents txtStichtag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label39 As Label
Friend WithEvents cbxBankgarantieInfo As CheckBox
End Class

15
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -124,7 +124,8 @@ Public Class usrCntlBH
sqlStr &= " UStV_Summe3470BetragEUR AS Kto3470, UStV_SummeVZBetragEUR AS Vorauszahlung, UStV_SummeVorschaubetragEUR AS Vorschau, "
sqlStr &= " isnull((SELECT SUM(Gesamtausstand) FROM dbo.[Offene Posten] WHERE (Kontonummer = AdressenNr " & Firmen_ID & ")),0) - isnull(CASE WHEN UStV_SummeUmsatzsteuerbetragEUR > UStV_SummeErstattungsbetragEUR THEN UStV_SummeUmsatzsteuerbetragEUR - UStV_SummeErstattungsbetragEUR "
sqlStr &= " ELSE 0 END ,0) - isnull(UStV_Summe3470BetragEUR,0) + isnull(UStV_SummeVZBetragEUR,0) - isnull(UStV_SummeVorschaubetragEUR,0) - isnull(CASE WHEN ISNULL(BankgarantieGültigBis, "
sqlStr &= " GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(BankgarantieBetrag, 0) END,0) AS Risiko , /*BankgarantieBetrag, BankgarantieGültigBis, */"
sqlStr &= " GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(BankgarantieBetrag, 0) END,0) AS Risiko , "
sqlStr &= IIf(cbxBankgarantieInfo.Checked, "BankgarantieBetrag, BankgarantieGültigBis,", "")
sqlStr &= " Versicherungssumme "
@@ -388,12 +389,12 @@ Public Class usrCntlBH
' Dim sumBar As Double = 0
Dim dummycount As Integer = 0
AddHandler rpt.Detail.Format, Sub()
rpt.lblKdNr.Text = If(rpt.Fields.Item("AdressenNr").Value, "")
rpt.lblKunde.Text = If(rpt.Fields.Item("Ordnungsbegriff").Value, "")
rpt.lblAV.Text = If(rpt.Fields.Item("Abfertigungsverbot").Value, "Ja", "")
rpt.lblKdNr.Text = If(rpt.Fields.Item("KdNr").Value IsNot DBNull.Value, rpt.Fields.Item("KdNr").Value, "")
rpt.lblKunde.Text = If(rpt.Fields.Item("Ordnungsbegriff").Value IsNot DBNull.Value, rpt.Fields.Item("Ordnungsbegriff").Value, "")
rpt.lblAV.Text = If(rpt.Fields.Contains("Abfertigungsverbot") AndAlso rpt.Fields.Item("Abfertigungsverbot").Value IsNot Nothing, "Ja", "")
rpt.lblLand.Text = If(rpt.Fields.Item("LandKz").Value IsNot DBNull.Value, rpt.Fields.Item("LandKz").Value, "")
rpt.lblBankgarantie.Text = If(rpt.Fields.Item("BankgarantieBetrag").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("BankgarantieBetrag").Value).ToString("C"), "")
rpt.lblBankgarantie.Text = If(rpt.Fields.Contains("BankgarantieBetrag") AndAlso rpt.Fields.Item("BankgarantieBetrag").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("BankgarantieBetrag").Value).ToString("C"), "")
rpt.lblOPSaldo.Text = If(rpt.Fields.Item("LfdSaldo").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("LfdSaldo").Value).ToString("C"), "")
rpt.lblUStDiff.Text = If(rpt.Fields.Item("UStDiff").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("UStDiff").Value).ToString("C"), "")
rpt.lblKto3470.Text = If(rpt.Fields.Item("Kto3470").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("Kto3470").Value).ToString("C"), "")
@@ -432,8 +433,8 @@ Public Class usrCntlBH
' rpt.lblVorschau.Text = If(rpt.Fields.Item("Vorschau").Value IsNot DBNull.Value, CDbl(rpt.Fields.Item("Vorschau").Value).ToString("C"), "")
rpt.lblBankgarantieGueltigBis.Text = If(rpt.Fields.Item("BankgarantieGültigBis").Value IsNot DBNull.Value, CDate(rpt.Fields.Item("BankgarantieGültigBis").Value).ToShortDateString, "")
rpt.lblOPDat.Text = If(rpt.Fields.Item("OPDatumMin").Value IsNot DBNull.Value, CDate(rpt.Fields.Item("OPDatumMin").Value).ToShortDateString, "")
rpt.lblBankgarantieGueltigBis.Text = If(rpt.Fields.Contains("BankgarantieBetrag") AndAlso rpt.Fields.Item("BankgarantieGültigBis").Value IsNot DBNull.Value, CDate(rpt.Fields.Item("BankgarantieGültigBis").Value).ToShortDateString, "")
rpt.lblOPDat.Text = If(rpt.Fields.Contains("OPDatumMin") AndAlso rpt.Fields.Item("OPDatumMin").Value IsNot DBNull.Value, CDate(rpt.Fields.Item("OPDatumMin").Value).ToShortDateString, "")
'Abwechselnd grauen und weißen Hintergrund
dummycount += 1
If (dummycount Mod 2) = 0 Then