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

90
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -218,13 +218,30 @@ 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
End Sub
Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
@@ -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

204
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
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
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,22 +203,33 @@ Public Class ustCntlUSTV_AntragPosition
' 'values_changed()
'End If
End If
If e.KeyValue = 9 Then
ElseIf sender Is sbLeistender Then
If e.KeyValue = 9 Then
e.SuppressKeyPress = True
If txtChanged Then
If UStV_Leist.hasEntry Then
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
values_changed()
txtChanged = False
'UStV_POS.SAVE()
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
End If
End If
End If
If e.KeyValue = 9 Then 'SHIFT
e.SuppressKeyPress = True
If txtChanged Then
values_changed()
txtChanged = False
End If
End If
End If
End Sub
@@ -227,58 +242,115 @@ 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
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
If TypeOf (c) Is MyComboBox Then
AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
End If
Next
Else
btnLeistenderSave.Visible = False
End If
'Listener für Änderungen im Detail-Panel
For Each c As Control In pnlAdresse.Controls
If TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
If TypeOf (c) Is MyComboBox Then
AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
End If
Next
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, "")
UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
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.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
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, "")
UStV_Leist.UstV_Leistender_Adresse = True
If UStV_Leist.SAVE() Then
picSave.Visible = False
RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
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