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-04-11 12:39:05 +02:00
parent 975e1b65a7 329621d2d8
commit b2e3a4329a
27 changed files with 1865 additions and 970 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2521,6 +2521,11 @@ Public Class cFakturierung
If displayFirmenmane Then getSignature &= "<br><b>Unisped Speditions GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 19 'VERAG360
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_360.jpg""/>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG 360 GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "mmd@verag.ag") & " | www.verag.ag | FN 544732b</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 26 'VERAG-UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG-UNISPED-Logo.jpg""/>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG-UNISPED LTD</b><br>"

2
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -311,7 +311,7 @@ Public Class frmFaktSammelRgDrucken
If Sammelrechung = 6 Then 'MDMSammelrechnung
'AKTUELL IMMER MIT KOPIE
MDMKopiedrucken = True
Dim reLandKZ As String = MyDatagridview1.Rows(0).Cells("RechnungsLandKz").Value
Dim reLandKZ As String = MyDatagridview1.SelectedRows(0).Cells("RechnungsLandKz").Value
Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = reLandKZ).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
If isEU Then

6
SDL/Fakturierung/rptSammelRechnungAnlagenDruck_Leistungen.vb
View File

@@ -24,14 +24,16 @@ Public Class rptSammelRechnungAnlagenDruck_Leistungen
txtAbfertigungsart.Text = ""
lblSteuerfrei.Text = ""
lblSteuerpflichtig.Text = ""
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
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
lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString).ToString("N2")
lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString * vorzeichen).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
lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString).ToString("N2")
lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString * vorzeichen).ToString("N2")
End If
End If
End Sub

2
SDL/SDL.vbproj
View File

@@ -4991,13 +4991,13 @@
<None Include="Resources\Verag-AG-Logo_DE.jpg" />
<None Include="Resources\plose_truckmaster.png" />
<None Include="Resources\pdf_s.png" />
<None Include="Resources\VERAG_360.jpg" />
<None Include="Resources\ungueltig_de.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\ungueltig_en.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\VERAG_360.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

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

@@ -27,6 +27,8 @@ Partial Class frmMDM_USTVAntrag
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label27 = New System.Windows.Forms.Label()
Me.picExcel = New System.Windows.Forms.PictureBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.picPDF = New System.Windows.Forms.PictureBox()
@@ -46,6 +48,7 @@ Partial Class frmMDM_USTVAntrag
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblLand = New System.Windows.Forms.Label()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblMWSTAntrag = New System.Windows.Forms.Label()
@@ -114,8 +117,8 @@ Partial Class frmMDM_USTVAntrag
Me.Button3 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlBottom.SuspendLayout()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -159,6 +162,41 @@ Partial Class frmMDM_USTVAntrag
Me.pnlBottom.Size = New System.Drawing.Size(1454, 100)
Me.pnlBottom.TabIndex = 3
'
'txtSumme
'
Me.txtSumme._DateTimeOnly = False
Me.txtSumme._numbersOnly = False
Me.txtSumme._numbersOnlyKommastellen = ""
Me.txtSumme._numbersOnlyTrennzeichen = False
Me.txtSumme._Prozent = False
Me.txtSumme._ShortDateNew = False
Me.txtSumme._ShortDateOnly = False
Me.txtSumme._TimeOnly = False
Me.txtSumme._TimeOnly_Seconds = False
Me.txtSumme._value = ""
Me.txtSumme._Waehrung = True
Me.txtSumme._WaehrungZeichen = True
Me.txtSumme.ForeColor = System.Drawing.Color.Black
Me.txtSumme.Location = New System.Drawing.Point(1026, 63)
Me.txtSumme.MaxLineLength = -1
Me.txtSumme.MaxLines_Warning = ""
Me.txtSumme.MaxLines_Warning_Label = Nothing
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.ReadOnly = True
Me.txtSumme.Size = New System.Drawing.Size(88, 20)
Me.txtSumme.TabIndex = 49
Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(975, 66)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(45, 13)
Me.Label27.TabIndex = 48
Me.Label27.Text = "Summe:"
'
'picExcel
'
Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
@@ -421,6 +459,9 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.Label15)
Me.Panel8.Controls.Add(Me.txtVZam)
Me.Panel8.Controls.Add(Me.btnAbfertigungsNrVergeben)
Me.Panel8.Controls.Add(Me.Label14)
Me.Panel8.Controls.Add(Me.txtEingereichtAm)
Me.Panel8.Controls.Add(Me.lblMWSTAntrag)
@@ -450,6 +491,19 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Size = New System.Drawing.Size(973, 87)
Me.Panel8.TabIndex = 19
'
'btnAbfertigungsNrVergeben
'
Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbfertigungsNrVergeben.ForeColor = System.Drawing.Color.Black
Me.btnAbfertigungsNrVergeben.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAbfertigungsNrVergeben.Location = New System.Drawing.Point(654, 31)
Me.btnAbfertigungsNrVergeben.Name = "btnAbfertigungsNrVergeben"
Me.btnAbfertigungsNrVergeben.Size = New System.Drawing.Size(146, 27)
Me.btnAbfertigungsNrVergeben.TabIndex = 50
Me.btnAbfertigungsNrVergeben.Text = "AbfertigungsNr vergeben"
Me.btnAbfertigungsNrVergeben.UseVisualStyleBackColor = True
Me.btnAbfertigungsNrVergeben.Visible = False
'
'Label14
'
Me.Label14.AutoSize = True
@@ -583,7 +637,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Black
Me.Label9.Location = New System.Drawing.Point(815, 37)
Me.Label9.Location = New System.Drawing.Point(826, 35)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(30, 17)
Me.Label9.TabIndex = 19
@@ -636,7 +690,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtAbfNr.MaxLines_Warning = ""
Me.txtAbfNr.MaxLines_Warning_Label = Nothing
Me.txtAbfNr.Name = "txtAbfNr"
Me.txtAbfNr.Size = New System.Drawing.Size(146, 23)
Me.txtAbfNr.Size = New System.Drawing.Size(117, 23)
Me.txtAbfNr.TabIndex = 18
'
'Label8
@@ -1430,40 +1484,43 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'txtSumme
'Label15
'
Me.txtSumme._DateTimeOnly = False
Me.txtSumme._numbersOnly = False
Me.txtSumme._numbersOnlyKommastellen = ""
Me.txtSumme._numbersOnlyTrennzeichen = False
Me.txtSumme._Prozent = False
Me.txtSumme._ShortDateNew = False
Me.txtSumme._ShortDateOnly = False
Me.txtSumme._TimeOnly = False
Me.txtSumme._TimeOnly_Seconds = False
Me.txtSumme._value = ""
Me.txtSumme._Waehrung = True
Me.txtSumme._WaehrungZeichen = True
Me.txtSumme.ForeColor = System.Drawing.Color.Black
Me.txtSumme.Location = New System.Drawing.Point(1026, 63)
Me.txtSumme.MaxLineLength = -1
Me.txtSumme.MaxLines_Warning = ""
Me.txtSumme.MaxLines_Warning_Label = Nothing
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.ReadOnly = True
Me.txtSumme.Size = New System.Drawing.Size(88, 20)
Me.txtSumme.TabIndex = 49
Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.ForeColor = System.Drawing.Color.Black
Me.Label15.Location = New System.Drawing.Point(800, 64)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(53, 17)
Me.Label15.TabIndex = 51
Me.Label15.Text = "VZ am:"
'
'Label27
'txtVZam
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(975, 66)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(45, 13)
Me.Label27.TabIndex = 48
Me.Label27.Text = "Summe:"
Me.txtVZam._DateTimeOnly = False
Me.txtVZam._numbersOnly = True
Me.txtVZam._numbersOnlyKommastellen = ""
Me.txtVZam._numbersOnlyTrennzeichen = False
Me.txtVZam._Prozent = False
Me.txtVZam._ShortDateNew = True
Me.txtVZam._ShortDateOnly = True
Me.txtVZam._TimeOnly = False
Me.txtVZam._TimeOnly_Seconds = False
Me.txtVZam._value = ""
Me.txtVZam._Waehrung = False
Me.txtVZam._WaehrungZeichen = False
Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVZam.ForeColor = System.Drawing.Color.Black
Me.txtVZam.Location = New System.Drawing.Point(865, 60)
Me.txtVZam.MaxLength = 10
Me.txtVZam.MaxLineLength = -1
Me.txtVZam.MaxLines_Warning = ""
Me.txtVZam.MaxLines_Warning_Label = Nothing
Me.txtVZam.Name = "txtVZam"
Me.txtVZam.Size = New System.Drawing.Size(100, 23)
Me.txtVZam.TabIndex = 52
'
'frmMDM_USTVAntrag
'
@@ -1599,4 +1656,7 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents picExcel As PictureBox
Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label27 As Label
Friend WithEvents btnAbfertigungsNrVergeben As Button
Friend WithEvents Label15 As Label
Friend WithEvents txtVZam As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

314
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1,10 +1,6 @@

