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

cFakt, Kundenblatt, ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-02-12 10:56:14 +01:00
parent 7223ee1e98
commit 76dbe4021a
16 changed files with 3517 additions and 2983 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2061,11 +2061,17 @@ Public Class cFakturierung
einzelpreis = 0
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / checkNull(pos.Item("Anzahl")), pos.Item("SteuerfreierBetrag") / checkNull(pos.Item("Anzahl")))
If IsNumeric(checkNull(pos.Item("Anzahl"))) Then anzahl = CDbl(checkNull(pos.Item("Anzahl")))
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / anzahl, pos.Item("SteuerfreierBetrag") / anzahl)
If Double.IsNaN(einzelpreis) Then
einzelpreis = 0
End If
Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
name:=checkNull(pos.Item("LeistungsBez")),
billedQuantity:=Convert.ToDecimal(checkNull(pos.Item("Anzahl"))),
billedQuantity:=IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0),
unitCode:=QuantityCodes.C62, ' immer in Stück
netUnitPrice:=Convert.ToDecimal(einzelpreis),
grossUnitPrice:=Convert.ToDecimal(einzelpreis),
@@ -2074,7 +2080,7 @@ Public Class cFakturierung
taxType:=IIf(pos.Item("SteuerpflichtigerBetrag") > 0, TaxTypes.VAT, TaxTypes.VAT)
)
Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(pos.Item("Anzahl")))
Dim netPricePos = netUnitPrice * IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0)
sumNetto += netPricePos

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

@@ -26,6 +26,7 @@ Partial Class frmMDM_USTVAntrag
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.Panel3 = New System.Windows.Forms.Panel()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnAntrageeinarbeiten = New System.Windows.Forms.Button()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
@@ -40,6 +41,8 @@ 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.Label13 = New System.Windows.Forms.Label()
Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
@@ -92,8 +95,9 @@ Partial Class frmMDM_USTVAntrag
Me.btnNeuerEintrag = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.lblMWSTAbrechnung = New System.Windows.Forms.Label()
Me.Panel3.SuspendLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.Panel8.SuspendLayout()
@@ -105,7 +109,6 @@ Partial Class frmMDM_USTVAntrag
Me.pnl.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel3
@@ -124,6 +127,16 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3.Size = New System.Drawing.Size(1454, 100)
Me.Panel3.TabIndex = 3
'
'picPDF
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
Me.picPDF.Location = New System.Drawing.Point(972, 29)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(50, 50)
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.picPDF.TabIndex = 27
Me.picPDF.TabStop = False
'
'btnMail
'
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -214,7 +227,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.lblWarnung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblWarnung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblWarnung.BackColor = System.Drawing.Color.Transparent
Me.lblWarnung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblWarnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWarnung.ForeColor = System.Drawing.Color.Red
@@ -269,7 +282,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblKdNr.BackColor = System.Drawing.Color.Transparent
Me.lblKdNr.Cursor = System.Windows.Forms.Cursors.Default
Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKdNr.ForeColor = System.Drawing.Color.White
@@ -322,6 +335,9 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.lblMWSTAbrechnung)
Me.Panel8.Controls.Add(Me.Label13)
Me.Panel8.Controls.Add(Me.txtGueltig)
Me.Panel8.Controls.Add(Me.Label11)
Me.Panel8.Controls.Add(Me.txtStNr)
Me.Panel8.Controls.Add(Me.Label9)
@@ -346,6 +362,44 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Size = New System.Drawing.Size(973, 87)
Me.Panel8.TabIndex = 19
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.Transparent
Me.Label13.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.ForeColor = System.Drawing.Color.Black
Me.Label13.Location = New System.Drawing.Point(10, 65)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(64, 17)
Me.Label13.TabIndex = 24
Me.Label13.Text = "gültig bis"
'
'txtGueltig
'
Me.txtGueltig._DateTimeOnly = False
Me.txtGueltig._numbersOnly = False
Me.txtGueltig._numbersOnlyKommastellen = ""
Me.txtGueltig._numbersOnlyTrennzeichen = False
Me.txtGueltig._Prozent = False
Me.txtGueltig._ShortDateNew = False
Me.txtGueltig._ShortDateOnly = True
Me.txtGueltig._TimeOnly = False
Me.txtGueltig._TimeOnly_Seconds = False
Me.txtGueltig._value = ""
Me.txtGueltig._Waehrung = False
Me.txtGueltig._WaehrungZeichen = False
Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGueltig.ForeColor = System.Drawing.Color.Black
Me.txtGueltig.Location = New System.Drawing.Point(101, 62)
Me.txtGueltig.MaxLength = 10
Me.txtGueltig.MaxLineLength = -1
Me.txtGueltig.MaxLines_Warning = ""
Me.txtGueltig.MaxLines_Warning_Label = Nothing
Me.txtGueltig.Name = "txtGueltig"
Me.txtGueltig.Size = New System.Drawing.Size(100, 23)
Me.txtGueltig.TabIndex = 23
'
'Label11
'
Me.Label11.AutoSize = True
@@ -353,7 +407,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.Black
Me.Label11.Location = New System.Drawing.Point(10, 47)
Me.Label11.Location = New System.Drawing.Point(10, 40)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(74, 17)
Me.Label11.TabIndex = 21
@@ -375,7 +429,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtStNr._WaehrungZeichen = False
Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtStNr.ForeColor = System.Drawing.Color.Black
Me.txtStNr.Location = New System.Drawing.Point(101, 44)
Me.txtStNr.Location = New System.Drawing.Point(101, 37)
Me.txtStNr.MaxLength = 10
Me.txtStNr.MaxLineLength = -1
Me.txtStNr.MaxLines_Warning = ""
@@ -391,7 +445,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Black
Me.Label9.Location = New System.Drawing.Point(815, 44)
Me.Label9.Location = New System.Drawing.Point(815, 38)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(30, 17)
Me.Label9.TabIndex = 19
@@ -413,7 +467,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtVZ._WaehrungZeichen = True
Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVZ.ForeColor = System.Drawing.Color.Black
Me.txtVZ.Location = New System.Drawing.Point(865, 38)
Me.txtVZ.Location = New System.Drawing.Point(865, 32)
Me.txtVZ.MaxLength = 10
Me.txtVZ.MaxLineLength = -1
Me.txtVZ.MaxLines_Warning = ""
@@ -438,7 +492,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtAbfNr._WaehrungZeichen = False
Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbfNr.ForeColor = System.Drawing.Color.Black
Me.txtAbfNr.Location = New System.Drawing.Point(654, 40)
Me.txtAbfNr.Location = New System.Drawing.Point(654, 34)
Me.txtAbfNr.MaxLength = 10
Me.txtAbfNr.MaxLineLength = -1
Me.txtAbfNr.MaxLines_Warning = ""
@@ -454,7 +508,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.Black
Me.Label8.Location = New System.Drawing.Point(524, 44)
Me.Label8.Location = New System.Drawing.Point(524, 38)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(112, 17)
Me.Label8.TabIndex = 17
@@ -465,10 +519,10 @@ Partial Class frmMDM_USTVAntrag
Me.cbxFiliale._allowedValuesFreiText = Nothing
Me.cbxFiliale._allowFreiText = False
Me.cbxFiliale._value = ""
Me.cbxFiliale.DropDownWidth = 120
Me.cbxFiliale.DropDownWidth = 150
Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFiliale.FormattingEnabled = True
Me.cbxFiliale.Location = New System.Drawing.Point(429, 39)
Me.cbxFiliale.Location = New System.Drawing.Point(429, 33)
Me.cbxFiliale.Name = "cbxFiliale"
Me.cbxFiliale.Size = New System.Drawing.Size(89, 24)
Me.cbxFiliale.TabIndex = 16
@@ -480,7 +534,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(363, 44)
Me.Label4.Location = New System.Drawing.Point(363, 38)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(48, 17)
Me.Label4.TabIndex = 15
@@ -493,7 +547,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(524, 13)
Me.Label2.Location = New System.Drawing.Point(524, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(111, 17)
Me.Label2.TabIndex = 13
@@ -515,7 +569,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtBezugsNr._WaehrungZeichen = False
Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBezugsNr.ForeColor = System.Drawing.Color.Black
Me.txtBezugsNr.Location = New System.Drawing.Point(654, 9)
Me.txtBezugsNr.Location = New System.Drawing.Point(654, 5)
Me.txtBezugsNr.MaxLength = 10
Me.txtBezugsNr.MaxLineLength = -1
Me.txtBezugsNr.MaxLines_Warning = ""
@@ -531,7 +585,7 @@ Partial Class frmMDM_USTVAntrag
Me.cbxWahrung._value = ""
Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxWahrung.FormattingEnabled = True
Me.cbxWahrung.Location = New System.Drawing.Point(447, 9)
Me.cbxWahrung.Location = New System.Drawing.Point(447, 5)
Me.cbxWahrung.Name = "cbxWahrung"
Me.cbxWahrung.Size = New System.Drawing.Size(71, 24)
Me.cbxWahrung.TabIndex = 12
@@ -543,7 +597,7 @@ Partial Class frmMDM_USTVAntrag
Me.lblWahrung.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblWahrung.ForeColor = System.Drawing.Color.Black
Me.lblWahrung.Location = New System.Drawing.Point(363, 13)
Me.lblWahrung.Location = New System.Drawing.Point(363, 9)
Me.lblWahrung.Name = "lblWahrung"
Me.lblWahrung.Size = New System.Drawing.Size(70, 17)
Me.lblWahrung.TabIndex = 11
@@ -556,7 +610,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(815, 13)
Me.Label1.Location = New System.Drawing.Point(815, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 17)
Me.Label1.TabIndex = 10
@@ -578,7 +632,7 @@ Partial Class frmMDM_USTVAntrag
Me.txt3470._WaehrungZeichen = True
Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txt3470.ForeColor = System.Drawing.Color.Black
Me.txt3470.Location = New System.Drawing.Point(865, 7)
Me.txt3470.Location = New System.Drawing.Point(865, 3)
Me.txt3470.MaxLength = 10
Me.txt3470.MaxLineLength = -1
Me.txt3470.MaxLines_Warning = ""
@@ -676,7 +730,7 @@ Partial Class frmMDM_USTVAntrag
'lblGesamtUSteuer
'
Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
@@ -691,7 +745,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label12.AutoSize = True
Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label12.BackColor = System.Drawing.Color.Transparent
Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label12.ForeColor = System.Drawing.Color.White
@@ -704,7 +758,7 @@ Partial Class frmMDM_USTVAntrag
'lblDiffernezbetrag
'
Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.Transparent
Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
@@ -719,7 +773,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label10.BackColor = System.Drawing.Color.Transparent
Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label10.ForeColor = System.Drawing.Color.White
@@ -732,7 +786,7 @@ Partial Class frmMDM_USTVAntrag
'lblGesamtErstattung
'
Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblGesamtErstattung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblGesamtErstattung.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
@@ -747,7 +801,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label7.ForeColor = System.Drawing.Color.White
@@ -975,7 +1029,7 @@ Partial Class frmMDM_USTVAntrag
'
Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblFirma.BackColor = System.Drawing.Color.Transparent
Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Default
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblFirma.ForeColor = System.Drawing.Color.White
@@ -1094,15 +1148,17 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'picPDF
'lblMWSTAbrechnung
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
Me.picPDF.Location = New System.Drawing.Point(972, 29)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(50, 50)
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.picPDF.TabIndex = 27
Me.picPDF.TabStop = False
Me.lblMWSTAbrechnung.AutoSize = True
Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent
Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black
Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41)
Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung"
Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17)
Me.lblMWSTAbrechnung.TabIndex = 25
'
'frmMDM_USTVAntrag
'
@@ -1120,6 +1176,7 @@ Partial Class frmMDM_USTVAntrag
Me.Text = "USTV Antrag"
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel9.ResumeLayout(False)
@@ -1136,7 +1193,6 @@ Partial Class frmMDM_USTVAntrag
Me.pnl.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -1209,4 +1265,7 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents Label2 As Label
Friend WithEvents txtBezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents picPDF As PictureBox
Friend WithEvents txtGueltig As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As Label
Friend WithEvents lblMWSTAbrechnung As Label
End Class

