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

25
SDL/Fakturierung/cAutomailversand.vb
View File

@@ -1,5 +1,4 @@
 Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class cAutomailversand Public Class cAutomailversand
@@ -158,9 +157,13 @@ Public Class cAutomailversand
Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr) Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
Dim Mailtext As String 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") 'NICHT MEHR BENÖTIGT!
End If
'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 SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID) Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)
@@ -182,7 +185,9 @@ Public Class cAutomailversand
Subject = r.txt_betreff Subject = r.txt_betreff
Subject = Subject.Replace("%BelegNr%", txtRgNr) Subject = Subject.Replace("%BelegNr%", txtRgNr)
TextHTML &= r.txt_text TextHTML &= r.txt_text
If Mailtext <> "" Then TextHTML &= Mailtext & vbNewLine If Mailtext <> "" Then TextHTML &= Mailtext
TextHTML &= vbNewLine & vbNewLine
End If End If
End If End If
@@ -328,7 +333,13 @@ Public Class cAutomailversand
Dim attachList As New List(Of String) Dim attachList As New List(Of String)
For Each ATT As cFakt_MailATTach In ATTACHMENTS 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 Next

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

@@ -24,9 +24,12 @@ Partial Class ustCntlUSTV_AntragPosition
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.tabDok = New System.Windows.Forms.TabPage() Me.tabDok = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tabVollmachten = New System.Windows.Forms.TabPage() Me.tabVollmachten = New System.Windows.Forms.TabPage()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tabFABest = New System.Windows.Forms.TabPage() Me.tabFABest = New System.Windows.Forms.TabPage()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
@@ -46,31 +49,20 @@ Partial Class ustCntlUSTV_AntragPosition
Me.lblAenderungsdatum = New System.Windows.Forms.Label() Me.lblAenderungsdatum = New System.Windows.Forms.Label()
Me.lblSachbearbeiter = New System.Windows.Forms.Label() Me.lblSachbearbeiter = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.lblWarning = New System.Windows.Forms.Label() Me.lblWarning = New System.Windows.Forms.Label()
Me.btnLeistenderSave = New System.Windows.Forms.Button() Me.btnLeistenderSave = New System.Windows.Forms.Button()
Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlAdresse = New System.Windows.Forms.Panel() 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.Label14 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label()
Me.Label15 = 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.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtStrassenNr = 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.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -81,6 +73,15 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSTBetrag = 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.tabDok.SuspendLayout()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.tabVollmachten.SuspendLayout() Me.tabVollmachten.SuspendLayout()
@@ -106,6 +107,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabDok.Text = "Rechnungen" Me.tabDok.Text = "Rechnungen"
Me.tabDok.UseVisualStyleBackColor = True 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 'tbcntr
' '
Me.tbcntr.Controls.Add(Me.tabDok) Me.tbcntr.Controls.Add(Me.tabDok)
@@ -129,6 +151,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabVollmachten.Text = "Vollmachten" Me.tabVollmachten.Text = "Vollmachten"
Me.tabVollmachten.UseVisualStyleBackColor = True 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 'tabFABest
' '
Me.tabFABest.Controls.Add(Me.scanUSTVFABest) Me.tabFABest.Controls.Add(Me.scanUSTVFABest)
@@ -139,6 +182,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.tabFABest.Text = "FA_Bestätigung" Me.tabFABest.Text = "FA_Bestätigung"
Me.tabFABest.UseVisualStyleBackColor = True 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 'Label8
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
@@ -329,6 +393,7 @@ Partial Class ustCntlUSTV_AntragPosition
'pnl 'pnl
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.btnDel)
Me.pnl.Controls.Add(Me.cbxAntragsfilter) Me.pnl.Controls.Add(Me.cbxAntragsfilter)
Me.pnl.Controls.Add(Me.lblWarning) Me.pnl.Controls.Add(Me.lblWarning)
Me.pnl.Controls.Add(Me.btnLeistenderSave) 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.Size = New System.Drawing.Size(1300, 239)
Me.pnl.TabIndex = 1 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 'lblWarning
' '
Me.lblWarning.AutoSize = True Me.lblWarning.AutoSize = True
@@ -386,245 +465,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.btnLeistenderSave.UseVisualStyleBackColor = True Me.btnLeistenderSave.UseVisualStyleBackColor = True
Me.btnLeistenderSave.Visible = False 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 'sbLeistender
' '
Me.sbLeistender._allowFreitext = True Me.sbLeistender._allowFreitext = True
@@ -650,6 +490,24 @@ Partial Class ustCntlUSTV_AntragPosition
Me.sbLeistender.TabIndex = 9 Me.sbLeistender.TabIndex = 9
Me.sbLeistender.usrcntl = Nothing 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 'txtStrasse
' '
Me.txtStrasse._DateTimeOnly = False Me.txtStrasse._DateTimeOnly = False
@@ -698,6 +556,36 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20) Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
Me.txtUIDNr.TabIndex = 15 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 'txtLand
' '
Me.txtLand._DateTimeOnly = False Me.txtLand._DateTimeOnly = False
@@ -770,6 +658,16 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20) Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
Me.txtStrassenNr.TabIndex = 11 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 'txtOrt
' '
Me.txtOrt._DateTimeOnly = False Me.txtOrt._DateTimeOnly = False
@@ -979,6 +877,123 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20) Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetrag.TabIndex = 17 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 'ustCntlUSTV_AntragPosition
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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 lblWarning As Label
Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents btnAPIUbload As Button Friend WithEvents btnAPIUbload As Button
Friend WithEvents btnDel As Button
End Class End Class

