From 275044e2f82c64794fe5542e189e08f4aaa3512b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 7 Nov 2025 10:07:00 +0100 Subject: [PATCH] BH, Fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 4 ++-- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 26 +++++++++++++++-------- SDL/buchhaltung/usrCntlBH.vb | 5 ----- 3 files changed, 19 insertions(+), 16 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 8aa66863..9e2036ff 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -352,8 +352,8 @@ Public Class cFakturierung Select Case RECHNUNG.RechnungSprache Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days as of document date" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" - Case "TR" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" - Case Else : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren" + Case "TR" : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren" + Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum" 'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice." 'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum." End Select diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 0370b656..19ccb54a 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -4430,18 +4430,26 @@ Nächste_Textzeile_lesen: End Sub Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged - txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) - txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) - If RECHNUNG IsNot Nothing Then - If RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.Anlage_1 <> "" AndAlso RECHNUNG.Anlage_2 <> "" AndAlso RECHNUNG.Anlage_3 <> "" Then - Select Case cboRechnungSprache._value - Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste" - Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List" - Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizor" : cboAnlage3.Text = "Lista articole" - End Select + If cboRechnungSprache._value <> "" Then + If RECHNUNG IsNot Nothing Then + RECHNUNG.RechnungSprache = cboRechnungSprache._value + + txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG) + txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH) + + + If RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.Anlage_1 <> "" AndAlso RECHNUNG.Anlage_2 <> "" AndAlso RECHNUNG.Anlage_3 <> "" Then + Select Case RECHNUNG.RechnungSprache + Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste" + Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List" + Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizor" : cboAnlage3.Text = "Lista articole" + End Select + + End If End If + End If diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index de9adef0..e373715d 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1,10 +1,5 @@ Imports System.Globalization Imports System.Text -Imports System.Windows.Media.Animation -Imports com.sun.crypto.provider -Imports com.sun.xml.internal.rngom -Imports GrapeCity.ActiveReports.ReportsCore.Tools -Imports jdk.nashorn.internal.objects.annotations Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlBH