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

ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-29 17:18:24 +02:00
parent d3d2be1c08
commit bc24390692
7 changed files with 450 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -1,5 +1,4 @@

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class cAutomailversand
@@ -146,7 +145,7 @@ Public Class cAutomailversand
End If
End If
Next
Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
@@ -158,9 +157,13 @@ Public Class cAutomailversand
Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
Dim Mailtext As String
If row.Item("Steuer") = 0 Then
Mailtext &= (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & row.Item("RechnungsLandKz") & "'", "FMZOLL")
End If
'NICHT MEHR BENÖTIGT!
'If row.Item("Steuer") = 0 Then
' Mailtext &= vbNewLine & vbNewLine
' Mailtext &= (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & row.Item("RechnungsLandKz") & "'", "FMZOLL")
'End If
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)
@@ -182,7 +185,9 @@ Public Class cAutomailversand
Subject = r.txt_betreff
Subject = Subject.Replace("%BelegNr%", txtRgNr)
TextHTML &= r.txt_text
If Mailtext <> "" Then TextHTML &= Mailtext & vbNewLine
If Mailtext <> "" Then TextHTML &= Mailtext
TextHTML &= vbNewLine & vbNewLine
End If
End If
@@ -328,7 +333,13 @@ Public Class cAutomailversand
Dim attachList As New List(Of String)
For Each ATT As cFakt_MailATTach In ATTACHMENTS
attachList.Add(ATT.Pfad)
If ATT.Pfad.ToString.ToLower.EndsWith("maut_at.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_uta.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_mse.pdf") Then
'diese Anh. nicht mitanfügen!
Else
attachList.Add(ATT.Pfad)
End If
Next

526
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated
View File

