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-01-22 11:53:10 +01:00
parent 809ce03a15 5c83a1649a
commit f4363c4563
12 changed files with 307 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1870,17 +1870,17 @@ Public Class cFakturierung
Select Case FIRMA.Firma_ID
Case 21, 22, 23 '"UNISPED"
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
If FIRMA.Firma_IBAN2 IsNot Nothing AndAlso FIRMA.Firma_BIC2 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung2 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
Case 26 'VERAG-UNISPED"
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
If FIRMA.Firma_IBAN2 IsNot Nothing AndAlso FIRMA.Firma_BIC2 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung2 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
Case 24 'AMBAR"
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
If FIRMA.Firma_IBAN2 IsNot Nothing AndAlso FIRMA.Firma_BIC2 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung2 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
desc.AddCreditorFinancialAccount("TR90 0006 2001 6040 0009 0804 66", "TGBATRISXXX",,, "Garanti Bank Türkei – Euro Konto")
@@ -1902,11 +1902,11 @@ Public Class cFakturierung
Case 19
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
Case Else 'VERAG,ATILLA
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
If FIRMA.Firma_IBAN1 IsNot Nothing AndAlso FIRMA.Firma_BIC1 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung1 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN1 IsNot Nothing, FIRMA.Firma_IBAN1.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC1 IsNot Nothing, FIRMA.Firma_BIC1.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung1 IsNot Nothing, FIRMA.Firma_Bankverbindung1, ""))
If FIRMA.Firma_IBAN2 IsNot Nothing AndAlso FIRMA.Firma_BIC2 IsNot Nothing AndAlso FIRMA.Firma_Bankverbindung2 IsNot Nothing Then desc.AddCreditorFinancialAccount(IIf(FIRMA.Firma_IBAN2 IsNot Nothing, FIRMA.Firma_IBAN2.ToString.Replace("IBAN: ", ""), ""), IIf(FIRMA.Firma_BIC2 IsNot Nothing, FIRMA.Firma_BIC2.ToString.Replace("BIC: ", ""), ""),,, IIf(FIRMA.Firma_Bankverbindung2 IsNot Nothing, FIRMA.Firma_Bankverbindung2, ""))
End Select

2
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -247,7 +247,7 @@ Public Class frmAbrechnungsMaske
End If
End If
Else
sqlstr &= " And (Status = 0 or DruckDatumZeit is null) "
sqlstr &= IIf(filterSR = "MSR", " And ((Status = 0 or Status = 2) or DruckDatumZeit is null)", " And (Status = 0 or DruckDatumZeit is null) ")
End If
If MyComboBox1._value <> "" Then

4
SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb
View File

@@ -27,10 +27,10 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x "
If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString
If Me.Fields.Item("clmnLeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistungsNr").Value IsNot Nothing Then txtAbfertigungsart.Text &= " (" & Me.Fields.Item("clmnLeistungsNr").Value.ToString & ") "
If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) > 0 Then
If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) <> 0 Then
lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2")
End If
If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) > 0 Then
If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) <> 0 Then
lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString).ToString("N2")
End If
End If

2
SDL/kunden/frmGoMautBoxen.vb
View File

@@ -65,7 +65,7 @@ Public Class frmGoMautBoxen
If dgvLKW.Rows(0).Cells(1).Value = "" Then
If dgvLKW.Rows(0).Cells(0).Value = "" Then
lblWarning.Text = "Bitte KFZ-Kennzeichen eingeben."
Exit Sub
End If

10
SDL/mdm/ASFINAG/rptASFINAG_Anhang.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
SDL/mdm/ASFINAG/rptASFINAG_Anhang.resx
View File

File diff suppressed because one or more lines are too long

155
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
SDL/mdm/PLOSE/rptPLOSE_Anhang.resx
View File

File diff suppressed because one or more lines are too long

2
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4018,7 +4018,7 @@ Public Class frmMDMDatenverarbetiung
Dim fehlendeRechnungen As Integer = 0
fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(*) from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & DateTimePicker2.Text & "'", "FMZOLL"))
fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & DateTimePicker2.Text & "'", "FMZOLL"))
If fehlendeRechnungen > 0 Then
pruefData_UTA = False

