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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-02 11:18:56 +02:00
parent 549ab6bcf5 ac5ac02665
commit 1646138087
10 changed files with 521 additions and 400 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

@@ -83,6 +83,11 @@ Partial Class usrCntlFaktAbrechnung
Me.lblRechnungsNummer = New System.Windows.Forms.Label() Me.lblRechnungsNummer = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AbsenderToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.EmpfängerToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuftraggeberToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.AvisiererToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
@@ -238,6 +243,7 @@ Partial Class usrCntlFaktAbrechnung
Me.lblEUR_4 = New System.Windows.Forms.Label() Me.lblEUR_4 = New System.Windows.Forms.Label()
Me.Label55 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label()
Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
@@ -274,21 +280,16 @@ Partial Class usrCntlFaktAbrechnung
Me.EmpfängerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EmpfängerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuftraggeberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuftraggeberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AvisiererToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AvisiererToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AbsenderToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.EmpfängerToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuftraggeberToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.AvisiererToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.GutschriftAusRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GutschriftAusRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SeperateRechnungFürEUSTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SeperateRechnungFürEUSTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
Me.pnlTop.SuspendLayout() Me.pnlTop.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.ContextMenuStrip3.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.pnlAvisierer.SuspendLayout() Me.pnlAvisierer.SuspendLayout()
@@ -310,7 +311,6 @@ Partial Class usrCntlFaktAbrechnung
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.CntxtAbfArt.SuspendLayout() Me.CntxtAbfArt.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.ContextMenuStrip3.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -871,6 +871,37 @@ Partial Class usrCntlFaktAbrechnung
Me.Button17.Text = "E-Mail Erstellen" Me.Button17.Text = "E-Mail Erstellen"
Me.Button17.UseVisualStyleBackColor = True Me.Button17.UseVisualStyleBackColor = True
' '
'ContextMenuStrip3
'
Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbsenderToolStripMenuItem2, Me.EmpfängerToolStripMenuItem2, Me.AuftraggeberToolStripMenuItem2, Me.AvisiererToolStripMenuItem2})
Me.ContextMenuStrip3.Name = "ContextMenuStrip3"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(154, 92)
'
'AbsenderToolStripMenuItem2
'
Me.AbsenderToolStripMenuItem2.Name = "AbsenderToolStripMenuItem2"
Me.AbsenderToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AbsenderToolStripMenuItem2.Text = "1 Absender"
'
'EmpfängerToolStripMenuItem2
'
Me.EmpfängerToolStripMenuItem2.Name = "EmpfängerToolStripMenuItem2"
Me.EmpfängerToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.EmpfängerToolStripMenuItem2.Text = "2 Empfänger"
'
'AuftraggeberToolStripMenuItem2
'
Me.AuftraggeberToolStripMenuItem2.Name = "AuftraggeberToolStripMenuItem2"
Me.AuftraggeberToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AuftraggeberToolStripMenuItem2.Text = "3 Auftraggeber"
'
'AvisiererToolStripMenuItem2
'
Me.AvisiererToolStripMenuItem2.Name = "AvisiererToolStripMenuItem2"
Me.AvisiererToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AvisiererToolStripMenuItem2.Text = "4 Avisierer"
'
'txtTextZZ 'txtTextZZ
' '
Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061)
@@ -3515,6 +3546,17 @@ Partial Class usrCntlFaktAbrechnung
Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
Me.cboSteuerschlüssel.TabIndex = 3 Me.cboSteuerschlüssel.TabIndex = 3
' '
'rtbAbf_Besonderheiten
'
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
Me.rtbAbf_Besonderheiten.TabIndex = 235
Me.rtbAbf_Besonderheiten.Visible = False
'
'cbxOriginalPrint 'cbxOriginalPrint
' '
Me.cbxOriginalPrint.AutoSize = True Me.cbxOriginalPrint.AutoSize = True
@@ -3952,37 +3994,6 @@ Partial Class usrCntlFaktAbrechnung
Me.AvisiererToolStripMenuItem.Size = New System.Drawing.Size(153, 22) Me.AvisiererToolStripMenuItem.Size = New System.Drawing.Size(153, 22)
Me.AvisiererToolStripMenuItem.Text = "4 Avisierer" Me.AvisiererToolStripMenuItem.Text = "4 Avisierer"
' '
'ContextMenuStrip3
'
Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbsenderToolStripMenuItem2, Me.EmpfängerToolStripMenuItem2, Me.AuftraggeberToolStripMenuItem2, Me.AvisiererToolStripMenuItem2})
Me.ContextMenuStrip3.Name = "ContextMenuStrip3"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(154, 92)
'
'AbsenderToolStripMenuItem2
'
Me.AbsenderToolStripMenuItem2.Name = "AbsenderToolStripMenuItem2"
Me.AbsenderToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AbsenderToolStripMenuItem2.Text = "1 Absender"
'
'EmpfängerToolStripMenuItem2
'
Me.EmpfängerToolStripMenuItem2.Name = "EmpfängerToolStripMenuItem2"
Me.EmpfängerToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.EmpfängerToolStripMenuItem2.Text = "2 Empfänger"
'
'AuftraggeberToolStripMenuItem2
'
Me.AuftraggeberToolStripMenuItem2.Name = "AuftraggeberToolStripMenuItem2"
Me.AuftraggeberToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AuftraggeberToolStripMenuItem2.Text = "3 Auftraggeber"
'
'AvisiererToolStripMenuItem2
'
Me.AvisiererToolStripMenuItem2.Name = "AvisiererToolStripMenuItem2"
Me.AvisiererToolStripMenuItem2.Size = New System.Drawing.Size(153, 22)
Me.AvisiererToolStripMenuItem2.Text = "4 Avisierer"
'
'ContextMenuStrip2 'ContextMenuStrip2
' '
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem}) Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem})
@@ -4020,17 +4031,6 @@ Partial Class usrCntlFaktAbrechnung
Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22) Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.VeragCSToolStripMenuItem.Text = "Verag CS" Me.VeragCSToolStripMenuItem.Text = "Verag CS"
' '
'rtbAbf_Besonderheiten
'
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
Me.rtbAbf_Besonderheiten.TabIndex = 235
Me.rtbAbf_Besonderheiten.Visible = False
'
'usrCntlFaktAbrechnung 'usrCntlFaktAbrechnung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4047,6 +4047,7 @@ Partial Class usrCntlFaktAbrechnung
Me.Panel3.ResumeLayout(False) Me.Panel3.ResumeLayout(False)
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.ContextMenuStrip3.ResumeLayout(False)
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout() Me.Panel2.PerformLayout()
@@ -4077,7 +4078,6 @@ Partial Class usrCntlFaktAbrechnung
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.CntxtAbfArt.ResumeLayout(False) Me.CntxtAbfArt.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.ContextMenuStrip3.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -4323,5 +4323,4 @@ Partial Class usrCntlFaktAbrechnung
Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblOFgesperrt As Label Friend WithEvents lblOFgesperrt As Label
Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class End Class

