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

cbam, mdmverarbeitung, ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-12-18 11:53:34 +01:00
parent bdf6272bbb
commit e3c341ae16
8 changed files with 343 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -75,13 +75,23 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.btnEintragloeschen = New System.Windows.Forms.Button()
Me.btnNeuerEintrag = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.lblWarnung = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel9.SuspendLayout()
@@ -296,6 +306,16 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.Label11)
Me.Panel8.Controls.Add(Me.txtStNr)
Me.Panel8.Controls.Add(Me.Label9)
Me.Panel8.Controls.Add(Me.txtVZ)
Me.Panel8.Controls.Add(Me.txtAbfNr)
Me.Panel8.Controls.Add(Me.Label8)
Me.Panel8.Controls.Add(Me.cbxFiliale)
Me.Panel8.Controls.Add(Me.Label4)
Me.Panel8.Controls.Add(Me.Label2)
Me.Panel8.Controls.Add(Me.txtBezugsNr)
Me.Panel8.Controls.Add(Me.cbxWahrung)
Me.Panel8.Controls.Add(Me.lblWahrung)
Me.Panel8.Controls.Add(Me.Label1)
@@ -317,9 +337,9 @@ Partial Class frmMDM_USTVAntrag
Me.cbxWahrung._value = ""
Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxWahrung.FormattingEnabled = True
Me.cbxWahrung.Location = New System.Drawing.Point(439, 9)
Me.cbxWahrung.Location = New System.Drawing.Point(447, 9)
Me.cbxWahrung.Name = "cbxWahrung"
Me.cbxWahrung.Size = New System.Drawing.Size(79, 24)
Me.cbxWahrung.Size = New System.Drawing.Size(71, 24)
Me.cbxWahrung.TabIndex = 12
'
'lblWahrung
@@ -822,14 +842,6 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1300, 269)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -893,6 +905,192 @@ Partial Class frmMDM_USTVAntrag
Me.lblWarnung.Size = New System.Drawing.Size(183, 18)
Me.lblWarnung.TabIndex = 23
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(524, 13)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(111, 17)
Me.Label2.TabIndex = 13
Me.Label2.Text = "Bezugs/Pos-Nr.:"
'
'txtBezugsNr
'
Me.txtBezugsNr._DateTimeOnly = False
Me.txtBezugsNr._numbersOnly = True
Me.txtBezugsNr._numbersOnlyKommastellen = ""
Me.txtBezugsNr._numbersOnlyTrennzeichen = False
Me.txtBezugsNr._Prozent = False
Me.txtBezugsNr._ShortDateNew = False
Me.txtBezugsNr._ShortDateOnly = False
Me.txtBezugsNr._TimeOnly = False
Me.txtBezugsNr._TimeOnly_Seconds = False
Me.txtBezugsNr._value = ""
Me.txtBezugsNr._Waehrung = False
Me.txtBezugsNr._WaehrungZeichen = False
Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBezugsNr.ForeColor = System.Drawing.Color.Black
Me.txtBezugsNr.Location = New System.Drawing.Point(654, 9)
Me.txtBezugsNr.MaxLength = 10
Me.txtBezugsNr.MaxLineLength = -1
Me.txtBezugsNr.MaxLines_Warning = ""
Me.txtBezugsNr.MaxLines_Warning_Label = Nothing
Me.txtBezugsNr.Name = "txtBezugsNr"
Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23)
Me.txtBezugsNr.TabIndex = 14
'
'cbxFiliale
'
Me.cbxFiliale._allowedValuesFreiText = Nothing
Me.cbxFiliale._allowFreiText = False
Me.cbxFiliale._value = ""
Me.cbxFiliale.DropDownWidth = 120
Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiliale.FormattingEnabled = True
Me.cbxFiliale.Location = New System.Drawing.Point(429, 39)
Me.cbxFiliale.Name = "cbxFiliale"
Me.cbxFiliale.Size = New System.Drawing.Size(89, 24)
Me.cbxFiliale.TabIndex = 16
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(363, 44)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(48, 17)
Me.Label4.TabIndex = 15
Me.Label4.Text = "Filiale:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.BackColor = System.Drawing.Color.Transparent
Me.Label8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.Black
Me.Label8.Location = New System.Drawing.Point(524, 44)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(112, 17)
Me.Label8.TabIndex = 17
Me.Label8.Text = "Abfertigungs-Nr:"
'
'txtAbfNr
'
Me.txtAbfNr._DateTimeOnly = False
Me.txtAbfNr._numbersOnly = True
Me.txtAbfNr._numbersOnlyKommastellen = ""
Me.txtAbfNr._numbersOnlyTrennzeichen = False
Me.txtAbfNr._Prozent = False
Me.txtAbfNr._ShortDateNew = False
Me.txtAbfNr._ShortDateOnly = False
Me.txtAbfNr._TimeOnly = False
Me.txtAbfNr._TimeOnly_Seconds = False
Me.txtAbfNr._value = ""
Me.txtAbfNr._Waehrung = False
Me.txtAbfNr._WaehrungZeichen = False
Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbfNr.ForeColor = System.Drawing.Color.Black
Me.txtAbfNr.Location = New System.Drawing.Point(654, 40)
Me.txtAbfNr.MaxLength = 10
Me.txtAbfNr.MaxLineLength = -1
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.TabIndex = 18
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.Transparent
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, 44)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(30, 17)
Me.Label9.TabIndex = 19
Me.Label9.Text = "VZ:"
'
'txtVZ
'
Me.txtVZ._DateTimeOnly = False
Me.txtVZ._numbersOnly = True
Me.txtVZ._numbersOnlyKommastellen = ""
Me.txtVZ._numbersOnlyTrennzeichen = True
Me.txtVZ._Prozent = False
Me.txtVZ._ShortDateNew = False
Me.txtVZ._ShortDateOnly = False
Me.txtVZ._TimeOnly = False
Me.txtVZ._TimeOnly_Seconds = False
Me.txtVZ._value = ""
Me.txtVZ._Waehrung = True
Me.txtVZ._WaehrungZeichen = True
Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVZ.ForeColor = System.Drawing.Color.Black
Me.txtVZ.Location = New System.Drawing.Point(865, 38)
Me.txtVZ.MaxLength = 10
Me.txtVZ.MaxLineLength = -1
Me.txtVZ.MaxLines_Warning = ""
Me.txtVZ.MaxLines_Warning_Label = Nothing
Me.txtVZ.Name = "txtVZ"
Me.txtVZ.Size = New System.Drawing.Size(100, 23)
Me.txtVZ.TabIndex = 20
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.BackColor = System.Drawing.Color.Transparent
Me.Label11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.Black
Me.Label11.Location = New System.Drawing.Point(10, 47)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(74, 17)
Me.Label11.TabIndex = 21
Me.Label11.Text = "Steuer-Nr:"
'
'txtStNr
'
Me.txtStNr._DateTimeOnly = False
Me.txtStNr._numbersOnly = False
Me.txtStNr._numbersOnlyKommastellen = ""
Me.txtStNr._numbersOnlyTrennzeichen = False
Me.txtStNr._Prozent = False
Me.txtStNr._ShortDateNew = False
Me.txtStNr._ShortDateOnly = False
Me.txtStNr._TimeOnly = False
Me.txtStNr._TimeOnly_Seconds = False
Me.txtStNr._value = ""
Me.txtStNr._Waehrung = False
Me.txtStNr._WaehrungZeichen = False
Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtStNr.ForeColor = System.Drawing.Color.Black
Me.txtStNr.Location = New System.Drawing.Point(101, 44)
Me.txtStNr.MaxLength = 10
Me.txtStNr.MaxLineLength = -1
Me.txtStNr.MaxLines_Warning = ""
Me.txtStNr.MaxLines_Warning_Label = Nothing
Me.txtStNr.Name = "txtStNr"
Me.txtStNr.Size = New System.Drawing.Size(100, 23)
Me.txtStNr.TabIndex = 22
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -986,4 +1184,14 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents cbxWahrung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWahrung As Label
Friend WithEvents lblWarnung As Label
Friend WithEvents Label11 As Label
Friend WithEvents txtStNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As Label
Friend WithEvents txtVZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents cbxFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtBezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