96
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class usrCntlMDMAuswertungen
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlMDMAuswertungen))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.lblAuswertungAb = New System.Windows.Forms.Label()
@@ -133,6 +134,8 @@ Partial Class usrCntlMDMAuswertungen
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Label61 = New System.Windows.Forms.Label()
Me.GroupBox19 = New System.Windows.Forms.GroupBox()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label69 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
@@ -141,6 +144,8 @@ Partial Class usrCntlMDMAuswertungen
Me.Button18 = New System.Windows.Forms.Button()
Me.Label44 = New System.Windows.Forms.Label()
Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox()
Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox()
Me.Button20 = New System.Windows.Forms.Button()
Me.Label72 = New System.Windows.Forms.Label()
Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -208,7 +213,6 @@ Partial Class usrCntlMDMAuswertungen
Me.btnContractdaten = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -231,6 +235,7 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox18.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.GroupBox19.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox13.SuspendLayout()
Me.GroupBox10.SuspendLayout()
Me.tbPLOSE.SuspendLayout()
@@ -1478,7 +1483,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Label61.AutoSize = True
Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label61.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label61.Location = New System.Drawing.Point(19, 135)
Me.Label61.Location = New System.Drawing.Point(15, 131)
Me.Label61.Name = "Label61"
Me.Label61.Size = New System.Drawing.Size(310, 17)
Me.Label61.TabIndex = 13
@@ -1486,6 +1491,7 @@ Partial Class usrCntlMDMAuswertungen
'
'GroupBox19
'
Me.GroupBox19.Controls.Add(Me.MyDatagridview1)
Me.GroupBox19.Controls.Add(Me.lblAnzahlMautberichte)
Me.GroupBox19.Controls.Add(Me.cbxDateMautbericht)
Me.GroupBox19.Controls.Add(Me.Label69)
@@ -1493,12 +1499,30 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox19.Controls.Add(Me.cbxMautbericht)
Me.GroupBox19.Controls.Add(Me.Label62)
Me.GroupBox19.Controls.Add(Me.Button18)
Me.GroupBox19.Location = New System.Drawing.Point(18, 146)
Me.GroupBox19.Location = New System.Drawing.Point(14, 142)
Me.GroupBox19.Name = "GroupBox19"
Me.GroupBox19.Size = New System.Drawing.Size(697, 84)
Me.GroupBox19.Size = New System.Drawing.Size(697, 195)
Me.GroupBox19.TabIndex = 12
Me.GroupBox19.TabStop = False
'
'MyDatagridview1
'
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, 124)
Me.MyDatagridview1.TabIndex = 34
'
'lblAnzahlMautberichte
'
Me.lblAnzahlMautberichte.AutoSize = True
Me.lblAnzahlMautberichte.Location = New System.Drawing.Point(481, 57)
Me.lblAnzahlMautberichte.Name = "lblAnzahlMautberichte"
Me.lblAnzahlMautberichte.Size = New System.Drawing.Size(0, 13)
Me.lblAnzahlMautberichte.TabIndex = 33
'
'cbxDateMautbericht
'
Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
@@ -1525,7 +1549,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(333, 20)
Me.Label68.TabIndex = 30
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnungen an."
Me.Label68.Text = "Generiert Mautberichte"
'
'cbxMautbericht
'
@@ -1564,7 +1588,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label44.Location = New System.Drawing.Point(15, 287)
Me.Label44.Location = New System.Drawing.Point(15, 340)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(436, 17)
Me.Label44.TabIndex = 11
@@ -1572,6 +1596,8 @@ Partial Class usrCntlMDMAuswertungen
'
'GroupBox13
'
Me.GroupBox13.Controls.Add(Me.cbxAbfVerbotdrucken)
Me.GroupBox13.Controls.Add(Me.cbxRechnungsjournaldrucken)
Me.GroupBox13.Controls.Add(Me.Button20)
Me.GroupBox13.Controls.Add(Me.Label72)
Me.GroupBox13.Controls.Add(Me.KdSearchBox3)
@@ -1592,12 +1618,36 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox13.Controls.Add(Me.Label63)
Me.GroupBox13.Controls.Add(Me.Label45)
Me.GroupBox13.Controls.Add(Me.Button14)
Me.GroupBox13.Location = New System.Drawing.Point(14, 298)
Me.GroupBox13.Location = New System.Drawing.Point(14, 351)
Me.GroupBox13.Name = "GroupBox13"
Me.GroupBox13.Size = New System.Drawing.Size(697, 278)
Me.GroupBox13.Size = New System.Drawing.Size(697, 326)
Me.GroupBox13.TabIndex = 10
Me.GroupBox13.TabStop = False
'
'cbxAbfVerbotdrucken
'
Me.cbxAbfVerbotdrucken.AutoSize = True
Me.cbxAbfVerbotdrucken.Checked = True
Me.cbxAbfVerbotdrucken.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAbfVerbotdrucken.Location = New System.Drawing.Point(166, 220)
Me.cbxAbfVerbotdrucken.Name = "cbxAbfVerbotdrucken"
Me.cbxAbfVerbotdrucken.Size = New System.Drawing.Size(157, 17)
Me.cbxAbfVerbotdrucken.TabIndex = 47
Me.cbxAbfVerbotdrucken.Text = "Abfertigungsverbot drucken"
Me.cbxAbfVerbotdrucken.UseVisualStyleBackColor = True
'
'cbxRechnungsjournaldrucken
'
Me.cbxRechnungsjournaldrucken.AutoSize = True
Me.cbxRechnungsjournaldrucken.Checked = True
Me.cbxRechnungsjournaldrucken.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxRechnungsjournaldrucken.Location = New System.Drawing.Point(6, 220)
Me.cbxRechnungsjournaldrucken.Name = "cbxRechnungsjournaldrucken"
Me.cbxRechnungsjournaldrucken.Size = New System.Drawing.Size(154, 17)
Me.cbxRechnungsjournaldrucken.TabIndex = 46
Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken"
Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True
'
'Button20
'
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1606,12 +1656,12 @@ Partial Class usrCntlMDMAuswertungen
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(121, 49)
Me.Button20.TabIndex = 43
Me.Button20.Text = "Mautanh. löschen"
Me.Button20.Text = "Mautanh. aus RE entfernen"
Me.Button20.UseVisualStyleBackColor = True
'
'Label72
'
Me.Label72.Location = New System.Drawing.Point(97, 226)
Me.Label72.Location = New System.Drawing.Point(96, 244)
Me.Label72.Name = "Label72"
Me.Label72.Size = New System.Drawing.Size(541, 17)
Me.Label72.TabIndex = 42
@@ -1637,7 +1687,7 @@ Partial Class usrCntlMDMAuswertungen
Me.KdSearchBox3.KdNr = "-1"
Me.KdSearchBox3.kdNrField = Nothing
Me.KdSearchBox3.KdNrNullInt = Nothing
Me.KdSearchBox3.Location = New System.Drawing.Point(88, 248)
Me.KdSearchBox3.Location = New System.Drawing.Point(87, 266)
Me.KdSearchBox3.Name = "KdSearchBox3"
Me.KdSearchBox3.nurAktive = True
Me.KdSearchBox3.searchActive = True
@@ -1649,7 +1699,7 @@ Partial Class usrCntlMDMAuswertungen
'rbkunde
'
Me.rbkunde.AutoSize = True
Me.rbkunde.Location = New System.Drawing.Point(10, 249)
Me.rbkunde.Location = New System.Drawing.Point(9, 267)
Me.rbkunde.Name = "rbkunde"
Me.rbkunde.Size = New System.Drawing.Size(59, 17)
Me.rbkunde.TabIndex = 40
@@ -1660,7 +1710,7 @@ Partial Class usrCntlMDMAuswertungen
'
Me.rbAlleKunden.AutoSize = True
Me.rbAlleKunden.Checked = True
Me.rbAlleKunden.Location = New System.Drawing.Point(10, 226)
Me.rbAlleKunden.Location = New System.Drawing.Point(9, 244)
Me.rbAlleKunden.Name = "rbAlleKunden"
Me.rbAlleKunden.Size = New System.Drawing.Size(81, 17)
Me.rbAlleKunden.TabIndex = 39
@@ -1672,7 +1722,7 @@ Partial Class usrCntlMDMAuswertungen
'
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(216, 186)
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(209, 186)
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
Me.txtPloseAnh_Einarbeitung.TabIndex = 38
@@ -1680,7 +1730,7 @@ Partial Class usrCntlMDMAuswertungen
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Location = New System.Drawing.Point(151, 186)
Me.Label71.Location = New System.Drawing.Point(144, 186)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(56, 13)
Me.Label71.TabIndex = 35
@@ -1688,14 +1738,14 @@ Partial Class usrCntlMDMAuswertungen
'
'pbPloseAnh_Proz
'
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(154, 157)
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(147, 157)
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23)
Me.pbPloseAnh_Proz.TabIndex = 36
'
'lblPloseAnh_Proz
'
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(368, 186)
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(361, 186)
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
Me.lblPloseAnh_Proz.TabIndex = 37
@@ -2297,14 +2347,6 @@ Partial Class usrCntlMDMAuswertungen
Me.pnl.Size = New System.Drawing.Size(1057, 54)
Me.pnl.TabIndex = 26
'
'lblAnzahlMautberichte
'
Me.lblAnzahlMautberichte.AutoSize = True
Me.lblAnzahlMautberichte.Location = New System.Drawing.Point(481, 57)
Me.lblAnzahlMautberichte.Name = "lblAnzahlMautberichte"
Me.lblAnzahlMautberichte.Size = New System.Drawing.Size(0, 13)
Me.lblAnzahlMautberichte.TabIndex = 33
'
'usrCntlMDMAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2351,6 +2393,7 @@ Partial Class usrCntlMDMAuswertungen
Me.TabPage2.PerformLayout()
Me.GroupBox19.ResumeLayout(False)
Me.GroupBox19.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox13.ResumeLayout(False)
Me.GroupBox13.PerformLayout()
Me.GroupBox10.ResumeLayout(False)
@@ -2563,4 +2606,7 @@ Partial Class usrCntlMDMAuswertungen
Friend WithEvents Label72 As Label
Friend WithEvents Button20 As Button
Friend WithEvents lblAnzahlMautberichte As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxAbfVerbotdrucken As CheckBox
Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
End Class

