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

Kundenuebersicht etc.

Browse Source
This commit is contained in:
d.breimaier
2026-11-11 10:22:14 +01:00
parent 104287f89b
commit a5e1bd9672
15 changed files with 10729 additions and 2588 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/SDL.vbproj
View File

@@ -1219,6 +1219,12 @@
<Compile Include="kunden\usrcntlFiskaluebersicht.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.Designer.vb">
<DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrcntlKundeBearbeitenFull_SDL.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</Compile>
@@ -3892,6 +3898,9 @@
<EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrcntlKundeBearbeitenFull_SDL.resx">
<DependentUpon>usrcntlKundeBearbeitenFull_SDL.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>

6
SDL/kunden/Berichte/rptKundeUebersicht.vb
View File

@@ -1,6 +1,3 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptKundeUebersicht
Dim Firma_ID = "1"
@@ -41,6 +38,9 @@ Public Class rptKundeUebersicht
Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
If Firma_ID = 19 Then
Me.picVERAG.Image = My.Resources.VERAG_360 : Me.Label28.Text = "VERAG 360 GmbH"
End If
End Select

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

File diff suppressed because it is too large Load Diff

154
SDL/kunden/frmKundenblatt.vb
View File

@@ -8,7 +8,6 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmKundenblatt
' Public superuser As Boolean = False
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public kdNr As Integer
Public FilialeNr As Integer = -1
@@ -16,24 +15,16 @@ Public Class frmKundenblatt
Private bindingLKW As New BindingSource
Private dataAdapterLKW As New SqlDataAdapter
Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
' Dim KUNDE As cKunde = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
' Private dataAdapterFirma As New SqlDataAdapter
' Private dataFirma As New DataTable
'Private bindingFirma As New BindingSource
Public showEdit As Boolean = False
Private bindingSDL As New BindingSource
Private dataAdapterSDL As New SqlDataAdapter
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
' Dim acd As List(Of cAutoCompleteData) = kundenSQL.getKundenShort()
Private loaded As Boolean = False
Dim gridReady As Boolean = True
@@ -120,9 +111,6 @@ Public Class frmKundenblatt
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True)
End If
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
@@ -192,6 +180,10 @@ Public Class frmKundenblatt
If isVerag360 Then
ToolStripMenuItem5.Visible = False
Else
ToolStripMenuItem7.Visible = False
ToolStripMenuItem4.Visible = False
ToolStripMenuItem8.Visible = False
End If
loaded = True
@@ -263,7 +255,7 @@ Public Class frmKundenblatt
lblBonitaet.Text = If(KUNDE.Bonität, "")
Else
UsrcntlKundeBearbeitenFull1.Enabled = False
'UsrcntlKundeBearbeitenFull1.Enabled = False
tbcntrMain.TabPages(2).Enabled = True
initTABSDL_Firmendaten()
@@ -362,21 +354,62 @@ Public Class frmKundenblatt
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
tbcntrMain.TabPages(1).Enabled = False
' cProgramFunctions.setAllReadOnly(Panel4)
Else
tbcntrMain.TabPages(1).Enabled = True
End If
If Not cAllgemein.PROGID = 16 Then
Dim CNTL_KUNDE_FULL As New usrcntlKundeBearbeitenFull_SDL
With CNTL_KUNDE_FULL
.Dock = DockStyle.Fill
.Visible = True
End With
Panel4.Controls.Add(CNTL_KUNDE_FULL)
CNTL_KUNDE_FULL.Enabled = True
CNTL_KUNDE_FULL.init(kdNr, True)
'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
If FilialeNr > 0 Then
CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
End If
'End If
Else
Dim CNTL_KUNDE_FULL As New usrcntlKundeBearbeitenFull
With CNTL_KUNDE_FULL
.Dock = DockStyle.Fill
.Visible = True
End With
Panel4.Controls.Add(CNTL_KUNDE_FULL)
'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
CNTL_KUNDE_FULL.init(kdNr, False)
CNTL_KUNDE_FULL.Enabled = True
If FilialeNr > 0 Then
CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
End If
'Else
' CNTL_KUNDE_FULL.Enabled = False
'End If
End If
tbcntrMain.TabPages(1).Enabled = True
UsrcntlKundeBearbeitenFull1.Enabled = True
' If kdNr > 0 Then
'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
End If
'End If
End Sub
Sub initTABVERAGCard()
@@ -475,7 +508,6 @@ Public Class frmKundenblatt
If kdNr > 0 Then
rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
txtZinsbelastungNew.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
txtZinsbelastungTolInTagen.Text = checkNullStr(KUNDE_ERW.kde_abwToleranzTage)
@@ -1537,40 +1569,40 @@ Public Class frmKundenblatt
End If
Select Case tmpSDLNr
Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : btnBestelldateiErzeugen.Visible = True
Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
Case 214, 215, 216, 217, 218 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE
Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
Case 210, 500 : Panel2.Visible = False
Case Else : Panel2.Visible = False : Exit Sub
End Select
Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE
txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE
txtMautDEMasterPIN.Text = PartnerKdNrFromFMZOLL.MautDE_MasterPIN 'MAUT DE
txtMautDE_BenutzerNr.Text = PartnerKdNrFromFMZOLL.MautDE_BenutzerNr 'MAUT DE
Case 203, 204, 206, 207, 208, 209, 211, 205, 213 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr 'MSE 205??
Case 210, 500 : Panel2.Visible = False
Case Else : Panel2.Visible = False : Exit Sub
End Select
Select Case tmpSDLNr
Case 202
scanJaraVereinbarung.Visible = True
' scanJaraVertretung.Visible = True
scanErstbestellung.Visible = True
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True
' Case 100 : scanErstbestellung.Visible = True
' Case 212 : scanErstbestellung.Visible = True
Select Case tmpSDLNr
Case 202
scanJaraVereinbarung.Visible = True
' scanJaraVertretung.Visible = True
scanErstbestellung.Visible = True
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214, 217, 218 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True
' Case 100 : scanErstbestellung.Visible = True
' Case 212 : scanErstbestellung.Visible = True
Case Else : Exit Sub
End Select
End If
Case Else : Exit Sub
End Select
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click, Button15.Click
@@ -2017,7 +2049,7 @@ Public Class frmKundenblatt
End If
End Sub
Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object) Handles UsrcntlKundeBearbeitenFull1.KD_SAVED
Private Sub UsrcntlKundeBearbeitenFull1_KD_SAVED(kdnrTMP As Object)
If Me.kdNr < 0 And kdnrTMP > 0 Then
KdSearchBox1.KdNr = kdnrTMP
End If
@@ -3010,7 +3042,7 @@ Public Class frmKundenblatt
End Sub
Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
KUNDE_ERW.kde_abwToleranzTage = checkNullStr(txtZinsbelastungTolInTagen.Text)
If Not String.IsNullOrWhiteSpace(txtZinsbelastungNew.Text) Then
@@ -3070,7 +3102,11 @@ Public Class frmKundenblatt
rpt.Show()
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs)
Private Sub PictureBox5_Click(sender As Object, e As EventArgs)
End Sub
Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
End Sub
End Class

