MDM offerte
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrCntlFaktAbrechnung
|
||||
@@ -1185,9 +1186,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
|
||||
|
||||
Dim addFields As String = ""
|
||||
Dim orderby As String = " AND MDM_Staffelpreis"
|
||||
|
||||
If addFieldsBoolean Then
|
||||
addFields = ", Land, RMC, Fremd, VZ"
|
||||
addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Staffelpreis as Staffelpreis"
|
||||
orderby = ", MDM_Staffelpreis desc"
|
||||
End If
|
||||
|
||||
With dgvOfferteDetailsUebersicht
|
||||
@@ -1221,11 +1224,12 @@ Public Class usrCntlFaktAbrechnung
|
||||
c = New DataGridViewTextBoxColumn() : c.Name = "RMC" : .Columns.Add(c)
|
||||
c = New DataGridViewTextBoxColumn() : c.Name = "Fremd" : .Columns.Add(c)
|
||||
c = New DataGridViewTextBoxColumn() : c.Name = "VZ" : .Columns.Add(c)
|
||||
c = New DataGridViewTextBoxColumn() : c.Name = "Staffelpreis" : .Columns.Add(c)
|
||||
End If
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql(" SELECT [Offertenpositionen].[LeistungsNr],[Offertenpositionen].[LeistungsBez],[Anzahl],[Preis],[Offertenpositionen].[BerechnungsartNr],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],Steuerpflichtig, ReverseCharge/*,[Geändert am],[Sachbearbeiter]*/,BerechnungsartPosInkludiert " & addFields &
|
||||
" FROM [Offertenpositionen] INNER JOIN [Leistungen] ON leistungen.LeistungsNr=Offertenpositionen.LeistungsNr " &
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr " & orderby, "FMZOLL")
|
||||
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
@@ -1264,7 +1268,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If addFieldsBoolean 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"), r("ReverseCharge"), r("Land"), r("RMC"), r("Fremd"), r("VZ"))
|
||||
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"), r("ReverseCharge"), r("Land"), r("RMC"), r("Fremd"), r("VZ"), r("Staffelpreis"))
|
||||
|
||||
Else
|
||||
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
|
||||
@@ -1273,6 +1277,8 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
Next
|
||||
|
||||
Dim preistaffelIsSet As Boolean = False
|
||||
|
||||
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
|
||||
' Try : If (r.Cells("BerechnungsartNr").Value = 8) And r.Cells("Anzahl").Value > 1 Then r.Cells("Anzahl").Value = 1
|
||||
' Catch ex As Exception : End Try
|
||||
@@ -1280,7 +1286,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
|
||||
Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False)
|
||||
setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, summeFremd, False, False, antrag, isVZ)
|
||||
If Not preistaffelIsSet Then setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, summeFremd, False, False, preistaffelIsSet, antrag, isVZ)
|
||||
End If
|
||||
|
||||
Catch ex As Exception : End Try
|
||||
@@ -1435,12 +1441,13 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
Next
|
||||
|
||||
Dim preistaffelIsSet As Boolean = False
|
||||
|
||||
For Each r In dgvOfferteDetailsUebersicht.Rows
|
||||
|
||||
If r.Cells("Anzahl").Value <> 0 And r.Cells("Preis").Value <> 0 AndAlso IsNumeric(r.Cells("Preis").Value) AndAlso r.Cells("LeistungsNr").Value <> bearbNrRMC Then
|
||||
|
||||
setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, summeFremd, (containRMC AndAlso containFremd), posSet, antrag, isVZ, True, sumOffertRMC, minBetragRMC, sumOffertFremd, minBetragFremd)
|
||||
If Not preistaffelIsSet Then setMWSTABRfromSPEDinPOS(r, landNr, landBez, summeRMC, summeFremd, (containRMC AndAlso containFremd), posSet, preistaffelIsSet, antrag, isVZ, True, sumOffertRMC, minBetragRMC, sumOffertFremd, minBetragFremd)
|
||||
'If posSet Then Exit For
|
||||
End If
|
||||
|
||||
@@ -2883,8 +2890,8 @@ Public Class usrCntlFaktAbrechnung
|
||||
Next
|
||||
' mind??KD
|
||||
If BS415_Berechnungbetrag <> 0 Then
|
||||
If BS415_Berechnungbetrag <0 Then BS415_Berechnungbetrag *= -1
|
||||
BS415= Int(BS415_Berechnungbetrag * KD.Bankspesen + 0.5)
|
||||
If BS415_Berechnungbetrag < 0 Then BS415_Berechnungbetrag *= -1
|
||||
BS415 = Int(BS415_Berechnungbetrag * KD.Bankspesen + 0.5)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -3062,7 +3069,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If Kreditaufwendungen_Berechnungbetrag <> 0 Then
|
||||
' MsgBox("1: " & Kreditaufwendungen_Berechnungbetrag)
|
||||
If Kreditaufwendungen_Berechnungbetrag < 0 Then Kreditaufwendungen_Berechnungbetrag *= -1
|
||||
Kreditaufwendungen = Math.round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
|
||||
Kreditaufwendungen = Math.Round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -3415,7 +3422,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
If cboFiliale.Text.EndsWith("/") And cboFiliale.Text.Contains("-") Then
|
||||
Dim t As String = cboFiliale.Text
|
||||
t = t.Replace("/", "")
|
||||
Dim v() = t.split("-")
|
||||
Dim v() = t.Split("-")
|
||||
If v.Length > 1 Then
|
||||
txtAbfertigungsnummer.Text = v(1)
|
||||
|
||||
@@ -4745,7 +4752,7 @@ Nächste_Textzeile_lesen:
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, LandNr As String, LandBez As String, ByRef summeRMC As Double, ByRef summeFremd As Double, ByRef FremdUndRMC As Boolean, ByRef POSChanged As Boolean, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False, Optional changed As Boolean = False, Optional sumOffertRMC As Double = 0, Optional BearbRMC As Double = 0, Optional sumOffertFremd As Double = 0, Optional BearbFremd As Double = 0)
|
||||
Private Sub setMWSTABRfromSPEDinPOS(r As DataGridViewRow, LandNr As String, LandBez As String, ByRef summeRMC As Double, ByRef summeFremd As Double, ByRef FremdUndRMC As Boolean, ByRef POSChanged As Boolean, ByRef setPreisstaffel As Boolean, Optional antrag As cUSTVAntrag = Nothing, Optional isVZ As Boolean = False, Optional changed As Boolean = False, Optional sumOffertRMC As Double = 0, Optional BearbRMC As Double = 0, Optional sumOffertFremd As Double = 0, Optional BearbFremd As Double = 0)
|
||||
|
||||
If SPEDBUCH IsNot Nothing AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
|
||||
|
||||
@@ -4753,6 +4760,7 @@ Nächste_Textzeile_lesen:
|
||||
Dim OFFERT_VZ = False
|
||||
Dim OFFERT_RMC = False
|
||||
Dim OFFERT_FREMD = False
|
||||
Dim OFFERT_Staffelpreis As Double = -1
|
||||
Dim OFFERT_LeistungsBez = r.Cells("LeistungsBez").Value
|
||||
|
||||
If Not IsDBNull(r.Cells("Land").Value) AndAlso r.Cells("Land").Value IsNot Nothing AndAlso r.Cells("Land").Value <> "" Then OFFERT_LAND = r.Cells("Land").Value
|
||||
@@ -4763,6 +4771,8 @@ Nächste_Textzeile_lesen:
|
||||
|
||||
If Not IsDBNull(r.Cells("Fremd").Value) AndAlso r.Cells("Fremd").Value IsNot Nothing Then OFFERT_FREMD = r.Cells("Fremd").Value
|
||||
|
||||
If Not IsDBNull(r.Cells("Staffelpreis").Value) AndAlso r.Cells("Staffelpreis").Value IsNot Nothing Then OFFERT_Staffelpreis = r.Cells("Staffelpreis").Value
|
||||
|
||||
|
||||
If OFFERT_LeistungsBez <> "" AndAlso OFFERT_LAND <> "" Then
|
||||
|
||||
@@ -4856,8 +4866,21 @@ Nächste_Textzeile_lesen:
|
||||
|
||||
Next
|
||||
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
If OFFERT_Staffelpreis > -1 Then
|
||||
If OFFERT_Staffelpreis > sumVZAntrag Then
|
||||
'überspringen
|
||||
Else
|
||||
setPreisstaffel = True
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
End If
|
||||
|
||||
|
||||
ElseIf Not isVZ AndAlso Not OFFERT_VZ Then
|
||||
|
||||
@@ -4867,8 +4890,21 @@ Nächste_Textzeile_lesen:
|
||||
|
||||
Next
|
||||
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
If OFFERT_Staffelpreis > -1 Then
|
||||
If OFFERT_Staffelpreis > sumVZAntrag Then
|
||||
'überspringen
|
||||
Else
|
||||
setPreisstaffel = True
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
isMWST = True
|
||||
GoTo mwst
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user