MDM. Zugferd, LeistungenFIBUKonten, USTVA, MSE
This commit is contained in:
@@ -2783,7 +2783,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
sqlstr &= " SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], " & sqlSelect & ", tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz, Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Nettobetrag, Sum(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag, Sum([TotalNetAmount])/Sum([TransactionVolume]) AS NettopreisProLiter, Sum(tblIDSTransactionsNew.Rabattbetrag) AS [SummevonRabattbetrag], Sum([Rabattbetrag])/Sum([TransactionVolume]) AS RabattbetragProLiter
|
||||
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.KdNrVERAG = " & KdNr & sqlWhere & "
|
||||
WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
|
||||
GROUP BY Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], " & sqlGroup & ", tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz;
|
||||
"
|
||||
|
||||
@@ -3467,8 +3467,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Case "UTA"
|
||||
|
||||
useNettogesamtbetrag = False
|
||||
|
||||
sqlstr = " SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort,Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, sum(tblUTAImportNew.Gesamtbetrag_Netto_in_Darstellwährung) as Netto ,sum(tblUTAImportNew.Gesamtbetrag_Brutto_in_Darstellwährung) as Brutto /*,tblUTAFakturierwarenarten.Warenart, tblUTAImportNew.Fakturierwarenart*/
|
||||
FROM tblUTAFakturierwarenarten
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer)
|
||||
@@ -3497,11 +3495,9 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Case "MSE"
|
||||
|
||||
useNettogesamtbetrag = False
|
||||
'alles steuerfrei also Brutto = Netto
|
||||
sqlstr = "select customer_id, LeistungsNr, sum(Netto) as Netto, Sum (Brutto) as Brutto, Sum (UST) as UST from (select cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr ,
|
||||
case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount)
|
||||
else sum(transaction_gross_amount) End as Netto,
|
||||
else sum(transaction_net_amount) End as Netto,
|
||||
case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount)
|
||||
else sum(transaction_gross_amount) End as Brutto,
|
||||
sum(USteuer_EUR) as UST
|
||||
@@ -3517,7 +3513,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
For Each r In dt.Rows
|
||||
|
||||
|
||||
Dim NettoBetrag As Double = r("Netto")
|
||||
Dim BruttoBetrag As Double = r("Brutto")
|
||||
Dim UstBetrag As Double = r("UST")
|
||||
@@ -3531,7 +3526,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Case "IDS", "IDS_AT"
|
||||
|
||||
useNettogesamtbetrag = False
|
||||
Dim sqlWhere = " and tblIDSTransactionsNew.OutletCountryCode"
|
||||
sqlWhere &= IIf(Lieferant = "IDS", "<>740543", "=740543")
|
||||
|
||||
@@ -3580,84 +3574,10 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim LeistungsBez As String = r("LeistungsBez")
|
||||
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
|
||||
|
||||
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag - Rabatt, UstBetrag, LeistungsBez) 'bei IDS muss ebenfalls die LeistungsBez korrekt sein!
|
||||
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag - Rabatt, UstBetrag, LeistungsBez) 'bei IDS muss ebenfalls die LeistungsBez ident sein!
|
||||
|
||||
Next
|
||||
|
||||
' Case 17 'Diesel IDS
|
||||
'5970 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte17")
|
||||
'5980 qryOffPos.Parameters("[Bitte Kundennummer eingeben:]") = rstRK![RechnungsKundenNr]
|
||||
'5990 Set rstOffPos = qryOffPos.OpenRecordset(dbOpenSnapshot)
|
||||
'6000 Do Until rstOffPos.EOF
|
||||
'6010 Set qryRPPKey = dbs.QueryDefs("qryReErfSchRPPKey") '<SQL Server>
|
||||
'6020 qryRPPKey.Parameters("[prmRK_ID]") = rstRK!RK_ID
|
||||
'6030 qryRPPKey.Parameters("[prmLeistungsNr]") = rstOffPos!LeistungsNr
|
||||
'6040 qryRPPKey.Parameters("[prmSteuerpflichtig]") = False
|
||||
'6050 qryRPPKey.Parameters("[prmLeistungsBez]") = rstOffPos!LeistungsBez
|
||||
'6060 qryRPPKey.Parameters("[prmIndexZkteing]") = 0
|
||||
'6070 Set rstRPPKey = qryRPPKey.OpenRecordset(dbOpenDynaset, dbSeeChanges) '<SQL Server>
|
||||
'6080 With rstRPPKey
|
||||
'6090 If .EOF Then
|
||||
'6100 .AddNew
|
||||
'6110 !RK_ID = rstRK!RK_ID
|
||||
'6120 !LeistungsNr = rstOffPos!LeistungsNr
|
||||
'6130 !steuerpflichtig = False
|
||||
'6140 !LeistungsBez = rstOffPos!LeistungsBez
|
||||
'6150 !BerechnungsartNr = rstOffPos!BerechnungsartNr
|
||||
'6160 Else
|
||||
'6170 .Edit
|
||||
'6180 End If
|
||||
'6190 !Preis = rstOffPos!Bruttobetrag - rstOffPos![Summe von Rabattbetrag]
|
||||
'6200 !Anzahl = 1
|
||||
'6210 .Update
|
||||
'6220 .Close
|
||||
'6230 End With
|
||||
'6240 Set rstRPPKey = Nothing
|
||||
'6250 rstOffPos.MoveNext
|
||||
'6260 Loop
|
||||
'6270 rstOffPos.Close
|
||||
'6280 Set rstOffPos = Nothing
|
||||
'6290 qryOffPos.Close
|
||||
'6300 Set qryOffPos = Nothing
|
||||
|
||||
|
||||
' Case 21 'Diesel IDS AT
|
||||
'6320 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte21")
|
||||
'6330 qryOffPos.Parameters("[Bitte Kundennummer eingeben:]") = rstRK![RechnungsKundenNr]
|
||||
'6340 Set rstOffPos = qryOffPos.OpenRecordset(dbOpenSnapshot)
|
||||
'6350 Do Until rstOffPos.EOF
|
||||
'6360 Set qryRPPKey = dbs.QueryDefs("qryReErfSchRPPKey") '<SQL Server>Test
|
||||
'6370 qryRPPKey.Parameters("[prmRK_ID]") = rstRK!RK_ID
|
||||
'6380 qryRPPKey.Parameters("[prmLeistungsNr]") = rstOffPos!LeistungsNr
|
||||
'6390 qryRPPKey.Parameters("[prmSteuerpflichtig]") = False
|
||||
'6400 qryRPPKey.Parameters("[prmLeistungsBez]") = rstOffPos!LeistungsBez
|
||||
'6410 qryRPPKey.Parameters("[prmIndexZkteing]") = 0
|
||||
'6420 Set rstRPPKey = qryRPPKey.OpenRecordset(dbOpenDynaset, dbSeeChanges) '<SQL Server>Test
|
||||
'6430 With rstRPPKey
|
||||
'6440 If .EOF Then
|
||||
'6450 .AddNew
|
||||
'6460 !RK_ID = rstRK!RK_ID
|
||||
'6470 !LeistungsNr = rstOffPos!LeistungsNr
|
||||
'6480 !steuerpflichtig = False
|
||||
'6490 !LeistungsBez = rstOffPos!LeistungsBez
|
||||
'6500 !BerechnungsartNr = rstOffPos!BerechnungsartNr
|
||||
'6510 Else
|
||||
'6520 .Edit
|
||||
'6530 End If
|
||||
'6540 !Preis = rstOffPos!Bruttobetrag - rstOffPos![Summe von Rabattbetrag]
|
||||
'6550 !Anzahl = 1
|
||||
'6560 .Update
|
||||
'6570 .Close
|
||||
'6580 End With
|
||||
'6590 Set rstRPPKey = Nothing
|
||||
'6600 rstOffPos.MoveNext
|
||||
'6610 Loop
|
||||
'6620 rstOffPos.Close
|
||||
'6630 Set rstOffPos = Nothing
|
||||
'6640 qryOffPos.Close
|
||||
'6650 Set qryOffPos = Nothing
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
@@ -3705,7 +3625,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
'POS.Preis = BruttoBetrag
|
||||
POS.Anzahl = 1
|
||||
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
|
||||
'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag)!
|
||||
'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA!
|
||||
POS.BGebBgl = IIf(LIEFERANT = "UTA", BruttoBetrag - UstBetrag, NettoBetrag - UstBetrag)
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user