350
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1,9 +1,4 @@
 Imports System.Web.UI.WebControls.Expressions
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports com.sun.org.apache.bcel.internal.generic
Imports DAKOSY_Worker.DETPDD
Imports GrapeCity.DataVisualization.Chart
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlFaktAbrechnung Public Class usrCntlFaktAbrechnung
@@ -416,10 +411,15 @@ Public Class usrCntlFaktAbrechnung
'Dann die Werte eintragen: 'Dann die Werte eintragen:
' MsgBox("G: " & RECHNUNG.POSITIONEN.Count) ' MsgBox("G: " & RECHNUNG.POSITIONEN.Count)
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1) Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
For Each POS In RECHNUNG.POSITIONEN
Try
For Each POS In RECHNUNG.POSITIONEN.OrderBy(Function(x) If(IsNumeric(x.Preis), CDbl(x.Preis), CDbl(0)))
Dim found = False Dim found = False
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If r.Cells("LeistungsNr").Value = POS.LeistungsNr And r.Cells("LeistungsBez").Value = POS.LeistungsBez Then If r.Cells("LeistungsNr").Value = POS.LeistungsNr And r.Cells("LeistungsBez").Value = POS.LeistungsBez Then
r.Cells("Preis").Value = If(POS.Preis, 0) * vorzeichen r.Cells("Preis").Value = If(POS.Preis, 0) * vorzeichen
r.Cells("Anzahl").Value = If(POS.Anzahl, 0) r.Cells("Anzahl").Value = If(POS.Anzahl, 0)
@@ -485,27 +485,8 @@ Public Class usrCntlFaktAbrechnung
newR.Cells(11).Value = If(POS.Aufschubfälligkeit, DBNull.Value) newR.Cells(11).Value = If(POS.Aufschubfälligkeit, DBNull.Value)
newR.Cells(12).Value = If(POS.DateiNameAufschub, DBNull.Value) newR.Cells(12).Value = If(POS.DateiNameAufschub, DBNull.Value)
newR.Cells(13).Value = If(POS.Belegdaten, DBNull.Value) newR.Cells(13).Value = If(POS.Belegdaten, DBNull.Value)
'' dgvOfferteDetailsUebersicht.DataSource.AcceptChanges()
' dgvOfferteDetailsUebersicht.DataSource.Tables(0).Rows.add(newR)
' dgvOfferteDetailsUebersicht.Rows(dgvOfferteDetailsUebersicht.Rows.Count - 1).Cells("BerechnungsartNr").DefaultNewRowValue = POS.BerechnungsartNr.ToString
dgvOfferteDetailsUebersicht.Rows.Add(newR) dgvOfferteDetailsUebersicht.Rows.Add(newR)
setBerartValue(newR, POS.BerechnungsartNr) setBerartValue(newR, POS.BerechnungsartNr)
'newR.Cells(4).Value = POS.BerechnungsartNr
' dgvOfferteDetailsUebersicht.Rows(dgvOfferteDetailsUebersicht.Rows.Count - 1).Cells("BerechnungsartNr"). = POS.BerechnungsartNr.ToString
' MsgBox(DirectCast(newR.Cells(4), DataGridViewComboBoxCell).ValueMember.Count) '= POS.BerechnungsartNr
'dgvOfferteDetailsUebersicht.DataSource.AcceptChanges()
' dgvOfferteDetailsUebersicht.Rows.Add(POS.LeistungsNr, POS.LeistungsBez, POS.Anzahl, POS.Preis, DBNull.Value, POS.[BGebLeistungsNr], POS.[BGebProzent], POS.[BGebMinBetrag], POS.Steuerpflichtig,
' POS.IndexZkteing, POS.AufschubkontoNr, POS.Aufschubfälligkeit, POS.DateiNameAufschub, POS.Belegdaten)
' dgvOfferteDetailsUebersicht.Rows(dgvOfferteDetailsUebersicht.Rows.Count - 1).Cells("BerechnungsartNr").Value = POS.BerechnungsartNr
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -517,6 +498,9 @@ Public Class usrCntlFaktAbrechnung
End If End If
Next Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
loaded = tmpLoaded loaded = tmpLoaded
End Sub End Sub
@@ -1187,6 +1171,12 @@ Public Class usrCntlFaktAbrechnung
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then addFieldsBoolean = True If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then addFieldsBoolean = True
Dim landNr As String = ""
Dim landBez As String = ""
Dim antrag As cUSTVAntrag = Nothing
Dim summeRMC As Double = 0
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
Dim addFields As String = "" Dim addFields As String = ""
If addFieldsBoolean Then If addFieldsBoolean Then
@@ -1200,10 +1190,6 @@ Public Class usrCntlFaktAbrechnung
End If End If
Dim loadedtmp = loaded Dim loadedtmp = loaded
loaded = False loaded = False
' .Columns.Clear()
' FUNC.dgvCellToCbo(dgvOfferteDetailsUebersicht, 4, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
'NAMEN:::::::::::
Dim c As New DataGridViewTextBoxColumn() : c.Name = "LeistungsNr" : .Columns.Add(c) Dim c As New DataGridViewTextBoxColumn() : c.Name = "LeistungsNr" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "LeistungsBez" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "LeistungsBez" : .Columns.Add(c)
@@ -1224,22 +1210,16 @@ Public Class usrCntlFaktAbrechnung
c = New DataGridViewTextBoxColumn() : c.Name = "ReverseCharge" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "ReverseCharge" : .Columns.Add(c)
If addFieldsBoolean Then If addFieldsBoolean Then
c = New DataGridViewTextBoxColumn() : c.Name = "Land" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "Land" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "RMC" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "RMC" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "Fremd" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "Fremd" : .Columns.Add(c)
c = New DataGridViewTextBoxColumn() : c.Name = "VZ" : .Columns.Add(c) c = New DataGridViewTextBoxColumn() : c.Name = "VZ" : .Columns.Add(c)
End If End If
Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & addFields & Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & addFields &
" FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " & " FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
'If .ColumnCount = 0 Then Exit Sub
.Columns("LeistungsNr").Width = 30 .Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr" .Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 180 .Columns("LeistungsBez").MinimumWidth = 180
@@ -1250,51 +1230,17 @@ Public Class usrCntlFaktAbrechnung
.Columns("LeistungsNr").ReadOnly = True .Columns("LeistungsNr").ReadOnly = True
.Columns("LeistungsBez").ReadOnly = False .Columns("LeistungsBez").ReadOnly = False
.Columns("BerechnungsartNr").ReadOnly = False .Columns("BerechnungsartNr").ReadOnly = False
'.Columns("BerechnungsartNr").DefaultCellStyle.NullValue = 1
' .Columns("BerechnungsartNr").MinimumWidth = 130
.Columns("Preis").Width = 60 .Columns("Preis").Width = 60
.Columns("Preis").DefaultCellStyle.Format = "N2" .Columns("Preis").DefaultCellStyle.Format = "N2"
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Anzahl").Width = 50
'.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
'.Columns("BGebLeistungsNr").Width = 60
'.Columns("BGebProzent").Width = 55
'.Columns("BGebProzent").HeaderText = "BGeb %"
'.Columns("BGebProzent").DefaultCellStyle.Format = "P"
'.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("BGebMinBetrag").Width = 60
'.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
'.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Eingegeben am").Visible = False
'.Columns("Sachbearbeiter").Width = 65
' .Columns("Geändert am").Width = 95
.Columns("BGebProzent").Width = 65 .Columns("BGebProzent").Width = 65
.Columns("BGebMinBetrag").Width = 65 .Columns("BGebMinBetrag").Width = 65
'.Columns("PreisänderungProzent").Width = 65
'.Columns("PreisänderungProzent").HeaderText = "Preisänd.%"
'.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
'.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("PreisAlt").Width = 60
'.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
'.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
'.Columns("Preisänderung").Width = 60
'.Columns("Preisänderung").HeaderText = "PreisNeu"
'.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("BGebLeistungsNr").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("BGebLeistungsNr").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
.Columns("BGebProzent").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("BGebProzent").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
.Columns("BGebMinBetrag").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("BGebMinBetrag").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
.Columns("Steuerpflichtig").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("Steuerpflichtig").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
.Columns("BerechnungsartPosInkludiert").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("BerechnungsartPosInkludiert").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
.Columns("ReverseCharge").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM .Columns("ReverseCharge").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
' .Columns("Geändert am").Visible = False
'.Columns("Sachbearbeiter").Visible = False
.Columns("IndexZkteing").Visible = False .Columns("IndexZkteing").Visible = False
.Columns("AufschubkontoNr").Visible = False .Columns("AufschubkontoNr").Visible = False
.Columns("Aufschubfälligkeit").Visible = False .Columns("Aufschubfälligkeit").Visible = False
@@ -1318,17 +1264,21 @@ Public Class usrCntlFaktAbrechnung
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge")) DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"))
End If End If
Next Next
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
' Try : If (r.Cells("BerechnungsartNr").Value = 8) And r.Cells("Anzahl").Value > 1 Then r.Cells("Anzahl").Value = 1 ' Try : If (r.Cells("BerechnungsartNr").Value = 8) And r.Cells("Anzahl").Value > 1 Then r.Cells("Anzahl").Value = 1
' Catch ex As Exception : End Try ' Catch ex As Exception : End Try
Try : r.Cells("Preis").ReadOnly = (r.Cells("BerechnungsartNr").Value = 8) Try : r.Cells("Preis").ReadOnly = (r.Cells("BerechnungsartNr").Value = 8)
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, False, antrag, isVZ)
End If
Catch ex As Exception : End Try Catch ex As Exception : End Try
Next Next
przRefreshDGV_Positionen() przRefreshDGV_Positionen()
' loaded = True ' loaded = True
@@ -1432,6 +1382,49 @@ Public Class usrCntlFaktAbrechnung
Private Sub dgvOfferteDetailsUebersicht_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetailsUebersicht.CellValueChanged Private Sub dgvOfferteDetailsUebersicht_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetailsUebersicht.CellValueChanged
If Not loaded Then Exit Sub If Not loaded Then Exit Sub
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso e.ColumnIndex = 3 Then
Dim landNr As String = ""
Dim landBez As String = ""
Dim antrag As cUSTVAntrag = Nothing
Dim summeRMC As Double = 0
landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
Dim containRMC As Boolean = False
Dim containFremd As Boolean = False
For Each r In dgvOfferteDetailsUebersicht.Rows
If r.Cells("LeistungsBez").Value.Contains("Fremd-RG") AndAlso r.Cells("Anzahl").Value > 0 Then
containFremd = True
End If
If r.Cells("LeistungsBez").Value.Contains("RMC-RG") AndAlso r.Cells("Anzahl").Value > 0 Then
containRMC = True
End If
Next
For Each r In dgvOfferteDetailsUebersicht.Rows
setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, (containRMC AndAlso containFremd), antrag, isVZ, True)
Next
'Dim datarow As DataGridViewRow = dgvOfferteDetailsUebersicht.Rows(e.RowIndex)
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
'If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
' Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
'End If
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
End If
przRefreshDGV_Positionen() przRefreshDGV_Positionen()
End Sub End Sub
@@ -1444,11 +1437,6 @@ Public Class usrCntlFaktAbrechnung
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
Dim landNr As String = ""
Dim landBez As String = ""
Dim antrag As cUSTVAntrag = Nothing
Dim summeRMC As Double = 0
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If r.Cells("Anzahl").Value IsNot DBNull.Value AndAlso Not IsNumeric(r.Cells("Anzahl").Value) Then r.Cells("Anzahl").Value = 0 If r.Cells("Anzahl").Value IsNot DBNull.Value AndAlso Not IsNumeric(r.Cells("Anzahl").Value) Then r.Cells("Anzahl").Value = 0
@@ -1467,10 +1455,10 @@ Public Class usrCntlFaktAbrechnung
POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value) POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value)
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll '-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then 'If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False) ' Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, summeRMC, antrag, isVZ) ' setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, summeRMC, antrag, isVZ)
End If 'End If
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll '-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
@@ -2616,16 +2604,15 @@ Public Class usrCntlFaktAbrechnung
End Function End Function
Private Sub prBearbGeb_NEW(POS_ As cRechnungsausgangPositionen, OFFERTE As cOfferte, RE As cRechnungsausgang, BGebLeistungsNr As Integer, BGebProzent As Double, BGebMinBetrag As Double, BGebBgl As Integer, ByRef summeRMCBearb As Double, isRMC As Boolean) Private Sub prBearbGeb_NEW(r As DataGridViewRow, OFFERTE As cOfferte, RE As cRechnungsausgang, BGebLeistungsNr As Integer, BGebProzent As Double, BGebMinBetrag As Double, BGebBgl As Integer, ByRef summeRMCBearb As Double, isRMC As Boolean, isFREMD As Boolean, FremdUndRMC As Boolean, changed As Boolean)
If POS_.Anzahl <> 0 Then If r.Cells("Anzahl").Value <> 0 Then
If (BGebLeistungsNr > 0 AndAlso BGebProzent > 0 AndAlso BGebBgl <> 0) Then If (BGebLeistungsNr > 0 AndAlso BGebProzent > 0 AndAlso BGebBgl <> 0) Then
Dim minBetragRMCUsed As Boolean = False Dim minBetragRMCUsed As Boolean = False
'Dim RMCUsed = IIf(POS_.LeistungsBez.Contains("Fremd-RG") OrElse POS_.LeistungsBez.Contains("RMC-RG"), True, False)
Dim curBGebMinBetrag = BGebMinBetrag Dim curBGebMinBetrag = BGebMinBetrag
Dim curBGebErrBetrag As Double = Math.Round(BGebBgl * BGebProzent, 1) Dim curBGebErrBetrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
@@ -2641,75 +2628,179 @@ Public Class usrCntlFaktAbrechnung
'Größeren Betrag bereitstellen. 'Größeren Betrag bereitstellen.
If curBGebErrBetrag > curBGebMinBetrag Then If curBGebErrBetrag > curBGebMinBetrag Then
curBGebBetrag = curBGebErrBetrag 'Errechneten Betrag verwenden curBGebBetrag = curBGebErrBetrag 'Errechneten Betrag verwenden
summeRMCBearb += If(POS_.LeistungsBez.Contains("Fremd-RG") OrElse POS_.LeistungsBez.Contains("RMC-RG"), curBGebErrBetrag, 0) summeRMCBearb += If(r.Cells("LeistungsBez").Value.Contains("Fremd-RG") OrElse r.Cells("LeistungsBez").Value.Contains("RMC-RG"), curBGebErrBetrag, 0)
Else Else
curBGebBetrag = curBGebMinBetrag 'Mindestbetrag verwenden curBGebBetrag = curBGebMinBetrag 'Mindestbetrag verwenden
summeRMCBearb += If(POS_.LeistungsBez.Contains("Fremd-RG") OrElse POS_.LeistungsBez.Contains("RMC-RG"), curBGebErrBetrag, 0) summeRMCBearb += If(r.Cells("LeistungsBez").Value.Contains("Fremd-RG") OrElse r.Cells("LeistungsBez").Value.Contains("RMC-RG"), curBGebErrBetrag, 0)
minBetragRMCUsed = IIf(POS_.LeistungsBez.Contains("Fremd-RG") OrElse POS_.LeistungsBez.Contains("RMC-RG"), True, False) minBetragRMCUsed = IIf(r.Cells("LeistungsBez").Value.Contains("Fremd-RG") OrElse r.Cells("LeistungsBez").Value.Contains("RMC-RG"), True, False)
End If End If
'Vorzeichen einstellen. 'Vorzeichen einstellen.
If POS_.Preis < 0 Then If (r.Cells("Preis").Value < 0) Then
curBGebBetrag = 0 - curBGebBetrag 'Vorzeichen von Plus in Minus ändern. curBGebBetrag = 0 - curBGebBetrag 'Vorzeichen von Plus in Minus ändern.
End If End If
If SQL.DLookup("[BGebUStV]", "Leistungen", "[LeistungsNr] = '" & POS_.LeistungsNr & "'", "FMZOLL") Then If SQL.DLookup("[BGebUStV]", "Leistungen", "[LeistungsNr] = '" & r.Cells("LeistungsNr").Value & "'", "FMZOLL") Then
curBGebBetrag = 0 - curBGebBetrag 'Vorzeichen wechseln. curBGebBetrag = 0 - curBGebBetrag 'Vorzeichen wechseln.
End If End If
For Each o In OFFERTE.POSITIONEN For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = BGebLeistungsNr And o.BerechnungsartNr = 9 Then If o.LeistungsNr = BGebLeistungsNr And o.BerechnungsartNr = 9 Then
Dim preisInital As Double = 0
If Not IsDBNull(r.Cells("Preis").Value) Then
preisInital = curBGebBetrag
End If
'Falls schon vorhanden... 'Falls schon vorhanden...
Dim POS = RE.POSITIONEN.Find(Function(x) x.LeistungsNr = BGebLeistungsNr And x.LeistungsBez = o.LeistungsBez And x.BerechnungsartNr = 9) Dim POS = RE.POSITIONEN.Find(Function(x) x.LeistungsNr = BGebLeistungsNr And x.BerechnungsartNr = 9)
If POS Is Nothing Then If POS Is Nothing Then
POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen() 'hier wird die BearbeitungsPOS gesetzt!
POS.Preis = 0 For Each row As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
POS.SteuerpflichtigerBetrag = 0 If row.Cells("LeistungsNr").Value = BGebLeistungsNr And row.Cells("BerechnungsartNr").Value = 9 Then
POS.SteuerfreierBetrag = 0 row.Cells("Anzahl").Value = 1
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr) preisInital = curBGebBetrag
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
POS.LeistungsNr = o.LeistungsNr If preisInital = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
POS.LeistungsBez = o.LeistungsBez preisInital = preisInital / 2
POS.BerechnungsartNr = o.BerechnungsartNr row.Cells("Preis").Value = preisInital
POS.Anzahl = 1 Exit For
RE.POSITIONEN.Add(POS) ElseIf preisInital <> curBGebBetrag * 2 AndAlso summeRMCBearb <> preisInital AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
preisInital = summeRMCBearb
row.Cells("Preis").Value = preisInital
Exit For
Else
row.Cells("Preis").Value = preisInital
Exit For
End If
End If
Next
End If End If
POS.Preis += curBGebBetrag 'hier wird der Betrag der BearbeitungsPOS NEU berechnet!
If POS.Anzahl = 0 Then POS.Anzahl = 1 Dim curBearbPreis As Double = 0
If changed Then
For Each row As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If row.Cells("LeistungsNr").Value = BGebLeistungsNr And row.Cells("BerechnungsartNr").Value = 9 AndAlso row.Cells("Anzahl").Value = 1 Then
If IsDBNull(row.Cells("Preis").Value) Then row.Cells("Preis").Value = preisInital
curBearbPreis += row.Cells("Preis").Value
If POS.Preis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen If FremdUndRMC Then
POS.Preis = POS.Preis / 2 'beide POS sind enthalten
ElseIf POS.Preis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.Preis AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet! If curBearbPreis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
POS.Preis = summeRMCBearb If curBearbPreis <> row.Cells("Preis").Value Then row.Cells("Preis").Value = curBGebBetrag / 2
ElseIf curBearbPreis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> curBearbPreis AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
If summeRMCBearb <> row.Cells("Preis").Value Then row.Cells("Preis").Value = summeRMCBearb
End If End If
Else
If POS.Steuerpflichtig Then If minBetragRMCUsed Then
POS.SteuerpflichtigerBetrag += curBGebBetrag
If POS.SteuerpflichtigerBetrag = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen If curBearbPreis > curBGebBetrag AndAlso summeRMCBearb > 0 Then
POS.SteuerpflichtigerBetrag = POS.SteuerpflichtigerBetrag / 2 If curBearbPreis <> summeRMCBearb Then row.Cells("Preis").Value = summeRMCBearb
ElseIf POS.SteuerpflichtigerBetrag <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.SteuerpflichtigerBetrag AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet! Else
POS.SteuerpflichtigerBetrag = summeRMCBearb If curBearbPreis <> curBGebMinBetrag Then row.Cells("Preis").Value = curBGebMinBetrag
End If End If
Else Else
POS.SteuerfreierBetrag += curBGebBetrag
If POS.SteuerfreierBetrag = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen If curBearbPreis > curBGebBetrag AndAlso summeRMCBearb > 0 Then
POS.SteuerfreierBetrag = POS.SteuerfreierBetrag / 2 If curBearbPreis <> summeRMCBearb Then row.Cells("Preis").Value = summeRMCBearb
ElseIf POS.SteuerpflichtigerBetrag <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.SteuerpflichtigerBetrag AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
POS.SteuerpflichtigerBetrag = summeRMCBearb
End If End If
End If End If
End If
'If curBearbPreis <> curBGebBetrag * 2 AndAlso curBearbPreis <> summeRMCBearb AndAlso (minBetragRMCUsed OrElse isRMC) Then
' If summeRMCBearb > curBGebMinBetrag AndAlso summeRMCBearb <> 0 Then
' If curBearbPreis <> summeRMCBearb Then row.Cells("Preis").Value = summeRMCBearb
' ElseIf curBGebErrBetrag = summeRMCBearb Then
' If Not FremdUndRMC Then 'dann ist das die die erste POS und es gibt nur 1 hier setzen, sonder überspringen!! '!!!!!!!!! außer beide POS fallen unter die Mindestgrenze!!!
' If curBearbPreis <> curBGebMinBetrag Then row.Cells("Preis").Value = curBGebMinBetrag
' End If
' ElseIf curBGebErrBetrag <> summeRMCBearb And FremdUndRMC Then 'dann ist das die NICHT die erste POS, hier setzen
' If curBearbPreis <> curBGebMinBetrag Then row.Cells("Preis").Value = curBGebMinBetrag
' End If
'ElseIf curBearbPreis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then
' If curBearbPreis <> curBGebBetrag Then row.Cells("Preis").Value = curBGebBetrag
'ElseIf Not isRMC AndAlso curBearbPreis <> curBGebBetrag Then
' If curBearbPreis <> curBGebBetrag Then row.Cells("Preis").Value = curBGebBetrag
'End If
'If row.Cells("Preis").Value = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
' row.Cells("Preis").Value = row.Cells("Preis").Value / 2
'ElseIf row.Cells("Preis").Value <> curBGebBetrag * 2 AndAlso summeRMCBearb <> row.Cells("Preis").Value AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
' row.Cells("Preis").Value = summeRMCBearb
'End If
End If
Next
End If
'POS.Preis += curBGebBetrag
'If POS.Preis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
' POS.Preis = POS.Preis / 2
'ElseIf POS.Preis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.Preis AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
' POS.Preis = summeRMCBearb
'End If
'If POS.Steuerpflichtig Then
' POS.SteuerpflichtigerBetrag += curBGebBetrag
' If POS.SteuerpflichtigerBetrag = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
' POS.SteuerpflichtigerBetrag = POS.SteuerpflichtigerBetrag / 2
' ElseIf POS.SteuerpflichtigerBetrag <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.SteuerpflichtigerBetrag AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
' POS.SteuerpflichtigerBetrag = summeRMCBearb
' End If
'Else
' POS.SteuerfreierBetrag += curBGebBetrag
' If POS.SteuerfreierBetrag = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen
' POS.SteuerfreierBetrag = POS.SteuerfreierBetrag / 2
' ElseIf POS.SteuerpflichtigerBetrag <> curBGebBetrag * 2 AndAlso summeRMCBearb <> POS.SteuerpflichtigerBetrag AndAlso (minBetragRMCUsed OrElse isRMC) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
' POS.SteuerpflichtigerBetrag = summeRMCBearb
' End If
'End If
End If End If
Next Next
'Catch ex As Exception 'Catch ex As Exception
@@ -4629,7 +4720,7 @@ Nächste_Textzeile_lesen:
End Function End Function
Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, POS As cRechnungsausgangPositionen, LandNr As String, LandBez As String, ByRef summeRMC As Double, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False) Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, LandNr As String, LandBez As String, ByRef summeRMC As Double, ByRef FremdUndRMC As Boolean, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False, Optional changed As Boolean = False)
If SPEDBUCH IsNot Nothing AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then If SPEDBUCH IsNot Nothing AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
@@ -4706,7 +4797,6 @@ Nächste_Textzeile_lesen:
'SPEDBUCH.Abfertigungsart = 114 -> EU 'SPEDBUCH.Abfertigungsart = 114 -> EU
'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland 'SPEDBUCH.Abfertigungsart = 115 -> DL Drittland
Dim BEZ_LAND_RMC As String = "" Dim BEZ_LAND_RMC As String = ""
Select Case SPEDBUCH.Abfertigungsart Select Case SPEDBUCH.Abfertigungsart
Case 114 : BEZ_LAND_RMC = IIf(isVZ, "00", "00-00") Case 114 : BEZ_LAND_RMC = IIf(isVZ, "00", "00-00")
@@ -4754,23 +4844,23 @@ Nächste_Textzeile_lesen:
mwst: mwst:
If isMWST Then If isMWST Then
POS.Anzahl = 1 r.Cells("Anzahl").Value = 1
If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then If antrag IsNot Nothing AndAlso antrag.UStVAn_ID > 0 Then
If POS.Preis = 0 Then If IsDBNull(r.Cells("Preis").Value) OrElse r.Cells("Preis").Value = 0 Then
If isRMCKunde Then If isRMCKunde Then
If OFFERT_RMC AndAlso sumRMC <> 0 Then If OFFERT_RMC AndAlso sumRMC <> 0 Then
POS.Preis = sumRMC * -1 r.Cells("Preis").Value = sumRMC * -1
ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then
POS.Preis = sumFremdBeleg * -1 r.Cells("Preis").Value = sumFremdBeleg * -1
End If End If
Else Else
If sumBelegVZ <> 0 Then If sumBelegVZ <> 0 Then
POS.Preis = sumBelegVZ * -1 r.Cells("Preis").Value = sumBelegVZ * -1
Else Else
Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
@@ -4778,7 +4868,7 @@ mwst:
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
If DiffernezbetragEUR <> 0 Then If DiffernezbetragEUR <> 0 Then
POS.Preis = DiffernezbetragEUR * -1 r.Cells("Preis").Value = DiffernezbetragEUR * -1
End If End If
End If End If
@@ -4797,7 +4887,7 @@ mwst:
If OffertNr < 0 Then OffertNr = 15 If OffertNr < 0 Then OffertNr = 15
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True) Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb_NEW(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, (OFFERT_RMC Or OFFERT_FREMD)) Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed)
End If End If

14
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

@@ -236,6 +236,7 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label66 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@@ -1466,6 +1467,7 @@ Partial Class frmNacherfassungNEU
'Panel1 'Panel1
' '
Me.Panel1.AutoScroll = True Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.Label66)
Me.Panel1.Controls.Add(Me.cboAbfertigungsLand) Me.Panel1.Controls.Add(Me.cboAbfertigungsLand)
Me.Panel1.Controls.Add(Me.cbxEIDR) Me.Panel1.Controls.Add(Me.cbxEIDR)
Me.Panel1.Controls.Add(Me.Button4) Me.Panel1.Controls.Add(Me.Button4)
@@ -3442,6 +3444,17 @@ Partial Class frmNacherfassungNEU
Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)" Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
' '
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.ForeColor = System.Drawing.Color.Red
Me.Label66.Location = New System.Drawing.Point(491, 613)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(105, 13)
Me.Label66.TabIndex = 94
Me.Label66.Text = "Antrags-ID angeben!"
Me.Label66.Visible = False
'
'frmNacherfassungNEU 'frmNacherfassungNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3686,4 +3699,5 @@ Partial Class frmNacherfassungNEU
Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label65 As Label Friend WithEvents Label65 As Label
Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label66 As Label
End Class End Class

220
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.resx
View File

@@ -123,140 +123,140 @@
<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="btnAuftrSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnAuftrSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnFrachtfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnFrachtfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnAbsSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnAbsSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnEmpfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnEmpfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnEndEmpfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnEndEmpfSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="btnAvisiererSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnAvisiererSrch.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf 0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+ vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="ColorDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ColorDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

