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

Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 16:59:22 +01:00
parent c8744fcf4a
commit 9b6f3fc162
14 changed files with 497 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -2,6 +2,7 @@
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim Antrag_LandKz = ""
Dim kdnr = ""
Public Event EV_PREV()
Public Event EV_NEXT()
@@ -20,18 +21,19 @@
txtRgNr._value = ""
End Sub
Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String)
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String)
gridAktiv = False
Me.Antrag_LandKz = Antrag_LandKz
Me.UStV_POS = UStV_POS
Me.kdnr = kdnr
cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "")
txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "")
lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "")
If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
txtLeistender.Text = If(UStV_POS.UStVPo_Leistender, "")
cboLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
cboLeistungsgeber.Text = If(UStV_POS.UStVPo_Leistender, "")
txtLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
@@ -42,6 +44,8 @@
End Select
scanSonstiges.INIT_daId(da_id)
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
gridAktiv = True
End Sub
@@ -51,6 +55,9 @@
'UStV_POS.
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UStV_POS.UStVPo_Zeitstempel = Now
'TO DO!!!!!
End Sub
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -78,8 +85,8 @@
Return UStV_POS.save
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsbezeichnung.SelectedIndexChanged,
txtLeistender.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsgeber.SelectedIndexChanged,
txtLeistungsbezeichnung.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
@@ -99,7 +106,4 @@
Private Sub ustCntlUSTV_AntragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
End Class