84
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -218,10 +218,27 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
setValue(USTV_ANTRAG)
Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
If KUNDE IsNot Nothing Then
Panel1.BackColor = Color.FromArgb(0, 54, 128)
If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
Else
Panel1.BackColor = Color.FromArgb(0, 54, 128)
End If
If KUNDE_ERW IsNot Nothing Then
If KUNDE_ERW.kde_MWStAbrechnung IsNot Nothing Then
lblMWSTAbrechnung.Text = KUNDE_ERW.kde_MWStAbrechnung
Else
lblMWSTAbrechnung.Text = ""
End If
End If
End If
@@ -335,7 +352,7 @@ Public Class frmMDM_USTVAntrag
dgvUSTVPositionen.VALUE_CHANGED = True
End Sub
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Private Sub usrCntlUSTVA_Antrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
EnableDoubleBuffered(dgvUSTVPositionen)
@@ -450,6 +467,8 @@ Public Class frmMDM_USTVAntrag
init()
setinfofields()
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click
@@ -1006,7 +1025,7 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_Schnittstelle = True
USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
USTV_POS.UStVPo_Leistender = "IDS EUROPE BV"
USTV_POS.UStVPo_Leistender = "IDS EUROPE B.V."
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
USTV_POS.UStVPo_Zeitstempel = Now()
@@ -1640,6 +1659,9 @@ Public Class frmMDM_USTVAntrag
Private Sub cbxLand_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxLand.SelectedValueChanged
lblLand.Text = IIf(cbxLand.SelectedItem IsNot Nothing, cbxLand.SelectedItem.Text, "")
setinfofields()
End Sub
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
@@ -1823,5 +1845,63 @@ Public Class frmMDM_USTVAntrag
Next
End Sub
Private Sub setinfofields()
If Not IsDBNull(USTV_ANTRAG.UStVAn_LandNr) Then
Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
If dtSteuerNr.Rows.Count > 0 Then
txtStNr.Text = dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")
txtGueltig.Text = dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")
End If
End If
' If Not IsNull(Me!UStVAn_LandNr) Then
' strSQL = "SELECT tblSteuernummern.*" &
' " FROM tblSteuernummern" &
' " WHERE (((tblSteuernummern.AdressenNr)=" & Me!lngKundenNr & ") AND ((tblSteuernummern.LandNr)=" & Me!UStVAn_LandNr & "));"
' Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
' If Not rst.EOF Then
' Me!StNrFürRückerstattungUSt = rst!StNrFürRückerstattungUSt
' Me!StNrGültigkeitsdatum = rst!StNrGültigkeitsdatum
' Me!bezVertretungsvollmachtAusgestelltAm.ForeColor = -2147483630
' Me!bezVertretungsvollmachtAusgestelltAm.Caption = "Vertretungsvollmacht ausgestellt am"
' Me!VertretungsvollmachtAusgestelltAm = rst!VertretungsvollmachtAusgestelltAm
' Me!bezVertretungsvollmachtErhaltenAm.ForeColor = -2147483630
' Me!bezVertretungsvollmachtErhaltenAm.Caption = "Vertretungsvollmacht erhalten am"
' Me!VertretungsvollmachtErhaltenAm = rst!VertretungsvollmachtErhaltenAm
' Me!AuszahlungsvollmachtAusgestelltAm = rst!AuszahlungsvollmachtAusgestelltAm
' Me!AuszahlungsvollmachtErhaltenAm = rst!AuszahlungsvollmachtErhaltenAm
' Me!Bemerkung = rst!Bemerkung
' End If
' rst.Close
' ' ab 25.03.2010 Generalvollmacht Eintrag in Tabelle Adressen
' strSQL = "SELECT Adressen.UStV_GVAnfDat, Adressen.UStV_GVAusDat" &
' " FROM Adressen" &
' " WHERE (((Adressen.AdressenNr)=" & Me!lngKundenNr & ") AND" &
' " (((Adressen.UStV_GVAnfDat) Is Not Null) OR ((Adressen.UStV_GVAusDat) Is Not Null)));"
' Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
' If Not rst.EOF Then
' Me!bezVertretungsvollmachtAusgestelltAm.ForeColor = 16711808
' Me!bezVertretungsvollmachtAusgestelltAm.Caption = "Generalvollmacht angefordert am"
' Me!VertretungsvollmachtAusgestelltAm = rst!UStV_GVAnfDat
' Me!bezVertretungsvollmachtErhaltenAm.ForeColor = 16711808
' Me!bezVertretungsvollmachtErhaltenAm.Caption = "Generalvollmacht ausgestellt am"
' Me!VertretungsvollmachtErhaltenAm = rst!UStV_GVAusDat
' End If
' rst.Close
' Set rst = Nothing
'End If
End Sub
End Class