8
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -1,5 +1,6 @@
Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports
Imports Gemeinsames Imports Gemeinsames
Imports System.Web.UI.WebControls.Expressions
Public Class frmNacherfassungNEU Public Class frmNacherfassungNEU
@@ -23,7 +24,7 @@ Public Class frmNacherfassungNEU
Dim SPED_LIST As VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList Dim SPED_LIST As VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList
Dim loaded As Boolean = False Dim loaded As Boolean = False
Event VALUE_CHANGED(c As Control) Event VALUE_CHANGED(c As Control)
Dim AVISO As VERAG_PROG_ALLGEMEIN.caviso = Nothing Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Dim ev_ready As Boolean = False Dim ev_ready As Boolean = False
Public loadOnlyAvisoStart As Boolean = False Public loadOnlyAvisoStart As Boolean = False
@@ -661,7 +662,7 @@ Public Class frmNacherfassungNEU
cboGrenze.changeItem("") cboGrenze.changeItem("")
If avisoLinkId > 0 Then If avisoLinkId > 0 Then
Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Me.AVISO = SQLAVISO.LesenAviso(avisoLinkId, "") Me.AVISO = SQLAVISO.LesenAviso(avisoLinkId, "")
End If End If
@@ -820,6 +821,7 @@ Public Class frmNacherfassungNEU
lblErrLKWKennzeichen.Visible = False lblErrLKWKennzeichen.Visible = False
lblErrSachbearbeiter.Visible = False lblErrSachbearbeiter.Visible = False
lblErrPruefAnzahl.Visible = False lblErrPruefAnzahl.Visible = False
Label66.Visible = False
If Not IsNumeric(cboFiliale._value) OrElse cboFiliale._value <= 0 Then lblErrFiliale.Visible = True : Return False If Not IsNumeric(cboFiliale._value) OrElse cboFiliale._value <= 0 Then lblErrFiliale.Visible = True : Return False
If Not IsNumeric(txtAbfertigungsnummer.Text) OrElse txtAbfertigungsnummer.Text <= 0 Then lblErrAbfertigungsnummer.Visible = True : Return False If Not IsNumeric(txtAbfertigungsnummer.Text) OrElse txtAbfertigungsnummer.Text <= 0 Then lblErrAbfertigungsnummer.Visible = True : Return False
@@ -840,6 +842,8 @@ Public Class frmNacherfassungNEU
If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 And cboFiliale._value <> 7002 And cboFiliale._value <> 7003 Then 'Sonstiges und Maut Und LEX --> Kein SB und Brexit AWOR/UNISPED If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 And cboFiliale._value <> 7002 And cboFiliale._value <> 7003 Then 'Sonstiges und Maut Und LEX --> Kein SB und Brexit AWOR/UNISPED
If Not IsNumeric(cboSachbearbeiter._value) OrElse cboSachbearbeiter._value <= 0 Then lblErrSachbearbeiter.Visible = True : Return False If Not IsNumeric(cboSachbearbeiter._value) OrElse cboSachbearbeiter._value <= 0 Then lblErrSachbearbeiter.Visible = True : Return False
End If End If
If cboFiliale._value = 4817 AndAlso txtErfassungsnummer.Text = "" Then Label66.Visible = True : Return False
Return True Return True
End Function End Function
Function updateMe() As Boolean Function updateMe() As Boolean

