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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -375,8 +375,13 @@
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,,,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
'cVorauskasseOptions.SpeichernVermerkIDAufgehoben(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
Dim VermerkIDOld = -1
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDOld,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDOld > 0 Then
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDOld)
End If
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()

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

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmKundenblatt
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmKundenblatt
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -138,6 +138,7 @@ Partial Class frmKundenblatt
Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -215,7 +216,7 @@ Partial Class frmKundenblatt
Me.pnlInfo.Controls.Add(Me.txtInfotext)
Me.pnlInfo.Location = New System.Drawing.Point(321, 6)
Me.pnlInfo.Name = "pnlInfo"
Me.pnlInfo.Size = New System.Drawing.Size(602, 49)
Me.pnlInfo.Size = New System.Drawing.Size(602, 35)
Me.pnlInfo.TabIndex = 1
'
'txtInfotext
@@ -235,7 +236,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(1176, 620)
Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 591)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -245,7 +246,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(1170, 614)
Me.Panel4.Size = New System.Drawing.Size(1617, 585)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
@@ -255,7 +256,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(1170, 614)
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 585)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
@@ -272,7 +273,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1184, 649)
Me.tbcntrMain.Size = New System.Drawing.Size(1631, 620)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
@@ -305,7 +306,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1176, 620)
Me.tbAllgemein.Size = New System.Drawing.Size(1623, 591)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -600,7 +601,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.Size = New System.Drawing.Size(377, 576)
Me.dgvSperrliste.Size = New System.Drawing.Size(828, 481)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -654,7 +655,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(1176, 620)
Me.tbZoll.Size = New System.Drawing.Size(1623, 591)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -666,7 +667,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(1170, 614)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 585)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -674,7 +675,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(1162, 588)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 559)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -685,7 +686,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(1176, 620)
Me.tbMdm.Size = New System.Drawing.Size(1623, 591)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -697,12 +698,13 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Controls.Add(Me.tbLKW)
Me.tbcntrMDM.Controls.Add(Me.tbVERAGCard)
Me.tbcntrMDM.Controls.Add(Me.tbDokumente)
Me.tbcntrMDM.Controls.Add(Me.tbBesuchsberichte)
Me.tbcntrMDM.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrMDM.Location = New System.Drawing.Point(3, 3)
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1170, 614)
Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 585)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -714,7 +716,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(1162, 588)
Me.tbSDL.Size = New System.Drawing.Size(1609, 559)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -732,7 +734,7 @@ Partial Class frmKundenblatt
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
Me.dgvSDLLeistungenFull.ReadOnly = True
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1156, 392)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 363)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -746,7 +748,7 @@ Partial Class frmKundenblatt
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(3, 3)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(1156, 47)
Me.Panel6.Size = New System.Drawing.Size(1603, 47)
Me.Panel6.TabIndex = 178
'
'Label28
@@ -836,9 +838,9 @@ 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, 442)
Me.Panel5.Location = New System.Drawing.Point(3, 413)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1156, 143)
Me.Panel5.Size = New System.Drawing.Size(1603, 143)
Me.Panel5.TabIndex = 177
'
'Label35
@@ -1203,7 +1205,7 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(1162, 588)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
@@ -1225,7 +1227,7 @@ Partial Class frmKundenblatt
Me.tbLKW.Location = New System.Drawing.Point(4, 22)
Me.tbLKW.Name = "tbLKW"
Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
Me.tbLKW.Size = New System.Drawing.Size(1162, 588)
Me.tbLKW.Size = New System.Drawing.Size(178, 39)
Me.tbLKW.TabIndex = 4
Me.tbLKW.Text = "LKWs"
Me.tbLKW.UseVisualStyleBackColor = True
@@ -1237,7 +1239,7 @@ Partial Class frmKundenblatt
Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
Me.pnlLKWRight.Name = "pnlLKWRight"
Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.pnlLKWRight.Size = New System.Drawing.Size(850, 582)
Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
Me.pnlLKWRight.TabIndex = 2
'
'UsrCntlLKW1
@@ -1250,7 +1252,7 @@ Partial Class frmKundenblatt
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(840, 582)
Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
Me.UsrCntlLKW1.TabIndex = 0
'
'pnlLKW
@@ -1261,7 +1263,7 @@ Partial Class frmKundenblatt
Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
Me.pnlLKW.Name = "pnlLKW"
Me.pnlLKW.Size = New System.Drawing.Size(306, 582)
Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
Me.pnlLKW.TabIndex = 3
'
'dgvLKW
@@ -1278,7 +1280,7 @@ Partial Class frmKundenblatt
Me.dgvLKW.ReadOnly = True
Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 408)
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
Me.dgvLKW.TabIndex = 2
'
'pnlLKWBottom
@@ -1290,7 +1292,7 @@ Partial Class frmKundenblatt
Me.pnlLKWBottom.Controls.Add(Me.Button13)
Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 470)
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
Me.pnlLKWBottom.Name = "pnlLKWBottom"
Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
Me.pnlLKWBottom.TabIndex = 3
@@ -1654,13 +1656,23 @@ Partial Class frmKundenblatt
Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24)
Me.scanVertragVeragKd.TabIndex = 0
'
'tbBesuchsberichte
'
Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
'
'tbOfferte
'
Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1)
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(1176, 620)
Me.tbOfferte.Size = New System.Drawing.Size(1623, 591)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1672,7 +1684,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(1176, 620)
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 591)
Me.UsrCntlOfferte1.TabIndex = 0
'
'cntxtExcel
@@ -1714,7 +1726,7 @@ Partial Class frmKundenblatt
Me.lblAbfVerb.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblAbfVerb.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbfVerb.ForeColor = System.Drawing.Color.White
Me.lblAbfVerb.Location = New System.Drawing.Point(926, 78)
Me.lblAbfVerb.Location = New System.Drawing.Point(1389, 117)
Me.lblAbfVerb.Name = "lblAbfVerb"
Me.lblAbfVerb.Size = New System.Drawing.Size(242, 20)
Me.lblAbfVerb.TabIndex = 2
@@ -1761,10 +1773,10 @@ Partial Class frmKundenblatt
Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25)
Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7})
Me.mne.Location = New System.Drawing.Point(0, 42)
Me.mne.Location = New System.Drawing.Point(0, 31)
Me.mne.Name = "mne"
Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.mne.Size = New System.Drawing.Size(1184, 70)
Me.mne.Size = New System.Drawing.Size(1631, 81)
Me.mne.TabIndex = 3
Me.mne.Text = "mnue"
'
@@ -1844,22 +1856,23 @@ Partial Class frmKundenblatt
Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60)
Me.ToolStripMenuItem7.Text = "Offerte / Preise"
Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.Controls.Add(Me.pnlInfo)
Me.pnl.Controls.Add(Me.lblINAKTIV)
Me.pnl.Controls.Add(Me.mne)
Me.pnl.Controls.Add(Me.pnlInfo)
Me.pnl.Controls.Add(Me.KdSearchBox1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1184, 112)
Me.pnl.Size = New System.Drawing.Size(1631, 112)
Me.pnl.TabIndex = 0
'
'lblINAKTIV
@@ -1903,7 +1916,7 @@ Partial Class frmKundenblatt
Me.KdSearchBox1.Name = "KdSearchBox1"
Me.KdSearchBox1.nurAktive = False
Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(1184, 34)
Me.KdSearchBox1.Size = New System.Drawing.Size(1631, 34)
Me.KdSearchBox1.TabIndex = 0
Me.KdSearchBox1.TIMER_SEARCH = True
Me.KdSearchBox1.usrcntl = Nothing
@@ -1938,7 +1951,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1184, 761)
Me.ClientSize = New System.Drawing.Size(1180, 749)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)
@@ -2146,4 +2159,5 @@ Partial Class frmKundenblatt
Friend WithEvents scanHKA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents Label7 As Label
Friend WithEvents scanUebernahmebestätigungen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbBesuchsberichte As TabPage
End Class

13
SDL/kunden/frmKundenblatt.vb
View File

@@ -244,6 +244,7 @@ Public Class frmKundenblatt
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
scanSonstiges.INIT(kdNr, "KUNDENDATEN")
scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
Case "tbBesuchsberichte" : initTABBesuchsberichte()
End Select
Case "tbZoll" : initTZOLL()
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
@@ -300,6 +301,18 @@ Public Class frmKundenblatt
tbVERAGCard.Controls.Clear()
tbVERAGCard.Controls.Add(usrcntlTMP)
End Sub
Sub initTABBesuchsberichte()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
Dim usrcntlTMP As New usrCntlBesuchsberichte
' usrcntlTMP.displayFilter = False
' usrcntlTMP.onlyKdNr = True
usrcntlTMP.Dock = DockStyle.Fill
usrcntlTMP.kdnr = kdNr
tbBesuchsberichte.Controls.Clear()
tbBesuchsberichte.Controls.Add(usrcntlTMP)
End If
End Sub
Sub initTABSDLDATEN()
If False Then

20
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb generated
View File

@@ -43,6 +43,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox()
Me.cbxAVM = New System.Windows.Forms.CheckBox()
Me.cboFreigabeArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFreigabeArtExport = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SuspendLayout()
'
'cboFreigabe_SteuerbescheidBedingung
@@ -197,9 +198,9 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(278, 75)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(146, 17)
Me.CheckBox1.Size = New System.Drawing.Size(72, 17)
Me.CheckBox1.TabIndex = 54
Me.CheckBox1.Text = "E-Mail bei LKW-Freigabe:"
Me.CheckBox1.Text = "E-Mail bei"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'CheckBox2
@@ -298,11 +299,25 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.cboFreigabeArt.Size = New System.Drawing.Size(68, 21)
Me.cboFreigabeArt.TabIndex = 63
'
'cboFreigabeArtExport
'
Me.cboFreigabeArtExport._allowedValuesFreiText = Nothing
Me.cboFreigabeArtExport._allowFreiText = False
Me.cboFreigabeArtExport._value = ""
Me.cboFreigabeArtExport.Enabled = False
Me.cboFreigabeArtExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboFreigabeArtExport.FormattingEnabled = True
Me.cboFreigabeArtExport.Location = New System.Drawing.Point(348, 70)
Me.cboFreigabeArtExport.Name = "cboFreigabeArtExport"
Me.cboFreigabeArtExport.Size = New System.Drawing.Size(68, 21)
Me.cboFreigabeArtExport.TabIndex = 64
'
'usrCntlKundenAvisoMailBenachrichtigung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cboFreigabeArtExport)
Me.Controls.Add(Me.cboFreigabeArt)
Me.Controls.Add(Me.cbxAVM)
Me.Controls.Add(Me.cbxFreigabe_ABD)
@@ -352,4 +367,5 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Friend WithEvents cbxFreigabe_ABD As CheckBox
Friend WithEvents cbxAVM As CheckBox
Friend WithEvents cboFreigabeArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboFreigabeArtExport As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

13
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
View File

@@ -23,7 +23,7 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged, cboFreigabeArt.SelectedIndexChanged
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged, cboFreigabeArt.SelectedIndexChanged, cboFreigabeArtExport.SelectedIndexChanged
Try
If sender Is cbxSendungsListFreigabe Then
' cbxFreigabe_Steuerbescheid.Enabled = cbxSendungsListFreigabe.Checked
@@ -34,6 +34,7 @@
End If
If loaded Then
cboFreigabeArt.Enabled = CheckBox6.Checked
cboFreigabeArtExport.Enabled = CheckBox1.Checked
initAvisoMail()
Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
@@ -43,6 +44,7 @@
kdTmpErw.EmailAnkunft_Export = CheckBox2.Checked
kdTmpErw.EmailFreigabe_Export = CheckBox1.Checked
kdTmpErw.EmailFreigabe_Art = cboFreigabeArt._value
kdTmpErw.EmailFreigabe_Export_Art = cboFreigabeArtExport._value
kdTmpErw.EmailFreigabeSendungsListe = cbxSendungsListFreigabe.Checked
kdTmpErw.EmailFreigabe_SteuerbescheidPDF = cbxFreigabe_Steuerbescheid.Checked
@@ -92,6 +94,8 @@
CheckBox2.Checked = KUNDE_ERW.EmailAnkunft_Export
cboFreigabeArt.Enabled = CheckBox6.Checked
cboFreigabeArt.changeItem(KUNDE_ERW.EmailFreigabe_Art)
cboFreigabeArtExport.Enabled = CheckBox1.Checked
cboFreigabeArtExport.changeItem(KUNDE_ERW.EmailFreigabe_Export_Art)
End If
@@ -201,6 +205,11 @@
cboFreigabeArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Beleg", "BLG"))
If KUNDE_ERW IsNot Nothing Then cboFreigabeArt.changeItem(If(KUNDE_ERW.EmailFreigabe_Art, "FG"))
cboFreigabeArtExport.Items.Clear()
cboFreigabeArtExport.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", "FG"))
cboFreigabeArtExport.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Beleg", "BLG"))
If KUNDE_ERW IsNot Nothing Then cboFreigabeArtExport.changeItem(If(KUNDE_ERW.EmailFreigabe_Export_Art, "FG"))
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then
cbxFreigabe_Steuerbescheid.Visible = False
cboFreigabe_SteuerbescheidBedingung.Visible = False
@@ -219,7 +228,5 @@
loadEmails()
End Sub
Private Sub cboFreigabeArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFreigabeArt.SelectedIndexChanged
End Sub
End Class

41
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1630,19 +1630,40 @@ Public Class usrCntlKundenuebersicht
sender.BackgroundImage = My.Resources.wait
' Button5.Visible = False
' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
If UID IsNot Nothing Then
If UID.uid_valid Then
setKD(kdNr)
sender.BackgroundImage = My.Resources.ok
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
setKD(kdNr)
sender.BackgroundImage = My.Resources.ok
Else
sender.BackgroundImage = My.Resources.del
End If
Else
sender.BackgroundImage = My.Resources.del
sender.BackgroundImage = My.Resources.fragezeichen
End If
Else
sender.BackgroundImage = My.Resources.fragezeichen
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
'' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
'Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
'If UID IsNot Nothing Then
' If UID.uid_valid Then
' setKD(kdNr)
' sender.BackgroundImage = My.Resources.ok
' Else
' sender.BackgroundImage = My.Resources.del
' End If
'Else
' sender.BackgroundImage = My.Resources.fragezeichen
'End If
End Sub
@@ -2354,7 +2375,7 @@ Public Class usrCntlKundenuebersicht
Dim frmList As New frmKundenUIDEORI_List
Select Case typeListe
Case "UID"
Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr],[uid_UstIdKz],[uid_UstIdNr],[uid_Datum],[uid_valid],[uid_Sachbearbeiter],[uid_stufe] FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "'", "FMZOLL")
Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr] KundenNr,[uid_UstIdKz]UstIdKz,[uid_UstIdNr]UstIdNr,[uid_Datum]Datum,[uid_valid]Gültig,[uid_Sachbearbeiter]Sachbearbeiter,[uid_stufe]Stufe FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "' ORDER BY uid_Datum desc", "FMZOLL")
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("uid_id").Visible = False

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

