ustv

SDL/Fakturierung/frmFaktEmail.vb

@@ -386,7 +386,7 @@ Public Class frmFaktEmail
 
                         If Not SR Then
 
-                            If RECHNUNG.FilialenNr = 4817 And Firma_ID = 19 AndAlso RECHNUNG.ErfassungsNr IsNot Nothing Then
+                            If RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.ErfassungsNr IsNot Nothing Then
                                 Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr)
                                 If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
                                     Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
@@ -426,9 +426,19 @@ Public Class frmFaktEmail
                                     End If
 
                                     If mailText <> "" Then TextHTML &= mailText & vbNewLine
-                                    'TextHTML &= "<br><br><br>" & cFakturierung.getSignature(RechnungsLandKz, Firma_ID)
+
 
                                 End If
+
+                            Else
+                                'sonst alles weg!
+                                replaceKZ("nichtRMC", TextHTML)
+                                replaceKZ("RMC", TextHTML)
+                                replaceKZ("KZ1", TextHTML)
+                                replaceKZ("KZ4", TextHTML)
+                                TextHTML = TextHTML.ToString.Replace("%", "")
+
+
                             End If
                         End If
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.6.2")>
+<Assembly: AssemblyVersion("1.4.6.3")>
-<Assembly: AssemblyFileVersion("1.4.6.2")>
+<Assembly: AssemblyFileVersion("1.4.6.3")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1666,14 +1666,40 @@ Public Class frmMDM_USTVAntrag
             End If
 
 
-            'check if already existing 'überschneidungen prüfen!!!!
+            'Start neue Version
+            'check if already existing 'überschneidungen prüfen!!!! -> jz wieder doch nicht.......... 
 
+            Dim StringSQL As String = "SELECT 
+                                       UStVAn_ID,
+                                       UStVAn_ReDatVon,
+                                       UStVAn_ReDatBis,
+                                       UStVAn_AntragEingereichtAm
+                                   FROM tblUStVAntrag b
+                                   WHERE 
+                                       b.UStvAN_KuNr = " & KundenNr & "
+                                       AND (ISNULL(b.UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' OR b.UStVAn_AntragArt = '')
+                                       AND b.UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & "
+                                       -- Überschneidungstest (inklusive Grenzen)
+                                       AND NOT (
+                                           COALESCE(CAST(b.UStVAn_ReDatBis AS date), '9999-12-31') < '" & CDate(txtVon._value).ToShortDateString & "'
+                                           OR COALESCE(CAST(b.UStVAn_ReDatVon AS date), '1900-01-01') > '" & CDate(txtBis._value).ToShortDateString & "'
+                                       )
+                                       -- optional: die exakt gleiche Periode ausschließen (wenn gewünscht)
+                                       AND NOT (
+                                           COALESCE(CAST(b.UStVAn_ReDatVon AS date),'1900-01-01') = '" & CDate(txtVon._value).ToShortDateString & "'
+                                           AND COALESCE(CAST(b.UStVAn_ReDatBis AS date),'9999-12-31') = '" & CDate(txtBis._value).ToShortDateString & "') order by UStVAn_ReDatVon"
 
-            Dim dt_existingUSTVA As DataTable = SQL.loadDgvBySql("Select UStVAn_ID,UStVAn_ReDatvon, UStVAn_ReDatBis, UStVAn_AntragEingereichtAm   from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & " 
+            Dim dt_existingUSTVA As DataTable = SQL.loadDgvBySql(StringSQL, "FMZOLL")
-                        AND not ((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "'  or cast(UStVAn_ReDatBis as date) <= '" & CDate(txtVon._value).ToShortDateString & "' )  and  (cast(UStVAn_ReDatBis as date) < '" & CDate(txtBis._value).ToShortDateString & "' or cast(UStVAn_ReDatvon as date) >= '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL")
 
-            'Dim anzUSTVA = CInt((New SQL).getValueTxtBySql("Select count(*) from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & " 
+            'Ende neue Version
-            '            AND not ((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "' and cast(UStVAn_ReDatBis as date) <= '" & CDate(txtVon._value).ToShortDateString & "')  or  (cast(UStVAn_ReDatvon as date) < '" & CDate(txtBis._value).ToShortDateString & "' and  cast(UStVAn_ReDatBis as date) >= '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL"))
+
+            'alte Version wieder aktiviert.
+            'Start alte Version --------------------------------------
+
+            'Dim dt_existingUSTVA As DataTable = SQL.loadDgvBySql("Select UStVAn_ID,UStVAn_ReDatvon, UStVAn_ReDatBis, UStVAn_AntragEingereichtAm   from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & " 
+            '            AND not ((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "'  or cast(UStVAn_ReDatBis as date) <= '" & CDate(txtVon._value).ToShortDateString & "' )  and  (cast(UStVAn_ReDatBis as date) < '" & CDate(txtBis._value).ToShortDateString & "' or cast(UStVAn_ReDatvon as date) >= '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL")
+
+            'Ende alte Version --------------------------------------
 
             If dt_existingUSTVA.Rows.Count = 1 Then
 
@@ -1691,7 +1717,34 @@ Public Class frmMDM_USTVAntrag
                 End Select
 
             ElseIf dt_existingUSTVA.Rows.Count > 1 Then
-                If Not vbYes = MsgBox("Es existiert bereits mind. ein " & cboAntragArt._value & "-Eintrag in diesem Zeitbereich von " & ADR.Name_1 & " für " & cbxLand.SelectedItem.ToString & vbNewLine & "Trotzdem Antrag speichern?", vbYesNoCancel) Then Exit Sub
+                Dim testInfo As String = "Es existieren bereits " & dt_existingUSTVA.Rows.Count & " " & cboAntragArt._value & "-Einträge in diesem Zeitbereich von " & vbNewLine
+                Dim IDnichteingereicht As Integer = -1
+                For Each r In dt_existingUSTVA.Rows
+                    testInfo &= vbNewLine & r.Item("UStVAn_ReDatvon") & " -  " & r.Item("UStVAn_ReDatbis") & IIf(Not IsDBNull(r.Item("UStVAn_AntragEingereichtAm")) AndAlso IsDate(r.Item("UStVAn_AntragEingereichtAm")), " bereits eingereicht! ", "")
+
+                    If IsDBNull(r.Item("UStVAn_AntragEingereichtAm")) OrElse IsDate(r.Item("UStVAn_AntragEingereichtAm")) Then
+                        IDnichteingereicht = (r.Item("UStVAn_ID"))
+                    End If
+
+                Next
+
+                testInfo &= vbNewLine & vbNewLine & "von " & ADR.Name_1 & " für " & cbxLand.SelectedItem.ToString
+
+                Dim result As MsgBoxResult = MsgBox(testInfo & vbNewLine & "Ja = Antrag speichern" & vbNewLine & "Nein = existierenden Antrag öffnen", vbYesNoCancel)
+                Select Case result
+                    Case MsgBoxResult.Cancel : Exit Sub
+                    Case MsgBoxResult.No
+                        Me.Close()
+                        If IDnichteingereicht > 0 Then
+                            Dim frm = New frmMDM_USTVAntrag(IDnichteingereicht)
+                            frm.ShowDialog()
+                            Exit Sub
+                        Else
+                            'Exit Sub
+                        End If
+
+
+                End Select
             End If