From d1a13a444a55d59b1f63eacb5762fe14b3c0b394 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Jun 2025 09:59:14 +0200 Subject: [PATCH] Fakt. --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 4574aa54..1092a3e0 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -201,6 +201,12 @@ Public Class usrCntlFaktAbrechnung cboRechnungAn.changeItem(RECHNUNG.Rechnung_an) + kdFirmaAbsender._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False) + kdFirmaAuftraggeber._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False) + kdFirmaAvisierer._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False) + kdFirmaEmpfaenger._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False) + kdFirmaRechnungAn._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False) + If RECHNUNG.RechnungsKundenNr > 0 Then kdFirmaRechnungAn.KdNr = RECHNUNG.RechnungsKundenNr kdFirmaRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "")