fix ustva

SDL/Fakturierung/frmFaktEmail.vb

@@ -821,19 +821,26 @@ Public Class frmFaktEmail
 
                             Next
 
+                            Dim SQL As New SQL
                             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
 
+                                '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
 
                                     USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
@@ -854,7 +861,7 @@ Public Class frmFaktEmail
                             End If
 
                             If hatNichtAbgerechneteVZ Then
-                                Dim SQL As New SQL
+
 
                                 For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN
 

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -5,7 +5,6 @@ Imports System.Web.UI.WebControls.Expressions
 Imports System.Windows.Documents
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
-Imports TAlex.WPF.Helpers
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDM_USTVAntrag
@@ -26,6 +25,7 @@ Public Class frmMDM_USTVAntrag
     Dim GesamtUSteuer As Double
     Dim looked As Boolean = False
     Dim suppressSelectionChanged = False
+    Dim suppressSelectionFirstTime = True
 
     Sub New(UStVAn_ID)
 
@@ -54,7 +54,9 @@ Public Class frmMDM_USTVAntrag
 
     Sub init(Optional posIndex As Integer = -1, Optional Lieferant As String = "")
 
-        suppressSelectionChanged = True
+
+        If Not suppressSelectionFirstTime Then suppressSelectionChanged = True
+        suppressSelectionFirstTime = False
 
 
         pnlBody.AutoScroll = False
@@ -356,12 +358,6 @@ Public Class frmMDM_USTVAntrag
             End If
         End If
 
-        If dgvUSTVPositionen.Rows.Count = 1 Then
-            posIndex = dgvUSTVPositionen.Rows.Count
-            suppressSelectionChanged = False
-        End If
-
-
         If posIndex > 0 Then
             Dim idx As Integer = posIndex - 1
             If idx >= 0 AndAlso dgvUSTVPositionen.Rows.Count > idx Then
@@ -498,7 +494,6 @@ Public Class frmMDM_USTVAntrag
                 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_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_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
@@ -1914,7 +1909,7 @@ Public Class frmMDM_USTVAntrag
 
             End If
 
-
+            checkIfMWSTEingangAbrechung()
 
 
         Else
@@ -2070,7 +2065,7 @@ Public Class frmMDM_USTVAntrag
 
 
         Else
-            UstCntlUSTV_AntragPosition1.reset()
+            UstCntlUSTV_AntragPosition1.reset(Antrag_LandKz)
             UstCntlUSTV_AntragPosition1.Enabled = False
         End If
 
@@ -2327,12 +2322,13 @@ Public Class frmMDM_USTVAntrag
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNeuerEintrag.Click
 
-        UstCntlUSTV_AntragPosition1.reset()
+        UstCntlUSTV_AntragPosition1.reset(Antrag_LandKz)
         UstCntlUSTV_AntragPosition1.UStV_POS = New cUStVPositionen(UStVAn_ID)
         UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
         UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr
         UstCntlUSTV_AntragPosition1.Enabled = True
         UstCntlUSTV_AntragPosition1.txtRgDatum.Focus()
+        UstCntlUSTV_AntragPosition1.initUsrCntlPDF()
 
 
     End Sub
@@ -3278,8 +3274,8 @@ Public Class frmMDM_USTVAntrag
 
 
         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")
         End If
 
@@ -3486,7 +3482,7 @@ Public Class frmMDM_USTVAntrag
 
 
             Dim c As New DataGridViewImageColumn
-            c.Name = "clmnPDF" : c.HeaderText = "GU"
+            c.Name = "clmnPDF" : c.HeaderText = "GS"
             '    c.Image = Nothing
             c.DefaultCellStyle.NullValue = Nothing
             c.ImageLayout = DataGridViewImageCellLayout.Zoom

SDL/USTV/usrCntlUSTV.vb

@@ -1968,8 +1968,8 @@ Public Class usrCntlUSTV
                 Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count
 
                 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
                 End If
 
@@ -2130,20 +2130,20 @@ Public Class usrCntlUSTV
 
                                         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
                                             UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value)
                                         End If
 
                                         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")
                                                 UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("VZDiff").Value)
 
                                             End If
 
                                         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")
                                                 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")
                                             If updateVURZ Then
                                                 If USTV_ANTRAG.UStVAn_RZBetragVZ Is Nothing OrElse IsDBNull(USTV_ANTRAG.UStVAn_RZBetragVZ) Then

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -22,7 +22,7 @@ Public Class ustCntlUSTV_AntragPosition
         RaiseEvent EV_NEXT()
     End Sub
 
-    Sub reset()
+    Sub reset(Antrag_LandKz As String)
         txtRgDatum._value = ""
         txtRgNr._value = ""
         btnLeistenderSave.Visible = False
@@ -46,6 +46,9 @@ Public Class ustCntlUSTV_AntragPosition
         txtOrt.Text = ""
         txtLand.Text = ""
         txtUIDNr.Text = ""
+        Me.Antrag_LandKz = Antrag_LandKz
+
+
 
         _gridAktiv = True
 
@@ -53,6 +56,15 @@ Public Class ustCntlUSTV_AntragPosition
 
     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)
 
         initSchnittstellenNr()
@@ -60,6 +72,7 @@ Public Class ustCntlUSTV_AntragPosition
         _gridAktiv = False
         btnLeistenderSave.Visible = False
         Me.Antrag_LandKz = Antrag_LandKz
+
         Me.UStV_POS = UStV_POS
         Me._kundenNr = kdnr
         cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
@@ -129,10 +142,11 @@ Public Class ustCntlUSTV_AntragPosition
             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
         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
 
         If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then
@@ -254,8 +268,7 @@ Public Class ustCntlUSTV_AntragPosition
         Dim filter As String = "UstV_aktiv = 1"
 
         If cbxAntragsfilter.Checked AndAlso Not String.IsNullOrWhiteSpace(Antrag_LandKz) Then
-            filter &= " AND LEFT(UstV_Leistender_UstNr, 2) = '" &
+            filter &= " AND LEFT(UstV_Leistender_UstNr, 2) = '" & Antrag_LandKz.Replace("'", "''") & "'"
-                  Antrag_LandKz.Replace("'", "''") & "'"
         End If
 
         sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender],[UStV_Leistender] AS Leistender,[UstV_Leistender_PLZ] AS PLZ,([UstV_Leistender_Strasse] + ' ' + [UstV_Leistender_StrasseNr]) AS Strasse,[UstV_Leistender_Stadt] AS Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})