Imports System.ComponentModel
Imports System.IO
Imports System.IO
Imports System.Reflection
Imports System.Windows.Documents
Imports com.sun.org.apache.xml.internal.utils
Imports DAKOSY_Worker.InformationEXITDE
Imports itextsharp.text.pdf
Imports itextsharp.text.pdf.parser
Imports Microsoft.Office.Interop
@@ -18,6 +14,7 @@ Public Class frmMDM_USTVAntrag
Dim Antrag_LandKz As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim posTabisSelected As Boolean = True
Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT", False)
Dim von, bis As Date
@@ -63,10 +60,8 @@ Public Class frmMDM_USTVAntrag
btnEintragloeschen.Enabled = Not UStVAn_ID <= 0
btnNeuerEintrag.Enabled = Not UStVAn_ID <= 0
UstCntlUSTV_AntragPosition1.Enabled = Not UStVAn_ID <= 0
cbxLand.Visible = UStVAn_ID <= 0
With dgvUSTVPositionen
.ClearSelection()
@@ -301,6 +296,7 @@ Public Class frmMDM_USTVAntrag
txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
txtVZam.Text = If(USTV_ANTRAG.UStVAn_VZDatum, "")
txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "")
@@ -323,6 +319,7 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
USTV_ANTRAG.FilialenNr = cbxFiliale._value
USTV_ANTRAG.FilialenNr = cbxFiliale._value
If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -337,6 +334,13 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_VZBetrag = Nothing
End If
If txtVZam.Text <> "" AndAlso IsDate(txtVZam.Text) Then
USTV_ANTRAG.UStVAn_VZDatum = CDate(txtVZ.Text)
Else
USTV_ANTRAG.UStVAn_VZDatum = Nothing
End If
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text
USTV_ANTRAG.AbfertigungsNr = txtAbfNr.Text
@@ -345,7 +349,7 @@ Public Class frmMDM_USTVAntrag
If ADR IsNot Nothing Then
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
USTV_ANTRAG.UStVAn_Name = ADR.Name_1 & IIf(ADR.Name_2 <> "", " " & ADR.Name_2, "")
USTV_ANTRAG.UStVAn_Straße = ADR.Straße
USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
USTV_ANTRAG.UStVAn_Ort = ADR.Ort
@@ -528,6 +532,10 @@ Public Class frmMDM_USTVAntrag
setinfofields()
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click
@@ -695,7 +703,7 @@ Public Class frmMDM_USTVAntrag
' Berechnungen
If Not MWSTSummenAusBeleg Then
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung
USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'IMMER IN EUR
USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
@@ -744,10 +752,12 @@ Public Class frmMDM_USTVAntrag
End If
If USTV_POS.INSERT() Then
If bytSchnittstellenNr = 11 Then
If bytSchnittstellenNr = 11 Then 'wegel bei welcher Einlesselogik, sollen immer [tblPLOSE_Details] und [tblPLOSE_Inv_Data] aktualisiert werden!
MDM_Worker.cPLOSE.UPDATE_ARCHIV_NEULOGIK(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
Else
MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
MDM_Worker.cPLOSE.UPDATE_ARCHIV_NEULOGIK(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
End If
End If
@@ -1255,9 +1265,8 @@ Public Class frmMDM_USTVAntrag
ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId)
End If
UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender)
UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api)
Else
UstCntlUSTV_AntragPosition1.reset()
UstCntlUSTV_AntragPosition1.Enabled = False
@@ -1372,6 +1381,9 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 0 Then btnAbfertigungsNrVergeben.Visible = False
Me.Top = 0
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
End Sub
@@ -1526,109 +1538,13 @@ Public Class frmMDM_USTVAntrag
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
Dim updated As Boolean = False
Dim sqlText = ""
Dim test As Boolean = False
Select Case UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value
Case 1 'VERAG 360 GmbH; 4975 Suben
'UStV-Antragsnummer im Buchungssatz löschen.
sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And tblTrdinInvoice.Rechnungsnummer = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 2 ' UStV-Antragsnummer im IDSDieseldatenArchiv löschen 'IDS alte Schnittstelle - OK
sqlText = "UPDATE tblDieselArchiv SET tblDieselArchiv.UStVAn_ID = NULL FROM tblDieselArchiv INNER JOIN tbl_IDS_Länder ON tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode WHERE (((tblDieselArchiv.[Year Month Day])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "') AND ((ISNULL([OBO Number],ISNULL([VR Number],[Payment summary number])))='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "') AND ((tblDieselArchiv.KdNrVERAG)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tbl_IDS_Länder.LandNr)=" & USTV_ANTRAG.UStVAn_LandNr & "))"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 3 'Telepass ' UStV-Antragsnummer in tblMautITArchiv löschen.- NICHT MEHR AKTIV
sqlText = "UPDATE tblMautITArchiv SET tblMautITArchiv.UStVAn_ID = NULL WHERE tblMautITArchiv.Verrechnungsdatum='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' AND tblMautITArchiv.Code_Adressat_des_Kontoauszugs='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "' AND ([Betrag_mit_Preisnachlass_oder_Preisnachlass]-[Nicht_mehrwertsteuerpflichtiger_Betrag])<>0"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 4 'MS Europe BV; GC Rijswijk alte Schnittstelle UStV-Antragsnummer in tblMSETransactionsArchiv löschen. - OK
sqlText = "UPDATE tblMSETransactionsArchiv SET tblMSETransactionsArchiv.UStVAn_ID = NULL FROM tblMSETransactionsArchiv INNER JOIN Adressen ON tblMSETransactionsArchiv.[Customer ID] = Adressen.MSEKundenNr WHERE (((tblMSETransactionsArchiv.[Invoice Date])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "') AND ((tblMSETransactionsArchiv.[Invoice ID])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "') AND ((tblMSETransactionsArchiv.[Specification Page])='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung & "') AND ((Adressen.AdressenNr)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tblMSETransactionsArchiv.[Transaction Country])='" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "') AND ((tblMSETransactionsArchiv.[Original Currency])='" & USTV_ANTRAG.UStVAn_Währungscode & "') AND ((tblMSETransactionsArchiv.[Original VAT Amount])<>0))"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 5 'UNIONTANK - UTA - OK
' UStV-Antragsnummer in tblUTAArchiv löschen.
sqlText =
"UPDATE tblUTAArchiv SET tblUTAArchiv.UStVAn_ID = NULL FROM tblUTAArchiv INNER JOIN Adressen ON tblUTAArchiv.Kundennummer = Adressen.UTAKundenNr
WHERE tblUTAArchiv.Rechnungsdatum='" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "'
AND tblUTAArchiv.Rechnungsnummer_pro_Lieferland=" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "
AND tblUTAArchiv.Lieferland='" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO3LandFromLandNr(USTV_ANTRAG.UStVAn_LandNr) & "'
AND tblUTAArchiv.Lieferlandwährung_ISO='" & USTV_ANTRAG.UStVAn_Währungscode & "'
AND Adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & "
AND ([Gesamtbetrag_Brutto_in_Lieferlandwährung]-[Gesamtbetrag_Netto_in_Lieferlandwährung])<>0"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 6 'PLOSE-alte Logik -> aus Transaktionen
sqlText = "Update [tblPLOSE_Details]
set plose_Archiv=0, [plose_ArchiviertDatum]=NULL, UStVAn_ID = NULL
From [tblPLOSE_Details] INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
INNER Join [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
WHERE cast(plose_RechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "'
And plose_LieferantCode IN (0,1,7,9) "
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 7 'RMC - neue Schnittstelle - OK
sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And rmc_reNr = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 8 'IDS neue Schnittstelle - OK
sqlText = "update tblIDSTransactionsNew set UStVAn_ID = NULL
From tblIDSTransactionsNew
INNER Join tbl_IDS_Länder
On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
Where
tblIDSTransactionsNew.[YearMonthDay] = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "'
And tblIDSTransactionsNew.KdNrVERAG = " & USTV_ANTRAG.UStVAn_KuNr & "
And tbl_IDS_Länder.[Lieferland_ISO2] = '" & Antrag_LandKz & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 9 'MSE neue Schnitttelle - OK
If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Length >= 15 Then
Dim invoiceNo = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Substring(0, 7)
Dim customerNo = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr.ToString.Substring(10, 5)
sqlText = "UPDATE [tblMSEInvoices] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL FROM [tblMSEInvoices] inner join [tblMSECustomers] on tblMSEInvoices.customer_number = tblMSECustomers.customer_id WHERE cast(invoice_date as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And invoice_id = " & invoiceNo & " And tblMSECustomers.partner_customer_number= " & USTV_ANTRAG.UStVAn_KuNr & " And country = '" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "' and tblMSEInvoices.customer_number = " & customerNo
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
End If
Case 10 ' UTA neue Schnittstelle - OK
sqlText = "UPDATE [tblUTAImportNew] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL from [tblUTAImportNew] INNER JOIN Adressen ON [tblUTAImportNew].Kundennummer = Adressen.UTAKundenNr WHERE cast(Rechnungsdatum as date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And Rechnungsnummer_pro_Lieferland = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & " And Adressen.AdressenNr= " & USTV_ANTRAG.UStVAn_KuNr & " AND Lieferland_ISO2 = '" & UstCntlUSTV_AntragPosition1.Antrag_LandKz & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 11 'PLOSE-neue Logik -> aus Belegen
sqlText = "Update [tblPLOSE_Inv_Data]
set plInv_Archiv=0, [plInv_ArchiviertDatum]=NULL, plInv_UStVAn_ID = NULL
From [tblPLOSE_Inv_Data] INNER Join Adressen On PLOSEKundenNr=plInv_PLOSEKundennummer
WHERE cast(plInv_SupplierRechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND [plInv_SupplierRechnungsNr] = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
End Select
If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing AndAlso (UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value > 0 And UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value < 11) Then
If Not updated Then
If Not vbYes = MsgBox("Fehler beim zurücksetzen der USTVA-ID!" & vbNewLine & "Möchten Sie den Eintrag trotzdem löschen?", vbYesNoCancel) Then
Exit Sub
End If
End If
End If
If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung) Then
If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
End If
init()
End If
End If
@@ -1689,10 +1605,116 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Function setArchiv(SchnittstellenNr As Integer, RechnungsDatum As Date, RechnungsNr As String, Leistungsbez As String) As Boolean
Dim updated As Boolean = False
Dim sqlText = ""
Dim test As Boolean = False
Select Case SchnittstellenNr
Case 1 'VERAG 360 GmbH; 4975 Suben
'UStV-Antragsnummer im Buchungssatz löschen.
sqlText = "Update tblTrdinInvoice SET tblTrdinInvoice.UStVAn_ID = NULL WHERE tblTrdinInvoice.Rechnungsdatum = '" & RechnungsDatum.ToShortDateString & "' And tblTrdinInvoice.Rechnungsnummer = " & RechnungsNr
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 2 ' UStV-Antragsnummer im IDSDieseldatenArchiv löschen 'IDS alte Schnittstelle - OK
sqlText = "UPDATE tblDieselArchiv SET tblDieselArchiv.UStVAn_ID = NULL FROM tblDieselArchiv INNER JOIN tbl_IDS_Länder ON tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode WHERE (((tblDieselArchiv.[Year Month Day])='" & RechnungsDatum.ToShortDateString & "') AND ((ISNULL([OBO Number],ISNULL([VR Number],[Payment summary number])))='" & RechnungsNr & "') AND ((tblDieselArchiv.KdNrVERAG)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tbl_IDS_Länder.LandNr)=" & USTV_ANTRAG.UStVAn_LandNr & "))"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 3 'Telepass ' UStV-Antragsnummer in tblMautITArchiv löschen.- NICHT MEHR AKTIV
sqlText = "UPDATE tblMautITArchiv SET tblMautITArchiv.UStVAn_ID = NULL WHERE tblMautITArchiv.Verrechnungsdatum='" & RechnungsDatum.ToShortDateString & "' AND tblMautITArchiv.Code_Adressat_des_Kontoauszugs='" & RechnungsNr & "' AND ([Betrag_mit_Preisnachlass_oder_Preisnachlass]-[Nicht_mehrwertsteuerpflichtiger_Betrag])<>0"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 4 'MS Europe BV; GC Rijswijk alte Schnittstelle UStV-Antragsnummer in tblMSETransactionsArchiv löschen. - OK
sqlText = "UPDATE tblMSETransactionsArchiv SET tblMSETransactionsArchiv.UStVAn_ID = NULL FROM tblMSETransactionsArchiv INNER JOIN Adressen ON tblMSETransactionsArchiv.[Customer ID] = Adressen.MSEKundenNr WHERE (((tblMSETransactionsArchiv.[Invoice Date])='" & RechnungsDatum.ToShortDateString & "') AND ((tblMSETransactionsArchiv.[Invoice ID])='" & RechnungsNr & "') AND ((tblMSETransactionsArchiv.[Specification Page])='" & Leistungsbez & "') AND ((Adressen.AdressenNr)=" & USTV_ANTRAG.UStVAn_KuNr & ") AND ((tblMSETransactionsArchiv.[Transaction Country])='" & Antrag_LandKz & "') AND ((tblMSETransactionsArchiv.[Original Currency])='" & USTV_ANTRAG.UStVAn_Währungscode & "') AND ((tblMSETransactionsArchiv.[Original VAT Amount])<>0))"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 5 'UNIONTANK - UTA - OK
' UStV-Antragsnummer in tblUTAArchiv löschen.
sqlText =
"UPDATE tblUTAArchiv SET tblUTAArchiv.UStVAn_ID = NULL FROM tblUTAArchiv INNER JOIN Adressen ON tblUTAArchiv.Kundennummer = Adressen.UTAKundenNr
WHERE tblUTAArchiv.Rechnungsdatum='" & RechnungsDatum.ToShortDateString & "'
AND tblUTAArchiv.Rechnungsnummer_pro_Lieferland=" & RechnungsNr & "
AND tblUTAArchiv.Lieferland='" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO3LandFromLandNr(USTV_ANTRAG.UStVAn_LandNr) & "'
AND tblUTAArchiv.Lieferlandwährung_ISO='" & USTV_ANTRAG.UStVAn_Währungscode & "'
AND Adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & "
AND ([Gesamtbetrag_Brutto_in_Lieferlandwährung]-[Gesamtbetrag_Netto_in_Lieferlandwährung])<>0"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 6, 11 'PLOSE-alte Logik -> aus Transaktionen und neue Logik -> aus Rechnungsdaten (immer beide Ausführen!)
sqlText = "Update [tblPLOSE_Details]
set plose_Archiv=0, [plose_ArchiviertDatum]=NULL, UStVAn_ID = NULL
From [tblPLOSE_Details] INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
INNER Join [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
WHERE cast(plose_RechnungsDatum As Date) = '" & RechnungsDatum.ToShortDateString & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & RechnungsNr & "'
And plose_LieferantCode IN (0,1,7,9) "
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
sqlText = "Update [tblPLOSE_Inv_Data]
set plInv_Archiv=0, [plInv_ArchiviertDatum]=NULL, plInv_UStVAn_ID = NULL
From [tblPLOSE_Inv_Data] INNER Join Adressen On PLOSEKundenNr=plInv_PLOSEKundennummer
WHERE cast(plInv_SupplierRechnungsDatum As Date) = '" & RechnungsDatum.ToShortDateString & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND [plInv_SupplierRechnungsNr] = '" & RechnungsNr & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 7 'RMC - neue Schnittstelle - OK
sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = " & RechnungsNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 8 'IDS neue Schnittstelle - OK
sqlText = "update tblIDSTransactionsNew set UStVAn_ID = NULL
From tblIDSTransactionsNew
INNER Join tbl_IDS_Länder
On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
Where
tblIDSTransactionsNew.[YearMonthDay] = '" & RechnungsDatum.ToShortDateString & "' And ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) = '" & RechnungsNr & "'
And tblIDSTransactionsNew.KdNrVERAG = " & USTV_ANTRAG.UStVAn_KuNr & "
And tbl_IDS_Länder.[Lieferland_ISO2] = '" & Antrag_LandKz & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 9 'MSE neue Schnitttelle - OK
If RechnungsNr.ToString.Length >= 15 Then
Dim invoiceNo = RechnungsNr.ToString.Substring(0, 7)
Dim customerNo = RechnungsNr.ToString.Substring(10, 5)
sqlText = "UPDATE [tblMSEInvoices] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL FROM [tblMSEInvoices] inner join [tblMSECustomers] on tblMSEInvoices.customer_number = tblMSECustomers.customer_id WHERE cast(invoice_date as date) = '" & RechnungsDatum.ToShortDateString & "' And invoice_id = " & invoiceNo & " And tblMSECustomers.partner_customer_number= " & USTV_ANTRAG.UStVAn_KuNr & " And country = '" & Antrag_LandKz & "' and tblMSEInvoices.customer_number = " & customerNo
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
End If
Case 10 ' UTA neue Schnittstelle - OK
sqlText = "UPDATE [tblUTAImportNew] set UStVAn_ID = NULL, archiv = 0, archiviertDatum = NULL from [tblUTAImportNew] INNER JOIN Adressen ON [tblUTAImportNew].Kundennummer = Adressen.UTAKundenNr WHERE cast(Rechnungsdatum as date) = '" & RechnungsDatum.ToShortDateString & "' And Rechnungsnummer_pro_Lieferland = " & RechnungsNr & " And Adressen.AdressenNr= " & USTV_ANTRAG.UStVAn_KuNr & " AND Lieferland_ISO2 = '" & Antrag_LandKz & "'"
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
End Select
If (SchnittstellenNr > 0 And SchnittstellenNr < 12) Then
If Not updated Then
If Not vbYes = MsgBox("Fehler beim zurücksetzen der USTVA-ID!" & vbNewLine & "Möchten Sie den Eintrag trotzdem löschen?", vbYesNoCancel) Then
Return updated
Else
Return True
End If
Else
Return updated
End If
Else
Return True
End If
End Function
Private Function excelAuswertung(ByRef Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,replace([UStVPo_Leistender],'FR','') as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
From [tblUStVPositionen]
inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
inner Join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID
@@ -1815,7 +1837,7 @@ Public Class frmMDM_USTVAntrag
For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
Dim pdf As String = ""
pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag"), True, False))
pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag") OrElse row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("dkv"), True, False))
If pdf <> "" Then list.Add(pdf)
@@ -2156,17 +2178,25 @@ Public Class frmMDM_USTVAntrag
Private Sub setinfofields()
Dim dtSteuerNr As DataTable
If Not USTV_ANTRAG Is Nothing AndAlso Not IsDBNull(USTV_ANTRAG.UStVAn_LandNr) Then
Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & IIf(USTV_ANTRAG.UStVAn_LandNr Is Nothing, "", USTV_ANTRAG.UStVAn_LandNr), "FMZOLL")
If dtSteuerNr.Rows.Count > 0 Then
txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
End If
Else
dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & KundenNr & " and tblSteuernummern.LandKz ='" & Antrag_LandKz & "'", "FMZOLL")
If dtSteuerNr.Rows.Count > 0 Then
txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
End If
End If
@@ -2392,6 +2422,64 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub dgvUSTVPositionen_KeyUp(sender As Object, e As Windows.Forms.KeyEventArgs) Handles dgvUSTVPositionen.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie die markierten " & dgvUSTVPositionen.SelectedRows.Count & " Einträge wirklich löschen?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
If r.Cells("UStVPo_Schnittstelle").Value IsNot Nothing AndAlso r.Cells("UStVPo_SchnittstellenNr").Value IsNot Nothing AndAlso IsNumeric(r.Cells("UStVPo_SchnittstellenNr").Value) Then
'UstCntlUSTV_AntragPosition1.Antrag_LandKz
If setArchiv(r.Cells("UStVPo_SchnittstellenNr").Value, r.Cells("UStVPo_ReDat").Value, r.Cells("UStVPo_ReNr").Value, r.Cells("UStVPo_Leistungsbezeichnung").Value) Then
Dim sqlstr = " DELETE FROM tblUStVPositionen WHERE UStVAn_ID=" & Me.UStVAn_ID & " AND UStVPo_ID=" & r.Cells("UStVPo_ID").Value
If Not SQL.doSQL(sqlstr, "FMZOLL") Then
Exit Sub
End If
End If
End If
Next
reorderUSTVAPositions(Me.UStVAn_ID)
init()
UstCntlUSTV_AntragPosition1.Enabled = False
End If
End If
e.Handled = True
End If
End Sub
Private Sub txtAbfNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfNr.TextChanged
If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text AndAlso Not btnAbfertigungsNrVergeben.Visible Then
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!") : Exit Sub
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnAbfertigungsNrVergeben.Click
If Not IsNumeric(cbxFiliale._value) OrElse CInt(cbxFiliale._value) <= 0 Then
MsgBox("Bitte Filiale auswählen!") : Exit Sub
End If
txtAbfNr.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year)
cbxFiliale.Enabled = False
btnAbfertigungsNrVergeben.Visible = False
End Sub
Private Sub calcSumme()
Dim countSumme As Double = 0

