erstattungspos, ustva.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2093,16 +2093,16 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        getValue(USTV_ANTRAG)
         USTV_ANTRAG.SAVE()
         If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub
         If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub
 
-        Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr)
+        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
 
         With spedBuch
-            .UnterNr = 0
             .Abfertigungsdatum = Today()
             .AvisUhrzeit = Now()
             .Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -2111,11 +2111,11 @@ Public Class frmMDM_USTVAntrag
             .Abfertigungsart = 10
             .Abfertigungsanzahl = 1
             .Packstücke = "Mehrwertsteuerrückerstattung " & USTV_ANTRAG.UStVAn_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
-            .VermittlerKundenNr = KundenNr
+            .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
             If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt")
 
         End With
-        End Sub
+    End Sub
 
     Private Sub initdgvErstattungen()
 

SDL/USTV/ustCntlUSTV_ErstattungPosition .vb

@@ -97,13 +97,13 @@ Public Class ustCntlUSTV_ErstattungPosition
         If txtUSTBetrag.Text <> "" Then
             UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
         Else
-            save = False
+            'save = False
         End If
 
         If txtUSTBetragEUR.Text <> "" Then
             UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
         Else
-            save = False
+            'save = False
         End If
 
         If txtGuDatum.Text <> "" Then
@@ -115,7 +115,7 @@ Public Class ustCntlUSTV_ErstattungPosition
                 UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
             End If
         Else
-            save = False
+            'save = False
         End If
 
         If txtGuDatum.Text <> "" Then