diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb
index 0542f22f..c8d50159 100644
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -3225,9 +3225,9 @@ Public Class cFakturierung
RK_found = True
End If
Next
- MsgBox(RU_found)
- MsgBox(RK_found)
- MsgBox(RU_found And RK_found)
+ 'MsgBox(RU_found)
+ 'MsgBox(RK_found)
+ 'MsgBox(RU_found And RK_found)
If RU_found And RK_found Then Return True
If Not RU_found And Not RK_found Then Return True
diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb
index 3769f864..7c1cb002 100644
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb
@@ -1,4 +1,6 @@
-Public Class usrcntlCreditreformBoniAuskunft
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrcntlCreditreformBoniAuskunft
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -9,6 +11,7 @@
Public Event LOADED()
Public KdNR As Integer = -1
Public SAVED As Boolean = False
+ Dim creditsafe_newView As Boolean = False
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
@@ -86,6 +89,10 @@
cboCRArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Wien", "Wien"))
cboCRArt.SelectedIndex = 0
If KdNR > 0 Then initKdNR(KdNR)
+
+ Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+ creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
RaiseEvent LOADED()
End Sub
@@ -138,6 +145,8 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frmBonitätsverlauf As New frmBonitätsverlauf(KdNR, Me)
+
+ frmBonitätsverlauf.newView = creditsafe_newView
frmBonitätsverlauf.Show()
End Sub
diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb
index 07cacee4..9eca60de 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -3675,9 +3675,9 @@ Public Class frmMDM_USTVAntrag
End Select
Dim path As String = PDFInvoicesPath(posID)
- If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez)
+ Dim fileInfo As New FileInfo(path)
+ If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
- 'NOCH DEAKTIVIERT
If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
@@ -3685,13 +3685,15 @@ Public Class frmMDM_USTVAntrag
If Not spedBuch.ErfassungsNr = "" Then
Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
-
- If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS)
+ If pathPosList <> "" Then
+ Dim fileInfoPos As New FileInfo(pathPosList)
+ If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
+ End If
End If
- End If
+ End If
Dim TextHTML = ""
@@ -3700,6 +3702,10 @@ Public Class frmMDM_USTVAntrag
Mail.HTMLBody = TextHTML
End If
+ Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+ Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
+ Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
+
Mail.Display()
Me.Cursor = Cursors.Default
Catch ex As Exception
diff --git a/SDL/kunden/frmBonitätsverlauf.vb b/SDL/kunden/frmBonitätsverlauf.vb
index 1aff9e01..3467c0c2 100644
--- a/SDL/kunden/frmBonitätsverlauf.vb
+++ b/SDL/kunden/frmBonitätsverlauf.vb
@@ -1,6 +1,10 @@
-Public Class frmBonitätsverlauf
+Imports GrapeCity.DataVisualization.Chart
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmBonitätsverlauf
Public kdnr = -1
+ Public newView As Boolean = False
Sub New(kdnr)
InitializeComponent()
Me.kdnr = kdnr
@@ -39,7 +43,86 @@
If KdSearchBox1.KdNr_value > 0 Then
With MyDatagridview1
Dim sqlstr As String = ""
- sqlstr &= "SELECT * FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
+ Dim KD_ERW As New cKundenErweitert(KdSearchBox1.KdNr_value)
+
+ If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" AndAlso newView Then
+
+ Dim sqlIndex As String = ""
+
+ If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then
+ sqlIndex = ",ba_CreditSaveBonitaetsScore"
+ Else
+ sqlIndex = ",ba_CreditSaveBonitaetsIndex"
+ End If
+
+
+
+ sqlstr &= "
+SELECT ba_Datum" & sqlIndex & ",ba_GruendundsDatum,ba_Umsatz,ba_Mitarbeiter,ba_Hoechstkredit,ba_Sachbearbeiter,ba_Zahlungsweise,ba_GFName,ba_Risikostufe,ba_CreditSaveRisikoklasse,ba_Pruefungstool,ba_GSName,ba_Geschaeftszweck,ba_datenarchivId
+ FROM tblBonitaetsauskunft
+ where ba_KundenNr= " & KdSearchBox1.KdNr_value & "
+
+UNION ALL
+
+
+SELECT
+ cast(e.eventDate as Date),
+ MAX(e.crValue) AS TotalCR,
+ NULL,
+ NULL,
+ NULL,
+ MAX(e.clValue) AS TotalCL,
+ MAX(sachbearbeiter),
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ Source,
+ NULL,
+ NULL,
+ NULL
+FROM (SELECT
+ e.companyId,
+ e.portfolioId,
+ e.eventDate,
+ e.sachbearbeiter,
+ CASE WHEN e.localEventCode = 'CR' OR e.globalEventCode ='CR' THEN e.newValueCR ELSE 0 END AS crValue,
+ CASE WHEN e.localEventCode = 'CL' OR e.globalEventCode ='CL' THEN e.newValueCL ELSE 0 END AS clValue,
+ 'creditsafe API' AS Source
+ FROM [VERAG].[dbo].[tblCreditsafeEvents] e
+ INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b
+ ON e.bonId = b.ba_id
+ WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
+ AND b.ba_Pruefungstool = 'creditsafe API'
+ AND (e.localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR'))
+) e
+GROUP BY e.companyId, e.portfolioId, cast(e.eventDate as Date), Source
+ order by ba_Datum desc"
+
+ Else
+
+ sqlstr &= "SELECT ba_Datum
+ ,ba_Sachbearbeiter
+ ,ba_BonitaetsIndex
+ ,ba_CreditSaveBonitaetsIndex
+ ,ba_CreditSaveBonitaetsScore
+ ,ba_GruendundsDatum
+ ,ba_Umsatz
+ ,ba_Mitarbeiter
+ ,ba_Hoechstkredit
+ ,ba_Zahlungsweise
+ ,ba_GFName
+ ,ba_Risikostufe
+ ,ba_CreditSaveRisikoklasse
+ ,ba_Pruefungstool
+ ,ba_GSName
+ ,ba_Geschaeftszweck
+ ,ba_datenarchivId
+ FROM tblBonitaetsauskunft where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
+
+
+ End If
+
.SET_SQL(sqlstr, "FMZOLL")
.LOAD()
@@ -49,24 +132,9 @@
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
-
- .Columns("ba_id").Visible = False
- .Columns("ba_KundenNr").Visible = False
- .Columns("ba_MaId").Visible = False
-
-
- .Columns("ba_CRArt").Visible = False
- .Columns("ba_CRAnsprechpartnerHerrFrau").Visible = False
- .Columns("ba_CRAnsprechpartner").Visible = False
- .Columns("ba_Firma").Visible = False
- .Columns("ba_Adresse1").Visible = False
- .Columns("ba_Adresse2").Visible = False
- .Columns("ba_LetztesBearbeitungsDatum").Visible = False
- .Columns("ba_Bankverbindung").Visible = False
- .Columns("ba_Sonstiges").Visible = False
+ .Columns("ba_datenarchivId").Visible = False
.Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
.Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
- .Columns("ba_datenarchivId").Visible = False
Dim c As New DataGridViewImageColumn
c.Name = "PDF" : c.HeaderText = "Bericht"
diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb
index 7211e266..b2db6e44 100644
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -45,6 +45,7 @@ Public Class frmKundenblatt
Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10}
Dim isVerag360 As Boolean = False
+ Dim creditsafe_newView As Boolean = False
Sub New()
@@ -122,6 +123,10 @@ Public Class frmKundenblatt
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
End If
+
+ Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+ creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
Me.KeyPreview = True
pnlInfo.Height = 0
@@ -2188,6 +2193,7 @@ Public Class frmKundenblatt
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
+ f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
KdSearchBox1.KdNr = kdNr
diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
index 52ce76a1..62a68fc3 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -50,26 +50,20 @@ Partial Class usrCntlKundenuebersicht
Me.lblKeineSperren = New System.Windows.Forms.Label()
Me.pnlSperre = New System.Windows.Forms.Panel()
Me.btnSaveOfferte = New System.Windows.Forms.Button()
- Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox()
Me.Label36 = New System.Windows.Forms.Label()
Me.Label67 = New System.Windows.Forms.Label()
Me.tbOffenePosten = New System.Windows.Forms.TabPage()
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
Me.pnl = New System.Windows.Forms.Panel()
- Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label44 = New System.Windows.Forms.Label()
Me.tbUmsatz = New System.Windows.Forms.TabPage()
Me.dgvUmsatzbericht = New System.Windows.Forms.DataGridView()
Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.pnlAnh = New System.Windows.Forms.Panel()
- Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.dgvAnhaenge = New System.Windows.Forms.DataGridView()
Me.btnAddAttach = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
- Me.btnThereforeTarifNr = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.btnThereforeKundeninfo = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblKdNr = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.grpAbfertigung = New System.Windows.Forms.GroupBox()
@@ -86,67 +80,42 @@ Partial Class usrCntlKundenuebersicht
Me.txtVorauskasse = New System.Windows.Forms.TextBox()
Me.lblAviso = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
- Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.pnlVERAGSnspr = New System.Windows.Forms.Panel()
- Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label34 = New System.Windows.Forms.Label()
- Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.Label33 = New System.Windows.Forms.Label()
- Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label29 = New System.Windows.Forms.Label()
- Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.lblFisk = New System.Windows.Forms.Label()
- Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label41 = New System.Windows.Forms.Label()
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
Me.lblBesonderheiten = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
- Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnCreditsafe = New System.Windows.Forms.Button()
- Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label68 = New System.Windows.Forms.Label()
- Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label69 = New System.Windows.Forms.Label()
- Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label46 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel6 = New System.Windows.Forms.Panel()
- Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblOffenePosten = New System.Windows.Forms.Label()
- Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label32 = New System.Windows.Forms.Label()
- Me.txtOPCredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
- Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel7 = New System.Windows.Forms.Panel()
- Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
- Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblVorkasse = New System.Windows.Forms.Label()
- Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVeranlKd = New System.Windows.Forms.TextBox()
Me.lblVeranlKd = New System.Windows.Forms.Label()
Me.grpAdresse = New System.Windows.Forms.GroupBox()
Me.tbKontakt = New System.Windows.Forms.TabControl()
Me.tbKontaktKontakt = New System.Windows.Forms.TabPage()
- Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton()
- Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lblAnsprechpartner = New System.Windows.Forms.TextBox()
Me.lblMobil = New System.Windows.Forms.TextBox()
@@ -159,7 +128,6 @@ Partial Class usrCntlKundenuebersicht
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.tbKontaktSpez = New System.Windows.Forms.TabPage()
- Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label38 = New System.Windows.Forms.Label()
Me.txtDebitorennr = New System.Windows.Forms.TextBox()
Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel()
@@ -189,24 +157,18 @@ Partial Class usrCntlKundenuebersicht
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
- Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
- Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.picVertrag = New System.Windows.Forms.PictureBox()
Me.tbGestellGarant = New System.Windows.Forms.TabPage()
Me.dgvGestGarantie = New System.Windows.Forms.DataGridView()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxGG = New System.Windows.Forms.CheckBox()
- Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.tbAvisoMail = New System.Windows.Forms.TabPage()
- Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.tbKdSpez = New System.Windows.Forms.TabPage()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label43 = New System.Windows.Forms.Label()
@@ -215,9 +177,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label31 = New System.Windows.Forms.Label()
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
Me.Label10 = New System.Windows.Forms.Label()
- Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
- Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.tbSonstiges = New System.Windows.Forms.TabPage()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblSteuernummer = New System.Windows.Forms.TextBox()
@@ -231,14 +190,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblUid = New System.Windows.Forms.TextBox()
Me.lblEORI = New System.Windows.Forms.TextBox()
Me.lblEORINr = New System.Windows.Forms.Label()
- Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
- Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -258,11 +209,60 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnReloadOP = New System.Windows.Forms.Button()
- Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
Me.btnOP = New System.Windows.Forms.Button()
Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
+ Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+ Me.btnThereforeTarifNr = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.btnThereforeKundeninfo = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
+ Me.txtKundenbetreuerTeam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.btnVeragAnspr = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.txtKundenbetreuerVertretung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtKundenbetreuer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.btnPunkt2Save = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.cbxFiskalabfertigung = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+ Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.lblHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.lblBonitaetRisikostufe = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.lblBonitaetsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOPFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOffenePosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOPCredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
+ Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
+ Me.txtInfoKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtFixeKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
Me.cntxtAddVM.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.tbOfferten.SuspendLayout()
@@ -310,12 +310,12 @@ Partial Class usrCntlKundenuebersicht
Me.tbAvisoMail.SuspendLayout()
Me.tbKdSpez.SuspendLayout()
Me.tbSonstiges.SuspendLayout()
- CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.ContextMenuStrip3.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout()
Me.ContextMenuStrip4.SuspendLayout()
Me.ContextMenuStrip5.SuspendLayout()
+ CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cntxtAddVM
@@ -503,54 +503,6 @@ Partial Class usrCntlKundenuebersicht
Me.btnSaveOfferte.Text = "Speichern"
Me.btnSaveOfferte.UseVisualStyleBackColor = True
'
- 'txtSperreGrund
- '
- Me.txtSperreGrund._DateTimeOnly = False
- Me.txtSperreGrund._numbersOnly = False
- Me.txtSperreGrund._numbersOnlyKommastellen = ""
- Me.txtSperreGrund._numbersOnlyTrennzeichen = True
- Me.txtSperreGrund._Prozent = False
- Me.txtSperreGrund._ShortDateNew = False
- Me.txtSperreGrund._ShortDateOnly = False
- Me.txtSperreGrund._TimeOnly = False
- Me.txtSperreGrund._TimeOnly_Seconds = False
- Me.txtSperreGrund._value = Nothing
- Me.txtSperreGrund._Waehrung = False
- Me.txtSperreGrund._WaehrungZeichen = True
- Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black
- Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7)
- Me.txtSperreGrund.MaxLineLength = -1
- Me.txtSperreGrund.MaxLines_Warning = ""
- Me.txtSperreGrund.MaxLines_Warning_Label = Nothing
- Me.txtSperreGrund.Name = "txtSperreGrund"
- Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20)
- Me.txtSperreGrund.TabIndex = 4
- '
- 'txtSperreDat
- '
- Me.txtSperreDat._DateTimeOnly = False
- Me.txtSperreDat._numbersOnly = False
- Me.txtSperreDat._numbersOnlyKommastellen = ""
- Me.txtSperreDat._numbersOnlyTrennzeichen = True
- Me.txtSperreDat._Prozent = False
- Me.txtSperreDat._ShortDateNew = False
- Me.txtSperreDat._ShortDateOnly = False
- Me.txtSperreDat._TimeOnly = False
- Me.txtSperreDat._TimeOnly_Seconds = False
- Me.txtSperreDat._value = Nothing
- Me.txtSperreDat._Waehrung = False
- Me.txtSperreDat._WaehrungZeichen = True
- Me.txtSperreDat.BackColor = System.Drawing.Color.White
- Me.txtSperreDat.ForeColor = System.Drawing.Color.Black
- Me.txtSperreDat.Location = New System.Drawing.Point(129, 7)
- Me.txtSperreDat.MaxLineLength = -1
- Me.txtSperreDat.MaxLines_Warning = ""
- Me.txtSperreDat.MaxLines_Warning_Label = Nothing
- Me.txtSperreDat.Name = "txtSperreDat"
- Me.txtSperreDat.ReadOnly = True
- Me.txtSperreDat.Size = New System.Drawing.Size(100, 20)
- Me.txtSperreDat.TabIndex = 2
- '
'cbxSperreSetzen
'
Me.cbxSperreSetzen.AutoSize = True
@@ -625,34 +577,6 @@ Partial Class usrCntlKundenuebersicht
Me.pnl.TabIndex = 0
Me.pnl.Visible = False
'
- 'txtOpLeihgeld
- '
- Me.txtOpLeihgeld._DateTimeOnly = False
- Me.txtOpLeihgeld._numbersOnly = False
- Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
- Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True
- Me.txtOpLeihgeld._Prozent = False
- Me.txtOpLeihgeld._ShortDateNew = False
- Me.txtOpLeihgeld._ShortDateOnly = False
- Me.txtOpLeihgeld._TimeOnly = False
- Me.txtOpLeihgeld._TimeOnly_Seconds = False
- Me.txtOpLeihgeld._value = Nothing
- Me.txtOpLeihgeld._Waehrung = False
- Me.txtOpLeihgeld._WaehrungZeichen = True
- Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
- Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
- Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9)
- Me.txtOpLeihgeld.MaxLineLength = -1
- Me.txtOpLeihgeld.MaxLines_Warning = ""
- Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
- Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
- Me.txtOpLeihgeld.ReadOnly = True
- Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
- Me.txtOpLeihgeld.TabIndex = 1
- Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label44
'
Me.Label44.AutoSize = True
@@ -717,28 +641,6 @@ Partial Class usrCntlKundenuebersicht
Me.pnlAnh.Size = New System.Drawing.Size(655, 294)
Me.pnlAnh.TabIndex = 0
'
- 'usrCntlAnhaenge
- '
- Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE"
- Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE"
- Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL"
- Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = ""
- Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
- Me.usrCntlAnhaenge._OPEN_ORIGINAL = False
- Me.usrCntlAnhaenge._TYPE = ""
- Me.usrCntlAnhaenge.AllowDrop = True
- Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
- Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
- Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default
- Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill
- Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0)
- Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0)
- Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge"
- Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255)
- Me.usrCntlAnhaenge.TabIndex = 0
- '
'dgvAnhaenge
'
Me.dgvAnhaenge.AllowUserToAddRows = False
@@ -784,42 +686,6 @@ Partial Class usrCntlKundenuebersicht
Me.Panel3.Size = New System.Drawing.Size(655, 39)
Me.Panel3.TabIndex = 3
'
- 'btnThereforeTarifNr
- '
- Me.btnThereforeTarifNr.allowBorder = False
- Me.btnThereforeTarifNr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btnThereforeTarifNr.FlatAppearance.BorderSize = 0
- Me.btnThereforeTarifNr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnThereforeTarifNr.ForeColor = System.Drawing.Color.Black
- Me.btnThereforeTarifNr.Image = Global.SDL.My.Resources.Resources.therefore1
- Me.btnThereforeTarifNr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btnThereforeTarifNr.Location = New System.Drawing.Point(5, 3)
- Me.btnThereforeTarifNr.Name = "btnThereforeTarifNr"
- Me.btnThereforeTarifNr.Size = New System.Drawing.Size(118, 33)
- Me.btnThereforeTarifNr.TabIndex = 0
- Me.btnThereforeTarifNr.Tag = ""
- Me.btnThereforeTarifNr.Text = "Tarifnummern"
- Me.btnThereforeTarifNr.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btnThereforeTarifNr.UseVisualStyleBackColor = True
- '
- 'btnThereforeKundeninfo
- '
- Me.btnThereforeKundeninfo.allowBorder = False
- Me.btnThereforeKundeninfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btnThereforeKundeninfo.FlatAppearance.BorderSize = 0
- Me.btnThereforeKundeninfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnThereforeKundeninfo.ForeColor = System.Drawing.Color.Black
- Me.btnThereforeKundeninfo.Image = Global.SDL.My.Resources.Resources.therefore1
- Me.btnThereforeKundeninfo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btnThereforeKundeninfo.Location = New System.Drawing.Point(144, 3)
- Me.btnThereforeKundeninfo.Name = "btnThereforeKundeninfo"
- Me.btnThereforeKundeninfo.Size = New System.Drawing.Size(118, 33)
- Me.btnThereforeKundeninfo.TabIndex = 1
- Me.btnThereforeKundeninfo.Tag = ""
- Me.btnThereforeKundeninfo.Text = "Kundeninfo"
- Me.btnThereforeKundeninfo.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btnThereforeKundeninfo.UseVisualStyleBackColor = True
- '
'lblKdNr
'
Me.lblKdNr.BackColor = System.Drawing.Color.White
@@ -1039,17 +905,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label2.Text = "Aviso:"
Me.Label2.Visible = False
'
- 'UsrCntlKundenBesonderheiten1
- '
- Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
- Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
- Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
- Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
- Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
- Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
- Me.UsrCntlKundenBesonderheiten1.Visible = False
- '
'lblAbfertigungsverbot
'
Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red
@@ -1089,83 +944,6 @@ Partial Class usrCntlKundenuebersicht
Me.pnlVERAGSnspr.Size = New System.Drawing.Size(181, 82)
Me.pnlVERAGSnspr.TabIndex = 35
'
- 'txtKundenbetreuerTeam
- '
- Me.txtKundenbetreuerTeam._DateTimeOnly = False
- Me.txtKundenbetreuerTeam._numbersOnly = False
- Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = ""
- Me.txtKundenbetreuerTeam._numbersOnlyTrennzeichen = True
- Me.txtKundenbetreuerTeam._Prozent = False
- Me.txtKundenbetreuerTeam._ShortDateNew = False
- Me.txtKundenbetreuerTeam._ShortDateOnly = False
- Me.txtKundenbetreuerTeam._TimeOnly = False
- Me.txtKundenbetreuerTeam._TimeOnly_Seconds = False
- Me.txtKundenbetreuerTeam._value = "-"
- Me.txtKundenbetreuerTeam._Waehrung = False
- Me.txtKundenbetreuerTeam._WaehrungZeichen = True
- Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke
- Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black
- Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 23)
- Me.txtKundenbetreuerTeam.MaxLineLength = -1
- Me.txtKundenbetreuerTeam.MaxLines_Warning = ""
- Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing
- Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam"
- Me.txtKundenbetreuerTeam.ReadOnly = True
- Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(168, 13)
- Me.txtKundenbetreuerTeam.TabIndex = 2
- Me.txtKundenbetreuerTeam.Text = "-"
- '
- 'btnVeragAnspr
- '
- Me.btnVeragAnspr.allowBorder = False
- Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift
- Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btnVeragAnspr.FlatAppearance.BorderSize = 0
- Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black
- Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7)
- Me.btnVeragAnspr.Name = "btnVeragAnspr"
- Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12)
- Me.btnVeragAnspr.TabIndex = 1
- Me.btnVeragAnspr.UseVisualStyleBackColor = True
- Me.btnVeragAnspr.Visible = False
- '
- 'txtKundenbetreuerVertretung
- '
- Me.txtKundenbetreuerVertretung._DateTimeOnly = False
- Me.txtKundenbetreuerVertretung._numbersOnly = False
- Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = ""
- Me.txtKundenbetreuerVertretung._numbersOnlyTrennzeichen = True
- Me.txtKundenbetreuerVertretung._Prozent = False
- Me.txtKundenbetreuerVertretung._ShortDateNew = False
- Me.txtKundenbetreuerVertretung._ShortDateOnly = False
- Me.txtKundenbetreuerVertretung._TimeOnly = False
- Me.txtKundenbetreuerVertretung._TimeOnly_Seconds = False
- Me.txtKundenbetreuerVertretung._value = "-"
- Me.txtKundenbetreuerVertretung._Waehrung = False
- Me.txtKundenbetreuerVertretung._WaehrungZeichen = True
- Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke
- Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black
- Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 61)
- Me.txtKundenbetreuerVertretung.MaxLineLength = -1
- Me.txtKundenbetreuerVertretung.MaxLines_Warning = ""
- Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing
- Me.txtKundenbetreuerVertretung.Multiline = True
- Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung"
- Me.txtKundenbetreuerVertretung.ReadOnly = True
- Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(168, 24)
- Me.txtKundenbetreuerVertretung.TabIndex = 4
- Me.txtKundenbetreuerVertretung.Text = "-"
- Me.txtKundenbetreuerVertretung.Visible = False
- '
'Label34
'
Me.Label34.AutoSize = True
@@ -1176,52 +954,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label34.TabIndex = 0
Me.Label34.Text = "VERAG-Ansprechpartner:"
'
- 'txtKundenbetreuer
- '
- Me.txtKundenbetreuer._DateTimeOnly = False
- Me.txtKundenbetreuer._numbersOnly = False
- Me.txtKundenbetreuer._numbersOnlyKommastellen = ""
- Me.txtKundenbetreuer._numbersOnlyTrennzeichen = True
- Me.txtKundenbetreuer._Prozent = False
- Me.txtKundenbetreuer._ShortDateNew = False
- Me.txtKundenbetreuer._ShortDateOnly = False
- Me.txtKundenbetreuer._TimeOnly = False
- Me.txtKundenbetreuer._TimeOnly_Seconds = False
- Me.txtKundenbetreuer._value = "-"
- Me.txtKundenbetreuer._Waehrung = False
- Me.txtKundenbetreuer._WaehrungZeichen = True
- Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke
- Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black
- Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 42)
- Me.txtKundenbetreuer.MaxLineLength = -1
- Me.txtKundenbetreuer.MaxLines_Warning = ""
- Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing
- Me.txtKundenbetreuer.Name = "txtKundenbetreuer"
- Me.txtKundenbetreuer.ReadOnly = True
- Me.txtKundenbetreuer.Size = New System.Drawing.Size(168, 13)
- Me.txtKundenbetreuer.TabIndex = 3
- Me.txtKundenbetreuer.Text = "-"
- '
- 'btnPunkt2Save
- '
- Me.btnPunkt2Save.allowBorder = False
- Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save
- Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btnPunkt2Save.FlatAppearance.BorderSize = 0
- Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black
- Me.btnPunkt2Save.Location = New System.Drawing.Point(647, 205)
- Me.btnPunkt2Save.Name = "btnPunkt2Save"
- Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20)
- Me.btnPunkt2Save.TabIndex = 12
- Me.btnPunkt2Save.UseVisualStyleBackColor = True
- Me.btnPunkt2Save.Visible = False
- '
'Button7
'
Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1270,34 +1002,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label33.TabIndex = 33
Me.Label33.Text = "Zahlungsziel:"
'
- 'txtUmsatzJahr
- '
- Me.txtUmsatzJahr._DateTimeOnly = False
- Me.txtUmsatzJahr._numbersOnly = False
- Me.txtUmsatzJahr._numbersOnlyKommastellen = ""
- Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True
- Me.txtUmsatzJahr._Prozent = False
- Me.txtUmsatzJahr._ShortDateNew = False
- Me.txtUmsatzJahr._ShortDateOnly = False
- Me.txtUmsatzJahr._TimeOnly = False
- Me.txtUmsatzJahr._TimeOnly_Seconds = False
- Me.txtUmsatzJahr._value = Nothing
- Me.txtUmsatzJahr._Waehrung = False
- Me.txtUmsatzJahr._WaehrungZeichen = True
- Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White
- Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
- Me.txtUmsatzJahr.Location = New System.Drawing.Point(383, 274)
- Me.txtUmsatzJahr.MaxLineLength = -1
- Me.txtUmsatzJahr.MaxLines_Warning = ""
- Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
- Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
- Me.txtUmsatzJahr.ReadOnly = True
- Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
- Me.txtUmsatzJahr.TabIndex = 32
- Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label29
'
Me.Label29.AutoSize = True
@@ -1308,20 +1012,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label29.TabIndex = 31
Me.Label29.Text = "Umsatz Jahr:"
'
- 'cbxFiskalabfertigung
- '
- Me.cbxFiskalabfertigung._value = ""
- Me.cbxFiskalabfertigung.AutoSize = True
- Me.cbxFiskalabfertigung.Checked_value = False
- Me.cbxFiskalabfertigung.CheckedValue = False
- Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134)
- Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung"
- Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17)
- Me.cbxFiskalabfertigung.TabIndex = 8
- Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben"
- Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True
- Me.cbxFiskalabfertigung.Visible = False
- '
'lblFisk
'
Me.lblFisk.AutoSize = True
@@ -1335,36 +1025,6 @@ Partial Class usrCntlKundenuebersicht
"en!"
Me.lblFisk.Visible = False
'
- 'txtAbf_ErsteAbfertigung
- '
- Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False
- Me.txtAbf_ErsteAbfertigung._numbersOnly = False
- Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = ""
- Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True
- Me.txtAbf_ErsteAbfertigung._Prozent = False
- Me.txtAbf_ErsteAbfertigung._ShortDateNew = False
- Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True
- 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
- Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White
- Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black
- Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(305, 195)
- Me.txtAbf_ErsteAbfertigung.MaxLength = 10
- Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1
- Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = ""
- Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing
- Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung"
- Me.txtAbf_ErsteAbfertigung.ReadOnly = True
- Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13)
- Me.txtAbf_ErsteAbfertigung.TabIndex = 14
- Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- Me.txtAbf_ErsteAbfertigung.Visible = False
- '
'Label41
'
Me.Label41.AutoSize = True
@@ -1425,7 +1085,7 @@ Partial Class usrCntlKundenuebersicht
'
'pbCreditsafeChanges
'
- Me.pbCreditsafeChanges.BackgroundImage = Global.SDL.My.Resources.Resources.warning2
+ Me.pbCreditsafeChanges.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.pbCreditsafeChanges.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pbCreditsafeChanges.Cursor = System.Windows.Forms.Cursors.Hand
Me.pbCreditsafeChanges.Location = New System.Drawing.Point(638, 3)
@@ -1447,20 +1107,6 @@ Partial Class usrCntlKundenuebersicht
Me.PictureBox6.TabStop = False
Me.PictureBox6.Visible = False
'
- 'FlatButton2
- '
- Me.FlatButton2.allowBorder = False
- Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
- Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.FlatButton2.FlatAppearance.BorderSize = 0
- Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton2.ForeColor = System.Drawing.Color.Black
- Me.FlatButton2.Location = New System.Drawing.Point(222, 6)
- Me.FlatButton2.Name = "FlatButton2"
- Me.FlatButton2.Size = New System.Drawing.Size(15, 12)
- Me.FlatButton2.TabIndex = 11
- Me.FlatButton2.UseVisualStyleBackColor = True
- '
'btnCreditsafe
'
Me.btnCreditsafe.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1474,35 +1120,6 @@ Partial Class usrCntlKundenuebersicht
Me.btnCreditsafe.UseVisualStyleBackColor = True
Me.btnCreditsafe.Visible = False
'
- 'FlatButton6
- '
- Me.FlatButton6.allowBorder = False
- Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list
- Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.FlatButton6.FlatAppearance.BorderSize = 0
- Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton6.ForeColor = System.Drawing.Color.Black
- Me.FlatButton6.Location = New System.Drawing.Point(202, 7)
- Me.FlatButton6.Name = "FlatButton6"
- Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
- Me.FlatButton6.TabIndex = 9
- Me.FlatButton6.UseVisualStyleBackColor = True
- '
- 'btnBonitaetBearbeiten
- '
- Me.btnBonitaetBearbeiten.allowBorder = False
- Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus
- Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
- Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
- Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(183, 6)
- Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
- Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
- Me.btnBonitaetBearbeiten.TabIndex = 8
- Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True
- Me.btnBonitaetBearbeiten.Visible = False
- '
'Label68
'
Me.Label68.AutoSize = True
@@ -1513,35 +1130,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label68.TabIndex = 4
Me.Label68.Text = "vom:"
'
- 'lblHoechstkredit
- '
- Me.lblHoechstkredit._DateTimeOnly = False
- Me.lblHoechstkredit._numbersOnly = True
- Me.lblHoechstkredit._numbersOnlyKommastellen = ""
- Me.lblHoechstkredit._numbersOnlyTrennzeichen = True
- Me.lblHoechstkredit._Prozent = False
- Me.lblHoechstkredit._ShortDateNew = False
- Me.lblHoechstkredit._ShortDateOnly = False
- Me.lblHoechstkredit._TimeOnly = False
- Me.lblHoechstkredit._TimeOnly_Seconds = False
- Me.lblHoechstkredit._value = ""
- Me.lblHoechstkredit._Waehrung = True
- Me.lblHoechstkredit._WaehrungZeichen = True
- Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke
- Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black
- Me.lblHoechstkredit.Location = New System.Drawing.Point(310, 5)
- Me.lblHoechstkredit.MaxLineLength = -1
- Me.lblHoechstkredit.MaxLines_Warning = ""
- Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing
- Me.lblHoechstkredit.Name = "lblHoechstkredit"
- Me.lblHoechstkredit.ReadOnly = True
- Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13)
- Me.lblHoechstkredit.TabIndex = 7
- Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- Me.lblHoechstkredit.Visible = False
- '
'Label69
'
Me.Label69.AutoSize = True
@@ -1553,89 +1141,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label69.Text = "Hochstkredit:"
Me.Label69.Visible = False
'
- 'lblBonitaet
- '
- Me.lblBonitaet._DateTimeOnly = False
- Me.lblBonitaet._numbersOnly = False
- Me.lblBonitaet._numbersOnlyKommastellen = ""
- Me.lblBonitaet._numbersOnlyTrennzeichen = True
- Me.lblBonitaet._Prozent = False
- Me.lblBonitaet._ShortDateNew = False
- Me.lblBonitaet._ShortDateOnly = False
- Me.lblBonitaet._TimeOnly = False
- Me.lblBonitaet._TimeOnly_Seconds = False
- Me.lblBonitaet._value = Nothing
- Me.lblBonitaet._Waehrung = False
- Me.lblBonitaet._WaehrungZeichen = True
- Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke
- Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
- Me.lblBonitaet.Location = New System.Drawing.Point(106, 6)
- Me.lblBonitaet.MaxLineLength = -1
- Me.lblBonitaet.MaxLines_Warning = ""
- Me.lblBonitaet.MaxLines_Warning_Label = Nothing
- Me.lblBonitaet.Name = "lblBonitaet"
- Me.lblBonitaet.ReadOnly = True
- Me.lblBonitaet.Size = New System.Drawing.Size(32, 13)
- Me.lblBonitaet.TabIndex = 1
- Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
- '
- 'lblBonitaetRisikostufe
- '
- Me.lblBonitaetRisikostufe._DateTimeOnly = False
- Me.lblBonitaetRisikostufe._numbersOnly = False
- Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = ""
- Me.lblBonitaetRisikostufe._numbersOnlyTrennzeichen = True
- Me.lblBonitaetRisikostufe._Prozent = False
- Me.lblBonitaetRisikostufe._ShortDateNew = False
- Me.lblBonitaetRisikostufe._ShortDateOnly = False
- Me.lblBonitaetRisikostufe._TimeOnly = False
- Me.lblBonitaetRisikostufe._TimeOnly_Seconds = False
- Me.lblBonitaetRisikostufe._value = Nothing
- Me.lblBonitaetRisikostufe._Waehrung = False
- Me.lblBonitaetRisikostufe._WaehrungZeichen = True
- Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke
- Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black
- Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6)
- Me.lblBonitaetRisikostufe.MaxLineLength = -1
- Me.lblBonitaetRisikostufe.MaxLines_Warning = ""
- Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing
- Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe"
- Me.lblBonitaetRisikostufe.ReadOnly = True
- Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13)
- Me.lblBonitaetRisikostufe.TabIndex = 3
- Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
- '
- 'lblBonitaetsdatum
- '
- Me.lblBonitaetsdatum._DateTimeOnly = False
- Me.lblBonitaetsdatum._numbersOnly = False
- Me.lblBonitaetsdatum._numbersOnlyKommastellen = ""
- Me.lblBonitaetsdatum._numbersOnlyTrennzeichen = True
- Me.lblBonitaetsdatum._Prozent = False
- Me.lblBonitaetsdatum._ShortDateNew = False
- Me.lblBonitaetsdatum._ShortDateOnly = False
- Me.lblBonitaetsdatum._TimeOnly = False
- Me.lblBonitaetsdatum._TimeOnly_Seconds = False
- Me.lblBonitaetsdatum._value = Nothing
- Me.lblBonitaetsdatum._Waehrung = False
- Me.lblBonitaetsdatum._WaehrungZeichen = True
- Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke
- Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black
- Me.lblBonitaetsdatum.Location = New System.Drawing.Point(447, 6)
- Me.lblBonitaetsdatum.MaxLineLength = -1
- Me.lblBonitaetsdatum.MaxLines_Warning = ""
- Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing
- Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum"
- Me.lblBonitaetsdatum.ReadOnly = True
- Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13)
- Me.lblBonitaetsdatum.TabIndex = 5
- '
'Label39
'
Me.Label39.AutoSize = True
@@ -1683,34 +1188,6 @@ Partial Class usrCntlKundenuebersicht
Me.Panel6.Size = New System.Drawing.Size(210, 1)
Me.Panel6.TabIndex = 42
'
- 'txtOPFaellig
- '
- Me.txtOPFaellig._DateTimeOnly = False
- Me.txtOPFaellig._numbersOnly = False
- Me.txtOPFaellig._numbersOnlyKommastellen = ""
- Me.txtOPFaellig._numbersOnlyTrennzeichen = True
- Me.txtOPFaellig._Prozent = False
- Me.txtOPFaellig._ShortDateNew = False
- Me.txtOPFaellig._ShortDateOnly = False
- Me.txtOPFaellig._TimeOnly = False
- Me.txtOPFaellig._TimeOnly_Seconds = False
- Me.txtOPFaellig._value = Nothing
- Me.txtOPFaellig._Waehrung = False
- Me.txtOPFaellig._WaehrungZeichen = True
- Me.txtOPFaellig.BackColor = System.Drawing.Color.AntiqueWhite
- Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black
- Me.txtOPFaellig.Location = New System.Drawing.Point(114, 6)
- Me.txtOPFaellig.MaxLineLength = -1
- Me.txtOPFaellig.MaxLines_Warning = ""
- Me.txtOPFaellig.MaxLines_Warning_Label = Nothing
- Me.txtOPFaellig.Name = "txtOPFaellig"
- Me.txtOPFaellig.ReadOnly = True
- Me.txtOPFaellig.Size = New System.Drawing.Size(108, 13)
- Me.txtOPFaellig.TabIndex = 30
- Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'lblOffenePosten
'
Me.lblOffenePosten.AutoSize = True
@@ -1721,34 +1198,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblOffenePosten.TabIndex = 27
Me.lblOffenePosten.Text = "OP-Saldo:"
'
- 'txtOffenePosten
- '
- Me.txtOffenePosten._DateTimeOnly = False
- Me.txtOffenePosten._numbersOnly = False
- Me.txtOffenePosten._numbersOnlyKommastellen = ""
- Me.txtOffenePosten._numbersOnlyTrennzeichen = True
- Me.txtOffenePosten._Prozent = False
- Me.txtOffenePosten._ShortDateNew = False
- Me.txtOffenePosten._ShortDateOnly = False
- Me.txtOffenePosten._TimeOnly = False
- Me.txtOffenePosten._TimeOnly_Seconds = False
- Me.txtOffenePosten._value = Nothing
- Me.txtOffenePosten._Waehrung = False
- Me.txtOffenePosten._WaehrungZeichen = True
- Me.txtOffenePosten.BackColor = System.Drawing.Color.AntiqueWhite
- Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black
- Me.txtOffenePosten.Location = New System.Drawing.Point(114, 66)
- Me.txtOffenePosten.MaxLineLength = -1
- Me.txtOffenePosten.MaxLines_Warning = ""
- Me.txtOffenePosten.MaxLines_Warning_Label = Nothing
- Me.txtOffenePosten.Name = "txtOffenePosten"
- Me.txtOffenePosten.ReadOnly = True
- Me.txtOffenePosten.Size = New System.Drawing.Size(108, 13)
- Me.txtOffenePosten.TabIndex = 28
- Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label32
'
Me.Label32.AutoSize = True
@@ -1759,34 +1208,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label32.TabIndex = 29
Me.Label32.Text = "Offene Rg. fällig:"
'
- 'txtOPCredit
- '
- Me.txtOPCredit._DateTimeOnly = False
- Me.txtOPCredit._numbersOnly = False
- Me.txtOPCredit._numbersOnlyKommastellen = ""
- Me.txtOPCredit._numbersOnlyTrennzeichen = True
- Me.txtOPCredit._Prozent = False
- Me.txtOPCredit._ShortDateNew = False
- Me.txtOPCredit._ShortDateOnly = False
- Me.txtOPCredit._TimeOnly = False
- Me.txtOPCredit._TimeOnly_Seconds = False
- Me.txtOPCredit._value = Nothing
- Me.txtOPCredit._Waehrung = False
- Me.txtOPCredit._WaehrungZeichen = True
- Me.txtOPCredit.BackColor = System.Drawing.Color.AntiqueWhite
- Me.txtOPCredit.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOPCredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOPCredit.ForeColor = System.Drawing.Color.Green
- Me.txtOPCredit.Location = New System.Drawing.Point(114, 46)
- Me.txtOPCredit.MaxLineLength = -1
- Me.txtOPCredit.MaxLines_Warning = ""
- Me.txtOPCredit.MaxLines_Warning_Label = Nothing
- Me.txtOPCredit.Name = "txtOPCredit"
- Me.txtOPCredit.ReadOnly = True
- Me.txtOPCredit.Size = New System.Drawing.Size(108, 13)
- Me.txtOPCredit.TabIndex = 41
- Me.txtOPCredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label17
'
Me.Label17.AutoSize = True
@@ -1807,34 +1228,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label18.TabIndex = 40
Me.Label18.Text = "- Guthaben"
'
- 'txtOPNichtFaellig
- '
- Me.txtOPNichtFaellig._DateTimeOnly = False
- Me.txtOPNichtFaellig._numbersOnly = False
- Me.txtOPNichtFaellig._numbersOnlyKommastellen = ""
- Me.txtOPNichtFaellig._numbersOnlyTrennzeichen = True
- Me.txtOPNichtFaellig._Prozent = False
- Me.txtOPNichtFaellig._ShortDateNew = False
- Me.txtOPNichtFaellig._ShortDateOnly = False
- Me.txtOPNichtFaellig._TimeOnly = False
- Me.txtOPNichtFaellig._TimeOnly_Seconds = False
- Me.txtOPNichtFaellig._value = Nothing
- Me.txtOPNichtFaellig._Waehrung = False
- Me.txtOPNichtFaellig._WaehrungZeichen = True
- Me.txtOPNichtFaellig.BackColor = System.Drawing.Color.AntiqueWhite
- Me.txtOPNichtFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOPNichtFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOPNichtFaellig.ForeColor = System.Drawing.Color.Black
- Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 25)
- Me.txtOPNichtFaellig.MaxLineLength = -1
- Me.txtOPNichtFaellig.MaxLines_Warning = ""
- Me.txtOPNichtFaellig.MaxLines_Warning_Label = Nothing
- Me.txtOPNichtFaellig.Name = "txtOPNichtFaellig"
- Me.txtOPNichtFaellig.ReadOnly = True
- Me.txtOPNichtFaellig.Size = New System.Drawing.Size(108, 13)
- Me.txtOPNichtFaellig.TabIndex = 39
- Me.txtOPNichtFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Panel7
'
Me.Panel7.BackColor = System.Drawing.Color.AntiqueWhite
@@ -1848,35 +1241,6 @@ Partial Class usrCntlKundenuebersicht
Me.Panel7.Size = New System.Drawing.Size(253, 46)
Me.Panel7.TabIndex = 43
'
- 'txtOVK
- '
- Me.txtOVK._DateTimeOnly = False
- Me.txtOVK._numbersOnly = False
- Me.txtOVK._numbersOnlyKommastellen = ""
- Me.txtOVK._numbersOnlyTrennzeichen = True
- Me.txtOVK._Prozent = False
- Me.txtOVK._ShortDateNew = False
- Me.txtOVK._ShortDateOnly = False
- Me.txtOVK._TimeOnly = False
- Me.txtOVK._TimeOnly_Seconds = False
- Me.txtOVK._value = Nothing
- Me.txtOVK._Waehrung = False
- Me.txtOVK._WaehrungZeichen = True
- Me.txtOVK.BackColor = System.Drawing.Color.AntiqueWhite
- Me.txtOVK.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtOVK.Cursor = System.Windows.Forms.Cursors.Hand
- Me.txtOVK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtOVK.ForeColor = System.Drawing.Color.Green
- Me.txtOVK.Location = New System.Drawing.Point(134, 4)
- Me.txtOVK.MaxLineLength = -1
- Me.txtOVK.MaxLines_Warning = ""
- Me.txtOVK.MaxLines_Warning_Label = Nothing
- Me.txtOVK.Name = "txtOVK"
- Me.txtOVK.ReadOnly = True
- Me.txtOVK.Size = New System.Drawing.Size(108, 13)
- Me.txtOVK.TabIndex = 44
- Me.txtOVK.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'Label19
'
Me.Label19.AutoSize = True
@@ -1898,34 +1262,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label1.TabIndex = 19
Me.Label1.Text = "Kreditlimit:"
'
- 'lblKreditlimit
- '
- Me.lblKreditlimit._DateTimeOnly = False
- Me.lblKreditlimit._numbersOnly = False
- Me.lblKreditlimit._numbersOnlyKommastellen = ""
- Me.lblKreditlimit._numbersOnlyTrennzeichen = True
- Me.lblKreditlimit._Prozent = False
- Me.lblKreditlimit._ShortDateNew = False
- Me.lblKreditlimit._ShortDateOnly = False
- Me.lblKreditlimit._TimeOnly = False
- Me.lblKreditlimit._TimeOnly_Seconds = False
- Me.lblKreditlimit._value = Nothing
- Me.lblKreditlimit._Waehrung = False
- Me.lblKreditlimit._WaehrungZeichen = True
- Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
- Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
- Me.lblKreditlimit.Location = New System.Drawing.Point(134, 24)
- Me.lblKreditlimit.MaxLineLength = -1
- Me.lblKreditlimit.MaxLines_Warning = ""
- Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
- Me.lblKreditlimit.Name = "lblKreditlimit"
- Me.lblKreditlimit.ReadOnly = True
- Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
- Me.lblKreditlimit.TabIndex = 20
- Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'lblVorkasse
'
Me.lblVorkasse.Location = New System.Drawing.Point(366, 230)
@@ -1935,34 +1271,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblVorkasse.Text = "Vorauskasse:"
Me.lblVorkasse.Visible = False
'
- 'txtZahlungsziel
- '
- Me.txtZahlungsziel._DateTimeOnly = False
- Me.txtZahlungsziel._numbersOnly = False
- Me.txtZahlungsziel._numbersOnlyKommastellen = ""
- Me.txtZahlungsziel._numbersOnlyTrennzeichen = True
- Me.txtZahlungsziel._Prozent = False
- Me.txtZahlungsziel._ShortDateNew = False
- Me.txtZahlungsziel._ShortDateOnly = False
- Me.txtZahlungsziel._TimeOnly = False
- Me.txtZahlungsziel._TimeOnly_Seconds = False
- Me.txtZahlungsziel._value = Nothing
- Me.txtZahlungsziel._Waehrung = False
- Me.txtZahlungsziel._WaehrungZeichen = True
- Me.txtZahlungsziel.BackColor = System.Drawing.Color.White
- Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black
- Me.txtZahlungsziel.Location = New System.Drawing.Point(310, 255)
- Me.txtZahlungsziel.MaxLineLength = -1
- Me.txtZahlungsziel.MaxLines_Warning = ""
- Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing
- Me.txtZahlungsziel.Name = "txtZahlungsziel"
- Me.txtZahlungsziel.ReadOnly = True
- Me.txtZahlungsziel.Size = New System.Drawing.Size(56, 13)
- Me.txtZahlungsziel.TabIndex = 34
- Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
- '
'txtVeranlKd
'
Me.txtVeranlKd.BackColor = System.Drawing.Color.White
@@ -2037,43 +1345,6 @@ Partial Class usrCntlKundenuebersicht
Me.tbKontaktKontakt.Text = "Kontakt"
Me.tbKontaktKontakt.UseVisualStyleBackColor = True
'
- 'btncheckliste
- '
- Me.btncheckliste.allowBorder = False
- Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.btncheckliste.FlatAppearance.BorderSize = 0
- Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btncheckliste.ForeColor = System.Drawing.Color.Black
- Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist
- Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.btncheckliste.Location = New System.Drawing.Point(388, 107)
- Me.btncheckliste.Name = "btncheckliste"
- Me.btncheckliste.Size = New System.Drawing.Size(88, 53)
- Me.btncheckliste.TabIndex = 9
- Me.btncheckliste.Tag = ""
- Me.btncheckliste.Text = "Checkliste"
- Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter
- Me.btncheckliste.UseVisualStyleBackColor = True
- '
- 'FlatButton1
- '
- Me.FlatButton1.allowBorder = False
- Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.FlatButton1.FlatAppearance.BorderSize = 0
- Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton1.ForeColor = System.Drawing.Color.Black
- Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose
- Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.FlatButton1.Location = New System.Drawing.Point(392, -3)
- Me.FlatButton1.Name = "FlatButton1"
- Me.FlatButton1.Size = New System.Drawing.Size(84, 68)
- Me.FlatButton1.TabIndex = 4
- Me.FlatButton1.Tag = ""
- Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben"
- Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
- Me.FlatButton1.UseVisualStyleBackColor = True
- Me.FlatButton1.Visible = False
- '
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -2214,14 +1485,6 @@ Partial Class usrCntlKundenuebersicht
Me.tbKontaktSpez.Text = "Spezifisch"
Me.tbKontaktSpez.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(473, 158)
- Me.ucKundenKontakte.TabIndex = 0
- '
'Label38
'
Me.Label38.AutoSize = True
@@ -2607,29 +1870,6 @@ Partial Class usrCntlKundenuebersicht
Me.Button12.UseVisualStyleBackColor = True
Me.Button12.Visible = False
'
- 'txtVertragVermerk
- '
- Me.txtVertragVermerk._DateTimeOnly = False
- Me.txtVertragVermerk._numbersOnly = False
- Me.txtVertragVermerk._numbersOnlyKommastellen = ""
- Me.txtVertragVermerk._numbersOnlyTrennzeichen = True
- Me.txtVertragVermerk._Prozent = False
- Me.txtVertragVermerk._ShortDateNew = False
- Me.txtVertragVermerk._ShortDateOnly = False
- Me.txtVertragVermerk._TimeOnly = False
- Me.txtVertragVermerk._TimeOnly_Seconds = False
- Me.txtVertragVermerk._value = ""
- Me.txtVertragVermerk._Waehrung = False
- Me.txtVertragVermerk._WaehrungZeichen = True
- Me.txtVertragVermerk.ForeColor = System.Drawing.Color.Black
- Me.txtVertragVermerk.Location = New System.Drawing.Point(60, 23)
- Me.txtVertragVermerk.MaxLineLength = -1
- Me.txtVertragVermerk.MaxLines_Warning = ""
- Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing
- Me.txtVertragVermerk.Name = "txtVertragVermerk"
- Me.txtVertragVermerk.Size = New System.Drawing.Size(326, 20)
- Me.txtVertragVermerk.TabIndex = 6
- '
'Label16
'
Me.Label16.AutoSize = True
@@ -2650,41 +1890,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label5.TabIndex = 2
Me.Label5.Text = "Datum:"
'
- 'cboVertrag
- '
- Me.cboVertrag._allowedValuesFreiText = Nothing
- Me.cboVertrag._allowFreiText = False
- Me.cboVertrag._value = ""
- Me.cboVertrag.FormattingEnabled = True
- Me.cboVertrag.Location = New System.Drawing.Point(60, 3)
- Me.cboVertrag.Name = "cboVertrag"
- Me.cboVertrag.Size = New System.Drawing.Size(178, 21)
- Me.cboVertrag.TabIndex = 1
- '
- 'datVertrag
- '
- Me.datVertrag._DateTimeOnly = False
- Me.datVertrag._numbersOnly = False
- Me.datVertrag._numbersOnlyKommastellen = ""
- Me.datVertrag._numbersOnlyTrennzeichen = True
- Me.datVertrag._Prozent = False
- Me.datVertrag._ShortDateNew = True
- Me.datVertrag._ShortDateOnly = False
- Me.datVertrag._TimeOnly = False
- Me.datVertrag._TimeOnly_Seconds = False
- Me.datVertrag._value = ""
- Me.datVertrag._Waehrung = False
- Me.datVertrag._WaehrungZeichen = True
- Me.datVertrag.ForeColor = System.Drawing.Color.Black
- Me.datVertrag.Location = New System.Drawing.Point(291, 3)
- Me.datVertrag.MaxLength = 10
- Me.datVertrag.MaxLineLength = -1
- Me.datVertrag.MaxLines_Warning = ""
- Me.datVertrag.MaxLines_Warning_Label = Nothing
- Me.datVertrag.Name = "datVertrag"
- Me.datVertrag.Size = New System.Drawing.Size(95, 20)
- Me.datVertrag.TabIndex = 3
- '
'Label4
'
Me.Label4.AutoSize = True
@@ -2763,56 +1968,6 @@ Partial Class usrCntlKundenuebersicht
Me.cbxGG.Text = "generelle Gestellungsgarantie"
Me.cbxGG.UseVisualStyleBackColor = True
'
- 'txtGGDatum
- '
- Me.txtGGDatum._DateTimeOnly = False
- Me.txtGGDatum._numbersOnly = False
- Me.txtGGDatum._numbersOnlyKommastellen = ""
- Me.txtGGDatum._numbersOnlyTrennzeichen = True
- Me.txtGGDatum._Prozent = False
- Me.txtGGDatum._ShortDateNew = True
- Me.txtGGDatum._ShortDateOnly = False
- Me.txtGGDatum._TimeOnly = False
- Me.txtGGDatum._TimeOnly_Seconds = False
- Me.txtGGDatum._value = ""
- Me.txtGGDatum._Waehrung = False
- Me.txtGGDatum._WaehrungZeichen = True
- Me.txtGGDatum.ForeColor = System.Drawing.Color.Black
- Me.txtGGDatum.Location = New System.Drawing.Point(256, 7)
- Me.txtGGDatum.MaxLength = 10
- Me.txtGGDatum.MaxLineLength = -1
- Me.txtGGDatum.MaxLines_Warning = ""
- Me.txtGGDatum.MaxLines_Warning_Label = Nothing
- Me.txtGGDatum.Name = "txtGGDatum"
- Me.txtGGDatum.Size = New System.Drawing.Size(100, 20)
- Me.txtGGDatum.TabIndex = 2
- '
- 'txtT1VerzollungsadresseBestimmungszollstelle
- '
- Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
- Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
- Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
- Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
- Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
- Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL"
- Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT"
- Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
- Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7)
- Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8
- Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
- Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
- Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20)
- Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing
- Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 1
- Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
- '
'Label11
'
Me.Label11.AutoSize = True
@@ -2861,16 +2016,6 @@ Partial Class usrCntlKundenuebersicht
Me.tbAvisoMail.Text = "Aviso E-Mails"
Me.tbAvisoMail.UseVisualStyleBackColor = True
'
- 'UsrCntlKundenAvisoMailBenachrichtigung1
- '
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
- '
'tbKdSpez
'
Me.tbKdSpez.Controls.Add(Me.Label14)
@@ -2958,69 +2103,6 @@ Partial Class usrCntlKundenuebersicht
Me.Label10.TabIndex = 0
Me.Label10.Text = "Dokumente bei LKW-Freigabe senden:"
'
- 'txtInfoKdAtrNr
- '
- Me.txtInfoKdAtrNr._DateTimeOnly = False
- Me.txtInfoKdAtrNr._numbersOnly = False
- Me.txtInfoKdAtrNr._numbersOnlyKommastellen = ""
- Me.txtInfoKdAtrNr._numbersOnlyTrennzeichen = True
- Me.txtInfoKdAtrNr._Prozent = False
- Me.txtInfoKdAtrNr._ShortDateNew = False
- Me.txtInfoKdAtrNr._ShortDateOnly = False
- Me.txtInfoKdAtrNr._TimeOnly = False
- Me.txtInfoKdAtrNr._TimeOnly_Seconds = False
- Me.txtInfoKdAtrNr._value = ""
- Me.txtInfoKdAtrNr._Waehrung = False
- Me.txtInfoKdAtrNr._WaehrungZeichen = True
- Me.txtInfoKdAtrNr.Enabled = False
- Me.txtInfoKdAtrNr.ForeColor = System.Drawing.Color.Black
- Me.txtInfoKdAtrNr.Location = New System.Drawing.Point(266, 41)
- Me.txtInfoKdAtrNr.MaxLineLength = -1
- Me.txtInfoKdAtrNr.MaxLines_Warning = ""
- Me.txtInfoKdAtrNr.MaxLines_Warning_Label = Nothing
- Me.txtInfoKdAtrNr.Name = "txtInfoKdAtrNr"
- Me.txtInfoKdAtrNr.Size = New System.Drawing.Size(192, 20)
- Me.txtInfoKdAtrNr.TabIndex = 6
- '
- 'txtFixeKdAtrNr
- '
- Me.txtFixeKdAtrNr._DateTimeOnly = False
- Me.txtFixeKdAtrNr._numbersOnly = False
- Me.txtFixeKdAtrNr._numbersOnlyKommastellen = ""
- Me.txtFixeKdAtrNr._numbersOnlyTrennzeichen = True
- Me.txtFixeKdAtrNr._Prozent = False
- Me.txtFixeKdAtrNr._ShortDateNew = False
- Me.txtFixeKdAtrNr._ShortDateOnly = False
- Me.txtFixeKdAtrNr._TimeOnly = False
- Me.txtFixeKdAtrNr._TimeOnly_Seconds = False
- Me.txtFixeKdAtrNr._value = ""
- Me.txtFixeKdAtrNr._Waehrung = False
- Me.txtFixeKdAtrNr._WaehrungZeichen = True
- Me.txtFixeKdAtrNr.Enabled = False
- Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black
- Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22)
- Me.txtFixeKdAtrNr.MaxLineLength = -1
- Me.txtFixeKdAtrNr.MaxLines_Warning = ""
- Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing
- Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr"
- Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20)
- Me.txtFixeKdAtrNr.TabIndex = 4
- '
- 'FlatButton4
- '
- Me.FlatButton4.allowBorder = False
- Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
- Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.FlatButton4.ForeColor = System.Drawing.Color.Black
- Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
- Me.FlatButton4.Location = New System.Drawing.Point(365, 134)
- Me.FlatButton4.Name = "FlatButton4"
- Me.FlatButton4.Size = New System.Drawing.Size(92, 26)
- Me.FlatButton4.TabIndex = 9
- Me.FlatButton4.Tag = ""
- Me.FlatButton4.Text = "Speichern"
- Me.FlatButton4.UseVisualStyleBackColor = True
- '
'tbSonstiges
'
Me.tbSonstiges.Controls.Add(Me.Label6)
@@ -3171,94 +2253,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblEORINr.TabIndex = 5
Me.lblEORINr.Text = "EORI-Nr.:"
'
- 'dgvAufschub
- '
- Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1
- Me.dgvAufschub.AllowUserToAddRows = False
- Me.dgvAufschub.AllowUserToDeleteRows = False
- Me.dgvAufschub.AllowUserToResizeColumns = False
- Me.dgvAufschub.AllowUserToResizeRows = False
- Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
- DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
- DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
- DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
- Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
- Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
- DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
- DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
- DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
- DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
- DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
- DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
- Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
- Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
- Me.dgvAufschub.MultiSelect = False
- Me.dgvAufschub.Name = "dgvAufschub"
- Me.dgvAufschub.ReadOnly = True
- Me.dgvAufschub.RowHeadersVisible = False
- Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
- Me.dgvAufschub.Size = New System.Drawing.Size(473, 75)
- Me.dgvAufschub.TabIndex = 11
- Me.dgvAufschub.TabStop = False
- '
- 'KtoId
- '
- Me.KtoId.HeaderText = "Id"
- Me.KtoId.Name = "KtoId"
- Me.KtoId.ReadOnly = True
- Me.KtoId.Visible = False
- '
- 'Art
- '
- Me.Art.HeaderText = "Aufschub"
- Me.Art.Name = "Art"
- Me.Art.ReadOnly = True
- Me.Art.Width = 120
- '
- 'HZA
- '
- DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
- Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
- Me.HZA.HeaderText = "HZA"
- Me.HZA.Name = "HZA"
- Me.HZA.ReadOnly = True
- Me.HZA.Width = 35
- '
- 'KontoNr
- '
- Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
- Me.KontoNr.HeaderText = "Konto Nr."
- Me.KontoNr.Name = "KontoNr"
- Me.KontoNr.ReadOnly = True
- Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
- '
- 'EORI
- '
- Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
- Me.EORI.HeaderText = "EORI"
- Me.EORI.Name = "EORI"
- Me.EORI.ReadOnly = True
- '
- 'NL
- '
- Me.NL.HeaderText = "NL"
- Me.NL.Name = "NL"
- Me.NL.ReadOnly = True
- Me.NL.Width = 60
- '
- 'BIN
- '
- Me.BIN.HeaderText = "BIN"
- Me.BIN.Name = "BIN"
- Me.BIN.ReadOnly = True
- Me.BIN.Visible = False
- '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem})
@@ -3395,26 +2389,6 @@ Partial Class usrCntlKundenuebersicht
Me.btnReloadOP.UseVisualStyleBackColor = True
Me.btnReloadOP.Visible = False
'
- 'cboFirmaFMZOLL
- '
- Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
- Me.cboFirmaFMZOLL._allowFreiText = False
- Me.cboFirmaFMZOLL._value = ""
- Me.cboFirmaFMZOLL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
- Me.cboFirmaFMZOLL.FormattingEnabled = True
- Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(984, 368)
- Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
- Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
- Me.cboFirmaFMZOLL.TabIndex = 10
- Me.cboFirmaFMZOLL.Visible = False
- '
- 'SessionService1
- '
- Me.SessionService1.Credentials = Nothing
- Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
- Me.SessionService1.UseDefaultCredentials = False
- '
'btnOP
'
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
@@ -3442,6 +2416,1032 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(150, 30)
Me.ToolStripMenuItem12.Text = "Schnelldruck"
'
+ 'cboFirmaFMZOLL
+ '
+ Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
+ Me.cboFirmaFMZOLL._allowFreiText = False
+ Me.cboFirmaFMZOLL._value = ""
+ Me.cboFirmaFMZOLL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cboFirmaFMZOLL.FormattingEnabled = True
+ Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(984, 368)
+ Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
+ Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
+ Me.cboFirmaFMZOLL.TabIndex = 10
+ Me.cboFirmaFMZOLL.Visible = False
+ '
+ 'txtSperreGrund
+ '
+ Me.txtSperreGrund._DateTimeOnly = False
+ Me.txtSperreGrund._numbersOnly = False
+ Me.txtSperreGrund._numbersOnlyKommastellen = ""
+ Me.txtSperreGrund._numbersOnlyTrennzeichen = True
+ Me.txtSperreGrund._Prozent = False
+ Me.txtSperreGrund._ShortDateNew = False
+ Me.txtSperreGrund._ShortDateOnly = False
+ Me.txtSperreGrund._TimeOnly = False
+ Me.txtSperreGrund._TimeOnly_Seconds = False
+ Me.txtSperreGrund._value = Nothing
+ Me.txtSperreGrund._Waehrung = False
+ Me.txtSperreGrund._WaehrungZeichen = True
+ Me.txtSperreGrund.ForeColor = System.Drawing.Color.Black
+ Me.txtSperreGrund.Location = New System.Drawing.Point(309, 7)
+ Me.txtSperreGrund.MaxLineLength = -1
+ Me.txtSperreGrund.MaxLines_Warning = ""
+ Me.txtSperreGrund.MaxLines_Warning_Label = Nothing
+ Me.txtSperreGrund.Name = "txtSperreGrund"
+ Me.txtSperreGrund.Size = New System.Drawing.Size(268, 20)
+ Me.txtSperreGrund.TabIndex = 4
+ '
+ 'txtSperreDat
+ '
+ Me.txtSperreDat._DateTimeOnly = False
+ Me.txtSperreDat._numbersOnly = False
+ Me.txtSperreDat._numbersOnlyKommastellen = ""
+ Me.txtSperreDat._numbersOnlyTrennzeichen = True
+ Me.txtSperreDat._Prozent = False
+ Me.txtSperreDat._ShortDateNew = False
+ Me.txtSperreDat._ShortDateOnly = False
+ Me.txtSperreDat._TimeOnly = False
+ Me.txtSperreDat._TimeOnly_Seconds = False
+ Me.txtSperreDat._value = Nothing
+ Me.txtSperreDat._Waehrung = False
+ Me.txtSperreDat._WaehrungZeichen = True
+ Me.txtSperreDat.BackColor = System.Drawing.Color.White
+ Me.txtSperreDat.ForeColor = System.Drawing.Color.Black
+ Me.txtSperreDat.Location = New System.Drawing.Point(129, 7)
+ Me.txtSperreDat.MaxLineLength = -1
+ Me.txtSperreDat.MaxLines_Warning = ""
+ Me.txtSperreDat.MaxLines_Warning_Label = Nothing
+ Me.txtSperreDat.Name = "txtSperreDat"
+ Me.txtSperreDat.ReadOnly = True
+ Me.txtSperreDat.Size = New System.Drawing.Size(100, 20)
+ Me.txtSperreDat.TabIndex = 2
+ '
+ 'txtOpLeihgeld
+ '
+ Me.txtOpLeihgeld._DateTimeOnly = False
+ Me.txtOpLeihgeld._numbersOnly = False
+ Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
+ Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True
+ Me.txtOpLeihgeld._Prozent = False
+ Me.txtOpLeihgeld._ShortDateNew = False
+ Me.txtOpLeihgeld._ShortDateOnly = False
+ Me.txtOpLeihgeld._TimeOnly = False
+ Me.txtOpLeihgeld._TimeOnly_Seconds = False
+ Me.txtOpLeihgeld._value = Nothing
+ Me.txtOpLeihgeld._Waehrung = False
+ Me.txtOpLeihgeld._WaehrungZeichen = True
+ Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
+ Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
+ Me.txtOpLeihgeld.Location = New System.Drawing.Point(141, 9)
+ Me.txtOpLeihgeld.MaxLineLength = -1
+ Me.txtOpLeihgeld.MaxLines_Warning = ""
+ Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
+ Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
+ Me.txtOpLeihgeld.ReadOnly = True
+ Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
+ Me.txtOpLeihgeld.TabIndex = 1
+ Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'usrCntlAnhaenge
+ '
+ Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE"
+ Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE"
+ Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL"
+ Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = ""
+ Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
+ Me.usrCntlAnhaenge._OPEN_ORIGINAL = False
+ Me.usrCntlAnhaenge._TYPE = ""
+ Me.usrCntlAnhaenge.AllowDrop = True
+ Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+ Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
+ Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default
+ Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0)
+ Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0)
+ Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge"
+ Me.usrCntlAnhaenge.Size = New System.Drawing.Size(655, 255)
+ Me.usrCntlAnhaenge.TabIndex = 0
+ '
+ 'btnThereforeTarifNr
+ '
+ Me.btnThereforeTarifNr.allowBorder = False
+ Me.btnThereforeTarifNr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btnThereforeTarifNr.FlatAppearance.BorderSize = 0
+ Me.btnThereforeTarifNr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnThereforeTarifNr.ForeColor = System.Drawing.Color.Black
+ Me.btnThereforeTarifNr.Image = Global.SDL.My.Resources.Resources.therefore1
+ Me.btnThereforeTarifNr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnThereforeTarifNr.Location = New System.Drawing.Point(5, 3)
+ Me.btnThereforeTarifNr.Name = "btnThereforeTarifNr"
+ Me.btnThereforeTarifNr.Size = New System.Drawing.Size(118, 33)
+ Me.btnThereforeTarifNr.TabIndex = 0
+ Me.btnThereforeTarifNr.Tag = ""
+ Me.btnThereforeTarifNr.Text = "Tarifnummern"
+ Me.btnThereforeTarifNr.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnThereforeTarifNr.UseVisualStyleBackColor = True
+ '
+ 'btnThereforeKundeninfo
+ '
+ Me.btnThereforeKundeninfo.allowBorder = False
+ Me.btnThereforeKundeninfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btnThereforeKundeninfo.FlatAppearance.BorderSize = 0
+ Me.btnThereforeKundeninfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnThereforeKundeninfo.ForeColor = System.Drawing.Color.Black
+ Me.btnThereforeKundeninfo.Image = Global.SDL.My.Resources.Resources.therefore1
+ Me.btnThereforeKundeninfo.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnThereforeKundeninfo.Location = New System.Drawing.Point(144, 3)
+ Me.btnThereforeKundeninfo.Name = "btnThereforeKundeninfo"
+ Me.btnThereforeKundeninfo.Size = New System.Drawing.Size(118, 33)
+ Me.btnThereforeKundeninfo.TabIndex = 1
+ Me.btnThereforeKundeninfo.Tag = ""
+ Me.btnThereforeKundeninfo.Text = "Kundeninfo"
+ Me.btnThereforeKundeninfo.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.btnThereforeKundeninfo.UseVisualStyleBackColor = True
+ '
+ 'UsrCntlKundenBesonderheiten1
+ '
+ Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
+ Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+ Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
+ Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+ Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+ Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
+ Me.UsrCntlKundenBesonderheiten1.Visible = False
+ '
+ 'txtKundenbetreuerTeam
+ '
+ Me.txtKundenbetreuerTeam._DateTimeOnly = False
+ Me.txtKundenbetreuerTeam._numbersOnly = False
+ Me.txtKundenbetreuerTeam._numbersOnlyKommastellen = ""
+ Me.txtKundenbetreuerTeam._numbersOnlyTrennzeichen = True
+ Me.txtKundenbetreuerTeam._Prozent = False
+ Me.txtKundenbetreuerTeam._ShortDateNew = False
+ Me.txtKundenbetreuerTeam._ShortDateOnly = False
+ Me.txtKundenbetreuerTeam._TimeOnly = False
+ Me.txtKundenbetreuerTeam._TimeOnly_Seconds = False
+ Me.txtKundenbetreuerTeam._value = "-"
+ Me.txtKundenbetreuerTeam._Waehrung = False
+ Me.txtKundenbetreuerTeam._WaehrungZeichen = True
+ Me.txtKundenbetreuerTeam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.txtKundenbetreuerTeam.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtKundenbetreuerTeam.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtKundenbetreuerTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtKundenbetreuerTeam.ForeColor = System.Drawing.Color.Black
+ Me.txtKundenbetreuerTeam.Location = New System.Drawing.Point(6, 23)
+ Me.txtKundenbetreuerTeam.MaxLineLength = -1
+ Me.txtKundenbetreuerTeam.MaxLines_Warning = ""
+ Me.txtKundenbetreuerTeam.MaxLines_Warning_Label = Nothing
+ Me.txtKundenbetreuerTeam.Name = "txtKundenbetreuerTeam"
+ Me.txtKundenbetreuerTeam.ReadOnly = True
+ Me.txtKundenbetreuerTeam.Size = New System.Drawing.Size(168, 13)
+ Me.txtKundenbetreuerTeam.TabIndex = 2
+ Me.txtKundenbetreuerTeam.Text = "-"
+ '
+ 'btnVeragAnspr
+ '
+ Me.btnVeragAnspr.allowBorder = False
+ Me.btnVeragAnspr.BackgroundImage = Global.SDL.My.Resources.Resources.stift
+ Me.btnVeragAnspr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btnVeragAnspr.FlatAppearance.BorderSize = 0
+ Me.btnVeragAnspr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnVeragAnspr.ForeColor = System.Drawing.Color.Black
+ Me.btnVeragAnspr.Location = New System.Drawing.Point(158, 7)
+ Me.btnVeragAnspr.Name = "btnVeragAnspr"
+ Me.btnVeragAnspr.Size = New System.Drawing.Size(15, 12)
+ Me.btnVeragAnspr.TabIndex = 1
+ Me.btnVeragAnspr.UseVisualStyleBackColor = True
+ Me.btnVeragAnspr.Visible = False
+ '
+ 'txtKundenbetreuerVertretung
+ '
+ Me.txtKundenbetreuerVertretung._DateTimeOnly = False
+ Me.txtKundenbetreuerVertretung._numbersOnly = False
+ Me.txtKundenbetreuerVertretung._numbersOnlyKommastellen = ""
+ Me.txtKundenbetreuerVertretung._numbersOnlyTrennzeichen = True
+ Me.txtKundenbetreuerVertretung._Prozent = False
+ Me.txtKundenbetreuerVertretung._ShortDateNew = False
+ Me.txtKundenbetreuerVertretung._ShortDateOnly = False
+ Me.txtKundenbetreuerVertretung._TimeOnly = False
+ Me.txtKundenbetreuerVertretung._TimeOnly_Seconds = False
+ Me.txtKundenbetreuerVertretung._value = "-"
+ Me.txtKundenbetreuerVertretung._Waehrung = False
+ Me.txtKundenbetreuerVertretung._WaehrungZeichen = True
+ Me.txtKundenbetreuerVertretung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.txtKundenbetreuerVertretung.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtKundenbetreuerVertretung.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtKundenbetreuerVertretung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtKundenbetreuerVertretung.ForeColor = System.Drawing.Color.Black
+ Me.txtKundenbetreuerVertretung.Location = New System.Drawing.Point(6, 61)
+ Me.txtKundenbetreuerVertretung.MaxLineLength = -1
+ Me.txtKundenbetreuerVertretung.MaxLines_Warning = ""
+ Me.txtKundenbetreuerVertretung.MaxLines_Warning_Label = Nothing
+ Me.txtKundenbetreuerVertretung.Multiline = True
+ Me.txtKundenbetreuerVertretung.Name = "txtKundenbetreuerVertretung"
+ Me.txtKundenbetreuerVertretung.ReadOnly = True
+ Me.txtKundenbetreuerVertretung.Size = New System.Drawing.Size(168, 24)
+ Me.txtKundenbetreuerVertretung.TabIndex = 4
+ Me.txtKundenbetreuerVertretung.Text = "-"
+ Me.txtKundenbetreuerVertretung.Visible = False
+ '
+ 'txtKundenbetreuer
+ '
+ Me.txtKundenbetreuer._DateTimeOnly = False
+ Me.txtKundenbetreuer._numbersOnly = False
+ Me.txtKundenbetreuer._numbersOnlyKommastellen = ""
+ Me.txtKundenbetreuer._numbersOnlyTrennzeichen = True
+ Me.txtKundenbetreuer._Prozent = False
+ Me.txtKundenbetreuer._ShortDateNew = False
+ Me.txtKundenbetreuer._ShortDateOnly = False
+ Me.txtKundenbetreuer._TimeOnly = False
+ Me.txtKundenbetreuer._TimeOnly_Seconds = False
+ Me.txtKundenbetreuer._value = "-"
+ Me.txtKundenbetreuer._Waehrung = False
+ Me.txtKundenbetreuer._WaehrungZeichen = True
+ Me.txtKundenbetreuer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.txtKundenbetreuer.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtKundenbetreuer.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtKundenbetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtKundenbetreuer.ForeColor = System.Drawing.Color.Black
+ Me.txtKundenbetreuer.Location = New System.Drawing.Point(6, 42)
+ Me.txtKundenbetreuer.MaxLineLength = -1
+ Me.txtKundenbetreuer.MaxLines_Warning = ""
+ Me.txtKundenbetreuer.MaxLines_Warning_Label = Nothing
+ Me.txtKundenbetreuer.Name = "txtKundenbetreuer"
+ Me.txtKundenbetreuer.ReadOnly = True
+ Me.txtKundenbetreuer.Size = New System.Drawing.Size(168, 13)
+ Me.txtKundenbetreuer.TabIndex = 3
+ Me.txtKundenbetreuer.Text = "-"
+ '
+ 'btnPunkt2Save
+ '
+ Me.btnPunkt2Save.allowBorder = False
+ Me.btnPunkt2Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.btnPunkt2Save.BackgroundImage = Global.SDL.My.Resources.Resources.save
+ Me.btnPunkt2Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btnPunkt2Save.FlatAppearance.BorderSize = 0
+ Me.btnPunkt2Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnPunkt2Save.ForeColor = System.Drawing.Color.Black
+ Me.btnPunkt2Save.Location = New System.Drawing.Point(647, 205)
+ Me.btnPunkt2Save.Name = "btnPunkt2Save"
+ Me.btnPunkt2Save.Size = New System.Drawing.Size(20, 20)
+ Me.btnPunkt2Save.TabIndex = 12
+ Me.btnPunkt2Save.UseVisualStyleBackColor = True
+ Me.btnPunkt2Save.Visible = False
+ '
+ 'txtUmsatzJahr
+ '
+ Me.txtUmsatzJahr._DateTimeOnly = False
+ Me.txtUmsatzJahr._numbersOnly = False
+ Me.txtUmsatzJahr._numbersOnlyKommastellen = ""
+ Me.txtUmsatzJahr._numbersOnlyTrennzeichen = True
+ Me.txtUmsatzJahr._Prozent = False
+ Me.txtUmsatzJahr._ShortDateNew = False
+ Me.txtUmsatzJahr._ShortDateOnly = False
+ Me.txtUmsatzJahr._TimeOnly = False
+ Me.txtUmsatzJahr._TimeOnly_Seconds = False
+ Me.txtUmsatzJahr._value = Nothing
+ Me.txtUmsatzJahr._Waehrung = False
+ Me.txtUmsatzJahr._WaehrungZeichen = True
+ Me.txtUmsatzJahr.BackColor = System.Drawing.Color.White
+ Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
+ Me.txtUmsatzJahr.Location = New System.Drawing.Point(383, 274)
+ Me.txtUmsatzJahr.MaxLineLength = -1
+ Me.txtUmsatzJahr.MaxLines_Warning = ""
+ Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
+ Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
+ Me.txtUmsatzJahr.ReadOnly = True
+ Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
+ Me.txtUmsatzJahr.TabIndex = 32
+ Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'cbxFiskalabfertigung
+ '
+ Me.cbxFiskalabfertigung._value = ""
+ Me.cbxFiskalabfertigung.AutoSize = True
+ Me.cbxFiskalabfertigung.Checked_value = False
+ Me.cbxFiskalabfertigung.CheckedValue = False
+ Me.cbxFiskalabfertigung.Location = New System.Drawing.Point(39, 134)
+ Me.cbxFiskalabfertigung.Name = "cbxFiskalabfertigung"
+ Me.cbxFiskalabfertigung.Size = New System.Drawing.Size(160, 17)
+ Me.cbxFiskalabfertigung.TabIndex = 8
+ Me.cbxFiskalabfertigung.Text = "Fiskalverzollung freigegeben"
+ Me.cbxFiskalabfertigung.UseVisualStyleBackColor = True
+ Me.cbxFiskalabfertigung.Visible = False
+ '
+ 'txtAbf_ErsteAbfertigung
+ '
+ Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False
+ Me.txtAbf_ErsteAbfertigung._numbersOnly = False
+ Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = ""
+ Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True
+ Me.txtAbf_ErsteAbfertigung._Prozent = False
+ Me.txtAbf_ErsteAbfertigung._ShortDateNew = False
+ Me.txtAbf_ErsteAbfertigung._ShortDateOnly = True
+ 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
+ Me.txtAbf_ErsteAbfertigung.BackColor = System.Drawing.Color.White
+ Me.txtAbf_ErsteAbfertigung.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtAbf_ErsteAbfertigung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Black
+ Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(305, 195)
+ Me.txtAbf_ErsteAbfertigung.MaxLength = 10
+ Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1
+ Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = ""
+ Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing
+ Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung"
+ Me.txtAbf_ErsteAbfertigung.ReadOnly = True
+ Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(115, 13)
+ Me.txtAbf_ErsteAbfertigung.TabIndex = 14
+ Me.txtAbf_ErsteAbfertigung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ Me.txtAbf_ErsteAbfertigung.Visible = False
+ '
+ 'FlatButton2
+ '
+ Me.FlatButton2.allowBorder = False
+ Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
+ Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.FlatButton2.FlatAppearance.BorderSize = 0
+ Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton2.Location = New System.Drawing.Point(222, 6)
+ Me.FlatButton2.Name = "FlatButton2"
+ Me.FlatButton2.Size = New System.Drawing.Size(15, 12)
+ Me.FlatButton2.TabIndex = 11
+ Me.FlatButton2.UseVisualStyleBackColor = True
+ '
+ 'FlatButton6
+ '
+ Me.FlatButton6.allowBorder = False
+ Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list
+ Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.FlatButton6.FlatAppearance.BorderSize = 0
+ Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton6.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton6.Location = New System.Drawing.Point(202, 7)
+ Me.FlatButton6.Name = "FlatButton6"
+ Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
+ Me.FlatButton6.TabIndex = 9
+ Me.FlatButton6.UseVisualStyleBackColor = True
+ '
+ 'btnBonitaetBearbeiten
+ '
+ Me.btnBonitaetBearbeiten.allowBorder = False
+ Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+ Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
+ Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
+ Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(183, 6)
+ Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
+ Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
+ Me.btnBonitaetBearbeiten.TabIndex = 8
+ Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True
+ Me.btnBonitaetBearbeiten.Visible = False
+ '
+ 'lblHoechstkredit
+ '
+ Me.lblHoechstkredit._DateTimeOnly = False
+ Me.lblHoechstkredit._numbersOnly = True
+ Me.lblHoechstkredit._numbersOnlyKommastellen = ""
+ Me.lblHoechstkredit._numbersOnlyTrennzeichen = True
+ Me.lblHoechstkredit._Prozent = False
+ Me.lblHoechstkredit._ShortDateNew = False
+ Me.lblHoechstkredit._ShortDateOnly = False
+ Me.lblHoechstkredit._TimeOnly = False
+ Me.lblHoechstkredit._TimeOnly_Seconds = False
+ Me.lblHoechstkredit._value = ""
+ Me.lblHoechstkredit._Waehrung = True
+ Me.lblHoechstkredit._WaehrungZeichen = True
+ Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black
+ Me.lblHoechstkredit.Location = New System.Drawing.Point(310, 5)
+ Me.lblHoechstkredit.MaxLineLength = -1
+ Me.lblHoechstkredit.MaxLines_Warning = ""
+ Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing
+ Me.lblHoechstkredit.Name = "lblHoechstkredit"
+ Me.lblHoechstkredit.ReadOnly = True
+ Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13)
+ Me.lblHoechstkredit.TabIndex = 7
+ Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ Me.lblHoechstkredit.Visible = False
+ '
+ 'lblBonitaet
+ '
+ Me.lblBonitaet._DateTimeOnly = False
+ Me.lblBonitaet._numbersOnly = False
+ Me.lblBonitaet._numbersOnlyKommastellen = ""
+ Me.lblBonitaet._numbersOnlyTrennzeichen = True
+ Me.lblBonitaet._Prozent = False
+ Me.lblBonitaet._ShortDateNew = False
+ Me.lblBonitaet._ShortDateOnly = False
+ Me.lblBonitaet._TimeOnly = False
+ Me.lblBonitaet._TimeOnly_Seconds = False
+ Me.lblBonitaet._value = Nothing
+ Me.lblBonitaet._Waehrung = False
+ Me.lblBonitaet._WaehrungZeichen = True
+ Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
+ Me.lblBonitaet.Location = New System.Drawing.Point(106, 6)
+ Me.lblBonitaet.MaxLineLength = -1
+ Me.lblBonitaet.MaxLines_Warning = ""
+ Me.lblBonitaet.MaxLines_Warning_Label = Nothing
+ Me.lblBonitaet.Name = "lblBonitaet"
+ Me.lblBonitaet.ReadOnly = True
+ Me.lblBonitaet.Size = New System.Drawing.Size(32, 13)
+ Me.lblBonitaet.TabIndex = 1
+ Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'lblBonitaetRisikostufe
+ '
+ Me.lblBonitaetRisikostufe._DateTimeOnly = False
+ Me.lblBonitaetRisikostufe._numbersOnly = False
+ Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = ""
+ Me.lblBonitaetRisikostufe._numbersOnlyTrennzeichen = True
+ Me.lblBonitaetRisikostufe._Prozent = False
+ Me.lblBonitaetRisikostufe._ShortDateNew = False
+ Me.lblBonitaetRisikostufe._ShortDateOnly = False
+ Me.lblBonitaetRisikostufe._TimeOnly = False
+ Me.lblBonitaetRisikostufe._TimeOnly_Seconds = False
+ Me.lblBonitaetRisikostufe._value = Nothing
+ Me.lblBonitaetRisikostufe._Waehrung = False
+ Me.lblBonitaetRisikostufe._WaehrungZeichen = True
+ Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black
+ Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6)
+ Me.lblBonitaetRisikostufe.MaxLineLength = -1
+ Me.lblBonitaetRisikostufe.MaxLines_Warning = ""
+ Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing
+ Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe"
+ Me.lblBonitaetRisikostufe.ReadOnly = True
+ Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13)
+ Me.lblBonitaetRisikostufe.TabIndex = 3
+ Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'lblBonitaetsdatum
+ '
+ Me.lblBonitaetsdatum._DateTimeOnly = False
+ Me.lblBonitaetsdatum._numbersOnly = False
+ Me.lblBonitaetsdatum._numbersOnlyKommastellen = ""
+ Me.lblBonitaetsdatum._numbersOnlyTrennzeichen = True
+ Me.lblBonitaetsdatum._Prozent = False
+ Me.lblBonitaetsdatum._ShortDateNew = False
+ Me.lblBonitaetsdatum._ShortDateOnly = False
+ Me.lblBonitaetsdatum._TimeOnly = False
+ Me.lblBonitaetsdatum._TimeOnly_Seconds = False
+ Me.lblBonitaetsdatum._value = Nothing
+ Me.lblBonitaetsdatum._Waehrung = False
+ Me.lblBonitaetsdatum._WaehrungZeichen = True
+ Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black
+ Me.lblBonitaetsdatum.Location = New System.Drawing.Point(447, 6)
+ Me.lblBonitaetsdatum.MaxLineLength = -1
+ Me.lblBonitaetsdatum.MaxLines_Warning = ""
+ Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing
+ Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum"
+ Me.lblBonitaetsdatum.ReadOnly = True
+ Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13)
+ Me.lblBonitaetsdatum.TabIndex = 5
+ '
+ 'txtOPFaellig
+ '
+ Me.txtOPFaellig._DateTimeOnly = False
+ Me.txtOPFaellig._numbersOnly = False
+ Me.txtOPFaellig._numbersOnlyKommastellen = ""
+ Me.txtOPFaellig._numbersOnlyTrennzeichen = True
+ Me.txtOPFaellig._Prozent = False
+ Me.txtOPFaellig._ShortDateNew = False
+ Me.txtOPFaellig._ShortDateOnly = False
+ Me.txtOPFaellig._TimeOnly = False
+ Me.txtOPFaellig._TimeOnly_Seconds = False
+ Me.txtOPFaellig._value = Nothing
+ Me.txtOPFaellig._Waehrung = False
+ Me.txtOPFaellig._WaehrungZeichen = True
+ Me.txtOPFaellig.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black
+ Me.txtOPFaellig.Location = New System.Drawing.Point(114, 6)
+ Me.txtOPFaellig.MaxLineLength = -1
+ Me.txtOPFaellig.MaxLines_Warning = ""
+ Me.txtOPFaellig.MaxLines_Warning_Label = Nothing
+ Me.txtOPFaellig.Name = "txtOPFaellig"
+ Me.txtOPFaellig.ReadOnly = True
+ Me.txtOPFaellig.Size = New System.Drawing.Size(108, 13)
+ Me.txtOPFaellig.TabIndex = 30
+ Me.txtOPFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'txtOffenePosten
+ '
+ Me.txtOffenePosten._DateTimeOnly = False
+ Me.txtOffenePosten._numbersOnly = False
+ Me.txtOffenePosten._numbersOnlyKommastellen = ""
+ Me.txtOffenePosten._numbersOnlyTrennzeichen = True
+ Me.txtOffenePosten._Prozent = False
+ Me.txtOffenePosten._ShortDateNew = False
+ Me.txtOffenePosten._ShortDateOnly = False
+ Me.txtOffenePosten._TimeOnly = False
+ Me.txtOffenePosten._TimeOnly_Seconds = False
+ Me.txtOffenePosten._value = Nothing
+ Me.txtOffenePosten._Waehrung = False
+ Me.txtOffenePosten._WaehrungZeichen = True
+ Me.txtOffenePosten.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black
+ Me.txtOffenePosten.Location = New System.Drawing.Point(114, 66)
+ Me.txtOffenePosten.MaxLineLength = -1
+ Me.txtOffenePosten.MaxLines_Warning = ""
+ Me.txtOffenePosten.MaxLines_Warning_Label = Nothing
+ Me.txtOffenePosten.Name = "txtOffenePosten"
+ Me.txtOffenePosten.ReadOnly = True
+ Me.txtOffenePosten.Size = New System.Drawing.Size(108, 13)
+ Me.txtOffenePosten.TabIndex = 28
+ Me.txtOffenePosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'txtOPCredit
+ '
+ Me.txtOPCredit._DateTimeOnly = False
+ Me.txtOPCredit._numbersOnly = False
+ Me.txtOPCredit._numbersOnlyKommastellen = ""
+ Me.txtOPCredit._numbersOnlyTrennzeichen = True
+ Me.txtOPCredit._Prozent = False
+ Me.txtOPCredit._ShortDateNew = False
+ Me.txtOPCredit._ShortDateOnly = False
+ Me.txtOPCredit._TimeOnly = False
+ Me.txtOPCredit._TimeOnly_Seconds = False
+ Me.txtOPCredit._value = Nothing
+ Me.txtOPCredit._Waehrung = False
+ Me.txtOPCredit._WaehrungZeichen = True
+ Me.txtOPCredit.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.txtOPCredit.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOPCredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOPCredit.ForeColor = System.Drawing.Color.Green
+ Me.txtOPCredit.Location = New System.Drawing.Point(114, 46)
+ Me.txtOPCredit.MaxLineLength = -1
+ Me.txtOPCredit.MaxLines_Warning = ""
+ Me.txtOPCredit.MaxLines_Warning_Label = Nothing
+ Me.txtOPCredit.Name = "txtOPCredit"
+ Me.txtOPCredit.ReadOnly = True
+ Me.txtOPCredit.Size = New System.Drawing.Size(108, 13)
+ Me.txtOPCredit.TabIndex = 41
+ Me.txtOPCredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'txtOPNichtFaellig
+ '
+ Me.txtOPNichtFaellig._DateTimeOnly = False
+ Me.txtOPNichtFaellig._numbersOnly = False
+ Me.txtOPNichtFaellig._numbersOnlyKommastellen = ""
+ Me.txtOPNichtFaellig._numbersOnlyTrennzeichen = True
+ Me.txtOPNichtFaellig._Prozent = False
+ Me.txtOPNichtFaellig._ShortDateNew = False
+ Me.txtOPNichtFaellig._ShortDateOnly = False
+ Me.txtOPNichtFaellig._TimeOnly = False
+ Me.txtOPNichtFaellig._TimeOnly_Seconds = False
+ Me.txtOPNichtFaellig._value = Nothing
+ Me.txtOPNichtFaellig._Waehrung = False
+ Me.txtOPNichtFaellig._WaehrungZeichen = True
+ Me.txtOPNichtFaellig.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.txtOPNichtFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOPNichtFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOPNichtFaellig.ForeColor = System.Drawing.Color.Black
+ Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 25)
+ Me.txtOPNichtFaellig.MaxLineLength = -1
+ Me.txtOPNichtFaellig.MaxLines_Warning = ""
+ Me.txtOPNichtFaellig.MaxLines_Warning_Label = Nothing
+ Me.txtOPNichtFaellig.Name = "txtOPNichtFaellig"
+ Me.txtOPNichtFaellig.ReadOnly = True
+ Me.txtOPNichtFaellig.Size = New System.Drawing.Size(108, 13)
+ Me.txtOPNichtFaellig.TabIndex = 39
+ Me.txtOPNichtFaellig.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'txtOVK
+ '
+ Me.txtOVK._DateTimeOnly = False
+ Me.txtOVK._numbersOnly = False
+ Me.txtOVK._numbersOnlyKommastellen = ""
+ Me.txtOVK._numbersOnlyTrennzeichen = True
+ Me.txtOVK._Prozent = False
+ Me.txtOVK._ShortDateNew = False
+ Me.txtOVK._ShortDateOnly = False
+ Me.txtOVK._TimeOnly = False
+ Me.txtOVK._TimeOnly_Seconds = False
+ Me.txtOVK._value = Nothing
+ Me.txtOVK._Waehrung = False
+ Me.txtOVK._WaehrungZeichen = True
+ Me.txtOVK.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.txtOVK.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtOVK.Cursor = System.Windows.Forms.Cursors.Hand
+ Me.txtOVK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtOVK.ForeColor = System.Drawing.Color.Green
+ Me.txtOVK.Location = New System.Drawing.Point(134, 4)
+ Me.txtOVK.MaxLineLength = -1
+ Me.txtOVK.MaxLines_Warning = ""
+ Me.txtOVK.MaxLines_Warning_Label = Nothing
+ Me.txtOVK.Name = "txtOVK"
+ Me.txtOVK.ReadOnly = True
+ Me.txtOVK.Size = New System.Drawing.Size(108, 13)
+ Me.txtOVK.TabIndex = 44
+ Me.txtOVK.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'lblKreditlimit
+ '
+ Me.lblKreditlimit._DateTimeOnly = False
+ Me.lblKreditlimit._numbersOnly = False
+ Me.lblKreditlimit._numbersOnlyKommastellen = ""
+ Me.lblKreditlimit._numbersOnlyTrennzeichen = True
+ Me.lblKreditlimit._Prozent = False
+ Me.lblKreditlimit._ShortDateNew = False
+ Me.lblKreditlimit._ShortDateOnly = False
+ Me.lblKreditlimit._TimeOnly = False
+ Me.lblKreditlimit._TimeOnly_Seconds = False
+ Me.lblKreditlimit._value = Nothing
+ Me.lblKreditlimit._Waehrung = False
+ Me.lblKreditlimit._WaehrungZeichen = True
+ Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
+ Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
+ Me.lblKreditlimit.Location = New System.Drawing.Point(134, 24)
+ Me.lblKreditlimit.MaxLineLength = -1
+ Me.lblKreditlimit.MaxLines_Warning = ""
+ Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
+ Me.lblKreditlimit.Name = "lblKreditlimit"
+ Me.lblKreditlimit.ReadOnly = True
+ Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
+ Me.lblKreditlimit.TabIndex = 20
+ Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'txtZahlungsziel
+ '
+ Me.txtZahlungsziel._DateTimeOnly = False
+ Me.txtZahlungsziel._numbersOnly = False
+ Me.txtZahlungsziel._numbersOnlyKommastellen = ""
+ Me.txtZahlungsziel._numbersOnlyTrennzeichen = True
+ Me.txtZahlungsziel._Prozent = False
+ Me.txtZahlungsziel._ShortDateNew = False
+ Me.txtZahlungsziel._ShortDateOnly = False
+ Me.txtZahlungsziel._TimeOnly = False
+ Me.txtZahlungsziel._TimeOnly_Seconds = False
+ Me.txtZahlungsziel._value = Nothing
+ Me.txtZahlungsziel._Waehrung = False
+ Me.txtZahlungsziel._WaehrungZeichen = True
+ Me.txtZahlungsziel.BackColor = System.Drawing.Color.White
+ Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black
+ Me.txtZahlungsziel.Location = New System.Drawing.Point(310, 255)
+ Me.txtZahlungsziel.MaxLineLength = -1
+ Me.txtZahlungsziel.MaxLines_Warning = ""
+ Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing
+ Me.txtZahlungsziel.Name = "txtZahlungsziel"
+ Me.txtZahlungsziel.ReadOnly = True
+ Me.txtZahlungsziel.Size = New System.Drawing.Size(56, 13)
+ Me.txtZahlungsziel.TabIndex = 34
+ Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+ '
+ 'btncheckliste
+ '
+ Me.btncheckliste.allowBorder = False
+ Me.btncheckliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.btncheckliste.FlatAppearance.BorderSize = 0
+ Me.btncheckliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.btncheckliste.ForeColor = System.Drawing.Color.Black
+ Me.btncheckliste.Image = Global.SDL.My.Resources.Resources.checklist
+ Me.btncheckliste.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.btncheckliste.Location = New System.Drawing.Point(388, 107)
+ Me.btncheckliste.Name = "btncheckliste"
+ Me.btncheckliste.Size = New System.Drawing.Size(88, 53)
+ Me.btncheckliste.TabIndex = 9
+ Me.btncheckliste.Tag = ""
+ Me.btncheckliste.Text = "Checkliste"
+ Me.btncheckliste.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ Me.btncheckliste.UseVisualStyleBackColor = True
+ '
+ 'FlatButton1
+ '
+ Me.FlatButton1.allowBorder = False
+ Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.FlatButton1.FlatAppearance.BorderSize = 0
+ Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.compose
+ Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.FlatButton1.Location = New System.Drawing.Point(392, -3)
+ Me.FlatButton1.Name = "FlatButton1"
+ Me.FlatButton1.Size = New System.Drawing.Size(84, 68)
+ Me.FlatButton1.TabIndex = 4
+ Me.FlatButton1.Tag = ""
+ Me.FlatButton1.Text = "Änderungen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bekanntgeben"
+ Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ Me.FlatButton1.UseVisualStyleBackColor = True
+ Me.FlatButton1.Visible = False
+ '
+ '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(473, 158)
+ Me.ucKundenKontakte.TabIndex = 0
+ '
+ 'txtVertragVermerk
+ '
+ Me.txtVertragVermerk._DateTimeOnly = False
+ Me.txtVertragVermerk._numbersOnly = False
+ Me.txtVertragVermerk._numbersOnlyKommastellen = ""
+ Me.txtVertragVermerk._numbersOnlyTrennzeichen = True
+ Me.txtVertragVermerk._Prozent = False
+ Me.txtVertragVermerk._ShortDateNew = False
+ Me.txtVertragVermerk._ShortDateOnly = False
+ Me.txtVertragVermerk._TimeOnly = False
+ Me.txtVertragVermerk._TimeOnly_Seconds = False
+ Me.txtVertragVermerk._value = ""
+ Me.txtVertragVermerk._Waehrung = False
+ Me.txtVertragVermerk._WaehrungZeichen = True
+ Me.txtVertragVermerk.ForeColor = System.Drawing.Color.Black
+ Me.txtVertragVermerk.Location = New System.Drawing.Point(60, 23)
+ Me.txtVertragVermerk.MaxLineLength = -1
+ Me.txtVertragVermerk.MaxLines_Warning = ""
+ Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing
+ Me.txtVertragVermerk.Name = "txtVertragVermerk"
+ Me.txtVertragVermerk.Size = New System.Drawing.Size(326, 20)
+ Me.txtVertragVermerk.TabIndex = 6
+ '
+ 'cboVertrag
+ '
+ Me.cboVertrag._allowedValuesFreiText = Nothing
+ Me.cboVertrag._allowFreiText = False
+ Me.cboVertrag._value = ""
+ Me.cboVertrag.FormattingEnabled = True
+ Me.cboVertrag.Location = New System.Drawing.Point(60, 3)
+ Me.cboVertrag.Name = "cboVertrag"
+ Me.cboVertrag.Size = New System.Drawing.Size(178, 21)
+ Me.cboVertrag.TabIndex = 1
+ '
+ 'datVertrag
+ '
+ Me.datVertrag._DateTimeOnly = False
+ Me.datVertrag._numbersOnly = False
+ Me.datVertrag._numbersOnlyKommastellen = ""
+ Me.datVertrag._numbersOnlyTrennzeichen = True
+ Me.datVertrag._Prozent = False
+ Me.datVertrag._ShortDateNew = True
+ Me.datVertrag._ShortDateOnly = False
+ Me.datVertrag._TimeOnly = False
+ Me.datVertrag._TimeOnly_Seconds = False
+ Me.datVertrag._value = ""
+ Me.datVertrag._Waehrung = False
+ Me.datVertrag._WaehrungZeichen = True
+ Me.datVertrag.ForeColor = System.Drawing.Color.Black
+ Me.datVertrag.Location = New System.Drawing.Point(291, 3)
+ Me.datVertrag.MaxLength = 10
+ Me.datVertrag.MaxLineLength = -1
+ Me.datVertrag.MaxLines_Warning = ""
+ Me.datVertrag.MaxLines_Warning_Label = Nothing
+ Me.datVertrag.Name = "datVertrag"
+ Me.datVertrag.Size = New System.Drawing.Size(95, 20)
+ Me.datVertrag.TabIndex = 3
+ '
+ 'txtGGDatum
+ '
+ Me.txtGGDatum._DateTimeOnly = False
+ Me.txtGGDatum._numbersOnly = False
+ Me.txtGGDatum._numbersOnlyKommastellen = ""
+ Me.txtGGDatum._numbersOnlyTrennzeichen = True
+ Me.txtGGDatum._Prozent = False
+ Me.txtGGDatum._ShortDateNew = True
+ Me.txtGGDatum._ShortDateOnly = False
+ Me.txtGGDatum._TimeOnly = False
+ Me.txtGGDatum._TimeOnly_Seconds = False
+ Me.txtGGDatum._value = ""
+ Me.txtGGDatum._Waehrung = False
+ Me.txtGGDatum._WaehrungZeichen = True
+ Me.txtGGDatum.ForeColor = System.Drawing.Color.Black
+ Me.txtGGDatum.Location = New System.Drawing.Point(256, 7)
+ Me.txtGGDatum.MaxLength = 10
+ Me.txtGGDatum.MaxLineLength = -1
+ Me.txtGGDatum.MaxLines_Warning = ""
+ Me.txtGGDatum.MaxLines_Warning_Label = Nothing
+ Me.txtGGDatum.Name = "txtGGDatum"
+ Me.txtGGDatum.Size = New System.Drawing.Size(100, 20)
+ Me.txtGGDatum.TabIndex = 2
+ '
+ 'txtT1VerzollungsadresseBestimmungszollstelle
+ '
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
+ Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL"
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT"
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(87, 7)
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(163, 20)
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 1
+ Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
+ '
+ 'UsrCntlKundenAvisoMailBenachrichtigung1
+ '
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
+ '
+ 'txtInfoKdAtrNr
+ '
+ Me.txtInfoKdAtrNr._DateTimeOnly = False
+ Me.txtInfoKdAtrNr._numbersOnly = False
+ Me.txtInfoKdAtrNr._numbersOnlyKommastellen = ""
+ Me.txtInfoKdAtrNr._numbersOnlyTrennzeichen = True
+ Me.txtInfoKdAtrNr._Prozent = False
+ Me.txtInfoKdAtrNr._ShortDateNew = False
+ Me.txtInfoKdAtrNr._ShortDateOnly = False
+ Me.txtInfoKdAtrNr._TimeOnly = False
+ Me.txtInfoKdAtrNr._TimeOnly_Seconds = False
+ Me.txtInfoKdAtrNr._value = ""
+ Me.txtInfoKdAtrNr._Waehrung = False
+ Me.txtInfoKdAtrNr._WaehrungZeichen = True
+ Me.txtInfoKdAtrNr.Enabled = False
+ Me.txtInfoKdAtrNr.ForeColor = System.Drawing.Color.Black
+ Me.txtInfoKdAtrNr.Location = New System.Drawing.Point(266, 41)
+ Me.txtInfoKdAtrNr.MaxLineLength = -1
+ Me.txtInfoKdAtrNr.MaxLines_Warning = ""
+ Me.txtInfoKdAtrNr.MaxLines_Warning_Label = Nothing
+ Me.txtInfoKdAtrNr.Name = "txtInfoKdAtrNr"
+ Me.txtInfoKdAtrNr.Size = New System.Drawing.Size(192, 20)
+ Me.txtInfoKdAtrNr.TabIndex = 6
+ '
+ 'txtFixeKdAtrNr
+ '
+ Me.txtFixeKdAtrNr._DateTimeOnly = False
+ Me.txtFixeKdAtrNr._numbersOnly = False
+ Me.txtFixeKdAtrNr._numbersOnlyKommastellen = ""
+ Me.txtFixeKdAtrNr._numbersOnlyTrennzeichen = True
+ Me.txtFixeKdAtrNr._Prozent = False
+ Me.txtFixeKdAtrNr._ShortDateNew = False
+ Me.txtFixeKdAtrNr._ShortDateOnly = False
+ Me.txtFixeKdAtrNr._TimeOnly = False
+ Me.txtFixeKdAtrNr._TimeOnly_Seconds = False
+ Me.txtFixeKdAtrNr._value = ""
+ Me.txtFixeKdAtrNr._Waehrung = False
+ Me.txtFixeKdAtrNr._WaehrungZeichen = True
+ Me.txtFixeKdAtrNr.Enabled = False
+ Me.txtFixeKdAtrNr.ForeColor = System.Drawing.Color.Black
+ Me.txtFixeKdAtrNr.Location = New System.Drawing.Point(309, 22)
+ Me.txtFixeKdAtrNr.MaxLineLength = -1
+ Me.txtFixeKdAtrNr.MaxLines_Warning = ""
+ Me.txtFixeKdAtrNr.MaxLines_Warning_Label = Nothing
+ Me.txtFixeKdAtrNr.Name = "txtFixeKdAtrNr"
+ Me.txtFixeKdAtrNr.Size = New System.Drawing.Size(149, 20)
+ Me.txtFixeKdAtrNr.TabIndex = 4
+ '
+ 'FlatButton4
+ '
+ Me.FlatButton4.allowBorder = False
+ Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.FlatButton4.ForeColor = System.Drawing.Color.Black
+ Me.FlatButton4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+ Me.FlatButton4.Location = New System.Drawing.Point(365, 134)
+ Me.FlatButton4.Name = "FlatButton4"
+ Me.FlatButton4.Size = New System.Drawing.Size(92, 26)
+ Me.FlatButton4.TabIndex = 9
+ Me.FlatButton4.Tag = ""
+ Me.FlatButton4.Text = "Speichern"
+ Me.FlatButton4.UseVisualStyleBackColor = True
+ '
+ 'dgvAufschub
+ '
+ Me.dgvAufschub.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvAufschub.AllowUserToAddRows = False
+ Me.dgvAufschub.AllowUserToDeleteRows = False
+ Me.dgvAufschub.AllowUserToResizeColumns = False
+ Me.dgvAufschub.AllowUserToResizeRows = False
+ Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
+ DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
+ DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
+ DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+ Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
+ Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
+ DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+ DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
+ DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
+ DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+ DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+ DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+ Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
+ Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
+ Me.dgvAufschub.MultiSelect = False
+ Me.dgvAufschub.Name = "dgvAufschub"
+ Me.dgvAufschub.ReadOnly = True
+ Me.dgvAufschub.RowHeadersVisible = False
+ Me.dgvAufschub.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+ Me.dgvAufschub.Size = New System.Drawing.Size(473, 75)
+ Me.dgvAufschub.TabIndex = 11
+ Me.dgvAufschub.TabStop = False
+ '
+ 'KtoId
+ '
+ Me.KtoId.HeaderText = "Id"
+ Me.KtoId.Name = "KtoId"
+ Me.KtoId.ReadOnly = True
+ Me.KtoId.Visible = False
+ '
+ 'Art
+ '
+ Me.Art.HeaderText = "Aufschub"
+ Me.Art.Name = "Art"
+ Me.Art.ReadOnly = True
+ Me.Art.Width = 120
+ '
+ 'HZA
+ '
+ DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+ Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
+ Me.HZA.HeaderText = "HZA"
+ Me.HZA.Name = "HZA"
+ Me.HZA.ReadOnly = True
+ Me.HZA.Width = 35
+ '
+ 'KontoNr
+ '
+ Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+ Me.KontoNr.HeaderText = "Konto Nr."
+ Me.KontoNr.Name = "KontoNr"
+ Me.KontoNr.ReadOnly = True
+ Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+ '
+ 'EORI
+ '
+ Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+ Me.EORI.HeaderText = "EORI"
+ Me.EORI.Name = "EORI"
+ Me.EORI.ReadOnly = True
+ '
+ 'NL
+ '
+ Me.NL.HeaderText = "NL"
+ Me.NL.Name = "NL"
+ Me.NL.ReadOnly = True
+ Me.NL.Width = 60
+ '
+ 'BIN
+ '
+ Me.BIN.HeaderText = "BIN"
+ Me.BIN.Name = "BIN"
+ Me.BIN.ReadOnly = True
+ Me.BIN.Visible = False
+ '
+ 'SessionService1
+ '
+ Me.SessionService1.Credentials = Nothing
+ Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
+ Me.SessionService1.UseDefaultCredentials = False
+ '
'usrCntlKundenuebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3526,12 +3526,12 @@ Partial Class usrCntlKundenuebersicht
Me.tbKdSpez.PerformLayout()
Me.tbSonstiges.ResumeLayout(False)
Me.tbSonstiges.PerformLayout()
- CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ContextMenuStrip3.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False)
Me.ContextMenuStrip4.ResumeLayout(False)
Me.ContextMenuStrip5.ResumeLayout(False)
+ CType(Me.dgvAufschub, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
diff --git a/SDL/kunden/usrCntlKundenuebersicht.resx b/SDL/kunden/usrCntlKundenuebersicht.resx
index 411f6c1c..a5baa950 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.resx
+++ b/SDL/kunden/usrCntlKundenuebersicht.resx
@@ -242,10 +242,10 @@
1303, 17
-
- 17, 56
-
153, 56
+
+ 17, 56
+
\ No newline at end of file
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index 3bf61a51..39535c3e 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -55,6 +55,7 @@ Public Class usrCntlKundenuebersicht
Dim PDF_Attach_TMP_VERTRAEGE = ""
Property BER_STUFE = 99
Private datenarchivId = -1
+ Dim creditsafe_newView As Boolean = False
Public Sub New()
Try
@@ -233,6 +234,9 @@ Public Class usrCntlKundenuebersicht
End Select
+ Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+ creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Button1.Visible = True
@@ -672,7 +676,7 @@ Public Class usrCntlKundenuebersicht
' Button4.Visible = False
' Button5.Visible = False
- pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso False 'aktuell noch deaktiviert!!
+ pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso creditsafe_newView
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
@@ -2173,7 +2177,11 @@ Public Class usrCntlKundenuebersicht
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
+
+
+
Dim f As New frmBonitätsverlauf(kdNr)
+ f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
setKD(kdNr)
@@ -2928,7 +2936,7 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_CSmax = csmax
cBonitaetsauskunft.ba_CScountry = cscountry
- ' Öster. Unternemen -> Creditscore, sonst Index
+ ' Öster. Unternehmen -> Creditscore, sonst Index
If (IsNumeric(company.csIndex)) Then
company.csIndex = company.csIndex.Replace(".", ",")
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
@@ -2977,6 +2985,8 @@ Public Class usrCntlKundenuebersicht
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
+ company.csBonID = cBonitaetsauskunft.ba_id
+
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
@@ -3272,39 +3282,47 @@ Public Class usrCntlKundenuebersicht
If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
+
+ Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
+
+ If currentBonID > 0 Then company.csBonID = currentBonID
+
Dim dt As New DataTable()
- cs.getCompanyEvents(company, dt, True)
+ cs.getCompanyEvents(company, dt, False)
If dt.Rows.Count > 0 Then
Dim frm As New Form
Dim dgv As New DataGridView()
- If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
- If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
- If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
- If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
- If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
- If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
-
- dgv.DataSource = dt
-
- If dgv IsNot Nothing Then
-
- frm.Size = New Size(750, 500)
- dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
- dgv.Dock = DockStyle.Fill
- dgv.Anchor = AnchorStyles.Left
- dgv.Anchor = AnchorStyles.Top
- dgv.ReadOnly = True
- frm.Controls.Add(dgv)
- frm.StartPosition = FormStartPosition.CenterScreen
-
- frm.ShowDialog()
+ If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN", "AVISO") Then
+ If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
+ If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
+ If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
+ If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
+ If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
+ If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
End If
- Else
- MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
+ dgv.DataSource = dt
+
+ If dgv IsNot Nothing Then
+
+ frm.Size = New Size(750, 500)
+ dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
+ dgv.Dock = DockStyle.Fill
+ dgv.Anchor = AnchorStyles.Left
+ dgv.Anchor = AnchorStyles.Top
+ dgv.ReadOnly = True
+ frm.Controls.Add(dgv)
+ frm.StartPosition = FormStartPosition.CenterScreen
+
+ frm.ShowDialog()
+ End If
+
+
+ Else
+ MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If
End If
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
index 38f4a394..b5657c3e 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
@@ -1,6 +1,13 @@
+Imports System.Data.SqlClient
Imports System.Net
+Imports System.Numerics
+Imports System.Reflection
+Imports System.Runtime.InteropServices.ComTypes
+Imports System.Text.RegularExpressions
Imports System.Threading
+Imports System.Web.UI
+Imports Microsoft.VisualBasic.ApplicationServices
Public Class cCreditSafeAPI
@@ -429,8 +436,75 @@ Public Class cCreditSafeAPI
R("newValue") = compObj.StringOf("newValue")
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
+
dtEvents.Rows.Add(R)
+ Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")))
+
+ cEvent.eventId = R("eventId")
+ cEvent.companyId = R("companyId")
+ cEvent.portfolioId = R("portfolioId")
+ cEvent.ruleName = R("ruleName")
+ cEvent.localEventCode = R("localEventCode").trim()
+ cEvent.globalEventCode = R("globalEventCode").trim()
+ cEvent.eventDate = R("eventDate")
+ cEvent.createdDate = R("createdDate")
+ cEvent.importDate = Now()
+ cEvent.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+ cEvent.oldValue = R("oldValue")
+ cEvent.newValue = R("newValue")
+
+
+ 'OLD-VALUES
+ If cEvent.oldValue IsNot Nothing AndAlso IsNumeric(cEvent.oldValue) AndAlso Not cEvent.oldValue.ToString.Contains("€") Then
+ If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+ cEvent.oldValueCL = cEvent.oldValue
+ ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+ cEvent.oldValueCR = cEvent.oldValue
+ End If
+
+ Else
+ If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+ cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
+ cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
+ cEvent.oldValueCL = cEvent.oldValue
+ ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+ cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
+ cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
+ cEvent.oldValueCR = cEvent.oldValue
+ End If
+
+ End If
+
+
+ 'NEW-VALUES
+ If cEvent.newValue IsNot Nothing AndAlso IsNumeric(cEvent.newValue) AndAlso Not cEvent.newValue.ToString.Contains("€") Then
+ If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+ cEvent.newValueCL = cEvent.newValue
+ ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+ cEvent.newValueCR = cEvent.newValue
+ End If
+ Else
+
+ If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+ cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
+ cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
+ cEvent.newValueCL = cEvent.newValue
+
+ ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+ cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
+ cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
+ cEvent.newValueCR = cEvent.newValue
+ End If
+
+ End If
+
+ If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then
+ cEvent.bonId = company.csBonID
+ End If
+
+ cEvent.SAVE()
+
j = j + 1
End While
Next
@@ -824,8 +898,8 @@ Public Class cCreditSafeAPI
Public Property csCEO As String
Public Property csTurnover As String
Public Property language As String
-
Public Property csBank As String
+ Public Property csBonID As Integer = -1
@@ -852,4 +926,141 @@ Public Class cCreditSafeAPI
End Sub
End Class
+ Public Class cCreditsafeEvent
+
+ Property eventId As Long
+ Property companyId As Object = Nothing
+ Property portfolioId As Object = Nothing
+ Property ruleName As Object = Nothing
+ Property localEventCode As Object = Nothing
+ Property globalEventCode As Object = Nothing
+ Property oldValue As Object = Nothing
+ Property newValue As Object = Nothing
+ Property eventDate As Object = Nothing
+ Property createdDate As Object = Nothing
+ Property importDate As Object = Nothing
+ Property bonId As Object = Nothing
+ Property Sachbearbeiter As Object = Nothing
+ Property oldValueCR As Object = Nothing
+ Property newValueCR As Object = Nothing
+ Property oldValueCL As Object = Nothing
+ Property newValueCL As Object = Nothing
+
+
+ Public hasEntry = False
+
+
+ Sub New(eventId)
+ Me.eventId = eventId
+ LOAD()
+ End Sub
+ Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+ Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventId", eventId,, True))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("companyId", companyId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portfolioId", portfolioId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ruleName", ruleName))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("localEventCode", localEventCode))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("globalEventCode", globalEventCode))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValue", oldValue))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValue", newValue))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventDate", eventDate))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("createdDate", createdDate))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("importDate", importDate))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bonId", bonId))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCR", oldValueCR))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCR", newValueCR))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCL", oldValueCL))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL))
+
+
+ Return list
+ End Function
+
+
+
+ Public Function SAVE() As Boolean
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblCreditsafeEvents WHERE eventId=@eventId) " &
+ " BEGIN " & getUpdateCmd() & " END " &
+ " Else " &
+ " BEGIN " & getInsertCmd() & " END " &
+ " commit tran "
+
+ Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+ End Function
+
+ Public Sub LOAD()
+ Try
+ hasEntry = False
+ Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+ Using cmd As New SqlCommand("SELECT * FROM tblCreditsafeEvents WHERE eventId=@eventId ", conn)
+ cmd.Parameters.AddWithValue("@eventId", eventId)
+ Dim dr = cmd.ExecuteReader()
+ If dr.Read Then
+ For Each li In getParameterList()
+ Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+ If dr.Item(li.Text) Is DBNull.Value Then
+ propInfo.SetValue(Me, Nothing)
+ Else
+ propInfo.SetValue(Me, dr.Item(li.Text))
+ End If
+
+ Next
+ hasEntry = True
+ End If
+ dr.Close()
+ End Using
+ End Using
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+ End Sub
+
+
+
+ Public Function getUpdateCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+ Dim str As String = ""
+ For Each i In list
+ If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ Return (" UPDATE tblCreditsafeEvents SET " & str & " WHERE eventId=@eventId ")
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+ Return ""
+ End Function
+
+
+ Public Function getInsertCmd() As String
+ Try
+ Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ Dim str As String = ""
+ Dim values As String = ""
+ For Each i In list
+ 'If Not i.isPrimaryParam Then
+ str &= "[" & i.Text & "],"
+ values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+ 'End If
+ Next
+ str = str.Substring(0, str.Length - 1) 'wg. ','
+ values = values.Substring(0, values.Length - 1) 'wg. ','
+ Return (" INSERT INTO tblCreditsafeEvents (" & str & ") VALUES(" & values & ") ")
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+ Return ""
+ End Function
+ End Class
+
End Class