ustva, fakt. etc.
This commit is contained in:
@@ -45,6 +45,8 @@
|
||||
UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr
|
||||
UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus()
|
||||
|
||||
UsrCntlFaktAbrechnung1.btnDatenLaden.PerformClick()
|
||||
|
||||
Select Case BelegKZ
|
||||
Case "AR" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 0
|
||||
Case "AG" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 1
|
||||
|
||||
@@ -1255,11 +1255,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
'.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
|
||||
.Columns("BGebLeistungsNr").Visible = False
|
||||
.Columns("BGebProzent").Visible = False
|
||||
.Columns("BGebMinBetrag").Visible = False
|
||||
.Columns("Steuerpflichtig").Visible = False
|
||||
.Columns("BerechnungsartPosInkludiert").Visible = False
|
||||
.Columns("BGebLeistungsNr").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
.Columns("BGebProzent").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
.Columns("BGebMinBetrag").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
.Columns("Steuerpflichtig").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
.Columns("BerechnungsartPosInkludiert").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
' .Columns("Geändert am").Visible = False
|
||||
'.Columns("Sachbearbeiter").Visible = False
|
||||
|
||||
@@ -1277,9 +1277,18 @@ Public Class usrCntlFaktAbrechnung
|
||||
If RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
steuerpflichtigTMP = (RECHNUNG.ForceSteuerschlüssel > 0)
|
||||
End If
|
||||
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), r("BGebLeistungsNr"), r("BGebProzent"), r("BGebMinBetrag"), steuerpflichtigTMP,
|
||||
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
|
||||
|
||||
Else
|
||||
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
|
||||
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Next
|
||||
@@ -1338,6 +1347,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -1424,7 +1434,6 @@ Public Class usrCntlFaktAbrechnung
|
||||
setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez)
|
||||
'-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll
|
||||
|
||||
|
||||
If POS.Anzahl = 0 And POS.BerechnungsartNr = 8 And POS.Preis <> 0 Then
|
||||
POS.Preis = 0 'Wenn Anzahl =0 bei Berart 8, dann Preis auch 0
|
||||
End If
|
||||
@@ -1456,7 +1465,6 @@ Public Class usrCntlFaktAbrechnung
|
||||
' POS.Fremdwährung = r.Cells("Fremdwährung").Value
|
||||
POS.BGebLeistungsNr = r.Cells("BGebLeistungsNr").Value
|
||||
POS.BGebProzent = r.Cells("BGebProzent").Value
|
||||
' POS.BGebBgl = r.Cells("BGebBgl").Value
|
||||
POS.BGebMinBetrag = r.Cells("BGebMinBetrag").Value
|
||||
|
||||
' Property RePosZeitstempel As Object = Nothing
|
||||
@@ -1477,6 +1485,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
'End If
|
||||
RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Proglem mit SVS/VP/KA
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -2276,6 +2285,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If If(POS.Anzahl, 0) < 0 Then ' falls Anzahl negativ ist
|
||||
POS.Anzahl *= -1
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
@@ -2295,6 +2305,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
Call przBS415(RECHNUNG) ' Bankspesen errechnen
|
||||
|
||||
|
||||
'Me![SteuerpflichtigerGesamtbetrag] = 0.0#
|
||||
'Me![SteuerfreierGesamtbetrag] = 0.0#
|
||||
'Me![Abfertigungskosten] = 0.0#
|
||||
@@ -2509,6 +2520,58 @@ Public Class usrCntlFaktAbrechnung
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub prBearbGeb(POS_ As cRechnungsausgangPositionen, OFFERTE As cOfferte, RE As cRechnungsausgang, BGebLeistungsNr As Integer, BGebProzent As Double, BGebBgl As Integer)
|
||||
|
||||
If POS_.Anzahl <> 0 Then
|
||||
|
||||
If (BGebLeistungsNr > 0 AndAlso BGebProzent > 0 AndAlso BGebBgl <> 0) Then
|
||||
|
||||
Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
|
||||
For Each o In OFFERTE.POSITIONEN
|
||||
If o.LeistungsNr = BGebLeistungsNr Then
|
||||
|
||||
'Falls schon vorhanden...
|
||||
Dim POS = RE.POSITIONEN.Find(Function(x) x.LeistungsNr = BGebLeistungsNr) 'And x.BerechnungsartNr = 9)
|
||||
If POS Is Nothing Then
|
||||
POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
|
||||
POS.Preis = 0
|
||||
POS.SteuerpflichtigerBetrag = 0
|
||||
POS.SteuerfreierBetrag = 0
|
||||
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
|
||||
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
|
||||
|
||||
POS.LeistungsNr = o.LeistungsNr
|
||||
POS.LeistungsBez = o.LeistungsBez
|
||||
|
||||
POS.BerechnungsartNr = o.BerechnungsartNr
|
||||
POS.Anzahl = 1
|
||||
' POS.BGebLeistungsNr = BGebLeistungsNr
|
||||
|
||||
RE.POSITIONEN.Add(POS)
|
||||
End If
|
||||
|
||||
POS.Preis += Betrag
|
||||
|
||||
If POS.Steuerpflichtig Then
|
||||
POS.SteuerpflichtigerBetrag += Betrag
|
||||
Else
|
||||
POS.SteuerfreierBetrag += Betrag
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
'Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
'End Try
|
||||
' Return False
|
||||
'End Function
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub przBerechneWert()
|
||||
Try
|
||||
@@ -4370,7 +4433,7 @@ Nächste_Textzeile_lesen:
|
||||
If LandBez <> "" AndAlso LandNr <> "" Then
|
||||
If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) Then isMWST = True
|
||||
Else
|
||||
If SPEDBUCH.Packstücke.ToString().StartsWith(LeistungsBez.ToString) Then isMWST = True
|
||||
If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) Then isMWST = True
|
||||
End If
|
||||
|
||||
If isMWST Then
|
||||
@@ -4380,8 +4443,18 @@ Nächste_Textzeile_lesen:
|
||||
POS.Preis = IIf(SPEDBUCH.Rechnungsbetrag Is Nothing, 0, SPEDBUCH.Rechnungsbetrag) * -1
|
||||
End If
|
||||
|
||||
If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso r.Cells("BGebProzent").Value IsNot Nothing Then
|
||||
|
||||
Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100))
|
||||
If OffertNr < 0 Then OffertNr = 15
|
||||
|
||||
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(RECHNUNG.KundenNrZentrale, OffertNr, True)
|
||||
Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.3.9.7")>
|
||||
<Assembly: AssemblyFileVersion("1.3.9.7")>
|
||||
<Assembly: AssemblyVersion("1.3.9.8")>
|
||||
<Assembly: AssemblyFileVersion("1.3.9.8")>
|
||||
|
||||
@@ -835,7 +835,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
If USTV_POS.INSERT() Then
|
||||
If bytSchnittstellenNr = 11 Then 'wegel bei welcher Einlesselogik, sollen immer [tblPLOSE_Details] und [tblPLOSE_Inv_Data] aktualisiert werden!
|
||||
If bytSchnittstellenNr = 11 Then 'egal 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
|
||||
|
||||
@@ -895,7 +895,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
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 Steuerbetrag, 'EUR' as Waehrung
|
||||
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, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag_EUR
|
||||
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
|
||||
@@ -909,7 +909,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_alt' 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
|
||||
Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS_alt' 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, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag_EUR 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
|
||||
@@ -925,7 +925,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_alt' 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
|
||||
Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE_alt' 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, tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag_EUR 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
|
||||
@@ -947,7 +947,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_alt' 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
|
||||
Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA_alt' 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, SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag_EUR 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
|
||||
@@ -968,7 +968,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 Steuerbetrag, 'EUR' as Waehrung
|
||||
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, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag_EUR
|
||||
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
|
||||
@@ -984,7 +984,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 Steuerbetrag, 'EUR' as Waehrung
|
||||
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, sum(USteuer_EUR) as Steuerbetrag_EUR
|
||||
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
|
||||
@@ -1004,7 +1004,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 Steuerbetrag, 'EUR' as Wahrung 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, SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag_EUR 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
|
||||
@@ -1026,7 +1026,7 @@ 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
|
||||
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, CAST(ROUND(SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) / dbo.fktEUROKurs(plInv_Currency, max(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum)), 2) AS DECIMAL(18, 2)) AS Steuerbetrag_EUR 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
|
||||
@@ -1043,7 +1043,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
'plose_MWSTBetragWaehrungAbbuchung ist IMMER in EUR!!!!
|
||||
Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = " SELECT 'PLOSE_alt' 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
|
||||
Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = " SELECT 'PLOSE_alt' 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, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag_EUR 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
|
||||
@@ -1063,7 +1063,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
|
||||
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 & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
|
||||
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_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK '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
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -623,7 +623,8 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Dim filter As String = "UstV_aktiv = 1"
|
||||
If Antrag_LandKz <> "" Then
|
||||
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"})
|
||||
sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender]) 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"})
|
||||
'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
|
||||
|
||||
|
||||
@@ -143,16 +143,17 @@ Public Class frmMain
|
||||
setProfileImage()
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
|
||||
Dim timas As New cTimasAPI("timas")
|
||||
Dim infoMessage As String = ""
|
||||
Dim infoMessage As New DataTable
|
||||
Dim timeEntryExisting As Boolean = False
|
||||
Dim isEndpointRunning As Boolean = True
|
||||
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
|
||||
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
|
||||
If Not timeEntryExisting AndAlso isEndpointRunning Then
|
||||
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
||||
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
|
||||
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
|
||||
f.ShowDialog()
|
||||
@@ -162,7 +163,11 @@ Public Class frmMain
|
||||
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
|
||||
MsgBox(info)
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -1342,9 +1342,9 @@
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click
|
||||
btnCBAM_DS_DAKOSY_Deteil.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Copy.Enabled = False
|
||||
btnCBAM_DS_DAKOSY_Deteil.Tag = ""
|
||||
btnCBAM_DS_TELOTEC_Detail.Enabled = False
|
||||
btnCBAM_DS_TELOTEC_Copy.Enabled = False
|
||||
btnCBAM_DS_TELOTEC_Detail.Tag = ""
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
@@ -1365,7 +1365,7 @@
|
||||
,dec_TotNet Eigenmasse
|
||||
,Locs_Disp VersendungsLand
|
||||
, Locs_Dest Bestimmungsland
|
||||
,ValData_InvVal Rechnungspreis
|
||||
,Item_ItVal Rechnungspreis
|
||||
,ValData_InvCurr Rechnungswaehrung
|
||||
,ConeeTra_TIN as Empfänger
|
||||
,ConeeTra_Na as Empfänger_
|
||||
@@ -1422,10 +1422,9 @@
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False)
|
||||
btnCBAM_DS_DAKOSY_Deteil.Tag = path
|
||||
btnCBAM_DS_DAKOSY_Deteil.Enabled = True
|
||||
btnCBAM_DS_DAKOSY_Copy.Enabled = True
|
||||
btnCBAM_DS_DAKOSY_Spedb.Enabled = True
|
||||
btnCBAM_DS_TELOTEC_Detail.Tag = path
|
||||
btnCBAM_DS_TELOTEC_Detail.Enabled = True
|
||||
btnCBAM_DS_TELOTEC_Copy.Enabled = True
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user