135
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -85,15 +85,17 @@ Public Class usrCntlMDMAuswertungen
PathMautberichte = (New SQL).getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='GESAMTMAUT' AND [Param_name]='ANLAGE_PFAD' AND Param_testsystem = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 1, 0), "FMZOLL")
Dim count = 0
Dim countCSV = 0
Dim countPDF = 0
If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte)
If f.ToString.ToLower.EndsWith("_Maut.csv") Or f.ToString.ToLower.EndsWith("_Maut.pdf") Then count += 1
If f.ToString.ToLower.EndsWith("_maut.csv") Then countCSV += 1
If f.ToString.ToLower.EndsWith("_maut.pdf") Then countPDF += 1
Next
End If
End If
lblAnzahlMautberichte.Text = count & "x Mautberichte"
lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
End Sub
@@ -1147,7 +1149,7 @@ Public Class usrCntlMDMAuswertungen
End If
'Druckinformationen
If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
If Not setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
MsgBox("Fehler beim Setzen der Druckinformationen")
Else
MsgBox("Erledigt.")
@@ -1683,12 +1685,10 @@ Public Class usrCntlMDMAuswertungen
End Function
Private Function setStatus4(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean
Private Function setStatus2(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean
Dim cnt = 0
'strParameter = ParameterBereitstellen(Me![Firma_ID], 0, 6, Me![fldSachbearbeiter], Year(Me!fldRechnungsDatum), Me![fldRechnungsDatum], varDatumZeit)
'Return (New SQL).doSQL("UPDATE [Rechnungsausgang] SET [Status] = 4 WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
Dim reIsSet As Boolean = False
If dtSammelRechnugen.Rows.Count > 0 Then
For Each re In dtSammelRechnugen.Rows
@@ -2254,6 +2254,10 @@ Public Class usrCntlMDMAuswertungen
If distinctDT_PDF.Rows.Count > 1 Then
For Each pdf As DataRow In distinctDT_PDF.Rows
'If pdf.Item(0) = 401026 Then
' MsgBox("Test")
'End If
Dim dt_PDF_selected = dtBerichtkunden_PDF.Select("[Customer No] ='" & pdf.Item(0) & "'").CopyToDataTable
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte)
@@ -2271,15 +2275,17 @@ Public Class usrCntlMDMAuswertungen
End Select
Dim count = 0
Dim countCSV = 0
Dim countPDF = 0
If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte)
If f.ToString.ToLower.EndsWith("_Maut.csv") Or f.ToString.ToLower.EndsWith("_Maut.pdf") Then count += 1
If f.ToString.ToLower.EndsWith("_maut.csv") Then countCSV += 1
If f.ToString.ToLower.EndsWith("_maut.pdf") Then countPDF += 1
Next
End If
End If
lblAnzahlMautberichte.Text = count & "x Mautberichte"
lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2451,7 +2457,7 @@ Public Class usrCntlMDMAuswertungen
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
Dim rechnungsstatus As Integer = 2
If rechnungsdatum > Today() Then
MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich")
Exit Sub
@@ -2488,7 +2494,7 @@ Public Class usrCntlMDMAuswertungen
Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status]
FROM Rechnungsausgang
WHERE [Status] = 2 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & "
WHERE [Status] = " & rechnungsstatus & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & "
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status]
ORDER BY [Firma_ID], [Status], RechnungsNr"
@@ -2534,6 +2540,91 @@ Public Class usrCntlMDMAuswertungen
lblPloseAnh_Proz.Text = "100.00 %"
Process.Start(pathPDF)
If cbxRechnungsjournaldrucken.Checked Then
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
MIN(Rechnungsausgang.KundenNrZentrale) AS KundenNrZentrale,
MIN(Rechnungsausgang.RechnungsKundenNr) AS RechnungsKundenNr,
MIN(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
MAX(Rechnungsausgang.Abfertigungsdatum) AS Abfertigungsdatum,
SUM(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS SteuerpflichtigerGesamtbetrag,
SUM(RechnungsausgangPositionen.SteuerfreierBetrag) AS SteuerfreierGesamtbetrag,
MIN(Rechnungsausgang.[Steuersatz %]) AS [Steuersatz %],
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
FROM
Rechnungsausgang
INNER JOIN
Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr
INNER JOIN
RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
WHERE
[Status] = " & rechnungsstatus & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
GROUP BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
ORDER BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr", "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dtRechnungsjournal, {"J1:J" & (dtRechnungsjournal.Rows.Count + 1), "K1:K" & (dtRechnungsjournal.Rows.Count + 1), "L1:L" & (dtRechnungsjournal.Rows.Count + 1)},, "RECHNUNGSJOURNAL VOM" & rechnungsdatum.ToShortDateString,,, True)
End If
If cbxAbfVerbotdrucken.Checked Then
Dim dtEbfertigungsverbot As DataTable = (New SQL).loadDgvBySql("SELECT
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
MIN(Rechnungsausgang.KundenNrZentrale) AS KundenNrZentrale,
MIN(Rechnungsausgang.RechnungsKundenNr) AS RechnungsKundenNr,
MIN(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
MAX(Rechnungsausgang.Abfertigungsdatum) AS Abfertigungsdatum,
SUM(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS SteuerpflichtigerGesamtbetrag,
SUM(RechnungsausgangPositionen.SteuerfreierBetrag) AS SteuerfreierGesamtbetrag,
MIN(Rechnungsausgang.[Steuersatz %]) AS [Steuersatz %],
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
FROM
Rechnungsausgang
INNER JOIN
Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr
INNER JOIN
Kunden ON Rechnungsausgang.RechnungsKundenNr = Kunden.KundenNr
INNER JOIN
RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
WHERE
Kunden.Abfertigungsverbot = 1 AND [Status] = " & rechnungsstatus & " AND Rechnungsausgang.[Sammelrechnung] = 6 AND UPPER(Rechnungsausgang.[Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
GROUP BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
ORDER BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr;", "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dtEbfertigungsverbot, {"I1:I" & (dtEbfertigungsverbot.Rows.Count + 1), "J1:J" & (dtEbfertigungsverbot.Rows.Count + 1), "K1:K" & (dtEbfertigungsverbot.Rows.Count + 1)},, "RECHNUNGEN VOM " & rechnungsdatum.ToShortDateString & " MIT ABFERTIGUNGSVERBOT",,, True)
End If
Else
MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!")
@@ -2595,6 +2686,26 @@ Public Class usrCntlMDMAuswertungen
End If
End Sub
Private Sub cbxDateMautbericht_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxDateMautbericht.SelectedValueChanged
With MyDatagridview1
.Columns.Clear()
.SET_SQL("SELECT [Datenquelle] as Lieferant,sum([Net Amount]) as Netto,sum([VAT Amount]) as VAT,sum([Total Amount]) as Brutto
FROM [VERAG].[dbo].[tblMautbericht]
where cast([Billingdate] as date) = '" & cbxDateMautbericht._value & "'
group by [Datenquelle]", "FMZOLL")
.LOAD()
End With
End Sub
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -323,7 +323,7 @@ Public Class cIDS
MsgBox("Verabreitungspfad nicht gesetzt!")
End If
Return True
Return Paramter.getFTPConenction(API_STRING, API, programName)
End Function