1
SDL/USTV/frmUSTVoffeneAntraege.Designer.vb generated
View File

@@ -480,6 +480,7 @@ Partial Class frmUSTVoffeneAntraege
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button4.Location = New System.Drawing.Point(15, 639)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)

70
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -28,6 +28,8 @@ Partial Class usrCntlUSTV
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblVZhint = New System.Windows.Forms.Label()
Me.lblVZKunde = New System.Windows.Forms.Label()
Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtOPSaldo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -60,13 +62,14 @@ Partial Class usrCntlUSTV
Me.btnUSTVAloeschen = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnVorschau = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnPLOSEAlle = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.btnVorschau = New System.Windows.Forms.Button()
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -114,6 +117,8 @@ Partial Class usrCntlUSTV
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel1.Controls.Add(Me.lblVZhint)
Me.Panel1.Controls.Add(Me.lblVZKunde)
Me.Panel1.Controls.Add(Me.txtRisiko)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.txtOPSaldo)
@@ -149,6 +154,26 @@ Partial Class usrCntlUSTV
Me.Panel1.Size = New System.Drawing.Size(1627, 108)
Me.Panel1.TabIndex = 0
'
'lblVZhint
'
Me.lblVZhint.AutoSize = True
Me.lblVZhint.Location = New System.Drawing.Point(4, 60)
Me.lblVZhint.Name = "lblVZhint"
Me.lblVZhint.Size = New System.Drawing.Size(0, 13)
Me.lblVZhint.TabIndex = 58
'
'lblVZKunde
'
Me.lblVZKunde.AutoSize = True
Me.lblVZKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVZKunde.ForeColor = System.Drawing.Color.Red
Me.lblVZKunde.Location = New System.Drawing.Point(4, 39)
Me.lblVZKunde.Name = "lblVZKunde"
Me.lblVZKunde.Size = New System.Drawing.Size(83, 16)
Me.lblVZKunde.TabIndex = 57
Me.lblVZKunde.Text = "VZ-KUNDE"
Me.lblVZKunde.Visible = False
'
'txtRisiko
'
Me.txtRisiko._DateTimeOnly = False
@@ -644,6 +669,7 @@ Partial Class usrCntlUSTV
'Panel3
'
Me.Panel3.AutoSize = True
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.btnVorschau)
Me.Panel3.Controls.Add(Me.btnMail)
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
@@ -658,6 +684,32 @@ Partial Class usrCntlUSTV
Me.Panel3.Size = New System.Drawing.Size(1627, 77)
Me.Panel3.TabIndex = 0
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(1092, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(92, 39)
Me.Button2.TabIndex = 27
Me.Button2.Text = "St.-Nr. prüfen"
Me.Button2.UseVisualStyleBackColor = True
'
'btnVorschau
'
Me.btnVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVorschau.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVorschau.ForeColor = System.Drawing.Color.Black
Me.btnVorschau.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVorschau.Location = New System.Drawing.Point(1190, 6)
Me.btnVorschau.Name = "btnVorschau"
Me.btnVorschau.Size = New System.Drawing.Size(92, 39)
Me.btnVorschau.TabIndex = 26
Me.btnVorschau.Text = "Vorschau"
Me.btnVorschau.UseVisualStyleBackColor = True
'
'btnMail
'
Me.btnMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -724,19 +776,6 @@ Partial Class usrCntlUSTV
Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'btnVorschau
'
Me.btnVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVorschau.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVorschau.ForeColor = System.Drawing.Color.Black
Me.btnVorschau.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVorschau.Location = New System.Drawing.Point(1190, 6)
Me.btnVorschau.Name = "btnVorschau"
Me.btnVorschau.Size = New System.Drawing.Size(92, 39)
Me.btnVorschau.TabIndex = 26
Me.btnVorschau.Text = "Vorschau"
Me.btnVorschau.UseVisualStyleBackColor = True
'
'usrCntlUSTV
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -798,4 +837,7 @@ Partial Class usrCntlUSTV
Friend WithEvents txtOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents btnVorschau As Button
Friend WithEvents Button2 As Button
Friend WithEvents lblVZhint As Label
Friend WithEvents lblVZKunde As Label
End Class

74
SDL/USTV/usrCntlUSTV.vb
View File

@@ -23,6 +23,9 @@ Public Class usrCntlUSTV
Me.kdNr = kdNr
KdSearchBox1.KdNr = kdNr
KdSearchBox1.Enabled = False
setInfo(kdNr)
Else
setInfo(KdSearchBox1.KdNr)
End If
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
@@ -254,7 +257,7 @@ Public Class usrCntlUSTV
Return whereStr
End Function
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Private Sub usrCntlUSTV_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' btnFilter.Left = Panel4.Width - btnFilter.Width
KdSearchBox1.initKdBox(Me.FindForm)
If kdNr > 0 Then
@@ -924,5 +927,74 @@ Public Class usrCntlUSTV
End Sub
Private Sub setInfo(kdnr As Integer)
If kdnr > 0 Then
Panel1.BackColor = Color.FromArgb(240, 245, 255)
Dim KUNDE As New cKunde(kdnr)
Dim KUNDE_ERW As New cKundenErweitert(kdnr)
If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
If KUNDE_ERW.kde_AnmerkungVZ IsNot Nothing Then
lblVZhint.Text = KUNDE_ERW.kde_AnmerkungVZ
Else
End If
lblVZKunde.Visible = KUNDE_ERW.kde_VZ
Else
lblVZKunde.Visible = False
lblVZhint.Text = ""
Panel1.BackColor = Color.FromArgb(240, 245, 255)
End If
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False)
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim pruefdatum As Date = CDate(f.Datum)
Dim sqlKunde = ""
If KdSearchBox1.KdNr > 0 Then
sqlKunde = " AND A.AdressenNr = " & KdSearchBox1.KdNr
End If
Dim sqlQery = "SELECT
A.LandKz,
A.AdressenNr,
A.Ordnungsbegriff,
L.LandKz,
S.StNrFürRückerstattungUSt,
S.StNrGültigkeitsdatum,
CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
CASE
WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1
ELSE 0
END AS Gültig
FROM
[Länderverzeichnis für die Außenhandelsstatistik] L
INNER JOIN
(Adressen A
INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz
INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr)
ON L.LandNr = S.LandNr
WHERE
S.StNrGültigkeitsdatum IS NOT NULL
AND W.MitgliedslandEU = 0 " & sqlKunde
Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True)
End If
End Sub
End Class

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