51
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -12,6 +12,7 @@ Public Class frmUSTVoffeneAntraege
Dim kdNr As Integer = -1
Dim kdName As String
Dim dtkeineMWST As DataTable
Dim dtKundeMWST As DataTable
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
initLieferant("PLOSE", sender)
End Sub
@@ -563,6 +564,20 @@ Public Class frmUSTVoffeneAntraege
End If
If dtKundeMWST.Rows.Count > 0 Then
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtKundeMWST.Rows
landBez &= "'" & row.Item("LandKz") & "'"
counter = counter + 1
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
Next
sqlwhereLand &= " AND Einreichland not in (" & landBez & ")"
End If
Dim year = CDate(dat_Sum_Von.Value).Year
If year >= 2025 Then
@@ -895,12 +910,12 @@ Public Class frmUSTVoffeneAntraege
If MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value > 0 Then
Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value)
frm.ShowDialog()
frm.Show()
Else
Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("KdNr").Value, MyDatagridview1.SelectedRows(0).Cells("Einreichland").Value, dat_Sum_Von.Value, dat_Sum_Bis.Value)
frm.ShowDialog()
frm.Show()
End If
@@ -937,23 +952,26 @@ Public Class frmUSTVoffeneAntraege
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim SQLQuery As String = ""
Select Case LIEFERANT.ToString.ToLower
Case "plose" : SQLQuery = "select count(distinct([plInv_SupplierRechnungsNr])) from [tblPLOSE_Inv_Data] where [plInv_daId] is null and cast([plInv_SupplierRechnungsDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case "rmc" : SQLQuery = "select count(distinct(rmc_reNr)) as Anzahl from [tblRMCImport] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case "mse" : SQLQuery = "select count(distinct(invoice_id)) as Anzahl from tblMSEInvoices where daId is null and cast(invoice_date as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case "uta" : SQLQuery = "select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'"
Case "ids" : SQLQuery = "select count(distinct(Invoicenumber)) as Anzahl from tblIDSInvoicesNew where DocumentName is null and cast(YearMonthDay as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case Else
SQLQuery = ""
Case "plose" : SQLQuery = "select [plInv_SupplierRechnungsNr] as RechnungsNr,plInv_SupplierRechnungsDatum as Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] as Kunde from [tblPLOSE_Inv_Data] INNER JOIN Adressen on [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr where [plInv_daId] is null and cast([plInv_SupplierRechnungsDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum"
Case "rmc" : SQLQuery = "select rmc_reNr as RechnungsNr,rmc_reDatum AS Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from [tblRMCImport] INNER JOIN Adressen on WölflKundenNr= [rmc_kdNr] where rmc_daId is null and cast([rmc_reDatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by rmc_reNr, Adressen.AdressenNr, Adressen.[Name 1],rmc_reDatum "
Case "mse" : SQLQuery = "select invoice_id as RechnungsNr,[invoice_date] as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblMSEInvoices inner join [tblMSECustomers] on [customer_number] = [customer_id] INNER JOIN Adressen on Adressen.MSEKundenNr = [customer_number] where daId is null and cast(invoice_date as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by invoice_id, Adressen.AdressenNr, Adressen.[Name 1], invoice_date"
Case "uta" : SQLQuery = "select tblUTAImportNew.Abrechnungsnummer as RechnungNr,[Rechnungsdatum] AS Rechnungsdatum ,Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblUTAImportNew INNER JOIN Adressen on Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer where daId is null and cast([Rechnungsdatum] as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by tblUTAImportNew.Abrechnungsnummer, Rechnungsdatum,Adressen.AdressenNr, Adressen.[Name 1] "
Case "ids" : SQLQuery = "select Invoicenumber as RechnungsNr,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde from tblIDSInvoicesNew Inner join [tbl_IDS_Kunden] on [tbl_IDS_Kunden].CustomerCode =tblIDSInvoicesNew.CustomerCode and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 Inner join Adressen on Adressen.AdressenNr = [tbl_IDS_Kunden].KdNrVERAG where DocumentName is null and cast(YearMonthDay as Date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' group by Invoicenumber, Adressen.AdressenNr, Adressen.[Name 1], YearMonthDay"
Case Else : SQLQuery = ""
End Select
Dim fehlendePDFs As Integer = 0
If SQLQuery <> "" Then
fehlendePDFs = CInt((New SQL).getValueTxtBySql(SQLQuery, "FMZOLL"))
MsgBox("Anzahl fehlende PDFs: " & fehlendePDFs)
Dim dtfehlendePDF As DataTable = (New SQL).loadDgvBySql(SQLQuery, "FMZOLL")
MsgBox("Anzahl fehlende PDFs: " & dtfehlendePDF.Rows.Count & IIf(CDate(dat_Sum_Von.Value).Year <= 2024 OrElse CDate(dat_Sum_Bis.Value).Year <= 2024, vbNewLine & "PDF-Rechnungen vor 2025 wurden tlw. nicht importiert!", ""))
If dtfehlendePDF.Rows.Count > 0 Then
If vbYes = MsgBox("Details der fehlenden PDF-Rechnungen anzeigen?", vbYesNo) Then
cProgramFunctions.genExcelFromDT_NEW(dtfehlendePDF,,, "Fehlende PDF-Rechnungen: " & dat_Sum_Von.Value.ToShortDateString & " - " & dat_Sum_Bis.Value.ToShortDateString)
End If
End if
Else
MsgBox("Funktion nur pro Lieferant möglich!")
End If
@@ -963,5 +981,12 @@ Public Class frmUSTVoffeneAntraege
Private Sub frmUSTVoffeneAntraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
If kdNr > 0 Then
dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & kdNr, "FMZOLL")
End If
End Sub
End Class

90
SDL/USTV/usrCntlUSTV.vb
View File

@@ -22,6 +22,7 @@ Public Class usrCntlUSTV
pnlFilter.AutoScroll = False
btnKundendatenaktualisieren.Enabled = False
' MsgBox(kdNr)
If kdNr > 0 Then
Me.kdNr = kdNr
KdSearchBox1.KdNr = kdNr
@@ -307,7 +308,7 @@ Public Class usrCntlUSTV
If dgvUSTV.SelectedRows.Count > 0 Then
Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
f.ShowDialog(Me)
f.Show(Me)
dgvUSTV.RELOAD()
End If
End Sub
@@ -618,8 +619,20 @@ Public Class usrCntlUSTV
ElseIf item.Name = "offeneAntraege" Then
If dgvUSTV.SelectedRows(0) IsNot Nothing AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value) AndAlso IsDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value) Then
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value)
If dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value IsNot Nothing AndAlso dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value IsNot Nothing Then
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value), dgvUSTV.SelectedRows(0).Cells("UStVAn_KuNr").Value, IIf(IsDBNull(dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value), "", dgvUSTV.SelectedRows(0).Cells("UStVAn_Name").Value))
frm.Show()
Else
Dim frm As New frmUSTVoffeneAntraege(CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatVon").Value), CDate(dgvUSTV.SelectedRows(0).Cells("UStVAn_ReDatBis").Value))
frm.cbxAlleoffenen.Checked = True
frm.Show()
End If
Else
Dim frm As New frmUSTVoffeneAntraege()
frm.Show()
@@ -728,6 +741,19 @@ Public Class usrCntlUSTV
Me.Cursor = Cursors.WaitCursor
Try
VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.setSchnittstellen(
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE"),
False,
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu"),
VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
)
If VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(KdSearchBox1.KdNr) Then
ok = VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(KdSearchBox1.KdNr)
End If
@@ -810,6 +836,8 @@ Public Class usrCntlUSTV
Dim sqlKundenMSENEU = ""
Dim sqlKundenIDSALT = ""
Dim sqlKundenIDSNEU = ""
Dim sqlKundenPLOSENEU = ""
If KdSearchBox1.KdNr > 0 Then
sqlKunden = " AND Adressen.AdressenNr = " & KdSearchBox1.KdNr
@@ -817,11 +845,15 @@ Public Class usrCntlUSTV
sqlKundenMSENEU = " AND partner_customer_number = " & KdSearchBox1.KdNr
sqlKundenIDSALT = " AND tblDieselArchiv.KdNrVERAG = " & KdSearchBox1.KdNr
sqlKundenIDSNEU = " AND [tblIDSTransactionsNew].KdNrVERAG = " & KdSearchBox1.KdNr
sqlKundenPLOSENEU = " AND tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = " & KdSearchBox1.KdNr
End If
Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS SteuerbetragEUR FROM tblTrdinInvoice
INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag, 'EUR' as Waehrung
FROM tblTrdinInvoice
INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
WHERE tblSteuernummern.LandNr = 38 AND tblTrdinInvoice.Rechnungsdatum >=
CASE
WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE)
@@ -832,7 +864,7 @@ Public Class usrCntlUSTV
GROUP BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr,[Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum)
/*ORDER BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum)*/"
Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS SteuerbetragEUR FROM tblDieselArchiv
Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag, 'EUR' as Waehrung FROM tblDieselArchiv
INNER JOIN tblSteuernummern ON tblDieselArchiv.KdNrVERAG = tblSteuernummern.AdressenNr
INNER JOIN tbl_IDS_Länder ON tbl_IDS_Länder.LandNr = tblSteuernummern.LandNr AND tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -848,7 +880,7 @@ Public Class usrCntlUSTV
/*ORDER BY tblDieselArchiv.KdNrVERAG, tblSteuernummern.LandNr, Year(tblDieselArchiv.[Year Month Day]), Month(tblDieselArchiv.[Year Month Day])*/
"
Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat, CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS SteuerbetragEUR FROM tblSteuernummern
Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat, CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
INNER JOIN tblMSETransactionsArchiv ON Adressen.MSEKundenNr = tblMSETransactionsArchiv.[Customer ID]
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblMSETransactionsArchiv.[Transaction Country] = [Länderverzeichnis für die Außenhandelsstatistik].LandKz AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -870,7 +902,7 @@ Public Class usrCntlUSTV
AND SUM(tblMSETransactionsArchiv.[Original VAT Amount]) <> 0
/*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblMSETransactionsArchiv.[Invoice Date], tblMSETransactionsArchiv.[Invoice ID]*/"
Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
INNER JOIN tblUTAArchiv ON Adressen.UTAKundenNr = tblUTAArchiv.Kundennummer
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAArchiv.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -891,7 +923,7 @@ Public Class usrCntlUSTV
AND SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) <> 0
/*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAArchiv.Rechnungsdatum*/"
Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS SteuerbetragEUR
Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag, 'EUR' as Waehrung
FROM tblIDSTransactionsNew
INNER JOIN dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr
INNER JOIN dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -907,7 +939,7 @@ Public Class usrCntlUSTV
[tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year([tblIDSTransactionsNew].[YearMonthDay]) , Month([tblIDSTransactionsNew].[YearMonthDay])
/* ORDER BY [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, Year([tblIDSTransactionsNew].[YearMonthDay]), Month([tblIDSTransactionsNew].[YearMonthDay])*/"
Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as SteuerbetragEUR
Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung
FROM [VERAG].[dbo].[tblMSESettlements] as bills
left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
@@ -927,7 +959,7 @@ Public Class usrCntlUSTV
Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Wahrung FROM tblSteuernummern
INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAImportNew.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -949,9 +981,45 @@ Public Class usrCntlUSTV
/*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAImportNew.Rechnungsdatum*/"
Dim qryUStVVorschau_PLOSE_NEUE_LOGIK As String = "SELECT 'PLOSE_' as LF, tblPLOSE_Inv_Data.plInv_PLOSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Jahr, Month(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Monat, SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) AS Steuerbetrag, isnull(plInv_Currency,'') as Wahrung FROM tblPLOSE_Inv_Data
INNER JOIN Adressen ON tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = Adressen.PLOSEKundenNr
INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr and [tblPLOSE_Inv_Data].plInv_SupplierCountry = tblSteuernummern.LandKZ
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
WHERE tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum >=
CASE
WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE)
THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE)
ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE)
END
AND tblPLOSE_Inv_Data.plInv_MWSTBetrag <> 0 AND tblPLOSE_Inv_Data.plInv_UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 " & sqlKunden & "
GROUP BY
tblPLOSE_Inv_Data.plInv_PLOSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), Month(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), plInv_Currency
"
'plose_MWSTBetragWaehrungAbbuchung ist IMMER in EUR!!!!
Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = " SELECT 'PLOSE' as LF, tblPLOSE_Details.plose_POLSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Details.plose_RechnungsDatum) AS Jahr, Month(tblPLOSE_Details.plose_RechnungsDatum) AS Monat, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag, 'EUR' as Wahrung FROM tblPLOSE_Details
INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
WHERE tblPLOSE_Details.plose_RechnungsDatum >=
CASE
WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE)
THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE)
ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE)
END
AND tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung <> 0 AND tblPLOSE_Details.UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 and plose_LieferantCode IN (1,7,9) " & sqlKunden & "
GROUP BY
tblPLOSE_Details.plose_POLSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Details.plose_RechnungsDatum), Month(tblPLOSE_Details.plose_RechnungsDatum)
"
Dim union As String = " UNION ALL "
Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT
Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")

15
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated
View File

