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) list3megered = FormularManagerNEU.MergePdfFiles(myListPOSLIST, zielPfadZusammenfassung_POSListe)
End If 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 Else
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) 'Ansonsten extra!!!!
If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, "")) If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
If myListPOSLIST.Count > 0 AndAlso list3megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, "")) 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 End If

4
SDL/My Project/AssemblyInfo.vb
View File

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

2
SDL/USTV/usrCntlUSTV.vb
View File

@@ -206,7 +206,7 @@ Public Class usrCntlUSTV
Risiko = 0 Risiko = 0
End If End If
'Beim Differenzbetrag
Differnezbetrag = GesamtUSteuer - GesamtErstattung 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(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 20 .Columns(7).Width = 20
.Columns(6).DefaultCellStyle.Format = "N0" .Columns(6).DefaultCellStyle.Format = "N2"
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 70 .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 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)
Dim frm As New frmMDMLieferantenrechnungen
frm.Show(Me)
End If
End Sub End Sub

35
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -159,7 +159,7 @@ Public Class cMDMFunctionsAllgemein
'Deswegen sollten alle ungarischen Anträge die wir für SRB und BIH Kunden stellen, nicht beim Risiko mitberechnet werden 'Deswegen sollten alle ungarischen Anträge die wir für SRB und BIH Kunden stellen, nicht beim Risiko mitberechnet werden
Dim sqlSummeBilden = "SELECT Dim sqlSummeBilden_OLD = "SELECT
tblUStVAntrag.UStVAn_KuNr, tblUStVAntrag.UStVAn_KuNr,
SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer, SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer,
SUM(tblUStVAntrag.UStVAn_ErstattungsbetragEUR) As UStVKu_SummeErstattung, SUM(tblUStVAntrag.UStVAn_ErstattungsbetragEUR) As UStVKu_SummeErstattung,
@@ -175,6 +175,39 @@ Public Class cMDMFunctionsAllgemein
Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") & Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") &
" Group By tblUStVAntrag.UStVAn_KuNr" " Group By tblUStVAntrag.UStVAn_KuNr"
Dim sqlSummeBilden = "SELECT
tblUStVAntrag.UStVAn_KuNr,
SUM(
CASE WHEN (tblUStVAntrag.UStVAn_LandKz = 'SRB' OR tblUStVAntrag.UStVAn_LandKz = 'BIH') AND tblUStVAntrag.UStVAn_LandNr = 64
THEN 0
Else UStVAn_USteuerbetragEUR
End
) AS UStVKu_SummeUmsatzsteuer,
SUM(
CASE WHEN (tblUStVAntrag.UStVAn_LandKz = 'SRB' OR tblUStVAntrag.UStVAn_LandKz = 'BIH') AND tblUStVAntrag.UStVAn_LandNr = 64
THEN 0
Else UStVAn_ErstattungsbetragEUR
End
) AS UStVKu_SummeErstattung,
SUM(ISNULL(tblUStVAntrag.UStVAn_3470, 0)) As UStVKu_SummeKonto3470,
SUM(
CASE
WHEN (ISNULL(tblUStVAntrag.UStVAn_VZBetrag, 0) - ISNULL(tblUStVAntrag.UStVAn_RZBetragVZ, 0)) > tblUStVAntrag.UStVAn_ErstattungsbetragEUR
THEN (ISNULL(tblUStVAntrag.UStVAn_VZBetrag, 0) - ISNULL(tblUStVAntrag.UStVAn_RZBetragVZ, 0)) - tblUStVAntrag.UStVAn_ErstattungsbetragEUR
Else 0
End
) AS UStVKu_SummeVorauszahlung
From tblUStVAntrag
Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") &
" Group By tblUStVAntrag.UStVAn_KuNr"
Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL") Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL")
Dim curUStV_SummeVorschaubetragEUR As Double = 0 Dim curUStV_SummeVorschaubetragEUR As Double = 0