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

Druckerermittlung, Spedistionsbuchübersetzung, Kunendatenblatt für Verag360

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 16:46:57 +02:00
parent 71b8a93063
commit 6c662876da
7 changed files with 587 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

675
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

28
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -344,6 +344,8 @@ Public Class usrCntlSpeditionsBuchSuche
End Function
Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO"
End If
@@ -513,7 +515,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [tblMitarbeiter] WHERE mit_firma IN ('VERIMEX') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
Button4.PerformClick()
btnDetailsuche.PerformClick()
cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "VermittlerKundenNr"))
cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AvisiererKundenNr"))
@@ -627,7 +629,7 @@ Public Class usrCntlSpeditionsBuchSuche
' Next
'End Sub
'
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnKeine.Click
For i = 0 To MyListBox1.Items.Count - 1
MyListBox1.SetSelected(i, False)
Next
@@ -639,7 +641,7 @@ Public Class usrCntlSpeditionsBuchSuche
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
For i = 0 To MyListBox1.Items.Count - 1
MyListBox1.SetSelected(i, True)
Next
@@ -895,13 +897,13 @@ Public Class usrCntlSpeditionsBuchSuche
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute"
btnToday.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern"
btnToday.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern"
btnToday.Text = "Vorgestern"
Else
Button5.Text = srcTAG.ToString("dd.MM")
btnToday.Text = srcTAG.ToString("dd.MM")
End If
'End If
@@ -936,7 +938,7 @@ Public Class usrCntlSpeditionsBuchSuche
initBtns("Jahr")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click
Try
SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed
@@ -949,10 +951,10 @@ Public Class usrCntlSpeditionsBuchSuche
SplitContainer.SplitterDistance += 200
End If
If Button4.Image Is SDL.My.Resources.Resources.pfeil_unten Then
Button4.Image = SDL.My.Resources.Resources.pfeil_oben
If btnDetailsuche.Image Is SDL.My.Resources.Resources.pfeil_unten Then
btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_oben
Else
Button4.Image = SDL.My.Resources.Resources.pfeil_unten
btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_unten
End If
Catch ex As Exception
@@ -975,7 +977,7 @@ Public Class usrCntlSpeditionsBuchSuche
initBtns("Tag")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnToday.Click
initBtns("Tag")
End Sub
@@ -2325,7 +2327,7 @@ Public Class usrCntlSpeditionsBuchSuche
End If
End Sub
Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles btnNurAbf.Click
Dim dt = SQL.loadDgvBySql("SELECT Abfertigungsart FROM [Abfertigungsarten] where isAbfertigung=1", "FMZOLL")
MyListBox1.ClearSelected()
If dt IsNot Nothing Then

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

@@ -274,7 +274,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 897)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 914)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -284,7 +284,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1624, 891)
Me.Panel4.Size = New System.Drawing.Size(1624, 908)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
@@ -294,7 +294,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 891)
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 908)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
@@ -845,7 +845,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1630, 897)
Me.tbZoll.Size = New System.Drawing.Size(1630, 914)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -857,7 +857,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 891)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 908)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -865,7 +865,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 865)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 882)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -876,7 +876,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1630, 897)
Me.tbMdm.Size = New System.Drawing.Size(1630, 914)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -894,7 +894,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 891)
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 908)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -906,7 +906,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1616, 865)
Me.tbSDL.Size = New System.Drawing.Size(1616, 882)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -948,7 +948,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 669)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 686)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -1052,7 +1052,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 719)
Me.Panel5.Location = New System.Drawing.Point(3, 736)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177
@@ -1916,7 +1916,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1630, 897)
Me.tbOfferte.Size = New System.Drawing.Size(1630, 914)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1928,7 +1928,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 897)
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 914)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
@@ -1936,7 +1936,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1630, 897)
Me.tbUSTV.Size = New System.Drawing.Size(1630, 914)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1950,7 +1950,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 897)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 914)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -1963,7 +1963,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 871)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 888)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2216,7 +2216,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'

2
SDL/kunden/frmKundenblatt.vb
View File

@@ -142,7 +142,7 @@ Public Class frmKundenblatt
TabControl1_TabIndexChanged(tbcntrMain, New EventArgs)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
KdSearchBox1.KdNr = kdNr ' Ruft initKUNDE auf