@@ -74,6 +74,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnAPIUbload = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -876,6 +877,7 @@ Partial Class ustCntlUSTV_AntragPosition
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnAPIUbload)
Me.Panel1.Controls.Add(Me.btnBildAuf)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
@@ -884,6 +886,18 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Panel1.Size = New System.Drawing.Size(99, 239)
Me.Panel1.TabIndex = 2
'
'btnAPIUbload
'
Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
Me.btnAPIUbload.Name = "btnAPIUbload"
Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
Me.btnAPIUbload.TabIndex = 25
Me.btnAPIUbload.Text = "API-Upload"
Me.btnAPIUbload.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.tbcntr)
@@ -1050,4 +1064,5 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents btnLeistenderSave As Button
Friend WithEvents lblWarning As Label
Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents btnAPIUbload As Button
End Class

96
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -1,4 +1,5 @@
Imports VERAG_PROG_ALLGEMEIN
Imports com.sun.net.httpserver.Authenticator
Imports VERAG_PROG_ALLGEMEIN
Public Class ustCntlUSTV_AntragPosition
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -12,6 +13,7 @@ Public Class ustCntlUSTV_AntragPosition
Public Event CHANGED(UStVPo_ID)
Dim gridAktiv = False
Dim txtChanged As Boolean = False
Dim API As cATEZ_NCTS_IN
Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click
RaiseEvent EV_PREV()
End Sub
@@ -56,7 +58,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN)
initSchnittstellenNr()
@@ -79,6 +81,7 @@ Public Class ustCntlUSTV_AntragPosition
sbLeistender.Text = UStV_Leitender.UStV_Leistender
loadChangedDSToPanel(UStV_Leitender, True)
API = atez_api
Dim da_id = -1
@@ -104,12 +107,15 @@ Public Class ustCntlUSTV_AntragPosition
If da_id > -1 Then
scanSonstiges.INIT_daId(da_id)
scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0
btnAPIUbload.Enabled = UStV_POS.UStVPo_daId_loeschbar
Else
scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_ID)
'scanSonstiges.INIT_daId(da_id)
scanSonstiges.Enabled = True
btnAPIUbload.Enabled = False
End If
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
@@ -240,7 +246,7 @@ Public Class ustCntlUSTV_AntragPosition
Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
Dim adressLoadedByLeistender As Boolean = False
UStV_Leist = UStV_Leitender
'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
@@ -252,7 +258,6 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = ""
txtLand.Text = ""
txtUIDNr.Text = ""
Else
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
@@ -262,21 +267,28 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
End If
If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
btnLeistenderSave.Visible = True
End If
If Not initial Then
'Listener für Änderungen im Detail-Panel
If Not adressLoadedByLeistender Then
For Each c As Control In pnlAdresse.Controls
If TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
If TypeOf (c) Is MyComboBox Then
AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
End If
Next
Else
btnLeistenderSave.Visible = False
End If
Else
btnLeistenderSave.Visible = False
End If
@@ -301,7 +313,7 @@ Public Class ustCntlUSTV_AntragPosition
If Not UStV_Leist.hasEntry Then
If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
'adresseChanged = True
UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
@@ -309,18 +321,18 @@ Public Class ustCntlUSTV_AntragPosition
UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
If UStV_Leist.SAVE() Then
Dim saveid = UStV_Leist.SAVEID
If saveid > 0 Then
btnLeistenderSave.Visible = False
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
UStV_POS.UStVPo_LeistenderId = saveid
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
values_changed()
End If
End If
Else
Dim adresseChanged As Boolean = False
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
@@ -405,14 +417,14 @@ Public Class ustCntlUSTV_AntragPosition
loadChangedDSToPanel(UStV_Leist)
Else
loadChangedDSToPanel(Nothing)
loadChangedDSToPanel(Nothing, True)
End If
End Sub
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -499,20 +511,18 @@ Public Class ustCntlUSTV_AntragPosition
ElseIf sender Is sbLeistender Then
'ElseIf sender Is sbLeistender Then
If UStV_Leist.hasEntry Then
' If UStV_Leist.hasEntry Then
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
' UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
' If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
' txtChanged = True
txtChanged = True
'UStV_POS.SAVE()
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
End If
' End If
@@ -524,6 +534,21 @@ Public Class ustCntlUSTV_AntragPosition
End If
ElseIf sender Is sbLeistender Then
If sbLeistender.Text <> "" Then
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
If IsNumeric(sbLeistender.Text) Then
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
End If
loadChangedDSToPanel(UStV_Leist)
Else
loadChangedDSToPanel(Nothing, True)
End If
End If
'MsgBox()
End If
@@ -559,5 +584,36 @@ Public Class ustCntlUSTV_AntragPosition
If cbxAntragsfilter.Checked Then filter &= " and left(UstV_Leistender_UstNr,2)='" & Antrag_LandKz & "'"
sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
End If
End Sub
Private Sub btnAPIUbload_Click(sender As Object, e As EventArgs) Handles btnAPIUbload.Click
If API IsNot Nothing Then
If vbYes = MsgBox("Möchten Sie die Rechnungsdaten per ATEZ-API auslesen lassen?", vbYesNoCancel) Then
Dim failreDesc As String
Dim authResp = API.authenticate("VAT", "client1", "password")
Dim resp
If authResp <> "200" Then
MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
Exit Sub
Else
If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
'document_type = vat_invoice or receipt
If API.setJsonVAT("vat_invoice", UStV_POS.UStVPo_daId) Then
resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST")
End If
Else
MsgBox("Service is not running!")
End If
End If
End If
End If
End Sub
End Class

81
SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb generated
View File

@@ -56,6 +56,10 @@ Partial Class frmBU_Mahnlauf
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.btnMail_Intern = New System.Windows.Forms.Button()
Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel1.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -65,6 +69,8 @@ Partial Class frmBU_Mahnlauf
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbxKontotyp)
Me.Panel1.Controls.Add(Me.txtZahlEingaenge)
Me.Panel1.Controls.Add(Me.cbxZahlungseingaenge)
Me.Panel1.Controls.Add(Me.cbxNurFaellig)
Me.Panel1.Controls.Add(Me.MyComboBox1)
@@ -89,9 +95,9 @@ Partial Class frmBU_Mahnlauf
Me.cbxZahlungseingaenge.AutoSize = True
Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(568, 87)
Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(114, 17)
Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17)
Me.cbxZahlungseingaenge.TabIndex = 39
Me.cbxZahlungseingaenge.Text = "Zahlungseingänge"
Me.cbxZahlungseingaenge.Text = "Zahlungseingänge vom:"
Me.cbxZahlungseingaenge.UseVisualStyleBackColor = True
'
'cbxNurFaellig
@@ -280,6 +286,8 @@ Partial Class frmBU_Mahnlauf
'
'Panel3
'
Me.Panel3.Controls.Add(Me.btnMail_Intern)
Me.Panel3.Controls.Add(Me.Button7)
Me.Panel3.Controls.Add(Me.btnKunde)
Me.Panel3.Controls.Add(Me.cbxMahnstufeErh)
Me.Panel3.Controls.Add(Me.Label8)
@@ -307,7 +315,7 @@ Partial Class frmBU_Mahnlauf
Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunde.Location = New System.Drawing.Point(38, 87)
Me.btnKunde.Location = New System.Drawing.Point(38, 78)
Me.btnKunde.Name = "btnKunde"
Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.btnKunde.Size = New System.Drawing.Size(123, 32)
@@ -501,6 +509,69 @@ Partial Class frmBU_Mahnlauf
Me.MyTextBox2.TabIndex = 39
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtZahlEingaenge
'
Me.txtZahlEingaenge._DateTimeOnly = False
Me.txtZahlEingaenge._numbersOnly = False
Me.txtZahlEingaenge._numbersOnlyKommastellen = ""
Me.txtZahlEingaenge._numbersOnlyTrennzeichen = True
Me.txtZahlEingaenge._Prozent = False
Me.txtZahlEingaenge._ShortDateNew = True
Me.txtZahlEingaenge._ShortDateOnly = False
Me.txtZahlEingaenge._TimeOnly = False
Me.txtZahlEingaenge._TimeOnly_Seconds = False
Me.txtZahlEingaenge._value = ""
Me.txtZahlEingaenge._Waehrung = False
Me.txtZahlEingaenge._WaehrungZeichen = False
Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
Me.txtZahlEingaenge.Location = New System.Drawing.Point(714, 85)
Me.txtZahlEingaenge.MaxLength = 10
Me.txtZahlEingaenge.MaxLineLength = -1
Me.txtZahlEingaenge.MaxLines_Warning = ""
Me.txtZahlEingaenge.MaxLines_Warning_Label = Nothing
Me.txtZahlEingaenge.Name = "txtZahlEingaenge"
Me.txtZahlEingaenge.Size = New System.Drawing.Size(88, 20)
Me.txtZahlEingaenge.TabIndex = 47
Me.txtZahlEingaenge.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtZahlEingaenge.Visible = False
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(38, 113)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(123, 23)
Me.Button7.TabIndex = 47
Me.Button7.Text = "OP-Liste aktualisieren"
Me.Button7.UseVisualStyleBackColor = True
'
'btnMail_Intern
'
Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMail_Intern.Location = New System.Drawing.Point(1213, 83)
Me.btnMail_Intern.Name = "btnMail_Intern"
Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
Me.btnMail_Intern.TabIndex = 48
Me.btnMail_Intern.UseVisualStyleBackColor = True
'
'cbxKontotyp
'
Me.cbxKontotyp._allowedValuesFreiText = Nothing
Me.cbxKontotyp._allowFreiText = False
Me.cbxKontotyp._value = ""
Me.cbxKontotyp.FormattingEnabled = True
Me.cbxKontotyp.Location = New System.Drawing.Point(568, 103)
Me.cbxKontotyp.Name = "cbxKontotyp"
Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
Me.cbxKontotyp.TabIndex = 48
Me.cbxKontotyp.Visible = False
'
'frmBU_Mahnlauf
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -558,4 +629,8 @@ Partial Class frmBU_Mahnlauf
Friend WithEvents cbxMahnstufeErh As CheckBox
Friend WithEvents btnKunde As Button
Friend WithEvents cbxZahlungseingaenge As CheckBox
Friend WithEvents txtZahlEingaenge As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button7 As Button
Friend WithEvents btnMail_Intern As Button
Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

124
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1,8 +1,6 @@
Imports System.Globalization
Imports System.Windows
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class frmBU_Mahnlauf
@@ -70,14 +68,20 @@ Public Class frmBU_Mahnlauf
ORDER BY KTO.c_name"
Dim SQLWhere = " and (c_kennung = 'KE' or BU.i_konto in (5827, 5829) or LEFT(BU.i_konto,1) = 0 or c_kennung = 'DE')"
Select Case cbxKontotyp._value
Case "DE", "KE", "KO" : SQLWhere &= " and c_kennung = '" & cbxKontotyp._value & "'"
End Select
Dim sqlStringVerag360Zahlungseingaenge = " SELECT cast(d_beleg as Date) as d_beleg ,c_urbelegid, c_buchtext, case when c_sollhabenkz = 'H' then eur_betrag else eur_betrag * -1 end as eur_betrag , BU.i_konto,KTO.c_landid
FROM [FIBU2].[dbo].[fibu_belegzeile] as BU
RIGHT join fibu_konto KTO on KTO.i_konto=BU.i_konto AND BU.i_firm_refid=KTO.i_firm_refid
where cast(d_beleg as date) = '03.04.2025' and BU.i_firm_refid=" & Firma_ID & " and (c_kennung = 'KE' or BU.i_konto in (5827, 5829) or LEFT(BU.i_konto,1) = 0 or c_kennung = 'DE')
where cast(d_beleg as date) = '" & txtZahlEingaenge._value & "' and BU.i_firm_refid=" & Firma_ID & SQLWhere & "
and (BU.i_konto in (2800, 2801, 2802, 2803, 2811, 2812, 2813, 2814, 2817, 2818, 2822 ,2826, 2827, 2828, 2831, 2832, 2833, 2837, 2845) or i_gegenkonto in (2800, 2801, 2802, 2803, 2811, 2812, 2813, 2814, 2817, 2818, 2822 ,2826, 2827, 2828, 2831, 2832, 2833, 2837, 2845))
order by i_beleg_refid, i_zeilen_refid"
order by i_konto, i_beleg_refid, i_zeilen_refid"
'MsgBox(sqlStr)
@@ -188,6 +192,13 @@ Public Class frmBU_Mahnlauf
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12. Mahnung", "12"))
MyComboBox2.changeItem("")
cbxKontotyp.Items.Clear()
cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Debitoren", "DE"))
cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kreditoren", "KE"))
'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO"))
cbxKontotyp.changeItem("Alle")
MyTextBox2._value = Now.ToShortDateString
End Sub
@@ -1234,7 +1245,7 @@ Public Class frmBU_Mahnlauf
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , "WiedergestellungsDatum Fehler")
Finally
fProgBar.Close
fProgBar.Close()
End Try
Me.Cursor = Cursors.Default
End Sub
@@ -1247,10 +1258,14 @@ Public Class frmBU_Mahnlauf
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
btnSuche.PerformClick()
' cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
'cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
Dim dt = MyDatagridview1.DataSource
If cbxZahlungseingaenge.Checked Then
cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, "Zahlungseingänge vom " & txtZahlEingaenge._value,, True)
Else
cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
End If
Me.Cursor = Cursors.Default
End Sub
@@ -1287,15 +1302,108 @@ Public Class frmBU_Mahnlauf
End Sub
Private Sub cbxZahlungseingaenge_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZahlungseingaenge.CheckedChanged
'initDGV(cbxZahlungseingaenge.Checked)
If cbxZahlungseingaenge.Checked Then
txtZahlEingaenge.Visible = True
cbxKontotyp.Visible = True
btnMail_Intern.Visible = True
Select Case Now.DayOfWeek
Case 1 : txtZahlEingaenge._value = Today().AddDays(-3) 'Am Montag Daten von Freitag
Case Else : txtZahlEingaenge._value = Today().AddDays(-1) ' Sonst daten von gestern.
End Select
Else
txtZahlEingaenge.Visible = False
cbxKontotyp.Visible = False
btnMail_Intern.Visible = False
End If
End Sub
Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged
If cboFirma._value <> "" AndAlso cboFirma._value = 19 Then
cbxZahlungseingaenge.Visible = True
Else
cbxZahlungseingaenge.Visible = False
cbxZahlungseingaenge.Checked = False
End If
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
If cboFirma._value <> "" Then
If vbYes = MsgBox("Sollen die OPs aus Syska für die Firma " & cboFirma.Text.Replace(cboFirma._value, "") & " aktualisiert werden?" & vbNewLine & "Dieser Vorgang dauert unter Umständen etwas!", vbYesNoCancel) Then
If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then
MsgBox("Fehler beim aktualisieren der OPs aus Syska!")
Else
initDGV(cbxZahlungseingaenge.Checked)
End If
End If
End If
End Sub
Private Sub btnMail_Intern_Click(sender As Object, e As EventArgs) Handles btnMail_Intern.Click
Try
Me.Cursor = Cursors.WaitCursor
btnSuche.PerformClick()
Dim dt = MyDatagridview1.DataSource
Dim desc = "Zahlungseingänge vom " & txtZahlEingaenge._value
Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, desc,, True,,,, False)
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = desc & " (" & cbxKontotyp.Text & ")"
If cboFirma._value = 19 Then
Dim accountToSent = "fibu360@verag.ag "
If accountToSent <> "" Then
If outl.Session.Accounts.Count > 0 Then
For Each oAccount In outl.Session.Accounts
If oAccount.SmtpAddress = accountToSent Then
Mail.SendUsingAccount = oAccount
Exit For
End If
Next
End If
End If
End If
'noch keine unterscheidung der Abteilungen bei MDM, daher hardcodiert.
Dim MautVertrMail = "z.batinic@verag.ag;alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
Dim MautFaktMail = "s.kriegner@verag.ag;"
Select Case cbxKontotyp._value
Case "A" : Mail.To = MautVertrMail & MautFaktMail
Case "DE" : Mail.To = MautVertrMail
Case "KE" : Mail.To = MautFaktMail
Case "KO" : Mail.To = ""
End Select
Mail.Attachments.Add(attachment)
Mail.Display()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class