@@ -315,6 +315,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label97 = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.btnUIDPruef = New System.Windows.Forms.Button()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -527,6 +528,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbfVerb_RechtsanwaltSeit._ShortDateNew = True
Me.txtAbfVerb_RechtsanwaltSeit._ShortDateOnly = False
Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly = False
Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly_Seconds = False
Me.txtAbfVerb_RechtsanwaltSeit._value = ""
Me.txtAbfVerb_RechtsanwaltSeit._Waehrung = False
Me.txtAbfVerb_RechtsanwaltSeit._WaehrungZeichen = True
@@ -620,6 +622,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateNew = True
Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateOnly = True
Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly = False
Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly_Seconds = False
Me.txtAbfVerb_AbfertigungsverbotSeit._value = ""
Me.txtAbfVerb_AbfertigungsverbotSeit._Waehrung = False
Me.txtAbfVerb_AbfertigungsverbotSeit._WaehrungZeichen = True
@@ -707,6 +710,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_ZollVmVom._ShortDateNew = True
Me.txtAbf_ZollVmVom._ShortDateOnly = False
Me.txtAbf_ZollVmVom._TimeOnly = False
Me.txtAbf_ZollVmVom._TimeOnly_Seconds = False
Me.txtAbf_ZollVmVom._value = ""
Me.txtAbf_ZollVmVom._Waehrung = False
Me.txtAbf_ZollVmVom._WaehrungZeichen = True
@@ -741,6 +745,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Planzahl._ShortDateNew = False
Me.txtAbf_Planzahl._ShortDateOnly = False
Me.txtAbf_Planzahl._TimeOnly = False
Me.txtAbf_Planzahl._TimeOnly_Seconds = False
Me.txtAbf_Planzahl._value = Nothing
Me.txtAbf_Planzahl._Waehrung = False
Me.txtAbf_Planzahl._WaehrungZeichen = True
@@ -772,6 +777,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Euroeinführung._ShortDateNew = True
Me.txtAbf_Euroeinführung._ShortDateOnly = False
Me.txtAbf_Euroeinführung._TimeOnly = False
Me.txtAbf_Euroeinführung._TimeOnly_Seconds = False
Me.txtAbf_Euroeinführung._value = ""
Me.txtAbf_Euroeinführung._Waehrung = False
Me.txtAbf_Euroeinführung._WaehrungZeichen = True
@@ -795,6 +801,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_ErsteAbfertigung._ShortDateNew = True
Me.txtAbf_ErsteAbfertigung._ShortDateOnly = False
Me.txtAbf_ErsteAbfertigung._TimeOnly = False
Me.txtAbf_ErsteAbfertigung._TimeOnly_Seconds = False
Me.txtAbf_ErsteAbfertigung._value = ""
Me.txtAbf_ErsteAbfertigung._Waehrung = False
Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True
@@ -1123,6 +1130,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtDebKdNr._ShortDateNew = False
Me.txtDebKdNr._ShortDateOnly = False
Me.txtDebKdNr._TimeOnly = False
Me.txtDebKdNr._TimeOnly_Seconds = False
Me.txtDebKdNr._value = ""
Me.txtDebKdNr._Waehrung = False
Me.txtDebKdNr._WaehrungZeichen = False
@@ -1157,6 +1165,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel3._ShortDateNew = False
Me.txtAbf_Zahlungsziel3._ShortDateOnly = False
Me.txtAbf_Zahlungsziel3._TimeOnly = False
Me.txtAbf_Zahlungsziel3._TimeOnly_Seconds = False
Me.txtAbf_Zahlungsziel3._value = ""
Me.txtAbf_Zahlungsziel3._Waehrung = False
Me.txtAbf_Zahlungsziel3._WaehrungZeichen = True
@@ -1180,6 +1189,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel2._ShortDateNew = False
Me.txtAbf_Zahlungsziel2._ShortDateOnly = False
Me.txtAbf_Zahlungsziel2._TimeOnly = False
Me.txtAbf_Zahlungsziel2._TimeOnly_Seconds = False
Me.txtAbf_Zahlungsziel2._value = ""
Me.txtAbf_Zahlungsziel2._Waehrung = False
Me.txtAbf_Zahlungsziel2._WaehrungZeichen = True
@@ -1225,6 +1235,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_LastschriftBis._ShortDateNew = True
Me.txtAbf_LastschriftBis._ShortDateOnly = False
Me.txtAbf_LastschriftBis._TimeOnly = False
Me.txtAbf_LastschriftBis._TimeOnly_Seconds = False
Me.txtAbf_LastschriftBis._value = ""
Me.txtAbf_LastschriftBis._Waehrung = False
Me.txtAbf_LastschriftBis._WaehrungZeichen = True
@@ -1278,6 +1289,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_LastschriftVon._ShortDateNew = True
Me.txtAbf_LastschriftVon._ShortDateOnly = False
Me.txtAbf_LastschriftVon._TimeOnly = False
Me.txtAbf_LastschriftVon._TimeOnly_Seconds = False
Me.txtAbf_LastschriftVon._value = ""
Me.txtAbf_LastschriftVon._Waehrung = False
Me.txtAbf_LastschriftVon._WaehrungZeichen = True
@@ -1439,6 +1451,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtProvAuftraggeber._ShortDateNew = False
Me.txtProvAuftraggeber._ShortDateOnly = False
Me.txtProvAuftraggeber._TimeOnly = False
Me.txtProvAuftraggeber._TimeOnly_Seconds = False
Me.txtProvAuftraggeber._value = "0"
Me.txtProvAuftraggeber._Waehrung = False
Me.txtProvAuftraggeber._WaehrungZeichen = True
@@ -1542,6 +1555,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_BankspesenMindestbetrag._ShortDateNew = False
Me.txtAbf_BankspesenMindestbetrag._ShortDateOnly = False
Me.txtAbf_BankspesenMindestbetrag._TimeOnly = False
Me.txtAbf_BankspesenMindestbetrag._TimeOnly_Seconds = False
Me.txtAbf_BankspesenMindestbetrag._value = ""
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
@@ -1565,6 +1579,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Bankspesen._ShortDateNew = False
Me.txtAbf_Bankspesen._ShortDateOnly = False
Me.txtAbf_Bankspesen._TimeOnly = False
Me.txtAbf_Bankspesen._TimeOnly_Seconds = False
Me.txtAbf_Bankspesen._value = Nothing
Me.txtAbf_Bankspesen._Waehrung = False
Me.txtAbf_Bankspesen._WaehrungZeichen = True
@@ -1589,6 +1604,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Kreditaufwendungen._ShortDateNew = False
Me.txtAbf_Kreditaufwendungen._ShortDateOnly = False
Me.txtAbf_Kreditaufwendungen._TimeOnly = False
Me.txtAbf_Kreditaufwendungen._TimeOnly_Seconds = False
Me.txtAbf_Kreditaufwendungen._value = Nothing
Me.txtAbf_Kreditaufwendungen._Waehrung = False
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
@@ -1613,6 +1629,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision._ShortDateNew = False
Me.txtAbf_Vorlageprovision._ShortDateOnly = False
Me.txtAbf_Vorlageprovision._TimeOnly = False
Me.txtAbf_Vorlageprovision._TimeOnly_Seconds = False
Me.txtAbf_Vorlageprovision._value = "0"
Me.txtAbf_Vorlageprovision._Waehrung = False
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
@@ -1637,6 +1654,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Zahlungsziel._ShortDateNew = False
Me.txtAbf_Zahlungsziel._ShortDateOnly = False
Me.txtAbf_Zahlungsziel._TimeOnly = False
Me.txtAbf_Zahlungsziel._TimeOnly_Seconds = False
Me.txtAbf_Zahlungsziel._value = ""
Me.txtAbf_Zahlungsziel._Waehrung = False
Me.txtAbf_Zahlungsziel._WaehrungZeichen = True
@@ -1745,6 +1763,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtInkasso_GemeldeterBetrag._ShortDateNew = False
Me.txtInkasso_GemeldeterBetrag._ShortDateOnly = False
Me.txtInkasso_GemeldeterBetrag._TimeOnly = False
Me.txtInkasso_GemeldeterBetrag._TimeOnly_Seconds = False
Me.txtInkasso_GemeldeterBetrag._value = ""
Me.txtInkasso_GemeldeterBetrag._Waehrung = True
Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True
@@ -1768,6 +1787,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtInkassoUebergebenAm._ShortDateNew = True
Me.txtInkassoUebergebenAm._ShortDateOnly = False
Me.txtInkassoUebergebenAm._TimeOnly = False
Me.txtInkassoUebergebenAm._TimeOnly_Seconds = False
Me.txtInkassoUebergebenAm._value = ""
Me.txtInkassoUebergebenAm._Waehrung = False
Me.txtInkassoUebergebenAm._WaehrungZeichen = True
@@ -1802,6 +1822,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_EHNr._ShortDateNew = False
Me.txtVers_EHNr._ShortDateOnly = False
Me.txtVers_EHNr._TimeOnly = False
Me.txtVers_EHNr._TimeOnly_Seconds = False
Me.txtVers_EHNr._value = ""
Me.txtVers_EHNr._Waehrung = False
Me.txtVers_EHNr._WaehrungZeichen = False
@@ -2040,6 +2061,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAnerkVersFallAb._ShortDateNew = True
Me.txtAnerkVersFallAb._ShortDateOnly = False
Me.txtAnerkVersFallAb._TimeOnly = False
Me.txtAnerkVersFallAb._TimeOnly_Seconds = False
Me.txtAnerkVersFallAb._value = ""
Me.txtAnerkVersFallAb._Waehrung = False
Me.txtAnerkVersFallAb._WaehrungZeichen = True
@@ -2063,6 +2085,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVersicherung_GemeldeterBetrag._ShortDateNew = False
Me.txtVersicherung_GemeldeterBetrag._ShortDateOnly = False
Me.txtVersicherung_GemeldeterBetrag._TimeOnly = False
Me.txtVersicherung_GemeldeterBetrag._TimeOnly_Seconds = False
Me.txtVersicherung_GemeldeterBetrag._value = ""
Me.txtVersicherung_GemeldeterBetrag._Waehrung = True
Me.txtVersicherung_GemeldeterBetrag._WaehrungZeichen = True
@@ -2086,6 +2109,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVersUebergebenOPSaldo._ShortDateNew = False
Me.txtVersUebergebenOPSaldo._ShortDateOnly = False
Me.txtVersUebergebenOPSaldo._TimeOnly = False
Me.txtVersUebergebenOPSaldo._TimeOnly_Seconds = False
Me.txtVersUebergebenOPSaldo._value = Nothing
Me.txtVersUebergebenOPSaldo._Waehrung = True
Me.txtVersUebergebenOPSaldo._WaehrungZeichen = True
@@ -2110,6 +2134,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVersicherungDeckungsquote._ShortDateNew = False
Me.txtVersicherungDeckungsquote._ShortDateOnly = False
Me.txtVersicherungDeckungsquote._TimeOnly = False
Me.txtVersicherungDeckungsquote._TimeOnly_Seconds = False
Me.txtVersicherungDeckungsquote._value = Nothing
Me.txtVersicherungDeckungsquote._Waehrung = False
Me.txtVersicherungDeckungsquote._WaehrungZeichen = True
@@ -2133,6 +2158,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAnerkVersFallAm._ShortDateNew = True
Me.txtAnerkVersFallAm._ShortDateOnly = False
Me.txtAnerkVersFallAm._TimeOnly = False
Me.txtAnerkVersFallAm._TimeOnly_Seconds = False
Me.txtAnerkVersFallAm._value = ""
Me.txtAnerkVersFallAm._Waehrung = False
Me.txtAnerkVersFallAm._WaehrungZeichen = True
@@ -2157,6 +2183,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVersicherungUebergebenAm._ShortDateNew = True
Me.txtVersicherungUebergebenAm._ShortDateOnly = False
Me.txtVersicherungUebergebenAm._TimeOnly = False
Me.txtVersicherungUebergebenAm._TimeOnly_Seconds = False
Me.txtVersicherungUebergebenAm._value = ""
Me.txtVersicherungUebergebenAm._Waehrung = False
Me.txtVersicherungUebergebenAm._WaehrungZeichen = True
@@ -2181,6 +2208,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtDeckungsstoppDatum._ShortDateNew = True
Me.txtDeckungsstoppDatum._ShortDateOnly = False
Me.txtDeckungsstoppDatum._TimeOnly = False
Me.txtDeckungsstoppDatum._TimeOnly_Seconds = False
Me.txtDeckungsstoppDatum._value = ""
Me.txtDeckungsstoppDatum._Waehrung = False
Me.txtDeckungsstoppDatum._WaehrungZeichen = True
@@ -2205,6 +2233,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_BankgarantiebetragGueltigBis._ShortDateNew = True
Me.txtVers_BankgarantiebetragGueltigBis._ShortDateOnly = False
Me.txtVers_BankgarantiebetragGueltigBis._TimeOnly = False
Me.txtVers_BankgarantiebetragGueltigBis._TimeOnly_Seconds = False
Me.txtVers_BankgarantiebetragGueltigBis._value = ""
Me.txtVers_BankgarantiebetragGueltigBis._Waehrung = False
Me.txtVers_BankgarantiebetragGueltigBis._WaehrungZeichen = True
@@ -2228,6 +2257,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_KreditlimitVon._ShortDateNew = True
Me.txtVers_KreditlimitVon._ShortDateOnly = False
Me.txtVers_KreditlimitVon._TimeOnly = False
Me.txtVers_KreditlimitVon._TimeOnly_Seconds = False
Me.txtVers_KreditlimitVon._value = ""
Me.txtVers_KreditlimitVon._Waehrung = False
Me.txtVers_KreditlimitVon._WaehrungZeichen = True
@@ -2251,6 +2281,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Saldo._ShortDateNew = False
Me.txtVers_Saldo._ShortDateOnly = False
Me.txtVers_Saldo._TimeOnly = False
Me.txtVers_Saldo._TimeOnly_Seconds = False
Me.txtVers_Saldo._value = ""
Me.txtVers_Saldo._Waehrung = True
Me.txtVers_Saldo._WaehrungZeichen = True
@@ -2273,6 +2304,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_VersicherungssummeVon._ShortDateNew = True
Me.txtVers_VersicherungssummeVon._ShortDateOnly = False
Me.txtVers_VersicherungssummeVon._TimeOnly = False
Me.txtVers_VersicherungssummeVon._TimeOnly_Seconds = False
Me.txtVers_VersicherungssummeVon._value = ""
Me.txtVers_VersicherungssummeVon._Waehrung = False
Me.txtVers_VersicherungssummeVon._WaehrungZeichen = True
@@ -2296,6 +2328,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Bankgarantiebetrag._ShortDateNew = False
Me.txtVers_Bankgarantiebetrag._ShortDateOnly = False
Me.txtVers_Bankgarantiebetrag._TimeOnly = False
Me.txtVers_Bankgarantiebetrag._TimeOnly_Seconds = False
Me.txtVers_Bankgarantiebetrag._value = ""
Me.txtVers_Bankgarantiebetrag._Waehrung = True
Me.txtVers_Bankgarantiebetrag._WaehrungZeichen = True
@@ -2318,6 +2351,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Kreditlimit._ShortDateNew = False
Me.txtVers_Kreditlimit._ShortDateOnly = False
Me.txtVers_Kreditlimit._TimeOnly = False
Me.txtVers_Kreditlimit._TimeOnly_Seconds = False
Me.txtVers_Kreditlimit._value = ""
Me.txtVers_Kreditlimit._Waehrung = True
Me.txtVers_Kreditlimit._WaehrungZeichen = True
@@ -2340,6 +2374,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_AntragssummeVon._ShortDateNew = True
Me.txtVers_AntragssummeVon._ShortDateOnly = False
Me.txtVers_AntragssummeVon._TimeOnly = False
Me.txtVers_AntragssummeVon._TimeOnly_Seconds = False
Me.txtVers_AntragssummeVon._value = ""
Me.txtVers_AntragssummeVon._Waehrung = False
Me.txtVers_AntragssummeVon._WaehrungZeichen = True
@@ -2363,6 +2398,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Versicherungssumme._ShortDateNew = False
Me.txtVers_Versicherungssumme._ShortDateOnly = False
Me.txtVers_Versicherungssumme._TimeOnly = False
Me.txtVers_Versicherungssumme._TimeOnly_Seconds = False
Me.txtVers_Versicherungssumme._value = ""
Me.txtVers_Versicherungssumme._Waehrung = True
Me.txtVers_Versicherungssumme._WaehrungZeichen = True
@@ -2385,6 +2421,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_Antragssumme._ShortDateNew = False
Me.txtVers_Antragssumme._ShortDateOnly = False
Me.txtVers_Antragssumme._TimeOnly = False
Me.txtVers_Antragssumme._TimeOnly_Seconds = False
Me.txtVers_Antragssumme._value = ""
Me.txtVers_Antragssumme._Waehrung = True
Me.txtVers_Antragssumme._WaehrungZeichen = True
@@ -2407,6 +2444,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtVers_HermesRefNr._ShortDateNew = False
Me.txtVers_HermesRefNr._ShortDateOnly = False
Me.txtVers_HermesRefNr._TimeOnly = False
Me.txtVers_HermesRefNr._TimeOnly_Seconds = False
Me.txtVers_HermesRefNr._value = ""
Me.txtVers_HermesRefNr._Waehrung = False
Me.txtVers_HermesRefNr._WaehrungZeichen = True
@@ -2486,6 +2524,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtHoechstkredit._ShortDateNew = False
Me.txtHoechstkredit._ShortDateOnly = False
Me.txtHoechstkredit._TimeOnly = False
Me.txtHoechstkredit._TimeOnly_Seconds = False
Me.txtHoechstkredit._value = ""
Me.txtHoechstkredit._Waehrung = True
Me.txtHoechstkredit._WaehrungZeichen = True
@@ -2566,6 +2605,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtBonitaetsDatum._ShortDateNew = True
Me.txtBonitaetsDatum._ShortDateOnly = False
Me.txtBonitaetsDatum._TimeOnly = False
Me.txtBonitaetsDatum._TimeOnly_Seconds = False
Me.txtBonitaetsDatum._value = ""
Me.txtBonitaetsDatum._Waehrung = False
Me.txtBonitaetsDatum._WaehrungZeichen = True
@@ -2589,6 +2629,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtBonitaet._ShortDateNew = False
Me.txtBonitaet._ShortDateOnly = False
Me.txtBonitaet._TimeOnly = False
Me.txtBonitaet._TimeOnly_Seconds = False
Me.txtBonitaet._value = ""
Me.txtBonitaet._Waehrung = False
Me.txtBonitaet._WaehrungZeichen = True
@@ -2805,6 +2846,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUStIDGeprueftAm._ShortDateNew = True
Me.txtUStIDGeprueftAm._ShortDateOnly = False
Me.txtUStIDGeprueftAm._TimeOnly = False
Me.txtUStIDGeprueftAm._TimeOnly_Seconds = False
Me.txtUStIDGeprueftAm._value = ""
Me.txtUStIDGeprueftAm._Waehrung = False
Me.txtUStIDGeprueftAm._WaehrungZeichen = True
@@ -2969,6 +3011,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_GVAusgestelltAm._ShortDateNew = True
Me.txtUSt_GVAusgestelltAm._ShortDateOnly = False
Me.txtUSt_GVAusgestelltAm._TimeOnly = False
Me.txtUSt_GVAusgestelltAm._TimeOnly_Seconds = False
Me.txtUSt_GVAusgestelltAm._value = ""
Me.txtUSt_GVAusgestelltAm._Waehrung = False
Me.txtUSt_GVAusgestelltAm._WaehrungZeichen = True
@@ -2993,6 +3036,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_GVAngefordertAm._ShortDateNew = True
Me.txtUSt_GVAngefordertAm._ShortDateOnly = False
Me.txtUSt_GVAngefordertAm._TimeOnly = False
Me.txtUSt_GVAngefordertAm._TimeOnly_Seconds = False
Me.txtUSt_GVAngefordertAm._value = ""
Me.txtUSt_GVAngefordertAm._Waehrung = False
Me.txtUSt_GVAngefordertAm._WaehrungZeichen = True
@@ -3333,6 +3377,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtEORINL._ShortDateNew = False
Me.txtEORINL._ShortDateOnly = False
Me.txtEORINL._TimeOnly = False
Me.txtEORINL._TimeOnly_Seconds = False
Me.txtEORINL._value = ""
Me.txtEORINL._Waehrung = False
Me.txtEORINL._WaehrungZeichen = True
@@ -3355,6 +3400,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtEORI._ShortDateNew = False
Me.txtEORI._ShortDateOnly = False
Me.txtEORI._TimeOnly = False
Me.txtEORI._TimeOnly_Seconds = False
Me.txtEORI._value = ""
Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True
@@ -3382,7 +3428,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label84.AutoSize = True
Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label84.Location = New System.Drawing.Point(285, 104)
Me.Label84.Location = New System.Drawing.Point(276, 104)
Me.Label84.Name = "Label84"
Me.Label84.Size = New System.Drawing.Size(66, 13)
Me.Label84.TabIndex = 8
@@ -3412,6 +3458,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_Steuernummer._ShortDateNew = False
Me.txtUSt_Steuernummer._ShortDateOnly = False
Me.txtUSt_Steuernummer._TimeOnly = False
Me.txtUSt_Steuernummer._TimeOnly_Seconds = False
Me.txtUSt_Steuernummer._value = Nothing
Me.txtUSt_Steuernummer._Waehrung = False
Me.txtUSt_Steuernummer._WaehrungZeichen = True
@@ -3434,17 +3481,18 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_UstIdNrGeprueftAm._ShortDateNew = True
Me.txtUSt_UstIdNrGeprueftAm._ShortDateOnly = False
Me.txtUSt_UstIdNrGeprueftAm._TimeOnly = False
Me.txtUSt_UstIdNrGeprueftAm._TimeOnly_Seconds = False
Me.txtUSt_UstIdNrGeprueftAm._value = ""
Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False
Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True
Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red
Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(357, 101)
Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(345, 101)
Me.txtUSt_UstIdNrGeprueftAm.MaxLength = 10
Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1
Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = ""
Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning_Label = Nothing
Me.txtUSt_UstIdNrGeprueftAm.Name = "txtUSt_UstIdNrGeprueftAm"
Me.txtUSt_UstIdNrGeprueftAm.Size = New System.Drawing.Size(87, 20)
Me.txtUSt_UstIdNrGeprueftAm.Size = New System.Drawing.Size(73, 20)
Me.txtUSt_UstIdNrGeprueftAm.TabIndex = 9
Me.txtUSt_UstIdNrGeprueftAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
@@ -3457,6 +3505,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_UstIdNr._ShortDateNew = False
Me.txtUSt_UstIdNr._ShortDateOnly = False
Me.txtUSt_UstIdNr._TimeOnly = False
Me.txtUSt_UstIdNr._TimeOnly_Seconds = False
Me.txtUSt_UstIdNr._value = Nothing
Me.txtUSt_UstIdNr._Waehrung = False
Me.txtUSt_UstIdNr._WaehrungZeichen = True
@@ -3467,12 +3516,13 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_UstIdNr.MaxLines_Warning = ""
Me.txtUSt_UstIdNr.MaxLines_Warning_Label = Nothing
Me.txtUSt_UstIdNr.Name = "txtUSt_UstIdNr"
Me.txtUSt_UstIdNr.Size = New System.Drawing.Size(125, 20)
Me.txtUSt_UstIdNr.Size = New System.Drawing.Size(120, 20)
Me.txtUSt_UstIdNr.TabIndex = 7
Me.txtUSt_UstIdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.btnUIDPruef)
Me.GroupBox3.Controls.Add(Me.txtEORINL)
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.txtEORI)
@@ -4052,6 +4102,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtERROR._ShortDateNew = False
Me.txtERROR._ShortDateOnly = False
Me.txtERROR._TimeOnly = False
Me.txtERROR._TimeOnly_Seconds = False
Me.txtERROR._value = ""
Me.txtERROR._Waehrung = False
Me.txtERROR._WaehrungZeichen = True
@@ -4186,6 +4237,19 @@ Partial Class usrcntlKundeBearbeitenFull
Me.CheckBox1.Text = "zuvor speichern"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'btnUIDPruef
'
Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUIDPruef.FlatAppearance.BorderSize = 0
Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUIDPruef.Location = New System.Drawing.Point(419, 101)
Me.btnUIDPruef.Name = "btnUIDPruef"
Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20)
Me.btnUIDPruef.TabIndex = 15
Me.btnUIDPruef.UseVisualStyleBackColor = True
Me.btnUIDPruef.Visible = False
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4555,4 +4619,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label97 As Label
Friend WithEvents Button4 As Button
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents btnUIDPruef As Button
End Class

