ustva, rmc

SDL/My Project/AssemblyInfo.vb

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

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -588,6 +588,13 @@ Public Class frmNacherfassungNEU
             Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') "
             Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801", "4802"}
             Case "VERIMEX" : cboFiliale._allowedValuesFreiText = {"6001"}
+            Case "VERAG"
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
+                    cboFiliale._allowedValuesFreiText = {"4814", "4815", "4817", "4820", "4821", "4822", "4823", "4824", "4868", "8001"} : where = " AND mit_abteilung IN (' " & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG & "')"
+                Else
+                    where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') "
+                End If
+
             Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') "
         End Select
 

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -262,9 +262,20 @@ Public Class frmMDM_USTVAntrag
                 If KUNDE_ERW.kde_AnmerkungAntrag IsNot Nothing AndAlso KUNDE_ERW.kde_AnmerkungAntrag <> "" Then lblMWSTAntrag.Text &= " - " & KUNDE_ERW.kde_AnmerkungAntrag
             End If
 
+            If USTV_ANTRAG.FilialenNr IsNot Nothing AndAlso USTV_ANTRAG.FilialenNr > 0 AndAlso USTV_ANTRAG.AbfertigungsNr IsNot Nothing AndAlso USTV_ANTRAG.AbfertigungsNr > 0 Then
+                Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
+                If spedBuch.hasEntry Then
+                    Button4.Text = "Sped.-Buch anzeigen"
+                Else
+                    Button4.Text = "Sped.-Buch eintragen"
+                End If
+            Else
+                Button4.Text = "Sped.-Buch eintragen"
+            End If
+
         End If
 
-        If posIndex > 0 Then
+            If posIndex > 0 Then
             posIndex = posIndex - 1
             If posIndex > 0 And dgvUSTVPositionen.Rows.Count > posIndex Then
                 dgvUSTVPositionen.ClearSelection()
@@ -942,7 +953,7 @@ Public Class frmMDM_USTVAntrag
                         'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
 
                         Dim umrechKurs As Double = 1
-                        If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then
+                        If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
 
                             Dim UST_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
                             Dim UST_org As Double = CDbl(r.Item("rmc_betragBrutto"))
@@ -2270,7 +2281,15 @@ Public Class frmMDM_USTVAntrag
 
         Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
 
-        If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag!" & vbNewLine & "Vorgang wird abgebrochen ") : Exit Sub
+        If spedBuch.hasEntry Then
+            Dim frmNacherfassung As New frmNacherfassungNEU
+            frmNacherfassung.srchFiliale = USTV_ANTRAG.FilialenNr
+            frmNacherfassung.srchAbfertigungsnummer = USTV_ANTRAG.AbfertigungsNr
+            frmNacherfassung.srchUnterNr = 0
+            frmNacherfassung.ShowDialog(Me)
+
+            Exit Sub
+        End If
 
         With spedBuch
             .Abfertigungsdatum = Today()
@@ -2280,9 +2299,12 @@ Public Class frmMDM_USTVAntrag
             .AnzahlSonstiges = 1
             .Abfertigungsart = 10
             .Abfertigungsanzahl = 1
-            .Packstücke = "Mehrwertsteuerrückerstattung " & USTV_ANTRAG.UStVAn_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
+            .Packstücke = "Mehrwertsteuerrückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
             .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
-            If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt")
+            If .SAVE() Then
+                MsgBox("Sped-Eintrag wurde angelegt")
+                init()
+            End If
 
         End With
     End Sub

SDL/USTV/usrCntlUSTV.vb

@@ -1,9 +1,5 @@
 Imports System.ComponentModel
-Imports com.sun.javadoc
-Imports com.sun.xml.internal.bind.v2.model.core
-Imports itextsharp.text.factories
 Imports Microsoft.Office.Interop
-Imports sun.swing
 Imports VERAG_PROG_ALLGEMEIN
 
 

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -171,7 +171,7 @@ Public Class cRMC
                                                 where cast(rmc_reDatum as date) between @von and @bis and AdressenNr=@AdressenNr
 	                                            AND rmc_landKZ ='" & LandKZ & "'" & IIf(Not Archiv, " And rmc_archiv = 0 ", "") & "
                                                 group by  rmc_reDatum,rmc_kdNr,[rmc_reNr],[rmc_waehrung], rmc_daId
-                                                having sum([rmc_betragMWST])>0
+                                                having sum([rmc_betragMWST])<>0
                                                 order by rmc_reDatum", conn)
 
                     cmd.Parameters.AddWithValue("@von", von)