BH, Fakt, etc.

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 "TR" : strZahlbar = "ödeme tarihi: " & ZZTage & " gün  fatura tarihinden itibaren"
-                                    Case Else : 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

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -4430,12 +4430,18 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged
+
+        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 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
+                    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"
@@ -4444,6 +4450,8 @@ Nächste_Textzeile_lesen:
                 End If
             End If
 
+        End If
+
 
 
     End Sub

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