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

USTV Antragsart

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-14 22:05:21 +02:00
parent 6d7ec064cc
commit 57d030605a
7 changed files with 44 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -137,6 +137,8 @@ Public Class frmMDM_USTVAntrag
txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis)
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, ""))
If If(USTV_ANTRAG.UStVAn_AntragArt, "") = "" Then cboAntragArt.changeItem("MWST")
cboAntragArt.changeItem(If(USTV_ANTRAG.UStVAn_AntragArt, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
End Sub
@@ -152,6 +154,7 @@ Public Class frmMDM_USTVAntrag
'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
USTV_ANTRAG.UStVAn_Status = cboStatus._value
USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
End If
End Sub
@@ -188,6 +191,10 @@ Public Class frmMDM_USTVAntrag
cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO))
cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG)
cboAntragArt.Items.Clear()
cboAntragArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("USTV-Antrag", "MWST"))
cboAntragArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MÖST-Antrag", "MOEST"))
cboAntragArt.changeItem("MWST")