From aa7aaf8013b43d8ac3369d87ab58ae39c0e351ce Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 31 Jul 2025 17:32:17 +0200 Subject: [PATCH] USTVA --- SDL/Fakturierung/frmFaktEmail.vb | 60 ++++++++++++++++++-------------- 1 file changed, 34 insertions(+), 26 deletions(-) diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 6ca4039f..ddb80202 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -800,38 +800,49 @@ Public Class frmFaktEmail ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1 - ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb - ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb + ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb * -1 + ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb * -1 ANTR_ERSTATTUNG.SAVE() End If + If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then + + USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb * -1 + USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum + USTV_ANTRAG.SAVE() + + End If + Dim hasVZ As Boolean = False - For Each pos In USTV_ANTRAG.POSITIONEN - If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde! - hasVZ = True - Exit For - End If - Next - - If hasVZ Then - Dim SQL As New SQL - - For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN - - If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then - pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID - pos.SAVE() + For Each pos In USTV_ANTRAG.POSITIONEN + If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde! + hasVZ = True + Exit For End If - Next - Dim count_nichtAbgerVZ As Integer = -1 - count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL")) - If count_nichtAbgerVZ = 0 Then - SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL") - End If + If hasVZ Then + Dim SQL As New SQL + For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN + + If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then + pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID + pos.SAVE() + End If + + Next + + Dim count_nichtAbgerVZ As Integer = -1 + count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL")) + If count_nichtAbgerVZ = 0 Then + SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL") + End If + + + + End If End If @@ -839,9 +850,6 @@ Public Class frmFaktEmail End If - - End If - '------------------------------------------------------------------------------------------ ' STB /FA send_StbFAMail(RECHNUNG.RechnungsKundenNr, " Rg-Nr.: " & RechnungsNr & abfNr, RECHNUNG.RechnungsNr)