Fakturierung Parkplatz (VERAG AG-DE), ATR
This commit is contained in:
@@ -300,7 +300,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
txtText.Text = If(RECHNUNG.Text, "")
|
||||
txtTextZZ.Text = If(RECHNUNG.Textzz, "")
|
||||
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.Steuerschlüssel)
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
|
||||
Else
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.Steuerschlüssel)
|
||||
End If
|
||||
|
||||
txtSteuerpflichtigerBetrag._value = If(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, RECHNUNG.SteuerpflichtigerGesamtbetrag, "")
|
||||
txtSteuerFreierBetrag._value = If(RECHNUNG.SteuerfreierGesamtbetrag <> 0, RECHNUNG.SteuerfreierGesamtbetrag, "")
|
||||
@@ -391,6 +395,10 @@ Public Class usrCntlFaktAbrechnung
|
||||
r.Cells("BGebLeistungsNr").Value = If(POS.BGebLeistungsNr, DBNull.Value)
|
||||
r.Cells("BGebProzent").Value = If(POS.BGebProzent, DBNull.Value)
|
||||
r.Cells("BGebMinBetrag").Value = If(POS.BGebMinBetrag, DBNull.Value)
|
||||
If RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
POS.Steuerpflichtig = (RECHNUNG.ForceSteuerschlüssel > 0)
|
||||
End If
|
||||
|
||||
r.Cells("Steuerpflichtig").Value = POS.Steuerpflichtig
|
||||
r.Cells("IndexZkteing").Value = If(POS.IndexZkteing <= 0, DBNull.Value, POS.IndexZkteing)
|
||||
r.Cells("AufschubkontoNr").Value = If(POS.AufschubkontoNr, DBNull.Value)
|
||||
@@ -880,7 +888,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
txtRechnungAnOrt.Text = txtAbsenderOrt.Text
|
||||
If kdFirmaAbsender.KdData_KUNDE_ERW IsNot Nothing Then txtRechnungAnZusatz.Text = If(kdFirmaAbsender.KdData_KUNDE_ERW.kde_AdressZusatz, "") Else txtRechnungAnZusatz.Text = ""
|
||||
If kdFirmaAbsender.KdData_KUNDE IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
|
||||
Else
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
End If
|
||||
cboSammelrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Sammelrechnung, ""))
|
||||
cboWaehrungUmrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Währungscode, ""))
|
||||
|
||||
@@ -893,7 +905,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
txtRechnungAnOrt.Text = txtEmpfaengerOrt.Text
|
||||
If kdFirmaEmpfaenger.KdData_KUNDE_ERW IsNot Nothing Then txtRechnungAnZusatz.Text = If(kdFirmaEmpfaenger.KdData_KUNDE_ERW.kde_AdressZusatz, "") Else txtRechnungAnZusatz.Text = ""
|
||||
If kdFirmaEmpfaenger.KdData_KUNDE IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
|
||||
Else
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
End If
|
||||
cboSammelrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Sammelrechnung, ""))
|
||||
cboWaehrungUmrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Währungscode, ""))
|
||||
End If
|
||||
@@ -905,7 +921,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
txtRechnungAnOrt.Text = txtAuftragggeberOrt.Text
|
||||
If kdFirmaAuftraggeber.KdData_KUNDE_ERW IsNot Nothing Then txtRechnungAnZusatz.Text = If(kdFirmaAuftraggeber.KdData_KUNDE_ERW.kde_AdressZusatz, "") Else txtRechnungAnZusatz.Text = ""
|
||||
If kdFirmaAuftraggeber.KdData_KUNDE IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
|
||||
Else
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
End If
|
||||
cboSammelrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Sammelrechnung, ""))
|
||||
cboWaehrungUmrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Währungscode, ""))
|
||||
End If
|
||||
@@ -914,7 +934,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
If kdFirmaRechnungAn.KdNrNullInt <= 0 Then kdFirmaRechnungAn.Text = kdFirmaAvisierer.Text
|
||||
If kdFirmaAvisierer.KdData_KUNDE_ERW IsNot Nothing Then txtRechnungAnZusatz.Text = If(kdFirmaAvisierer.KdData_KUNDE_ERW.kde_AdressZusatz, "") Else txtRechnungAnZusatz.Text = ""
|
||||
If kdFirmaAvisierer.KdData_KUNDE IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
|
||||
cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
|
||||
Else
|
||||
cboSteuerschlüssel.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Steuerschlüssel, ""))
|
||||
End If
|
||||
cboSammelrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Sammelrechnung, ""))
|
||||
cboWaehrungUmrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Währungscode, ""))
|
||||
End If
|
||||
@@ -1169,8 +1193,11 @@ Public Class usrCntlFaktAbrechnung
|
||||
|
||||
If dt Is Nothing Then Exit Sub
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, r("Steuerpflichtig"),
|
||||
Dim steuerpflichtigTMP = r("Steuerpflichtig")
|
||||
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,
|
||||
DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
|
||||
|
||||
|
||||
@@ -1596,22 +1623,38 @@ Public Class usrCntlFaktAbrechnung
|
||||
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.AvisoID IsNot Nothing AndAlso SPEDBUCH.SendungID IsNot Nothing Then
|
||||
Dim dt = SQL.loadDgvBySql("SELECT [anh_docId],[anh_id],[anh_Art],[anh_Name] FROM [tblAvisoAnhaenge] where (anh_SendungsId='" & SPEDBUCH.SendungID & "' OR (anh_AvisoId='" & SPEDBUCH.AvisoID & "' AND anh_SendungsId is null))", "AVISO")
|
||||
|
||||
If dt Is Nothing Then Exit Sub
|
||||
For Each r In dt.Rows
|
||||
.Rows.Add(0, r("anh_Art"), r("anh_Name"), r("anh_docId"), r("anh_id"))
|
||||
Next
|
||||
RECHNUNG.LOAD_ANHAENGE()
|
||||
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
|
||||
For Each RG_AH In RECHNUNG.ANHAENGE
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("clmnDsId").Value = RG_AH.dsId Then
|
||||
DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = -1
|
||||
End If
|
||||
Next
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
.Rows.Add(0, r("anh_Art"), r("anh_Name"), r("anh_docId"), r("anh_id"))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
RECHNUNG.LOAD_ANHAENGE()
|
||||
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
|
||||
'-----------------------------
|
||||
'ANHÄNGE OHNE AVISO-BEZUG LADEN:
|
||||
'-----------------------------
|
||||
For Each RG_AH In RECHNUNG.ANHAENGE
|
||||
If RG_AH.anhId <= 0 Then
|
||||
.Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
|
||||
End If
|
||||
Next
|
||||
'-----------------------------
|
||||
|
||||
'-----------------------------
|
||||
'ANHÄNGE SELEKTIEREN
|
||||
'-----------------------------
|
||||
For Each RG_AH In RECHNUNG.ANHAENGE
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("clmnDsId").Value = RG_AH.dsId Or r.Cells("clmnAnhId").Value = 0 Then 'anh_id = 0 --> Anhang ohne AVISO-Bezug
|
||||
DirectCast(r.Cells("optAnhSel"), DataGridViewCheckBoxCell).Value = -1
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
'-----------------------------
|
||||
End If
|
||||
|
||||
End With
|
||||
dgvAnhaenge.ClearSelection()
|
||||
End Sub
|
||||
@@ -1643,6 +1686,12 @@ Public Class usrCntlFaktAbrechnung
|
||||
RECHNUNG.Anlage_3 = ""
|
||||
RECHNUNG.Anlage_4 = ""
|
||||
RECHNUNG.Anlage_5 = ""
|
||||
Case 4 ' VERAG AG (DE)
|
||||
'RECHNUNG.Anlage_1 = "" wird befüllt
|
||||
RECHNUNG.Anlage_2 = ""
|
||||
RECHNUNG.Anlage_3 = ""
|
||||
RECHNUNG.Anlage_4 = ""
|
||||
RECHNUNG.Anlage_5 = ""
|
||||
Case Else
|
||||
If SPEDBUCH IsNot Nothing Then
|
||||
Select Case SPEDBUCH.Abfertigungsart
|
||||
@@ -2526,20 +2575,31 @@ Public Class usrCntlFaktAbrechnung
|
||||
End Sub
|
||||
|
||||
Shared Sub initSteuerbetraege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, ByRef POS As VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
|
||||
POS.Steuerpflichtig = 0
|
||||
POS.SteuerfreierBetrag = 0
|
||||
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
|
||||
If RECHNUNG.ForceSteuerschlüssel Is Nothing Then
|
||||
POS.Steuerpflichtig = 0
|
||||
POS.SteuerfreierBetrag = 0
|
||||
Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
|
||||
|
||||
If (RECHNUNG.Steuersatz_Proz <> 0) And CBool(SQL.DLookup("Steuerpflichtig", "Leistungen", "[LeistungsNr] = '" & POS.LeistungsNr & "'", "FMZOLL")) Then ' Steuersatz muss ungleich 0 sein, damit der Betrag steuerpflichtig wird
|
||||
POS.SteuerpflichtigerBetrag = POS.Preis * POS.Anzahl
|
||||
POS.Steuerpflichtig = True
|
||||
If (RECHNUNG.Steuersatz_Proz <> 0) And CBool(SQL.DLookup("Steuerpflichtig", "Leistungen", "[LeistungsNr] = '" & POS.LeistungsNr & "'", "FMZOLL")) Then ' Steuersatz muss ungleich 0 sein, damit der Betrag steuerpflichtig wird
|
||||
POS.SteuerpflichtigerBetrag = POS.Preis * POS.Anzahl
|
||||
POS.Steuerpflichtig = True
|
||||
Else
|
||||
POS.SteuerfreierBetrag = POS.Preis * POS.Anzahl
|
||||
POS.Steuerpflichtig = False
|
||||
End If
|
||||
|
||||
POS.Steuerpflichtig *= vorzeichen
|
||||
POS.SteuerfreierBetrag *= vorzeichen
|
||||
Else
|
||||
POS.SteuerfreierBetrag = POS.Preis * POS.Anzahl
|
||||
POS.Steuerpflichtig = False
|
||||
End If
|
||||
|
||||
POS.Steuerpflichtig *= vorzeichen
|
||||
POS.SteuerfreierBetrag *= vorzeichen
|
||||
POS.Steuerpflichtig = (RECHNUNG.ForceSteuerschlüssel > 0)
|
||||
If POS.Steuerpflichtig Then
|
||||
POS.SteuerpflichtigerBetrag = POS.Preis * POS.Anzahl
|
||||
Else
|
||||
POS.SteuerfreierBetrag = POS.Preis * POS.Anzahl
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Shared Sub przPP(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
|
||||
|
||||
Reference in New Issue
Block a user