@@ -23,7 +23,6 @@ Partial Class ustCntlUSTV_AntragPosition
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.tabDok = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -31,35 +30,27 @@ Partial Class ustCntlUSTV_AntragPosition
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tabFABest = New System.Windows.Forms.TabPage()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label8 = New System.Windows.Forms.Label()
Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnBildAuf = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboLeistungsgeber = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblAenderungsdatum = New System.Windows.Forms.Label()
Me.lblSachbearbeiter = New System.Windows.Forms.Label()
Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.picSave = New System.Windows.Forms.PictureBox()
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()
@@ -71,19 +62,28 @@ Partial Class ustCntlUSTV_AntragPosition
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()
Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cboLeistungsgeber = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
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.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.tabDok.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.tabVollmachten.SuspendLayout()
Me.tabFABest.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.picSave, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlAdresse.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
@@ -92,26 +92,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.TabPage1.SuspendLayout()
Me.SuspendLayout()
'
'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
'
'tabDok
'
Me.tabDok.Controls.Add(Me.scanSonstiges)
@@ -217,21 +197,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
Me.scanUSTVFABest.TabIndex = 1
'
'cbxAPI
'
Me.cbxAPI._date = Nothing
Me.cbxAPI._showdate = True
Me.cbxAPI._value = ""
Me.cbxAPI.AutoSize = True
Me.cbxAPI.Enabled = False
Me.cbxAPI.Location = New System.Drawing.Point(634, 193)
Me.cbxAPI.Name = "cbxAPI"
Me.cbxAPI.Size = New System.Drawing.Size(83, 17)
Me.cbxAPI.TabIndex = 17
Me.cbxAPI.Text = "Schnittstelle"
Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.cbxAPI.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
@@ -243,30 +208,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label8.TabIndex = 0
Me.Label8.Text = "Details"
'
'txtRgDatum
'
Me.txtRgDatum._DateTimeOnly = False
Me.txtRgDatum._numbersOnly = False
Me.txtRgDatum._numbersOnlyKommastellen = ""
Me.txtRgDatum._numbersOnlyTrennzeichen = True
Me.txtRgDatum._Prozent = False
Me.txtRgDatum._ShortDateNew = False
Me.txtRgDatum._ShortDateOnly = False
Me.txtRgDatum._TimeOnly = False
Me.txtRgDatum._TimeOnly_Seconds = False
Me.txtRgDatum._value = ""
Me.txtRgDatum._Waehrung = False
Me.txtRgDatum._WaehrungZeichen = True
Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
Me.txtRgDatum.MaxLength = 10
Me.txtRgDatum.MaxLineLength = -1
Me.txtRgDatum.MaxLines_Warning = ""
Me.txtRgDatum.MaxLines_Warning_Label = Nothing
Me.txtRgDatum.Name = "txtRgDatum"
Me.txtRgDatum.Size = New System.Drawing.Size(154, 20)
Me.txtRgDatum.TabIndex = 6
'
'Label7
'
Me.Label7.AutoSize = True
@@ -287,29 +228,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Panel2.Size = New System.Drawing.Size(1300, 30)
Me.Panel2.TabIndex = 0
'
'txtRgNr
'
Me.txtRgNr._DateTimeOnly = False
Me.txtRgNr._numbersOnly = False
Me.txtRgNr._numbersOnlyKommastellen = ""
Me.txtRgNr._numbersOnlyTrennzeichen = True
Me.txtRgNr._Prozent = False
Me.txtRgNr._ShortDateNew = False
Me.txtRgNr._ShortDateOnly = False
Me.txtRgNr._TimeOnly = False
Me.txtRgNr._TimeOnly_Seconds = False
Me.txtRgNr._value = Nothing
Me.txtRgNr._Waehrung = False
Me.txtRgNr._WaehrungZeichen = True
Me.txtRgNr.Location = New System.Drawing.Point(177, 49)
Me.txtRgNr.MaxLength = 250
Me.txtRgNr.MaxLineLength = -1
Me.txtRgNr.MaxLines_Warning = ""
Me.txtRgNr.MaxLines_Warning_Label = Nothing
Me.txtRgNr.Name = "txtRgNr"
Me.txtRgNr.Size = New System.Drawing.Size(183, 20)
Me.txtRgNr.TabIndex = 7
'
'Label9
'
Me.Label9.AutoSize = True
@@ -356,29 +274,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.UseVisualStyleBackColor = True
'
'txtLeistungsbezeichnung
'
Me.txtLeistungsbezeichnung._DateTimeOnly = False
Me.txtLeistungsbezeichnung._numbersOnly = False
Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
Me.txtLeistungsbezeichnung._Prozent = False
Me.txtLeistungsbezeichnung._ShortDateNew = False
Me.txtLeistungsbezeichnung._ShortDateOnly = False
Me.txtLeistungsbezeichnung._TimeOnly = False
Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
Me.txtLeistungsbezeichnung._value = Nothing
Me.txtLeistungsbezeichnung._Waehrung = False
Me.txtLeistungsbezeichnung._WaehrungZeichen = True
Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
Me.txtLeistungsbezeichnung.MaxLength = 22
Me.txtLeistungsbezeichnung.MaxLineLength = -1
Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
Me.txtLeistungsbezeichnung.TabIndex = 8
'
'Label2
'
Me.Label2.AutoSize = True
@@ -419,30 +314,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label10.TabIndex = 10
Me.Label10.Text = "Rechnung"
'
'txtUSTBetrag
'
Me.txtUSTBetrag._DateTimeOnly = False
Me.txtUSTBetrag._numbersOnly = False
Me.txtUSTBetrag._numbersOnlyKommastellen = ""
Me.txtUSTBetrag._numbersOnlyTrennzeichen = False
Me.txtUSTBetrag._Prozent = False
Me.txtUSTBetrag._ShortDateNew = False
Me.txtUSTBetrag._ShortDateOnly = False
Me.txtUSTBetrag._TimeOnly = False
Me.txtUSTBetrag._TimeOnly_Seconds = False
Me.txtUSTBetrag._value = ""
Me.txtUSTBetrag._Waehrung = False
Me.txtUSTBetrag._WaehrungZeichen = True
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
Me.txtUSTBetrag.MaxLength = 10
Me.txtUSTBetrag.MaxLineLength = -1
Me.txtUSTBetrag.MaxLines_Warning = ""
Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
Me.txtUSTBetrag.Name = "txtUSTBetrag"
Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetrag.TabIndex = 16
'
'Label11
'
Me.Label11.AutoSize = True
@@ -453,30 +324,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label11.TabIndex = 11
Me.Label11.Text = "USt-Betrag:"
'
'txtUmrechnungskurs
'
Me.txtUmrechnungskurs._DateTimeOnly = False
Me.txtUmrechnungskurs._numbersOnly = True
Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
Me.txtUmrechnungskurs._Prozent = False
Me.txtUmrechnungskurs._ShortDateNew = False
Me.txtUmrechnungskurs._ShortDateOnly = False
Me.txtUmrechnungskurs._TimeOnly = False
Me.txtUmrechnungskurs._TimeOnly_Seconds = False
Me.txtUmrechnungskurs._value = ""
Me.txtUmrechnungskurs._Waehrung = False
Me.txtUmrechnungskurs._WaehrungZeichen = True
Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
Me.txtUmrechnungskurs.MaxLength = 10
Me.txtUmrechnungskurs.MaxLineLength = -1
Me.txtUmrechnungskurs.MaxLines_Warning = ""
Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
Me.txtUmrechnungskurs.TabIndex = 17
'
'Label12
'
Me.Label12.AutoSize = True
@@ -487,30 +334,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label12.TabIndex = 12
Me.Label12.Text = "Umrechnungskurs:"
'
'txtUSTBetragEUR
'
Me.txtUSTBetragEUR._DateTimeOnly = False
Me.txtUSTBetragEUR._numbersOnly = False
Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = False
Me.txtUSTBetragEUR._Prozent = False
Me.txtUSTBetragEUR._ShortDateNew = False
Me.txtUSTBetragEUR._ShortDateOnly = False
Me.txtUSTBetragEUR._TimeOnly = False
Me.txtUSTBetragEUR._TimeOnly_Seconds = False
Me.txtUSTBetragEUR._value = ""
Me.txtUSTBetragEUR._Waehrung = False
Me.txtUSTBetragEUR._WaehrungZeichen = True
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
Me.txtUSTBetragEUR.MaxLength = 10
Me.txtUSTBetragEUR.MaxLineLength = -1
Me.txtUSTBetragEUR.MaxLines_Warning = ""
Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetragEUR.TabIndex = 18
'
'Label13
'
Me.Label13.AutoSize = True
@@ -521,20 +344,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label13.TabIndex = 13
Me.Label13.Text = "USt-Betrag EUR"
'
'cboLeistungsgeber
'
Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
Me.cboLeistungsgeber._allowFreiText = True
Me.cboLeistungsgeber._value = ""
Me.cboLeistungsgeber.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cboLeistungsgeber.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboLeistungsgeber.DropDownWidth = 350
Me.cboLeistungsgeber.FormattingEnabled = True
Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 49)
Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
Me.cboLeistungsgeber.TabIndex = 9
'
'Label4
'
Me.Label4.AutoSize = True
@@ -575,22 +384,11 @@ Partial Class ustCntlUSTV_AntragPosition
Me.lblSachbearbeiter.TabIndex = 20
Me.lblSachbearbeiter.Text = "-"
'
'cboSchnittstellennr
'
Me.cboSchnittstellennr._allowedValuesFreiText = Nothing
Me.cboSchnittstellennr._allowFreiText = False
Me.cboSchnittstellennr._value = ""
Me.cboSchnittstellennr.Enabled = False
Me.cboSchnittstellennr.FormattingEnabled = True
Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 191)
Me.cboSchnittstellennr.Name = "cboSchnittstellennr"
Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21)
Me.cboSchnittstellennr.TabIndex = 18
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.picSave)
Me.pnl.Controls.Add(Me.btnLeistenderSave)
Me.pnl.Controls.Add(Me.sbLeistender)
Me.pnl.Controls.Add(Me.pnlAdresse)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.cboSchnittstellennr)
@@ -621,16 +419,43 @@ Partial Class ustCntlUSTV_AntragPosition
Me.pnl.Size = New System.Drawing.Size(1300, 239)
Me.pnl.TabIndex = 1
'
'picSave
'btnLeistenderSave
'
Me.picSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
Me.picSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picSave.Location = New System.Drawing.Point(886, 164)
Me.picSave.Name = "picSave"
Me.picSave.Size = New System.Drawing.Size(26, 22)
Me.picSave.TabIndex = 34
Me.picSave.TabStop = False
Me.picSave.Visible = False
Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162)
Me.btnLeistenderSave.Name = "btnLeistenderSave"
Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24)
Me.btnLeistenderSave.TabIndex = 21
Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnLeistenderSave.UseVisualStyleBackColor = True
Me.btnLeistenderSave.Visible = False
'
'sbLeistender
'
Me.sbLeistender._allowFreitext = True
Me.sbLeistender._AllowSetValue = False
Me.sbLeistender._allowSpaceAsSplitter = False
Me.sbLeistender._autoSizeGross = False
Me.sbLeistender._hideIfListEmpty = True
Me.sbLeistender._value = Nothing
Me.sbLeistender.conn_art = "FMZOLL"
Me.sbLeistender.dgvpos = "LEFT"
Me.sbLeistender.DISPLAY_PARAM = Nothing
Me.sbLeistender.INVISIBLE_COLUMNS = Nothing
Me.sbLeistender.key_visible = False
Me.sbLeistender.KEYPARAM = Nothing
Me.sbLeistender.Location = New System.Drawing.Point(630, 49)
Me.sbLeistender.Name = "sbLeistender"
Me.sbLeistender.searchActive = True
Me.sbLeistender.Size = New System.Drawing.Size(283, 20)
Me.sbLeistender.SQL_ORDER_BY = Nothing
Me.sbLeistender.SQL_SELECT = Nothing
Me.sbLeistender.SQL_WHERE = Nothing
Me.sbLeistender.SQL_WhereParamList = Nothing
Me.sbLeistender.TabIndex = 13
Me.sbLeistender.usrcntl = Nothing
'
'pnlAdresse
'
@@ -648,7 +473,7 @@ Partial Class ustCntlUSTV_AntragPosition
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 = 33
Me.pnlAdresse.TabIndex = 14
'
'txtStrasse
'
@@ -672,7 +497,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtStrasse.MaxLines_Warning_Label = Nothing
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(169, 20)
Me.txtStrasse.TabIndex = 10
Me.txtStrasse.TabIndex = 15
'
'txtUIDNr
'
@@ -696,7 +521,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtUIDNr.MaxLines_Warning_Label = Nothing
Me.txtUIDNr.Name = "txtUIDNr"
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
Me.txtUIDNr.TabIndex = 15
Me.txtUIDNr.TabIndex = 20
'
'Label14
'
@@ -750,7 +575,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtLand.MaxLines_Warning_Label = Nothing
Me.txtLand.Name = "txtLand"
Me.txtLand.Size = New System.Drawing.Size(38, 20)
Me.txtLand.TabIndex = 14
Me.txtLand.TabIndex = 19
'
'txtPLZ
'
@@ -774,7 +599,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtPLZ.MaxLines_Warning_Label = Nothing
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(59, 20)
Me.txtPLZ.TabIndex = 12
Me.txtPLZ.TabIndex = 17
'
'txtStrassenNr
'
@@ -798,7 +623,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtStrassenNr.MaxLines_Warning_Label = Nothing
Me.txtStrassenNr.Name = "txtStrassenNr"
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
Me.txtStrassenNr.TabIndex = 11
Me.txtStrassenNr.TabIndex = 16
'
'Label16
'
@@ -832,7 +657,192 @@ Partial Class ustCntlUSTV_AntragPosition
Me.txtOrt.MaxLines_Warning_Label = Nothing
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(154, 20)
Me.txtOrt.TabIndex = 13
Me.txtOrt.TabIndex = 18
'
'cboSchnittstellennr
'
Me.cboSchnittstellennr._allowedValuesFreiText = Nothing
Me.cboSchnittstellennr._allowFreiText = False
Me.cboSchnittstellennr._value = ""
Me.cboSchnittstellennr.Enabled = False
Me.cboSchnittstellennr.FormattingEnabled = True
Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 191)
Me.cboSchnittstellennr.Name = "cboSchnittstellennr"
Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21)
Me.cboSchnittstellennr.TabIndex = 18
'
'txtRgNr
'
Me.txtRgNr._DateTimeOnly = False
Me.txtRgNr._numbersOnly = False
Me.txtRgNr._numbersOnlyKommastellen = ""
Me.txtRgNr._numbersOnlyTrennzeichen = True
Me.txtRgNr._Prozent = False
Me.txtRgNr._ShortDateNew = False
Me.txtRgNr._ShortDateOnly = False
Me.txtRgNr._TimeOnly = False
Me.txtRgNr._TimeOnly_Seconds = False
Me.txtRgNr._value = Nothing
Me.txtRgNr._Waehrung = False
Me.txtRgNr._WaehrungZeichen = True
Me.txtRgNr.Location = New System.Drawing.Point(177, 49)
Me.txtRgNr.MaxLength = 250
Me.txtRgNr.MaxLineLength = -1
Me.txtRgNr.MaxLines_Warning = ""
Me.txtRgNr.MaxLines_Warning_Label = Nothing
Me.txtRgNr.Name = "txtRgNr"
Me.txtRgNr.Size = New System.Drawing.Size(183, 20)
Me.txtRgNr.TabIndex = 7
'
'txtRgDatum
'
Me.txtRgDatum._DateTimeOnly = False
Me.txtRgDatum._numbersOnly = False
Me.txtRgDatum._numbersOnlyKommastellen = ""
Me.txtRgDatum._numbersOnlyTrennzeichen = True
Me.txtRgDatum._Prozent = False
Me.txtRgDatum._ShortDateNew = False
Me.txtRgDatum._ShortDateOnly = False
Me.txtRgDatum._TimeOnly = False
Me.txtRgDatum._TimeOnly_Seconds = False
Me.txtRgDatum._value = ""
Me.txtRgDatum._Waehrung = False
Me.txtRgDatum._WaehrungZeichen = True
Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
Me.txtRgDatum.MaxLength = 10
Me.txtRgDatum.MaxLineLength = -1
Me.txtRgDatum.MaxLines_Warning = ""
Me.txtRgDatum.MaxLines_Warning_Label = Nothing
Me.txtRgDatum.Name = "txtRgDatum"
Me.txtRgDatum.Size = New System.Drawing.Size(154, 20)
Me.txtRgDatum.TabIndex = 6
'
'cbxAPI
'
Me.cbxAPI._date = Nothing
Me.cbxAPI._showdate = True
Me.cbxAPI._value = ""
Me.cbxAPI.AutoSize = True
Me.cbxAPI.Enabled = False
Me.cbxAPI.Location = New System.Drawing.Point(634, 193)
Me.cbxAPI.Name = "cbxAPI"
Me.cbxAPI.Size = New System.Drawing.Size(83, 17)
Me.cbxAPI.TabIndex = 17
Me.cbxAPI.Text = "Schnittstelle"
Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.cbxAPI.UseVisualStyleBackColor = True
'
'cboLeistungsgeber
'
Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
Me.cboLeistungsgeber._allowFreiText = True
Me.cboLeistungsgeber._value = ""
Me.cboLeistungsgeber.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cboLeistungsgeber.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboLeistungsgeber.DropDownWidth = 350
Me.cboLeistungsgeber.Enabled = False
Me.cboLeistungsgeber.FormattingEnabled = True
Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 7)
Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
Me.cboLeistungsgeber.TabIndex = 9
Me.cboLeistungsgeber.Visible = False
'
'txtLeistungsbezeichnung
'
Me.txtLeistungsbezeichnung._DateTimeOnly = False
Me.txtLeistungsbezeichnung._numbersOnly = False
Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
Me.txtLeistungsbezeichnung._Prozent = False
Me.txtLeistungsbezeichnung._ShortDateNew = False
Me.txtLeistungsbezeichnung._ShortDateOnly = False
Me.txtLeistungsbezeichnung._TimeOnly = False
Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
Me.txtLeistungsbezeichnung._value = Nothing
Me.txtLeistungsbezeichnung._Waehrung = False
Me.txtLeistungsbezeichnung._WaehrungZeichen = True
Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
Me.txtLeistungsbezeichnung.MaxLength = 22
Me.txtLeistungsbezeichnung.MaxLineLength = -1
Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
Me.txtLeistungsbezeichnung.TabIndex = 8
'
'txtUSTBetragEUR
'
Me.txtUSTBetragEUR._DateTimeOnly = False
Me.txtUSTBetragEUR._numbersOnly = False
Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = False
Me.txtUSTBetragEUR._Prozent = False
Me.txtUSTBetragEUR._ShortDateNew = False
Me.txtUSTBetragEUR._ShortDateOnly = False
Me.txtUSTBetragEUR._TimeOnly = False
Me.txtUSTBetragEUR._TimeOnly_Seconds = False
Me.txtUSTBetragEUR._value = ""
Me.txtUSTBetragEUR._Waehrung = False
Me.txtUSTBetragEUR._WaehrungZeichen = True
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
Me.txtUSTBetragEUR.MaxLength = 10
Me.txtUSTBetragEUR.MaxLineLength = -1
Me.txtUSTBetragEUR.MaxLines_Warning = ""
Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetragEUR.TabIndex = 11
'
'txtUmrechnungskurs
'
Me.txtUmrechnungskurs._DateTimeOnly = False
Me.txtUmrechnungskurs._numbersOnly = True
Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
Me.txtUmrechnungskurs._Prozent = False
Me.txtUmrechnungskurs._ShortDateNew = False
Me.txtUmrechnungskurs._ShortDateOnly = False
Me.txtUmrechnungskurs._TimeOnly = False
Me.txtUmrechnungskurs._TimeOnly_Seconds = False
Me.txtUmrechnungskurs._value = ""
Me.txtUmrechnungskurs._Waehrung = False
Me.txtUmrechnungskurs._WaehrungZeichen = True
Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
Me.txtUmrechnungskurs.MaxLength = 10
Me.txtUmrechnungskurs.MaxLineLength = -1
Me.txtUmrechnungskurs.MaxLines_Warning = ""
Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
Me.txtUmrechnungskurs.TabIndex = 10
'
'txtUSTBetrag
'
Me.txtUSTBetrag._DateTimeOnly = False
Me.txtUSTBetrag._numbersOnly = False
Me.txtUSTBetrag._numbersOnlyKommastellen = ""
Me.txtUSTBetrag._numbersOnlyTrennzeichen = False
Me.txtUSTBetrag._Prozent = False
Me.txtUSTBetrag._ShortDateNew = False
Me.txtUSTBetrag._ShortDateOnly = False
Me.txtUSTBetrag._TimeOnly = False
Me.txtUSTBetrag._TimeOnly_Seconds = False
Me.txtUSTBetrag._value = ""
Me.txtUSTBetrag._Waehrung = False
Me.txtUSTBetrag._WaehrungZeichen = True
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
Me.txtUSTBetrag.MaxLength = 10
Me.txtUSTBetrag.MaxLineLength = -1
Me.txtUSTBetrag.MaxLines_Warning = ""
Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
Me.txtUSTBetrag.Name = "txtUSTBetrag"
Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
Me.txtUSTBetrag.TabIndex = 9
'
'Panel1
'
@@ -904,6 +914,26 @@ Partial Class ustCntlUSTV_AntragPosition
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
'
'ustCntlUSTV_AntragPosition
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -922,7 +952,6 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Panel2.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.picSave, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlAdresse.ResumeLayout(False)
Me.pnlAdresse.PerformLayout()
Me.Panel1.ResumeLayout(False)
@@ -986,5 +1015,6 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents Label17 As Label
Friend WithEvents txtLand As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents pnlAdresse As Panel
Friend WithEvents picSave As PictureBox
Friend WithEvents sbLeistender As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents btnLeistenderSave As Button
End Class

