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

Mahnung, Kundebearbeiten, USTVA-Antrag

Browse Source
This commit is contained in:
d.breimaier
2025-05-13 15:54:07 +02:00
parent 0ecbd1f242
commit fa8d9ae209
7 changed files with 482 additions and 330 deletions
Download Patch File Download Diff File Expand all files Collapse all files

219
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -40,6 +40,7 @@ Partial Class frmMDM_USTVAntrag
Me.Button1 = New System.Windows.Forms.Button()
Me.lbl_EintrageVerarbetiet = New System.Windows.Forms.Label()
Me.pnlHeader = New System.Windows.Forms.Panel()
Me.cbxRGretour = New System.Windows.Forms.CheckBox()
Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
Me.lblGesamtErstattung = New System.Windows.Forms.Label()
@@ -50,6 +51,10 @@ Partial Class frmMDM_USTVAntrag
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblLand = New System.Windows.Forms.Label()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button()
@@ -107,6 +112,7 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -117,18 +123,13 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3 = New System.Windows.Forms.Panel()
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -331,6 +332,7 @@ Partial Class frmMDM_USTVAntrag
'pnlHeader
'
Me.pnlHeader.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlHeader.Controls.Add(Me.cbxRGretour)
Me.pnlHeader.Controls.Add(Me.lblGesamtUSteuer)
Me.pnlHeader.Controls.Add(Me.lblDiffernezbetrag)
Me.pnlHeader.Controls.Add(Me.lblGesamtErstattung)
@@ -355,6 +357,18 @@ Partial Class frmMDM_USTVAntrag
Me.pnlHeader.Size = New System.Drawing.Size(1454, 201)
Me.pnlHeader.TabIndex = 0
'
'cbxRGretour
'
Me.cbxRGretour.AutoSize = True
Me.cbxRGretour.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRGretour.ForeColor = System.Drawing.Color.White
Me.cbxRGretour.Location = New System.Drawing.Point(483, 13)
Me.cbxRGretour.Name = "cbxRGretour"
Me.cbxRGretour.Size = New System.Drawing.Size(89, 20)
Me.cbxRGretour.TabIndex = 52
Me.cbxRGretour.Text = "RG Retour"
Me.cbxRGretour.UseVisualStyleBackColor = True
'
'lblGesamtUSteuer
'
Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -532,6 +546,82 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Size = New System.Drawing.Size(973, 115)
Me.Panel8.TabIndex = 19
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.Transparent
Me.Label16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.ForeColor = System.Drawing.Color.Black
Me.Label16.Location = New System.Drawing.Point(800, 91)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(54, 17)
Me.Label16.TabIndex = 55
Me.Label16.Text = "RZ am:"
'
'txtRZam
'
Me.txtRZam._DateTimeOnly = False
Me.txtRZam._numbersOnly = False
Me.txtRZam._numbersOnlyKommastellen = ""
Me.txtRZam._numbersOnlyTrennzeichen = False
Me.txtRZam._Prozent = False
Me.txtRZam._ShortDateNew = False
Me.txtRZam._ShortDateOnly = True
Me.txtRZam._TimeOnly = False
Me.txtRZam._TimeOnly_Seconds = False
Me.txtRZam._value = ""
Me.txtRZam._Waehrung = False
Me.txtRZam._WaehrungZeichen = False
Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZam.ForeColor = System.Drawing.Color.Black
Me.txtRZam.Location = New System.Drawing.Point(865, 87)
Me.txtRZam.MaxLength = 10
Me.txtRZam.MaxLineLength = -1
Me.txtRZam.MaxLines_Warning = ""
Me.txtRZam.MaxLines_Warning_Label = Nothing
Me.txtRZam.Name = "txtRZam"
Me.txtRZam.Size = New System.Drawing.Size(100, 23)
Me.txtRZam.TabIndex = 56
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.Transparent
Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.ForeColor = System.Drawing.Color.Black
Me.Label17.Location = New System.Drawing.Point(524, 91)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(94, 17)
Me.Label17.TabIndex = 53
Me.Label17.Text = "Rückzahlung:"
'
'txtRZ
'
Me.txtRZ._DateTimeOnly = False
Me.txtRZ._numbersOnly = True
Me.txtRZ._numbersOnlyKommastellen = ""
Me.txtRZ._numbersOnlyTrennzeichen = True
Me.txtRZ._Prozent = False
Me.txtRZ._ShortDateNew = False
Me.txtRZ._ShortDateOnly = False
Me.txtRZ._TimeOnly = False
Me.txtRZ._TimeOnly_Seconds = False
Me.txtRZ._value = ""
Me.txtRZ._Waehrung = True
Me.txtRZ._WaehrungZeichen = True
Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZ.ForeColor = System.Drawing.Color.Black
Me.txtRZ.Location = New System.Drawing.Point(654, 87)
Me.txtRZ.MaxLength = 10
Me.txtRZ.MaxLineLength = -1
Me.txtRZ.MaxLines_Warning = ""
Me.txtRZ.MaxLines_Warning_Label = Nothing
Me.txtRZ.Name = "txtRZ"
Me.txtRZ.Size = New System.Drawing.Size(125, 23)
Me.txtRZ.TabIndex = 54
'
'Label15
'
Me.Label15.AutoSize = True
@@ -1402,6 +1492,14 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1497,7 +1595,7 @@ Partial Class frmMDM_USTVAntrag
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1444, 444)
Me.TabPage2.Size = New System.Drawing.Size(1444, 415)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Erstattungspositionen"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1511,7 +1609,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1438, 438)
Me.Panel3.Size = New System.Drawing.Size(1438, 409)
Me.Panel3.TabIndex = 3
'
'dgvErstattungspositionen
@@ -1532,7 +1630,7 @@ Partial Class frmMDM_USTVAntrag
Me.dgvErstattungspositionen.RowHeadersVisible = False
Me.dgvErstattungspositionen.RowHeadersWidth = 62
Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 143)
Me.dgvErstattungspositionen.TabIndex = 1
'
'pnlErstattungsdetails
@@ -1542,11 +1640,19 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.Controls.Add(Me.UstCntlUSTV_AntragErstattungen1)
Me.pnlErstattungsdetails.Controls.Add(Me.Panel1)
Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 175)
Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 146)
Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails"
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
Me.pnlErstattungsdetails.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1602,98 +1708,6 @@ Partial Class frmMDM_USTVAntrag
Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1"
Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4)
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.Transparent
Me.Label16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.ForeColor = System.Drawing.Color.Black
Me.Label16.Location = New System.Drawing.Point(800, 91)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(54, 17)
Me.Label16.TabIndex = 55
Me.Label16.Text = "RZ am:"
'
'txtRZam
'
Me.txtRZam._DateTimeOnly = False
Me.txtRZam._numbersOnly = False
Me.txtRZam._numbersOnlyKommastellen = ""
Me.txtRZam._numbersOnlyTrennzeichen = False
Me.txtRZam._Prozent = False
Me.txtRZam._ShortDateNew = False
Me.txtRZam._ShortDateOnly = True
Me.txtRZam._TimeOnly = False
Me.txtRZam._TimeOnly_Seconds = False
Me.txtRZam._value = ""
Me.txtRZam._Waehrung = False
Me.txtRZam._WaehrungZeichen = False
Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZam.ForeColor = System.Drawing.Color.Black
Me.txtRZam.Location = New System.Drawing.Point(865, 87)
Me.txtRZam.MaxLength = 10
Me.txtRZam.MaxLineLength = -1
Me.txtRZam.MaxLines_Warning = ""
Me.txtRZam.MaxLines_Warning_Label = Nothing
Me.txtRZam.Name = "txtRZam"
Me.txtRZam.Size = New System.Drawing.Size(100, 23)
Me.txtRZam.TabIndex = 56
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.Transparent
Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.ForeColor = System.Drawing.Color.Black
Me.Label17.Location = New System.Drawing.Point(524, 91)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(94, 17)
Me.Label17.TabIndex = 53
Me.Label17.Text = "Rückzahlung:"
'
'txtRZ
'
Me.txtRZ._DateTimeOnly = False
Me.txtRZ._numbersOnly = True
Me.txtRZ._numbersOnlyKommastellen = ""
Me.txtRZ._numbersOnlyTrennzeichen = True
Me.txtRZ._Prozent = False
Me.txtRZ._ShortDateNew = False
Me.txtRZ._ShortDateOnly = False
Me.txtRZ._TimeOnly = False
Me.txtRZ._TimeOnly_Seconds = False
Me.txtRZ._value = ""
Me.txtRZ._Waehrung = True
Me.txtRZ._WaehrungZeichen = True
Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZ.ForeColor = System.Drawing.Color.Black
Me.txtRZ.Location = New System.Drawing.Point(654, 87)
Me.txtRZ.MaxLength = 10
Me.txtRZ.MaxLineLength = -1
Me.txtRZ.MaxLines_Warning = ""
Me.txtRZ.MaxLines_Warning_Label = Nothing
Me.txtRZ.Name = "txtRZ"
Me.txtRZ.Size = New System.Drawing.Size(125, 23)
Me.txtRZ.TabIndex = 54
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1843,4 +1857,5 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents txtRZam As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label17 As Label
Friend WithEvents txtRZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxRGretour As CheckBox
End Class