130
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -258,7 +258,10 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label91 = New System.Windows.Forms.Label()
Me.Label92 = New System.Windows.Forms.Label()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Label33 = New System.Windows.Forms.Label()
Me.tbZahlungsinfo = New System.Windows.Forms.TabPage()
Me.Label102 = New System.Windows.Forms.Label()
Me.rtb_Zahlungsinfo = New System.Windows.Forms.RichTextBox()
Me.lblEORI = New System.Windows.Forms.Label()
Me.Label84 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
@@ -339,9 +342,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.tbZahlungsinfo = New System.Windows.Forms.TabPage()
Me.rtb_Zahlungsinfo = New System.Windows.Forms.RichTextBox()
Me.Label102 = New System.Windows.Forms.Label()
Me.lblHandelregisterNr = New System.Windows.Forms.Label()
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -367,6 +369,7 @@ Partial Class usrcntlKundeBearbeitenFull
CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbSchnittstellen.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbZahlungsinfo.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
@@ -374,7 +377,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage10.SuspendLayout()
Me.TabPage11.SuspendLayout()
Me.pnlNeukunde.SuspendLayout()
Me.tbZahlungsinfo.SuspendLayout()
Me.SuspendLayout()
'
'tbcntrDetails
@@ -3590,15 +3592,44 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridView1.Size = New System.Drawing.Size(657, 358)
Me.DataGridView1.TabIndex = 22
'
'Label33
'tbZahlungsinfo
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(8, 161)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(78, 13)
Me.Label33.TabIndex = 12
Me.Label33.Text = "EORI / NL-Nr.:"
Me.tbZahlungsinfo.Controls.Add(Me.Label102)
Me.tbZahlungsinfo.Controls.Add(Me.rtb_Zahlungsinfo)
Me.tbZahlungsinfo.Location = New System.Drawing.Point(4, 22)
Me.tbZahlungsinfo.Name = "tbZahlungsinfo"
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 458)
Me.tbZahlungsinfo.TabIndex = 11
Me.tbZahlungsinfo.Text = "Zahlungsinfo"
Me.tbZahlungsinfo.UseVisualStyleBackColor = True
'
'Label102
'
Me.Label102.AutoSize = True
Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label102.Location = New System.Drawing.Point(3, 18)
Me.Label102.Name = "Label102"
Me.Label102.Size = New System.Drawing.Size(66, 13)
Me.Label102.TabIndex = 132
Me.Label102.Text = "Zahlunginfo:"
'
'rtb_Zahlungsinfo
'
Me.rtb_Zahlungsinfo.Location = New System.Drawing.Point(6, 35)
Me.rtb_Zahlungsinfo.Name = "rtb_Zahlungsinfo"
Me.rtb_Zahlungsinfo.Size = New System.Drawing.Size(660, 412)
Me.rtb_Zahlungsinfo.TabIndex = 40
Me.rtb_Zahlungsinfo.Text = ""
'
'lblEORI
'
Me.lblEORI.AutoSize = True
Me.lblEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEORI.Location = New System.Drawing.Point(8, 161)
Me.lblEORI.Name = "lblEORI"
Me.lblEORI.Size = New System.Drawing.Size(78, 13)
Me.lblEORI.TabIndex = 12
Me.lblEORI.Text = "EORI / NL-Nr.:"
'
'Label84
'
@@ -3612,6 +3643,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr)
Me.GroupBox3.Controls.Add(Me.PictureBox5)
Me.GroupBox3.Controls.Add(Me.Label100)
Me.GroupBox3.Controls.Add(Me.txtAdresseZusatz)
@@ -3622,7 +3654,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Controls.Add(Me.txtEORINL)
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.txtEORI)
Me.GroupBox3.Controls.Add(Me.Label33)
Me.GroupBox3.Controls.Add(Me.lblEORI)
Me.GroupBox3.Controls.Add(Me.txtFirmenname1)
Me.GroupBox3.Controls.Add(Me.cboUSt_UstIdNrLand)
Me.GroupBox3.Controls.Add(Me.Label15)
@@ -3634,6 +3666,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Controls.Add(Me.Label16)
Me.GroupBox3.Controls.Add(Me.txtUSt_Steuernummer)
Me.GroupBox3.Controls.Add(Me.Label84)
Me.GroupBox3.Controls.Add(Me.lblHandelregisterNr)
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
@@ -4087,9 +4120,9 @@ Partial Class usrcntlKundeBearbeitenFull
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(3, 123)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(39, 13)
Me.Label13.Size = New System.Drawing.Size(48, 13)
Me.Label13.TabIndex = 8
Me.Label13.Text = "E-Mail:"
Me.Label13.Text = "E-Mail 2:"
'
'Label11
'
@@ -4563,34 +4596,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'tbZahlungsinfo
'lblHandelregisterNr
'
Me.tbZahlungsinfo.Controls.Add(Me.Label102)
Me.tbZahlungsinfo.Controls.Add(Me.rtb_Zahlungsinfo)
Me.tbZahlungsinfo.Location = New System.Drawing.Point(4, 22)
Me.tbZahlungsinfo.Name = "tbZahlungsinfo"
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 458)
Me.tbZahlungsinfo.TabIndex = 11
Me.tbZahlungsinfo.Text = "Zahlungsinfo"
Me.tbZahlungsinfo.UseVisualStyleBackColor = True
Me.lblHandelregisterNr.AutoSize = True
Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHandelregisterNr.Location = New System.Drawing.Point(6, 161)
Me.lblHandelregisterNr.Name = "lblHandelregisterNr"
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
Me.lblHandelregisterNr.TabIndex = 132
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
Me.lblHandelregisterNr.Visible = False
'
'rtb_Zahlungsinfo
'txtHandelsregisterNr
'
Me.rtb_Zahlungsinfo.Location = New System.Drawing.Point(6, 35)
Me.rtb_Zahlungsinfo.Name = "rtb_Zahlungsinfo"
Me.rtb_Zahlungsinfo.Size = New System.Drawing.Size(660, 412)
Me.rtb_Zahlungsinfo.TabIndex = 40
Me.rtb_Zahlungsinfo.Text = ""
'
'Label102
'
Me.Label102.AutoSize = True
Me.Label102.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label102.Location = New System.Drawing.Point(3, 18)
Me.Label102.Name = "Label102"
Me.Label102.Size = New System.Drawing.Size(66, 13)
Me.Label102.TabIndex = 132
Me.Label102.Text = "Zahlunginfo:"
Me.txtHandelsregisterNr._DateTimeOnly = False
Me.txtHandelsregisterNr._numbersOnly = False
Me.txtHandelsregisterNr._numbersOnlyKommastellen = ""
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True
Me.txtHandelsregisterNr._Prozent = False
Me.txtHandelsregisterNr._ShortDateNew = False
Me.txtHandelsregisterNr._ShortDateOnly = False
Me.txtHandelsregisterNr._TimeOnly = False
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
Me.txtHandelsregisterNr._value = ""
Me.txtHandelsregisterNr._Waehrung = False
Me.txtHandelsregisterNr._WaehrungZeichen = True
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 158)
Me.txtHandelsregisterNr.MaxLength = 17
Me.txtHandelsregisterNr.MaxLineLength = -1
Me.txtHandelsregisterNr.MaxLines_Warning = ""
Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(333, 20)
Me.txtHandelsregisterNr.TabIndex = 133
Me.txtHandelsregisterNr.Visible = False
'
'usrcntlKundeBearbeitenFull
'
@@ -4666,6 +4706,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSchnittstellen.ResumeLayout(False)
Me.tbSchnittstellen.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbZahlungsinfo.ResumeLayout(False)
Me.tbZahlungsinfo.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
@@ -4677,8 +4719,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.ResumeLayout(False)
Me.pnlNeukunde.ResumeLayout(False)
Me.pnlNeukunde.PerformLayout()
Me.tbZahlungsinfo.ResumeLayout(False)
Me.tbZahlungsinfo.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -4889,7 +4929,7 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents txtVersUebergebenOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents tbAufschub As System.Windows.Forms.TabPage
Friend WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label33 As System.Windows.Forms.Label
Friend WithEvents lblEORI As System.Windows.Forms.Label
Friend WithEvents usrCntlAufschubkonten As SDL.usrCntlAufschubkonten
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label28 As System.Windows.Forms.Label
@@ -4987,4 +5027,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents tbZahlungsinfo As TabPage
Friend WithEvents Label102 As Label
Friend WithEvents rtb_Zahlungsinfo As RichTextBox
Friend WithEvents txtHandelsregisterNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHandelregisterNr As Label
End Class

