div. Änderungen, etc.
This commit is contained in:
@@ -3546,23 +3546,40 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
|
||||
Dim OffertenNr As Integer
|
||||
Dim Abfertigungsart As Integer
|
||||
|
||||
|
||||
|
||||
Dim KUNDE_ERW As New cKundenErweitert(KdNr)
|
||||
|
||||
Dim anh_Bez As String = "Email-Anhang"
|
||||
|
||||
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing Then
|
||||
|
||||
Select Case KUNDE_ERW.kde_Fakturierung_Sprache
|
||||
Case "DE"
|
||||
anh_Bez = "Email-Anhang"
|
||||
RG.RechnungSprache = KUNDE_ERW.kde_Fakturierung_Sprache
|
||||
Case Else
|
||||
anh_Bez = "Email-Attachement"
|
||||
RG.RechnungSprache = "EN"
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
Select Case Lieferant
|
||||
Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = ""
|
||||
Case "ASFINAG" : OffertenNr = 11 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
|
||||
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
|
||||
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
|
||||
Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
|
||||
Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
|
||||
Case "PLOSE" : OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
Case "ASFINAG" : OffertenNr = 11 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = anh_Bez
|
||||
|
||||
End Select
|
||||
|
||||
RG.Firma_ID = 19 'RG.Firma_ID = 15
|
||||
|
||||
RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
|
||||
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
|
||||
RG.UnterNr = RG.getMaxRGUnterNr()
|
||||
|
||||
RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
|
||||
RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
|
||||
@@ -3571,7 +3588,6 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
|
||||
RG.BelegartenNr = 70
|
||||
RG.BelegartenBez = "Rechnung"
|
||||
RG.Vorzeichen = "+"
|
||||
|
||||
RG.VermittlerKundenNr = AD.AdressenNr
|
||||
RG.VermittlerLandKz = AD.LandKz
|
||||
RG.VermittlerName_1 = AD.Name_1
|
||||
@@ -3581,7 +3597,6 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
|
||||
RG.VermittlerStraße = AD.Straße
|
||||
RG.Rechnung_an = 3
|
||||
RG.OffertenNr = OffertenNr
|
||||
|
||||
RG.KundenNrZentrale = KD.KundenNrZentrale
|
||||
RG.RechnungsKundenNr = AD.AdressenNr
|
||||
RG.RechnungsLandKz = AD.LandKz
|
||||
@@ -3589,52 +3604,35 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
|
||||
RG.RechnungsName_2 = AD.Name_2
|
||||
RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
|
||||
RG.RechnungsStraße = AD.Straße
|
||||
|
||||
RG.RechnungsUstIdKz = AD.UstIdKz
|
||||
RG.RechnungsUstIdNr = AD.UstIdNr
|
||||
RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
|
||||
|
||||
RG.Lastschrift = KD.Lastschrift
|
||||
RG.Kunden_SVS = KD.SVS
|
||||
RG.Steuerschlüssel = KD.Steuerschlüssel
|
||||
RG.Vorkasse = KD.Vorkasse
|
||||
RG.Vorlageprovision_Proz = KD.Vorlageprovision
|
||||
RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
|
||||
RG.RechnungSprache = "DE"
|
||||
|
||||
RG.Anlage_2 = ""
|
||||
RG.Anlage_3 = ""
|
||||
RG.Anlage_4 = ""
|
||||
RG.Anlage_5 = ""
|
||||
RG.Anlage_6 = ""
|
||||
|
||||
RG.Text = ""
|
||||
RG.EMailRechnungstext = Nothing ' ""
|
||||
|
||||
|
||||
RG.Nettozahlungsziel = KD.Zahlungsziel
|
||||
|
||||
RG.SteuerpflichtigerGesamtbetrag = 0
|
||||
RG.SteuerfreierGesamtbetrag = 0
|
||||
RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
|
||||
|
||||
RG.[Vorkosten] = 0
|
||||
RG.[Erlös] = 0
|
||||
'RG.[Buchungsjahr] = 0
|
||||
RG.[Währungscode] = "EUR"
|
||||
RG.ReErfZeitstempel = Now
|
||||
|
||||
|
||||
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
'RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum, RG.Firma_ID)
|
||||
|
||||
Dim sqlstr As String = ""
|
||||
Dim useNettogesamtbetrag As Boolean = False
|
||||
|
||||
'If KdNr = "401715" Or KdNr = "401943" Or KdNr = "402179" Or KdNr = "402598" Or KdNr = "402656" Or KdNr = "402688" Or KdNr = "402719" Or KdNr = "402888" Or KdNr = "402933" Then
|
||||
'MsgBox("Test")
|
||||
'End If
|
||||
|
||||
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
|
||||
RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
|
||||
@@ -3642,9 +3640,7 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
|
||||
Select Case Lieferant
|
||||
Case "PLOSE"
|
||||
|
||||
'Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
|
||||
'RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
|
||||
' RG.LOAD_POSITIONEN_FROM_OFFERTE(OFFERTE)
|
||||
|
||||
|
||||
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragWaehrungAbbuchung]) as plose_NettobetragWaehrungAbbuchung,sum([plose_MWSTBetragWaehrungAbbuchung]) as [plose_MWSTBetragWaehrungAbbuchung],sum([plose_BruttobetragWaehrungAbbuchung]) as [plose_BruttobetragWaehrungAbbuchung] "
|
||||
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
|
||||
|
||||
Reference in New Issue
Block a user