51
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -265,6 +265,7 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = "" txtOrt.Text = ""
txtLand.Text = "" txtLand.Text = ""
txtUIDNr.Text = "" txtUIDNr.Text = ""
btnDel.Visible = False
Else Else
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar! pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
@@ -274,7 +275,12 @@ Public Class ustCntlUSTV_AntragPosition
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "") txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "") txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "") 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 End If
@@ -340,6 +346,7 @@ Public Class ustCntlUSTV_AntragPosition
End If End If
Else Else
Dim adresseChanged As Boolean = False Dim adresseChanged As Boolean = False
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True 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("MSE neu", 9))
cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10)) cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10))
cboSchnittstellennr.Items.Add(New MyListItem("PLOSE neu", 11)) cboSchnittstellennr.Items.Add(New MyListItem("PLOSE neu", 11))
cboSchnittstellennr.Items.Add(New MyListItem("IDS neu", 12))
End If End If
End Sub End Sub
@@ -431,7 +439,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub 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 Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
If gridAktiv And Me.FindForm IsNot Nothing Then If gridAktiv And Me.FindForm IsNot Nothing Then
@@ -540,13 +548,20 @@ Public Class ustCntlUSTV_AntragPosition
'If IsDate(txtRgDatum.Text) Then txtChanged = True 'If IsDate(txtRgDatum.Text) Then txtChanged = True
End If End If
ElseIf sender Is txtLeistungsbezeichnung Then
txtChanged = True
ElseIf sender Is sbLeistender Then ElseIf sender Is sbLeistender Then
If sbLeistender.Text <> "" Then If sbLeistender.Text <> "" Then
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
If IsNumeric(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)) UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else 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) UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
End If End If
@@ -725,7 +740,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub 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 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 Sub
End Class End Class

2
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
View File

@@ -12,6 +12,7 @@ Public Class cUStVLeistender
Property UstV_Leistender_UstNr As Object = Nothing Property UstV_Leistender_UstNr As Object = Nothing
Property UstV_Leistender_Adresse As Boolean Property UstV_Leistender_Adresse As Boolean
Property UStV_LeistenderId As Integer Property UStV_LeistenderId As Integer
Property UstV_aktiv As Boolean
Public hasEntry = False Public hasEntry = False
@@ -52,6 +53,7 @@ Public Class cUStVLeistender
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_LeistenderId", UStV_LeistenderId,, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_LeistenderId", UStV_LeistenderId,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_aktiv", UstV_aktiv))
Return list Return list
End Function End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -988,7 +988,7 @@ Public Class cMDMFunctionsAllgemein
For page As Integer = 1 To pdfReader.NumberOfPages For page As Integer = 1 To pdfReader.NumberOfPages
Dim canvas As PdfContentByte = stamper.GetOverContent(page) Dim canvas As PdfContentByte = stamper.GetOverContent(page)
Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.EMBEDDED) Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.EMBEDDED)
canvas.SetFontAndSize(bf, 12) canvas.SetFontAndSize(bf, 16)
canvas.BeginText() canvas.BeginText()
'The origin (0,0) is at the bottom-left corner of the page and represent coordinates in points!!!!! 'The origin (0,0) is at the bottom-left corner of the page and represent coordinates in points!!!!!