17
SDL/kunden/frmOffertenBearbeiten.vb
View File

@@ -33,7 +33,13 @@ Public Class frmOffertenBearbeiten
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
Dim whereFiliale As String = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
whereFiliale = " AND Filialen.FilialenNr in (4817,4819,4821,4823,4824,4868)"
End If
cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' " & whereFiliale & " ORDER BY Filialen.FilialenNr", False, "FMZOLL", True)
Dim where = ""
@@ -54,6 +60,15 @@ Public Class frmOffertenBearbeiten
cboSprache.Enabled = False
End If
If cboFiliale.Items.Count > 0 Then cboFiliale.changeItem("4803")
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
' where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr in (4817,4819,4821,4823,4824,4868)) "
'Else
' where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr not in (4817,4819,4821,4823,4824,4868)) "
'End If
Case Else
cboSprache.changeItem("DE")
cboSprache.Enabled = False

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

@@ -22,6 +22,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -60,10 +61,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -77,7 +76,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbAufschub = New System.Windows.Forms.TabPage()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label78 = New System.Windows.Forms.Label()
Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -102,8 +100,9 @@ Partial Class usrcntlKundeBearbeitenFull
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.tbFiskal = New System.Windows.Forms.TabPage()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
Me.Label71 = New System.Windows.Forms.Label()
Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
Me.cbxSammelrechnung_IM_EX = New System.Windows.Forms.CheckBox()
@@ -114,7 +113,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnAddKundeUID = New System.Windows.Forms.Button()
Me.cboUSt_UstIdNrLand2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtUSt_UstIdNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label117 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label115 = New System.Windows.Forms.Label()
@@ -290,6 +289,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbSonstiges = New System.Windows.Forms.TabPage()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.cbxIDSMautberichtNachOrt = New System.Windows.Forms.CheckBox()
Me.txtSonst_weitereKdNrWOELFL = New System.Windows.Forms.TextBox()
Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
@@ -334,14 +334,12 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label72 = New System.Windows.Forms.Label()
Me.txtSonst_KdNrIDS = New System.Windows.Forms.TextBox()
Me.Label70 = New System.Windows.Forms.Label()
Me.Label71 = New System.Windows.Forms.Label()
Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumPLOSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumUTA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumMSE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSumIDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.tbSchnittstellen = New System.Windows.Forms.TabPage()
Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox()
Me.Label91 = New System.Windows.Forms.Label()
@@ -388,14 +386,14 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
Me.txtPlz = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.txtPostfachOrt = New System.Windows.Forms.TextBox()
Me.txtPostfachPlz = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtAnsprechpartnerAnrede = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.txtMobil = New System.Windows.Forms.TextBox()
@@ -422,7 +420,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbKontakt = New System.Windows.Forms.TabControl()
Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label50 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -441,14 +438,18 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtERROR = New System.Windows.Forms.TextBox()
Me.btnDatevExport = New System.Windows.Forms.Button()
Me.Label98 = New System.Windows.Forms.Label()
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip()
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -477,6 +478,7 @@ Partial Class usrcntlKundeBearbeitenFull
CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbSonstiges.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.Standard.SuspendLayout()
@@ -498,7 +500,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.SuspendLayout()
Me.pnlNeukunde.SuspendLayout()
Me.cnsBankverbindungen.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'tbcntrDetails
@@ -637,23 +638,13 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxBesonderheitenNEU
'
Me.cbxBesonderheitenNEU.AutoSize = True
Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(333, 8)
Me.cbxBesonderheitenNEU.Location = New System.Drawing.Point(473, 8)
Me.cbxBesonderheitenNEU.Name = "cbxBesonderheitenNEU"
Me.cbxBesonderheitenNEU.Size = New System.Drawing.Size(126, 17)
Me.cbxBesonderheitenNEU.TabIndex = 236
Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
'
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'tbcntrAbf
'
Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -680,15 +671,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
Me.TabPage4.UseVisualStyleBackColor = True
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'rtbLKWFreigabeSenden
'
Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -750,6 +732,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbfVerb_RechtsanwaltSeit.Size = New System.Drawing.Size(60, 20)
Me.txtAbfVerb_RechtsanwaltSeit.TabIndex = 6
Me.txtAbfVerb_RechtsanwaltSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtAbfVerb_RechtsanwaltSeit.Visible = False
'
'cboAbfVerb_Kreditlimit
'
@@ -761,6 +744,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Kreditlimit.TabIndex = 7
Me.cboAbfVerb_Kreditlimit.Text = "Kreditlimit"
Me.cboAbfVerb_Kreditlimit.UseVisualStyleBackColor = True
Me.cboAbfVerb_Kreditlimit.Visible = False
'
'rtbAbfVerb_Grund
'
@@ -790,6 +774,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboAbfVerb_Rechtsanwalt.TabIndex = 4
Me.cboAbfVerb_Rechtsanwalt.Text = "Rechtsanwalt"
Me.cboAbfVerb_Rechtsanwalt.UseVisualStyleBackColor = True
Me.cboAbfVerb_Rechtsanwalt.Visible = False
'
'Label63
'
@@ -808,6 +793,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label64.Size = New System.Drawing.Size(26, 13)
Me.Label64.TabIndex = 5
Me.Label64.Text = "seit:"
Me.Label64.Visible = False
'
'cboAbfVerb_Abfertigungsverbot
'
@@ -857,14 +843,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAufschub.Text = "Aufschubkonten"
Me.tbAufschub.UseVisualStyleBackColor = True
'
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Label78)
@@ -1019,6 +997,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox7.TabIndex = 5
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Aviso"
Me.GroupBox7.Visible = False
'
'RadioButton7
'
@@ -1117,12 +1096,13 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxAbf_EinmaligeAbfertigung
'
Me.cbxAbf_EinmaligeAbfertigung.AutoSize = True
Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(467, 5)
Me.cbxAbf_EinmaligeAbfertigung.Location = New System.Drawing.Point(572, 8)
Me.cbxAbf_EinmaligeAbfertigung.Name = "cbxAbf_EinmaligeAbfertigung"
Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(128, 17)
Me.cbxAbf_EinmaligeAbfertigung.Size = New System.Drawing.Size(93, 17)
Me.cbxAbf_EinmaligeAbfertigung.TabIndex = 1
Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abfertigung"
Me.cbxAbf_EinmaligeAbfertigung.Text = "Einmalige Abf."
Me.cbxAbf_EinmaligeAbfertigung.UseVisualStyleBackColor = True
Me.cbxAbf_EinmaligeAbfertigung.Visible = False
'
'Label41
'
@@ -1170,17 +1150,10 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbFiskal.Text = "Fiskal"
Me.tbFiskal.UseVisualStyleBackColor = True
'
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.Label71)
Me.tbVerrechnung.Controls.Add(Me.cboSonst_Rechnungsdruck)
Me.tbVerrechnung.Controls.Add(Me.cbxHR_autoselect)
Me.tbVerrechnung.Controls.Add(Me.cbxPDFMerge)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnung_IM_EX)
@@ -1246,6 +1219,27 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbVerrechnung.Text = "Verrechnung"
Me.tbVerrechnung.UseVisualStyleBackColor = True
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label71.Location = New System.Drawing.Point(12, 12)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(92, 13)
Me.Label71.TabIndex = 57
Me.Label71.Text = "Rechnungsdruck:"
'
'cboSonst_Rechnungsdruck
'
Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
Me.cboSonst_Rechnungsdruck._allowFreiText = False
Me.cboSonst_Rechnungsdruck._value = ""
Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(125, 5)
Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(85, 21)
Me.cboSonst_Rechnungsdruck.TabIndex = 58
'
'cbxHR_autoselect
'
Me.cbxHR_autoselect.AutoSize = True
@@ -1399,7 +1393,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label117
'
Me.Label117.AutoSize = True
Me.Label117.Location = New System.Drawing.Point(191, 91)
Me.Label117.Location = New System.Drawing.Point(191, 111)
Me.Label117.Name = "Label117"
Me.Label117.Size = New System.Drawing.Size(30, 13)
Me.Label117.TabIndex = 52
@@ -1473,6 +1467,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.kdProvDLProzentGSAn._displayFullName = False
Me.kdProvDLProzentGSAn._displayWoelflKd = False
Me.kdProvDLProzentGSAn._hideIfListEmpty = True
Me.kdProvDLProzentGSAn._hideMDMKd = False
Me.kdProvDLProzentGSAn._loadKdData = False
Me.kdProvDLProzentGSAn._searchName1 = True
Me.kdProvDLProzentGSAn._UseFIRMA = ""
@@ -1709,7 +1704,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label101
'
Me.Label101.AutoSize = True
Me.Label101.Location = New System.Drawing.Point(191, 42)
Me.Label101.Location = New System.Drawing.Point(191, 62)
Me.Label101.Name = "Label101"
Me.Label101.Size = New System.Drawing.Size(95, 13)
Me.Label101.TabIndex = 42
@@ -1781,7 +1776,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label93
'
Me.Label93.AutoSize = True
Me.Label93.Location = New System.Drawing.Point(12, 15)
Me.Label93.Location = New System.Drawing.Point(12, 35)
Me.Label93.Name = "Label93"
Me.Label93.Size = New System.Drawing.Size(110, 13)
Me.Label93.TabIndex = 32
@@ -1819,6 +1814,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxDepot.TabIndex = 20
Me.cbxDepot.Text = "Depot-Kunde*"
Me.cbxDepot.UseVisualStyleBackColor = True
Me.cbxDepot.Visible = False
'
'Label34
'
@@ -1863,7 +1859,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label47
'
Me.Label47.AutoSize = True
Me.Label47.Location = New System.Drawing.Point(191, 69)
Me.Label47.Location = New System.Drawing.Point(191, 89)
Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(30, 13)
Me.Label47.TabIndex = 15
@@ -1872,7 +1868,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.Location = New System.Drawing.Point(12, 69)
Me.Label46.Location = New System.Drawing.Point(12, 89)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(69, 13)
Me.Label46.TabIndex = 10
@@ -1881,7 +1877,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label45
'
Me.Label45.AutoSize = True
Me.Label45.Location = New System.Drawing.Point(12, 43)
Me.Label45.Location = New System.Drawing.Point(12, 63)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(108, 13)
Me.Label45.TabIndex = 5
@@ -1910,7 +1906,7 @@ Partial Class usrcntlKundeBearbeitenFull
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(12, 89)
Me.Label44.Location = New System.Drawing.Point(12, 109)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(88, 13)
Me.Label44.TabIndex = 0
@@ -1929,7 +1925,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.cbxAbf_SvsRvs.AutoSize = True
Me.cbxAbf_SvsRvs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 110)
Me.cbxAbf_SvsRvs.Location = New System.Drawing.Point(289, 130)
Me.cbxAbf_SvsRvs.Name = "cbxAbf_SvsRvs"
Me.cbxAbf_SvsRvs.Size = New System.Drawing.Size(74, 17)
Me.cbxAbf_SvsRvs.TabIndex = 12
@@ -1940,7 +1936,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.cbxAbf_Rabattstaffel.AutoSize = True
Me.cbxAbf_Rabattstaffel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 88)
Me.cbxAbf_Rabattstaffel.Location = New System.Drawing.Point(289, 108)
Me.cbxAbf_Rabattstaffel.Name = "cbxAbf_Rabattstaffel"
Me.cbxAbf_Rabattstaffel.Size = New System.Drawing.Size(86, 17)
Me.cbxAbf_Rabattstaffel.TabIndex = 7
@@ -1951,7 +1947,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.cbxAbf_Vorkasse.AutoSize = True
Me.cbxAbf_Vorkasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 66)
Me.cbxAbf_Vorkasse.Location = New System.Drawing.Point(289, 86)
Me.cbxAbf_Vorkasse.Name = "cbxAbf_Vorkasse"
Me.cbxAbf_Vorkasse.Size = New System.Drawing.Size(70, 17)
Me.cbxAbf_Vorkasse.TabIndex = 2
@@ -2003,7 +1999,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 87)
Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 107)
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
@@ -2069,7 +2065,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbwZZVL._Waehrung = False
Me.txtAbwZZVL._WaehrungZeichen = True
Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 39)
Me.txtAbwZZVL.Location = New System.Drawing.Point(289, 59)
Me.txtAbwZZVL.MaxLength = 10
Me.txtAbwZZVL.MaxLineLength = -1
Me.txtAbwZZVL.MaxLines_Warning = ""
@@ -2110,7 +2106,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtDebKdNr._Waehrung = False
Me.txtDebKdNr._WaehrungZeichen = False
Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 12)
Me.txtDebKdNr.Location = New System.Drawing.Point(125, 32)
Me.txtDebKdNr.MaxLength = 10
Me.txtDebKdNr.MaxLineLength = -1
Me.txtDebKdNr.MaxLines_Warning = ""
@@ -2340,7 +2336,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 62)
Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 82)
Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
@@ -2365,7 +2361,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Bankspesen._Waehrung = False
Me.txtAbf_Bankspesen._WaehrungZeichen = True
Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 66)
Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 86)
Me.txtAbf_Bankspesen.MaxLength = 10
Me.txtAbf_Bankspesen.MaxLineLength = -1
Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -2391,7 +2387,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Kreditaufwendungen._Waehrung = False
Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 40)
Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 60)
Me.txtAbf_Kreditaufwendungen.MaxLength = 10
Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -2417,7 +2413,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtAbf_Vorlageprovision._Waehrung = False
Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 88)
Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 108)
Me.txtAbf_Vorlageprovision.MaxLength = 10
Me.txtAbf_Vorlageprovision.MaxLineLength = -1
Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -4200,14 +4196,12 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Controls.Add(Me.Label72)
Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS)
Me.tbSonstiges.Controls.Add(Me.Label70)
Me.tbSonstiges.Controls.Add(Me.Label71)
Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
Me.tbSonstiges.Controls.Add(Me.txtSumPLOSE)
Me.tbSonstiges.Controls.Add(Me.txtSumUTA)
Me.tbSonstiges.Controls.Add(Me.txtSumMSE)
Me.tbSonstiges.Controls.Add(Me.txtSumIDS)
Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern)
Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck)
Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
Me.tbSonstiges.Name = "tbSonstiges"
Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
@@ -4216,6 +4210,18 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Text = "Sonstiges"
Me.tbSonstiges.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 150
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'cbxIDSMautberichtNachOrt
'
Me.cbxIDSMautberichtNachOrt.AutoSize = True
@@ -4225,6 +4231,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxIDSMautberichtNachOrt.TabIndex = 149
Me.cbxIDSMautberichtNachOrt.Text = "IDS-Mautbericht AT nach Ort"
Me.cbxIDSMautberichtNachOrt.UseVisualStyleBackColor = True
Me.cbxIDSMautberichtNachOrt.Visible = False
'
'txtSonst_weitereKdNrWOELFL
'
@@ -4232,6 +4239,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_weitereKdNrWOELFL.Name = "txtSonst_weitereKdNrWOELFL"
Me.txtSonst_weitereKdNrWOELFL.Size = New System.Drawing.Size(50, 20)
Me.txtSonst_weitereKdNrWOELFL.TabIndex = 148
Me.txtSonst_weitereKdNrWOELFL.Visible = False
'
'lblIDS_Rabatte
'
@@ -4255,6 +4263,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox7.TabIndex = 146
Me.PictureBox7.TabStop = False
Me.PictureBox7.Visible = False
'
'cbx_IDS_inaktiveeinblenden
'
@@ -4264,6 +4273,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
Me.cbx_IDS_inaktiveeinblenden.Visible = False
'
'TabControl1
'
@@ -4275,6 +4285,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(659, 190)
Me.TabControl1.TabIndex = 40
Me.TabControl1.Visible = False
'
'Standard
'
@@ -4411,7 +4422,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxCSInsolvent
'
Me.cbxCSInsolvent.AutoSize = True
Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26)
Me.cbxCSInsolvent.Location = New System.Drawing.Point(8, 26)
Me.cbxCSInsolvent.Name = "cbxCSInsolvent"
Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17)
Me.cbxCSInsolvent.TabIndex = 39
@@ -4421,7 +4432,7 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxCS_Added
'
Me.cbxCS_Added.AutoSize = True
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
Me.cbxCS_Added.Location = New System.Drawing.Point(8, 9)
Me.cbxCS_Added.Name = "cbxCS_Added"
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
Me.cbxCS_Added.TabIndex = 37
@@ -4448,6 +4459,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label112.Size = New System.Drawing.Size(119, 13)
Me.Label112.TabIndex = 35
Me.Label112.Text = "CSV-Daten bereitstellen"
Me.Label112.Visible = False
'
'txtSonst_KdNrVerag
'
@@ -4456,6 +4468,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrVerag.Name = "txtSonst_KdNrVerag"
Me.txtSonst_KdNrVerag.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrVerag.TabIndex = 31
Me.txtSonst_KdNrVerag.Visible = False
'
'Label110
'
@@ -4467,6 +4480,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label110.Size = New System.Drawing.Size(82, 13)
Me.Label110.TabIndex = 30
Me.Label110.Text = "KdNr bei Verag:"
Me.Label110.Visible = False
'
'Label109
'
@@ -4477,12 +4491,13 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label109.Size = New System.Drawing.Size(94, 13)
Me.Label109.TabIndex = 25
Me.Label109.Text = "Vorschausummen:"
Me.Label109.Visible = False
'
'Label99
'
Me.Label99.AutoSize = True
Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label99.Location = New System.Drawing.Point(427, 9)
Me.Label99.Location = New System.Drawing.Point(29, 9)
Me.Label99.Name = "Label99"
Me.Label99.Size = New System.Drawing.Size(71, 13)
Me.Label99.TabIndex = 24
@@ -4490,7 +4505,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'txtCreditsafe
'
Me.txtCreditsafe.Location = New System.Drawing.Point(540, 6)
Me.txtCreditsafe.Location = New System.Drawing.Point(142, 6)
Me.txtCreditsafe.Name = "txtCreditsafe"
Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20)
Me.txtCreditsafe.TabIndex = 23
@@ -4523,6 +4538,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE"
Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrPLOSE.TabIndex = 20
Me.txtSonst_KdNrPLOSE.Visible = False
'
'Label83
'
@@ -4534,6 +4550,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label83.Size = New System.Drawing.Size(89, 13)
Me.Label83.TabIndex = 19
Me.Label83.Text = "KdNr bei PLOSE:"
Me.Label83.Visible = False
'
'Label76
'
@@ -4544,6 +4561,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label76.Size = New System.Drawing.Size(65, 13)
Me.Label76.TabIndex = 17
Me.Label76.Text = "IDS-Kunden"
Me.Label76.Visible = False
'
'dgvSonst_IDSKunden
'
@@ -4575,6 +4593,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 68)
Me.dgvSonst_IDSKunden.TabIndex = 18
Me.dgvSonst_IDSKunden.Visible = False
'
'cbxSonst_CsvAsfinag
'
@@ -4585,6 +4604,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvAsfinag.TabIndex = 15
Me.cbxSonst_CsvAsfinag.Text = "AT-Abr."
Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True
Me.cbxSonst_CsvAsfinag.Visible = False
'
'cbxSonst_CsvUTA
'
@@ -4595,6 +4615,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvUTA.TabIndex = 14
Me.cbxSonst_CsvUTA.Text = "UTA-Abr. "
Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True
Me.cbxSonst_CsvUTA.Visible = False
'
'cbxSonst_CsvMSE
'
@@ -4605,6 +4626,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvMSE.TabIndex = 9
Me.cbxSonst_CsvMSE.Text = "MSE-Abr."
Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True
Me.cbxSonst_CsvMSE.Visible = False
'
'cbxSonst_CsvMautbericht
'
@@ -4615,6 +4637,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxSonst_CsvMautbericht.TabIndex = 2
Me.cbxSonst_CsvMautbericht.Text = "CSV-Mautbericht"
Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True
Me.cbxSonst_CsvMautbericht.Visible = False
'
'txtSonst_KdNrUTA
'
@@ -4622,6 +4645,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA"
Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrUTA.TabIndex = 13
Me.txtSonst_KdNrUTA.Visible = False
'
'Label75
'
@@ -4632,6 +4656,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label75.Size = New System.Drawing.Size(76, 13)
Me.Label75.TabIndex = 12
Me.Label75.Text = "KdNr bei UTA:"
Me.Label75.Visible = False
'
'txtSonst_KdNrTelepass
'
@@ -4639,6 +4664,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
Me.txtSonst_KdNrTelepass.TabIndex = 11
Me.txtSonst_KdNrTelepass.Visible = False
'
'Label74
'
@@ -4649,6 +4675,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label74.Size = New System.Drawing.Size(109, 13)
Me.Label74.TabIndex = 10
Me.Label74.Text = "KdNr bei TELEPASS:"
Me.Label74.Visible = False
'
'txtSonst_KdNrMSE
'
@@ -4656,6 +4683,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE"
Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(106, 20)
Me.txtSonst_KdNrMSE.TabIndex = 8
Me.txtSonst_KdNrMSE.Visible = False
'
'Label73
'
@@ -4666,6 +4694,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label73.Size = New System.Drawing.Size(77, 13)
Me.Label73.TabIndex = 7
Me.Label73.Text = "KdNr bei MSE:"
Me.Label73.Visible = False
'
'txtSonst_KdNrWOELFL
'
@@ -4673,6 +4702,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL"
Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(50, 20)
Me.txtSonst_KdNrWOELFL.TabIndex = 6
Me.txtSonst_KdNrWOELFL.Visible = False
'
'Label72
'
@@ -4683,6 +4713,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label72.Size = New System.Drawing.Size(78, 13)
Me.Label72.TabIndex = 5
Me.Label72.Text = "KdNr bei Wölfl:"
Me.Label72.Visible = False
'
'txtSonst_KdNrIDS
'
@@ -4705,16 +4736,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label70.Text = "KdNr bei IDS:"
Me.Label70.Visible = False
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label71.Location = New System.Drawing.Point(6, 9)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(92, 13)
Me.Label71.TabIndex = 0
Me.Label71.Text = "Rechnungsdruck:"
'
'txtSumVerag
'
Me.txtSumVerag._DateTimeOnly = False
@@ -4737,6 +4758,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumVerag.Name = "txtSumVerag"
Me.txtSumVerag.Size = New System.Drawing.Size(100, 20)
Me.txtSumVerag.TabIndex = 32
Me.txtSumVerag.Visible = False
'
'txtSumPLOSE
'
@@ -4760,6 +4782,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumPLOSE.Name = "txtSumPLOSE"
Me.txtSumPLOSE.Size = New System.Drawing.Size(100, 20)
Me.txtSumPLOSE.TabIndex = 29
Me.txtSumPLOSE.Visible = False
'
'txtSumUTA
'
@@ -4783,6 +4806,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumUTA.Name = "txtSumUTA"
Me.txtSumUTA.Size = New System.Drawing.Size(100, 20)
Me.txtSumUTA.TabIndex = 28
Me.txtSumUTA.Visible = False
'
'txtSumMSE
'
@@ -4806,6 +4830,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumMSE.Name = "txtSumMSE"
Me.txtSumMSE.Size = New System.Drawing.Size(100, 20)
Me.txtSumMSE.TabIndex = 27
Me.txtSumMSE.Visible = False
'
'txtSumIDS
'
@@ -4829,6 +4854,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtSumIDS.Name = "txtSumIDS"
Me.txtSumIDS.Size = New System.Drawing.Size(100, 20)
Me.txtSumIDS.TabIndex = 26
Me.txtSumIDS.Visible = False
'
'btnSonstAendSpeichern
'
@@ -4845,17 +4871,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.btnSonstAendSpeichern.Text = "Änderungen speichern"
Me.btnSonstAendSpeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSonstAendSpeichern.UseVisualStyleBackColor = True
'
'cboSonst_Rechnungsdruck
'
Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing
Me.cboSonst_Rechnungsdruck._allowFreiText = False
Me.cboSonst_Rechnungsdruck._value = ""
Me.cboSonst_Rechnungsdruck.FormattingEnabled = True
Me.cboSonst_Rechnungsdruck.Location = New System.Drawing.Point(119, 6)
Me.cboSonst_Rechnungsdruck.Name = "cboSonst_Rechnungsdruck"
Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(110, 21)
Me.cboSonst_Rechnungsdruck.TabIndex = 1
Me.btnSonstAendSpeichern.Visible = False
'
'tbSchnittstellen
'
@@ -5103,7 +5119,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(453, 207)
Me.GroupBox3.Size = New System.Drawing.Size(453, 227)
Me.GroupBox3.TabIndex = 0
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Firma"
@@ -5499,20 +5515,20 @@ Partial Class usrcntlKundeBearbeitenFull
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxLandKz)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
Me.GroupBox1.Controls.Add(Me.txtOrt)
Me.GroupBox1.Controls.Add(Me.Label100)
Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
Me.GroupBox1.Controls.Add(Me.txtAdresseZusatz)
Me.GroupBox1.Controls.Add(Me.txtPlz)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtStrasse)
Me.GroupBox1.Controls.Add(Me.txtPostfachOrt)
Me.GroupBox1.Controls.Add(Me.txtPostfachPlz)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(3, 217)
Me.GroupBox1.Location = New System.Drawing.Point(3, 236)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(453, 139)
Me.GroupBox1.Size = New System.Drawing.Size(453, 120)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Adresse"
@@ -5533,25 +5549,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
Me.cbxLandKz.TabIndex = 3
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(6, 99)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 13)
Me.Label14.TabIndex = 6
Me.Label14.Text = "Postfach PLZ / Ort:"
'
'txtPostfachOrt
'
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 96)
Me.txtPostfachOrt.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
Me.txtPostfachOrt.TabIndex = 8
'
'txtOrt
'
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5571,15 +5568,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label12.TabIndex = 2
Me.Label12.Text = "Land / PLZ / Ort:"
'
'txtPostfachPlz
'
Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 96)
Me.txtPostfachPlz.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
Me.txtPostfachPlz.TabIndex = 7
'
'txtPlz
'
Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5593,7 +5581,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(6, 25)
Me.Label4.Location = New System.Drawing.Point(6, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(41, 13)
Me.Label4.TabIndex = 0
@@ -5602,12 +5590,43 @@ Partial Class usrcntlKundeBearbeitenFull
'txtStrasse
'
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtStrasse.Location = New System.Drawing.Point(110, 22)
Me.txtStrasse.Location = New System.Drawing.Point(110, 21)
Me.txtStrasse.MaxLength = 40
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(334, 20)
Me.txtStrasse.TabIndex = 1
'
'txtPostfachOrt
'
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 72)
Me.txtPostfachOrt.MaxLength = 40
Me.txtPostfachOrt.Name = "txtPostfachOrt"
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
Me.txtPostfachOrt.TabIndex = 8
Me.txtPostfachOrt.Visible = False
'
'txtPostfachPlz
'
Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 72)
Me.txtPostfachPlz.MaxLength = 7
Me.txtPostfachPlz.Name = "txtPostfachPlz"
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
Me.txtPostfachPlz.TabIndex = 7
Me.txtPostfachPlz.Visible = False
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(6, 75)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 13)
Me.Label14.TabIndex = 6
Me.Label14.Text = "Postfach PLZ / Ort:"
Me.Label14.Visible = False
'
'txtAnsprechpartnerAnrede
'
Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -5621,7 +5640,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(3, 66)
Me.Label20.Location = New System.Drawing.Point(2, 43)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(67, 13)
Me.Label20.TabIndex = 4
@@ -5630,7 +5649,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtMobil
'
Me.txtMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMobil.Location = New System.Drawing.Point(107, 63)
Me.txtMobil.Location = New System.Drawing.Point(107, 40)
Me.txtMobil.MaxLength = 50
Me.txtMobil.Name = "txtMobil"
Me.txtMobil.Size = New System.Drawing.Size(333, 20)
@@ -5697,16 +5716,16 @@ Partial Class usrcntlKundeBearbeitenFull
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(3, 40)
Me.Label7.Location = New System.Drawing.Point(3, 71)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(27, 13)
Me.Label7.Size = New System.Drawing.Size(76, 13)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Fax:"
Me.Label7.Text = "Mobiltelefon 2:"
'
'txtFax
'
Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFax.Location = New System.Drawing.Point(107, 37)
Me.txtFax.Location = New System.Drawing.Point(107, 68)
Me.txtFax.MaxLength = 20
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(333, 20)
@@ -5877,14 +5896,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.Text = "Spezifisch"
Me.TabPage11.UseVisualStyleBackColor = True
'
'ucKundenKontakte
'
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'Label50
'
Me.Label50.AutoSize = True
@@ -6165,16 +6176,49 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'PictureBox1
'ucKundenKontakte
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 150
Me.PictureBox1.TabStop = False
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
Me.ucKundenKontakte.Name = "ucKundenKontakte"
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
Me.ucKundenKontakte.TabIndex = 0
'
'UsrCntlKundenBesonderheiten1
'
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
Me.UsrCntlKundenBesonderheiten1.Visible = False
'
'UsrCntlKundenAvisoMailBenachrichtigung1
'
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
'
'usrCntlAufschubkonten
'
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
Me.usrCntlAufschubkonten.TabIndex = 0
'
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'usrcntlKundeBearbeitenFull
'
@@ -6256,6 +6300,7 @@ Partial Class usrcntlKundeBearbeitenFull
CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbSonstiges.ResumeLayout(False)
Me.tbSonstiges.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.Standard.ResumeLayout(False)
@@ -6285,7 +6330,6 @@ Partial Class usrcntlKundeBearbeitenFull
Me.pnlNeukunde.ResumeLayout(False)
Me.pnlNeukunde.PerformLayout()
Me.cnsBankverbindungen.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -6400,8 +6444,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label72 As System.Windows.Forms.Label
Friend WithEvents txtSonst_KdNrIDS As System.Windows.Forms.TextBox
Friend WithEvents Label70 As System.Windows.Forms.Label
Friend WithEvents Label71 As System.Windows.Forms.Label
Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents txtUStIDGeprueftAm As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
@@ -6689,4 +6731,6 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents cbxHR_autoselect As CheckBox
Friend WithEvents cbxIDSMautberichtNachOrt As CheckBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label71 As Label
Friend WithEvents cboSonst_Rechnungsdruck As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

