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

Fiskaluebersicht, Uberstunden, Zollanmeldungen, MDMAuswertungen

Browse Source
This commit is contained in:
d.breimaier
2024-05-28 08:52:58 +02:00
parent 7aaaa875fa
commit 0e513c51f1
10 changed files with 481 additions and 343 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/kunden/usrcntlFiskaluebersicht.Designer.vb generated
View File

@@ -39,6 +39,7 @@ Partial Class usrcntlFiskaluebersicht
Me.btnPDFReport = New System.Windows.Forms.Button()
Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblUmsatz = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtUmsatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxUntervm = New System.Windows.Forms.CheckBox()
@@ -93,7 +94,6 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxUID = New System.Windows.Forms.CheckBox()
Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblUmsatz = New System.Windows.Forms.Label()
CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -351,6 +351,15 @@ Partial Class usrcntlFiskaluebersicht
Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
Me.MyPanel2.TabIndex = 110
'
'lblUmsatz
'
Me.lblUmsatz.AutoSize = True
Me.lblUmsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUmsatz.Location = New System.Drawing.Point(248, 190)
Me.lblUmsatz.Name = "lblUmsatz"
Me.lblUmsatz.Size = New System.Drawing.Size(0, 13)
Me.lblUmsatz.TabIndex = 186
'
'Label14
'
Me.Label14.AutoSize = True
@@ -617,7 +626,7 @@ Partial Class usrcntlFiskaluebersicht
'
Me.lblAnmerkungen.AutoSize = True
Me.lblAnmerkungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAnmerkungen.Location = New System.Drawing.Point(283, 464)
Me.lblAnmerkungen.Location = New System.Drawing.Point(355, 464)
Me.lblAnmerkungen.Name = "lblAnmerkungen"
Me.lblAnmerkungen.Size = New System.Drawing.Size(120, 20)
Me.lblAnmerkungen.TabIndex = 166
@@ -861,7 +870,7 @@ Partial Class usrcntlFiskaluebersicht
Me.btnAddAttachments.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAddAttachments.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddAttachments.ForeColor = System.Drawing.Color.Black
Me.btnAddAttachments.Location = New System.Drawing.Point(171, 600)
Me.btnAddAttachments.Location = New System.Drawing.Point(282, 598)
Me.btnAddAttachments.Name = "btnAddAttachments"
Me.btnAddAttachments.Size = New System.Drawing.Size(42, 19)
Me.btnAddAttachments.TabIndex = 142
@@ -874,9 +883,9 @@ Partial Class usrcntlFiskaluebersicht
Me.cbxAttachmentArt._allowFreiText = False
Me.cbxAttachmentArt._value = ""
Me.cbxAttachmentArt.FormattingEnabled = True
Me.cbxAttachmentArt.Location = New System.Drawing.Point(13, 598)
Me.cbxAttachmentArt.Location = New System.Drawing.Point(8, 598)
Me.cbxAttachmentArt.Name = "cbxAttachmentArt"
Me.cbxAttachmentArt.Size = New System.Drawing.Size(145, 21)
Me.cbxAttachmentArt.Size = New System.Drawing.Size(150, 21)
Me.cbxAttachmentArt.TabIndex = 131
'
'Label4
@@ -890,9 +899,9 @@ Partial Class usrcntlFiskaluebersicht
'
'rtbAnmerkung
'
Me.rtbAnmerkung.Location = New System.Drawing.Point(287, 487)
Me.rtbAnmerkung.Location = New System.Drawing.Point(359, 487)
Me.rtbAnmerkung.Name = "rtbAnmerkung"
Me.rtbAnmerkung.Size = New System.Drawing.Size(414, 107)
Me.rtbAnmerkung.Size = New System.Drawing.Size(342, 145)
Me.rtbAnmerkung.TabIndex = 130
Me.rtbAnmerkung.Text = ""
'
@@ -1113,7 +1122,7 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvUnterlagen.ReadOnly = True
Me.dgvUnterlagen.RowHeadersVisible = False
Me.dgvUnterlagen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUnterlagen.Size = New System.Drawing.Size(268, 107)
Me.dgvUnterlagen.Size = New System.Drawing.Size(321, 107)
Me.dgvUnterlagen.TabIndex = 115
'
'cbxUID
@@ -1152,15 +1161,6 @@ Partial Class usrcntlFiskaluebersicht
Me.txtUID.Size = New System.Drawing.Size(86, 20)
Me.txtUID.TabIndex = 106
'
'lblUmsatz
'
Me.lblUmsatz.AutoSize = True
Me.lblUmsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUmsatz.Location = New System.Drawing.Point(248, 190)
Me.lblUmsatz.Name = "lblUmsatz"
Me.lblUmsatz.Size = New System.Drawing.Size(0, 13)
Me.lblUmsatz.TabIndex = 186
'
'usrcntlFiskaluebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

3
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -282,7 +282,8 @@ Public Class usrcntlFiskaluebersicht
For Each row As DataGridViewRow In dgvUnterlagen.Rows
listeUnterlagen.Add(row.Cells("fka_Art").Value.ToString)
If row.Cells("fka_Art").Value IsNot Nothing AndAlso Not IsDBNull(row.Cells("fka_Art").Value) Then listeUnterlagen.Add(row.Cells("fka_Art").Value.ToString)
If row.Cells("fka_Name").Value IsNot Nothing AndAlso Not IsDBNull(row.Cells("fka_Name").Value) Then listeUnterlagen.Add(row.Cells("fka_Name").Value.ToString)
Next
End If