60
VERAG_PROG_ALLGEMEIN/frmScan.Designer.vb generated
View File

@@ -22,7 +22,6 @@ Partial Class frmScan
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScan)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScan))
Me.dsViewer = New Dynamsoft.Forms.DSViewer() Me.dsViewer = New Dynamsoft.Forms.DSViewer()
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
@@ -57,7 +56,8 @@ Partial Class frmScan
Me.tbxCurrentImageIndex = New System.Windows.Forms.Label() Me.tbxCurrentImageIndex = New System.Windows.Forms.Label()
Me.tbxTotalImageNum = New System.Windows.Forms.Label() Me.tbxTotalImageNum = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.UsrcntlPDFScan1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.cbxAltFormat = New System.Windows.Forms.CheckBox()
Me.cboFormat = New System.Windows.Forms.ComboBox()
Me.grpFarbe.SuspendLayout() Me.grpFarbe.SuspendLayout()
Me.grpTyp.SuspendLayout() Me.grpTyp.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
@@ -89,7 +89,7 @@ Partial Class frmScan
Me.btnScan.Enabled = False Me.btnScan.Enabled = False
Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnScan.Location = New System.Drawing.Point(477, 132) Me.btnScan.Location = New System.Drawing.Point(476, 157)
Me.btnScan.Name = "btnScan" Me.btnScan.Name = "btnScan"
Me.btnScan.Size = New System.Drawing.Size(254, 59) Me.btnScan.Size = New System.Drawing.Size(254, 59)
Me.btnScan.TabIndex = 2 Me.btnScan.TabIndex = 2
@@ -139,7 +139,7 @@ Partial Class frmScan
' '
Me.lblDateiname.AutoSize = True Me.lblDateiname.AutoSize = True
Me.lblDateiname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDateiname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDateiname.Location = New System.Drawing.Point(473, 566) Me.lblDateiname.Location = New System.Drawing.Point(473, 546)
Me.lblDateiname.Name = "lblDateiname" Me.lblDateiname.Name = "lblDateiname"
Me.lblDateiname.Size = New System.Drawing.Size(61, 13) Me.lblDateiname.Size = New System.Drawing.Size(61, 13)
Me.lblDateiname.TabIndex = 7 Me.lblDateiname.TabIndex = 7
@@ -205,9 +205,9 @@ Partial Class frmScan
'cboSource 'cboSource
' '
Me.cboSource.FormattingEnabled = True Me.cboSource.FormattingEnabled = True
Me.cboSource.Location = New System.Drawing.Point(477, 105) Me.cboSource.Location = New System.Drawing.Point(480, 105)
Me.cboSource.Name = "cboSource" Me.cboSource.Name = "cboSource"
Me.cboSource.Size = New System.Drawing.Size(254, 21) Me.cboSource.Size = New System.Drawing.Size(251, 21)
Me.cboSource.TabIndex = 9 Me.cboSource.TabIndex = 9
' '
'rdbtnRGB 'rdbtnRGB
@@ -267,7 +267,7 @@ Partial Class frmScan
Me.grpTyp.Controls.Add(Me.rdbtnBMP) Me.grpTyp.Controls.Add(Me.rdbtnBMP)
Me.grpTyp.Controls.Add(Me.rdbtnPNG) Me.grpTyp.Controls.Add(Me.rdbtnPNG)
Me.grpTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.grpTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grpTyp.Location = New System.Drawing.Point(477, 493) Me.grpTyp.Location = New System.Drawing.Point(477, 473)
Me.grpTyp.Name = "grpTyp" Me.grpTyp.Name = "grpTyp"
Me.grpTyp.Size = New System.Drawing.Size(254, 64) Me.grpTyp.Size = New System.Drawing.Size(254, 64)
Me.grpTyp.TabIndex = 11 Me.grpTyp.TabIndex = 11
@@ -279,15 +279,17 @@ Partial Class frmScan
Me.tbxSaveFileName._DateTimeOnly = False Me.tbxSaveFileName._DateTimeOnly = False
Me.tbxSaveFileName._numbersOnly = False Me.tbxSaveFileName._numbersOnly = False
Me.tbxSaveFileName._numbersOnlyKommastellen = "" Me.tbxSaveFileName._numbersOnlyKommastellen = ""
Me.tbxSaveFileName._numbersOnlyTrennzeichen = True
Me.tbxSaveFileName._Prozent = False Me.tbxSaveFileName._Prozent = False
Me.tbxSaveFileName._ShortDateNew = False Me.tbxSaveFileName._ShortDateNew = False
Me.tbxSaveFileName._ShortDateOnly = False Me.tbxSaveFileName._ShortDateOnly = False
Me.tbxSaveFileName._TimeOnly = False Me.tbxSaveFileName._TimeOnly = False
Me.tbxSaveFileName._TimeOnly_Seconds = False
Me.tbxSaveFileName._value = Nothing Me.tbxSaveFileName._value = Nothing
Me.tbxSaveFileName._Waehrung = False Me.tbxSaveFileName._Waehrung = False
Me.tbxSaveFileName._WaehrungZeichen = True Me.tbxSaveFileName._WaehrungZeichen = True
Me.tbxSaveFileName.ForeColor = System.Drawing.Color.Black Me.tbxSaveFileName.ForeColor = System.Drawing.Color.Black
Me.tbxSaveFileName.Location = New System.Drawing.Point(536, 563) Me.tbxSaveFileName.Location = New System.Drawing.Point(536, 543)
Me.tbxSaveFileName.MaxLineLength = -1 Me.tbxSaveFileName.MaxLineLength = -1
Me.tbxSaveFileName.MaxLines_Warning = "" Me.tbxSaveFileName.MaxLines_Warning = ""
Me.tbxSaveFileName.MaxLines_Warning_Label = Nothing Me.tbxSaveFileName.MaxLines_Warning_Label = Nothing
@@ -432,7 +434,8 @@ Partial Class frmScan
' '
'pnl 'pnl
' '
Me.pnl.Controls.Add(Me.UsrcntlPDFScan1) Me.pnl.Controls.Add(Me.cbxAltFormat)
Me.pnl.Controls.Add(Me.cboFormat)
Me.pnl.Controls.Add(Me.Label2) Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.dsViewer) Me.pnl.Controls.Add(Me.dsViewer)
Me.pnl.Controls.Add(Me.Button3) Me.pnl.Controls.Add(Me.Button3)
@@ -461,25 +464,25 @@ Partial Class frmScan
Me.pnl.Size = New System.Drawing.Size(741, 683) Me.pnl.Size = New System.Drawing.Size(741, 683)
Me.pnl.TabIndex = 21 Me.pnl.TabIndex = 21
' '
'UsrcntlPDFScan1 'cbxAltFormat
' '
Me.UsrcntlPDFScan1._ARCHIV = False Me.cbxAltFormat.AutoSize = True
Me.UsrcntlPDFScan1._DATENSERVER_KATEGORIE = "DOKUMENTE" Me.cbxAltFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrcntlPDFScan1._DATENSERVER_ORDNER = "" Me.cbxAltFormat.Location = New System.Drawing.Point(477, 569)
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner1 = "" Me.cbxAltFormat.Name = "cbxAltFormat"
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner2 = "" Me.cbxAltFormat.Size = New System.Drawing.Size(88, 17)
Me.UsrcntlPDFScan1._DATENSERVER_UOrdner3 = "" Me.cbxAltFormat.TabIndex = 9
Me.UsrcntlPDFScan1._MULTI_FILES = False Me.cbxAltFormat.Text = "speichern als"
Me.UsrcntlPDFScan1._TEXT_PDF = Nothing Me.cbxAltFormat.UseVisualStyleBackColor = True
Me.UsrcntlPDFScan1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink '
Me.UsrcntlPDFScan1.BackColor = System.Drawing.Color.White 'cboFormat
Me.UsrcntlPDFScan1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle '
Me.UsrcntlPDFScan1.Cursor = System.Windows.Forms.Cursors.Hand Me.cboFormat.Enabled = False
Me.UsrcntlPDFScan1.Location = New System.Drawing.Point(344, 349) Me.cboFormat.FormattingEnabled = True
Me.UsrcntlPDFScan1.Name = "UsrcntlPDFScan1" Me.cboFormat.Location = New System.Drawing.Point(594, 565)
Me.UsrcntlPDFScan1.Size = New System.Drawing.Size(8, 8) Me.cboFormat.Name = "cboFormat"
Me.UsrcntlPDFScan1.TabIndex = 21 Me.cboFormat.Size = New System.Drawing.Size(133, 21)
Me.UsrcntlPDFScan1.Visible = False Me.cboFormat.TabIndex = 22
' '
'frmScan 'frmScan
' '
@@ -534,5 +537,6 @@ Partial Class frmScan
Friend WithEvents tbxCurrentImageIndex As System.Windows.Forms.Label Friend WithEvents tbxCurrentImageIndex As System.Windows.Forms.Label
Friend WithEvents tbxTotalImageNum As System.Windows.Forms.Label Friend WithEvents tbxTotalImageNum As System.Windows.Forms.Label
Friend WithEvents pnl As System.Windows.Forms.Panel Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents UsrcntlPDFScan1 As usrcntlPDFScan Friend WithEvents cboFormat As Windows.Forms.ComboBox
Friend WithEvents cbxAltFormat As Windows.Forms.CheckBox
End Class End Class

