edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Faktabrechnung, KundeBearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-06-25 11:15:52 +02:00
parent 2731c4be17
commit b8d8a2a302
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -4841,7 +4841,7 @@ Nächste_Textzeile_lesen:
If antrag IsNot Nothing AndAlso LandBez <> "" AndAlso antrag.UStVAn_AntragArt <> "" Then
If (antrag.UStVAn_AntragArt <> "MWST" Or antrag.UStVAn_AntragArt <> "MOEST") Then isRMCKunde = False
If (antrag.UStVAn_AntragArt <> "MWST" And antrag.UStVAn_AntragArt <> "MOEST") Then isRMCKunde = False
Dim LandISO2 = ""
@@ -4983,9 +4983,11 @@ mwst:
Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (dgvOffertenSperrliste.SelectedRows(0).Cells("OffertenNr").Value))
If OffertNr = 15 Or OffertNr = 14 Or OffertNr = 31 Then
If Not IsDBNull(r.Cells("Preis").Value) Then
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed)
End If
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed)
End If
End If

1
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1031,6 +1031,7 @@
Me.tbcntrDetails.Controls.Remove(tbOP)
If isVerag360 Then
Me.tbcntrDetails.Controls.Remove(tbFiskal)
Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
Else
Me.tbcntrDetails.Controls.Remove(tbBankverbindungen)
End If