KundeBeab, Seriendruck, cKundenErw.
This commit is contained in:
@@ -57,6 +57,7 @@ Public Class frmdynMailvorlagen
|
|||||||
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2"))
|
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2"))
|
||||||
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OP-Liste", "3"))
|
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OP-Liste", "3"))
|
||||||
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM-SR", "4"))
|
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM-SR", "4"))
|
||||||
|
cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erstattungsschreiben", "5"))
|
||||||
cbxTyp.changeItem("")
|
cbxTyp.changeItem("")
|
||||||
|
|
||||||
|
|
||||||
@@ -430,6 +431,11 @@ Public Class frmdynMailvorlagen
|
|||||||
Case 1
|
Case 1
|
||||||
'Sendungsvariable
|
'Sendungsvariable
|
||||||
txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %FilialenNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
|
txtVariablen.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %FilialenNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
|
||||||
|
|
||||||
|
Case 5
|
||||||
|
'Erstattungsschreiben
|
||||||
|
txtVariablen.Text = "%BelegNr%, %Belegdatum%, %Betrag%, %Name%, %AbfertigungsNr%, %FilialenNr%, %Name%, %MWST%"
|
||||||
|
|
||||||
Case Else
|
Case Else
|
||||||
'Mahnvariable
|
'Mahnvariable
|
||||||
txtVariablen.Text = " %Mahntext%, %KdNr%, %email_mahnung%"
|
txtVariablen.Text = " %Mahntext%, %KdNr%, %email_mahnung%"
|
||||||
|
|||||||
364
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
364
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -23,31 +23,31 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
<System.Diagnostics.DebuggerStepThrough()>
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Me.components = New System.ComponentModel.Container()
|
Me.components = New System.ComponentModel.Container()
|
||||||
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
|
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
|
||||||
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
|
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
|
||||||
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
|
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
|
||||||
@@ -104,7 +104,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||||
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
|
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
|
||||||
Me.pnlverag360 = New System.Windows.Forms.Panel()
|
Me.pnlverag360 = New System.Windows.Forms.Panel()
|
||||||
|
Me.Label111 = New System.Windows.Forms.Label()
|
||||||
Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtFR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.cbxErstattungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.cbxFR = New System.Windows.Forms.CheckBox()
|
Me.cbxFR = New System.Windows.Forms.CheckBox()
|
||||||
Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.gbMWSTAntraege = New System.Windows.Forms.GroupBox()
|
Me.gbMWSTAntraege = New System.Windows.Forms.GroupBox()
|
||||||
@@ -1191,7 +1193,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'
|
'
|
||||||
'pnlverag360
|
'pnlverag360
|
||||||
'
|
'
|
||||||
|
Me.pnlverag360.Controls.Add(Me.Label111)
|
||||||
Me.pnlverag360.Controls.Add(Me.txtFR)
|
Me.pnlverag360.Controls.Add(Me.txtFR)
|
||||||
|
Me.pnlverag360.Controls.Add(Me.cbxErstattungsart)
|
||||||
Me.pnlverag360.Controls.Add(Me.cbxFR)
|
Me.pnlverag360.Controls.Add(Me.cbxFR)
|
||||||
Me.pnlverag360.Controls.Add(Me.txtAnmerkungAntraege)
|
Me.pnlverag360.Controls.Add(Me.txtAnmerkungAntraege)
|
||||||
Me.pnlverag360.Controls.Add(Me.gbMWSTAntraege)
|
Me.pnlverag360.Controls.Add(Me.gbMWSTAntraege)
|
||||||
@@ -1199,9 +1203,19 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.pnlverag360.Controls.Add(Me.cbxVorauszahlung)
|
Me.pnlverag360.Controls.Add(Me.cbxVorauszahlung)
|
||||||
Me.pnlverag360.Location = New System.Drawing.Point(417, 247)
|
Me.pnlverag360.Location = New System.Drawing.Point(417, 247)
|
||||||
Me.pnlverag360.Name = "pnlverag360"
|
Me.pnlverag360.Name = "pnlverag360"
|
||||||
Me.pnlverag360.Size = New System.Drawing.Size(252, 169)
|
Me.pnlverag360.Size = New System.Drawing.Size(252, 204)
|
||||||
Me.pnlverag360.TabIndex = 49
|
Me.pnlverag360.TabIndex = 49
|
||||||
'
|
'
|
||||||
|
'Label111
|
||||||
|
'
|
||||||
|
Me.Label111.AutoSize = True
|
||||||
|
Me.Label111.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label111.Location = New System.Drawing.Point(10, 175)
|
||||||
|
Me.Label111.Name = "Label111"
|
||||||
|
Me.Label111.Size = New System.Drawing.Size(75, 13)
|
||||||
|
Me.Label111.TabIndex = 50
|
||||||
|
Me.Label111.Text = "Erstattungsart:"
|
||||||
|
'
|
||||||
'txtFR
|
'txtFR
|
||||||
'
|
'
|
||||||
Me.txtFR._DateTimeOnly = False
|
Me.txtFR._DateTimeOnly = False
|
||||||
@@ -1226,6 +1240,22 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.txtFR.Size = New System.Drawing.Size(123, 20)
|
Me.txtFR.Size = New System.Drawing.Size(123, 20)
|
||||||
Me.txtFR.TabIndex = 51
|
Me.txtFR.TabIndex = 51
|
||||||
'
|
'
|
||||||
|
'cbxErstattungsart
|
||||||
|
'
|
||||||
|
Me.cbxErstattungsart._allowedValuesFreiText = Nothing
|
||||||
|
Me.cbxErstattungsart._allowFreiText = False
|
||||||
|
Me.cbxErstattungsart._value = ""
|
||||||
|
Me.cbxErstattungsart.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||||
|
Me.cbxErstattungsart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.cbxErstattungsart.DropDownWidth = 200
|
||||||
|
Me.cbxErstattungsart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.cbxErstattungsart.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.cbxErstattungsart.FormattingEnabled = True
|
||||||
|
Me.cbxErstattungsart.Location = New System.Drawing.Point(110, 172)
|
||||||
|
Me.cbxErstattungsart.Name = "cbxErstattungsart"
|
||||||
|
Me.cbxErstattungsart.Size = New System.Drawing.Size(123, 21)
|
||||||
|
Me.cbxErstattungsart.TabIndex = 51
|
||||||
|
'
|
||||||
'cbxFR
|
'cbxFR
|
||||||
'
|
'
|
||||||
Me.cbxFR.AutoSize = True
|
Me.cbxFR.AutoSize = True
|
||||||
@@ -3066,8 +3096,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
|
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
||||||
@@ -3166,8 +3196,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||||
Me.dgvOffenePosten.AllowUserToOrderColumns = True
|
Me.dgvOffenePosten.AllowUserToOrderColumns = True
|
||||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
|
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
||||||
@@ -3328,41 +3358,41 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Me.dgvKreditkarten.AllowUserToDeleteRows = False
|
Me.dgvKreditkarten.AllowUserToDeleteRows = False
|
||||||
Me.dgvKreditkarten.AllowUserToOrderColumns = True
|
Me.dgvKreditkarten.AllowUserToOrderColumns = True
|
||||||
Me.dgvKreditkarten.AllowUserToResizeRows = False
|
Me.dgvKreditkarten.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34
|
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||||
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
|
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle35
|
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||||
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle36
|
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
|
||||||
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
||||||
Me.dgvKreditkarten.MultiSelect = False
|
Me.dgvKreditkarten.MultiSelect = False
|
||||||
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
||||||
Me.dgvKreditkarten.ReadOnly = True
|
Me.dgvKreditkarten.ReadOnly = True
|
||||||
DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle37
|
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||||
Me.dgvKreditkarten.RowHeadersVisible = False
|
Me.dgvKreditkarten.RowHeadersVisible = False
|
||||||
DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle38
|
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
|
||||||
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||||
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
|
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
|
||||||
@@ -3442,26 +3472,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'
|
'
|
||||||
'dgvMWST
|
'dgvMWST
|
||||||
'
|
'
|
||||||
DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
|
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||||
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
|
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
|
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||||
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle41
|
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
|
||||||
Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
|
Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
|
||||||
Me.dgvMWST.Name = "dgvMWST"
|
Me.dgvMWST.Name = "dgvMWST"
|
||||||
Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
|
Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
|
||||||
@@ -3546,26 +3576,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'
|
'
|
||||||
'dgvUstv_LaenderUndSteuernummern
|
'dgvUstv_LaenderUndSteuernummern
|
||||||
'
|
'
|
||||||
DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
|
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
|
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle44
|
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
|
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
|
||||||
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
|
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
|
||||||
@@ -3771,26 +3801,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'dgvIDS_Rabatte
|
'dgvIDS_Rabatte
|
||||||
'
|
'
|
||||||
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
|
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
|
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||||
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
|
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
|
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||||
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle28
|
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16
|
||||||
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
|
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
|
||||||
Me.dgvIDS_Rabatte.MultiSelect = False
|
Me.dgvIDS_Rabatte.MultiSelect = False
|
||||||
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
|
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
|
||||||
@@ -3929,26 +3959,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'dgvSonst_IDSKunden
|
'dgvSonst_IDSKunden
|
||||||
'
|
'
|
||||||
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
|
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||||
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
|
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||||
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle31
|
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19
|
||||||
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
|
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
|
||||||
Me.dgvSonst_IDSKunden.MultiSelect = False
|
Me.dgvSonst_IDSKunden.MultiSelect = False
|
||||||
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
|
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
|
||||||
@@ -4259,26 +4289,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'DataGridView1
|
'DataGridView1
|
||||||
'
|
'
|
||||||
Me.DataGridView1.AllowUserToResizeRows = False
|
Me.DataGridView1.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
|
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
|
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle47
|
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22
|
||||||
Me.DataGridView1.Enabled = False
|
Me.DataGridView1.Enabled = False
|
||||||
Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
|
Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
|
||||||
Me.DataGridView1.MultiSelect = False
|
Me.DataGridView1.MultiSelect = False
|
||||||
@@ -4332,26 +4362,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
'
|
'
|
||||||
Me.dgvBankverbindungen.AllowUserToDeleteRows = False
|
Me.dgvBankverbindungen.AllowUserToDeleteRows = False
|
||||||
Me.dgvBankverbindungen.AllowUserToResizeRows = False
|
Me.dgvBankverbindungen.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
|
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
|
||||||
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
|
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
|
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||||
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle50
|
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25
|
||||||
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
|
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
|
||||||
Me.dgvBankverbindungen.MultiSelect = False
|
Me.dgvBankverbindungen.MultiSelect = False
|
||||||
Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
|
Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
|
||||||
@@ -5935,4 +5965,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
|||||||
Friend WithEvents lblIDS_Rabatte As Label
|
Friend WithEvents lblIDS_Rabatte As Label
|
||||||
Friend WithEvents Label113 As Label
|
Friend WithEvents Label113 As Label
|
||||||
Friend WithEvents Label112 As Label
|
Friend WithEvents Label112 As Label
|
||||||
|
Friend WithEvents Label111 As Label
|
||||||
|
Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -91,6 +91,14 @@
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If isVerag360 Then
|
||||||
|
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", 0))
|
||||||
|
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1.Gegenrechnen", 1))
|
||||||
|
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2.Überweisung", 2))
|
||||||
|
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3.Bankverbindung", 3))
|
||||||
|
cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4.Auf Sicherheit", 4))
|
||||||
|
End If
|
||||||
|
|
||||||
bntGOBOXUmstellung.Enabled = isVerag360
|
bntGOBOXUmstellung.Enabled = isVerag360
|
||||||
btnKKhinzufuegen.Enabled = isVerag360
|
btnKKhinzufuegen.Enabled = isVerag360
|
||||||
Button9.Enabled = isVerag360
|
Button9.Enabled = isVerag360
|
||||||
@@ -253,6 +261,7 @@
|
|||||||
Case "J" : rbJ.Checked = True
|
Case "J" : rbJ.Checked = True
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
|
cbxErstattungsart.changeItem(loadValue(KUNDE_ERW.kde_Erstattungsart, ""))
|
||||||
|
|
||||||
' ----- Versicherung -----
|
' ----- Versicherung -----
|
||||||
txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
|
txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
|
||||||
@@ -424,7 +433,6 @@
|
|||||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 303000-303999: DE - KUNDEN", "303000-303999"))
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 303000-303999: DE - KUNDEN", "303000-303999"))
|
||||||
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 400000-499999: YU - KUNDEN", "400000-499999"))
|
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 400000-499999: YU - KUNDEN", "400000-499999"))
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
||||||
@@ -665,6 +673,7 @@
|
|||||||
If rbHJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "H"
|
If rbHJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "H"
|
||||||
If rbQ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "Q"
|
If rbQ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "Q"
|
||||||
|
|
||||||
|
KUNDE_ERW.kde_Erstattungsart = cbxErstattungsart._value
|
||||||
|
|
||||||
' ----- Versicherung -----
|
' ----- Versicherung -----
|
||||||
KUNDE.Referenznummer = isLeerNothing(txtVers_HermesRefNr.Text)
|
KUNDE.Referenznummer = isLeerNothing(txtVers_HermesRefNr.Text)
|
||||||
|
|||||||
169
SDL/seriendruck/usrCntlSeriendruck.Designer.vb
generated
169
SDL/seriendruck/usrCntlSeriendruck.Designer.vb
generated
@@ -37,8 +37,18 @@ Partial Class usrCntlSeriendruck
|
|||||||
Me.cbxErstSprache = New System.Windows.Forms.ComboBox()
|
Me.cbxErstSprache = New System.Windows.Forms.ComboBox()
|
||||||
Me.btnWord = New System.Windows.Forms.Button()
|
Me.btnWord = New System.Windows.Forms.Button()
|
||||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
Me.Button2 = New System.Windows.Forms.Button()
|
|
||||||
Me.Label3 = New System.Windows.Forms.Label()
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label9 = New System.Windows.Forms.Label()
|
||||||
|
Me.datBis = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label10 = New System.Windows.Forms.Label()
|
||||||
|
Me.datVon = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.btnMail_Intern = New System.Windows.Forms.Button()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.txtFiliale = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
|
Me.cboErstattungsart = New System.Windows.Forms.ComboBox()
|
||||||
Me.GroupBox1.SuspendLayout()
|
Me.GroupBox1.SuspendLayout()
|
||||||
Me.GroupBox2.SuspendLayout()
|
Me.GroupBox2.SuspendLayout()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
@@ -239,24 +249,21 @@ Partial Class usrCntlSeriendruck
|
|||||||
'
|
'
|
||||||
'GroupBox2
|
'GroupBox2
|
||||||
'
|
'
|
||||||
Me.GroupBox2.Controls.Add(Me.Button2)
|
Me.GroupBox2.Controls.Add(Me.cboErstattungsart)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.Label6)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.Label5)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.txtFiliale)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.Button1)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.btnMail_Intern)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.Label9)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.datBis)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.Label10)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.datVon)
|
||||||
Me.GroupBox2.Location = New System.Drawing.Point(14, 240)
|
Me.GroupBox2.Location = New System.Drawing.Point(14, 240)
|
||||||
Me.GroupBox2.Name = "GroupBox2"
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
Me.GroupBox2.Size = New System.Drawing.Size(646, 182)
|
Me.GroupBox2.Size = New System.Drawing.Size(646, 182)
|
||||||
Me.GroupBox2.TabIndex = 1
|
Me.GroupBox2.TabIndex = 1
|
||||||
Me.GroupBox2.TabStop = False
|
Me.GroupBox2.TabStop = False
|
||||||
Me.GroupBox2.Text = "GroupBox2"
|
|
||||||
Me.GroupBox2.Visible = False
|
|
||||||
'
|
|
||||||
'Button2
|
|
||||||
'
|
|
||||||
Me.Button2.Enabled = False
|
|
||||||
Me.Button2.Location = New System.Drawing.Point(519, 147)
|
|
||||||
Me.Button2.Name = "Button2"
|
|
||||||
Me.Button2.Size = New System.Drawing.Size(121, 23)
|
|
||||||
Me.Button2.TabIndex = 0
|
|
||||||
Me.Button2.Text = "Button2"
|
|
||||||
Me.Button2.UseVisualStyleBackColor = True
|
|
||||||
'
|
'
|
||||||
'Label3
|
'Label3
|
||||||
'
|
'
|
||||||
@@ -269,11 +276,132 @@ Partial Class usrCntlSeriendruck
|
|||||||
Me.Label3.TabIndex = 2
|
Me.Label3.TabIndex = 2
|
||||||
Me.Label3.Text = "Gutschrift - Erstattungsschreiben"
|
Me.Label3.Text = "Gutschrift - Erstattungsschreiben"
|
||||||
'
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(11, 220)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(283, 17)
|
||||||
|
Me.Label4.TabIndex = 3
|
||||||
|
Me.Label4.Text = "Gutschrift - Erstattungsschreiben Mail"
|
||||||
|
'
|
||||||
|
'Label9
|
||||||
|
'
|
||||||
|
Me.Label9.AutoSize = True
|
||||||
|
Me.Label9.Location = New System.Drawing.Point(190, 22)
|
||||||
|
Me.Label9.Name = "Label9"
|
||||||
|
Me.Label9.Size = New System.Drawing.Size(23, 13)
|
||||||
|
Me.Label9.TabIndex = 14
|
||||||
|
Me.Label9.Text = "bis:"
|
||||||
|
'
|
||||||
|
'datBis
|
||||||
|
'
|
||||||
|
Me.datBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.datBis.Location = New System.Drawing.Point(219, 19)
|
||||||
|
Me.datBis.Name = "datBis"
|
||||||
|
Me.datBis.Size = New System.Drawing.Size(93, 20)
|
||||||
|
Me.datBis.TabIndex = 13
|
||||||
|
'
|
||||||
|
'Label10
|
||||||
|
'
|
||||||
|
Me.Label10.AutoSize = True
|
||||||
|
Me.Label10.Location = New System.Drawing.Point(13, 22)
|
||||||
|
Me.Label10.Name = "Label10"
|
||||||
|
Me.Label10.Size = New System.Drawing.Size(72, 13)
|
||||||
|
Me.Label10.TabIndex = 12
|
||||||
|
Me.Label10.Text = "Zeitraum von:"
|
||||||
|
'
|
||||||
|
'datVon
|
||||||
|
'
|
||||||
|
Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.datVon.Location = New System.Drawing.Point(91, 19)
|
||||||
|
Me.datVon.Name = "datVon"
|
||||||
|
Me.datVon.Size = New System.Drawing.Size(93, 20)
|
||||||
|
Me.datVon.TabIndex = 11
|
||||||
|
'
|
||||||
|
'btnMail_Intern
|
||||||
|
'
|
||||||
|
Me.btnMail_Intern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
|
||||||
|
Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnMail_Intern.Location = New System.Drawing.Point(519, 61)
|
||||||
|
Me.btnMail_Intern.Name = "btnMail_Intern"
|
||||||
|
Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
|
||||||
|
Me.btnMail_Intern.TabIndex = 49
|
||||||
|
Me.btnMail_Intern.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(519, 17)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(121, 23)
|
||||||
|
Me.Button1.TabIndex = 11
|
||||||
|
Me.Button1.Text = "Datensatz anzeigen"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'txtFiliale
|
||||||
|
'
|
||||||
|
Me.txtFiliale._DateTimeOnly = False
|
||||||
|
Me.txtFiliale._numbersOnly = True
|
||||||
|
Me.txtFiliale._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtFiliale._numbersOnlyTrennzeichen = False
|
||||||
|
Me.txtFiliale._Prozent = False
|
||||||
|
Me.txtFiliale._ShortDateNew = False
|
||||||
|
Me.txtFiliale._ShortDateOnly = False
|
||||||
|
Me.txtFiliale._TimeOnly = False
|
||||||
|
Me.txtFiliale._TimeOnly_Seconds = False
|
||||||
|
Me.txtFiliale._value = ""
|
||||||
|
Me.txtFiliale._Waehrung = False
|
||||||
|
Me.txtFiliale._WaehrungZeichen = True
|
||||||
|
Me.txtFiliale.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtFiliale.Location = New System.Drawing.Point(91, 46)
|
||||||
|
Me.txtFiliale.MaxLineLength = -1
|
||||||
|
Me.txtFiliale.MaxLines_Warning = ""
|
||||||
|
Me.txtFiliale.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtFiliale.Name = "txtFiliale"
|
||||||
|
Me.txtFiliale.Size = New System.Drawing.Size(33, 20)
|
||||||
|
Me.txtFiliale.TabIndex = 11
|
||||||
|
Me.txtFiliale.Text = "4817"
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(16, 49)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(36, 13)
|
||||||
|
Me.Label5.TabIndex = 50
|
||||||
|
Me.Label5.Text = "Filiale:"
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.AutoSize = True
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(132, 49)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(75, 13)
|
||||||
|
Me.Label6.TabIndex = 51
|
||||||
|
Me.Label6.Text = "Erstattungsart:"
|
||||||
|
'
|
||||||
|
'cboErstattungsart
|
||||||
|
'
|
||||||
|
Me.cboErstattungsart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.cboErstattungsart.FlatStyle = System.Windows.Forms.FlatStyle.System
|
||||||
|
Me.cboErstattungsart.FormattingEnabled = True
|
||||||
|
Me.cboErstattungsart.Location = New System.Drawing.Point(219, 46)
|
||||||
|
Me.cboErstattungsart.Name = "cboErstattungsart"
|
||||||
|
Me.cboErstattungsart.Size = New System.Drawing.Size(95, 21)
|
||||||
|
Me.cboErstattungsart.TabIndex = 11
|
||||||
|
'
|
||||||
'usrCntlSeriendruck
|
'usrCntlSeriendruck
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
Me.BackColor = System.Drawing.Color.White
|
Me.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Controls.Add(Me.Label4)
|
||||||
Me.Controls.Add(Me.Label3)
|
Me.Controls.Add(Me.Label3)
|
||||||
Me.Controls.Add(Me.GroupBox2)
|
Me.Controls.Add(Me.GroupBox2)
|
||||||
Me.Controls.Add(Me.GroupBox1)
|
Me.Controls.Add(Me.GroupBox1)
|
||||||
@@ -282,6 +410,7 @@ Partial Class usrCntlSeriendruck
|
|||||||
Me.GroupBox1.ResumeLayout(False)
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
Me.GroupBox1.PerformLayout()
|
Me.GroupBox1.PerformLayout()
|
||||||
Me.GroupBox2.ResumeLayout(False)
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
Me.PerformLayout()
|
Me.PerformLayout()
|
||||||
|
|
||||||
@@ -292,7 +421,6 @@ Partial Class usrCntlSeriendruck
|
|||||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||||
Friend WithEvents btnShowData As System.Windows.Forms.Button
|
Friend WithEvents btnShowData As System.Windows.Forms.Button
|
||||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
|
||||||
Friend WithEvents txtErstattungAbfNr As System.Windows.Forms.TextBox
|
Friend WithEvents txtErstattungAbfNr As System.Windows.Forms.TextBox
|
||||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||||
Friend WithEvents btnWordPrint As System.Windows.Forms.Button
|
Friend WithEvents btnWordPrint As System.Windows.Forms.Button
|
||||||
@@ -303,4 +431,15 @@ Partial Class usrCntlSeriendruck
|
|||||||
Friend WithEvents txtErstattungAbfUnterNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtErstattungAbfUnterNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents txtErstattungAbfNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtErstattungAbfNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents txtErstattungAbfNrFiliale_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtErstattungAbfNrFiliale_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents Label9 As Label
|
||||||
|
Friend WithEvents datBis As DateTimePicker
|
||||||
|
Friend WithEvents Label10 As Label
|
||||||
|
Friend WithEvents datVon As DateTimePicker
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents btnMail_Intern As Button
|
||||||
|
Friend WithEvents cboErstattungsart As ComboBox
|
||||||
|
Friend WithEvents Label6 As Label
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents txtFiliale As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -1,6 +1,7 @@
|
|||||||
Imports Microsoft.Office.Interop
|
Imports Microsoft.Office.Interop
|
||||||
Imports VERAG_PROG_ALLGEMEIN
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
|
|
||||||
|
|
||||||
Public Class usrCntlSeriendruck
|
Public Class usrCntlSeriendruck
|
||||||
|
|
||||||
Dim withPrint As Boolean = False
|
Dim withPrint As Boolean = False
|
||||||
@@ -98,7 +99,7 @@ Public Class usrCntlSeriendruck
|
|||||||
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
|
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
Private Sub Button2_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
|
||||||
Dim von As DateTime = Now
|
Dim von As DateTime = Now
|
||||||
@@ -132,8 +133,8 @@ Public Class usrCntlSeriendruck
|
|||||||
|
|
||||||
Dim sqlstr As String = "SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE LandKz='RO' AND StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],StraßePostfach,PLZ ORDER BY PLZ, AdressenNr "
|
Dim sqlstr As String = "SELECT * FROM vwUStSerienbriefStNrGueltigkeitsdatum WHERE LandKz='RO' AND StNrGültigkeitsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' GROUP BY [Name 1],StraßePostfach,PLZ ORDER BY PLZ, AdressenNr "
|
||||||
|
|
||||||
WordDoc.MailMerge.OpenDataSource(Name:="", _
|
WordDoc.MailMerge.OpenDataSource(Name:="",
|
||||||
Connection:="DSN=dbConn_FMZOLL;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
|
Connection:="DSN=dbConn_FMZOLL;DATABASE=VERAG;uid=sa;pwd=BmWr501956;",
|
||||||
SQLStatement:=sqlstr, SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
|
SQLStatement:=sqlstr, SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
|
||||||
|
|
||||||
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
|
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
|
||||||
@@ -198,6 +199,14 @@ Public Class usrCntlSeriendruck
|
|||||||
cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
|
cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
|
||||||
cbxErstSprache.SelectedIndex = 0
|
cbxErstSprache.SelectedIndex = 0
|
||||||
txtErstattungAbfNr_neu.Focus()
|
txtErstattungAbfNr_neu.Focus()
|
||||||
|
|
||||||
|
cboErstattungsart.Items.Clear()
|
||||||
|
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", 0))
|
||||||
|
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1.Gegenrechnen", 1))
|
||||||
|
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2.Überweisung", 2))
|
||||||
|
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3.Bankverbindung", 3))
|
||||||
|
cboErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4.Auf Sicherheit", 4))
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Public Function NurZahlen(ByVal Text As String) As Boolean
|
Public Function NurZahlen(ByVal Text As String) As Boolean
|
||||||
If Text.Length = 0 Then Return False
|
If Text.Length = 0 Then Return False
|
||||||
@@ -217,5 +226,143 @@ Public Class usrCntlSeriendruck
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
|
||||||
|
frmShowData.Show()
|
||||||
|
|
||||||
|
frmShowData.DataGridView1.DataSource = generateDTErstattungen()
|
||||||
|
frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnMail_Intern_Click(sender As Object, e As EventArgs) Handles btnMail_Intern.Click
|
||||||
|
|
||||||
|
If cboErstattungsart.SelectedIndex <> 4 Then
|
||||||
|
MsgBox("Die Erstattungsschreiben sind aktuell nur für den Typ 4 - Auf Sicherheit verfügbar!")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim dt As New DataTable
|
||||||
|
dt = generateDTErstattungen()
|
||||||
|
|
||||||
|
If dt.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
If vbYes = MsgBox("Möchten Sie " & dt.Rows.Count & " Emails für den Versand der Erstattungsinfo für die Erstattungsart " & cboErstattungsart.SelectedText & " erstellen ?", vbYesNoCancel) Then
|
||||||
|
|
||||||
|
Dim listOfTextconserven As New cTextkonserve_LIST(5, "", 19)
|
||||||
|
|
||||||
|
For Each row In dt.Rows
|
||||||
|
|
||||||
|
Dim spracheMail As String = "EN" 'Defaultsprache
|
||||||
|
|
||||||
|
Select Case row.Item("LandKz")
|
||||||
|
Case "HR", "SRB" : spracheMail = "SRB"
|
||||||
|
Case "A", "AT", "D", "DE", "CH" : spracheMail = "DE"
|
||||||
|
Case "RO" : spracheMail = "RO"
|
||||||
|
Case Else
|
||||||
|
spracheMail = "DE"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheMail) Then
|
||||||
|
|
||||||
|
|
||||||
|
Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheMail)
|
||||||
|
If r IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim Mail_Subject = ""
|
||||||
|
Dim Mail_HTMLBody = ""
|
||||||
|
|
||||||
|
Dim Mail_To = ""
|
||||||
|
Dim Mail_CC = ""
|
||||||
|
Dim Mail_BCC = ""
|
||||||
|
|
||||||
|
Mail_Subject = r.txt_betreff
|
||||||
|
Dim TextHTML = ""
|
||||||
|
TextHTML &= r.txt_text
|
||||||
|
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%BelegNr%", row.Item("Belegnummer"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%Belegdatum%", row.Item("Belegdatum"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%Name%", row.Item("Name"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%FilialenNr%", row.Item("FilialenNr"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%MWST%", row.Item("MWST"))
|
||||||
|
Mail_Subject = Mail_Subject.Replace("%Betrag%", row.Item("Betrag"))
|
||||||
|
|
||||||
|
TextHTML = TextHTML.Replace("%BelegNr%", row.Item("Belegnummer"))
|
||||||
|
TextHTML = TextHTML.Replace("%Belegdatum%", row.Item("Belegdatum"))
|
||||||
|
TextHTML = TextHTML.Replace("%Betrag%", row.Item("Betrag"))
|
||||||
|
TextHTML = TextHTML.Replace("%Name%", row.Item("Name"))
|
||||||
|
TextHTML = TextHTML.Replace("%AbfertigungsNr%", row.Item("AbfertigungsNr"))
|
||||||
|
TextHTML = TextHTML.Replace("%MWST%", row.Item("MWST"))
|
||||||
|
TextHTML = TextHTML.Replace("%FilialenNr%", row.Item("FilialenNr"))
|
||||||
|
|
||||||
|
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||||
|
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(row.Item("kdNr"), "Rechnung an")
|
||||||
|
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(row.Item("kdNr"), "Rechnung an")
|
||||||
|
Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(row.Item("kdNr"), "Rechnung an")
|
||||||
|
Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(row.Item("LandKz"), 19)
|
||||||
|
|
||||||
|
|
||||||
|
Dim outl As New Outlook.Application
|
||||||
|
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||||
|
Mail = outl.CreateItem(0)
|
||||||
|
Mail.Subject = Mail_Subject
|
||||||
|
Mail.HTMLBody = Mail_HTMLBody
|
||||||
|
|
||||||
|
Mail.To = Mail_To
|
||||||
|
Mail.CC = Mail_CC
|
||||||
|
Mail.BCC = Mail_BCC
|
||||||
|
|
||||||
|
Try
|
||||||
|
'Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") ',"buchhaltung@verag.ag"
|
||||||
|
Catch ex2 As Exception
|
||||||
|
MsgBox(ex2.Message)
|
||||||
|
End Try
|
||||||
|
Mail.Display()
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Function generateDTErstattungen() As DataTable
|
||||||
|
|
||||||
|
Dim dt As New DataTable
|
||||||
|
|
||||||
|
If txtFiliale.Text = "" Then Return Nothing
|
||||||
|
|
||||||
|
Dim SQLString = "SELECT dbo.tblUStVAntrag.UStVAn_KuNr as kdNr,Rechnungsausgang.RechnungsNr as Belegnummer, cast(Rechnungsausgang.RechnungsDatum as date) as Belegdatum, CONVERT(varchar(512), dbo.tblUStVAntrag.UStVAn_Name) AS Name, CONVERT(varchar(512), ISNULL(dbo.tblUStVAntrag.UStVAn_Straße, '')) AS Straße, CONVERT(varchar(255),
|
||||||
|
dbo.tblUStVAntrag.UStVAn_PLZ + ' ' + dbo.tblUStVAntrag.UStVAn_Ort) AS Ort, CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_LandKz) AS LandKz, CONVERT(varchar(255),
|
||||||
|
dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz + ' ' + SUBSTRING(CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_ReDatVon, 20), 6, 2) + '-' + SUBSTRING(CONVERT(varchar(10),
|
||||||
|
dbo.tblUStVAntrag.UStVAn_ReDatBis, 20), 6, 2) + '/' + SUBSTRING(CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_ReDatBis, 20), 1, 4)) AS MWST, dbo.Rechnungsausgang.AbfertigungsNr,
|
||||||
|
dbo.Rechnungsausgang.FilialenNr, dbo.Rechnungsausgang.UnterNr, ABS(CONVERT(decimal(12, 2),
|
||||||
|
dbo.Rechnungsausgang.SteuerpflichtigerGesamtbetrag + dbo.Rechnungsausgang.SteuerfreierGesamtbetrag)) AS Betrag, ISNULL(dbo.Kunden.KD_Korrespondenz, '')
|
||||||
|
AS KorrAdresse
|
||||||
|
FROM dbo.Rechnungsausgang
|
||||||
|
INNER JOIN dbo.tblUStVAntrag ON dbo.Rechnungsausgang.AbfertigungsNr = dbo.tblUStVAntrag.AbfertigungsNr AND dbo.Rechnungsausgang.FilialenNr = dbo.tblUStVAntrag.FilialenNr
|
||||||
|
INNER JOIN dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblUStVAntrag.UStVAn_LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr
|
||||||
|
INNER JOIN dbo.Kunden ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Kunden.KundenNr
|
||||||
|
INNER JOIN dbo.tblKundenErweitert ON dbo.tblUStVAntrag.UStVAn_KuNr = tblKundenErweitert.kde_KundenNr and ISNULL(tblKundenErweitert.kde_Erstattungsart, 0) = " & cboErstattungsart.SelectedIndex &
|
||||||
|
" WHERE dbo.Rechnungsausgang.Rechnungsdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' AND dbo.Rechnungsausgang.FilialenNr = " & txtFiliale.Text & " AND Rechnungsausgang.RechnungsNr is not null"
|
||||||
|
|
||||||
|
|
||||||
|
dt = (New SQL).loadDgvBySql(SQLString, "FMZOLL")
|
||||||
|
|
||||||
|
If dt.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
Return dt
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -94,6 +94,9 @@ Public Class cKundenErweitert
|
|||||||
Property kde_AnmerkungFR As Object = Nothing
|
Property kde_AnmerkungFR As Object = Nothing
|
||||||
Property kde_FR As Boolean = False
|
Property kde_FR As Boolean = False
|
||||||
Property kde_AnmerkungAntrag As Object = Nothing
|
Property kde_AnmerkungAntrag As Object = Nothing
|
||||||
|
Property kde_Erstattungsart As Object = Nothing
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim SQL As New SQL
|
Dim SQL As New SQL
|
||||||
@@ -190,6 +193,7 @@ Public Class cKundenErweitert
|
|||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungAntrag", kde_AnmerkungAntrag))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungAntrag", kde_AnmerkungAntrag))
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungFR", kde_AnmerkungFR))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungFR", kde_AnmerkungFR))
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FR", kde_FR))
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FR", kde_FR))
|
||||||
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
|
||||||
|
|
||||||
Return list
|
Return list
|
||||||
End Function
|
End Function
|
||||||
|
|||||||
Reference in New Issue
Block a user