4
SDL/cProgramFunctions.vb
View File

@@ -1124,7 +1124,7 @@ Public Class cProgramFunctions
Return ""
End Function
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False) As String
Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True) As String
Try
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -1200,7 +1200,7 @@ Public Class cProgramFunctions
wb.SaveAs(filename)
Process.Start(filename)
If openFile Then Process.Start(filename)
Return filename
Catch ex As Exception

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

@@ -40,6 +40,10 @@ Partial Class frmKundenblatt
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
Me.pnlInfo = New System.Windows.Forms.Panel()
Me.txtInfotext = New System.Windows.Forms.Label()
@@ -48,14 +52,19 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.dgvUmsaetze = New System.Windows.Forms.DataGridView()
Me.btnReloadOP = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.btnOP = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
Me.btnOP = New System.Windows.Forms.Button()
Me.Label17 = New System.Windows.Forms.Label()
Me.dgvOfferte = New System.Windows.Forms.DataGridView()
Me.picLogo = New System.Windows.Forms.PictureBox()
@@ -206,6 +215,10 @@ Partial Class frmKundenblatt
Me.Panel4.SuspendLayout()
Me.tbcntrMain.SuspendLayout()
Me.tbAllgemein.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -315,20 +328,16 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1164)
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1181)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
'
Me.tbAllgemein.BackColor = System.Drawing.Color.White
Me.tbAllgemein.Controls.Add(Me.TabControl1)
Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz)
Me.tbAllgemein.Controls.Add(Me.btnReloadOP)
Me.tbAllgemein.Controls.Add(Me.Label11)
Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL)
Me.tbAllgemein.Controls.Add(Me.Label10)
Me.tbAllgemein.Controls.Add(Me.Label9)
Me.tbAllgemein.Controls.Add(Me.dgvOffenePosten)
Me.tbAllgemein.Controls.Add(Me.btnOP)
Me.tbAllgemein.Controls.Add(Me.Label17)
Me.tbAllgemein.Controls.Add(Me.dgvOfferte)
Me.tbAllgemein.Controls.Add(Me.picLogo)
@@ -356,10 +365,207 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1135)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1152)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(8, 582)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(718, 550)
Me.TabControl1.TabIndex = 186
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.dgvUmsaetze)
Me.TabPage1.Controls.Add(Me.btnReloadOP)
Me.TabPage1.Controls.Add(Me.Label10)
Me.TabPage1.Controls.Add(Me.btnOP)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(710, 524)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Offene Posten"
Me.TabPage1.UseVisualStyleBackColor = True
'
'dgvUmsaetze
'
Me.dgvUmsaetze.AllowUserToAddRows = False
Me.dgvUmsaetze.AllowUserToDeleteRows = False
Me.dgvUmsaetze.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsaetze.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUmsaetze.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvUmsaetze.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUmsaetze.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvUmsaetze.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUmsaetze.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvUmsaetze.Location = New System.Drawing.Point(0, 34)
Me.dgvUmsaetze.Name = "dgvUmsaetze"
Me.dgvUmsaetze.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvUmsaetze.RowHeadersVisible = False
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 484)
Me.dgvUmsaetze.TabIndex = 182
'
'btnReloadOP
'
Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnReloadOP.FlatAppearance.BorderSize = 0
Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnReloadOP.Location = New System.Drawing.Point(482, 5)
Me.btnReloadOP.Name = "btnReloadOP"
Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
Me.btnReloadOP.TabIndex = 180
Me.btnReloadOP.UseVisualStyleBackColor = True
Me.btnReloadOP.Visible = False
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(523, 11)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(149, 13)
Me.Label10.TabIndex = 177
Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
'
'btnOP
'
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnOP.FlatAppearance.BorderSize = 0
Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOP.Location = New System.Drawing.Point(681, 5)
Me.btnOP.Name = "btnOP"
Me.btnOP.Size = New System.Drawing.Size(24, 24)
Me.btnOP.TabIndex = 174
Me.btnOP.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.dgvOffenePosten)
Me.TabPage2.Controls.Add(Me.txtUmsatzJahr)
Me.TabPage2.Controls.Add(Me.Label13)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(710, 524)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Umsatzbericht"
Me.TabPage2.UseVisualStyleBackColor = True
'
'dgvOffenePosten
'
Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle7
Me.dgvOffenePosten.Location = New System.Drawing.Point(0, 25)
Me.dgvOffenePosten.Name = "dgvOffenePosten"
Me.dgvOffenePosten.ReadOnly = True
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(704, 496)
Me.dgvOffenePosten.TabIndex = 175
'
'txtUmsatzJahr
'
Me.txtUmsatzJahr._DateTimeOnly = False
Me.txtUmsatzJahr._numbersOnly = False
Me.txtUmsatzJahr._numbersOnlyKommastellen = ""
Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True
Me.txtUmsatzJahr._Prozent = False
Me.txtUmsatzJahr._ShortDateNew = False
Me.txtUmsatzJahr._ShortDateOnly = False
Me.txtUmsatzJahr._TimeOnly = False
Me.txtUmsatzJahr._TimeOnly_Seconds = False
Me.txtUmsatzJahr._value = Nothing
Me.txtUmsatzJahr._Waehrung = False
Me.txtUmsatzJahr._WaehrungZeichen = True
Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White
Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
Me.txtUmsatzJahr.Location = New System.Drawing.Point(608, 6)
Me.txtUmsatzJahr.MaxLineLength = -1
Me.txtUmsatzJahr.MaxLines_Warning = ""
Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
Me.txtUmsatzJahr.ReadOnly = True
Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
Me.txtUmsatzJahr.TabIndex = 185
Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(473, 6)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(68, 13)
Me.Label13.TabIndex = 184
Me.Label13.Text = "Umsatz Jahr:"
'
'lblAdressenzusatz
'
Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White
@@ -372,25 +578,11 @@ Partial Class frmKundenblatt
Me.lblAdressenzusatz.TabIndex = 181
Me.lblAdressenzusatz.Text = "Zusatz"
'
'btnReloadOP
'
Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnReloadOP.FlatAppearance.BorderSize = 0
Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnReloadOP.Location = New System.Drawing.Point(240, 563)
Me.btnReloadOP.Name = "btnReloadOP"
Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
Me.btnReloadOP.TabIndex = 180
Me.btnReloadOP.UseVisualStyleBackColor = True
Me.btnReloadOP.Visible = False
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(271, 570)
Me.Label11.Location = New System.Drawing.Point(17, 546)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(82, 13)
Me.Label11.TabIndex = 178
@@ -403,85 +595,11 @@ Partial Class frmKundenblatt
Me.cboFirmaFMZOLL._value = ""
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaFMZOLL.FormattingEnabled = True
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567)
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543)
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
Me.cboFirmaFMZOLL.TabIndex = 179
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(544, 570)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(149, 13)
Me.Label10.TabIndex = 177
Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(9, 575)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(78, 13)
Me.Label9.TabIndex = 176
Me.Label9.Text = "Offene Posten:"
'
'dgvOffenePosten
'
Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvOffenePosten.Location = New System.Drawing.Point(12, 591)
Me.dgvOffenePosten.Name = "dgvOffenePosten"
Me.dgvOffenePosten.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 536)
Me.dgvOffenePosten.TabIndex = 175
'
'btnOP
'
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnOP.FlatAppearance.BorderSize = 0
Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOP.Location = New System.Drawing.Point(702, 564)
Me.btnOP.Name = "btnOP"
Me.btnOP.Size = New System.Drawing.Size(24, 24)
Me.btnOP.TabIndex = 174
Me.btnOP.UseVisualStyleBackColor = True
'
'Label17
'
Me.Label17.AutoSize = True
@@ -494,34 +612,34 @@ Partial Class frmKundenblatt
'dgvOfferte
'
Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle10
Me.dgvOfferte.Location = New System.Drawing.Point(433, 37)
Me.dgvOfferte.Name = "dgvOfferte"
Me.dgvOfferte.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvOfferte.Size = New System.Drawing.Size(293, 320)
Me.dgvOfferte.TabIndex = 12
'
@@ -785,28 +903,28 @@ Partial Class frmKundenblatt
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1091)
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1109)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -931,38 +1049,38 @@ Partial Class frmKundenblatt
'
Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle12
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle16
Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
Me.dgvSDLLeistungenFull.ReadOnly = True
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 907)
Me.dgvSDLLeistungenFull.TabIndex = 5
@@ -1274,6 +1392,7 @@ Partial Class frmKundenblatt
Me.scanSDLSonst._DATENSERVER_UOrdner3 = ""
Me.scanSDLSonst._OPEN_ORIGINAL = False
Me.scanSDLSonst._TYPE = "PDF"
Me.scanSDLSonst.AllowDrop = True
Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSDLSonst.BackColor = System.Drawing.Color.White
Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1517,38 +1636,38 @@ Partial Class frmKundenblatt
'
Me.dgvLKW.AllowUserToAddRows = False
Me.dgvLKW.AllowUserToDeleteRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle16
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle20
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
Me.dgvLKW.Name = "dgvLKW"
Me.dgvLKW.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
@@ -1778,6 +1897,7 @@ Partial Class frmKundenblatt
Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = ""
Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False
Me.scanUebernahmebestätigungen._TYPE = "PDF"
Me.scanUebernahmebestätigungen.AllowDrop = True
Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White
Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1817,6 +1937,7 @@ Partial Class frmKundenblatt
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AllowDrop = True
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2023,6 +2144,7 @@ Partial Class frmKundenblatt
Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = ""
Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False
Me.scanUSTVsonstigeDokumente._TYPE = "PDF"
Me.scanUSTVsonstigeDokumente.AllowDrop = True
Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White
Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2062,6 +2184,7 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AllowDrop = True
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2081,6 +2204,7 @@ Partial Class frmKundenblatt
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AllowDrop = True
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2253,7 +2377,7 @@ Partial Class frmKundenblatt
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(181, 26)
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
'ToolStripMenuItem8
@@ -2392,7 +2516,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1595, 1293)
Me.ClientSize = New System.Drawing.Size(1595, 1310)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)
@@ -2412,6 +2536,12 @@ Partial Class frmKundenblatt
Me.tbcntrMain.ResumeLayout(False)
Me.tbAllgemein.ResumeLayout(False)
Me.tbAllgemein.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2621,7 +2751,6 @@ Partial Class frmKundenblatt
Friend WithEvents scanUSTVsonstigeDokumente As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents btnOP As Button
Friend WithEvents Label10 As Label
Friend WithEvents Label9 As Label
Friend WithEvents dgvOffenePosten As DataGridView
Friend WithEvents btnReloadOP As Button
Friend WithEvents Label11 As Label
@@ -2629,4 +2758,10 @@ Partial Class frmKundenblatt
Friend WithEvents lblAdressenzusatz As TextBox
Friend WithEvents Button7 As Button
Friend WithEvents tbFremdrechnungen As TabPage
Friend WithEvents dgvUmsaetze As DataGridView
Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents Label13 As Label
End Class

61
SDL/kunden/frmKundenblatt.vb
View File

@@ -2010,6 +2010,7 @@ Public Class frmKundenblatt
Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
If loaded Then
initDGVOffenePosten()
initDGVUmsatz()
End If
End Sub
@@ -2018,6 +2019,66 @@ Public Class frmKundenblatt
f.ShowDialog()
End Sub
Sub initDGVUmsatz()
With dgvUmsaetze
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 45
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 75
.Columns(2).DefaultCellStyle.Format = "N2"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(5).Width = 55
.Columns(5).DefaultCellStyle.Format = "N2"
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(6).Width = 75
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 60
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 55
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).HeaderText = "Rechng."
.Columns(9).Width = 53
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).HeaderText = "Gutschr."
.Columns(10).MinimumWidth = 65
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
If .RowCount > 0 Then
' txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
End If
Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
Else
txtUmsatzJahr.Text = ""
End If
End With
End Sub
End Class

71
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.Designer.vb generated
View File