197
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -20,6 +20,7 @@ Public Class usrcntlKundeBearbeitenFull
Public Event KD_SAVED(kdnr)
Dim FUNC As New cProgramFunctions
Dim isVerag360 As Boolean = False
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
Sub New()
@@ -60,6 +61,8 @@ Public Class usrcntlKundeBearbeitenFull
FISKAL = New cFiskal_Daten(kdnr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -67,65 +70,21 @@ Public Class usrcntlKundeBearbeitenFull
cbxFiBuLG.Visible = True
End Select
txtEORI.Visible = Not isVerag360
txtEORINL.Visible = Not isVerag360
lblEORI.Visible = Not isVerag360
txtHandelsregisterNr.Visible = isVerag360
lblHandelregisterNr.Visible = isVerag360
If ADRESSE.AdressenNr <= 0 Then
KUNDE_ERW.kde_BesonderheitenNeu = 1
cboKundenkreis.Items.Clear()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
cboKundenkreis.changeItem("1080000-1099990")
Case "UNISPED"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
cboKundenkreis.changeItem("2000000-2099990")
Case "AMBAR"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
cboKundenkreis.changeItem("3000000-3099990")
KUNDE.Zahlungsziel = 0
ADRESSE.Rechnungsdruck = 2
Case "ATILLA"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
cboKundenkreis.changeItem("100000-199999")
Case Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
End If
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
cboKundenkreis.changeItem("728000-799999")
End Select
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2800000-2899999: UNISPED BREXIT", "2800000-2899999"))
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
End If
initKundennummernkreise()
pnlNeukunde.Visible = True
btnUIDPruef.Visible = False
@@ -133,11 +92,11 @@ Public Class usrcntlKundeBearbeitenFull
btnUIDPruef.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" And Not isVerag360 Then
If Not cboKundenkreis.hasItem("3000000-3099990") Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" And Not isVerag360 Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
End If
@@ -152,7 +111,7 @@ Public Class usrcntlKundeBearbeitenFull
'USRCNTL_FISK.Dock = DockStyle.Fill
'tbFiskal.Controls.Add(USRCNTL_FISK)
checkEORI_Aufschub()
If Not isVerag360 Then checkEORI_Aufschub()
' ----- Adressdaten -----
lblKundennr.Text = If(ADRESSE.AdressenNr > 0, ADRESSE.AdressenNr, "-")
@@ -414,6 +373,87 @@ Public Class usrcntlKundeBearbeitenFull
Return retValue
End Function
Sub initKundennummernkreise()
If isVerag360 Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: TR - KUNDEN", "100000-199999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 130000-139999: 360 TR - KUNDEN", "130000-139999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 150000-159999: 360 RMC - KUNDEN", "150000-159999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 140000-149999: 360 DURMAZ - KUNDEN", "140000-149999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 160000-169999: AT - KUNDEN", "160000-169999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 200000-299999: RO - KUNDEN", "200000-299999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 300000-302999: BG - KUNDEN", "300000-302999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 303000-303999: DE - KUNDEN", "303000-303999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 400000-499999: YU - KUNDEN", "400000-499999"))
Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
cboKundenkreis.changeItem("1080000-1099990")
Case "UNISPED"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
cboKundenkreis.changeItem("2000000-2099990")
Case "AMBAR"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
cboKundenkreis.changeItem("3000000-3099990")
KUNDE.Zahlungsziel = 0
ADRESSE.Rechnungsdruck = 2
Case "ATILLA"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
cboKundenkreis.changeItem("100000-199999")
Case Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
End If
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 500000-599999: EV - Kunden", "500000-599999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 5-stellig: Fiskal (keine Abrechnung)", "30000-49999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: XXXXXX", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 800000-899999: BREXIT", "800000-899999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1080000-1099990"))
cboKundenkreis.changeItem("728000-799999")
End Select
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2800000-2899999: UNISPED BREXIT", "2800000-2899999"))
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
End If
End If
End Sub
Function loadDataInKdAd() As Boolean
If ADRESSE.AdressenNr <= 0 Then
@@ -1263,23 +1303,44 @@ Public Class usrcntlKundeBearbeitenFull
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "900000-999999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "800000-899999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "100000-199999" : cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "9900000-9999999" : cbxFiBu.Checked = False : cboFirma.changeItem("17") : cboFiliale.changeItem("5801")
'--------------------- VERAG360----------------------------
Case "400000-499999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "200000-299999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "160000-169999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "303000-303999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "130000-139999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "150000-159999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "140000-149999" : cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Case "100000-199999"
If isVerag360 Then
cbxFiBu.Checked = False : cboFirma.changeItem("19") : cboFiliale.changeItem("8001")
Else
cbxFiBu.Checked = False : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
End If
End Select
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
If cboKundenkreis._value = "100000-199999" Then
cboFiliale.changeItem("4801")
ElseIf cboKundenkreis._value = "1000000-1099999" Then
cboFiliale.changeItem("5501")
Else
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
End If
If Not isVerag360 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
If cboKundenkreis._value = "100000-199999" Then
cboFiliale.changeItem("4801")
ElseIf cboKundenkreis._value = "1000000-1099999" Then
cboFiliale.changeItem("5501")
Else
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
End If
End Select
End If
End Select
End Sub
Dim selCheck = True