156
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -1,4 +1,5 @@
Imports VERAG_PROG_ALLGEMEIN
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports VERAG_PROG_ALLGEMEIN
Public Class ustCntlUSTV_AntragPosition
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -23,7 +24,7 @@ Public Class ustCntlUSTV_AntragPosition
Sub reset()
txtRgDatum._value = ""
txtRgNr._value = ""
picSave.Visible = False
btnLeistenderSave.Visible = False
txtUmrechnungskurs._value = 1
txtLeistungsbezeichnung._value = ""
txtUmrechnungskurs._value = 1
@@ -37,10 +38,10 @@ Public Class ustCntlUSTV_AntragPosition
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
initSchnittstellenNR()
initSchnittstellenNr()
gridAktiv = False
picSave.Visible = False
btnLeistenderSave.Visible = False
Me.Antrag_LandKz = Antrag_LandKz
Me.UStV_POS = UStV_POS
Me.kdnr = kdnr
@@ -56,11 +57,8 @@ Public Class ustCntlUSTV_AntragPosition
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
If UStV_Leitender IsNot Nothing Then
UStV_Leist = UStV_Leitender
loadChangedDSToPanel(Not UStV_Leitender.UstV_Leistender_Adresse, UStV_Leitender)
End If
sbLeistender.Text = UStV_Leitender.UStV_Leistender
loadChangedDSToPanel(UStV_Leitender, True)
Dim da_id = -1
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
@@ -75,7 +73,7 @@ Public Class ustCntlUSTV_AntragPosition
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
sbLeistender.initSearchBox(Me.FindForm, "[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, "UstV_aktiv = 1", "UStV_Leistender", "UStV_Leistender", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender"})
gridAktiv = True
End Sub
@@ -114,8 +112,12 @@ Public Class ustCntlUSTV_AntragPosition
Else
save = False
End If
If txtUmrechnungskurs._value <> "" Then
If txtUmrechnungskurs.Text <> "" And txtUmrechnungskurs._value <> "" Then
If txtUmrechnungskurs.Text <> "" Then
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
ElseIf txtUmrechnungskurs._value <> "" Then
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
End If
Else
save = False
End If
@@ -125,6 +127,8 @@ Public Class ustCntlUSTV_AntragPosition
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
End Sub
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -165,8 +169,8 @@ Public Class ustCntlUSTV_AntragPosition
'End If
If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
values_changed()
'UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
'values_changed()
Else
txtChanged = True
@@ -178,7 +182,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
@@ -199,12 +203,21 @@ Public Class ustCntlUSTV_AntragPosition
' 'values_changed()
'End If
ElseIf sender Is sbLeistender Then
If e.KeyValue = 9 Then
e.SuppressKeyPress = True
If UStV_Leist.hasEntry Then
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
values_changed()
'UStV_POS.SAVE()
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
End If
End If
If e.KeyValue = 9 Then
End If
If e.KeyValue = 9 Then 'SHIFT
e.SuppressKeyPress = True
If txtChanged Then
values_changed()
@@ -216,6 +229,8 @@ Public Class ustCntlUSTV_AntragPosition
End If
End Sub
@@ -227,16 +242,23 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub loadChangedDSToPanel(enablePanel As Boolean, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
'cboLeistungsgeber._value = If(UStV_Leitender.UStV_Leistender, "")
txtStrasse.Text = If(UStV_Leitender.UstV_Leistender_Strasse, "")
txtStrassenNr.Text = If(UStV_Leitender.UstV_Leistender_StrasseNr, "")
txtPLZ.Text = If(UStV_Leitender.UstV_Leistender_PLZ, "")
txtOrt.Text = If(UStV_Leitender.UstV_Leistender_Stadt, "")
txtLand.Text = If(UStV_Leitender.UstV_Leistender_Land, "")
txtUIDNr.Text = If(UStV_Leitender.UstV_Leistender_UstNr, "")
Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
UStV_Leist = UStV_Leitender
'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
txtStrasse.Text = If(UStV_Leist.UstV_Leistender_Strasse, "")
txtStrassenNr.Text = If(UStV_Leist.UstV_Leistender_StrasseNr, "")
txtPLZ.Text = If(UStV_Leist.UstV_Leistender_PLZ, "")
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
btnLeistenderSave.Visible = True
If Not initial Then
'Listener für Änderungen im Detail-Panel
For Each c As Control In pnlAdresse.Controls
If TypeOf (c) Is TextBox Then
@@ -246,28 +268,60 @@ Public Class ustCntlUSTV_AntragPosition
AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
End If
Next
Else
btnLeistenderSave.Visible = False
End If
End Sub
Private Sub SomethingChanged(sender As Object, e As EventArgs)
picSave.Visible = True
btnLeistenderSave.Visible = True
End Sub
Private Sub picSave_Click(sender As Object, e As EventArgs) Handles picSave.Click
If UStV_Leist Is Nothing Then Exit Sub
Private Sub picSave_Click(sender As Object, e As EventArgs) Handles btnLeistenderSave.Click
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
MsgBox("keine Berechtigung!")
Exit Sub
End If
If UStV_Leist.UstV_Leistender_Adresse Then
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
Exit Sub
Dim leistNew = sbLeistender.Text
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
If Not UStV_Leist.hasEntry Then
If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
If UStV_Leist.SAVE() Then
btnLeistenderSave.Visible = False
UStV_POS.UStVPo_Leistender = UStV_Leist
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
values_changed()
End If
End If
Else
Dim adresseChanged As Boolean = False
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
If UStV_Leist.UstV_Leistender_StrasseNr <> If(txtStrassenNr.Text, "") Then adresseChanged = True
If UStV_Leist.UstV_Leistender_PLZ <> If(txtPLZ.Text, "") Then adresseChanged = True
If UStV_Leist.UstV_Leistender_Stadt <> If(txtOrt.Text, "") Then adresseChanged = True
If UStV_Leist.UstV_Leistender_Land <> If(txtLand.Text, "") Then adresseChanged = True
If UStV_Leist.UstV_Leistender_UstNr <> If(txtUIDNr.Text, "") Then adresseChanged = True
UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
@@ -275,10 +329,28 @@ Public Class ustCntlUSTV_AntragPosition
UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
UStV_Leist.UstV_Leistender_Adresse = True
If UStV_Leist.SAVE() Then
picSave.Visible = False
RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
If UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
btnLeistenderSave.Visible = False
UStV_POS.UStVPo_Leistender = UStV_Leist
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
values_changed()
Exit Sub
End If
End If
If UStV_Leist.SAVE() Then
btnLeistenderSave.Visible = False
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
values_changed()
End If
End If
End Sub
@@ -293,7 +365,7 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub initSchnittstellenNR()
Private Sub initSchnittstellenNr()
If cboSchnittstellennr.Items.Count = 0 Then
@@ -312,5 +384,15 @@ Public Class ustCntlUSTV_AntragPosition
End Sub
Private Sub sbLeistender_VALUE_CHANGED() Handles sbLeistender.VALUE_CHANGED
If sbLeistender._value IsNot Nothing AndAlso sbLeistender._value <> "" Then
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender._value)
loadChangedDSToPanel(UStV_Leist)
End If
End Sub
End Class