16
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -31,7 +31,7 @@ Public Class frmMDM_USTVAntrag
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.UStVAn_ID = UStVAn_ID Me.UStVAn_ID = UStVAn_ID
Me.Text = "USTV Antrag " & UStVAn_ID
End Sub End Sub
Sub New(Antrag_KundenNr As Integer, Antrag_LandKz As String, von As Date, bis As Date) Sub New(Antrag_KundenNr As Integer, Antrag_LandKz As String, von As Date, bis As Date)
@@ -44,7 +44,7 @@ Public Class frmMDM_USTVAntrag
Me.Antrag_LandKz = Antrag_LandKz Me.Antrag_LandKz = Antrag_LandKz
Me.von = von Me.von = von
Me.bis = bis Me.bis = bis
Me.Text = "USTV Antrag "
End Sub End Sub
@@ -2735,12 +2735,22 @@ Public Class frmMDM_USTVAntrag
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0) Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
If spedBuch.hasEntry Then If spedBuch.hasEntry Then
Dim frmNacherfassung As New frmNacherfassungNEU Dim frmNacherfassung As New frmNacherfassungNEU()
frmNacherfassung.srchFiliale = USTV_ANTRAG.FilialenNr frmNacherfassung.srchFiliale = USTV_ANTRAG.FilialenNr
frmNacherfassung.srchAbfertigungsnummer = USTV_ANTRAG.AbfertigungsNr frmNacherfassung.srchAbfertigungsnummer = USTV_ANTRAG.AbfertigungsNr
frmNacherfassung.srchUnterNr = 0 frmNacherfassung.srchUnterNr = 0
frmNacherfassung.ShowDialog(Me) frmNacherfassung.ShowDialog(Me)
If frmNacherfassung.txtErfassungsnummer.Text = "" Then
frmNacherfassung.txtErfassungsnummer.Text = USTV_ANTRAG.UStVAn_ID
frmNacherfassung.txtErfassungsnummer.Focus()
End If
If frmNacherfassung.txtErfassungsnummer.Text = "" OrElse frmNacherfassung.txtErfassungsnummer.Text <> USTV_ANTRAG.UStVAn_ID Then
MsgBox("Antrags-ID: " & USTV_ANTRAG.UStVAn_ID & " wurde falsch gesetzt!")
End If
Exit Sub Exit Sub
End If End If