@@ -24,9 +24,12 @@ Partial Class ustCntlUSTV_AntragPosition
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.tabDok = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tabVollmachten = New System.Windows.Forms.TabPage()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tabFABest = New System.Windows.Forms.TabPage()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
@@ -46,31 +49,20 @@ Partial Class ustCntlUSTV_AntragPosition
Me.lblAenderungsdatum = New System.Windows.Forms.Label()
Me.lblSachbearbeiter = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.lblWarning = New System.Windows.Forms.Label()
Me.btnLeistenderSave = New System.Windows.Forms.Button()
Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlAdresse = New System.Windows.Forms.Panel()
Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnAPIUbload = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -81,6 +73,15 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnAPIUbload = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.btnDel = New System.Windows.Forms.Button()
Me.tabDok.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.tabVollmachten.SuspendLayout()
@@ -106,6 +107,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabDok.Text = "Rechnungen"
Me.tabDok.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AllowDrop = True
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 191)
Me.scanSonstiges.TabIndex = 0
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.tabDok)
@@ -129,6 +151,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabVollmachten.Text = "Vollmachten"
Me.tabVollmachten.UseVisualStyleBackColor = True
'
'scanUSTVVollmachten
'
Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AllowDrop = True
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3)
Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191)
Me.scanUSTVVollmachten.TabIndex = 1
'
'tabFABest
'
Me.tabFABest.Controls.Add(Me.scanUSTVFABest)
@@ -139,6 +182,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabFABest.Text = "FA_Bestätigung"
Me.tabFABest.UseVisualStyleBackColor = True
'
'scanUSTVFABest
'
Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AllowDrop = True
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0)
Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVFABest.Name = "scanUSTVFABest"
Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
Me.scanUSTVFABest.TabIndex = 1
'
'Label8
'
Me.Label8.AutoSize = True
@@ -329,6 +393,7 @@ Partial Class ustCntlUSTV_AntragPosition
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.btnDel)
Me.pnl.Controls.Add(Me.cbxAntragsfilter)
Me.pnl.Controls.Add(Me.lblWarning)
Me.pnl.Controls.Add(Me.btnLeistenderSave)
@@ -363,6 +428,20 @@ Partial Class ustCntlUSTV_AntragPosition
Me.pnl.Size = New System.Drawing.Size(1300, 239)
Me.pnl.TabIndex = 1
'
'cbxAntragsfilter
'
Me.cbxAntragsfilter._date = Nothing
Me.cbxAntragsfilter._showdate = False
Me.cbxAntragsfilter._value = ""
Me.cbxAntragsfilter.AutoSize = True
Me.cbxAntragsfilter.Location = New System.Drawing.Point(779, 29)
Me.cbxAntragsfilter.Name = "cbxAntragsfilter"
Me.cbxAntragsfilter.Size = New System.Drawing.Size(134, 17)
Me.cbxAntragsfilter.TabIndex = 24
Me.cbxAntragsfilter.Text = "*nach Antr.-Land filtern"
Me.cbxAntragsfilter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.cbxAntragsfilter.UseVisualStyleBackColor = True
'
'lblWarning
'
Me.lblWarning.AutoSize = True
@@ -386,245 +465,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.btnLeistenderSave.UseVisualStyleBackColor = True
Me.btnLeistenderSave.Visible = False
'
'pnlAdresse
'
Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
Me.pnlAdresse.Controls.Add(Me.txtStrasse)
Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
Me.pnlAdresse.Controls.Add(Me.Label14)
Me.pnlAdresse.Controls.Add(Me.Label17)
Me.pnlAdresse.Controls.Add(Me.Label15)
Me.pnlAdresse.Controls.Add(Me.txtLand)
Me.pnlAdresse.Controls.Add(Me.txtPLZ)
Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
Me.pnlAdresse.Controls.Add(Me.Label16)
Me.pnlAdresse.Controls.Add(Me.txtOrt)
Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
Me.pnlAdresse.Name = "pnlAdresse"
Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
Me.pnlAdresse.TabIndex = 14
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label14.Location = New System.Drawing.Point(4, 5)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(64, 15)
Me.Label14.TabIndex = 23
Me.Label14.Text = "Strasse/Nr"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label17.Location = New System.Drawing.Point(129, 63)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(45, 15)
Me.Label17.TabIndex = 31
Me.Label17.Text = "UID-Nr"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label15.Location = New System.Drawing.Point(8, 32)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(48, 15)
Me.Label15.TabIndex = 25
Me.Label15.Text = "PLZ/Ort"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label16.Location = New System.Drawing.Point(8, 58)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(35, 15)
Me.Label16.TabIndex = 27
Me.Label16.Text = "Land"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnAPIUbload)
Me.Panel1.Controls.Add(Me.btnBildAuf)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(937, 30)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(99, 239)
Me.Panel1.TabIndex = 2
'
'btnAPIUbload
'
Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
Me.btnAPIUbload.Name = "btnAPIUbload"
Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
Me.btnAPIUbload.TabIndex = 25
Me.btnAPIUbload.Text = "API-Upload"
Me.btnAPIUbload.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.tbcntr)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel3.Location = New System.Drawing.Point(1036, 30)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(264, 239)
Me.Panel3.TabIndex = 25
'
'Panel4
'
Me.Panel4.Controls.Add(Me.TabControl1)
Me.Panel4.Controls.Add(Me.scanLieferschein)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(264, 16)
Me.Panel4.TabIndex = 26
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Location = New System.Drawing.Point(39, 49)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(278, 239)
Me.TabControl1.TabIndex = 3
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(270, 213)
Me.TabPage1.TabIndex = 1
Me.TabPage1.Text = "Dokumente"
Me.TabPage1.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AllowDrop = True
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 191)
Me.scanSonstiges.TabIndex = 0
'
'scanUSTVVollmachten
'
Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AllowDrop = True
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3)
Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191)
Me.scanUSTVVollmachten.TabIndex = 1
'
'scanUSTVFABest
'
Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AllowDrop = True
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0)
Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVFABest.Name = "scanUSTVFABest"
Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
Me.scanUSTVFABest.TabIndex = 1
'
'UsrcntlPDFScanList1
'
Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM"
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = ""
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = ""
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = ""
Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False
Me.UsrcntlPDFScanList1._TYPE = "PDF"
Me.UsrcntlPDFScanList1.AllowDrop = True
Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White
Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand
Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3)
Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
Me.UsrcntlPDFScanList1.TabIndex = 0
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
Me.scanLieferschein.TabIndex = 2
Me.scanLieferschein.Visible = False
'
'cbxAntragsfilter
'
Me.cbxAntragsfilter._date = Nothing
Me.cbxAntragsfilter._showdate = False
Me.cbxAntragsfilter._value = ""
Me.cbxAntragsfilter.AutoSize = True
Me.cbxAntragsfilter.Location = New System.Drawing.Point(779, 29)
Me.cbxAntragsfilter.Name = "cbxAntragsfilter"
Me.cbxAntragsfilter.Size = New System.Drawing.Size(134, 17)
Me.cbxAntragsfilter.TabIndex = 24
Me.cbxAntragsfilter.Text = "*nach Antr.-Land filtern"
Me.cbxAntragsfilter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.cbxAntragsfilter.UseVisualStyleBackColor = True
'
'sbLeistender
'
Me.sbLeistender._allowFreitext = True
@@ -650,6 +490,24 @@ Partial Class ustCntlUSTV_AntragPosition
Me.sbLeistender.TabIndex = 9
Me.sbLeistender.usrcntl = Nothing
'
'pnlAdresse
'
Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
Me.pnlAdresse.Controls.Add(Me.txtStrasse)
Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
Me.pnlAdresse.Controls.Add(Me.Label14)
Me.pnlAdresse.Controls.Add(Me.Label17)
Me.pnlAdresse.Controls.Add(Me.Label15)
Me.pnlAdresse.Controls.Add(Me.txtLand)
Me.pnlAdresse.Controls.Add(Me.txtPLZ)
Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
Me.pnlAdresse.Controls.Add(Me.Label16)
Me.pnlAdresse.Controls.Add(Me.txtOrt)
Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
Me.pnlAdresse.Name = "pnlAdresse"
Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
Me.pnlAdresse.TabIndex = 14
'
'txtStrasse
'
Me.txtStrasse._DateTimeOnly = False
@@ -698,6 +556,36 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
Me.txtUIDNr.TabIndex = 15
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label14.Location = New System.Drawing.Point(4, 5)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(64, 15)
Me.Label14.TabIndex = 23
Me.Label14.Text = "Strasse/Nr"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label17.Location = New System.Drawing.Point(129, 63)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(45, 15)
Me.Label17.TabIndex = 31
Me.Label17.Text = "UID-Nr"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label15.Location = New System.Drawing.Point(8, 32)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(48, 15)
Me.Label15.TabIndex = 25
Me.Label15.Text = "PLZ/Ort"
'
'txtLand
'
Me.txtLand._DateTimeOnly = False
@@ -770,6 +658,16 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
Me.txtStrassenNr.TabIndex = 11
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label16.Location = New System.Drawing.Point(8, 58)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(35, 15)
Me.Label16.TabIndex = 27
Me.Label16.Text = "Land"
'
'txtOrt
'
Me.txtOrt._DateTimeOnly = False
@@ -979,6 +877,123 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetrag.TabIndex = 17
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnAPIUbload)
Me.Panel1.Controls.Add(Me.btnBildAuf)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(937, 30)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(99, 239)
Me.Panel1.TabIndex = 2
'
'btnAPIUbload
'
Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
Me.btnAPIUbload.Name = "btnAPIUbload"
Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
Me.btnAPIUbload.TabIndex = 25
Me.btnAPIUbload.Text = "API-Upload"
Me.btnAPIUbload.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.tbcntr)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel3.Location = New System.Drawing.Point(1036, 30)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(264, 239)
Me.Panel3.TabIndex = 25
'
'Panel4
'
Me.Panel4.Controls.Add(Me.TabControl1)
Me.Panel4.Controls.Add(Me.scanLieferschein)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(264, 16)
Me.Panel4.TabIndex = 26
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Location = New System.Drawing.Point(39, 49)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(278, 239)
Me.TabControl1.TabIndex = 3
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(270, 213)
Me.TabPage1.TabIndex = 1
Me.TabPage1.Text = "Dokumente"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrcntlPDFScanList1
'
Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM"
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = ""
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = ""
Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = ""
Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False
Me.UsrcntlPDFScanList1._TYPE = "PDF"
Me.UsrcntlPDFScanList1.AllowDrop = True
Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White
Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand
Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3)
Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
Me.UsrcntlPDFScanList1.TabIndex = 0
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
Me.scanLieferschein.TabIndex = 2
Me.scanLieferschein.Visible = False
'
'btnDel
'
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(834, 162)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(36, 24)
Me.btnDel.TabIndex = 25
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDel.UseVisualStyleBackColor = True
Me.btnDel.Visible = False
'
'ustCntlUSTV_AntragPosition
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1065,4 +1080,5 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents lblWarning As Label
Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents btnAPIUbload As Button
Friend WithEvents btnDel As Button
End Class

