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 End Function
Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO" AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO"
End If End If
@@ -513,7 +515,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & 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) " 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("Auftraggeber", "VermittlerKundenNr"))
cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AvisiererKundenNr")) cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AvisiererKundenNr"))
@@ -627,7 +629,7 @@ Public Class usrCntlSpeditionsBuchSuche
' Next ' Next
'End Sub '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 For i = 0 To MyListBox1.Items.Count - 1
MyListBox1.SetSelected(i, False) MyListBox1.SetSelected(i, False)
Next Next
@@ -639,7 +641,7 @@ Public Class usrCntlSpeditionsBuchSuche
Next Next
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
For i = 0 To MyListBox1.Items.Count - 1 For i = 0 To MyListBox1.Items.Count - 1
MyListBox1.SetSelected(i, True) MyListBox1.SetSelected(i, True)
Next Next
@@ -895,13 +897,13 @@ Public Class usrCntlSpeditionsBuchSuche
DateTimePicker1.Value = srcTAG DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute" btnToday.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern" btnToday.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern" btnToday.Text = "Vorgestern"
Else Else
Button5.Text = srcTAG.ToString("dd.MM") btnToday.Text = srcTAG.ToString("dd.MM")
End If End If
'End If 'End If
@@ -936,7 +938,7 @@ Public Class usrCntlSpeditionsBuchSuche
initBtns("Jahr") initBtns("Jahr")
End Sub 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 Try
SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed
@@ -949,10 +951,10 @@ Public Class usrCntlSpeditionsBuchSuche
SplitContainer.SplitterDistance += 200 SplitContainer.SplitterDistance += 200
End If End If
If Button4.Image Is SDL.My.Resources.Resources.pfeil_unten Then If btnDetailsuche.Image Is SDL.My.Resources.Resources.pfeil_unten Then
Button4.Image = SDL.My.Resources.Resources.pfeil_oben btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_oben
Else Else
Button4.Image = SDL.My.Resources.Resources.pfeil_unten btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_unten
End If End If
Catch ex As Exception Catch ex As Exception
@@ -975,7 +977,7 @@ Public Class usrCntlSpeditionsBuchSuche
initBtns("Tag") initBtns("Tag")
End Sub 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") initBtns("Tag")
End Sub End Sub
@@ -2325,7 +2327,7 @@ Public Class usrCntlSpeditionsBuchSuche
End If End If
End Sub 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") Dim dt = SQL.loadDgvBySql("SELECT Abfertigungsart FROM [Abfertigungsarten] where isAbfertigung=1", "FMZOLL")
MyListBox1.ClearSelected() MyListBox1.ClearSelected()
If dt IsNot Nothing Then 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.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten" Me.tbFirmendaten.Text = "Firmendaten"
' '
@@ -284,7 +284,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4" 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 Me.Panel4.TabIndex = 0
' '
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
@@ -294,7 +294,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" 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 Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
' '
'tbcntrMain 'tbcntrMain
@@ -845,7 +845,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll" Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 9
Me.tbZoll.Text = "ZOLL" Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True Me.tbZoll.UseVisualStyleBackColor = True
@@ -857,7 +857,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0 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 Me.tbcntrZOLL.TabIndex = 0
' '
'tabZoll_Artikel 'tabZoll_Artikel
@@ -865,7 +865,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -876,7 +876,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm" Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 10
Me.tbMdm.Text = "MDM" Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True Me.tbMdm.UseVisualStyleBackColor = True
@@ -894,7 +894,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0 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 Me.tbcntrMDM.TabIndex = 0
' '
'tbSDL 'tbSDL
@@ -906,7 +906,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL" Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True Me.tbSDL.UseVisualStyleBackColor = True
@@ -948,7 +948,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect 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 Me.dgvSDLLeistungenFull.TabIndex = 5
' '
'Panel6 'Panel6
@@ -1052,7 +1052,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom 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.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177 Me.Panel5.TabIndex = 177
@@ -1916,7 +1916,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte" 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.TabIndex = 11
Me.tbOfferte.Text = "Offerte" Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1928,7 +1928,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" 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 Me.UsrCntlOfferte1.TabIndex = 0
' '
'tbUSTV 'tbUSTV
@@ -1936,7 +1936,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV" 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.TabIndex = 12
Me.tbUSTV.Text = "USTV" Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1950,7 +1950,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0 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 Me.tbcntrUSTV.TabIndex = 1
' '
'tbUSTVDokumente 'tbUSTVDokumente
@@ -1963,7 +1963,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente" 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.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2216,7 +2216,7 @@ Partial Class frmKundenblatt
' '
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" 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.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM" Me.cntxtCntxtMDM.Text = "cntxtMDM"
' '