@@ -53,6 +53,8 @@ Partial Class usrCntlSDLLeistungenUTA
Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtCVCNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -64,10 +66,12 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtClientNr._DateTimeOnly = False
Me.txtClientNr._numbersOnly = True
Me.txtClientNr._numbersOnlyKommastellen = ""
Me.txtClientNr._numbersOnlyTrennzeichen = True
Me.txtClientNr._Prozent = False
Me.txtClientNr._ShortDateNew = False
Me.txtClientNr._ShortDateOnly = False
Me.txtClientNr._TimeOnly = False
Me.txtClientNr._TimeOnly_Seconds = False
Me.txtClientNr._value = ""
Me.txtClientNr._Waehrung = False
Me.txtClientNr._WaehrungZeichen = True
@@ -94,14 +98,16 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtCardNr._DateTimeOnly = False
Me.txtCardNr._numbersOnly = False
Me.txtCardNr._numbersOnlyKommastellen = ""
Me.txtCardNr._numbersOnlyTrennzeichen = True
Me.txtCardNr._Prozent = False
Me.txtCardNr._ShortDateNew = False
Me.txtCardNr._ShortDateOnly = False
Me.txtCardNr._TimeOnly = False
Me.txtCardNr._TimeOnly_Seconds = False
Me.txtCardNr._value = Nothing
Me.txtCardNr._Waehrung = False
Me.txtCardNr._WaehrungZeichen = True
Me.txtCardNr.Location = New System.Drawing.Point(106, 122)
Me.txtCardNr.Location = New System.Drawing.Point(106, 113)
Me.txtCardNr.MaxLength = 3
Me.txtCardNr.MaxLineLength = -1
Me.txtCardNr.MaxLines_Warning = ""
@@ -115,14 +121,16 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._numbersOnlyTrennzeichen = True
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._TimeOnly_Seconds = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.Location = New System.Drawing.Point(106, 97)
Me.txtKartenNr.Location = New System.Drawing.Point(106, 88)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
@@ -135,7 +143,7 @@ Partial Class usrCntlSDLLeistungenUTA
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 125)
Me.Label1.Location = New System.Drawing.Point(3, 116)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 13)
Me.Label1.TabIndex = 12
@@ -145,7 +153,7 @@ Partial Class usrCntlSDLLeistungenUTA
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 100)
Me.Label9.Location = New System.Drawing.Point(3, 91)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(69, 13)
Me.Label9.TabIndex = 9
@@ -155,7 +163,7 @@ Partial Class usrCntlSDLLeistungenUTA
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(207, 126)
Me.Label3.Location = New System.Drawing.Point(207, 117)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(32, 13)
Me.Label3.TabIndex = 16
@@ -166,14 +174,16 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtPIN._DateTimeOnly = False
Me.txtPIN._numbersOnly = False
Me.txtPIN._numbersOnlyKommastellen = ""
Me.txtPIN._numbersOnlyTrennzeichen = True
Me.txtPIN._Prozent = False
Me.txtPIN._ShortDateNew = False
Me.txtPIN._ShortDateOnly = False
Me.txtPIN._TimeOnly = False
Me.txtPIN._TimeOnly_Seconds = False
Me.txtPIN._value = Nothing
Me.txtPIN._Waehrung = False
Me.txtPIN._WaehrungZeichen = True
Me.txtPIN.Location = New System.Drawing.Point(245, 123)
Me.txtPIN.Location = New System.Drawing.Point(245, 114)
Me.txtPIN.MaxLength = 4
Me.txtPIN.MaxLineLength = -1
Me.txtPIN.MaxLines_Warning = ""
@@ -187,10 +197,12 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = True
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
@@ -306,10 +318,12 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._numbersOnlyTrennzeichen = True
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._TimeOnly_Seconds = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
@@ -328,10 +342,12 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._numbersOnlyTrennzeichen = True
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._TimeOnly_Seconds = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
@@ -350,10 +366,12 @@ Partial Class usrCntlSDLLeistungenUTA
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._TimeOnly_Seconds = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
@@ -465,6 +483,9 @@ Partial Class usrCntlSDLLeistungenUTA
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AllowDrop = True
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -488,11 +509,46 @@ Partial Class usrCntlSDLLeistungenUTA
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'txtCVCNr
'
Me.txtCVCNr._DateTimeOnly = False
Me.txtCVCNr._numbersOnly = False
Me.txtCVCNr._numbersOnlyKommastellen = ""
Me.txtCVCNr._numbersOnlyTrennzeichen = True
Me.txtCVCNr._Prozent = False
Me.txtCVCNr._ShortDateNew = False
Me.txtCVCNr._ShortDateOnly = False
Me.txtCVCNr._TimeOnly = False
Me.txtCVCNr._TimeOnly_Seconds = False
Me.txtCVCNr._value = Nothing
Me.txtCVCNr._Waehrung = False
Me.txtCVCNr._WaehrungZeichen = True
Me.txtCVCNr.Location = New System.Drawing.Point(106, 138)
Me.txtCVCNr.MaxLength = 22
Me.txtCVCNr.MaxLineLength = -1
Me.txtCVCNr.MaxLines_Warning = ""
Me.txtCVCNr.MaxLines_Warning_Label = Nothing
Me.txtCVCNr.Name = "txtCVCNr"
Me.txtCVCNr.Size = New System.Drawing.Size(183, 20)
Me.txtCVCNr.TabIndex = 102
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(3, 141)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(48, 13)
Me.Label5.TabIndex = 103
Me.Label5.Text = "CVC-Nr.:"
'
'usrCntlSDLLeistungenUTA
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.txtCVCNr)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
@@ -556,5 +612,6 @@ Partial Class usrCntlSDLLeistungenUTA
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtCVCNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
End Class

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb
View File

@@ -109,6 +109,7 @@ Public Class usrCntlSDLLeistungenUTA
txtKartenNr.Text = SDL.KartenNr
txtClientNr.Text = SDL.CLIENT_Nr
txtCardNr.Text = SDL.CARD_Nr
txtCVCNr.Text = If(SDL.CVCNr, "")
'Me.Enabled = s.bindingSource.Count > 0
'AddHandler s.bindingSource.PositionChanged, Sub()
@@ -168,6 +169,7 @@ Public Class usrCntlSDLLeistungenUTA
SDL.KartenNr = txtKartenNr.Text
SDL.CLIENT_Nr = txtClientNr.Text
SDL.CARD_Nr = txtCardNr.Text
SDL.CVCNr = txtCVCNr.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
@@ -185,7 +187,7 @@ Public Class usrCntlSDLLeistungenUTA
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, txtCVCNr.TextChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then

