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

MDMFunctions, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-08 15:38:48 +02:00
parent a3d6069226
commit ce29fa679d
6 changed files with 39 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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.5.8")> <Assembly: AssemblyVersion("1.4.5.9")>
<Assembly: AssemblyFileVersion("1.4.5.8")> <Assembly: AssemblyFileVersion("1.4.5.9")>

5
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -619,12 +619,12 @@ Public Class frmUSTVoffeneAntraege
'bei Einstellung "ALLE KUNDEN" 'bei Einstellung "ALLE KUNDEN"
If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= " AND ( NOT " If dtKundeMWST.Rows.Count > 0 Then sqlwhereLand &= " AND ( NOT ("
For Each row As DataRow In dtKundeMWST.Rows For Each row As DataRow In dtKundeMWST.Rows
landBez = row.Item("abc").ToString.Replace(";", "'") landBez = row.Item("abc").ToString.Replace(";", "'")
counter = counter + 1 counter = counter + 1
sqlwhereLand &= " ( isnull(AdressenNr,0) = " & row.Item("KdNr") & " AND Einreichland in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ")) " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", ")") sqlwhereLand &= " (isnull(AdressenNr,0) = " & row.Item("KdNr") & " AND Einreichland in (" & landBez.ToString.Substring(0, landBez.ToString.Length - 1) & ")) " & IIf(dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count, "OR ", "))")
Next Next
Else Else
@@ -1074,6 +1074,7 @@ Public Class frmUSTVoffeneAntraege
R("MitgliedslandEU") = False R("MitgliedslandEU") = False
dTLANDEU.Rows.Add(R) dTLANDEU.Rows.Add(R)
frmMain.EnableDoubleBuffered(MyDatagridview1)
End Sub End Sub

2
SDL/USTV/usrCntlUSTV.vb
View File

@@ -336,6 +336,8 @@ Public Class usrCntlUSTV
btnNeuerUSTVA.Enabled = True btnNeuerUSTVA.Enabled = True
End If End If
End If End If
frmMain.EnableDoubleBuffered(dgvUSTV)
' Panel3.Height = Me.Height / 2 + 300 ' Panel3.Height = Me.Height / 2 + 300
End Sub End Sub

7
SDL/frmMain.vb
View File

@@ -2,6 +2,7 @@
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports System.Drawing.Drawing2D Imports System.Drawing.Drawing2D
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports System.Reflection
Public Class frmMain Public Class frmMain
@@ -51,6 +52,12 @@ Public Class frmMain
Label9.Visible = True Label9.Visible = True
End If End If
End Sub End Sub
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
End Sub
Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

42
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,7 +1,6 @@
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports jdk.nashorn.internal.objects.annotations
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung Public Class usrcntlFakturierung
@@ -251,7 +250,7 @@ Public Class usrcntlFakturierung
Dim BelegartenNr As Integer Dim BelegartenNr As Integer
Dim BelegartenKz As String Dim BelegartenKz As String
Dim BelegartenBez As String Dim BelegartenBez As String
Dim Vorzeichen As String Dim Vorzeichen As String = "+"
If r("Sammelrechnungsbetrag") >= 0 Then If r("Sammelrechnungsbetrag") >= 0 Then
@@ -270,25 +269,24 @@ Public Class usrcntlFakturierung
Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!) Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
Dim dtRE_set As DataTable = (New SQL).loadDgvBySql("SELECT RK_ID FROM [Rechnungsausgang] WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL") 'Dim dtRE_set As DataTable = (New SQL).loadDgvBySql("SELECT RK_ID FROM [Rechnungsausgang] WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
For Each RE As DataRow In dtRE_set.Rows 'For Each RE As DataRow In dtRE_set.Rows
Dim RECHNUNG As New cRechnungsausgang(RE("RK_ID")) ' Dim RECHNUNG As New cRechnungsausgang(RE("RK_ID"))
RECHNUNG.BelegartenBez = BelegartenBez ' RECHNUNG.BelegartenBez = BelegartenBez
RECHNUNG.BelegartenKz = BelegartenKz ' RECHNUNG.BelegartenKz = BelegartenKz
RECHNUNG.BelegartenNr = BelegartenNr ' RECHNUNG.BelegartenNr = BelegartenNr
RECHNUNG.Vorzeichen = Vorzeichen ' RECHNUNG.Vorzeichen = Vorzeichen
ok = RECHNUNG.SAVE() ' ok = RECHNUNG.SAVE()
If Not ok Then Exit For ' If Not ok Then Exit For
Next 'Next
'nicht per SQL-Update, sondst werden die Vorzeichen bei RE/GU uU falsch gesetzt!!!!!!!!!!!!!!!
'ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
' WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL") ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
@@ -465,8 +463,8 @@ Public Class usrcntlFakturierung
If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag")) If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1) RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1) RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False) isSet = RECHNUNG.SAVE(False)
End If End If
@@ -649,8 +647,8 @@ Public Class usrcntlFakturierung
If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag")) If Not IsDBNull(row("SteuerfreierBetrag")) AndAlso IsNumeric(row("SteuerfreierBetrag")) Then stfregesBetr = stfregesBetr - CDbl(row("SteuerfreierBetrag"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, row("LeistungsNr"), row("Steuerpflichtig"), row("LeistungsBez"), row("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1) 'Beim Speichern wird das Vorzeichen nochmals ermittelt RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1) 'Beim Speichern wird das Vorzeichen nochmals ermittelt
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1) RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False) isSet = RECHNUNG.SAVE(False)
End If End If
@@ -889,8 +887,8 @@ Public Class usrcntlFakturierung
Dim RECHNUNG As New cRechnungsausgang(re("RK_ID")) Dim RECHNUNG As New cRechnungsausgang(re("RK_ID"))
If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, r415("LeistungsNr"), r415("Steuerpflichtig"), r415("LeistungsBez"), r415("IndexZkteing")) Then If RECHNUNG.DELETE_POSITIONEN(RECHNUNG.RK_ID, r415("LeistungsNr"), r415("Steuerpflichtig"), r415("LeistungsBez"), r415("IndexZkteing")) Then
RECHNUNG.SteuerfreierGesamtbetrag = steuerfreiegerGesamtbetrag '* If(RECHNUNG.Vorzeichen = "-", -1, 1) RECHNUNG.SteuerfreierGesamtbetrag = steuerfreiegerGesamtbetrag * If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag '* If(RECHNUNG.Vorzeichen = "-", -1, 1) RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False) isSet = RECHNUNG.SAVE(False)
End If End If