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-25 10:34:19 +02:00
parent 8f0e282227 2731c4be17
commit 2067a6cbf6
8 changed files with 621 additions and 599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -2429,8 +2429,8 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrungUmrechnung._value)
Call przFixeTaxe(RECHNUNG) ' Fixe Taxe errechnen
Call przPP(RECHNUNG) ' Porto/Papiere errechnen
Call przBS415(RECHNUNG) ' Bankspesen errechnen
Call setFixeTaxeMin(RECHNUNG, 500, 20) ' Mind Fixe Taxe errechnen
'Me![SteuerpflichtigerGesamtbetrag] = 0.0#
'Me![SteuerfreierGesamtbetrag] = 0.0#
@@ -3052,30 +3052,44 @@ Public Class usrCntlFaktAbrechnung
End Sub
Shared Sub setFixeTaxeMin(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef minBetrag As Double, fixeTaxe As Double)
Dim FixeTaxe_Berechnungbetrag As Double = 0
Dim PapirePorti As Double = 0
If Not CBool(SQL.DLookup("[PP441]", "Filialen", "[FilialenNr]=" & RECHNUNG.FilialenNr, "FMZOLL", False)) Then
Exit Sub
End If
If Not leistungExistsInPos(RECHNUNG, 441, 1) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If Not leistungExistsInPos(RECHNUNG, 441) Then Exit Sub 'Schauen, ob die Leistung in den Positionen vorhanden ist
If (RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) >= minBetrag Then Exit Sub
For Each POS In RECHNUNG.POSITIONEN
If POS.LeistungsNr <> 441 Then
FixeTaxe_Berechnungbetrag += POS.[Preis] * POS.Anzahl
End If
Next
If fixeTaxe <= 0 Then Exit Sub
If FixeTaxe_Berechnungbetrag < 0 Then FixeTaxe_Berechnungbetrag *= -1
If FixeTaxe_Berechnungbetrag < minBetrag Then
'Sucht, ob Fixetaxe schon vorhanden ist,...
Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 441 And x.BerechnungsartNr = 1)
Dim FixeTaxePOS = RECHNUNG.POSITIONEN.Find(Function(x) x.LeistungsNr = 441)
'... sonst wird eine neue Pos eingefügt...
If FixeTaxePOS IsNot Nothing Then
'FixeTaxePOS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen
FixeTaxePOS.LeistungsNr = 441 '441 und nicht 440 laut Brigitte weil Steuerfrei!!
FixeTaxePOS.LeistungsBez = "P.P./Fixe Taxe"
FixeTaxePOS.BerechnungsartNr = 9
FixeTaxePOS.BerechnungsartNr = 1
'RECHNUNG.POSITIONEN.Add(FixeTaxePOS)
'...und der Wert gesetzt.
FixeTaxePOS.Anzahl = 1
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe
FixeTaxePOS.Preis = getVorzeichen(RECHNUNG) * fixeTaxe 'Preis wird bewusst überschrieben!!!
initSteuerbetraege(RECHNUNG, FixeTaxePOS)
End If
End If
End Sub

36
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -24,8 +24,8 @@ Partial Class frmMDM_USTVAntrag
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.pb_Beleg = New System.Windows.Forms.PictureBox()
Me.Button5 = New System.Windows.Forms.Button()
@@ -387,9 +387,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
Me.lblGesamtUSteuer.Location = New System.Drawing.Point(840, 16)
Me.lblGesamtUSteuer.Location = New System.Drawing.Point(856, 16)
Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer"
Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtUSteuer.Size = New System.Drawing.Size(117, 20)
Me.lblGesamtUSteuer.TabIndex = 26
Me.lblGesamtUSteuer.Text = "000.000,00"
Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -401,9 +401,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
Me.lblDiffernezbetrag.Location = New System.Drawing.Point(840, 59)
Me.lblDiffernezbetrag.Location = New System.Drawing.Point(859, 59)
Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetrag.Size = New System.Drawing.Size(114, 15)
Me.lblDiffernezbetrag.TabIndex = 25
Me.lblDiffernezbetrag.Text = "000.000,00"
Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -415,9 +415,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
Me.lblGesamtErstattung.Location = New System.Drawing.Point(840, 36)
Me.lblGesamtErstattung.Location = New System.Drawing.Point(859, 36)
Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattung.Size = New System.Drawing.Size(114, 17)
Me.lblGesamtErstattung.TabIndex = 24
Me.lblGesamtErstattung.Text = "000.000,00"
Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1119,9 +1119,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblGesamtUSteuerFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtUSteuerFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtUSteuerFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtUSteuerFW.Location = New System.Drawing.Point(721, 16)
Me.lblGesamtUSteuerFW.Location = New System.Drawing.Point(733, 14)
Me.lblGesamtUSteuerFW.Name = "lblGesamtUSteuerFW"
Me.lblGesamtUSteuerFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtUSteuerFW.Size = New System.Drawing.Size(117, 14)
Me.lblGesamtUSteuerFW.TabIndex = 17
Me.lblGesamtUSteuerFW.Text = "000.000,00 €"
Me.lblGesamtUSteuerFW.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1147,9 +1147,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblDiffernezbetragFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetragFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetragFW.ForeColor = System.Drawing.Color.White
Me.lblDiffernezbetragFW.Location = New System.Drawing.Point(721, 59)
Me.lblDiffernezbetragFW.Location = New System.Drawing.Point(733, 59)
Me.lblDiffernezbetragFW.Name = "lblDiffernezbetragFW"
Me.lblDiffernezbetragFW.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetragFW.Size = New System.Drawing.Size(117, 15)
Me.lblDiffernezbetragFW.TabIndex = 15
Me.lblDiffernezbetragFW.Text = "000.000,00 €"
Me.lblDiffernezbetragFW.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1175,9 +1175,9 @@ Partial Class frmMDM_USTVAntrag
Me.lblGesamtErstattungFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattungFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattungFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtErstattungFW.Location = New System.Drawing.Point(721, 36)
Me.lblGesamtErstattungFW.Location = New System.Drawing.Point(736, 36)
Me.lblGesamtErstattungFW.Name = "lblGesamtErstattungFW"
Me.lblGesamtErstattungFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattungFW.Size = New System.Drawing.Size(114, 15)
Me.lblGesamtErstattungFW.TabIndex = 13
Me.lblGesamtErstattungFW.Text = "000.000,00 €"
Me.lblGesamtErstattungFW.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1478,8 +1478,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvUSTVPositionen.AllowUserToAddRows = False
Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1640,8 +1640,8 @@ Partial Class frmMDM_USTVAntrag
Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
Me.dgvErstattungspositionen.AllowUserToAddRows = False
Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

