ustva_antrag, Kundenbatt Umsatzbericht, etc.
This commit is contained in:
869
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
869
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -14,7 +14,7 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim Antrag_LandKz As String = ""
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim posTabisSelected As Boolean = True
|
||||
Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT")
|
||||
Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT", False)
|
||||
|
||||
Dim von, bis As Date
|
||||
|
||||
|
||||
8
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
8
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
@@ -888,14 +888,14 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
'
|
||||
'btnAPIUbload
|
||||
'
|
||||
Me.btnAPIUbload.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
|
||||
Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAPIUbload.Location = New System.Drawing.Point(36, 186)
|
||||
Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186)
|
||||
Me.btnAPIUbload.Name = "btnAPIUbload"
|
||||
Me.btnAPIUbload.Size = New System.Drawing.Size(35, 24)
|
||||
Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24)
|
||||
Me.btnAPIUbload.TabIndex = 25
|
||||
Me.btnAPIUbload.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAPIUbload.Text = "API-Upload"
|
||||
Me.btnAPIUbload.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel3
|
||||
|
||||
@@ -267,7 +267,8 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
|
||||
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
|
||||
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
|
||||
adressLoadedByLeistender = True
|
||||
If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
|
||||
|
||||
End If
|
||||
|
||||
If Not initial Then
|
||||
@@ -423,7 +424,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
@@ -510,20 +511,18 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
'ElseIf sender Is sbLeistender Then
|
||||
|
||||
|
||||
|
||||
If UStV_Leist.hasEntry Then
|
||||
' If UStV_Leist.hasEntry Then
|
||||
|
||||
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
|
||||
' UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
' If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
|
||||
' txtChanged = True
|
||||
|
||||
txtChanged = True
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
@@ -535,6 +534,21 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
End If
|
||||
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
If sbLeistender.Text <> "" Then
|
||||
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
|
||||
If IsNumeric(sbLeistender.Text) Then
|
||||
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
|
||||
Else
|
||||
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
|
||||
End If
|
||||
|
||||
loadChangedDSToPanel(UStV_Leist)
|
||||
Else
|
||||
loadChangedDSToPanel(Nothing, True)
|
||||
End If
|
||||
End If
|
||||
'MsgBox()
|
||||
End If
|
||||
|
||||
|
||||
@@ -580,7 +594,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Dim authResp = API.authenticate("VAT", "client1", "password")
|
||||
Dim resp
|
||||
If authResp <> "200" Then
|
||||
MsgBox("Authentifizierung fehlgeschlagen")
|
||||
MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
|
||||
Exit Sub
|
||||
Else
|
||||
If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
|
||||
|
||||
457
SDL/kunden/frmKundenblatt.Designer.vb
generated
457
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -40,6 +40,10 @@ Partial Class frmKundenblatt
|
||||
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(frmKundenblatt))
|
||||
Me.pnlInfo = New System.Windows.Forms.Panel()
|
||||
Me.txtInfotext = New System.Windows.Forms.Label()
|
||||
@@ -48,13 +52,18 @@ Partial Class frmKundenblatt
|
||||
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
|
||||
Me.tbcntrMain = New System.Windows.Forms.TabControl()
|
||||
Me.tbAllgemein = New System.Windows.Forms.TabPage()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvUmsaetze = New System.Windows.Forms.DataGridView()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
|
||||
Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
|
||||
Me.btnReloadOP = New System.Windows.Forms.Button()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
|
||||
Me.btnOP = New System.Windows.Forms.Button()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.dgvOfferte = New System.Windows.Forms.DataGridView()
|
||||
@@ -206,6 +215,10 @@ Partial Class frmKundenblatt
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.tbcntrMain.SuspendLayout()
|
||||
Me.tbAllgemein.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -321,14 +334,10 @@ Partial Class frmKundenblatt
|
||||
'tbAllgemein
|
||||
'
|
||||
Me.tbAllgemein.BackColor = System.Drawing.Color.White
|
||||
Me.tbAllgemein.Controls.Add(Me.TabControl1)
|
||||
Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz)
|
||||
Me.tbAllgemein.Controls.Add(Me.btnReloadOP)
|
||||
Me.tbAllgemein.Controls.Add(Me.Label11)
|
||||
Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL)
|
||||
Me.tbAllgemein.Controls.Add(Me.Label10)
|
||||
Me.tbAllgemein.Controls.Add(Me.Label9)
|
||||
Me.tbAllgemein.Controls.Add(Me.dgvOffenePosten)
|
||||
Me.tbAllgemein.Controls.Add(Me.btnOP)
|
||||
Me.tbAllgemein.Controls.Add(Me.Label17)
|
||||
Me.tbAllgemein.Controls.Add(Me.dgvOfferte)
|
||||
Me.tbAllgemein.Controls.Add(Me.picLogo)
|
||||
@@ -360,6 +369,167 @@ Partial Class frmKundenblatt
|
||||
Me.tbAllgemein.TabIndex = 0
|
||||
Me.tbAllgemein.Text = "Allgemein"
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(8, 582)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(718, 550)
|
||||
Me.TabControl1.TabIndex = 186
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.dgvUmsaetze)
|
||||
Me.TabPage1.Controls.Add(Me.btnReloadOP)
|
||||
Me.TabPage1.Controls.Add(Me.Label10)
|
||||
Me.TabPage1.Controls.Add(Me.btnOP)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(710, 524)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Offene Posten"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvUmsaetze
|
||||
'
|
||||
Me.dgvUmsaetze.AllowUserToAddRows = False
|
||||
Me.dgvUmsaetze.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsaetze.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsaetze.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvUmsaetze.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvUmsaetze.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUmsaetze.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvUmsaetze.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUmsaetze.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.dgvUmsaetze.Location = New System.Drawing.Point(0, 34)
|
||||
Me.dgvUmsaetze.Name = "dgvUmsaetze"
|
||||
Me.dgvUmsaetze.ReadOnly = True
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvUmsaetze.RowHeadersVisible = False
|
||||
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 484)
|
||||
Me.dgvUmsaetze.TabIndex = 182
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.dgvOffenePosten)
|
||||
Me.TabPage2.Controls.Add(Me.txtUmsatzJahr)
|
||||
Me.TabPage2.Controls.Add(Me.Label13)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(710, 524)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Umsatzbericht"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvOffenePosten
|
||||
'
|
||||
Me.dgvOffenePosten.AllowUserToAddRows = False
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
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.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle7
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(0, 25)
|
||||
Me.dgvOffenePosten.Name = "dgvOffenePosten"
|
||||
Me.dgvOffenePosten.ReadOnly = True
|
||||
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
|
||||
Me.dgvOffenePosten.RowHeadersVisible = False
|
||||
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffenePosten.Size = New System.Drawing.Size(704, 496)
|
||||
Me.dgvOffenePosten.TabIndex = 175
|
||||
'
|
||||
'txtUmsatzJahr
|
||||
'
|
||||
Me.txtUmsatzJahr._DateTimeOnly = False
|
||||
Me.txtUmsatzJahr._numbersOnly = False
|
||||
Me.txtUmsatzJahr._numbersOnlyKommastellen = ""
|
||||
Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True
|
||||
Me.txtUmsatzJahr._Prozent = False
|
||||
Me.txtUmsatzJahr._ShortDateNew = False
|
||||
Me.txtUmsatzJahr._ShortDateOnly = False
|
||||
Me.txtUmsatzJahr._TimeOnly = False
|
||||
Me.txtUmsatzJahr._TimeOnly_Seconds = False
|
||||
Me.txtUmsatzJahr._value = Nothing
|
||||
Me.txtUmsatzJahr._Waehrung = False
|
||||
Me.txtUmsatzJahr._WaehrungZeichen = True
|
||||
Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White
|
||||
Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUmsatzJahr.Location = New System.Drawing.Point(608, 6)
|
||||
Me.txtUmsatzJahr.MaxLineLength = -1
|
||||
Me.txtUmsatzJahr.MaxLines_Warning = ""
|
||||
Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
|
||||
Me.txtUmsatzJahr.ReadOnly = True
|
||||
Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
|
||||
Me.txtUmsatzJahr.TabIndex = 185
|
||||
Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label13.Location = New System.Drawing.Point(473, 6)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(68, 13)
|
||||
Me.Label13.TabIndex = 184
|
||||
Me.Label13.Text = "Umsatz Jahr:"
|
||||
'
|
||||
'lblAdressenzusatz
|
||||
'
|
||||
Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White
|
||||
@@ -379,7 +549,7 @@ Partial Class frmKundenblatt
|
||||
Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnReloadOP.FlatAppearance.BorderSize = 0
|
||||
Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnReloadOP.Location = New System.Drawing.Point(240, 563)
|
||||
Me.btnReloadOP.Location = New System.Drawing.Point(482, 5)
|
||||
Me.btnReloadOP.Name = "btnReloadOP"
|
||||
Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
|
||||
Me.btnReloadOP.TabIndex = 180
|
||||
@@ -390,7 +560,7 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label11.Location = New System.Drawing.Point(271, 570)
|
||||
Me.Label11.Location = New System.Drawing.Point(17, 546)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label11.TabIndex = 178
|
||||
@@ -403,7 +573,7 @@ Partial Class frmKundenblatt
|
||||
Me.cboFirmaFMZOLL._value = ""
|
||||
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboFirmaFMZOLL.FormattingEnabled = True
|
||||
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567)
|
||||
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543)
|
||||
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
|
||||
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
|
||||
Me.cboFirmaFMZOLL.TabIndex = 179
|
||||
@@ -411,64 +581,12 @@ Partial Class frmKundenblatt
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(544, 570)
|
||||
Me.Label10.Location = New System.Drawing.Point(523, 11)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(149, 13)
|
||||
Me.Label10.TabIndex = 177
|
||||
Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(9, 575)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label9.TabIndex = 176
|
||||
Me.Label9.Text = "Offene Posten:"
|
||||
'
|
||||
'dgvOffenePosten
|
||||
'
|
||||
Me.dgvOffenePosten.AllowUserToAddRows = False
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffenePosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(12, 591)
|
||||
Me.dgvOffenePosten.Name = "dgvOffenePosten"
|
||||
Me.dgvOffenePosten.ReadOnly = True
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.dgvOffenePosten.RowHeadersVisible = False
|
||||
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 536)
|
||||
Me.dgvOffenePosten.TabIndex = 175
|
||||
'
|
||||
'btnOP
|
||||
'
|
||||
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
|
||||
@@ -476,7 +594,7 @@ Partial Class frmKundenblatt
|
||||
Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnOP.FlatAppearance.BorderSize = 0
|
||||
Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOP.Location = New System.Drawing.Point(702, 564)
|
||||
Me.btnOP.Location = New System.Drawing.Point(681, 5)
|
||||
Me.btnOP.Name = "btnOP"
|
||||
Me.btnOP.Size = New System.Drawing.Size(24, 24)
|
||||
Me.btnOP.TabIndex = 174
|
||||
@@ -494,34 +612,34 @@ Partial Class frmKundenblatt
|
||||
'dgvOfferte
|
||||
'
|
||||
Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
|
||||
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.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||
Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle10
|
||||
Me.dgvOfferte.Location = New System.Drawing.Point(433, 37)
|
||||
Me.dgvOfferte.Name = "dgvOfferte"
|
||||
Me.dgvOfferte.ReadOnly = True
|
||||
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
|
||||
Me.dgvOfferte.Size = New System.Drawing.Size(293, 320)
|
||||
Me.dgvOfferte.TabIndex = 12
|
||||
'
|
||||
@@ -785,28 +903,28 @@ Partial Class frmKundenblatt
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
|
||||
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.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle9.ForeColor = System.Drawing.Color.Black
|
||||
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
|
||||
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.Color.Black
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle13
|
||||
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
|
||||
Me.dgvSperrliste.Name = "dgvSperrliste"
|
||||
Me.dgvSperrliste.ReadOnly = True
|
||||
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1091)
|
||||
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
|
||||
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1092)
|
||||
Me.dgvSperrliste.TabIndex = 23
|
||||
'
|
||||
'PictureBox2
|
||||
@@ -931,38 +1049,38 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
|
||||
Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
|
||||
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.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
|
||||
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
|
||||
Me.dgvSDLLeistungenFull.ReadOnly = True
|
||||
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.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
|
||||
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 907)
|
||||
Me.dgvSDLLeistungenFull.TabIndex = 5
|
||||
@@ -1274,6 +1392,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanSDLSonst._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanSDLSonst._OPEN_ORIGINAL = False
|
||||
Me.scanSDLSonst._TYPE = "PDF"
|
||||
Me.scanSDLSonst.AllowDrop = True
|
||||
Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSDLSonst.BackColor = System.Drawing.Color.White
|
||||
Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -1517,38 +1636,38 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.dgvLKW.AllowUserToAddRows = False
|
||||
Me.dgvLKW.AllowUserToDeleteRows = False
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
|
||||
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.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle16
|
||||
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
|
||||
Me.dgvLKW.Name = "dgvLKW"
|
||||
Me.dgvLKW.ReadOnly = True
|
||||
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvLKW.RowHeadersVisible = False
|
||||
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
|
||||
@@ -1778,6 +1897,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False
|
||||
Me.scanUebernahmebestätigungen._TYPE = "PDF"
|
||||
Me.scanUebernahmebestätigungen.AllowDrop = True
|
||||
Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White
|
||||
Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -1817,6 +1937,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanSonstiges._OPEN_ORIGINAL = False
|
||||
Me.scanSonstiges._TYPE = "PDF"
|
||||
Me.scanSonstiges.AllowDrop = True
|
||||
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanSonstiges.BackColor = System.Drawing.Color.White
|
||||
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -2023,6 +2144,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False
|
||||
Me.scanUSTVsonstigeDokumente._TYPE = "PDF"
|
||||
Me.scanUSTVsonstigeDokumente.AllowDrop = True
|
||||
Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White
|
||||
Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -2062,6 +2184,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanUSTVFABest._OPEN_ORIGINAL = False
|
||||
Me.scanUSTVFABest._TYPE = "PDF"
|
||||
Me.scanUSTVFABest.AllowDrop = True
|
||||
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
|
||||
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -2081,6 +2204,7 @@ Partial Class frmKundenblatt
|
||||
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
|
||||
Me.scanUSTVVollmachten._TYPE = "PDF"
|
||||
Me.scanUSTVVollmachten.AllowDrop = True
|
||||
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
|
||||
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -2252,8 +2376,8 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
|
||||
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
|
||||
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(181, 26)
|
||||
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
|
||||
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
|
||||
Me.cntxtCntxtMDM.Text = "cntxtMDM"
|
||||
'
|
||||
'ToolStripMenuItem8
|
||||
@@ -2412,6 +2536,12 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMain.ResumeLayout(False)
|
||||
Me.tbAllgemein.ResumeLayout(False)
|
||||
Me.tbAllgemein.PerformLayout()
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -2621,7 +2751,6 @@ Partial Class frmKundenblatt
|
||||
Friend WithEvents scanUSTVsonstigeDokumente As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
Friend WithEvents btnOP As Button
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents dgvOffenePosten As DataGridView
|
||||
Friend WithEvents btnReloadOP As Button
|
||||
Friend WithEvents Label11 As Label
|
||||
@@ -2629,4 +2758,10 @@ Partial Class frmKundenblatt
|
||||
Friend WithEvents lblAdressenzusatz As TextBox
|
||||
Friend WithEvents Button7 As Button
|
||||
Friend WithEvents tbFremdrechnungen As TabPage
|
||||
Friend WithEvents dgvUmsaetze As DataGridView
|
||||
Friend WithEvents txtUmsatzJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents TabControl1 As TabControl
|
||||
Friend WithEvents TabPage1 As TabPage
|
||||
Friend WithEvents TabPage2 As TabPage
|
||||
Friend WithEvents Label13 As Label
|
||||
End Class
|
||||
|
||||
@@ -2010,6 +2010,7 @@ Public Class frmKundenblatt
|
||||
Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
|
||||
If loaded Then
|
||||
initDGVOffenePosten()
|
||||
initDGVUmsatz()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2018,6 +2019,66 @@ Public Class frmKundenblatt
|
||||
f.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Sub initDGVUmsatz()
|
||||
With dgvUmsaetze
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
|
||||
Dim where = ""
|
||||
If cboFirmaFMZOLL._value <> "" Then
|
||||
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
|
||||
Else
|
||||
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
|
||||
End If
|
||||
|
||||
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
|
||||
" FROM [tblKundenumsatz] " &
|
||||
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
|
||||
If .DataSource Is Nothing Then Exit Sub
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
.Columns(0).Visible = False
|
||||
.Columns(11).Visible = False
|
||||
.Columns(1).Width = 45
|
||||
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns(2).Width = 75
|
||||
.Columns(2).DefaultCellStyle.Format = "N2"
|
||||
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
.Columns(3).Width = 75
|
||||
.Columns(3).DefaultCellStyle.Format = "N2"
|
||||
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
.Columns(4).Width = 75
|
||||
.Columns(4).DefaultCellStyle.Format = "N2"
|
||||
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
.Columns(5).Width = 55
|
||||
.Columns(5).DefaultCellStyle.Format = "N2"
|
||||
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
.Columns(6).Width = 75
|
||||
.Columns(6).DefaultCellStyle.Format = "N2"
|
||||
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
.Columns(7).Width = 60
|
||||
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns(8).Width = 55
|
||||
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns(8).HeaderText = "Rechng."
|
||||
.Columns(9).Width = 53
|
||||
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns(9).HeaderText = "Gutschr."
|
||||
.Columns(10).MinimumWidth = 65
|
||||
.Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
If .RowCount > 0 Then
|
||||
' txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
||||
'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
|
||||
If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
|
||||
txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
|
||||
End If
|
||||
Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
|
||||
Else
|
||||
txtUmsatzJahr.Text = ""
|
||||
End If
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -624,10 +624,10 @@ Public Class cATEZ_NCTS_IN
|
||||
Dim SQl As New SQL
|
||||
Shared apiSettingsloaded As Boolean = False
|
||||
|
||||
Sub New(program As String)
|
||||
Sub New(program As String, Optional errorMessage As Boolean = True)
|
||||
API = SQl.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
|
||||
If API.Rows.Count = 0 Then
|
||||
MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
|
||||
If errorMessage Then MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
|
||||
Else
|
||||
apiSettingsloaded = True
|
||||
API_STRING = API.Rows(0).Item("api_url")
|
||||
@@ -676,8 +676,8 @@ Public Class cATEZ_NCTS_IN
|
||||
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
json.UpdateString("password", API.Rows(0).Item("api_password"))
|
||||
json.UpdateString("username", API.Rows(0).Item("api_user"))
|
||||
json.UpdateString("password", API.Rows(0).Item("api_password"))
|
||||
If client_id <> "" Then json.UpdateString("client_id", client_id)
|
||||
If grant_type <> "" Then json.UpdateString("grant_type", grant_type)
|
||||
|
||||
@@ -724,6 +724,8 @@ Public Class cATEZ_NCTS_IN
|
||||
Case "NCTS" : myUri &= "/api/tds/auth/"
|
||||
Case "VAT" : myUri &= "/token" : contentType = "application/x-www-form-urlencoded"
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
Dim response = SendRequestAuthentificationToken(myUri, contentType, "POST", token, program, client_id, grant_type)
|
||||
|
||||
Reference in New Issue
Block a user