Datumsabfrage, Sammelrechnunsdruck, offeneAnrtaege, etc.
This commit is contained in:
@@ -1,8 +1,4 @@
|
||||
Imports com.sun.tools.javadoc
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports GrapeCity.Viewer.Common.Model
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
Public Class frmFaktSammelRgDrucken
|
||||
|
||||
|
||||
@@ -1237,13 +1237,14 @@ Public Class usrCntlUSTV
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
Dim laenderausnahmen = f.exceptedCountries
|
||||
|
||||
Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz as KundeLand, A.Ordnungsbegriff,L.LandKz as SteuerLandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
|
||||
CASE
|
||||
WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0
|
||||
END AS Gültig
|
||||
FROM [Länderverzeichnis für die Außenhandelsstatistik] L INNER JOIN (Adressen A INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) ON L.LandNr = S.LandNr
|
||||
WHERE S.StNrGültigkeitsdatum IS NOT NULL AND W.MitgliedslandEU = 0 " & IIf(sqlKunde <> "", sqlKunde, "") & IIf(f.cbxKunden.Checked, " AND A.AdressenNr between " & f.cboKundenkreis._value.Replace("-", " AND "), "")
|
||||
WHERE S.StNrGültigkeitsdatum IS NOT NULL AND W.MitgliedslandEU = 0 " & IIf(sqlKunde <> "", sqlKunde, "") & IIf(f.cbxKunden.Checked, " AND A.AdressenNr between " & f.cboKundenkreis._value.Replace("-", " AND "), "") & IIf(laenderausnahmen <> "", " AND L.LandKz NOT IN (" & laenderausnahmen & ")", "")
|
||||
|
||||
Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
|
||||
|
||||
|
||||
@@ -669,7 +669,7 @@ Public Class cIDS
|
||||
|
||||
Dim SQLstr = " "
|
||||
|
||||
If IsDate(reDatVon) AndAlso cDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso cDate(reDatBis) > "01.01.2020" Then
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
SQLstr &= "select Invoicenumber as RechnungsNr ,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt,daId 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 INNER JOIN tblKundenErweitert on Adressen.AdressenNr = kde_KundenNr where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) AND YearMonthDay >= '" & reDatVon.ToShortDateString & "' and YearMonthDay < '" & reDatBis.ToShortDateString & "'"
|
||||
Else
|
||||
SQLstr &= "select * from tblIDSInvoicesNew where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) AND Year(YearMonthDay) >= 2025"
|
||||
|
||||
72
VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb
generated
72
VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb
generated
@@ -26,6 +26,11 @@ Partial Class frmDatumsabfrage
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.lbLaender = New VERAG_PROG_ALLGEMEIN.MyListBox()
|
||||
Me.btnKeine = New System.Windows.Forms.Button()
|
||||
Me.btnAlle = New System.Windows.Forms.Button()
|
||||
Me.pnlKunde = New System.Windows.Forms.Panel()
|
||||
Me.cbxKunden = New System.Windows.Forms.CheckBox()
|
||||
Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
@@ -35,13 +40,17 @@ Partial Class frmDatumsabfrage
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
Me.MyPanel2.SuspendLayout()
|
||||
Me.pnlKunde.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.AutoSize = True
|
||||
Me.MyPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.MyPanel1.BackColor = System.Drawing.Color.White
|
||||
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.MyPanel1.Controls.Add(Me.MyPanel2)
|
||||
Me.MyPanel1.Controls.Add(Me.pnlKunde)
|
||||
Me.MyPanel1.Controls.Add(Me.dtp_date)
|
||||
Me.MyPanel1.Controls.Add(Me.btnClose)
|
||||
@@ -54,6 +63,60 @@ Partial Class frmDatumsabfrage
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(286, 84)
|
||||
Me.MyPanel1.TabIndex = 3
|
||||
'
|
||||
'MyPanel2
|
||||
'
|
||||
Me.MyPanel2.AutoSize = True
|
||||
Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.MyPanel2.Controls.Add(Me.Label2)
|
||||
Me.MyPanel2.Controls.Add(Me.lbLaender)
|
||||
Me.MyPanel2.Controls.Add(Me.btnKeine)
|
||||
Me.MyPanel2.Controls.Add(Me.btnAlle)
|
||||
Me.MyPanel2.Location = New System.Drawing.Point(3, 82)
|
||||
Me.MyPanel2.Name = "MyPanel2"
|
||||
Me.MyPanel2.Size = New System.Drawing.Size(253, 364)
|
||||
Me.MyPanel2.TabIndex = 49
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(22, 3)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label2.TabIndex = 50
|
||||
Me.Label2.Text = "Länder"
|
||||
'
|
||||
'lbLaender
|
||||
'
|
||||
Me.lbLaender._value = ""
|
||||
Me.lbLaender.FormattingEnabled = True
|
||||
Me.lbLaender.Location = New System.Drawing.Point(25, 16)
|
||||
Me.lbLaender.Name = "lbLaender"
|
||||
Me.lbLaender.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
|
||||
Me.lbLaender.Size = New System.Drawing.Size(225, 316)
|
||||
Me.lbLaender.TabIndex = 46
|
||||
'
|
||||
'btnKeine
|
||||
'
|
||||
Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnKeine.Location = New System.Drawing.Point(150, 338)
|
||||
Me.btnKeine.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnKeine.Name = "btnKeine"
|
||||
Me.btnKeine.Size = New System.Drawing.Size(100, 26)
|
||||
Me.btnKeine.TabIndex = 47
|
||||
Me.btnKeine.Text = "Keine"
|
||||
Me.btnKeine.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAlle
|
||||
'
|
||||
Me.btnAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAlle.Location = New System.Drawing.Point(25, 338)
|
||||
Me.btnAlle.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnAlle.Name = "btnAlle"
|
||||
Me.btnAlle.Size = New System.Drawing.Size(100, 26)
|
||||
Me.btnAlle.TabIndex = 48
|
||||
Me.btnAlle.Text = "Alle"
|
||||
Me.btnAlle.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnlKunde
|
||||
'
|
||||
Me.pnlKunde.Controls.Add(Me.cbxKunden)
|
||||
@@ -149,6 +212,7 @@ Partial Class frmDatumsabfrage
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSize = True
|
||||
Me.ClientSize = New System.Drawing.Size(286, 84)
|
||||
Me.Controls.Add(Me.MyPanel1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
@@ -157,9 +221,12 @@ Partial Class frmDatumsabfrage
|
||||
Me.Text = "frmDatumsabfrage"
|
||||
Me.MyPanel1.ResumeLayout(False)
|
||||
Me.MyPanel1.PerformLayout()
|
||||
Me.MyPanel2.ResumeLayout(False)
|
||||
Me.MyPanel2.PerformLayout()
|
||||
Me.pnlKunde.ResumeLayout(False)
|
||||
Me.pnlKunde.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -172,4 +239,9 @@ Partial Class frmDatumsabfrage
|
||||
Friend WithEvents pnlKunde As Panel
|
||||
Public WithEvents cboKundenkreis As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Public WithEvents cbxKunden As CheckBox
|
||||
Friend WithEvents btnAlle As Button
|
||||
Friend WithEvents lbLaender As MyListBox
|
||||
Friend WithEvents btnKeine As Button
|
||||
Friend WithEvents MyPanel2 As MyPanel
|
||||
Friend WithEvents Label2 As Label
|
||||
End Class
|
||||
|
||||
@@ -1,10 +1,10 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports GrapeCity.Viewer.Common.Model
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmDatumsabfrage
|
||||
Dim onlypastDate As Boolean = True
|
||||
Dim panelKunde As Boolean = False
|
||||
Dim panelLaender As Boolean = False
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
@@ -31,9 +31,13 @@ Public Class frmDatumsabfrage
|
||||
onlypastDate = _onlypastDate
|
||||
lbl.Text = title
|
||||
panelKunde = _mitKundengruppe
|
||||
panelLaender = _mitKundengruppe
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Datum As Date = CDate(Now.ToShortDateString)
|
||||
Public exceptedCountries As String
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
Label1.Text = ""
|
||||
|
||||
@@ -43,6 +47,9 @@ Public Class frmDatumsabfrage
|
||||
Exit Sub
|
||||
End If
|
||||
Datum = CDate(dtp_date.Value)
|
||||
If panelLaender Then
|
||||
exceptedCountries = getValues()
|
||||
End If
|
||||
Me.DialogResult = DialogResult.OK
|
||||
End Sub
|
||||
|
||||
@@ -54,12 +61,26 @@ Public Class frmDatumsabfrage
|
||||
|
||||
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
|
||||
Datum = CDate(Now.ToShortDateString)
|
||||
|
||||
If panelLaender Then
|
||||
exceptedCountries = getValues()
|
||||
End If
|
||||
|
||||
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDatumsabfrage(sender As Object, e As EventArgs) Handles Me.Load
|
||||
dtp_date.Value = Now.ToShortDateString
|
||||
pnlKunde.Visible = panelKunde
|
||||
MyPanel2.Visible = panelLaender
|
||||
|
||||
If panelLaender Then
|
||||
Me.Height = 462
|
||||
Else
|
||||
Me.Height = 84
|
||||
End If
|
||||
|
||||
If panelKunde Then
|
||||
|
||||
cboKundenkreis.Items.Clear()
|
||||
@@ -74,10 +95,42 @@ Public Class frmDatumsabfrage
|
||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 400000-499999: YU - KUNDEN", "400000-499999"))
|
||||
End If
|
||||
|
||||
If panelLaender Then
|
||||
lbLaender.fillWithSQL(" select L.LandKz, L.LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] L
|
||||
INNER JOIN (Adressen A INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) ON L.LandNr = S.LandNr
|
||||
WHERE S.StNrGültigkeitsdatum IS NOT NULL AND W.MitgliedslandEU = 0 GROUP BY L.LandBez, L.LandKz
|
||||
order by L.LandBez ", , "FMZOLL")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxKunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKunden.CheckedChanged
|
||||
cboKundenkreis.Enabled = cbxKunden.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub btnAlle_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
|
||||
For i = 0 To lbLaender.Items.Count - 1
|
||||
lbLaender.SetSelected(i, True)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub btnKeine_Click(sender As Object, e As EventArgs) Handles btnKeine.Click
|
||||
For i = 0 To lbLaender.Items.Count - 1
|
||||
lbLaender.SetSelected(i, False)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Function getValues() As String
|
||||
Dim s As String = ""
|
||||
|
||||
For Each i As VERAG_PROG_ALLGEMEIN.MyListItem In lbLaender.Items
|
||||
If Not lbLaender.GetSelected(lbLaender.Items.IndexOf(i)) Then
|
||||
s += "'" & i.Value & "', "
|
||||
End If
|
||||
Next
|
||||
If s.EndsWith(", ") Then
|
||||
s = s.Substring(0, s.Length - 2)
|
||||
End If
|
||||
Return s
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user