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

fix ustva

Browse Source
This commit is contained in:
d.breimaier
2026-08-31 11:43:46 +02:00
parent b171558cbe
commit f66b136a9e
4 changed files with 46 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -821,19 +821,26 @@ Public Class frmFaktEmail
Next Next
Dim SQL As New SQL
If Not hatNichtAbgerechneteVZ Then If Not hatNichtAbgerechneteVZ Then
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
If Not ANTR_ERSTATTUNG.hasEntry Then Dim count_offene_importierteErstattungen As Integer = -1
ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr() count_offene_importierteErstattungen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVEr_Importfilename] is not null and [GutschriftsNr] is null and [GutschriftsDatum] is null ", "FMZOLL"))
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr If count_offene_importierteErstattungen > 0 Then
ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1 SQL.doSQL("UPDATE [tblUStVErstattung] SET GutschriftsNr = " & RECHNUNG.RechnungsNr & ",GutschriftsDatum = '" & CDate(RECHNUNG.RechnungsDatum).ToShortDateString & "', UStVEr_RK_ID = " & RECHNUNG.RK_ID & " WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVEr_Importfilename] is not null and [GutschriftsNr] is null and [GutschriftsDatum] is null ", "FMZOLL")
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = 0
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = 0
ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
ANTR_ERSTATTUNG.SAVE()
End If End If
'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
'If Not ANTR_ERSTATTUNG.hasEntry Then
' ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr()
' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
' ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
' ANTR_ERSTATTUNG.SAVE()
'End If
If durchREWurdeVZAbgerechnet Then If durchREWurdeVZAbgerechnet Then
USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
@@ -854,7 +861,7 @@ Public Class frmFaktEmail
End If End If
If hatNichtAbgerechneteVZ Then If hatNichtAbgerechneteVZ Then
Dim SQL As New SQL
For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN

16
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -358,12 +358,6 @@ Public Class frmMDM_USTVAntrag
End If End If
End If End If
'If dgvUSTVPositionen.Rows.Count = 1 Then
' posIndex = dgvUSTVPositionen.Rows.Count
' suppressSelectionChanged = False
'End If
If posIndex > 0 Then If posIndex > 0 Then
Dim idx As Integer = posIndex - 1 Dim idx As Integer = posIndex - 1
If idx >= 0 AndAlso dgvUSTVPositionen.Rows.Count > idx Then If idx >= 0 AndAlso dgvUSTVPositionen.Rows.Count > idx Then
@@ -500,7 +494,6 @@ Public Class frmMDM_USTVAntrag
If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer" If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer"
If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport" If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport"
If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben" If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben"
If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False
If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False
If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False
@@ -1916,7 +1909,7 @@ Public Class frmMDM_USTVAntrag
End If End If
checkIfMWSTEingangAbrechung()
Else Else
@@ -2335,6 +2328,7 @@ Public Class frmMDM_USTVAntrag
UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr
UstCntlUSTV_AntragPosition1.Enabled = True UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.txtRgDatum.Focus() UstCntlUSTV_AntragPosition1.txtRgDatum.Focus()
UstCntlUSTV_AntragPosition1.initUsrCntlPDF()
End Sub End Sub
@@ -3280,8 +3274,8 @@ Public Class frmMDM_USTVAntrag
Dim count_nichtMWSTOffen As Integer = -1 Dim count_nichtMWSTOffen As Integer = -1
count_nichtMWSTOffen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and isnull([GutschriftsDatum],0) = 0 and UStVEr_Importfilename is not null", "FMZOLL")) count_nichtMWSTOffen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [GutschriftsDatum] is null and UStVEr_Importfilename is not null", "FMZOLL"))
If count_nichtMWSTOffen = 0 Then If count_nichtMWSTOffen = 0 AndAlso USTV_ANTRAG.UStVAn_MWSTEingang_offen Then
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_MWSTEingang_offen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL") SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_MWSTEingang_offen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL")
End If End If
@@ -3488,7 +3482,7 @@ Public Class frmMDM_USTVAntrag
Dim c As New DataGridViewImageColumn Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "GU" c.Name = "clmnPDF" : c.HeaderText = "GS"
' c.Image = Nothing ' c.Image = Nothing
c.DefaultCellStyle.NullValue = Nothing c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom c.ImageLayout = DataGridViewImageCellLayout.Zoom