15
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -336,6 +336,7 @@ Public Class frmMDM_USTVAntrag
txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "")
cbxFiliale.changeItem(If(USTV_ANTRAG.FilialenNr, ""))
cbxWahrung.changeItem(If(USTV_ANTRAG.UStVAn_Währungscode, ""))
cbxRGretour.Checked = USTV_ANTRAG.UStVAn_RGRetour
End Sub
@@ -350,6 +351,8 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
USTV_ANTRAG.UStVAn_RGRetour = cbxRGretour.Checked
USTV_ANTRAG.FilialenNr = cbxFiliale._value
USTV_ANTRAG.FilialenNr = cbxFiliale._value
@@ -1014,7 +1017,7 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum")
USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
USTV_POS.UStVPo_daId = r.Item("rmc_daId")
'USTV_POS.UStVPo_daId = r.Item("rmc_daId")
If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
USTV_POS.UStVPo_daId_loeschbar = False
Else
@@ -3140,6 +3143,16 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub cbxRGretour_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRGretour.CheckedChanged
If cbxRGretour.Checked Then
cbxRGretour.ForeColor = Color.Red
Else
cbxRGretour.ForeColor = Color.White
End If
End Sub
Private Sub initScanUSTVA()
If USTV_ANTRAG IsNot Nothing Then
scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)

12
SDL/USTV/ustCntlUSTV_ErstattungPosition .vb
View File

@@ -225,7 +225,7 @@ Public Class ustCntlUSTV_ErstattungPosition
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
' 'values_changed()
'End If
If IsNumeric(txtUSTBetragEUR) Then txtChanged = True
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
@@ -250,19 +250,29 @@ Public Class ustCntlUSTV_ErstattungPosition
If txtBelegDatum.Text <> "" Then
txtBelegDatum.Text = txtBelegDatum.Text.Replace("-", ".")
End If
txtChanged = True
ElseIf sender Is txtBerufungsdatum Then
If txtBerufungsdatum.Text <> "" Then
txtBerufungsdatum.Text = txtBerufungsdatum.Text.Replace("-", ".")
End If
txtChanged = True
ElseIf sender Is txtGuDatum Then
If txtGuDatum.Text <> "" Then
txtGuDatum.Text = txtGuDatum.Text.Replace("-", ".")
End If
txtChanged = True
ElseIf sender Is txtBemerkung Then
If txtBemerkung.Text <> "" Then
txtBemerkung.Text = txtBemerkung.Text
End If
txtChanged = True
End If
End If