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

BH, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-07 10:07:00 +01:00
parent a0dd0b0213
commit 275044e2f8
3 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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

26
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -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

5
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -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