4
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1741,7 +1741,7 @@ Public Class frmMDMDatenverarbetiung
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,isnull(plose_BeschreibungAusfahrt,plose_BeschreibungMautTankstelle) as plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plp_Land NOT IN ('AT','DE') "
@@ -3905,7 +3905,7 @@ Public Class frmMDMDatenverarbetiung
Try
Dim dtUTAKundennummern As DataTable = SQL.loadDgvBySql("SELECT Distinct(tblUTAImportNew.Kundennummer)
FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr
FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr WHERE cast(tblUTAImportNew.Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "'
GROUP BY tblUTAImportNew.Kundennummer, Adressen.UTAKundenNr
HAVING (((Adressen.UTAKundenNr) Is Null))", "FMZOLL")

4
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -214,7 +214,7 @@ Public Class usrcntlFremdrechnungen
'IDS
Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
" invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
'UTA
Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
@@ -240,7 +240,7 @@ Public Class usrcntlFremdrechnungen
Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
"
--IDS
'IDS' as Lieferant,invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber]
'IDS' as Lieferant,invoice_id, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew WHERE [CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber]
UNION ALL

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

@@ -33,12 +33,15 @@ 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.Label5 = New System.Windows.Forms.Label()
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
Me.pbMautAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblMautAnh_Proz = 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()
Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label62 = New System.Windows.Forms.Label()
Me.Button18 = New System.Windows.Forms.Button()
Me.Label44 = New System.Windows.Forms.Label()
@@ -52,7 +55,7 @@ Partial Class usrcntlFakturierung
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxMautanh = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnMautanh_pruefen = New System.Windows.Forms.Button()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
@@ -63,16 +66,18 @@ Partial Class usrcntlFakturierung
Me.cbxVorschau = New System.Windows.Forms.CheckBox()
Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox()
Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox()
Me.Button20 = New System.Windows.Forms.Button()
Me.btn_Mautanh_entfernen = New System.Windows.Forms.Button()
Me.Label72 = New System.Windows.Forms.Label()
Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.rbkunde = New System.Windows.Forms.RadioButton()
Me.rbAlleKunden = New System.Windows.Forms.RadioButton()
Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
Me.Label71 = New System.Windows.Forms.Label()
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.Button19 = New System.Windows.Forms.Button()
Me.btn_setRENr = New System.Windows.Forms.Button()
Me.Label70 = New System.Windows.Forms.Label()
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label67 = New System.Windows.Forms.Label()
Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker()
Me.Label66 = New System.Windows.Forms.Label()
@@ -80,14 +85,10 @@ Partial Class usrcntlFakturierung
Me.Label64 = New System.Windows.Forms.Label()
Me.Label63 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnRePos = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GBSammelrechnung.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,7 +98,6 @@ Partial Class usrcntlFakturierung
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GroupBox1
@@ -212,6 +212,16 @@ Partial Class usrcntlFakturierung
Me.TextBox1.Size = New System.Drawing.Size(106, 13)
Me.TextBox1.TabIndex = 105
'
'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, 135)
Me.MyDatagridview1.TabIndex = 34
'
'Label5
'
Me.Label5.AutoSize = True
@@ -245,6 +255,17 @@ Partial Class usrcntlFakturierung
Me.lblMautAnh_Proz.Text = "0%"
Me.lblMautAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbxDateMautbericht
'
Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
Me.cbxDateMautbericht._allowFreiText = False
Me.cbxDateMautbericht._value = ""
Me.cbxDateMautbericht.FormattingEnabled = True
Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
Me.cbxDateMautbericht.TabIndex = 32
'
'Label69
'
Me.Label69.AutoSize = True
@@ -262,6 +283,18 @@ Partial Class usrcntlFakturierung
Me.Label68.TabIndex = 30
Me.Label68.Text = "Generiert Mautberichte"
'
'cbxMautbericht
'
Me.cbxMautbericht._allowedValuesFreiText = Nothing
Me.cbxMautbericht._allowFreiText = False
Me.cbxMautbericht._value = ""
Me.cbxMautbericht.DropDownWidth = 200
Me.cbxMautbericht.FormattingEnabled = True
Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
Me.cbxMautbericht.Name = "cbxMautbericht"
Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
Me.cbxMautbericht.TabIndex = 30
'
'Label62
'
Me.Label62.AutoSize = True
@@ -304,7 +337,7 @@ Partial Class usrcntlFakturierung
Me.GBSammelrechnung.Controls.Add(Me.Button3)
Me.GBSammelrechnung.Controls.Add(Me.Button2)
Me.GBSammelrechnung.Controls.Add(Me.cbxMautanh)
Me.GBSammelrechnung.Controls.Add(Me.Button1)
Me.GBSammelrechnung.Controls.Add(Me.btnMautanh_pruefen)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox5)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox4)
@@ -315,7 +348,7 @@ Partial Class usrcntlFakturierung
Me.GBSammelrechnung.Controls.Add(Me.cbxVorschau)
Me.GBSammelrechnung.Controls.Add(Me.cbxAbfVerbotdrucken)
Me.GBSammelrechnung.Controls.Add(Me.cbxRechnungsjournaldrucken)
Me.GBSammelrechnung.Controls.Add(Me.Button20)
Me.GBSammelrechnung.Controls.Add(Me.btn_Mautanh_entfernen)
Me.GBSammelrechnung.Controls.Add(Me.Label72)
Me.GBSammelrechnung.Controls.Add(Me.KdSearchBox3)
Me.GBSammelrechnung.Controls.Add(Me.rbkunde)
@@ -324,7 +357,7 @@ Partial Class usrcntlFakturierung
Me.GBSammelrechnung.Controls.Add(Me.Label71)
Me.GBSammelrechnung.Controls.Add(Me.pbPloseAnh_Proz)
Me.GBSammelrechnung.Controls.Add(Me.lblPloseAnh_Proz)
Me.GBSammelrechnung.Controls.Add(Me.Button19)
Me.GBSammelrechnung.Controls.Add(Me.btn_setRENr)
Me.GBSammelrechnung.Controls.Add(Me.Label70)
Me.GBSammelrechnung.Controls.Add(Me.cboSachbearbeiter)
Me.GBSammelrechnung.Controls.Add(Me.Label67)
@@ -334,7 +367,7 @@ Partial Class usrcntlFakturierung
Me.GBSammelrechnung.Controls.Add(Me.Label64)
Me.GBSammelrechnung.Controls.Add(Me.Label63)
Me.GBSammelrechnung.Controls.Add(Me.Label45)
Me.GBSammelrechnung.Controls.Add(Me.Button14)
Me.GBSammelrechnung.Controls.Add(Me.btnRePos)
Me.GBSammelrechnung.Enabled = False
Me.GBSammelrechnung.Location = New System.Drawing.Point(10, 356)
Me.GBSammelrechnung.Name = "GBSammelrechnung"
@@ -438,16 +471,16 @@ Partial Class usrcntlFakturierung
Me.cbxMautanh.Text = "Mautanhänge im PDF hinzufügen"
Me.cbxMautanh.UseVisualStyleBackColor = True
'
'Button1
'btnMautanh_pruefen
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button1.Location = New System.Drawing.Point(10, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(121, 49)
Me.Button1.TabIndex = 106
Me.Button1.Text = "Mautanh. prüfen"
Me.Button1.UseVisualStyleBackColor = True
Me.btnMautanh_pruefen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMautanh_pruefen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnMautanh_pruefen.Location = New System.Drawing.Point(10, 12)
Me.btnMautanh_pruefen.Name = "btnMautanh_pruefen"
Me.btnMautanh_pruefen.Size = New System.Drawing.Size(121, 49)
Me.btnMautanh_pruefen.TabIndex = 106
Me.btnMautanh_pruefen.Text = "Mautanh. prüfen"
Me.btnMautanh_pruefen.UseVisualStyleBackColor = True
'
'PictureBox6
'
@@ -559,16 +592,16 @@ Partial Class usrcntlFakturierung
Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken"
Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True
'
'Button20
'btn_Mautanh_entfernen
'
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button20.Location = New System.Drawing.Point(147, 12)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(121, 49)
Me.Button20.TabIndex = 43
Me.Button20.Text = "Mautanh. aus RE entfernen"
Me.Button20.UseVisualStyleBackColor = True
Me.btn_Mautanh_entfernen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Mautanh_entfernen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn_Mautanh_entfernen.Location = New System.Drawing.Point(147, 12)
Me.btn_Mautanh_entfernen.Name = "btn_Mautanh_entfernen"
Me.btn_Mautanh_entfernen.Size = New System.Drawing.Size(121, 49)
Me.btn_Mautanh_entfernen.TabIndex = 43
Me.btn_Mautanh_entfernen.Text = "Mautanh. aus RE entfernen"
Me.btn_Mautanh_entfernen.UseVisualStyleBackColor = True
'
'Label72
'
@@ -578,6 +611,34 @@ Partial Class usrcntlFakturierung
Me.Label72.TabIndex = 42
Me.Label72.Text = "* hier wird eine RE-Nr erzeugt, die Rechnungen gelten dann als ""gedruckt"" und kön" &
"nen somit nicht mehr geändert werden."
'
'KdSearchBox3
'
Me.KdSearchBox3._AlleFirmenCLUSTER = False
Me.KdSearchBox3._AllowSetValue = True
Me.KdSearchBox3._autoSizeGross = False
Me.KdSearchBox3._display_Name1 = False
Me.KdSearchBox3._displayAVISO_Email = False
Me.KdSearchBox3._displayFullName = False
Me.KdSearchBox3._displayWoelflKd = False
Me.KdSearchBox3._hideIfListEmpty = True
Me.KdSearchBox3._loadKdData = False
Me.KdSearchBox3._searchName1 = True
Me.KdSearchBox3._UseFIRMA = ""
Me.KdSearchBox3._ValueKdAndName = True
Me.KdSearchBox3.dgvpos = "LEFT"
Me.KdSearchBox3.KdName = ""
Me.KdSearchBox3.KdNr = "-1"
Me.KdSearchBox3.kdNrField = Nothing
Me.KdSearchBox3.KdNrNullInt = Nothing
Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
Me.KdSearchBox3.Name = "KdSearchBox3"
Me.KdSearchBox3.nurAktive = True
Me.KdSearchBox3.searchActive = True
Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
Me.KdSearchBox3.TabIndex = 41
Me.KdSearchBox3.TIMER_SEARCH = True
Me.KdSearchBox3.usrcntl = Nothing
'
'rbkunde
'
@@ -635,16 +696,16 @@ Partial Class usrcntlFakturierung
Me.lblPloseAnh_Proz.Text = "0%"
Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Button19
'btn_setRENr
'
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button19.Location = New System.Drawing.Point(10, 182)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(121, 49)
Me.Button19.TabIndex = 32
Me.Button19.Text = "RE.Nr setzen*"
Me.Button19.UseVisualStyleBackColor = True
Me.btn_setRENr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_setRENr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn_setRENr.Location = New System.Drawing.Point(10, 182)
Me.btn_setRENr.Name = "btn_setRENr"
Me.btn_setRENr.Size = New System.Drawing.Size(121, 49)
Me.btn_setRENr.TabIndex = 32
Me.btn_setRENr.Text = "RE.Nr setzen*"
Me.btn_setRENr.UseVisualStyleBackColor = True
'
'Label70
'
@@ -654,6 +715,17 @@ Partial Class usrcntlFakturierung
Me.Label70.TabIndex = 30
Me.Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an."
'
'cboSachbearbeiter
'
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
Me.cboSachbearbeiter._allowFreiText = False
Me.cboSachbearbeiter._value = ""
Me.cboSachbearbeiter.FormattingEnabled = True
Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
Me.cboSachbearbeiter.TabIndex = 29
'
'Label67
'
Me.Label67.AutoSize = True
@@ -713,88 +785,16 @@ Partial Class usrcntlFakturierung
Me.Label45.TabIndex = 5
Me.Label45.Text = "1. Einträge auf Sachbearbeiter ändern."
'
'Button14
'btnRePos
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.Location = New System.Drawing.Point(10, 81)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(121, 49)
Me.Button14.TabIndex = 4
Me.Button14.Text = "Rechnungspos. berechnen"
Me.Button14.UseVisualStyleBackColor = True
'
'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, 135)
Me.MyDatagridview1.TabIndex = 34
'
'cbxDateMautbericht
'
Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
Me.cbxDateMautbericht._allowFreiText = False
Me.cbxDateMautbericht._value = ""
Me.cbxDateMautbericht.FormattingEnabled = True
Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
Me.cbxDateMautbericht.TabIndex = 32
'
'cbxMautbericht
'
Me.cbxMautbericht._allowedValuesFreiText = Nothing
Me.cbxMautbericht._allowFreiText = False
Me.cbxMautbericht._value = ""
Me.cbxMautbericht.DropDownWidth = 200
Me.cbxMautbericht.FormattingEnabled = True
Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
Me.cbxMautbericht.Name = "cbxMautbericht"
Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
Me.cbxMautbericht.TabIndex = 30
'
'KdSearchBox3
'
Me.KdSearchBox3._AlleFirmenCLUSTER = False
Me.KdSearchBox3._AllowSetValue = True
Me.KdSearchBox3._autoSizeGross = False
Me.KdSearchBox3._display_Name1 = False
Me.KdSearchBox3._displayAVISO_Email = False
Me.KdSearchBox3._displayFullName = False
Me.KdSearchBox3._displayWoelflKd = False
Me.KdSearchBox3._hideIfListEmpty = True
Me.KdSearchBox3._loadKdData = False
Me.KdSearchBox3._searchName1 = True
Me.KdSearchBox3._UseFIRMA = ""
Me.KdSearchBox3._ValueKdAndName = True
Me.KdSearchBox3.dgvpos = "LEFT"
Me.KdSearchBox3.KdName = ""
Me.KdSearchBox3.KdNr = "-1"
Me.KdSearchBox3.kdNrField = Nothing
Me.KdSearchBox3.KdNrNullInt = Nothing
Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
Me.KdSearchBox3.Name = "KdSearchBox3"
Me.KdSearchBox3.nurAktive = True
Me.KdSearchBox3.searchActive = True
Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
Me.KdSearchBox3.TabIndex = 41
Me.KdSearchBox3.TIMER_SEARCH = True
Me.KdSearchBox3.usrcntl = Nothing
'
'cboSachbearbeiter
'
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
Me.cboSachbearbeiter._allowFreiText = False
Me.cboSachbearbeiter._value = ""
Me.cboSachbearbeiter.FormattingEnabled = True
Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
Me.cboSachbearbeiter.TabIndex = 29
Me.btnRePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnRePos.Location = New System.Drawing.Point(10, 81)
Me.btnRePos.Name = "btnRePos"
Me.btnRePos.Size = New System.Drawing.Size(121, 49)
Me.btnRePos.TabIndex = 4
Me.btnRePos.Text = "Rechnungspos. berechnen"
Me.btnRePos.UseVisualStyleBackColor = True
'
'usrcntlFakturierung
'
@@ -812,6 +812,7 @@ Partial Class usrcntlFakturierung
Me.GroupBox1.ResumeLayout(False)
Me.GBMautberichte.ResumeLayout(False)
Me.GBMautberichte.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GBSammelrechnung.ResumeLayout(False)
Me.GBSammelrechnung.PerformLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
@@ -822,7 +823,6 @@ Partial Class usrcntlFakturierung
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -846,7 +846,7 @@ Partial Class usrcntlFakturierung
Friend WithEvents cbxVorschau As CheckBox
Friend WithEvents cbxAbfVerbotdrucken As CheckBox
Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
Friend WithEvents Button20 As Button
Friend WithEvents btn_Mautanh_entfernen As Button
Friend WithEvents Label72 As Label
Friend WithEvents KdSearchBox3 As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents rbkunde As RadioButton
@@ -855,7 +855,7 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label71 As Label
Friend WithEvents pbPloseAnh_Proz As ProgressBar
Friend WithEvents lblPloseAnh_Proz As Label
Friend WithEvents Button19 As Button
Friend WithEvents btn_setRENr As Button
Friend WithEvents Label70 As Label
Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label67 As Label
@@ -865,7 +865,7 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label64 As Label
Friend WithEvents Label63 As Label
Friend WithEvents Label45 As Label
Friend WithEvents Button14 As Button
Friend WithEvents btnRePos As Button
Friend WithEvents btnMDMSammelrechnung As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label4 As Label
@@ -878,7 +878,7 @@ Partial Class usrcntlFakturierung
Friend WithEvents PictureBox4 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents Button1 As Button
Friend WithEvents btnMautanh_pruefen As Button
Friend WithEvents cbxMautanh As CheckBox
Friend WithEvents Button3 As Button
Friend WithEvents Button2 As Button

22
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -89,7 +89,7 @@ Public Class usrcntlFakturierung
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btn_Mautanh_entfernen.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -133,7 +133,7 @@ Public Class usrcntlFakturierung
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnRePos.Click
Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an."
@@ -190,7 +190,7 @@ Public Class usrcntlFakturierung
If rechnungenMitAbwAbfDat > 0 Then
Dim res As MsgBoxResult
res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird autoamtisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
Select Case res
Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
Case MsgBoxResult.No
@@ -234,6 +234,10 @@ Public Class usrcntlFakturierung
GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL")
If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
Exit Sub
End If
'RECHNUNG ODER GUTSCHRIFT
'Rechnung oder Gutschrift im RK eintragen, abhängig vom Sammelrechnungsbetrag (+/-)
@@ -912,7 +916,7 @@ Public Class usrcntlFakturierung
End Function
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles btn_setRENr.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
Dim rechnungsstatus As Integer = 0
@@ -1597,7 +1601,7 @@ Public Class usrcntlFakturierung
f.Show(Me)
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnMautanh_pruefen.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -1701,9 +1705,9 @@ Public Class usrcntlFakturierung
Dim sammelrechnung0vorhanden As Boolean = True
sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
Button14.Enabled = sammelrechnung0vorhanden
btnRePos.Enabled = sammelrechnung0vorhanden
'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
Button20.Enabled = sammelrechnung0vorhanden
btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
End Sub
@@ -1728,8 +1732,8 @@ Public Class usrcntlFakturierung
sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
Button14.Enabled = True 'sammelrechnung0vorhanden
Button20.Enabled = sammelrechnung0vorhanden
btnRePos.Enabled = True 'sammelrechnung0vorhanden
btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
End Sub

20
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
View File

@@ -13,7 +13,6 @@ Public Class cUStVLeistender
Property UstV_Leistender_Adresse As Boolean
Property UStV_LeistenderId As Integer
Public hasEntry = False
Dim SQL As New SQL
@@ -59,10 +58,29 @@ Public Class cUStVLeistender
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function SAVEID() As Integer
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
UStV_LeistenderId = SQL.doSQLVarListID(UStV_LeistenderId, sqlstr, "FMZOLL", , list)
Return UStV_LeistenderId
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

132
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -1,8 +1,11 @@
Imports javax.validation.constraints
Imports com.sun.org.apache.xpath.internal.functions
Imports javax.validation.constraints
Imports Org.BouncyCastle.Asn1
Public Class cMDMFunctionsAllgemein
Public Shared ploseSchnittstelle As Boolean = False
Public Shared ploseAlteLogikSchnittstelle As Boolean = False
Public Shared ploseNeueLogikSchnittstelle As Boolean = False
Public Shared ITSchnittstelle As Boolean = False
Public Shared MSEAlteSchnittstelle As Boolean = False
Public Shared MSENeueSchnittstelle As Boolean = False
@@ -11,9 +14,10 @@ Public Class cMDMFunctionsAllgemein
Public Shared UTAAlteSchnittstelle As Boolean = False
Public Shared UTANeueSchnittstelle As Boolean = False
Shared Function setSchnittstellen(plose As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean)
Shared Function setSchnittstellen(ploseAlt As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean, ploseNeu As Boolean)
ploseSchnittstelle = plose
ploseAlteLogikSchnittstelle = ploseAlt
ploseNeueLogikSchnittstelle = ploseNeu
ITSchnittstelle = IT
MSEAlteSchnittstelle = MSEalt
MSENeueSchnittstelle = MSENeu
@@ -22,6 +26,20 @@ Public Class cMDMFunctionsAllgemein
UTAAlteSchnittstelle = UTAAlt
UTANeueSchnittstelle = UTANeu
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
ploseAlteLogikSchnittstelle = True
ploseNeueLogikSchnittstelle = True
ITSchnittstelle = False
MSEAlteSchnittstelle = True
MSENeueSchnittstelle = True
IDSAlteSchnittstelle = True
IDSNeueSchnittstelle = True
UTAAlteSchnittstelle = True
UTANeueSchnittstelle = True
End If
End Function
@@ -127,8 +145,9 @@ Public Class cMDMFunctionsAllgemein
End If
'alle Kunden, die eine SteuerNr hinterlegt haben inkl. deren hinterlegte Summen!
Dim sqlKunden = "SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR_VERAG, Kunden.UStV_SummeVorschaubetragEUR_IDS, Kunden.UStV_SummeVorschaubetragEUR_IT, Kunden.UStV_SummeVorschaubetragEUR_MSE, Kunden.UStV_SummeVorschaubetragEUR_UTA, Kunden.UStV_SummeVorschaubetragEUR, kde_UStV_SummeVorschaubetragEUR_PLOSE as UStV_SummeVorschaubetragEUR_PLOSE
Dim sqlKunden = "SELECT Kunden.KundenNr as KundenNr,isnull(Adressen.LandKz,'') as LandKz, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR_VERAG, Kunden.UStV_SummeVorschaubetragEUR_IDS, Kunden.UStV_SummeVorschaubetragEUR_IT, Kunden.UStV_SummeVorschaubetragEUR_MSE, Kunden.UStV_SummeVorschaubetragEUR_UTA, Kunden.UStV_SummeVorschaubetragEUR, kde_UStV_SummeVorschaubetragEUR_PLOSE as UStV_SummeVorschaubetragEUR_PLOSE
FROM Kunden
INNER JOIN Adressen on Adressen.AdressenNr = Kunden.KundenNr
left JOIN [tblKundenErweitert] on [kde_KundenNr] = Kunden.KundenNr
WHERE Kunden.KundenNr " & sqlWhere &
" order by Kunden.KundenNr"
@@ -143,6 +162,13 @@ Public Class cMDMFunctionsAllgemein
'Neuberechnung der Steuerbeträge aus den Anträgen
'WICHTIG laut Brigitte am 09.04.2025:
'SRB und BIH Kunden bekommen die MWST direkt vom HU Finanzamt ausbezahlt.
'Deswegen sollten alle ungarischen Anträge die wir für SRB und BIH Kunden stellen, nicht beim Risiko mitberechnet werden
Dim sqlSummeBilden = "SELECT
tblUStVAntrag.UStVAn_KuNr,
SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer,
@@ -176,13 +202,12 @@ Public Class cMDMFunctionsAllgemein
Dim invoiceDate = If(Date.Now > New Date(Date.Now.Year, 6, 30), New Date(Date.Now.Year, 1, 1), New Date(Date.Now.Year - 1, 1, 1))
'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen , die aber schon eingelesen wurden)
curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), invoiceDate)
curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate, ITSchnittstelle)
curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseSchnittstelle)
curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate)
curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, ITSchnittstelle)
curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), r.Item("LandKz"), invoiceDate, ploseAlteLogikSchnittstelle, ploseNeueLogikSchnittstelle)
curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -301,7 +326,7 @@ Public Class cMDMFunctionsAllgemein
End Try
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_VERAG(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_VERAG(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date) As Double
'Return 0
' Public Function UStVKunden_Summen_lesen_Vorschau_VERAG(ByRef varUStVAn_KuNr As Variant) As Currency
@@ -347,7 +372,7 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
'1300 dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
'1310 strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -373,7 +398,7 @@ Public Class cMDMFunctionsAllgemein
dbo.tblSteuernummern ON dbo.tblDieselArchiv.KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND dbo.tblDieselArchiv.[Outlet Country Code] = dbo.tbl_IDS_Länder.OutletCountryCode
WHERE (dbo.tblDieselArchiv.KdNrVERAG = " & varUStVAn_KuNr & " ) AND (dbo.tblDieselArchiv.[Year Month Day] >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblDieselArchiv.UStVAn_ID IS NULL) AND
(dbo.tblSteuernummern.UStV = 1)
(dbo.tblSteuernummern.UStV = 1) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
GROUP BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr
ORDER BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr"
@@ -395,7 +420,7 @@ Public Class cMDMFunctionsAllgemein
dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
WHERE ([tblIDSTransactionsNew].KdNrVERAG = " & varUStVAn_KuNr & " ) AND ([tblIDSTransactionsNew].[YearMonthDay] >= '" & invoiceDate.ToShortDateString & "') AND ([tblIDSTransactionsNew].UStVAn_ID IS NULL) AND
(dbo.tblSteuernummern.UStV = 1)
(dbo.tblSteuernummern.UStV = 1) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
GROUP BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr
ORDER BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr"
@@ -420,19 +445,25 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumme As Boolean) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnitttelle As Boolean) As Double
' set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID beim Einarbeiten in USTVA
Try
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim summeSchnittstelle As Double = 0
Dim summeAlteSchnittstelle As Double = 0
Dim summeNeueSchnittstelle As Double = 0
If calcSumme Then
If calcSummeAlteSchnittstelle Then
Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
WHERE plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and AdressenNr = " & varUStVAn_KuNr & "
'plose_MWSTBetragWaehrungAbbuchung ist immer in EUR
Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]
INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
WHERE dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & " AND (dbo.tblSteuernummern.UStV = 1) AND plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and Adressen.AdressenNr = " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
group by plose_POLSEKundennummer"
@@ -441,13 +472,52 @@ Public Class cMDMFunctionsAllgemein
For Each r As DataRow In dtPLOSE.Rows
Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
If UST_org <> 0 Then
summeSchnittstelle += UST_org
summeAlteSchnittstelle += UST_org
End If
Next
End If
Return summeSchnittstelle
If calcSummeNeueSchnitttelle Then
Dim sqlPLOSE = "select plInv_PLOSEKundennummer, sum([plInv_MWSTBetrag])[plInv_MWSTBetrag], ISNULL([plInv_Currency],'') as plInv_Currency FROM [tblPLOSE_Inv_Data]
INNER JOIN Adressen on PLOSEKundenNr=plInv_PLOSEKundennummer
INNER JOIN dbo.tblSteuernummern ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr and [tblPLOSE_Inv_Data].plInv_SupplierCountry = tblSteuernummern.LandKZ
WHERE dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & " AND (dbo.tblSteuernummern.UStV = 1) AND plInv_Archiv <> 1 AND plInv_ArchiviertDatum is null AND cast(plInv_SupplierRechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and Adressen.AdressenNr = " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
group by plInv_PLOSEKundennummer, plInv_Currency"
Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
For Each r As DataRow In dtPLOSE.Rows
Dim UST_org = CDbl(r.Item("plInv_MWSTBetrag"))
If UST_org <> 0 Then
Dim Weahrung As String = IIf(r.Item("plInv_Currency") IsNot Nothing, r.Item("plInv_Currency"), "")
If Weahrung <> "" Then
If Weahrung <> "EUR" Then
Dim kurs As New cEZB_Waehrungskurse(Weahrung)
Dim UST_EUR As Double = 0
UST_EUR = Math.Round((UST_org / kurs.ezb_kurs), 2) '+ (UST_org Mod Math.Round(kurs.ezb_kurs, 2)), ")"
summeNeueSchnittstelle += UST_EUR
Else Weahrung = "EUR"
summeNeueSchnittstelle += UST_org
End If
End If
End If
Next
End If
Return summeAlteSchnittstelle + summeNeueSchnittstelle
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
@@ -458,7 +528,7 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSum As Boolean) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSum As Boolean) As Double
' Dim qdf As DAO.QueryDef
' Dim rst As DAO.Recordset
@@ -531,7 +601,7 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
'Return 0
' dtmRechnungsdatum = IIf(Date > DateSerial(Year(Of Date), 6, 30), DateSerial(Year(Of Date), 1, 1), DateSerial(Year(Of Date)() - 1, 1, 1))
'1850 strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -563,7 +633,7 @@ Public Class cMDMFunctionsAllgemein
dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND
dbo.tblMSETransactionsArchiv.[Transaction Country] = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz
WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblMSETransactionsArchiv.[Invoice Date] >= '" & invoiceDate.ToShortDateString & "') AND
(dbo.tblMSETransactionsArchiv.[Original VAT Amount] <> 0) AND (dbo.tblMSETransactionsArchiv.UStVAn_ID IS NULL)
(dbo.tblMSETransactionsArchiv.[Original VAT Amount] <> 0) AND (dbo.tblMSETransactionsArchiv.UStVAn_ID IS NULL) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency]
ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] "
@@ -586,8 +656,8 @@ Public Class cMDMFunctionsAllgemein
left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.invoice_id = bills.invoice_number
left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id
where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1 and cust.[partner_customer_number] = " & varUStVAn_KuNr & "
left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id and dbo.tblSteuernummern.LandKZ = trans.transaction_country
where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1 and cust.[partner_customer_number] = " & varUStVAn_KuNr & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.transaction_country,trans.original_currency) as temp"
Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
@@ -614,7 +684,7 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, landKZ As String, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
'Return 0
' Dim qdf As DAO.QueryDef
' Dim rst As DAO.Recordset
@@ -667,7 +737,7 @@ Public Class cMDMFunctionsAllgemein
dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND
dbo.tblUTAArchiv.Lieferland = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3
WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblUTAArchiv.UStVAn_ID IS NULL) AND
(dbo.tblUTAArchiv.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0)
(dbo.tblUTAArchiv.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
@@ -691,7 +761,7 @@ Public Class cMDMFunctionsAllgemein
dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND
dbo.tblUTAImportNew.Lieferland = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3
WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblUTAImportNew.archiv IS NULL) AND (dbo.tblUTAImportNew.charged = 1) AND
(dbo.tblUTAImportNew.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0)
(dbo.tblUTAImportNew.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') AND (dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung <> 0) " & IIf(landKZ = "SRB" OrElse landKZ = "BIH", " AND dbo.tblSteuernummern.LandKZ <> 'HU'", "") & "
GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"

2
VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
View File

@@ -66,6 +66,7 @@ Public Class cSDL
Property BelegNr As Object = Nothing
Property Nationalitaet As Object = Nothing
Property CO2Kategorie As Object = Nothing
Property CVCNr As Object = Nothing
Public hasentry
Dim SQL As New SQL
@@ -156,6 +157,7 @@ Public Class cSDL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalitaet", Nationalitaet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2Kategorie", CO2Kategorie))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CVCNr", CVCNr))
Return list
End Function