46
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -56,6 +56,7 @@ Public Class usrcntlKundeBearbeitenFull
End Select
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
@@ -110,6 +111,9 @@ Public Class usrcntlKundeBearbeitenFull
End If
pnlNeukunde.Visible = True
btnUIDPruef.Visible = False
Else
btnUIDPruef.Visible = True
End If
@@ -661,6 +665,7 @@ Public Class usrcntlKundeBearbeitenFull
If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
If usrCntlAufschubkonten.SAVE() Then
pnlNeukunde.Visible = False
btnUIDPruef.Visible = True
RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
init(KUNDE.KundenNr)
End If
@@ -1332,5 +1337,46 @@ Public Class usrcntlKundeBearbeitenFull
End If
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
If ADRESSE.AdressenNr <= 0 Then Exit Sub
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
If ADRESSE.UstIdNr = "" Then Exit Sub
sender.BackgroundImage = My.Resources.wait
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
init(ADRESSE.AdressenNr)
sender.BackgroundImage = My.Resources.ok
Else
sender.BackgroundImage = My.Resources.del
End If
Else
sender.BackgroundImage = My.Resources.fragezeichen
End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
' ' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
'Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
'If UID IsNot Nothing Then
' If UID.uid_valid Then
' init(ADRESSE.AdressenNr)
' sender.BackgroundImage = My.Resources.ok
' Else
' sender.BackgroundImage = My.Resources.del
' End If
'Else
' sender.BackgroundImage = My.Resources.fragezeichen
'End If
End Sub
End Class