65
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -231,6 +231,12 @@ Public Class frmMDM_USTVAntrag
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
cbxFiliale.changeItem(If(USTV_ANTRAG.FilialenNr, ""))
cbxWahrung.changeItem(If(USTV_ANTRAG.UStVAn_Währungscode, ""))
End Sub
Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag, Optional ADR As cAdressen = Nothing, Optional FIRMA As cFirmen = Nothing)
@@ -253,6 +259,31 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_3470 = Nothing
End If
If txtVZ.Text <> "" AndAlso IsNumeric(txtVZ.Text) Then
USTV_ANTRAG.UStVAn_RZBetragVZ = CDbl(txtVZ.Text)
Else
USTV_ANTRAG.UStVAn_RZBetragVZ = Nothing
End If
If txtBezugsNr.Text <> "" Then
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr
Else
USTV_ANTRAG.UStVAn_BezugsNr = ""
End If
If txtAbfNr.Text <> "" Then
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
Else
USTV_ANTRAG.AbfertigungsNr = ""
End If
If txtAbfNr.Text <> "" Then
USTV_ANTRAG.AbfertigungsNr = txtAbfNr
Else
USTV_ANTRAG.AbfertigungsNr = ""
End If
If ADR IsNot Nothing Then
USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
USTV_ANTRAG.UStVAn_Name = ADR.Name_1
@@ -328,20 +359,31 @@ Public Class frmMDM_USTVAntrag
cboAntragArt.changeItem("MWST")
cbxWahrung.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].Währungscode FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE ((([Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren)=1)) GROUP BY [Länderverzeichnis für die Außenhandelsstatistik].Währungscode
ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].Währungscode", False, "FMZOLL", True)
cboAntragArt.changeItem(" ")
cbxFiliale.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE Filialen.FilialenNr>=4800 AND Filialen.Fil_Status='A' ORDER BY Filialen.FilialenNr",, "FMZOLL", True)
cboAntragArt.changeItem(" ")
lbl_EintrageVerarbetiet.Text = ""
If UStVAn_ID > 0 Then
cbxWahrung.Enabled = False
KdSearchBox1.Visible = False
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
setValue(USTV_ANTRAG)
Else
Dim sqlWhere As String = ""
'neuer USTVA-Antrag
KdSearchBox1.Visible = True
cbxWahrung.Enabled = True
KdSearchBox1.initKdBox(Me)
@@ -357,7 +399,7 @@ Public Class frmMDM_USTVAntrag
lblFirma.Text = ADR.Name_1
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
cbxLand.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And (tblSteuernummern.AdressenNr)=" & KdSearchBox1.KdNr & " And tblSteuernummern.UStV = 1
group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -375,20 +417,18 @@ Public Class frmMDM_USTVAntrag
End If
cbxLand.Visible = True
cbxLand.DataSource = SQL.loadCboBySqlWithListItem("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
cbxLand.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz
FROM [Länderverzeichnis für die Außenhandelsstatistik] INNER JOIN tblSteuernummern On [Länderverzeichnis für die Außenhandelsstatistik].LandNr = tblSteuernummern.LandNr
WHERE[Länderverzeichnis für die Außenhandelsstatistik].Umsatzsteuervergütungsverfahren = 1 And tblSteuernummern.UStV = 1 " & sqlWhere &
"group by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr
order by [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandNr", False, "FMZOLL")
cbxLand.changeItem(Antrag_LandKz)
'lblKdNr.Text = KdSearchBox1.KdNr
'lblFirma.Text = IIf(KdSearchBox1.KdName Is Nothing, "", KdSearchBox1.KdName)
txtVon._value = von
txtBis._value = bis
If Antrag_LandKz <> cbxLand.SelectedValue.ToString Then
If cbxLand.SelectedValue IsNot Nothing AndAlso Antrag_LandKz <> cbxLand.SelectedValue.ToString Then
lblWarnung.Text = "keine StNr für " & Antrag_LandKz
Else
lblWarnung.Text = ""
@@ -534,6 +574,9 @@ Public Class frmMDM_USTVAntrag
If GET_Antraege IsNot Nothing Then
Return True
For Each ANTRAG In GET_Antraege
Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
@@ -760,6 +803,8 @@ Public Class frmMDM_USTVAntrag
If GET_Antraege Then
Return True
For Each r As DataRow In dt.Rows
Dim kdNr = r.Item("customer_id")
@@ -780,7 +825,7 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_Zeitstempel = Now()
' Berechnungen
'von MSE bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
'von MSE bekommen wir Fremdwährung und EUR, d.b. wir können den Umrechnungskurs selbst berechnen!
Dim umrechKurs As Double = 1
Dim UST_EUR = CDbl(r.Item("UST_EUR"))
@@ -1267,10 +1312,6 @@ Public Class frmMDM_USTVAntrag
End If
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
@@ -1390,7 +1431,7 @@ Public Class frmMDM_USTVAntrag
Private Sub dgvUSTVPositionen_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUSTVPositionen.CellContentDoubleClick
Try
If e.RowIndex >= 0 AndAlso e.ColumnIndex = 17 Then
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
Dim schnnittstellenNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value

58
SDL/USTV/frmUSTVoffeneAntraege.Designer.vb generated
View File

@@ -23,9 +23,9 @@ Partial Class frmUSTVoffeneAntraege
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btn = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
@@ -236,6 +236,8 @@ Partial Class frmUSTVoffeneAntraege
'
Me.cbxAlleoffenen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxAlleoffenen.AutoSize = True
Me.cbxAlleoffenen.Checked = True
Me.cbxAlleoffenen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAlleoffenen.Location = New System.Drawing.Point(1137, 62)
Me.cbxAlleoffenen.Name = "cbxAlleoffenen"
Me.cbxAlleoffenen.Size = New System.Drawing.Size(128, 17)
@@ -396,34 +398,34 @@ Partial Class frmUSTVoffeneAntraege
Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.MyDatagridview1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.MyDatagridview1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
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.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
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.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle2
Me.MyDatagridview1.Location = New System.Drawing.Point(12, 98)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
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.MyDatagridview1.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
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.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.MyDatagridview1.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.MyDatagridview1.RowHeadersWidth = 62
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1409, 528)
@@ -433,6 +435,8 @@ Partial Class frmUSTVoffeneAntraege
'
Me.cbxSteuerNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbxSteuerNr.AutoSize = True
Me.cbxSteuerNr.Checked = True
Me.cbxSteuerNr.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxSteuerNr.Location = New System.Drawing.Point(1137, 78)
Me.cbxSteuerNr.Name = "cbxSteuerNr"
Me.cbxSteuerNr.Size = New System.Drawing.Size(105, 17)

15
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -92,9 +92,11 @@ Public Class frmUSTVoffeneAntraege
sqlwhere &= " and plose_POLSEKundennummer = " & kdnr
End If
.SET_SQL("select " & top & " plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_Lieferant],[plose_RechnungsDatum],[plose_RechnungsNr], sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
.SET_SQL("select " & top & " plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_Lieferant],[plose_RechnungsDatum],[plose_RechnungsNr],plp_Land, sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details]
INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwhere &
"group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant]
"group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant], plp_Land
having sum(plose_MWSTBetrag)>0", "FMZOLL")
.LOAD()
If .Columns.Count > 0 Then
@@ -104,6 +106,7 @@ Public Class frmUSTVoffeneAntraege
.Columns("plose_Lieferant").HeaderText = "PLOSE-Lieferant"
.Columns("plose_RechnungsDatum").HeaderText = "RE-Datum"
.Columns("plose_RechnungsNr").HeaderText = "RE-Nr"
.Columns("plp_Land").HeaderText = "Land"
.Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("plose_MWSTBetrag").HeaderText = "MWST"
@@ -447,14 +450,15 @@ Public Class frmUSTVoffeneAntraege
'PLOSE' as Lieferant,
plose_POLSEKundennummer as KdNr,
Adressen.[Name 1] as Kundenname,
'' as Land,
plp_Land as Land,
[plose_RechnungsDatum] AS Rechnungsdatum,
sum([plose_MWSTBetrag]) as MWST
FROM [tblPLOSE_Details]
INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND
cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwherePLOSE & "
group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum]
group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],plp_Land
having sum(plose_MWSTBetrag)>0
UNION ALL
@@ -617,7 +621,7 @@ Public Class frmUSTVoffeneAntraege
initLieferant("IDS", sender)
End Sub
Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged, cbxSteuerNr.CheckedChanged
Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged, cbxSteuerNr.CheckedChanged, cbxNichtEroeffneteAntraege.CheckedChanged
init()
End Sub
@@ -703,5 +707,4 @@ Public Class frmUSTVoffeneAntraege
End Sub
End Class

3
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1,7 +1,4 @@
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports GrapeCity.DataVisualization.Options
Imports MDM_Worker
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN

33
SDL/kunden/usrCntlCBAM.vb
View File

@@ -59,9 +59,17 @@ Public Class usrCntlCBAM
and eza_VertretungsVerhaeltnisCode=2
"
Else
'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
'SQLSTR &= "
' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
' "
'korrigierte Query:
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and EXISTS (SELECT 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId = eza_Id AND [ezaAd_AdressTyp] = 'CN' AND isnull([ezaAd_NameFirma1], [ezaAd_TeilnehmerEORI]) ='" & EORI & "')
"
End If
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
@@ -389,8 +397,14 @@ Public Class usrCntlCBAM
and eza_VertretungsVerhaeltnisCode=2
"
Else
'Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
'SQLSTR &= "
' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
' "
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
"
End If
@@ -466,9 +480,15 @@ Public Class usrCntlCBAM
and eza_VertretungsVerhaeltnisCode=2
"
Else
'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
'SQLSTR &= "
' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
' "
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' and isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
"
End If
If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")"
@@ -570,8 +590,13 @@ Public Class usrCntlCBAM
and eza_VertretungsVerhaeltnisCode=2
"
Else
''Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird.
'SQLSTR &= "
' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
' "
SQLSTR &= "
and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "'
and EXISTS(select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "')
"
End If

2
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -554,7 +554,7 @@ Public Class frmMDMDatenverarbetiung
sqlstr &= "SELECT Adressen.AdressenNr, Adressen.[Name 1] as Name, tblIDSTransactionsNew.[CustomerCode], Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.AmminclVAT) AS Brutto, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Netto, Sum(tblIDSTransactionsNew.Rabattbetrag) AS Rabatt
FROM ((tblIDSTransactionsNew INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode) INNER JOIN tbl_IDS_Produkte ON tblIDSTransactionsNew.[ProductTypeCode] = tbl_IDS_Produkte.ProductTypeCode) INNER JOIN Adressen ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
WHERE tblIDSTransactionsNew.[OutletCountryCode]" & sqlwhere &
WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[OutletCountryCode]" & sqlwhere &
"GROUP BY Adressen.AdressenNr, Adressen.[Name 1], tblIDSTransactionsNew.[CustomerCode];"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -1376,7 +1376,7 @@ Public Class cMSEAPI
cmd.Parameters.AddWithValue("@von", von)
cmd.Parameters.AddWithValue("@bis", bis)
cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, "=", "<>"))
Dim dr = cmd.ExecuteReader()
dt.Load(dr)