12
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1968,8 +1968,8 @@ Public Class usrCntlUSTV
Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count
Dim input = Convert.ToString(Blatt.Cells(1, 1).Value).Trim() Dim input = Convert.ToString(Blatt.Cells(1, 1).Value).Trim()
If input <> "" AndAlso input.StartsWith("MWST-Eingang") Then If input <> "" AndAlso input.StartsWith("MWST Eingänge ") Then
BelegdatumInput = input.Replace("MWST-Eingang", "") BelegdatumInput = input.Replace("MWST Eingänge ", "")
BelegdatumInput = BelegdatumInput.Trim BelegdatumInput = BelegdatumInput.Trim
End If End If
@@ -2130,20 +2130,20 @@ Public Class usrCntlUSTV
End If End If
If Not String.IsNullOrWhiteSpace(r.Cells("Bank").Value) AndAlso IsNumeric(r.Cells("Bank").Value) AndAlso Not IsDBNull(r.Cells("Bank")) AndAlso CDbl(r.Cells("Bank").Value) <> 0 Then If Not String.IsNullOrWhiteSpace(r.Cells("Bank").Value) AndAlso IsNumeric(r.Cells("Bank").Value) AndAlso Not IsDBNull(r.Cells("Bank").Value) AndAlso CDbl(r.Cells("Bank").Value) <> 0 Then
Bemerkung &= ", a.K. : " & CDbl(r.Cells("Bank").Value).ToString("N2") & " " & USTV_ANTRAG.UStVAn_Währungscode Bemerkung &= ", a.K. : " & CDbl(r.Cells("Bank").Value).ToString("N2") & " " & USTV_ANTRAG.UStVAn_Währungscode
UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value) UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value)
End If End If
If isVZ Then If isVZ Then
If Not String.IsNullOrWhiteSpace(r.Cells("VZDiff").Value) AndAlso IsNumeric(r.Cells("VZDiff")) AndAlso Not IsDBNull(r.Cells("VZDiff")) AndAlso CDbl(r.Cells("VZDiff").Value) <> 0 Then If Not String.IsNullOrWhiteSpace(r.Cells("VZDiff").Value) AndAlso IsNumeric(r.Cells("VZDiff").Value) AndAlso Not IsDBNull(r.Cells("VZDiff").Value) AndAlso CDbl(r.Cells("VZDiff").Value) <> 0 Then
Bemerkung &= ", VZDiff: " & CDbl(r.Cells("VZDiff").Value).ToString("N2") Bemerkung &= ", VZDiff: " & CDbl(r.Cells("VZDiff").Value).ToString("N2")
UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("VZDiff").Value) UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("VZDiff").Value)
End If End If
Else Else
If Not String.IsNullOrWhiteSpace(r.Cells("Diff").Value) AndAlso IsNumeric(r.Cells("Diff")) AndAlso Not IsDBNull(r.Cells("Diff")) AndAlso CDbl(r.Cells("Diff").Value) <> 0 Then If Not String.IsNullOrWhiteSpace(r.Cells("Diff").Value) AndAlso IsNumeric(r.Cells("Diff").Value) AndAlso Not IsDBNull(r.Cells("Diff").Value) AndAlso CDbl(r.Cells("Diff").Value) <> 0 Then
Bemerkung &= ", Diff: " & CDbl(r.Cells("Diff").Value).ToString("N2") Bemerkung &= ", Diff: " & CDbl(r.Cells("Diff").Value).ToString("N2")
UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("Diff").Value) UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("Diff").Value)
@@ -2152,7 +2152,7 @@ Public Class usrCntlUSTV
If Not String.IsNullOrWhiteSpace(r.Cells("RZVZ").Value) AndAlso IsNumeric(r.Cells("RZVZ")) AndAlso Not IsDBNull(r.Cells("RZVZ")) AndAlso CDbl(r.Cells("RZVZ").Value) <> 0 Then If Not String.IsNullOrWhiteSpace(r.Cells("RZVZ").Value) AndAlso IsNumeric(r.Cells("RZVZ").Value) AndAlso Not IsDBNull(r.Cells("RZVZ").Value) AndAlso CDbl(r.Cells("RZVZ").Value) <> 0 Then
UStV_ERS.UStVEr_RZVZ = CDbl(r.Cells("RZVZ").Value).ToString("N2") UStV_ERS.UStVEr_RZVZ = CDbl(r.Cells("RZVZ").Value).ToString("N2")
If updateVURZ Then If updateVURZ Then
If USTV_ANTRAG.UStVAn_RZBetragVZ Is Nothing OrElse IsDBNull(USTV_ANTRAG.UStVAn_RZBetragVZ) Then If USTV_ANTRAG.UStVAn_RZBetragVZ Is Nothing OrElse IsDBNull(USTV_ANTRAG.UStVAn_RZBetragVZ) Then

20
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -48,12 +48,23 @@ Public Class ustCntlUSTV_AntragPosition
txtUIDNr.Text = "" txtUIDNr.Text = ""
Me.Antrag_LandKz = Antrag_LandKz Me.Antrag_LandKz = Antrag_LandKz
_gridAktiv = True _gridAktiv = True
InitLeistenderSearchBox() InitLeistenderSearchBox()
End Sub End Sub
Sub initUsrCntlPDF()
scanSonstiges.INIT(_kundenNr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr)
'scanSonstiges.INIT_daId(da_id)
scanSonstiges.Enabled = True
btnAPIUbload.Enabled = False
End Sub
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN) Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN)
initSchnittstellenNr() initSchnittstellenNr()
@@ -131,10 +142,11 @@ Public Class ustCntlUSTV_AntragPosition
scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0 scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0
btnAPIUbload.Enabled = True 'hochladbar aber nicht einfügen lassen! UStV_POS.UStVPo_daId_loeschbar btnAPIUbload.Enabled = True 'hochladbar aber nicht einfügen lassen! UStV_POS.UStVPo_daId_loeschbar
Else Else
scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr) initUsrCntlPDF()
'scanSonstiges.INIT_daId(da_id) 'scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr)
scanSonstiges.Enabled = True ''scanSonstiges.INIT_daId(da_id)
btnAPIUbload.Enabled = False 'scanSonstiges.Enabled = True
'btnAPIUbload.Enabled = False
End If End If
If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then