ustva, rmc

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