710 lines
29 KiB
VB.net
710 lines
29 KiB
VB.net
Imports System.Windows.Documents
|
|
Imports com.sun.org.apache.bcel.internal.generic
|
|
Imports GrapeCity.ActiveReports.FormattedText.Layout.Utils
|
|
Imports jdk.nashorn.internal.objects.annotations
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmUSTVoffeneAntraege
|
|
|
|
Public LIEFERANT = ""
|
|
Dim datumBis As Date = Nothing
|
|
Dim datumVon As Date = Nothing
|
|
Dim kdNr As Integer = -1
|
|
Dim kdName As String
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
initLieferant("PLOSE", sender)
|
|
End Sub
|
|
|
|
Sub New(datumVon_ As Date, datumBis_ As Date)
|
|
datumVon = datumVon_
|
|
datumBis = datumBis_
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
dat_Sum_Von.Value = datumVon
|
|
dat_Sum_Bis.Value = datumBis
|
|
|
|
End Sub
|
|
|
|
Sub New(datumVon_ As Date, datumBis_ As Date, kdnr_ As Integer, kdName_ As String)
|
|
datumVon = datumVon_
|
|
datumBis = datumBis_
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
dat_Sum_Von.Value = datumVon
|
|
dat_Sum_Bis.Value = datumBis
|
|
kdNr = kdnr_
|
|
kdName = kdName_
|
|
|
|
lblKunde.Text = kdNr & " " & kdName
|
|
End Sub
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
lblKunde.Text = " "
|
|
|
|
End Sub
|
|
|
|
Private Sub initLieferant(l As String, btn As Button)
|
|
|
|
pnlLand.Visible = False
|
|
|
|
MyDatagridview1.DataSource = Nothing
|
|
Me.LIEFERANT = l
|
|
|
|
For Each c As Button In FlowLayoutPanel.Controls
|
|
If c Is btn Then
|
|
c.BackColor = Color.Wheat
|
|
Else
|
|
c.BackColor = Color.FloralWhite
|
|
End If
|
|
Next
|
|
|
|
pnlLand.Visible = Me.LIEFERANT = "alle"
|
|
|
|
init()
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_PLOSE(anz As Integer, Optional kdnr As Integer = -1)
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
|
|
|
|
Dim top = ""
|
|
If anz > 0 Then top = "TOP (" & anz & ")"
|
|
|
|
Dim sqlwhere = ""
|
|
|
|
If kdnr > 0 Then
|
|
sqlwhere &= " and plose_POLSEKundennummer = " & kdnr
|
|
End If
|
|
|
|
.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], plp_Land
|
|
having sum(plose_MWSTBetrag)>0", "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("plose_POLSEKundennummer").HeaderText = "KdNr"
|
|
.Columns("Name 1").HeaderText = "Kunde"
|
|
.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"
|
|
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
For Each r As DataGridViewRow In .Rows
|
|
sumMwSt += If(IsNumeric(r.Cells("plose_MWSTBetrag").Value), CDbl(r.Cells("plose_MWSTBetrag").Value), 0)
|
|
Next
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
.ClearSelection()
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_RMC(anz As Integer, Optional kdnr As Integer = -1)
|
|
|
|
Dim top = ""
|
|
If anz > 0 Then top = "TOP (" & anz & ")"
|
|
|
|
Dim sqlwhere = ""
|
|
|
|
If kdnr > 0 Then
|
|
sqlwhere &= " and rmc_kdNr = " & kdnr
|
|
End If
|
|
|
|
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
'Exit Sub
|
|
'MsgBox(.sql)
|
|
Dim sqlstring = "Select " & top & " [rmc_kdNr], [rmc_kdName], [rmc_landKZ], [rmc_reDatum], [rmc_reNr], [rmc_waehrung], [rmc_betragMWST],rmc_daid as daId FROM [tblRMCImport]
|
|
where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And rmc_archiv <> 1 " & sqlwhere &
|
|
"group by rmc_reDatum, rmc_kdNr,[rmc_kdName], [rmc_landKZ],[rmc_reNr], [rmc_waehrung], [rmc_betragMWST], rmc_daid having [rmc_betragMWST] > 0"
|
|
|
|
.SET_SQL(sqlstring, "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("rmc_kdNr").HeaderText = "KdNr"
|
|
.Columns("rmc_kdName").HeaderText = "Kunde"
|
|
.Columns("rmc_landKZ").HeaderText = "Land"
|
|
.Columns("rmc_reDatum").HeaderText = "RE-Datum"
|
|
.Columns("rmc_reNr").HeaderText = "RE-Nr"
|
|
.Columns("rmc_betragMWST").HeaderText = "MWSt"
|
|
.Columns("rmc_waehrung").HeaderText = "Währung"
|
|
.Columns("daId").Visible = False
|
|
.Columns("rmc_kdName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
|
|
Dim c As New DataGridViewImageColumn
|
|
c.Name = "clmnPDF" : c.HeaderText = "RE"
|
|
' c.Image = Nothing
|
|
c.DefaultCellStyle.NullValue = Nothing
|
|
c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
'c.DefaultCellStyle.Tag = "Therefore anzeigen"
|
|
|
|
If Not .Columns.Contains("clmnPDF") Then .Columns.Add(c)
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
sumMwSt += If(IsNumeric(r.Cells("rmc_betragMWST").Value), CDbl(r.Cells("rmc_betragMWST").Value), 0)
|
|
|
|
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
Next
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_MSE(anz As Integer, Optional kdnr As Integer = -1)
|
|
|
|
Dim top = ""
|
|
If anz > 0 Then top = "TOP (" & anz & ")"
|
|
Dim sqlwhere = ""
|
|
|
|
If kdnr > 0 Then
|
|
sqlwhere &= " and partner_customer_number = " & kdnr
|
|
End If
|
|
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
'Exit Sub
|
|
'MsgBox(.sql)
|
|
Dim sqlstring = "Select " & top & " customer_number, customer_name, country, invoice_date, invoice_id, sum(total_amount_euro) as total_amount_euro, sum(total_vat_amount_euro) as total_vat_amount_euro, daId FROM [VERAG].[dbo].[tblMSEInvoices] inner join [tblMSECustomers] on [customer_number] = [customer_id]
|
|
where cast(invoice_date As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And imported <> 1 " & sqlwhere &
|
|
"group by invoice_date, customer_number,customer_name, country, invoice_id, daId "
|
|
|
|
.SET_SQL(sqlstring, "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("customer_number").HeaderText = "KdNr"
|
|
.Columns("customer_name").HeaderText = "Kunde"
|
|
.Columns("country").HeaderText = "Land"
|
|
.Columns("invoice_date").HeaderText = "RE-Datum"
|
|
.Columns("invoice_id").HeaderText = "RE-Nr"
|
|
.Columns("total_amount_euro").HeaderText = "Gesamtsumme Euro"
|
|
.Columns("total_vat_amount_euro").HeaderText = "MWSt Euro"
|
|
.Columns("daId").Visible = False
|
|
.Columns("customer_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
|
|
Dim c As New DataGridViewImageColumn
|
|
c.Name = "clmnPDF" : c.HeaderText = "RE"
|
|
' c.Image = Nothing
|
|
c.DefaultCellStyle.NullValue = Nothing
|
|
c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
'c.DefaultCellStyle.Tag = "Therefore anzeigen"
|
|
|
|
If Not .Columns.Contains("clmnPDF") Then .Columns.Add(c)
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
sumMwSt += If(IsNumeric(r.Cells("total_vat_amount_euro").Value), CDbl(r.Cells("total_vat_amount_euro").Value), 0)
|
|
|
|
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
|
|
Next
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_UTA(anz As Integer, Optional kdnr As Integer = -1)
|
|
|
|
Dim top = ""
|
|
If anz > 0 Then top = "TOP (" & anz & ")"
|
|
|
|
Dim sqlwhere = ""
|
|
If kdnr > 0 Then
|
|
sqlwhere &= " and Kundennummer = " & kdnr
|
|
End If
|
|
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
'Exit Sub
|
|
'MsgBox(.sql)
|
|
Dim sqlstring = "Select " & top & " [Kundennummer],Adressen.[Name 1], [Lieferland_ISO2], [Rechnungsdatum], [Abrechnungsnummer], sum([Gesamtbetrag_Brutto_in_Darstellwährung]) as [Gesamtbetrag_Brutto_in_Darstellwährung], sum([Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]) as [Gesamtbetrag_Umsatzsteuer_in_Darstellwährung], daId
|
|
FROM [tblUTAImportNew]
|
|
INNER JOIN Adressen on Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
|
|
where cast([Rechnungsdatum] As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And [archiv] <> 1 " & sqlwhere &
|
|
" group by Kundennummer,Adressen.[Name 1],[Rechnungsdatum], [Lieferland_ISO2], [Abrechnungsnummer], daId "
|
|
|
|
.SET_SQL(sqlstring, "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("Kundennummer").HeaderText = "KdNr"
|
|
.Columns("Name 1").HeaderText = "Kunde"
|
|
.Columns("Lieferland_ISO2").HeaderText = "Land"
|
|
.Columns("Rechnungsdatum").HeaderText = "RE-Datum"
|
|
.Columns("Abrechnungsnummer").HeaderText = "RE-Nr"
|
|
.Columns("Gesamtbetrag_Brutto_in_Darstellwährung").HeaderText = "Gesamtsumme Euro"
|
|
.Columns("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").HeaderText = "MWSt Euro"
|
|
.Columns("daId").Visible = False
|
|
.Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
|
|
Dim c As New DataGridViewImageColumn
|
|
c.Name = "clmnPDF" : c.HeaderText = "RE"
|
|
' c.Image = Nothing
|
|
c.DefaultCellStyle.NullValue = Nothing
|
|
c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
'c.DefaultCellStyle.Tag = "Therefore anzeigen"
|
|
|
|
.Columns.Add(c)
|
|
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
sumMwSt += If(IsNumeric(r.Cells("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").Value), CDbl(r.Cells("Gesamtbetrag_Umsatzsteuer_in_Darstellwährung").Value), 0)
|
|
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
Next
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_IDS(anz As Integer, Optional kdnr As Integer = -1)
|
|
|
|
Dim top = ""
|
|
If anz > 0 Then top = "TOP (" & anz & ")"
|
|
|
|
Dim sqlwhere = ""
|
|
If kdnr > 0 Then
|
|
sqlwhere &= " and tblIDSTransactionsNew.KdNrVERAG = " & kdnr
|
|
End If
|
|
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
'Exit Sub
|
|
'MsgBox(.sql)
|
|
Dim sqlstring = "SELECT " & top & "
|
|
tblIDSTransactionsNew.KdNrVERAG,
|
|
Adressen.[Name 1],
|
|
tbl_IDS_Länder.OutletCountry as Land,
|
|
tblIDSTransactionsNew.[YearMonthDay] AS Rechnungsdatum,
|
|
ISNULL(tblIDSTransactionsNew.[OBONumber],ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) AS Rechnungsnummer,
|
|
SUM(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag,
|
|
isNULL(tblIDSInvoicesNew.daId,0) as daId
|
|
FROM
|
|
tblIDSTransactionsNew
|
|
INNER JOIN
|
|
tbl_IDS_Länder
|
|
ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
|
|
INNER JOIN
|
|
Adressen on Adressen.AdressenNr = tblIDSTransactionsNew.KdNrVERAG
|
|
LEFT JOIN
|
|
tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber
|
|
WHERE
|
|
tblIDSTransactionsNew.[YearMonthDay] BETWEEN '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' " & sqlwhere & "
|
|
AND tblIDSTransactionsNew.[VATAmount] <> 0
|
|
AND tblIDSTransactionsNew.UStVAn_ID IS NULL
|
|
GROUP BY
|
|
tblIDSTransactionsNew.KdNrVERAG,
|
|
Adressen.[Name 1],
|
|
tbl_IDS_Länder.OutletCountry,
|
|
tblIDSTransactionsNew.[YearMonthDay],
|
|
ISNULL(tblIDSTransactionsNew.[OBONumber],
|
|
ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])),
|
|
tblIDSInvoicesNew.daId
|
|
ORDER BY
|
|
tblIDSTransactionsNew.KdNrVERAG,
|
|
tblIDSTransactionsNew.[YearMonthDay],
|
|
ISNULL(tblIDSTransactionsNew.[OBONumber],
|
|
ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber]));"
|
|
.SET_SQL(sqlstring, "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("KdNrVERAG").HeaderText = "KdNr"
|
|
.Columns("Name 1").HeaderText = "Kunde"
|
|
.Columns("Land").HeaderText = "Land"
|
|
.Columns("Rechnungsdatum").HeaderText = "RE-Datum"
|
|
.Columns("Rechnungsnummer").HeaderText = "RE-Nr"
|
|
.Columns("Steuerbetrag").HeaderText = "MWSt Euro"
|
|
.Columns("daId").Visible = False
|
|
.Columns("Name 1").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
|
|
Dim c As New DataGridViewImageColumn
|
|
c.Name = "clmnPDF" : c.HeaderText = "RE"
|
|
' c.Image = Nothing
|
|
c.DefaultCellStyle.NullValue = Nothing
|
|
c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
'c.DefaultCellStyle.Tag = "Therefore anzeigen"
|
|
|
|
If Not .Columns.Contains("clmnPDF") Then .Columns.Add(c)
|
|
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
sumMwSt += If(IsNumeric(r.Cells("Steuerbetrag").Value), CDbl(r.Cells("Steuerbetrag").Value), 0)
|
|
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
Next
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initDgv_gesamt(anz As Integer, nichtEroeffneteAntraege As Boolean, Optional kdnr As Integer = -1)
|
|
|
|
Dim top = ""
|
|
'If anz > 0 Then top = "TOP (" & anz & ")"
|
|
|
|
Dim sqlwhereIDS = ""
|
|
Dim sqlwhereUTA = ""
|
|
Dim sqlwhereRMC = ""
|
|
Dim sqlwherePLOSE = ""
|
|
Dim sqlwhereMSE = ""
|
|
Dim sqlwhereLand = ""
|
|
Dim sqlwhereSteuerNr = ""
|
|
|
|
If kdnr > 0 Then
|
|
sqlwherePLOSE &= " and plose_POLSEKundennummer = " & kdnr
|
|
sqlwhereIDS &= " and tblIDSTransactionsNew.KdNrVERAG = " & kdnr
|
|
sqlwhereUTA &= " and Kundennummer = " & kdnr
|
|
sqlwhereRMC &= " and rmc_kdNr = " & kdnr
|
|
sqlwhereMSE &= " and partner_customer_number = " & kdnr
|
|
End If
|
|
|
|
If MyComboBox1._value <> "" Then
|
|
sqlwhereLand &= " and land = '" & MyComboBox1._value & "'"
|
|
End If
|
|
|
|
If cbxSteuerNr.Checked Then
|
|
sqlwhereSteuerNr &= " and isnull(tblSteuernummern.UStV,0) <> 0"
|
|
End If
|
|
|
|
If nichtEroeffneteAntraege Then
|
|
sqlwhereLand &= " and isnull(UStVAn_ID,0) = 0 "
|
|
End If
|
|
|
|
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
'Exit Sub
|
|
'MsgBox(.sql)
|
|
Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,tblSteuernummern.UStV as SteuerNr , KdNr, Kundenname, Land from ( select " & top & "
|
|
'PLOSE' as Lieferant,
|
|
plose_POLSEKundennummer as KdNr,
|
|
Adressen.[Name 1] as Kundenname,
|
|
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],plp_Land
|
|
having sum(plose_MWSTBetrag)>0
|
|
|
|
UNION ALL
|
|
|
|
Select " & top & "
|
|
'RMC' as Lieferant,
|
|
[rmc_kdNr] as KdNr,
|
|
[rmc_kdName] as Kundenname,
|
|
[rmc_landKZ] as Land,
|
|
[rmc_reDatum] AS Rechnungsdatum,
|
|
[rmc_betragMWST] as MWST
|
|
FROM [tblRMCImport]
|
|
where cast(rmc_reDatum As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "'
|
|
And UStVAn_ID is null " & sqlwhereRMC & "
|
|
group by rmc_reDatum, rmc_kdNr,[rmc_kdName], [rmc_landKZ],[rmc_reNr], [rmc_betragMWST]
|
|
having [rmc_betragMWST] > 0
|
|
|
|
UNION ALL
|
|
|
|
Select " & top & "
|
|
'UTA' as Lieferant,
|
|
Adressen.AdressenNr as KdNr,
|
|
Adressen.[Name 1] as Kundenname,
|
|
[Lieferland_ISO2] as Land,
|
|
[Rechnungsdatum] AS Rechnungsdatum,
|
|
sum([Gesamtbetrag_Umsatzsteuer_in_Darstellwährung]) as MWSt
|
|
FROM [tblUTAImportNew]
|
|
INNER JOIN Adressen on Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
|
|
where cast([Rechnungsdatum] As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' And [tblUTAImportNew].UStVAn_ID is null
|
|
" & sqlwhereUTA & "group by Adressen.AdressenNr, Kundennummer,Adressen.[Name 1],[Rechnungsdatum], [Lieferland_ISO2]
|
|
|
|
|
|
UNION ALL
|
|
|
|
Select " & top & "
|
|
'MSE' as Lieferant,
|
|
partner_customer_number as KdNr,
|
|
customer_name as Kundenname,
|
|
country as Land,
|
|
invoice_date AS Rechnungsdatum,
|
|
sum(total_vat_amount_euro) as MWST
|
|
FROM [VERAG].[dbo].[tblMSEInvoices] inner join [tblMSECustomers] on [customer_number] = [customer_id]
|
|
|
|
where cast(invoice_date As Date) between '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "'
|
|
|
|
And [UStVAn_ID] is null " & sqlwhereMSE & "
|
|
|
|
group by invoice_date, partner_customer_number,customer_name, country
|
|
|
|
UNION ALL
|
|
|
|
--IDS
|
|
SELECT " & top & "
|
|
'IDS' as Lieferant,
|
|
tblIDSTransactionsNew.KdNrVERAG as KdNr,
|
|
Adressen.[Name 1] as Kundenname,
|
|
tbl_IDS_Länder.Lieferland_ISO2 as Land,
|
|
cast(tblIDSTransactionsNew.[YearMonthDay] as date) AS Rechnungsdatum,
|
|
SUM(tblIDSTransactionsNew.[VATAmount]) AS MWST
|
|
FROM
|
|
tblIDSTransactionsNew
|
|
INNER JOIN
|
|
tbl_IDS_Länder
|
|
ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
|
|
INNER JOIN
|
|
Adressen on Adressen.AdressenNr = tblIDSTransactionsNew.KdNrVERAG
|
|
LEFT JOIN
|
|
tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber
|
|
WHERE
|
|
tblIDSTransactionsNew.[YearMonthDay] BETWEEN '" & dat_Sum_Von.Value & "' And '" & dat_Sum_Bis.Value & "' " & sqlwhereIDS & "
|
|
AND tblIDSTransactionsNew.[VATAmount] <> 0
|
|
AND tblIDSTransactionsNew.UStVAn_ID IS NULL
|
|
GROUP BY
|
|
tblIDSTransactionsNew.KdNrVERAG,
|
|
Adressen.[Name 1],
|
|
tbl_IDS_Länder.Lieferland_ISO2,
|
|
tblIDSTransactionsNew.[YearMonthDay] ) as temp
|
|
inner join tblKundenErweitert on temp.kdnr = kde_KundenNr
|
|
left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum
|
|
left JOIN tblSteuernummern On temp.Land = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr
|
|
where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr &
|
|
" group by isnull(UStVAn_ID,0) , KdNr, Kundenname, Land, tblSteuernummern.UStV"
|
|
|
|
.SET_SQL(sqlstring, "FMZOLL")
|
|
.LOAD()
|
|
If .Columns.Count > 0 Then
|
|
|
|
.Columns("KdNr").HeaderText = "KdNr"
|
|
.Columns("SteuerNr").HeaderText = "SteuerNr"
|
|
.Columns("Kundenname").HeaderText = "Kunde"
|
|
.Columns("Land").HeaderText = "Land"
|
|
.Columns("Kundenname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
|
|
End If
|
|
|
|
|
|
If kdnr > 0 Then
|
|
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
|
|
End If
|
|
|
|
Dim sumMwSt As Double = 0
|
|
If Not MyComboBox1._value <> "" Then
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
Dim list As New List(Of String)
|
|
For Each r As DataGridViewRow In .Rows
|
|
|
|
If r.Cells("Land").Value IsNot Nothing And r.Cells("Land").Value <> "" Then
|
|
|
|
If Not list.Any(Function(c) c = r.Cells("Land").Value) Then
|
|
list.Add(r.Cells("Land").Value)
|
|
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
For Each l In list
|
|
Dim listItem As New VERAG_PROG_ALLGEMEIN.MyListItem(l, l)
|
|
MyComboBox1.Items.Add(listItem)
|
|
Next
|
|
End If
|
|
|
|
|
|
txtAnzahl.Text = .Rows.Count
|
|
txtMWST.Text = sumMwSt
|
|
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub init()
|
|
Select Case LIEFERANT.ToString.ToLower
|
|
Case "plose" : initDgv_PLOSE(txtmaxAnz.Text, kdNr)
|
|
Case "rmc" : initDgv_RMC(txtmaxAnz.Text, kdNr)
|
|
Case "mse" : initDgv_MSE(txtmaxAnz.Text, kdNr)
|
|
Case "uta" : initDgv_UTA(txtmaxAnz.Text, kdNr)
|
|
Case "ids" : initDgv_IDS(txtmaxAnz.Text, kdNr)
|
|
Case "alle" : initDgv_gesamt(txtmaxAnz.Text, cbxNichtEroeffneteAntraege.Checked, IIf(cbxAlleoffenen.Checked, -1, kdNr))
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
initLieferant("RMC", sender)
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
initLieferant("UTA", sender)
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
initLieferant("MSE", sender)
|
|
End Sub
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
initLieferant("IDS", sender)
|
|
End Sub
|
|
|
|
Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged, cbxSteuerNr.CheckedChanged, cbxNichtEroeffneteAntraege.CheckedChanged
|
|
init()
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellContentDoubleClick
|
|
|
|
|
|
Try
|
|
|
|
If Not MyDatagridview1.Columns.Contains("daId") Then Exit Sub
|
|
|
|
If e.RowIndex >= 0 AndAlso e.ColumnIndex = 7 Then
|
|
Dim dsID = MyDatagridview1.Rows(e.RowIndex).Cells("daId").Value
|
|
|
|
If dsID > 0 Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
|
DS.OPEN_SINGLE()
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Me.Cursor = Cursors.Default
|
|
End Try
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_Sorted(sender As Object, e As EventArgs) Handles MyDatagridview1.Sorted
|
|
|
|
If Not MyDatagridview1.Columns.Contains("daId") Then Exit Sub
|
|
|
|
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
|
|
|
If Not IsDBNull(r.Cells("daId").Value) AndAlso r.Cells("daId").Value > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub btnAlle_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
|
|
initLieferant("ALLE", sender)
|
|
End Sub
|
|
|
|
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
|
initDgv_gesamt(txtmaxAnz.Text, cbxNichtEroeffneteAntraege.Checked, IIf(cbxAlleoffenen.Checked, -1, kdNr))
|
|
End Sub
|
|
|
|
Private Sub AntragEröffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragEröffnenToolStripMenuItem.Click
|
|
|
|
If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
|
|
Dim index As Integer = -1
|
|
If (MyDatagridview1.SelectedRows.Count > 0) Then index = MyDatagridview1.SelectedRows(0).Index
|
|
|
|
Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("KdNr").Value, MyDatagridview1.SelectedRows(0).Cells("Land").Value, dat_Sum_Von.Value, dat_Sum_Bis.Value)
|
|
frm.ShowDialog()
|
|
|
|
MyDatagridview1.GetOrder()
|
|
initDgv_gesamt(txtmaxAnz.Text, cbxNichtEroeffneteAntraege.Checked, IIf(cbxAlleoffenen.Checked, -1, kdNr))
|
|
MyDatagridview1.SetOrder()
|
|
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
|
If e.RowIndex < 0 Then Exit Sub
|
|
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = MouseButtons.Right Then
|
|
|
|
If sender Is MyDatagridview1 AndAlso LIEFERANT.ToString.ToLower = "alle" Then
|
|
If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub '
|
|
MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
ContextMenuStrip1.Show(Cursor.Position)
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
End Class |