16
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -1,7 +1,4 @@
Imports com.sun.xml.internal.rngom
Imports DAKOSY_Worker
Imports MDM_Worker
Imports Tamir.SharpSsh.jsch
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlKundeBearbeitenFull
@@ -126,6 +123,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxBetreuer.Visible = isVerag360
cbxVorauszahlung.Visible = isVerag360
cbxAbf_Vorkasse.Visible = Not isVerag360
Label116.Visible = isVerag360
usrCntlAufschubkonten.initMe(kdnr)
@@ -1035,7 +1033,7 @@ Public Class usrcntlKundeBearbeitenFull
cboSonst_Rechnungsdruck.Items.Clear()
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Formular", "0"))
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1"))
'cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fax", "1")) 'Gibts nicht mehr!
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-Mail", "2"))
cboSonst_Rechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail+Kopie", "5"))
@@ -1129,9 +1127,13 @@ Public Class usrcntlKundeBearbeitenFull
Private Sub usrcntlKundeBearbeitenFull_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.tbcntrDetails.Controls.Remove(tbUmsatz)
Me.tbcntrDetails.Controls.Remove(tbOP)
Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
Me.tbcntrDetails.Controls.Remove(tbBank)
Me.tbcntrDetails.Controls.Remove(tbZahlungsinfo)
Me.tbcntrDetails.Controls.Remove(tbUmsatzsteuer)
If isVerag360 Then
Me.tbcntrDetails.Controls.Remove(tbFiskal)
Me.tbcntrDetails.Controls.Remove(tbSchnittstellen)
Else
Me.tbcntrDetails.Controls.Remove(tbBankverbindungen)
End If
@@ -3079,4 +3081,6 @@ Public Class usrcntlKundeBearbeitenFull
End Sub
End Class