1
SDL/USTV/usrCntlUSTV.vb
View File

@@ -319,7 +319,6 @@ Public Class usrCntlUSTV
Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value) Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
f.Show(Me) f.Show(Me)
If Not f.IsHandleCreated Then If Not f.IsHandleCreated Then
dgvUSTV.RELOAD() dgvUSTV.RELOAD()
End If End If

5
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
View File

@@ -174,7 +174,12 @@ Public Class ustCntlUSTV_ErstattungPosition
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
If txtUSTBetrag.Text = 0 AndAlso txtUSTBetragEUR.Text = 0 Then
txtUmrechnungskurs.Text = 1
Else
txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text
End If
txtChanged = True txtChanged = True
End If End If

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

@@ -70,7 +70,6 @@ Partial Public Class rptMahnung
Me.lblFax = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFax = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFaxNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFaxNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnrede = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAnrede = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -108,6 +107,7 @@ Partial Public Class rptMahnung
Me.lblAusstand = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblAusstand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMS = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblMS = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,7 +152,6 @@ Partial Public Class rptMahnung
CType(Me.lblFax, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -175,6 +174,7 @@ Partial Public Class rptMahnung
CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblMS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -801,16 +801,6 @@ Partial Public Class rptMahnung
Me.lblAnrede.Top = 2.132866! Me.lblAnrede.Top = 2.132866!
Me.lblAnrede.Width = 4.589763! Me.lblAnrede.Width = 4.589763!
' '
'Picture1
'
Me.Picture1.Height = 0.59375!
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 3.200788!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.04212599!
Me.Picture1.Width = 0.8229167!
'
'lblUeberschriftRG_GS 'lblUeberschriftRG_GS
' '
Me.lblUeberschriftRG_GS.Height = 0.2311024! Me.lblUeberschriftRG_GS.Height = 0.2311024!
@@ -1258,6 +1248,16 @@ Partial Public Class rptMahnung
Me.GroupFooter4.Height = 0! Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4" Me.GroupFooter4.Name = "GroupFooter4"
' '
'Picture1
'
Me.Picture1.Height = 0.59375!
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 3.200788!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0.04212599!
Me.Picture1.Width = 0.8229167!
'
'rptMahnung 'rptMahnung
' '
Me.PageSettings.Margins.Bottom = 0.3937008! Me.PageSettings.Margins.Bottom = 0.3937008!
@@ -1324,7 +1324,6 @@ Partial Public Class rptMahnung
CType(Me.lblFax, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFaxNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnrede, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1347,6 +1346,7 @@ Partial Public Class rptMahnung
CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZahlung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAusstand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblMS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub

2
SDL/buchhaltung/rptMahnung.resx
View File

File diff suppressed because one or more lines are too long