2
SDL/kunden/frmKundenblatt.vb
View File

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

197
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -20,6 +20,7 @@ Public Class usrcntlKundeBearbeitenFull
Public Event KD_SAVED(kdnr) Public Event KD_SAVED(kdnr)
Dim FUNC As New cProgramFunctions Dim FUNC As New cProgramFunctions
Dim isVerag360 As Boolean = False
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing ' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
Sub New() Sub New()
@@ -60,6 +61,8 @@ Public Class usrcntlKundeBearbeitenFull
FISKAL = New cFiskal_Daten(kdnr) FISKAL = New cFiskal_Daten(kdnr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(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! cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -67,65 +70,21 @@ Public Class usrcntlKundeBearbeitenFull
cbxFiBuLG.Visible = True cbxFiBuLG.Visible = True
End Select 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 If ADRESSE.AdressenNr <= 0 Then
KUNDE_ERW.kde_BesonderheitenNeu = 1 KUNDE_ERW.kde_BesonderheitenNeu = 1
cboKundenkreis.Items.Clear() 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 initKundennummernkreise()
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
pnlNeukunde.Visible = True pnlNeukunde.Visible = True
btnUIDPruef.Visible = False btnUIDPruef.Visible = False
@@ -133,11 +92,11 @@ Public Class usrcntlKundeBearbeitenFull
btnUIDPruef.Visible = True btnUIDPruef.Visible = True
End If 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")) If Not cboKundenkreis.hasItem("3000000-3099990") Then cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
End If 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")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 9900000-9999999: FRONT-OFFICE - Kunden", "9900000-9999999"))
End If End If
@@ -152,7 +111,7 @@ Public Class usrcntlKundeBearbeitenFull
'USRCNTL_FISK.Dock = DockStyle.Fill 'USRCNTL_FISK.Dock = DockStyle.Fill
'tbFiskal.Controls.Add(USRCNTL_FISK) 'tbFiskal.Controls.Add(USRCNTL_FISK)
checkEORI_Aufschub() If Not isVerag360 Then checkEORI_Aufschub()
' ----- Adressdaten ----- ' ----- Adressdaten -----
lblKundennr.Text = If(ADRESSE.AdressenNr > 0, ADRESSE.AdressenNr, "-") lblKundennr.Text = If(ADRESSE.AdressenNr > 0, ADRESSE.AdressenNr, "-")
@@ -414,6 +373,87 @@ Public Class usrcntlKundeBearbeitenFull
Return retValue Return retValue
End Function 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 Function loadDataInKdAd() As Boolean
If ADRESSE.AdressenNr <= 0 Then 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 "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "900000-999999" : cbxFiBu.Checked = False : 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 "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") 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 Select
End If End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA If Not isVerag360 Then
Case "VERAG" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If cboKundenkreis._value = "100000-199999" Then Case "VERAG"
cboFiliale.changeItem("4801") If cboKundenkreis._value = "100000-199999" Then
ElseIf cboKundenkreis._value = "1000000-1099999" Then cboFiliale.changeItem("4801")
cboFiliale.changeItem("5501") ElseIf cboKundenkreis._value = "1000000-1099999" Then
Else cboFiliale.changeItem("5501")
If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803") Else
End If If cboFiliale._value = "4801" Then cboFiliale.changeItem("4803")
End If
End Select
End If
End Select
End Sub End Sub
Dim selCheck = True Dim selCheck = True

2
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1311,7 +1311,7 @@ Public Class cFormularManager
Exit Sub Exit Sub
End If End If
If Not printerPaperSizeA4 Then If False Then 'Not printerPaperSizeA4
MsgBox("Der ermittelte Drucker " & printerName & " unterstützt keinen A4 Ausdrucke!" & vbNewLine & "Vorang wird abgebrochen!") MsgBox("Der ermittelte Drucker " & printerName & " unterstützt keinen A4 Ausdrucke!" & vbNewLine & "Vorang wird abgebrochen!")
Exit Sub Exit Sub
End If End If