5329
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

123
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cnsBankverbindungen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

2592
SDL/kunden/usrcntlKundeBearbeitenFull_SDL.vb Normal file
View File

File diff suppressed because it is too large Load Diff

46
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb generated
View File

@@ -22,11 +22,11 @@ Partial Class frmFirmenuebersicht
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblMail2 = New System.Windows.Forms.Label()
@@ -49,9 +49,8 @@ Partial Class frmFirmenuebersicht
Me.Label5 = New System.Windows.Forms.Label()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label7 = New System.Windows.Forms.Label()
Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.dgvEmailSettings = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel1.SuspendLayout()
Me.pnloptions.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -72,7 +71,7 @@ Partial Class frmFirmenuebersicht
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1503, 789)
Me.Panel1.Size = New System.Drawing.Size(1533, 789)
Me.Panel1.TabIndex = 4
'
'pnloptions
@@ -84,9 +83,19 @@ Partial Class frmFirmenuebersicht
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 632)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1503, 157)
Me.pnloptions.Size = New System.Drawing.Size(1533, 157)
Me.pnloptions.TabIndex = 12
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -128,7 +137,7 @@ Partial Class frmFirmenuebersicht
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1503, 118)
Me.Panel2.Size = New System.Drawing.Size(1533, 118)
Me.Panel2.TabIndex = 11
'
'lblMail2
@@ -314,7 +323,7 @@ Partial Class frmFirmenuebersicht
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1503, 41)
Me.pnlTop.Size = New System.Drawing.Size(1533, 41)
Me.pnlTop.TabIndex = 6
'
'Label4
@@ -335,6 +344,8 @@ Partial Class frmFirmenuebersicht
Me.dgvFirmen.AllowUserToDeleteRows = False
Me.dgvFirmen.AllowUserToOrderColumns = True
Me.dgvFirmen.AllowUserToResizeRows = False
Me.dgvFirmen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
@@ -344,11 +355,10 @@ Partial Class frmFirmenuebersicht
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFirmen.Location = New System.Drawing.Point(0, 118)
Me.dgvFirmen.Name = "dgvFirmen"
Me.dgvFirmen.RowHeadersVisible = False
Me.dgvFirmen.Size = New System.Drawing.Size(1503, 514)
Me.dgvFirmen.Size = New System.Drawing.Size(1530, 514)
Me.dgvFirmen.TabIndex = 10
'
'dgvEmailSettings
@@ -356,31 +366,23 @@ Partial Class frmFirmenuebersicht
Me.dgvEmailSettings.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvEmailSettings.AllowUserToAddRows = False
Me.dgvEmailSettings.AllowUserToDeleteRows = False
Me.dgvEmailSettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvEmailSettings.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvEmailSettings.Location = New System.Drawing.Point(1071, 27)
Me.dgvEmailSettings.Name = "dgvEmailSettings"
Me.dgvEmailSettings.ReadOnly = True
Me.dgvEmailSettings.RowHeadersVisible = False
Me.dgvEmailSettings.ShowEditingIcon = False
Me.dgvEmailSettings.Size = New System.Drawing.Size(429, 127)
Me.dgvEmailSettings.Size = New System.Drawing.Size(459, 127)
Me.dgvEmailSettings.TabIndex = 2
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(1068, 11)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(174, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "Mail-Exchange-Einstellungen:"
'
'frmFirmenuebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1503, 789)
Me.ClientSize = New System.Drawing.Size(1533, 789)
Me.Controls.Add(Me.pnlTop)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

16
VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb
View File

@@ -28,9 +28,9 @@ Public Class frmFirmenuebersicht
sqlstr &= " Select [Firma_ID] ,[Firma_Bez],[Firma_Straße],[Firma_PLZ],[Firma_Ort],[Firma_LandKz] as Land,replace([Firma_Telefon],'Tel. ','') as Firma_Telefon ,replace([Firma_Telefax],'Fax ','') as Firma_Telefax ,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,
[Firma_Bankverbindung1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_IBAN2],[Firma_BIC2],[Firma_E-Mail],
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma "
[Firma_Webadresse],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_E_Mail_Fakturierung],[Firma_Steuernummer] ,Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,[Firma_Logo],[Firma_Logo_Erweitert], [Firma_enableUIDPruefung] as [UID-Prüfung] from tblFirma "
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail, mail_firmaID from tblMailSettings"
Dim sqlstr_Mailsettings As String = " select mail_username as 'user',mail_password as PW, mail_host as Host, mail_port as Port,mail_kindOfMail as kindOfMail, mail_firmaID from tblMailSettings"
dt = SQL.loadDgvBySql(sqlstr_Mailsettings, "ADMIN")
@@ -70,20 +70,25 @@ Public Class frmFirmenuebersicht
.Columns("Firma_E_Mail_Mahnungen").Visible = False
.Columns("Firma_E_Mail_Fakturierung").Visible = False
.Columns("Firma_ID").Width = 30
.Columns("Firma_Warenort").Width = 60
.Columns("Firma_ID").Width = 20
.Columns("Firma_Warenort").Width = 50
.Columns("Firma_PLZ").Width = 60
.Columns("Land").Width = 40
.Columns("Firma_Bez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("UID-Prüfung").Width = 75
If Not dgvFirmen.Columns.Contains("EmailEinstellungen") Then
Dim col As New DataGridViewCheckBoxColumn()
col.Name = "EmailEinstellungen"
col.HeaderText = "E-Mail-Settings"
col.HeaderText = "EMail-Settings"
col.ReadOnly = True
dgvFirmen.Columns.Add(col)
.Columns("EmailEinstellungen").Width = 75
End If
For Each col As DataGridViewColumn In dgvFirmen.Columns
@@ -153,6 +158,7 @@ Public Class frmFirmenuebersicht
If rows.Length > 0 Then
dgvEmailSettings.DataSource = rows.CopyToDataTable()
dgvEmailSettings.Columns("mail_firmaID").Visible = False
dgvEmailSettings.Columns("user").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Else
dgvEmailSettings.DataSource = Nothing
End If

1
VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
View File

@@ -26,6 +26,7 @@ Public Class cKundenSicherheiten
Public Property sc_cbam_jahr As Integer? = Nothing
Public Property sc_cbam_quartal As Integer? = Nothing
Public Property sc_updated As DateTime? = Nothing
Public hasEntry As Boolean = False

22
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -144,10 +144,10 @@ Public Class cUIDPruefung
End Function
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000) As DataTable
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 3000, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
dt = get_zupruefendeKunden(MaxEintraege, datum,, True)
dt = get_zupruefendeKunden(MaxEintraege, datum,, True, olderThanCurrentMonth)
If dt IsNot Nothing Then
If dt.Rows.Count = 0 Then Return Nothing
@@ -302,19 +302,29 @@ Public Class cUIDPruefung
Return dt
End Function
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False) As DataTable
Public Shared Function get_zupruefendeKunden(MaxEintraege As Integer, Optional datum As Object = Nothing, Optional Firma As String = "", Optional Validierungspruefung As Boolean = False, Optional olderThanCurrentMonth As Boolean = False) As DataTable
Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = ""
Dim WhereDateOrMonthCondition As String = "UstIdGeprüft <= '" & datum.ToShortDateString & "'"
Dim WhereDateOrMonthConditionVeranlagung As String = "VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "'"
If olderThanCurrentMonth Then
WhereDateOrMonthCondition = "Month(UstIdGeprüft) <" & Now().Month & " and Year(UstIdGeprüft) <=" & Now().Year
WhereDateOrMonthConditionVeranlagung = "Month(VAUID.UstIdGeprüft) <" & Now().Month & " and Year(VAUID.UstIdGeprüft) <=" & Now().Year
End If
If Firma = "" Then
Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
End If
Select Case Firma
Case "AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case " AMBAR" : where = " And Filialen.FilialenNr IN (5701) "
Case "IMEX" : where = " And Filialen.FilialenNr IN (5501) "
Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801) "
Case "VERAG 360 GmbH" : where = " And Filialen.FilialenNr IN (8001) "
@@ -343,7 +353,7 @@ Public Class cUIDPruefung
ELSE 'Nein'
END AS istEUVAT, 'UID' as typ " &
" From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr " &
" where (UstIdGeprüft <= '" & datum.ToShortDateString & "' OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" where ( " & WhereDateOrMonthCondition & " OR UstIdGeprüft is null) and (isnull(Adressen.UstIdKz,'') <> '' and isnull(Adressen.UstIdNr,'') <> '') " &
" And Auswahl='A' " & where
Dim SQLUID_Veranlagungskunden As String = "SELECT VAUID.KdNr,[Ordnungsbegriff] as Firma, VAUID.UstIdGeprüft, VAUID.UstIdKz,VAUID.UstIdNr, CASE WHEN UPPER(VAUID.UstIdKz) IN (
@@ -354,7 +364,7 @@ Public Class cUIDPruefung
inner Join [Adressen] On AdressenNr=VAUID.KdNr
inner Join kunden On KundenNr=VAUID.KdNr
inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr
where (VAUID.UstIdGeprüft <= '" & datum.ToShortDateString & "' OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
where (" & WhereDateOrMonthConditionVeranlagung & " OR VAUID.UstIdGeprüft is null) and (isnull(VAUID.UstIdKz,'') <> '' and isnull(VAUID.UstIdNr,'') <> '') AND Filialen.firma='VERAG' " & where.Replace("Adressen.", "VAUID.")
dt = SQL.loadDgvBySql(SQLUID & " UNION ALL " & SQLUID_Veranlagungskunden & " ORDER BY Ordnungsbegriff", "FMZOLL")

2
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -895,6 +895,7 @@ Public Class cVERAG_CustomsDeclarations
Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
If Kunde_Sicherheit.hasEntry Then
Kunde_Sicherheit.sc_updated = Now()
Kunde_Sicherheit.sc_Betrag = gesamtBetrag
Kunde_Sicherheit.SAVE()
Else
@@ -906,6 +907,7 @@ Public Class cVERAG_CustomsDeclarations
Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
Kunde_Sicherheit.sc_datum = Today()
Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
Kunde_Sicherheit.sc_MitarbeiterId = -1
Kunde_Sicherheit.sc_dsId = -1
Kunde_Sicherheit.SAVE()
End If