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

fakt, Kundenblatt, ustv, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-07-28 09:04:52 +02:00
parent f206b96009
commit c6050c5783
7 changed files with 742 additions and 696 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -1097,12 +1097,30 @@ Public Class frmFaktEmail
list3megered = FormularManagerNEU.MergePdfFiles(myListPOSLIST, zielPfadZusammenfassung_POSListe)
End If
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!!
For Each a In myListLiefereranten
myList.Add(a)
Next
For Each a In myListPOSLIST
myList.Add(a)
Next
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
End If
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
If myListPOSLIST.Count > 0 AndAlso list3megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
Else
'Ansonsten extra!!!!
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
If myListPOSLIST.Count > 0 AndAlso list3megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
End If
End If

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.2.6")>
<Assembly: AssemblyFileVersion("1.4.2.6")>
<Assembly: AssemblyVersion("1.4.2.9")>
<Assembly: AssemblyFileVersion("1.4.2.9")>

2
SDL/USTV/usrCntlUSTV.vb
View File

@@ -206,7 +206,7 @@ Public Class usrCntlUSTV
Risiko = 0
End If
'Beim Differenzbetrag
Differnezbetrag = GesamtUSteuer - GesamtErstattung

1360
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2
SDL/kunden/frmKundenblatt.vb
View File

@@ -1982,7 +1982,7 @@ Public Class frmKundenblatt
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 20
.Columns(6).DefaultCellStyle.Format = "N0"
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 70

9
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -2181,13 +2181,8 @@ Public Class usrcntlFakturierung
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnLieferantenrechnungen.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", "SDL") = 0 Then
Dim frm As New frmMDMLieferantenrechnungen
frm.Show(Me)
End If
Dim frm As New frmMDMLieferantenrechnungen
frm.Show(Me)
End Sub