1065
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

5
SDL/kunden/frmKundenblatt.vb
View File

@@ -3,6 +3,7 @@ Imports System.ComponentModel
Imports System.Reflection
Imports javax.xml.bind.annotation
Imports VERAG_PROG_ALLGEMEIN
Imports System.Globalization
Public Class frmKundenblatt
@@ -2139,7 +2140,9 @@ Public Class frmKundenblatt
If i > 1 Then
.Columns(i).Width = 75
.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(i).DefaultCellStyle.Format = "c2"
.Columns(i).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End If
Next

1
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,6 +1,5 @@
Imports System.Data.OleDb
Imports System.IO
Imports com.sun.xml.internal.ws.api.message
Imports itextsharp.text.pdf
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN

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

@@ -33,7 +33,7 @@ Partial Class usrcntlFakturierung
Me.Label61 = New System.Windows.Forms.Label()
Me.GBMautberichte = New System.Windows.Forms.GroupBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvMautbericht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label5 = New System.Windows.Forms.Label()
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
Me.pbMautAnh_Proz = New System.Windows.Forms.ProgressBar()
@@ -101,7 +101,7 @@ Partial Class usrcntlFakturierung
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GBSammelrechnung.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -200,7 +200,7 @@ Partial Class usrcntlFakturierung
'GBMautberichte
'
Me.GBMautberichte.Controls.Add(Me.TextBox1)
Me.GBMautberichte.Controls.Add(Me.MyDatagridview1)
Me.GBMautberichte.Controls.Add(Me.dgvMautbericht)
Me.GBMautberichte.Controls.Add(Me.Label5)
Me.GBMautberichte.Controls.Add(Me.lblAnzahlMautberichte)
Me.GBMautberichte.Controls.Add(Me.pbMautAnh_Proz)
@@ -227,15 +227,15 @@ Partial Class usrcntlFakturierung
Me.TextBox1.Size = New System.Drawing.Size(106, 13)
Me.TextBox1.TabIndex = 105
'
'MyDatagridview1
'dgvMautbericht
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135)
Me.MyDatagridview1.TabIndex = 34
Me.dgvMautbericht.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvMautbericht.BackgroundColor = System.Drawing.SystemColors.Window
Me.dgvMautbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvMautbericht.Location = New System.Drawing.Point(4, 71)
Me.dgvMautbericht.Name = "dgvMautbericht"
Me.dgvMautbericht.Size = New System.Drawing.Size(471, 135)
Me.dgvMautbericht.TabIndex = 34
'
'Label5
'
@@ -958,7 +958,7 @@ Partial Class usrcntlFakturierung
Me.GroupBox1.ResumeLayout(False)
Me.GBMautberichte.ResumeLayout(False)
Me.GBMautberichte.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).EndInit()
Me.GBSammelrechnung.ResumeLayout(False)
Me.GBSammelrechnung.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
@@ -981,7 +981,7 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label61 As Label
Friend WithEvents GBMautberichte As GroupBox
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvMautbericht As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblAnzahlMautberichte As Label
Friend WithEvents cbxDateMautbericht As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label69 As Label

27
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -545,17 +545,20 @@ Public Class usrcntlFakturierung
If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
'If r("BetragExclusivFT") < 500 Then
'intZlr = r("AnzahlFT") - 1
'Else
intZlr = r("AnzahlFT")
'End If
'Else
' If (0 - r("BetragExclusivFT")) < 500 Then
' intZlr = r("AnzahlFT") - 1
' Else
' intZlr = r("AnzahlFT") - 1
' End If
If Not IsDBNull(r("BetragExclusivPP")) AndAlso r("BetragExclusivPP") > 0 Then
If r("BetragExclusivPP") < 500 Then
intZlr = r("AnzahlPP") - 1
Else
intZlr = r("AnzahlPP")
End If
Else
If (0 - r("BetragExclusivPP")) < 500 Then
intZlr = r("AnzahlPP") - 1
Else
intZlr = r("AnzahlPP") - 1
End If
End If
End If
If intZlr > 0 Then
@@ -1721,7 +1724,7 @@ Public Class usrcntlFakturierung
dtSummen.Rows.InsertAt(drLast, dtSummen.Rows.Count)
With MyDatagridview1
With dgvMautbericht
.Columns.Clear()

2
VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb
View File

@@ -132,7 +132,7 @@ Public Class cEmailBenachrichtigung
End If
If art = 4 Then '> Freigabe Export
Dim FreigabeMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailAnkunft_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0"))
Dim FreigabeMail = IIf((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0") = "False", "0", (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(EmailFreigabe_Export,0)", "[tblKundenErweitert]", "kde_KundenNr=" & Kdnr, "FMZOLL", "0"))
If FreigabeMail = 0 Then
art = 2
End If