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

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