From 44c87e506075898c79569c73125a4f160eae16ba Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 May 2025 10:48:12 +0200 Subject: [PATCH] fakt abr. Firma UNISPED --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 4 ++-- SDL/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index af9a804e..fc4b2c0f 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1444,7 +1444,7 @@ Public Class usrCntlFaktAbrechnung POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value) '-----------------------MWST-Abrechnung! + Kompat. zu FM-Zoll - If FIRMA.Firma_ID = 19 Then + If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then Dim isRC As Boolean = If(r.Cells("ReverseCharge").Value IsNot DBNull.Value, r.Cells("ReverseCharge").Value, False) setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez, antrag) End If @@ -4464,7 +4464,7 @@ Nächste_Textzeile_lesen: Dim landbez As String = "" If SPEDBUCH Is Nothing Then Return landbez - If SPEDBUCH.FilialenNr = 4817 AndAlso SPEDBUCH.AbfertigungsNr > 0 And FIRMA.Firma_ID = 19 Then + If SPEDBUCH.FilialenNr = 4817 AndAlso SPEDBUCH.AbfertigungsNr > 0 AndAlso FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 Then Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & SPEDBUCH.FilialenNr & " AND AbfertigungsNr = " & SPEDBUCH.AbfertigungsNr, "FMZOLL",,, "-1")) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index df4155e7..b6c62288 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +