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

ustva, Mahnung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-09 16:28:52 +02:00
parent 22e37befbe
commit 7972ba82c4
7 changed files with 89 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1839,9 +1839,14 @@ Public Class usrCntlFaktAbrechnung
RECHNUNG.Anlage_5 = ""
Case 19 'MDM
RECHNUNG.Anlage_1 = "Rechnung"
RECHNUNG.Anlage_2 = "Lief.-Rechn."
RECHNUNG.Anlage_3 = "POS-Liste"
Select Case RECHNUNG.RechnungSprache
Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste"
Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List"
Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor"
End Select
RECHNUNG.Anlage_4 = ""
RECHNUNG.Anlage_5 = ""
@@ -4001,6 +4006,20 @@ Nächste_Textzeile_lesen:
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 furnizorului" : cboAnlage3.Text = "Lista articolelor"
End Select
End If
End If
End Sub
Private Sub dbgAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick 'dbgAnhaenge.CellContentClick,