Kundebeabeit, MDMDatenverarb., Fakt, Syska-Einarbeitung, Offerten, etc.
This commit is contained in:
@@ -3185,159 +3185,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, PLOSEKundenNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
|
||||
' Try
|
||||
|
||||
' Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
|
||||
' Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
|
||||
' Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
||||
|
||||
' Dim OffertenNr = 80
|
||||
' Dim Abfertigungsart = 10
|
||||
|
||||
' RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
' RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
|
||||
' RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
|
||||
' RG.UnterNr = RG.getMaxRGUnterNr()
|
||||
|
||||
' RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
|
||||
' RG.FilialenNr = SPEDBUCH.FilialenNr
|
||||
' RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
|
||||
' RG.Sammelrechnung = 6 'MAUT/DIESEL
|
||||
' RG.BelegartenKz = "AR"
|
||||
' RG.BelegartenNr = 70
|
||||
' RG.BelegartenBez = "Rechnung"
|
||||
' RG.Vorzeichen = "+"
|
||||
|
||||
' RG.VermittlerKundenNr = AD.AdressenNr
|
||||
' RG.VermittlerLandKz = AD.LandKz
|
||||
' RG.VermittlerName_1 = AD.Name_1
|
||||
' RG.VermittlerName_2 = AD.Name_2
|
||||
' RG.VermittlerOffertenNr = OffertenNr
|
||||
' RG.VermittlerOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
|
||||
' 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
|
||||
' RG.RechnungsName_1 = AD.Name_1
|
||||
' 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_1 = ""
|
||||
' RG.Anlage_2 = ""
|
||||
' RG.Anlage_3 = ""
|
||||
' RG.Anlage_4 = ""
|
||||
' RG.Anlage_5 = ""
|
||||
' RG.Anlage_6 = ""
|
||||
|
||||
|
||||
' RG.Text = ""
|
||||
' RG.EMailRechnungstext = Nothing ' ""
|
||||
|
||||
' RG.Firma_ID = 15
|
||||
' RG.Nettozahlungsziel = KD.Zahlungsziel
|
||||
|
||||
' RG.SteuerpflichtigerGesamtbetrag = 0
|
||||
' RG.SteuerfreierGesamtbetrag = 0
|
||||
' RG.Status = 0
|
||||
|
||||
' 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)
|
||||
|
||||
' 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)
|
||||
|
||||
' Dim sqlstr As String = ""
|
||||
' 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 "
|
||||
' sqlstr &= " WHERE 1=1 "
|
||||
' sqlstr &= " AND plose_Fakturiert=0 "
|
||||
' sqlstr &= " AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) "
|
||||
' sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
|
||||
' sqlstr &= " AND plp_LeistungsNr is not null "
|
||||
' sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
' sqlstr &= " group by [plp_LeistungsNr]"
|
||||
' sqlstr &= " order by plp_LeistungsNr"
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
|
||||
|
||||
|
||||
' For Each r In dt.Rows
|
||||
' Dim BLNr = r("plp_LeistungsNr")
|
||||
' 'Dim BProz = r("plose_BruttobetragWaehrungAbbuchung")
|
||||
|
||||
' Dim NettoBetrag As Double = r("plose_NettobetragWaehrungAbbuchung")
|
||||
' Dim BruttoBetrag As Double = r("plose_BruttobetragWaehrungAbbuchung")
|
||||
' Dim LeistungsNr As Integer = r("plp_LeistungsNr")
|
||||
|
||||
|
||||
' allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
|
||||
|
||||
' 'Rückvergütung Consortio !!
|
||||
' If r("plp_LeistungsNr") = "190" Then '(PRODUCTCODE=301; VERAG-LEISTUNGSNR=190!!
|
||||
' rabattPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
|
||||
' End If
|
||||
' Next
|
||||
|
||||
|
||||
' Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
|
||||
' If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
|
||||
' RG.Steuersatz_Proz = dtSt.Rows(0)(0)
|
||||
' End If
|
||||
|
||||
' cFakturierung.setGesamtBetraege(RG)
|
||||
|
||||
' RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
|
||||
|
||||
' Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen
|
||||
' Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen
|
||||
|
||||
' Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen
|
||||
|
||||
' If RG.SAVE Then
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
|
||||
' Catch ex As System.Exception
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
' End Try
|
||||
' Return ""
|
||||
|
||||
'End Function
|
||||
|
||||
Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing, Optional ByRef RE As cRechnungsausgang = Nothing)
|
||||
Try
|
||||
|
||||
@@ -3458,7 +3305,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
|
||||
sqlstr &= " AND plp_LeistungsNr is not null "
|
||||
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
|
||||
|
||||
sqlstr &= " group by [plp_LeistungsNr]"
|
||||
sqlstr &= " order by plp_LeistungsNr"
|
||||
|
||||
@@ -3676,7 +3522,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Try
|
||||
|
||||
For Each o In OFFERTE.POSITIONEN
|
||||
If o.LeistungsNr = LeistungsNr AndAlso IIf(leistungsBez <> "", o.LeistungsBez = leistungsBez, True) Then ' bei IDS muss ebenfalls die Leistungsbezeichnung eindeutig sein!
|
||||
If o.LeistungsNr = LeistungsNr AndAlso IIf(leistungsBez <> "", o.LeistungsBez = leistungsBez, True) Then 'TODO: bei IDS muss ebenfalls die Leistungsbezeichnung eindeutig sein!, muss noch auf Mehrsprachigkeit geändert werden
|
||||
|
||||
'Dim PARK = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 313 Or x.LeistungsNr = 312))
|
||||
'If PARK Is Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user