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

MDM Ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-09 14:00:53 +01:00
parent 2d0b21aacb
commit 908ee4ba2b
13 changed files with 939 additions and 625 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -32,6 +32,8 @@ Public Class ustCntlUSTV_AntragPosition
txtUmrechnungskurs._value = 1
txtUSTBetrag._value = 0
txtUSTBetragEUR._value = 0
txtNettobetrag._value = 0
txtNettobetragEUR._value = 0
cbxAPI.Checked = False
cboSchnittstellennr.changeItem("")
lblAenderungsdatum.Text = "-"
@@ -79,6 +81,8 @@ Public Class ustCntlUSTV_AntragPosition
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
txtNettobetrag.Text = If(UStV_POS.UStVPo_Nettobetrag, "")
txtNettobetragEUR.Text = If(UStV_POS.UStVPo_NettobetragEUR, "")
sbLeistender.Text = UStV_Leitender.UStV_Leistender
loadChangedDSToPanel(UStV_Leitender, True)
@@ -116,6 +120,12 @@ Public Class ustCntlUSTV_AntragPosition
btnAPIUbload.Enabled = False
End If
If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then
btn_EUR_to_FW.Visible = True
Else
btn_EUR_to_FW.Visible = False
End If
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
@@ -133,7 +143,7 @@ Public Class ustCntlUSTV_AntragPosition
gridAktiv = True
End Sub
Sub getValues(ByRef UStV_POS, ByRef save)
Sub getValues(ByRef UStV_POS As cUStVPositionen, ByRef save As Boolean)
If UStV_POS Is Nothing OrElse UStV_POS.UStVAn_ID = 0 Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen()
@@ -164,6 +174,15 @@ Public Class ustCntlUSTV_AntragPosition
Else
save = False
End If
If txtNettobetrag.Text <> "" Then
UStV_POS.UStVPo_Nettobetrag = txtNettobetrag.Text.Replace(",", ".")
End If
If txtNettobetragEUR.Text <> "" Then
UStV_POS.UStVPo_NettobetragEUR = txtNettobetragEUR.Text.Replace(",", ".")
End If
If txtLeistungsbezeichnung.Text <> "" Then
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung.Text
Else
@@ -487,6 +506,9 @@ Public Class ustCntlUSTV_AntragPosition
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
If IsNumeric(txtNettobetrag.Text) Then txtNettobetragEUR.Text = Math.Floor((txtNettobetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
txtChanged = True
End If
@@ -522,6 +544,7 @@ Public Class ustCntlUSTV_AntragPosition
If UStV_POS.UStVPo_Umrechnungskurs <> txtUmrechnungskurs.Text.Replace(",", ".") OrElse UStV_POS.UStVPo_Umrechnungskurs Is Nothing Then
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
If IsNumeric(txtNettobetrag.Text) Then txtNettobetragEUR.Text = Math.Floor((txtNettobetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
txtChanged = True
End If
End If
@@ -867,4 +890,23 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub btn_EUR_to_FW_Click(sender As Object, e As EventArgs) Handles btn_EUR_to_FW.Click
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
MsgBox("Keine Berechtigung für das Bearbeiten des Antrages - MDM_USTVA_bearbeiten")
Exit Sub
Else
If IsNumeric(txtNettobetragEUR.Text) Then
txtNettobetrag.Text = Math.Floor((txtNettobetragEUR.Text * txtUmrechnungskurs.Text) * 100 + 0.5) / 100
txtChanged = True
If txtChanged Then
values_changed()
txtChanged = False
End If
End If
End If
End Sub
End Class