84
VERAG_PROG_ALLGEMEIN/frmScan.vb
View File

@@ -18,6 +18,10 @@ Imports Dynamsoft.Core.Annotation
Imports Dynamsoft.TWAIN.Interface Imports Dynamsoft.TWAIN.Interface
Imports Dynamsoft.Core.Enums Imports Dynamsoft.Core.Enums
Imports System.IO Imports System.IO
Imports Dynamsoft.TWAIN.Enums
Imports Dynamsoft.DotTwain
Imports ClosedXML.Excel
Imports Dynamsoft.PDF.Enums
'Aktuell3 'Aktuell3
@@ -61,6 +65,23 @@ Public Class frmScan
End Sub End Sub
Public Enum TwainSupportedSizes As UShort
TWSS_NONE = 0
TWSS_A4 = 1
TWSS_JISB5 = 2
TWSS_USLETTER = 3
TWSS_USLEGAL = 4
TWSS_A5 = 5
TWSS_ISOB4 = 6
TWSS_ISOB6 = 7
TWSS_USLEDGER = 9
TWSS_USEXECUTIVE = 10
TWSS_A3 = 11
TWSS_B4 = 12
TWSS_B6 = 13
TWSS_BUSINESSCARD = 14
End Enum
Public Sub OnPostAllTransfers() Implements IAcquireCallback.OnPostAllTransfers Public Sub OnPostAllTransfers() Implements IAcquireCallback.OnPostAllTransfers
Me.Invoke(New CrossThreadOperationControl(AddressOf CallMe)) Me.Invoke(New CrossThreadOperationControl(AddressOf CallMe))
@@ -132,11 +153,11 @@ Public Class frmScan
dsViewer.Bind(m_ImageCore) dsViewer.Bind(m_ImageCore)
End Sub End Sub
<DllImport("kernel32.dll")> _ <DllImport("kernel32.dll")>
Private Shared Function GetSystemDirectory(<Out> lpBuffer As StringBuilder, uSize As UInteger) As UInteger Private Shared Function GetSystemDirectory(<Out> lpBuffer As StringBuilder, uSize As UInteger) As UInteger
End Function End Function
<DllImport("kernel32.dll")> _ <DllImport("kernel32.dll")>
Private Shared Function GetWindowsDirectory(<Out> lpBuffer As StringBuilder, uSize As UInteger) As UInteger Private Shared Function GetWindowsDirectory(<Out> lpBuffer As StringBuilder, uSize As UInteger) As UInteger
End Function End Function
@@ -267,6 +288,10 @@ Public Class frmScan
m_TwainManager.SelectSourceByIndex(sSourceIndex) m_TwainManager.SelectSourceByIndex(sSourceIndex)
'm_TwainManager.SetImageLayout(New Dynamsoft.Common.Margin(0.0, 0.0, width, height))
''vor Opensource ''vor Opensource
'Dim tmpFile = Path.GetTempFileName & ".pdf" 'Dim tmpFile = Path.GetTempFileName & ".pdf"
'tmpFile = "D:\Andreas\Dokumente\temptest<>.pdf" 'tmpFile = "D:\Andreas\Dokumente\temptest<>.pdf"
@@ -314,6 +339,10 @@ Public Class frmScan
End If End If
m_TwainManager.Resolution = Integer.Parse(cboResolution.Text) m_TwainManager.Resolution = Integer.Parse(cboResolution.Text)
'Dim selectedPaper = CType(cboFormat.SelectedItem, KeyValuePair(Of String, Tuple(Of Double, Double)))
'Dim width = selectedPaper.Value.Item1
'Dim height = selectedPaper.Value.Item2
'm_TwainManager.sca() 'm_TwainManager.sca()
@@ -400,6 +429,30 @@ Public Class frmScan
' hasWebcamSource = true; ' hasWebcamSource = true;
hasTwainSource = True hasTwainSource = True
Next Next
cboFormat.Items.Clear()
'Dim formats As New List(Of KeyValuePair(Of String, EnumPageSize)) From {
' New KeyValuePair(Of String, EnumPageSize)(" ", EnumPageSize.ImageSize),
' New KeyValuePair(Of String, EnumPageSize)("A4", EnumPageSize.A4),
' New KeyValuePair(Of String, EnumPageSize)("Legal", EnumPageSize.Legal),
' New KeyValuePair(Of String, EnumPageSize)("Letter", EnumPageSize.Letter)
' }
'cboFormat.DataSource = formats
Dim items = [Enum].GetValues(GetType(EnumPageSize)).Cast(Of EnumPageSize)().Select(Function(e) New KeyValuePair(Of String, EnumPageSize)(e.ToString(), e)).ToList()
With cboFormat
.DataSource = items
.DisplayMember = "Key"
.ValueMember = "Value"
End With
If hasTwainSource Then If hasTwainSource Then
cboSource.Enabled = True cboSource.Enabled = True
' chkShowUI.Enabled = True ' chkShowUI.Enabled = True
@@ -438,6 +491,12 @@ Public Class frmScan
Try Try
Select Case ART Select Case ART
Case "DirectScan" Case "DirectScan"
If cboFormat.SelectedIndex >= 0 Then
Dim selectedPaper As EnumPageSize = CType(cboFormat.SelectedValue, EnumPageSize)
If cbxAltFormat.Checked Then m_PDFCreator.PageSize = selectedPaper
End If
Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave)) Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave))
Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
Me.ReturnValue = PDF_bytes ' DS.LAST_ID Me.ReturnValue = PDF_bytes ' DS.LAST_ID
@@ -531,7 +590,10 @@ Public Class frmScan
SaveFileDialog.DefaultExt = "pdf" SaveFileDialog.DefaultExt = "pdf"
If SaveFileDialog.ShowDialog() = DialogResult.OK Then If SaveFileDialog.ShowDialog() = DialogResult.OK Then
' Multi page PDF ' Multi page PDF
If cboFormat.SelectedIndex >= 0 Then
Dim selectedPaper As EnumPageSize = CType(cboFormat.SelectedValue, EnumPageSize)
If cbxAltFormat.Checked Then m_PDFCreator.PageSize = selectedPaper
End If
m_PDFCreator.Save(TryCast(Me, ISave), SaveFileDialog.FileName) m_PDFCreator.Save(TryCast(Me, ISave), SaveFileDialog.FileName)
End If End If
End If End If
@@ -575,12 +637,12 @@ Public Class frmScan
Dim iHeight As Integer = (tempAnnotation.EndPoint.X - tempAnnotation.StartPoint.X) Dim iHeight As Integer = (tempAnnotation.EndPoint.X - tempAnnotation.StartPoint.X)
Select Case tempAnnotation.AnnotationType Select Case tempAnnotation.AnnotationType
'case AnnotationType.enumLine: 'case AnnotationType.enumLine:
Case AnnotationType.enumEllipse, AnnotationType.enumRectangle, AnnotationType.enumText Case Dynamsoft.Core.Enums.AnnotationType.enumEllipse, Dynamsoft.Core.Enums.AnnotationType.enumRectangle, Dynamsoft.Core.Enums.AnnotationType.enumText
tempAnnotation.StartPoint = New Point(x, y) tempAnnotation.StartPoint = New Point(x, y)
'tempAnnotation.Size = new Size(iWidth, iHeight); 'tempAnnotation.Size = new Size(iWidth, iHeight);
tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight)) tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight))
Exit Select Exit Select
Case AnnotationType.enumLine Case Dynamsoft.Core.Enums.AnnotationType.enumLine
Dim startPoint As Point = tempAnnotation.StartPoint Dim startPoint As Point = tempAnnotation.StartPoint
x = startPoint.Y x = startPoint.Y
y = iImageWidth - startPoint.X y = iImageWidth - startPoint.X
@@ -608,11 +670,11 @@ Public Class frmScan
Dim iHeight As Integer = tempAnnotation.Size.Width Dim iHeight As Integer = tempAnnotation.Size.Width
Select Case tempAnnotation.AnnotationType Select Case tempAnnotation.AnnotationType
'case AnnotationType.enumLine: 'case AnnotationType.enumLine:
Case AnnotationType.enumEllipse, AnnotationType.enumRectangle, AnnotationType.enumText Case Dynamsoft.Core.Enums.AnnotationType.enumEllipse, Dynamsoft.Core.Enums.AnnotationType.enumRectangle, Dynamsoft.Core.Enums.AnnotationType.enumText
tempAnnotation.StartPoint = New Point(x, y) tempAnnotation.StartPoint = New Point(x, y)
tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight)) tempAnnotation.EndPoint = New Point((tempAnnotation.StartPoint.X + iWidth), (tempAnnotation.StartPoint.Y + iHeight))
Exit Select Exit Select
Case AnnotationType.enumLine Case Dynamsoft.Core.Enums.AnnotationType.enumLine
Dim startPoint As Point = tempAnnotation.StartPoint Dim startPoint As Point = tempAnnotation.StartPoint
x = iImageHeight - startPoint.Y x = iImageHeight - startPoint.Y
y = startPoint.X y = startPoint.X
@@ -708,6 +770,10 @@ Public Class frmScan
Case "QuickScan" Case "QuickScan"
Do Do
startScan() startScan()
If cboFormat.SelectedIndex >= 0 Then
Dim selectedPaper As EnumPageSize = CType(cboFormat.SelectedValue, EnumPageSize)
If cbxAltFormat.Checked Then m_PDFCreator.PageSize = selectedPaper
End If
Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave)) Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave))
Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
Me.ReturnValue = PDF_bytes ' DS.LAST_ID Me.ReturnValue = PDF_bytes ' DS.LAST_ID
@@ -754,6 +820,10 @@ Public Class frmScan
Return True Return True
'Throw New NotImplementedException() 'Throw New NotImplementedException()
End Function End Function
Private Sub cbxAltFormat_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAltFormat.CheckedChanged
cboFormat.Enabled = cbxAltFormat.Checked
End Sub
End Class End Class