185
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -45,6 +45,7 @@ Partial Class frmKundenblatt
Me.txtInfotext = New System.Windows.Forms.Label()
Me.tbFirmendaten = New System.Windows.Forms.TabPage()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
@@ -128,8 +129,10 @@ Partial Class frmKundenblatt
Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
Me.tbSDLKarten = New System.Windows.Forms.TabPage()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.tbLKW = New System.Windows.Forms.TabPage()
Me.pnlLKWRight = New System.Windows.Forms.Panel()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.pnlLKW = New System.Windows.Forms.Panel()
Me.dgvLKW = New System.Windows.Forms.DataGridView()
Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -159,7 +162,9 @@ Partial Class frmKundenblatt
Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbUSTV = New System.Windows.Forms.TabPage()
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -170,6 +175,7 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -195,12 +201,6 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -277,7 +277,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 1067)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1067)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -287,9 +287,19 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1624, 1061)
Me.Panel4.Size = New System.Drawing.Size(1638, 1061)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1061)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
'
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -346,7 +356,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1084)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1067)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -456,7 +466,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 485)
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 468)
Me.dgvOffenePosten.TabIndex = 175
'
'btnOP
@@ -796,7 +806,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1040)
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1023)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -850,7 +860,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1630, 1067)
Me.tbZoll.Size = New System.Drawing.Size(1644, 1067)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -862,7 +872,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 1061)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1061)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -870,7 +880,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 1035)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1035)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -912,7 +922,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1630, 1052)
Me.tbSDL.Size = New System.Drawing.Size(1630, 1035)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -954,7 +964,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 856)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 839)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -1059,7 +1069,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 906)
Me.Panel5.Location = New System.Drawing.Point(3, 889)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1624, 143)
Me.Panel5.TabIndex = 177
@@ -1442,11 +1452,21 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1052)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
Me.usrcntlKarten.TabIndex = 0
'
'tbLKW
'
Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1454,7 +1474,7 @@ Partial Class frmKundenblatt
Me.tbLKW.Location = New System.Drawing.Point(4, 22)
Me.tbLKW.Name = "tbLKW"
Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
Me.tbLKW.Size = New System.Drawing.Size(1630, 1052)
Me.tbLKW.Size = New System.Drawing.Size(178, 39)
Me.tbLKW.TabIndex = 4
Me.tbLKW.Text = "LKWs"
Me.tbLKW.UseVisualStyleBackColor = True
@@ -1466,9 +1486,22 @@ Partial Class frmKundenblatt
Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
Me.pnlLKWRight.Name = "pnlLKWRight"
Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1046)
Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
Me.pnlLKWRight.TabIndex = 2
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
Me.UsrCntlLKW1.TabIndex = 0
'
'pnlLKW
'
Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1477,7 +1510,7 @@ Partial Class frmKundenblatt
Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
Me.pnlLKW.Name = "pnlLKW"
Me.pnlLKW.Size = New System.Drawing.Size(306, 1046)
Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
Me.pnlLKW.TabIndex = 3
'
'dgvLKW
@@ -1518,7 +1551,7 @@ Partial Class frmKundenblatt
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 872)
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
Me.dgvLKW.TabIndex = 2
'
'pnlLKWBottom
@@ -1530,7 +1563,7 @@ Partial Class frmKundenblatt
Me.pnlLKWBottom.Controls.Add(Me.Button13)
Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 934)
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
Me.pnlLKWBottom.Name = "pnlLKWBottom"
Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
Me.pnlLKWBottom.TabIndex = 3
@@ -1671,7 +1704,7 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
Me.tbVERAGCard.Name = "tbVERAGCard"
Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1052)
Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
Me.tbVERAGCard.TabIndex = 6
Me.tbVERAGCard.Text = "VERAG Card"
Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1683,7 +1716,7 @@ Partial Class frmKundenblatt
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(1624, 1046)
Me.Panel3.Size = New System.Drawing.Size(172, 33)
Me.Panel3.TabIndex = 0
'
'tbDokumente
@@ -1701,7 +1734,7 @@ Partial Class frmKundenblatt
Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbDokumente.Name = "tbDokumente"
Me.tbDokumente.Size = New System.Drawing.Size(1630, 1052)
Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
Me.tbDokumente.TabIndex = 8
Me.tbDokumente.Text = "Dokumente"
Me.tbDokumente.UseVisualStyleBackColor = True
@@ -1899,28 +1932,47 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1052)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
'
'tbFremdrechnungen
'
Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
Me.tbFremdrechnungen.TabIndex = 10
Me.tbFremdrechnungen.Text = "Fremdrechnungen"
Me.tbFremdrechnungen.UseVisualStyleBackColor = True
'
'tbOfferte
'
Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1)
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1630, 1067)
Me.tbOfferte.Size = New System.Drawing.Size(1644, 1067)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1067)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
'
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1630, 1067)
Me.tbUSTV.Size = New System.Drawing.Size(1644, 1067)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1934,7 +1986,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 1067)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1067)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -1947,7 +1999,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 1041)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1041)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2045,11 +2097,19 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 1041)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
'
Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2192,6 +2252,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
@@ -2325,66 +2386,6 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'tbFremdrechnungen
'
Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1035)
Me.tbFremdrechnungen.TabIndex = 10
Me.tbFremdrechnungen.Text = "Fremdrechnungen"
Me.tbFremdrechnungen.UseVisualStyleBackColor = True
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1061)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1046)
Me.usrcntlKarten.TabIndex = 0
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.TabIndex = 0
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 1067)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 1035)
Me.UsrCntlUSTV.TabIndex = 0
'
'frmKundenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