11
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
View File

@@ -970,6 +970,8 @@ Public Class cUTA
Dim curChecksumme As Double
Dim lngRecordCount As Long
Try
'Datei auf Fehler prüfen!
Do While (objFileRead.Peek() > -1)
@@ -1061,6 +1063,11 @@ Public Class cUTA
End With
Case "20"
lngÜbertragungsposition = 6616
lngRecordCount = lngRecordCount + 1
lngÜbertragungsposition = lngÜbertragungsposition + 1
Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit)
@@ -1306,6 +1313,10 @@ Public Class cUTA
End Select
Loop
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
cnt = CInt(lngRecordCount)
objFileRead.Close()
Return True

83
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -1,14 +1,10 @@
Imports System.Data.SqlClient
Imports System.Net
Imports System.Reflection
Imports System.ServiceModel.Configuration
Imports System.ServiceModel.Security
Imports System.Threading
Imports System.Web.Routing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Chilkat
Imports Newtonsoft.Json.Linq
Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS
Public Class cATEZ_NCTS_Sessions
@@ -17,6 +13,7 @@ Public Class cATEZ_NCTS_Sessions
Public Property datetime As DateTime = Now()
Public Property refresh_token As String
Public Property token_validuntil As DateTime
Public Property program As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -30,18 +27,24 @@ Public Class cATEZ_NCTS_Sessions
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("datetime", datetime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("refresh_token", refresh_token))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_validuntil", token_validuntil))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("program", program))
Return list
End Function
Sub New()
LOAD()
LOAD("")
End Sub
Sub New(token As String, refreshtoken As String, timestamp As DateTime)
Sub New(Program As String)
LOAD(Program)
End Sub
Sub New(token As String, refreshtoken As String, timestamp As DateTime, program As String)
Me.token = token
Me.refresh_token = refreshtoken
token_validuntil = timestamp
program = program
SAVE()
End Sub
@@ -80,11 +83,11 @@ Public Class cATEZ_NCTS_Sessions
End Function
Public Sub LOAD()
Public Sub LOAD(Program As String)
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) order by datetime desc ", conn)
Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) " & IIf(Program <> "", " AND program = '" & Program & "' ", "") & " order by datetime desc ", conn)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
@@ -621,26 +624,26 @@ Public Class cATEZ_NCTS_IN
Dim SQl As New SQL
Shared apiSettingsloaded As Boolean = False
Sub New(program As String)
Sub New(program As String, Optional errorMessage As Boolean = True)
API = SQl.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
If API.Rows.Count = 0 Then
MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
If errorMessage Then MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
Else
apiSettingsloaded = True
API_STRING = API.Rows(0).Item("api_url")
If Not IsDBNull(API.Rows(0).Item("api_debugpath")) AndAlso API.Rows(0).Item("api_debugpath") <> "" Then
Rest.VerboseLogging = True
Rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
rest.VerboseLogging = True
rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
Else
Rest.VerboseLogging = False
rest.VerboseLogging = False
End If
End If
API_STRING = API.Rows(0).Item("api_url")
End Sub
Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String
Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String, ByVal program As String, Optional client_id As String = "", Optional grant_type As String = "") As String
Try
Dim session = New cATEZ_NCTS_Sessions()
@@ -673,8 +676,10 @@ Public Class cATEZ_NCTS_IN
Dim json As New Chilkat.JsonObject
json.UpdateString("password", API.Rows(0).Item("api_password"))
json.UpdateString("username", API.Rows(0).Item("api_user"))
json.UpdateString("password", API.Rows(0).Item("api_password"))
If client_id <> "" Then json.UpdateString("client_id", client_id)
If grant_type <> "" Then json.UpdateString("grant_type", grant_type)
rest.AddHeader("Content-Type", contentType)
@@ -697,10 +702,10 @@ Public Class cATEZ_NCTS_IN
jsonResp.LoadSb(sbResponseBody)
Itoken = jsonResp.StringOf("access_token")
token = Itoken
refresh_token = jsonResp.StringOf("refresh_token")
refresh_token = If(jsonResp.StringOf("refresh_token"), "")
Dim now As DateTime = DateTime.Now()
now = now.AddSeconds(jsonResp.IntOf("expires_in"))
session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss"))
session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss"), program)
sessionID = session.session_Id
Return rest.ResponseStatusCode
@@ -710,17 +715,27 @@ Public Class cATEZ_NCTS_IN
End Function
Shared Function authenticate() As String
Shared Function authenticate(program As String, Optional client_id As String = "", Optional grant_type As String = "") As String
Dim myUri As String = API_STRING & "/api/tds/auth/"
Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token)
Dim myUri As String = API_STRING
Dim contentType = "application/json"
Select Case program
Case "NCTS" : myUri &= "/api/tds/auth/"
Case "VAT" : myUri &= "/token" : contentType = "application/x-www-form-urlencoded"
End Select
Dim response = SendRequestAuthentificationToken(myUri, contentType, "POST", token, program, client_id, grant_type)
Return response
End Function
Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String) As String
Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String, myUrl As String, Method As String) As String
Try
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
@@ -755,7 +770,7 @@ Public Class cATEZ_NCTS_IN
'rest.PercentDoneOnSend = True
rest.IdleTimeoutMs = 5000 * 31
success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)
success = rest.SendReqSb(Method, myUrl, sbRequestBody)
Dim responseStatusCode = rest.ReadResponseHeader()
If (responseStatusCode < 0) Then
@@ -816,7 +831,7 @@ Public Class cATEZ_NCTS_IN
End Try
End Function
Shared Function setJson(ncts As cATEZ_NCTS_DATA)
Shared Function setJsonNCTS(ncts As cATEZ_NCTS_DATA)
jsonData.Clear()
ncts.json = ""
@@ -868,6 +883,21 @@ Public Class cATEZ_NCTS_IN
End Function
Shared Function setJsonVAT(documentType As String, docID As Integer)
jsonData.Clear()
Dim success As Boolean
success = jsonData.UpdateString("document_type", documentType)
Dim base64 As Chilkat.BinData
success = base64.LoadFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docID))
success = jsonData.UpdateString("document_base64", base64.GetEncoded("base64"))
Return success
End Function
Public Function setJsonPDF(ncts As cATEZ_NCTS_DATA, dgv As DataGridView)
Dim success As Boolean
@@ -894,4 +924,7 @@ Public Class cATEZ_NCTS_IN
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -524,7 +524,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Shared Function getISO2LandFromISO3Land(Iso3Land As String)
If Iso3Land Is Nothing Then Return Nothing
If Iso3Land.Length <> 3 Then Return Nothing
Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = '" & Iso3Land & "' "
Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = Replace('" & Iso3Land & "','SLO','SVN')"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
End Function