edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

erstattungspos, ustva.

Browse Source
This commit is contained in:
d.breimaier
2025-03-17 10:23:24 +01:00
parent 2b72954526
commit 27e384c711
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2093,16 +2093,16 @@ Public Class frmMDM_USTVAntrag
End Sub End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
getValue(USTV_ANTRAG)
USTV_ANTRAG.SAVE() 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.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 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 If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag!" & vbNewLine & "Vorgang wird abgebrochen ") : Exit Sub
With spedBuch With spedBuch
.UnterNr = 0
.Abfertigungsdatum = Today() .Abfertigungsdatum = Today()
.AvisUhrzeit = Now() .AvisUhrzeit = Now()
.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME .Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -2111,11 +2111,11 @@ Public Class frmMDM_USTVAntrag
.Abfertigungsart = 10 .Abfertigungsart = 10
.Abfertigungsanzahl = 1 .Abfertigungsanzahl = 1
.Packstücke = "Mehrwertsteuerrückerstattung " & USTV_ANTRAG.UStVAn_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis .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") If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt")
End With End With
End Sub End Sub
Private Sub initdgvErstattungen() Private Sub initdgvErstattungen()

6
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
View File

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