From b8d8a2a302017668c446212b5a058e0b348a050f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 25 Jun 2025 11:15:52 +0200 Subject: [PATCH] Faktabrechnung, KundeBearbeiten, etc. --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 8 +++++--- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 1 + 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 52da81c2..713ef9f6 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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 diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index cd9c7187..b6f86996 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -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