2
SDL/kunden/frmKundenblatt.vb
View File

@@ -2017,5 +2017,7 @@ Public Class frmKundenblatt
Dim f As New frmGoMautBoxen_Bestellung(KUNDE, ADRESSE, KUNDE_ERW)
f.ShowDialog()
End Sub
End Class

5127
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

55
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1,13 +1,4 @@
Imports System.ComponentModel
Imports System.Windows.Documents
Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.tools.javac
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports java.rmi.server
Imports org.apache.commons.lang3.exception
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlKundeBearbeitenFull
Public Class usrcntlKundeBearbeitenFull
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
@@ -65,7 +56,9 @@ Public Class usrcntlKundeBearbeitenFull
FISKAL = New cFiskal_Daten(kdnr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
isVerag360 = _isVerag360
If Not isVerag360 Then isVerag360 = _isVerag360
pnlverag360.Visible = isVerag360
bankverbindungBearbeiten = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Bankverbindung_bearbeiten", "SDL")
@@ -76,15 +69,6 @@ Public Class usrcntlKundeBearbeitenFull
cbxFiBuLG.Visible = True
End Select
'txtEORI.Visible = Not isVerag360
'txtEORINL.Visible = Not isVerag360
'lblEORI.Visible = Not isVerag360
'txtHandelsregisterNr.Visible = isVerag360
'lblHandelregisterNr.Visible = isVerag360
If ADRESSE.AdressenNr <= 0 Then
KUNDE_ERW.kde_BesonderheitenNeu = 1
@@ -111,6 +95,9 @@ Public Class usrcntlKundeBearbeitenFull
btnKKhinzufuegen.Enabled = isVerag360
Button9.Enabled = isVerag360
cbxkeineMWSt.Visible = isVerag360
cbxVorauszahlung.Visible = isVerag360
cbxAbf_Vorkasse.Visible = Not isVerag360
usrCntlAufschubkonten.initMe(kdnr)
@@ -214,7 +201,8 @@ Public Class usrcntlKundeBearbeitenFull
cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
txtGruendungsDatum.Text = loadValue(KUNDE_ERW.kde_GruendungsDatum, "")
txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
txtEORI.Text = If(KUNDE.EORITIN, "")
txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
@@ -251,6 +239,18 @@ Public Class usrcntlKundeBearbeitenFull
End Select
' ----- MWST-Abrechnnung -----
rbJ.Checked = False
rbHJ.Checked = False
rbQ.Checked = False
Select Case KUNDE_ERW.kde_MWStAbrechnung
Case "Q" : rbQ.Checked = True
Case "H" : rbHJ.Checked = True
Case "J" : rbJ.Checked = True
End Select
' ----- Versicherung -----
txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
txtVers_Versicherungssumme._value = loadValue(KUNDE.Versicherungssumme, "")
@@ -617,6 +617,8 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital._value)
KUNDE_ERW.kde_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
KUNDE_ERW.kde_VZ = cbxVorauszahlung.Checked
KUNDE_ERW.kde_AnmerkungVZ = txtVorauszahlung.Text
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
@@ -650,6 +652,14 @@ Public Class usrcntlKundeBearbeitenFull
If RadioButton7.Checked = True Then KUNDE.Avis = 3
' ----- MWST-Abrechnung -----
KUNDE_ERW.kde_MWStAbrechnung = "Q"
If rbJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "J"
If rbHJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "H"
If rbQ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "Q"
' ----- Versicherung -----
KUNDE.Referenznummer = isLeerNothing(txtVers_HermesRefNr.Text)
'MsgBox(txtVers_Versicherungssumme._value)
@@ -840,6 +850,9 @@ Public Class usrcntlKundeBearbeitenFull
End If
End If
initBesonderheitenNEU()
pnlverag360.Visible = isVerag360
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try