51
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -265,6 +265,7 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = ""
txtLand.Text = ""
txtUIDNr.Text = ""
btnDel.Visible = False
Else
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
@@ -274,7 +275,12 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
If UStV_Leist.hasEntry Then
adressLoadedByLeistender = True
btnDel.Visible = True
Else
btnDel.Visible = False
End If
End If
@@ -340,6 +346,7 @@ Public Class ustCntlUSTV_AntragPosition
End If
Else
Dim adresseChanged As Boolean = False
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
@@ -409,6 +416,7 @@ Public Class ustCntlUSTV_AntragPosition
cboSchnittstellennr.Items.Add(New MyListItem("MSE neu", 9))
cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10))
cboSchnittstellennr.Items.Add(New MyListItem("PLOSE neu", 11))
cboSchnittstellennr.Items.Add(New MyListItem("IDS neu", 12))
End If
End Sub
@@ -431,7 +439,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown, txtLeistungsbezeichnung.PreviewKeyDown
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -540,13 +548,20 @@ Public Class ustCntlUSTV_AntragPosition
'If IsDate(txtRgDatum.Text) Then txtChanged = True
End If
ElseIf sender Is txtLeistungsbezeichnung Then
txtChanged = True
ElseIf sender Is sbLeistender Then
If sbLeistender.Text <> "" Then
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
If IsNumeric(sbLeistender.Text) Then
If UStV_Leist.UStV_LeistenderId <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text Then txtChanged = True
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else
If UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text Then txtChanged = True
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
End If
@@ -725,7 +740,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub txtStrasse_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtStrasse.PreviewKeyDown, txtPLZ.PreviewKeyDown, txtOrt.PreviewKeyDown, txtLand.PreviewKeyDown, txtStrassenNr.PreviewKeyDown
Private Sub txtStrasse_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtStrasse.PreviewKeyDown, txtPLZ.PreviewKeyDown, txtOrt.PreviewKeyDown, txtLand.PreviewKeyDown, txtStrassenNr.PreviewKeyDown, txtUIDNr.PreviewKeyDown
If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -749,5 +764,35 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
Dim leistNew = sbLeistender.Text
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
If UStV_Leist.hasEntry Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVALeistender_deaktiveren", Me.FindForm) Then
MsgBox("Nicht berechtigt!")
Exit Sub
End If
If Not vbYes = MsgBox("Soll der Leistende " & UStV_Leist.UStV_Leistender & " gelöscht werden?", vbYesNo) Then Exit Sub
UStV_Leist.UstV_aktiv = False
UStV_Leist.SAVE()
sbLeistender.Text = ""
sbLeistender._value = ""
UStV_POS.UStVPo_LeistenderId = -1
UStV_POS.UStVPo_Leistender = ""
values_changed()
btnDel.Visible = False
End If
End Sub
End Class