Mail Erstellen Maske
This commit is contained in:
378
SDL/Fakturierung/frmSendEmail.Designer.vb
generated
Normal file
378
SDL/Fakturierung/frmSendEmail.Designer.vb
generated
Normal file
@@ -0,0 +1,378 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmSendEmail
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendEmail))
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.txtSubject = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.dgvEmailBCC = New System.Windows.Forms.DataGridView()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.dgvEmailCC = New System.Windows.Forms.DataGridView()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.dgvEmail = New System.Windows.Forms.DataGridView()
|
||||
Me.clmnEmail = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.RichTextBox = New System.Windows.Forms.RichTextBox()
|
||||
Me.lkl = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.lblKunde = New System.Windows.Forms.LinkLabel()
|
||||
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(12, 48)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lbl.TabIndex = 1
|
||||
Me.lbl.Text = "E-Mail:"
|
||||
'
|
||||
'txtSubject
|
||||
'
|
||||
Me.txtSubject._DateTimeOnly = False
|
||||
Me.txtSubject._numbersOnly = False
|
||||
Me.txtSubject._numbersOnlyKommastellen = ""
|
||||
Me.txtSubject._numbersOnlyTrennzeichen = True
|
||||
Me.txtSubject._Prozent = False
|
||||
Me.txtSubject._ShortDateNew = False
|
||||
Me.txtSubject._ShortDateOnly = False
|
||||
Me.txtSubject._TimeOnly = False
|
||||
Me.txtSubject._TimeOnly_Seconds = False
|
||||
Me.txtSubject._value = ""
|
||||
Me.txtSubject._Waehrung = False
|
||||
Me.txtSubject._WaehrungZeichen = True
|
||||
Me.txtSubject.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSubject.Location = New System.Drawing.Point(67, 143)
|
||||
Me.txtSubject.MaxLineLength = -1
|
||||
Me.txtSubject.MaxLines_Warning = ""
|
||||
Me.txtSubject.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSubject.Name = "txtSubject"
|
||||
Me.txtSubject.Size = New System.Drawing.Size(674, 20)
|
||||
Me.txtSubject.TabIndex = 6
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 146)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Betreff:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 169)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(31, 13)
|
||||
Me.Label2.TabIndex = 7
|
||||
Me.Label2.Text = "Text:"
|
||||
'
|
||||
'dgvEmailBCC
|
||||
'
|
||||
Me.dgvEmailBCC.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvEmailBCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvEmailBCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2})
|
||||
Me.dgvEmailBCC.Location = New System.Drawing.Point(521, 48)
|
||||
Me.dgvEmailBCC.Name = "dgvEmailBCC"
|
||||
Me.dgvEmailBCC.RowHeadersVisible = False
|
||||
Me.dgvEmailBCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvEmailBCC.Size = New System.Drawing.Size(220, 89)
|
||||
Me.dgvEmailBCC.TabIndex = 4
|
||||
'
|
||||
'DataGridViewTextBoxColumn2
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail (BCC)"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'dgvEmailCC
|
||||
'
|
||||
Me.dgvEmailCC.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvEmailCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvEmailCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dgvEmailCC.Location = New System.Drawing.Point(295, 48)
|
||||
Me.dgvEmailCC.Name = "dgvEmailCC"
|
||||
Me.dgvEmailCC.RowHeadersVisible = False
|
||||
Me.dgvEmailCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvEmailCC.Size = New System.Drawing.Size(220, 89)
|
||||
Me.dgvEmailCC.TabIndex = 3
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "E-Mail (CC)"
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
'
|
||||
'dgvEmail
|
||||
'
|
||||
Me.dgvEmail.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvEmail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvEmail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnEmail})
|
||||
Me.dgvEmail.Location = New System.Drawing.Point(67, 48)
|
||||
Me.dgvEmail.Name = "dgvEmail"
|
||||
Me.dgvEmail.RowHeadersVisible = False
|
||||
Me.dgvEmail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvEmail.Size = New System.Drawing.Size(220, 89)
|
||||
Me.dgvEmail.TabIndex = 2
|
||||
'
|
||||
'clmnEmail
|
||||
'
|
||||
Me.clmnEmail.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.clmnEmail.HeaderText = "E-Mail"
|
||||
Me.clmnEmail.Name = "clmnEmail"
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Image = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btn.Location = New System.Drawing.Point(610, 380)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(131, 53)
|
||||
Me.btn.TabIndex = 16
|
||||
Me.btn.Text = "Mail öffnen "
|
||||
Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'RichTextBox
|
||||
'
|
||||
Me.RichTextBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.RichTextBox.Location = New System.Drawing.Point(67, 167)
|
||||
Me.RichTextBox.Name = "RichTextBox"
|
||||
Me.RichTextBox.Size = New System.Drawing.Size(674, 194)
|
||||
Me.RichTextBox.TabIndex = 11
|
||||
Me.RichTextBox.Text = ""
|
||||
'
|
||||
'lkl
|
||||
'
|
||||
Me.lkl.Location = New System.Drawing.Point(67, 27)
|
||||
Me.lkl.Name = "lkl"
|
||||
Me.lkl.Size = New System.Drawing.Size(220, 18)
|
||||
Me.lkl.TabIndex = 0
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 9)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label4.TabIndex = 21
|
||||
Me.Label4.Text = "Kunde:"
|
||||
'
|
||||
'lblKunde
|
||||
'
|
||||
Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
Me.lblKunde.LinkColor = System.Drawing.Color.Black
|
||||
Me.lblKunde.Location = New System.Drawing.Point(64, 9)
|
||||
Me.lblKunde.Name = "lblKunde"
|
||||
Me.lblKunde.Size = New System.Drawing.Size(677, 18)
|
||||
Me.lblKunde.TabIndex = 22
|
||||
Me.lblKunde.TabStop = True
|
||||
Me.lblKunde.Text = "Kunde"
|
||||
'
|
||||
'dgvAnhaenge
|
||||
'
|
||||
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvAnhaenge.AllowUserToAddRows = False
|
||||
Me.dgvAnhaenge.AllowUserToDeleteRows = False
|
||||
Me.dgvAnhaenge.AllowUserToResizeColumns = False
|
||||
Me.dgvAnhaenge.AllowUserToResizeRows = False
|
||||
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn3, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvAnhaenge.Location = New System.Drawing.Point(70, 380)
|
||||
Me.dgvAnhaenge.MultiSelect = False
|
||||
Me.dgvAnhaenge.Name = "dgvAnhaenge"
|
||||
Me.dgvAnhaenge.ReadOnly = True
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.dgvAnhaenge.RowHeadersVisible = False
|
||||
Me.dgvAnhaenge.RowHeadersWidth = 62
|
||||
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvAnhaenge.Size = New System.Drawing.Size(537, 124)
|
||||
Me.dgvAnhaenge.TabIndex = 91
|
||||
Me.dgvAnhaenge.TabStop = False
|
||||
'
|
||||
'optAnhSel
|
||||
'
|
||||
Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.optAnhSel.FillWeight = 78.74017!
|
||||
Me.optAnhSel.HeaderText = ""
|
||||
Me.optAnhSel.MinimumWidth = 8
|
||||
Me.optAnhSel.Name = "optAnhSel"
|
||||
Me.optAnhSel.ReadOnly = True
|
||||
Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
|
||||
Me.optAnhSel.Visible = False
|
||||
Me.optAnhSel.Width = 35
|
||||
'
|
||||
'DataGridViewTextBoxColumn3
|
||||
'
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle2.Format = "N0"
|
||||
DataGridViewCellStyle2.NullValue = Nothing
|
||||
Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.DataGridViewTextBoxColumn3.HeaderText = "Art"
|
||||
Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
|
||||
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
|
||||
Me.DataGridViewTextBoxColumn3.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn3.Width = 70
|
||||
'
|
||||
'clmnBezeichnung
|
||||
'
|
||||
Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.Format = "c2"
|
||||
Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.clmnBezeichnung.FillWeight = 121.2598!
|
||||
Me.clmnBezeichnung.HeaderText = "Bezeichnung"
|
||||
Me.clmnBezeichnung.MinimumWidth = 8
|
||||
Me.clmnBezeichnung.Name = "clmnBezeichnung"
|
||||
Me.clmnBezeichnung.ReadOnly = True
|
||||
'
|
||||
'clmnDsId
|
||||
'
|
||||
Me.clmnDsId.HeaderText = "clmnDsId"
|
||||
Me.clmnDsId.MinimumWidth = 8
|
||||
Me.clmnDsId.Name = "clmnDsId"
|
||||
Me.clmnDsId.ReadOnly = True
|
||||
Me.clmnDsId.Visible = False
|
||||
Me.clmnDsId.Width = 150
|
||||
'
|
||||
'clmnAnhId
|
||||
'
|
||||
Me.clmnAnhId.HeaderText = "clmnAnhId"
|
||||
Me.clmnAnhId.MinimumWidth = 8
|
||||
Me.clmnAnhId.Name = "clmnAnhId"
|
||||
Me.clmnAnhId.ReadOnly = True
|
||||
Me.clmnAnhId.Visible = False
|
||||
Me.clmnAnhId.Width = 150
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(11, 380)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(53, 13)
|
||||
Me.Label7.TabIndex = 92
|
||||
Me.Label7.Text = "Anhänge:"
|
||||
'
|
||||
'frmSendEmail
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.ClientSize = New System.Drawing.Size(750, 575)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.dgvAnhaenge)
|
||||
Me.Controls.Add(Me.lblKunde)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.lkl)
|
||||
Me.Controls.Add(Me.btn)
|
||||
Me.Controls.Add(Me.dgvEmailBCC)
|
||||
Me.Controls.Add(Me.dgvEmailCC)
|
||||
Me.Controls.Add(Me.dgvEmail)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtSubject)
|
||||
Me.Controls.Add(Me.lbl)
|
||||
Me.Controls.Add(Me.RichTextBox)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmSendEmail"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Fakturierung E-Mail"
|
||||
CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents lbl As Label
|
||||
Friend WithEvents txtSubject As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents dgvEmailBCC As DataGridView
|
||||
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents dgvEmailCC As DataGridView
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents dgvEmail As DataGridView
|
||||
Friend WithEvents clmnEmail As DataGridViewTextBoxColumn
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents RichTextBox As RichTextBox
|
||||
Friend WithEvents lkl As LinkLabel
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents lblKunde As LinkLabel
|
||||
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents optAnhSel As DataGridViewCheckBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnBezeichnung As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnDsId As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnAnhId As DataGridViewTextBoxColumn
|
||||
End Class
|
||||
1004
SDL/Fakturierung/frmSendEmail.resx
Normal file
1004
SDL/Fakturierung/frmSendEmail.resx
Normal file
File diff suppressed because it is too large
Load Diff
472
SDL/Fakturierung/frmSendEmail.vb
Normal file
472
SDL/Fakturierung/frmSendEmail.vb
Normal file
@@ -0,0 +1,472 @@
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports Microsoft.Office.Interop.Outlook
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmSendEmail
|
||||
|
||||
' Felder / Instanzvariablen
|
||||
Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
||||
Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
Private ReadOnly FUNC As New cProgramFunctions
|
||||
Private printOriginalRg As Object = Nothing
|
||||
Private ATTACHMENTS As New List(Of cFakt_SendMailATTach)
|
||||
Private SR_List As List(Of cFakt_SR_List) = Nothing
|
||||
Private SR_DT As DataTable = Nothing
|
||||
|
||||
Private Firma_ID As Integer
|
||||
Private SammelrechungArt As Integer
|
||||
Private KdNr As Integer
|
||||
Private DatumBis As Date
|
||||
Private Rechnungsdatum As Date?
|
||||
Private SB As String
|
||||
Private Rechnungsdruck As Integer = 3
|
||||
|
||||
Private EinzelAnlagen As Boolean
|
||||
Private Sammelbericht As Boolean
|
||||
Private xlsEvolog As Boolean
|
||||
Private xlsTransFerry As Boolean
|
||||
Private RechnungsNr As Integer
|
||||
Private FakturierungsGruppe As String
|
||||
Private Abfertigungsart As String
|
||||
Private DruckDatumZeit As DateTime
|
||||
Private AvisoIds As List(Of Integer)
|
||||
Private printRgCopy As Boolean = False
|
||||
|
||||
Private SR As Boolean = False
|
||||
|
||||
' Konstruktor 1
|
||||
Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
|
||||
ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch,
|
||||
ByVal printOriginalRg As Object,
|
||||
ByVal Rechnungsdruck As Integer,
|
||||
Optional ByVal Rechnungsdatum As Object = Nothing)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.RECHNUNG = RECHNUNG
|
||||
' Hinweis: Firma_ID wird hier nicht als Parameter übergeben.
|
||||
Me.Firma_ID = Firma_ID
|
||||
Me.SPEDBUCH = SPEDBUCH
|
||||
Me.printOriginalRg = printOriginalRg
|
||||
Me.KdNr = RECHNUNG.RechnungsKundenNr
|
||||
Me.Rechnungsdruck = Rechnungsdruck
|
||||
If Rechnungsdatum IsNot Nothing Then
|
||||
Me.Rechnungsdatum = CDate(Rechnungsdatum)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Konstruktor 2
|
||||
Public Sub New(ByVal Firma_ID As Integer,
|
||||
ByVal SammelrechungArt As Integer,
|
||||
ByVal DatumBis As Date,
|
||||
ByVal Rechnungsdatum As Date,
|
||||
ByVal PrinterName As String,
|
||||
ByVal Rechnungsdruck As Integer,
|
||||
Optional ByVal EinzelAnlagen As Boolean = True,
|
||||
Optional ByVal Sammelbericht As Boolean = True,
|
||||
Optional ByVal KdNr As Integer = -1,
|
||||
Optional ByVal RechnungsdruckArt As Integer = -1,
|
||||
Optional ByRef listPDFs As List(Of String) = Nothing,
|
||||
Optional ByVal SB As String = "",
|
||||
ByRef Optional lastAktuelle_RgNr As Integer = -1,
|
||||
Optional ByVal AvisoIds As List(Of Integer) = Nothing,
|
||||
Optional ByVal xlsEvolog As Boolean = False,
|
||||
Optional ByVal xlsTransFerry As Boolean = False,
|
||||
Optional ByVal FakturierungsGruppe As String = "",
|
||||
Optional ByVal Abfertigungsart As String = "",
|
||||
Optional ByVal printRgCopy As Boolean = False)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID,
|
||||
SammelrechungArt,
|
||||
DatumBis,
|
||||
KdNr,
|
||||
SB,
|
||||
AvisoIds,
|
||||
FakturierungsGruppe,
|
||||
Abfertigungsart)
|
||||
|
||||
Me.Firma_ID = Firma_ID
|
||||
Me.SammelrechungArt = SammelrechungArt
|
||||
Me.DatumBis = DatumBis
|
||||
Me.SB = SB
|
||||
Me.EinzelAnlagen = EinzelAnlagen
|
||||
Me.Sammelbericht = Sammelbericht
|
||||
Me.xlsEvolog = xlsEvolog
|
||||
Me.xlsTransFerry = xlsTransFerry
|
||||
Me.KdNr = KdNr
|
||||
Me.Rechnungsdatum = Rechnungsdatum
|
||||
Me.RechnungsNr = lastAktuelle_RgNr
|
||||
Me.FakturierungsGruppe = FakturierungsGruppe
|
||||
Me.Abfertigungsart = Abfertigungsart
|
||||
Me.AvisoIds = AvisoIds
|
||||
Me.Rechnungsdruck = Rechnungsdruck
|
||||
Me.printRgCopy = printRgCopy
|
||||
SR = True
|
||||
End Sub
|
||||
|
||||
' Ereignishandler: Form-Load
|
||||
Private Sub frmFaktEmail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
|
||||
Dim FISKAL As cFiskal_Daten = Nothing
|
||||
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
||||
FISKAL = New cFiskal_Daten(KdNr)
|
||||
|
||||
setMailText()
|
||||
|
||||
If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then
|
||||
lkl.Text = """" & AD.E_Mail & """ anfügen"
|
||||
lkl.Tag = AD.E_Mail
|
||||
End If
|
||||
|
||||
lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff
|
||||
|
||||
Dim email_receipt As String = ""
|
||||
If SR Then
|
||||
Dim allAtilla As Boolean = (Firma_ID = 7)
|
||||
If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
|
||||
For Each r As DataRow In SR_DT.Rows
|
||||
If "4801" <> r("FilialenNr").ToString() AndAlso "4802" <> r("FilialenNr").ToString() Then
|
||||
allAtilla = False
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
email_receipt = If(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "")
|
||||
Else
|
||||
If RECHNUNG.FilialenNr = "4801" OrElse RECHNUNG.FilialenNr = "4802" Then
|
||||
email_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)")
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim EMAILTMP As String = If(email_receipt = "",
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"),
|
||||
email_receipt)
|
||||
If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP)
|
||||
|
||||
Dim EMAILTMPCC As String = If(email_receipt = "",
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"),
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
|
||||
If EMAILTMPCC <> "" Then dgvEmailCC.Rows.Add(EMAILTMPCC)
|
||||
|
||||
Dim EMAILTMPBCC As String = If(email_receipt = "",
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"),
|
||||
VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
|
||||
If EMAILTMPBCC <> "" Then dgvEmailBCC.Rows.Add(EMAILTMPBCC)
|
||||
|
||||
initDGVAnhaenge()
|
||||
End Sub
|
||||
|
||||
' Linklabel-Klick: Kunde anzeigen
|
||||
Private Sub lblKunde_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKunde.LinkClicked
|
||||
FUNC.showKd(KdNr)
|
||||
End Sub
|
||||
|
||||
' Initialisierung der Anlagen-DGV
|
||||
Private Sub initDGVAnhaenge()
|
||||
With dgvAnhaenge
|
||||
.Rows.Clear()
|
||||
.Enabled = True
|
||||
|
||||
If SR AndAlso SammelrechungArt <> 6 Then
|
||||
.Enabled = False
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If SammelrechungArt = 6 AndAlso RECHNUNG Is Nothing Then
|
||||
For Each r As DataRow In SR_DT.Rows
|
||||
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
|
||||
If RG IsNot Nothing Then
|
||||
RG.LOAD_ANHAENGE()
|
||||
For Each RG_AH In RG.ANHAENGE
|
||||
.Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
RECHNUNG.LOAD_ANHAENGE()
|
||||
If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
|
||||
For Each RG_AH In RECHNUNG.ANHAENGE
|
||||
.Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End With
|
||||
dgvAnhaenge.ClearSelection()
|
||||
End Sub
|
||||
|
||||
' Anzeige von HTML im WebBrowser
|
||||
Private Sub wbShowHTML(ByVal WebBrowser As WebBrowser, ByVal HtmlText As String)
|
||||
Try
|
||||
With WebBrowser
|
||||
If .Url Is Nothing OrElse .Url.AbsoluteUri <> "about:blank" Then
|
||||
.Navigate("about:blank")
|
||||
System.Windows.Forms.Application.DoEvents()
|
||||
End If
|
||||
' Hier ggf. den HTML-Inhalt setzen, z. B.:
|
||||
' .Document.Body.InnerHtml = HtmlText
|
||||
End With
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
' Gibt die Rechnungsnummer als String zurück
|
||||
Private Function getRgNr(ByVal RechnungsNr As Integer) As String
|
||||
If RechnungsNr <= 0 Then Return "%RgNr%"
|
||||
Return RechnungsNr.ToString()
|
||||
End Function
|
||||
|
||||
' Setzt den Mail-Text
|
||||
Private Sub setMailText()
|
||||
Dim abfNr As String = " Pos-Nr.: " & RECHNUNG.LKW_Kennzeichen & "/" & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
|
||||
|
||||
txtSubject.Text = "Verzollungsunterlagen zu " & abfNr
|
||||
|
||||
RichTextBox.Text = "Sehr geehrte Damen und Herren," & Environment.NewLine & Environment.NewLine &
|
||||
"anbei erhalten Sie die Verzollungsunterlagen zu Ihrer weiteren Verwendung." & Environment.NewLine & Environment.NewLine &
|
||||
"Für weitere Fragen stehen wir Ihnen natürlich gerne zur Verfügung." & Environment.NewLine & Environment.NewLine &
|
||||
"Mit freundlichen Grüßen" & Environment.NewLine
|
||||
End Sub
|
||||
|
||||
' Klick-Event des Buttons
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
Dim additionalLine As String = ""
|
||||
|
||||
If SR Then
|
||||
Try
|
||||
If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?", vbYesNoCancel) Then
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung")
|
||||
Dim listPDFs As New List(Of String)
|
||||
Dim SonstAnlagen As New List(Of String)
|
||||
Dim lastAktuelle_RgNr As Integer = -1
|
||||
Dim RechnungsNrisSet As Boolean = False
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
|
||||
Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
|
||||
Mail_StbFA.Subject = txtSubject.Text
|
||||
|
||||
If Firma_ID = 24 Then
|
||||
Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
|
||||
End If
|
||||
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
|
||||
Mail.Subject = txtSubject.Text
|
||||
|
||||
If Firma_ID = 24 Then
|
||||
Try
|
||||
Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
|
||||
For Each oAccount As Outlook.Account In outl.Session.Accounts
|
||||
If oAccount.SmtpAddress = accountToSent Then
|
||||
Mail.SendUsingAccount = oAccount
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End If
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmail.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.To &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmailCC.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.CC &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmailBCC.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.BCC &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
|
||||
RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
|
||||
cFakturierung.getSignature(AD.LandKz, Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
|
||||
"</div>"
|
||||
|
||||
Mail.HTMLBody = TextHTML
|
||||
Mail.Subject = txtSubject.Text
|
||||
|
||||
ATTACHMENTS.Clear()
|
||||
For Each l As String In listPDFs
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
|
||||
Next
|
||||
For Each l As String In SonstAnlagen
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
|
||||
Next
|
||||
|
||||
If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
|
||||
For Each r As DataRow In SR_DT.Rows
|
||||
Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
|
||||
If RG_ANH IsNot Nothing Then
|
||||
For Each ANH In RG_ANH
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
|
||||
End If
|
||||
addAttachments(Mail, lastAktuelle_RgNr, False)
|
||||
|
||||
Mail.Display()
|
||||
End If
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Else ' ER-Fall
|
||||
If RECHNUNG.FakturierungsGruppe <> "" Then
|
||||
additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
|
||||
End If
|
||||
|
||||
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?", vbYesNoCancel) Then
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
|
||||
Dim RechnungsNrisSet As Boolean = False
|
||||
|
||||
If Firma_ID = 24 Then
|
||||
Try
|
||||
Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
|
||||
For Each oAccount As Outlook.Account In outl.Session.Accounts
|
||||
If oAccount.SmtpAddress = accountToSent Then
|
||||
Mail.SendUsingAccount = oAccount
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End If
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmail.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.To &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmailCC.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.CC &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each r As DataGridViewRow In dgvEmailBCC.Rows
|
||||
If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
|
||||
Mail.BCC &= r.Cells(0).Value.ToString() & ";"
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
|
||||
RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
|
||||
cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
|
||||
"</div>"
|
||||
|
||||
Mail.HTMLBody = TextHTML
|
||||
Mail.Subject = txtSubject.Text
|
||||
|
||||
RECHNUNG.LOAD_ANHAENGE()
|
||||
For Each ANH In RECHNUNG.ANHAENGE
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
|
||||
Next
|
||||
|
||||
If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
|
||||
ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
|
||||
End If
|
||||
addAttachments(Mail, RECHNUNG.RechnungsNr, False)
|
||||
|
||||
Mail.Display()
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
ATTACHMENTS.Clear()
|
||||
End Sub
|
||||
|
||||
' Fügt die gesammelten Anlagen der Mail hinzu
|
||||
Private Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, ByVal RgNr As Integer, ByVal MergePDF As Boolean)
|
||||
If ATTACHMENTS.Count = 0 Then Exit Sub
|
||||
|
||||
Try
|
||||
For Each a In ATTACHMENTS
|
||||
If System.IO.File.Exists(a.Pfad) Then
|
||||
Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
|
||||
Else
|
||||
' Optional: Fehlermeldung protokollieren oder Benutzer informieren
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Anhang wurde nicht hinzugefügt, da Datei nicht gefunden wurde: " & a.Pfad, "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End If
|
||||
Next
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
' Linklabel-Klick: E-Mail-Adresse hinzufügen
|
||||
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
|
||||
dgvEmail.Rows.Add(lkl.Tag)
|
||||
End Sub
|
||||
|
||||
' DataGridView-Verlassen: Auswahl löschen
|
||||
Private Sub dgvEmail_SelectionChanged(sender As Object, e As EventArgs) _
|
||||
Handles dgvEmail.Leave, dgvEmailCC.Leave, dgvEmailBCC.Leave
|
||||
CType(sender, DataGridView).ClearSelection()
|
||||
End Sub
|
||||
|
||||
' Doppelklick in Anlagen-DGV: Anlage öffnen
|
||||
Private Sub dgvAnhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) _
|
||||
Handles dgvAnhaenge.CellDoubleClick
|
||||
Try
|
||||
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||
Dim docId = dgvAnhaenge.SelectedRows(0).Cells("clmnDsId").Value
|
||||
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docId))
|
||||
End If
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
' Klasse für Mail-Anhänge
|
||||
Public Class cFakt_SendMailATTach
|
||||
Public Property Pfad As String
|
||||
Public Property MailName As String
|
||||
|
||||
Public Sub New(ByVal pfad As String, ByVal MailName As String)
|
||||
Me.Pfad = pfad
|
||||
Me.MailName = MailName
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
' Klasse für SR-Listen
|
||||
Public Class cFaktSend_SR_List
|
||||
Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
|
||||
Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
|
||||
Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
|
||||
ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
|
||||
Me.RECHNUNG = RECHNUNG
|
||||
Me.SPEDBUCH = SPEDBUCH
|
||||
End Sub
|
||||
End Class
|
||||
364
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
generated
364
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
generated
@@ -23,27 +23,27 @@ Partial Class usrCntlFaktAbrechnung
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung))
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
@@ -152,6 +152,7 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.pnlRechnungAn = New System.Windows.Forms.Panel()
|
||||
Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label56 = New System.Windows.Forms.Label()
|
||||
Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button15 = New System.Windows.Forms.Button()
|
||||
@@ -236,7 +237,6 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.lblEUR_4 = New System.Windows.Forms.Label()
|
||||
Me.Label55 = New System.Windows.Forms.Label()
|
||||
Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
|
||||
Me.Label46 = New System.Windows.Forms.Label()
|
||||
Me.Button9 = New System.Windows.Forms.Button()
|
||||
@@ -279,7 +279,8 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button17 = New System.Windows.Forms.Button()
|
||||
Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -795,6 +796,7 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.AutoScroll = True
|
||||
Me.Panel1.Controls.Add(Me.Button17)
|
||||
Me.Panel1.Controls.Add(Me.txtTextZZ)
|
||||
Me.Panel1.Controls.Add(Me.dgvAnhaenge)
|
||||
Me.Panel1.Controls.Add(Me.Label36)
|
||||
@@ -869,36 +871,36 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.dgvAnhaenge.AllowUserToResizeColumns = False
|
||||
Me.dgvAnhaenge.AllowUserToResizeRows = False
|
||||
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle64
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
|
||||
DataGridViewCellStyle67.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle67.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle67.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle67.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle67.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle67.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle67
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911)
|
||||
Me.dgvAnhaenge.MultiSelect = False
|
||||
Me.dgvAnhaenge.Name = "dgvAnhaenge"
|
||||
Me.dgvAnhaenge.ReadOnly = True
|
||||
DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle68
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.dgvAnhaenge.RowHeadersVisible = False
|
||||
Me.dgvAnhaenge.RowHeadersWidth = 62
|
||||
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
@@ -920,10 +922,10 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
'DataGridViewTextBoxColumn2
|
||||
'
|
||||
DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle65.Format = "N0"
|
||||
DataGridViewCellStyle65.NullValue = Nothing
|
||||
Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle65
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle2.Format = "N0"
|
||||
DataGridViewCellStyle2.NullValue = Nothing
|
||||
Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "Art"
|
||||
Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
@@ -933,9 +935,9 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'clmnBezeichnung
|
||||
'
|
||||
Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle66.Format = "c2"
|
||||
Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle66
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.Format = "c2"
|
||||
Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.clmnBezeichnung.FillWeight = 121.2598!
|
||||
Me.clmnBezeichnung.HeaderText = "Bezeichnung"
|
||||
Me.clmnBezeichnung.MinimumWidth = 8
|
||||
@@ -2001,6 +2003,17 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153)
|
||||
Me.pnlRechnungAn.TabIndex = 0
|
||||
'
|
||||
'cboVorauskasse
|
||||
'
|
||||
Me.cboVorauskasse._allowedValuesFreiText = Nothing
|
||||
Me.cboVorauskasse._allowFreiText = False
|
||||
Me.cboVorauskasse._value = ""
|
||||
Me.cboVorauskasse.FormattingEnabled = True
|
||||
Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
|
||||
Me.cboVorauskasse.Name = "cboVorauskasse"
|
||||
Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboVorauskasse.TabIndex = 244
|
||||
'
|
||||
'Label56
|
||||
'
|
||||
Me.Label56.AutoSize = True
|
||||
@@ -2905,35 +2918,35 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False
|
||||
Me.dgvRechnungenPositionen.AllowUserToResizeRows = False
|
||||
Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle69
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto})
|
||||
DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle74
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11
|
||||
Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258)
|
||||
Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen"
|
||||
Me.dgvRechnungenPositionen.ReadOnly = True
|
||||
DataGridViewCellStyle75.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle75.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle75.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle75.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle75.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle75
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
Me.dgvRechnungenPositionen.RowHeadersVisible = False
|
||||
Me.dgvRechnungenPositionen.RowHeadersWidth = 62
|
||||
Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
@@ -2951,10 +2964,10 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
'Anzahl
|
||||
'
|
||||
DataGridViewCellStyle70.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle70.Format = "N0"
|
||||
DataGridViewCellStyle70.NullValue = Nothing
|
||||
Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle70
|
||||
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle7.Format = "N0"
|
||||
DataGridViewCellStyle7.NullValue = Nothing
|
||||
Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7
|
||||
Me.Anzahl.HeaderText = "Anzahl"
|
||||
Me.Anzahl.MinimumWidth = 8
|
||||
Me.Anzahl.Name = "Anzahl"
|
||||
@@ -2963,9 +2976,9 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
'Preis
|
||||
'
|
||||
DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle71.Format = "c2"
|
||||
Me.Preis.DefaultCellStyle = DataGridViewCellStyle71
|
||||
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle8.Format = "c2"
|
||||
Me.Preis.DefaultCellStyle = DataGridViewCellStyle8
|
||||
Me.Preis.HeaderText = "Preis"
|
||||
Me.Preis.MinimumWidth = 8
|
||||
Me.Preis.Name = "Preis"
|
||||
@@ -2974,9 +2987,9 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
'SteuerpflichtigerBetrag
|
||||
'
|
||||
DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle72.Format = "c2"
|
||||
Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle72
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle9.Format = "c2"
|
||||
Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9
|
||||
Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
|
||||
Me.SteuerpflichtigerBetrag.MinimumWidth = 8
|
||||
Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
|
||||
@@ -2985,10 +2998,10 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
'SteuerfreierBetrag
|
||||
'
|
||||
DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle73.Format = "C2"
|
||||
DataGridViewCellStyle73.NullValue = Nothing
|
||||
Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle73
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
DataGridViewCellStyle10.Format = "C2"
|
||||
DataGridViewCellStyle10.NullValue = Nothing
|
||||
Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10
|
||||
Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
|
||||
Me.SteuerfreierBetrag.MinimumWidth = 8
|
||||
Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
|
||||
@@ -3011,41 +3024,41 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
|
||||
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
DataGridViewCellStyle76.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle76.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle76.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle76.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle76.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle76
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
|
||||
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle77.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle77
|
||||
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle14
|
||||
Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29)
|
||||
Me.dgvOffertenSperrliste.MultiSelect = False
|
||||
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
|
||||
Me.dgvOffertenSperrliste.ReadOnly = True
|
||||
DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle78
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvOffertenSperrliste.RowHeadersVisible = False
|
||||
Me.dgvOffertenSperrliste.RowHeadersWidth = 62
|
||||
DataGridViewCellStyle79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle79.SelectionBackColor = System.Drawing.Color.PapayaWhip
|
||||
DataGridViewCellStyle79.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle79
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.PapayaWhip
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201)
|
||||
Me.dgvOffertenSperrliste.TabIndex = 2
|
||||
@@ -3058,44 +3071,44 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle80.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle80
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
DataGridViewCellStyle81.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle81.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle81.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle81.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle81.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle81
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle82.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle82.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle82.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle82.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle82.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle82.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle82
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29)
|
||||
Me.dgvOfferteDetailsUebersicht.MultiSelect = False
|
||||
Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht"
|
||||
DataGridViewCellStyle83.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle83.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle83.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle83.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle83.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle83.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle83
|
||||
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False
|
||||
Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62
|
||||
DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle84.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle84.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle84
|
||||
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201)
|
||||
Me.dgvOfferteDetailsUebersicht.TabIndex = 3
|
||||
@@ -3482,17 +3495,6 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
|
||||
Me.cboSteuerschlüssel.TabIndex = 3
|
||||
'
|
||||
'rtbAbf_Besonderheiten
|
||||
'
|
||||
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
|
||||
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
|
||||
Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
|
||||
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
|
||||
Me.rtbAbf_Besonderheiten.TabIndex = 235
|
||||
Me.rtbAbf_Besonderheiten.Visible = False
|
||||
'
|
||||
'cbxOriginalPrint
|
||||
'
|
||||
Me.cbxOriginalPrint.AutoSize = True
|
||||
@@ -3934,25 +3936,25 @@ Partial Class usrCntlFaktAbrechnung
|
||||
'
|
||||
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem})
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 70)
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(225, 70)
|
||||
'
|
||||
'GutschriftAusRechnungToolStripMenuItem
|
||||
'
|
||||
Me.GutschriftAusRechnungToolStripMenuItem.Name = "GutschriftAusRechnungToolStripMenuItem"
|
||||
Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
|
||||
Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.GutschriftAusRechnungToolStripMenuItem.Text = "Gutschrift aus Rechnung"
|
||||
'
|
||||
'SeperateRechnungFürEUSTToolStripMenuItem
|
||||
'
|
||||
Me.SeperateRechnungFürEUSTToolStripMenuItem.Name = "SeperateRechnungFürEUSTToolStripMenuItem"
|
||||
Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
|
||||
Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.SeperateRechnungFürEUSTToolStripMenuItem.Text = "Seperate Rechnung für EUST"
|
||||
'
|
||||
'GutschriftAnVeragToolStripMenuItem
|
||||
'
|
||||
Me.GutschriftAnVeragToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VeragAGToolStripMenuItem, Me.VeragCSToolStripMenuItem})
|
||||
Me.GutschriftAnVeragToolStripMenuItem.Name = "GutschriftAnVeragToolStripMenuItem"
|
||||
Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
|
||||
Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an"
|
||||
'
|
||||
'VeragAGToolStripMenuItem
|
||||
@@ -3967,16 +3969,29 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.VeragCSToolStripMenuItem.Text = "Verag CS"
|
||||
'
|
||||
'cboVorauskasse
|
||||
'Button17
|
||||
'
|
||||
Me.cboVorauskasse._allowedValuesFreiText = Nothing
|
||||
Me.cboVorauskasse._allowFreiText = False
|
||||
Me.cboVorauskasse._value = ""
|
||||
Me.cboVorauskasse.FormattingEnabled = True
|
||||
Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
|
||||
Me.cboVorauskasse.Name = "cboVorauskasse"
|
||||
Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboVorauskasse.TabIndex = 244
|
||||
Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button17.Location = New System.Drawing.Point(656, 887)
|
||||
Me.Button17.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
|
||||
Me.Button17.Name = "Button17"
|
||||
Me.Button17.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
|
||||
Me.Button17.Size = New System.Drawing.Size(166, 24)
|
||||
Me.Button17.TabIndex = 92
|
||||
Me.Button17.Text = "E-Mail Erstellen"
|
||||
Me.Button17.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rtbAbf_Besonderheiten
|
||||
'
|
||||
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
|
||||
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
|
||||
Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
|
||||
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
|
||||
Me.rtbAbf_Besonderheiten.TabIndex = 235
|
||||
Me.rtbAbf_Besonderheiten.Visible = False
|
||||
'
|
||||
'usrCntlFaktAbrechnung
|
||||
'
|
||||
@@ -4263,4 +4278,5 @@ Partial Class usrCntlFaktAbrechnung
|
||||
Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents lblOFgesperrt As Label
|
||||
Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Button17 As Button
|
||||
End Class
|
||||
|
||||
@@ -153,26 +153,26 @@
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
|
||||
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
|
||||
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
|
||||
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
|
||||
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
|
||||
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
|
||||
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
|
||||
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
|
||||
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
|
||||
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
|
||||
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
|
||||
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
|
||||
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
|
||||
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
|
||||
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
|
||||
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
|
||||
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
|
||||
@@ -3495,6 +3495,7 @@ Nächste_Textzeile_lesen:
|
||||
cbxOriginalPrint.Checked = False
|
||||
End Sub
|
||||
|
||||
|
||||
Function getPrinterFromParent()
|
||||
Try
|
||||
If Me.FindForm IsNot Nothing Then
|
||||
@@ -4221,4 +4222,30 @@ Nächste_Textzeile_lesen:
|
||||
txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
If Not checkUIDNR() Then Exit Sub
|
||||
|
||||
If RECHNUNG.Status <> 0 OrElse saveMe() Then
|
||||
' Anhänge sichern, falls geändert
|
||||
If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
|
||||
getValues_ANHAENGE()
|
||||
RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
|
||||
End If
|
||||
|
||||
'RG-Druck - Mail (+Kopie)
|
||||
Dim RG_DRUCK = 2
|
||||
If sender Is Button16 Then
|
||||
RG_DRUCK = 5
|
||||
End If
|
||||
|
||||
Dim f As New frmSendEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK)
|
||||
f.ShowDialog(Me)
|
||||
initRECHNUNG()
|
||||
RaiseEvent SOMETHING_CHANGED(-1)
|
||||
|
||||
|
||||
End If
|
||||
cbxOriginalPrint.Checked = False
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user