13
SDL/mdm/frmDatumsabfrage.vb
View File

@@ -2,6 +2,7 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class frmDatumsabfrage
Dim onlypastDate As Boolean = True
Sub New()
@@ -9,11 +10,21 @@ Public Class frmDatumsabfrage
InitializeComponent()
End Sub
Sub New(title As String, _onlypastDate As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
onlypastDate = _onlypastDate
lbl.Text = title
End Sub
Public Datum As Date = CDate(Now.ToShortDateString)
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Label1.Text = ""
If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
If onlypastDate And CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
Label1.Text = "Muss heute oder früher sein!"
Me.DialogResult = DialogResult.None
Exit Sub

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

@@ -21,9 +21,11 @@ Public Class cUStVLeistender
Me.UStV_Leistender = UStV_Leistender
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Leistender", UStV_Leistender,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Leistender", UStV_Leistender))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_PLZ", UstV_Leistender_PLZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Strasse", UstV_Leistender_Strasse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Stadt", UstV_Leistender_Stadt))
@@ -40,10 +42,19 @@ Public Class cUStVLeistender
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
" BEGIN " & getUpdateCmd() & " END " & " commit tran "
'" Else " &
'" BEGIN " & getInsertCmd() & " END " &
'" commit tran "
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = getInsertCmd()
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function

6
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -88,6 +88,9 @@ Public Class cKundenErweitert
Property kde_WechselBlanko As Boolean = False
Property kde_UStV_SummeVorschaubetragEUR_PLOSE As Object = Nothing
Property kde_keineMWSt As Boolean = False
Property kde_MWStAbrechnung As Object = Nothing
Property kde_AnmerkungVZ As Object = Nothing
Property kde_VZ As Boolean = False
Dim SQL As New SQL
@@ -178,6 +181,9 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBlanko", kde_WechselBlanko))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UStV_SummeVorschaubetragEUR_PLOSE", kde_UStV_SummeVorschaubetragEUR_PLOSE))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_keineMWSt", kde_keineMWSt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_MWStAbrechnung", kde_MWStAbrechnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungVZ", kde_AnmerkungVZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VZ", kde_VZ))
Return list
End Function

3
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -718,6 +718,9 @@
<EmbeddedResource Include="Benutzerdefinierte Steuerelemente\HTMLTextBox.resx">
<DependentUpon>HTMLTextBox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Benutzerdefinierte Steuerelemente\MySearchBox.resx">
<DependentUpon>MySearchBox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Benutzerdefinierte Steuerelemente\RichTextBoxEx.resx">
<DependentUpon>RichTextBoxEx.vb</DependentUpon>
</EmbeddedResource>