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

5
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -619,12 +619,12 @@ Public Class frmUSTVoffeneAntraege
'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
landBez = row.Item("abc").ToString.Replace(";", "'")
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
Else
@@ -1074,6 +1074,7 @@ Public Class frmUSTVoffeneAntraege
R("MitgliedslandEU") = False
dTLANDEU.Rows.Add(R)
frmMain.EnableDoubleBuffered(MyDatagridview1)
End Sub

2
SDL/USTV/usrCntlUSTV.vb
View File

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

7
SDL/frmMain.vb
View File

@@ -2,6 +2,7 @@
Imports Microsoft.Office.Interop
Imports System.Drawing.Drawing2D
Imports VERAG_PROG_ALLGEMEIN
Imports System.Reflection
Public Class frmMain
@@ -51,6 +52,12 @@ Public Class frmMain
Label9.Visible = True
End If
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

42
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,7 +1,6 @@
Imports System.Globalization
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports jdk.nashorn.internal.objects.annotations
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung
@@ -251,7 +250,7 @@ Public Class usrcntlFakturierung
Dim BelegartenNr As Integer
Dim BelegartenKz As String
Dim BelegartenBez As String
Dim Vorzeichen As String
Dim Vorzeichen As String = "+"
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 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"))
RECHNUNG.BelegartenBez = BelegartenBez
RECHNUNG.BelegartenKz = BelegartenKz
RECHNUNG.BelegartenNr = BelegartenNr
RECHNUNG.Vorzeichen = Vorzeichen
ok = RECHNUNG.SAVE()
If Not ok Then Exit For
' Dim RECHNUNG As New cRechnungsausgang(RE("RK_ID"))
' RECHNUNG.BelegartenBez = BelegartenBez
' RECHNUNG.BelegartenKz = BelegartenKz
' RECHNUNG.BelegartenNr = BelegartenNr
' RECHNUNG.Vorzeichen = Vorzeichen
' ok = RECHNUNG.SAVE()
' If Not ok Then Exit For
Next
'nicht per SQL-Update, sondst werden die Vorzeichen bei RE/GU uU falsch gesetzt!!!!!!!!!!!!!!!
'Next
'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
@@ -465,8 +463,8 @@ Public Class usrcntlFakturierung
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
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
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 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.SteuerpflichtigerGesamtbetrag = stgesBetr '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerfreierGesamtbetrag = stfregesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1) 'Beim Speichern wird das Vorzeichen nochmals ermittelt
RECHNUNG.SteuerpflichtigerGesamtbetrag = stgesBetr * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
End If
@@ -889,8 +887,8 @@ Public Class usrcntlFakturierung
Dim RECHNUNG As New cRechnungsausgang(re("RK_ID"))
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.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag '* If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerfreierGesamtbetrag = steuerfreiegerGesamtbetrag * If(RECHNUNG.Vorzeichen = "-", -1, 1)
RECHNUNG.SteuerpflichtigerGesamtbetrag = steuerpflichtigerGesamtbetrag * If(RECHNUNG.Vorzeichen = "-", -1, 1)
isSet = RECHNUNG.SAVE(False)
End If

10
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -1117,21 +1117,21 @@ Public Class cMDMFunctionsAllgemein
AND leist.[UStV_Leistender]= [tblUStVPositionen].[UStVPo_Leistender])
where UStVAn_ID=" & USTV_ANTRAG.UStVAn_ID & sqlWHere & " ORDER BY UStVPo_ID"
Dim dtNew As DataTable = sql.loadDgvBySql(StringSQL, " FMZOLL")
Dim dtNew As DataTable = sql.loadDgvBySql(StringSQL, "FMZOLL")
If dtNew IsNot Nothing AndAlso dtNew.Rows.Count > 0 Then
If type = " excel" Then
If type = "excel" Then
Dim sumVAT As Double = 0
For Each row In dtNew.Rows
If Not IsDBNull(row(" Amount of tax refund")) AndAlso IsNumeric(row(" Amount of tax refund")) Then sumVAT += CDbl(row(" Amount of tax refund"))
If Not IsDBNull(row(" Amount of tax refund")) AndAlso IsNumeric(row(" Amount of tax refund")) Then row(" Amount of tax refund") = CDbl(row(" Amount of tax refund"))
If Not IsDBNull(row(" Name of supplier")) AndAlso row(" Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then sumVAT += CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then row("Amount of tax refund") = CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Name of supplier")) AndAlso row("Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then
row("Name of supplier") = row("Name of supplier").ToString.Replace(" " & row("VAT").ToString.Substring(0, 2), "")
End If
Next