diff --git a/SDL/Creditsafe/usrcntlCreditsafe.vb b/SDL/Creditsafe/usrcntlCreditsafe.vb index ff77446d..767ca5cf 100644 --- a/SDL/Creditsafe/usrcntlCreditsafe.vb +++ b/SDL/Creditsafe/usrcntlCreditsafe.vb @@ -102,7 +102,7 @@ Public Class usrcntlCreditsafe If cs.authenticate() = "200" Then - Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "") + Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "", -1) lblWarning.Text = cs.searchCompanies(company, dataTable).ToString initDGV(dataTable) Cursor = Cursors.Default diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index eb83fef3..c8d50159 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1644,7 +1644,6 @@ Public Class cFakturierung ElseIf rpt.txtLeistung.Text.Contains("00") Then rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) End If - End If @@ -2164,14 +2163,16 @@ Public Class cFakturierung 'Summe aller Rechnungspositions-Nettobeträge der Rechnung Dim lineTotalAmont = sumNetto 'Der Gesamtbetrag der Umsatzsteuer für die Rechnung, - 'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) - Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100) * steuerProzenFaktor, 2), 0) + 'IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) ?????????????????? + Dim taxTotalAmount = IIf(RECHNUNG.SteuerpflichtigerGesamtbetrag <> 0, Math.Round(Convert.ToDecimal(RECHNUNG.SteuerpflichtigerGesamtbetrag) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0) ' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 - Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0) + Dim taxBasisAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0 - taxTotalAmount) 'Der Gesamtbetrag der Rechnung mit Umsatzsteuer - Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount) + 'Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount) + Dim grandTotalAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) 'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag - Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount) + 'Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + taxTotalAmount) + Dim duePayableAmount = Convert.ToDecimal(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) desc.SetTotals( lineTotalAmount:=Convert.ToDecimal(lineTotalAmont), @@ -2469,9 +2470,11 @@ Public Class cFakturierung Dim taxBasisAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + 0 - 0) 'Der Gesamtbetrag der Rechnung mit Umsatzsteuer Dim grandTotalAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + taxTotalAmount) + 'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag Dim duePayableAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + taxTotalAmount) + desc.SetTotals( lineTotalAmount:=Convert.ToDecimal(lineTotalAmont), chargeTotalAmount:=0, 'Summe aller in der Rechnung enthaltenen Zuschläge der Dokumentenebene @@ -2657,7 +2660,36 @@ Public Class cFakturierung Dim list As New List(Of String) If RG.ANHAENGE IsNot Nothing AndAlso RG.ANHAENGE.Count > 0 Then For Each ANH In RG.ANHAENGE - If ANH.dsId > 0 Then list.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)) + + Dim path As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId) + + If RG IsNot Nothing AndAlso RG.Firma_ID = 19 Then + + If path.Contains("POS_LISTE") Or path.Contains("POS-LISTE") Then + + Dim PATH_Org = path + + Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + For page As Integer = 1 To pdfReader.NumberOfPages + If page = 1 Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page)) + Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page)) + End If + + Next + + pdfReader.Close() + + path = fm.fillPDFVorhandenesLokalesPDF_Path(PATH_Org, listTowrite, , ,, False) + + End If + End If + + If ANH.dsId > 0 Then list.Add(path) + Next End If Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_Anhänge_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False) @@ -3193,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/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index ea1875f2..5563ba06 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1074,7 +1074,12 @@ Public Class frmFaktEmail Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) For page As Integer = 1 To pdfReader.NumberOfPages - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page)) + If page = 1 Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page)) + Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 0.5, 100, 20, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, page)) + End If + Next pdfReader.Close() 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/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 3a05961d..e7958e6e 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 0f30a344..0b9c0967 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -141,6 +141,7 @@ Partial Class frmMDM_USTVAntrag Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() + Me.pbMail = New System.Windows.Forms.PictureBox() Me.pnlBottom.SuspendLayout() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() @@ -165,12 +166,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel1.SuspendLayout() Me.cns_vorauszahlen.SuspendLayout() Me.ncs_Belege.SuspendLayout() + CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlBottom ' Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlBottom.Controls.Add(Me.pbMail) Me.pnlBottom.Controls.Add(Me.pb_Beleg) Me.pnlBottom.Controls.Add(Me.Button5) Me.pnlBottom.Controls.Add(Me.txtSumme) @@ -1721,7 +1724,7 @@ Partial Class frmMDM_USTVAntrag ' Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem, Me.FakturiertZurücksetzenToolStripMenuItem}) Me.cns_vorauszahlen.Name = "cns_vorauszahlen" - Me.cns_vorauszahlen.Size = New System.Drawing.Size(212, 70) + Me.cns_vorauszahlen.Size = New System.Drawing.Size(212, 48) ' 'VorauszahlungToolStripMenuItem ' @@ -1796,6 +1799,16 @@ Partial Class frmMDM_USTVAntrag Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 ' + 'pbMail + ' + Me.pbMail.Image = Global.SDL.My.Resources.Resources.email_big1 + Me.pbMail.Location = New System.Drawing.Point(1110, 17) + Me.pbMail.Name = "pbMail" + Me.pbMail.Size = New System.Drawing.Size(35, 35) + Me.pbMail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.pbMail.TabIndex = 52 + Me.pbMail.TabStop = False + ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1840,6 +1853,7 @@ Partial Class frmMDM_USTVAntrag Me.Panel1.ResumeLayout(False) Me.cns_vorauszahlen.ResumeLayout(False) Me.ncs_Belege.ResumeLayout(False) + CType(Me.pbMail, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1959,4 +1973,5 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents cbxSicherheit As CheckBox Friend WithEvents FakturiertToolStripMenuItem As ToolStripMenuItem Friend WithEvents FakturiertZurücksetzenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents pbMail As PictureBox End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 0d3c9ee7..9eca60de 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1,6 +1,7 @@ Imports System.IO Imports System.Reflection Imports System.Windows.Documents +Imports GrapeCity.SpreadBuilder Imports itextsharp.text.pdf Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -2015,11 +2016,17 @@ Public Class frmMDM_USTVAntrag If Not cns_neAntraege.Items.ContainsKey("mail") Then - Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + Dim mail = New ToolStripMenuItem() With {.Text = "Email (POS-Liste) generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} AddHandler mail.Click, AddressOf mnuItem_Clicked cns_neAntraege.Items.Add(mail) End If + If Not cns_neAntraege.Items.ContainsKey("mailPDF") Then + Dim mailPDF = New ToolStripMenuItem() With {.Text = "Email (PDF-RE) generieren", .Name = "mailPDF", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + AddHandler mailPDF.Click, AddressOf mnuItem_Clicked + cns_neAntraege.Items.Add(mailPDF) + End If + If Not cns_neAntraege.Items.ContainsKey("offeneAntraege") Then Dim oa = New ToolStripMenuItem() With {.Text = "nicht eingearbeitet USTV-Anträge", .Name = "offeneAntraege", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} AddHandler oa.Click, AddressOf mnuItem_Clicked @@ -2046,7 +2053,10 @@ Public Class frmMDM_USTVAntrag excelAuswertung() ElseIf item.Name = "mail" Then - mailmitExcelauswertung() + mailmitExcelauswertung(False) + + ElseIf item.Name = "mailPDF" Then + mailmitExcelauswertung(True) ElseIf item.Name = "zuwenig" Then zuwenigMail() @@ -2193,7 +2203,7 @@ Public Class frmMDM_USTVAntrag End Function - Private Sub mailmitExcelauswertung() + Private Sub mailmitExcelauswertung(Optional withPDF As Boolean = False) Try Dim outl As New Outlook.Application @@ -2208,6 +2218,8 @@ Public Class frmMDM_USTVAntrag End If + If withPDF Then Mail.Attachments.Add(PDFInvoicesPath(""), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Dim subject As String = "" subject &= IIf(USTV_ANTRAG.UStVAn_Name <> "", USTV_ANTRAG.UStVAn_Name & "_", "") subject &= IIf(Antrag_LandKz <> "", Antrag_LandKz & "_", "") @@ -2903,11 +2915,10 @@ Public Class frmMDM_USTVAntrag If frmNacherfassung.txtErfassungsnummer.Text = "" OrElse frmNacherfassung.txtErfassungsnummer.Text <> USTV_ANTRAG.UStVAn_ID Then MsgBox("Antrags-ID: " & USTV_ANTRAG.UStVAn_ID & " wurde falsch gesetzt!") End If - Exit Sub - End If + End If - If DiffernezbetragEUR = 0 Then + If DiffernezbetragEUR = 0 Then If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub End If @@ -2924,20 +2935,17 @@ Public Class frmMDM_USTVAntrag If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then Select Case kunde_erw.kde_Fakturierung_Sprache - Case "EN" : BezAntrag = "Excise duty " + Case "EN", "TR" : BezAntrag = "Excise duty " Case "RO" : BezAntrag = "Rambursare acciza " End Select - Else Select Case kunde_erw.kde_Fakturierung_Sprache - Case "EN" : BezAntrag = "VAT refund " + Case "EN", "TR" : BezAntrag = "VAT refund " Case "RO" : BezAntrag = "Rambursare TVA " End Select - - End If @@ -3434,7 +3442,7 @@ Public Class frmMDM_USTVAntrag - End If + End If End Sub @@ -3623,6 +3631,88 @@ Public Class frmMDM_USTVAntrag End Sub + Private Sub pbMail_Click(sender As Object, e As EventArgs) Handles pbMail.Click + + + If dgvUSTVPositionen.SelectedRows.Count = 0 Then Exit Sub + + Try + + Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(7, "", 19) + Dim mailText As String = "" + + Dim spracheRechnung As String = "EN" 'Defaultsprache + Dim Attachmens_Bez As String = "" + Dim Attachmens_Bez_POS As String = "" + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Dim posID As String = "" + Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr) + Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr) + Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr) + + If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" Then spracheRechnung = KUNDE_ERW.kde_Fakturierung_Sprache + + If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then + + Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung) + If r IsNot Nothing Then + + Mail.Subject = r.txt_betreff + Mail.Subject = Mail.Subject.Replace("%KdNr%", USTV_ANTRAG.UStVAn_KuNr) + Mail.Subject = Mail.Subject.Replace("%KdName%", USTV_ANTRAG.UStVAn_Name) + mailText = r.txt_text + End If + + + End If + + Select Case spracheRechnung + Case "DE" : Attachmens_Bez = "Lief.-Rechn" : Attachmens_Bez_POS = "POS-Liste" + Case "EN", "TR" : Attachmens_Bez = "Supplier Invoice(s)" : Attachmens_Bez_POS = "Item List" + Case "RO" : Attachmens_Bez = "Factura furnizorului" : Attachmens_Bez_POS = "Lista articolelor" + End Select + + Dim path As String = PDFInvoicesPath(posID) + Dim fileInfo As New FileInfo(path) + If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension) + + 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) + + If Not spedBuch.ErfassungsNr = "" Then + + Dim pathPosList As String = generatePOSListe(spedBuch, posID, False) + 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 + + + Dim TextHTML = "" + If mailText <> "" Then + TextHTML = "
" & mailText.Replace(ControlChars.Lf, "
") & cFakturierung.getSignature(AD.LandKz, 19,,,,,, ) & "
" + 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 + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + End Sub Private Function checkSpedbuchEintrag(ByRef Fehlertext As String) Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0) @@ -3648,5 +3738,107 @@ Public Class frmMDM_USTVAntrag End Function + Private Function generatePOSListe(SPEDBUCH As cSpeditionsbuch, pos_id As String, onlyVZ As Boolean) As String + + + Dim func As New cMDMFunctionsAllgemein() + + Dim dtPOSList As New DataTable + Dim prt As String = func.generatePosList(USTV_ANTRAG, pos_id, "", "", False, "prt", dtPOSList, onlyVZ, -1) + If prt <> "" Then + + Try + + Dim rpt As New rptMWSTListe + + rpt.DataSource = dtPOSList + + rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung + + If rpt.DataSource.rows.count > 0 Then + + Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr) + Dim sum As Double = 0 + + rpt.lblVatNo.Text = USTV_ANTRAG.UStVAn_Steuernummer + rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2 + rpt.lblDat.Text = Now.ToShortDateString + + + AddHandler rpt.Detail.Format, Sub() + + rpt.lblNumber.Text = rpt.Fields.Item("Number").Value() + rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value() + rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value() + rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2") + rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString + rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value() + + sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2") + End Sub + + + AddHandler rpt.GroupFooter1.Format, Sub() + rpt.lblSumme.Text = sum.ToString("N2") + rpt.lblWahrung.Text = USTV_ANTRAG.UStVAn_Währungscode + + End Sub + + + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + rpt.Dispose() + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV_ANTRAG.UStVAn_KuNr, False) + If DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True) Then Return tmpPath + + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + + End If +Return "" + + End Function + + Private Function PDFInvoicesPath(ByRef posId As String) As String + + + Dim list As New List(Of String) + If dgvUSTVPositionen.SelectedRows.Count > 0 Then + + Dim nummerierung As Boolean = False + Dim counter = 0 + For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index) + posId &= "'" & row.Cells("UStVPo_ID").Value & "'" + counter = counter + 1 + If (dgvUSTVPositionen.SelectedRows.Count <> 1 And counter <> dgvUSTVPositionen.SelectedRows.Count) Then posId &= "," + Dim pdf As String = "" + pdf = func.getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), True, Antrag_LandKz, USTV_ANTRAG, New cFakturierung, False) + If pdf <> "" Then list.Add(pdf) + Next + End If + + If list.Count = 0 Then Me.Cursor = Cursors.Default : Return "" + If list.Count > 1 Then + Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("RG_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False) + If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then + Return pathPDF + End If + Else + Dim PDFFile As String = "" + PDFFile = list(0) + + Return PDFFile + + End If + + End Function End Class \ No newline at end of file diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 0fde37b4..1e28ab5e 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -305,14 +305,14 @@ Public Class usrCntlUSTV init() cboJahr.Items.Clear() cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - For i = 0 To 10 + For i = 0 To Now().Year - 2005 cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) Next cboJahr.changeItem(Now.Year - 1) cboJahrBis.Items.Clear() cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - For i = 0 To 10 + For i = 0 To Now().Year - 2005 cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) Next cboJahrBis.changeItem(Now.Year) diff --git a/SDL/kunden/frmBonitätsverlauf.vb b/SDL/kunden/frmBonitätsverlauf.vb index 1aff9e01..61cd80d6 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,50 @@ 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 * + FROM ( + 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) AS ba_Datum,MAX(e.crValue) AS " & sqlIndex & ",NULL AS ba_GruendundsDatum,NULL AS ba_Umsatz,NULL AS ba_Mitarbeiter,MAX(e.clValue) AS ba_Hoechstkredit,MAX(e.sachbearbeiter) AS ba_Sachbearbeiter,NULL AS ba_Zahlungsweise,NULL AS ba_GFName,NULL AS ba_Risikostufe,NULL AS ba_CreditSaveRisikoklasse,Source AS ba_Pruefungstool,NULL AS ba_GSName,NULL AS ba_Geschaeftszweck,NULL AS ba_datenarchivId + 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 + ) AS Temp + ORDER BY Temp.ba_Datum DESC;" + + + End If .SET_SQL(sqlstr, "FMZOLL") .LOAD() @@ -49,24 +96,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.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 82c6e2ed..6a430dcc 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,6 +53,7 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -148,8 +149,10 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -181,6 +184,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -191,6 +195,7 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.Label12 = New System.Windows.Forms.Label() Me.rtbGespreachsbericht = New System.Windows.Forms.RichTextBox() @@ -232,11 +237,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -337,6 +337,16 @@ Partial Class frmKundenblatt Me.Panel4.Size = New System.Drawing.Size(1638, 1435) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1435) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -395,7 +405,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1458) + Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1441) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -476,7 +486,7 @@ Partial Class frmKundenblatt Me.TabControl1.Location = New System.Drawing.Point(8, 582) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(718, 870) + Me.TabControl1.Size = New System.Drawing.Size(718, 853) Me.TabControl1.TabIndex = 186 ' 'TabPage1 @@ -488,7 +498,7 @@ Partial Class frmKundenblatt Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(710, 844) + Me.TabPage1.Size = New System.Drawing.Size(710, 827) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Offene Posten" Me.TabPage1.UseVisualStyleBackColor = True @@ -547,7 +557,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 809) + Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 792) Me.dgvOffenePosten.TabIndex = 175 ' 'Label10 @@ -625,7 +635,7 @@ Partial Class frmKundenblatt Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 819) + Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 836) Me.dgvUmsaetze.TabIndex = 182 ' 'Label13 @@ -729,7 +739,7 @@ Partial Class frmKundenblatt Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 821) + Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 838) Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 ' 'lblAdressenzusatz @@ -1090,7 +1100,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1414) + Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1397) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -1737,11 +1747,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1409) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1749,7 +1769,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1630, 1409) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1761,9 +1781,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1403) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1772,7 +1805,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 1403) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1813,7 +1846,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 1229) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1825,7 +1858,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 1291) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1966,7 +1999,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1409) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1978,7 +2011,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1624, 1403) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1996,7 +2029,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1630, 1409) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2196,7 +2229,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1409) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2205,7 +2238,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1409) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2221,6 +2254,16 @@ Partial Class frmKundenblatt Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1441) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) @@ -2354,11 +2397,19 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1415) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.Label12) @@ -2395,7 +2446,7 @@ Partial Class frmKundenblatt ' Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1543, 18) + Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(91, 18) Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern" Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52) Me.btnFirmendatenFormularSpeichern.TabIndex = 17 @@ -2673,7 +2724,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2835,57 +2886,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1435) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1403) - Me.usrcntlKarten.TabIndex = 0 - ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1441) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 1409) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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/frmOffertenBearbeiten.vb b/SDL/kunden/frmOffertenBearbeiten.vb index cd2d1b52..6fdecbf3 100644 --- a/SDL/kunden/frmOffertenBearbeiten.vb +++ b/SDL/kunden/frmOffertenBearbeiten.vb @@ -32,7 +32,7 @@ Public Class frmOffertenBearbeiten cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR")) - cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen ORDER BY Filialen.FilialenNr", False, "FMZOLL") + cboFiliale.fillWithSQL("SELECT Filialen.FilialenNr FROM Filialen where Firma ='" & FIRMA_TMP & "' and Fil_Status = 'A' ORDER BY Filialen.FilialenNr", False, "FMZOLL", True) Dim where = "" @@ -42,20 +42,27 @@ Public Class frmOffertenBearbeiten cboSprache.Enabled = False cboSprache.changeItem("DE") where = " WHERE [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) " - + If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0 Case "VERAG" If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" AndAlso KUNDE.FilialenNr = 8001 AndAlso (KUNDE.KundenNrZentrale <> 140000 And KUNDE.KundenNrZentrale <> 150000 And KUNDE.KundenNrZentrale <> 180000) Then cboSprache.changeItem(KUNDE_ERW.kde_Fakturierung_Sprache) cboSprache.Enabled = True + Else cboSprache.changeItem("DE") cboSprache.Enabled = False End If + If cboFiliale.Items.Count > 4 Then cboFiliale.SelectedIndex = 3 Else Case Else cboSprache.changeItem("DE") cboSprache.Enabled = False + If cboFiliale.Items.Count > 0 Then cboFiliale.SelectedIndex = 0 + End Select + If cboFiliale.Items.Count = 0 Then cboFiliale.changeItem("") + + Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where KundenNr=" & kdnr & " and [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," & " [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " & where & " order by OffertenNr" @@ -86,7 +93,7 @@ Public Class frmOffertenBearbeiten If c.GetType Is GetType(VERAG_PROG_ALLGEMEIN.MyCheckBoxValue) Then ' MsgBox(c._value) If c.enabled And c.checked Then - Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, cboFiliale._value, False) + Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(kdnr, c._value, IIf(cboFiliale._value <> "", cboFiliale._value, Nothing), False) o.Art = "Neuanlage" o.SAVE() 'speichern o.LOAD_POSITIONEN() 'positionen Laden diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 23f197c7..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,66 +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() @@ -158,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() @@ -188,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() @@ -214,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() @@ -230,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) @@ -257,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() @@ -281,6 +282,7 @@ Partial Class usrCntlKundenuebersicht Me.Panel9.SuspendLayout() Me.pnlVERAGSnspr.SuspendLayout() Me.Panel4.SuspendLayout() + CType(Me.pbCreditsafeChanges, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel5.SuspendLayout() Me.Panel7.SuspendLayout() @@ -308,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 @@ -501,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 @@ -623,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 @@ -715,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 @@ -782,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 @@ -1037,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 @@ -1087,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 @@ -1174,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) @@ -1268,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 @@ -1306,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 @@ -1333,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 @@ -1402,6 +1064,7 @@ Partial Class usrCntlKundenuebersicht ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.pbCreditsafeChanges) Me.Panel4.Controls.Add(Me.PictureBox6) Me.Panel4.Controls.Add(Me.FlatButton2) Me.Panel4.Controls.Add(Me.btnCreditsafe) @@ -1420,32 +1083,30 @@ Partial Class usrCntlKundenuebersicht Me.Panel4.Size = New System.Drawing.Size(662, 26) Me.Panel4.TabIndex = 37 ' + 'pbCreditsafeChanges + ' + 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) + Me.pbCreditsafeChanges.Name = "pbCreditsafeChanges" + Me.pbCreditsafeChanges.Size = New System.Drawing.Size(18, 19) + Me.pbCreditsafeChanges.TabIndex = 133 + Me.pbCreditsafeChanges.TabStop = False + Me.pbCreditsafeChanges.Visible = False + ' 'PictureBox6 ' Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Location = New System.Drawing.Point(639, 4) + Me.PictureBox6.Location = New System.Drawing.Point(531, 3) Me.PictureBox6.Name = "PictureBox6" Me.PictureBox6.Size = New System.Drawing.Size(18, 19) Me.PictureBox6.TabIndex = 132 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) @@ -1459,74 +1120,16 @@ 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 Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label68.Location = New System.Drawing.Point(441, 6) + Me.Label68.Location = New System.Drawing.Point(416, 6) Me.Label68.Name = "Label68" Me.Label68.Size = New System.Drawing.Size(30, 13) 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(335, 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 @@ -1538,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(472, 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 @@ -1668,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 @@ -1706,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 @@ -1744,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 @@ -1792,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 @@ -1833,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 @@ -1883,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) @@ -1920,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 @@ -2022,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 @@ -2199,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 @@ -2592,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 @@ -2635,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 @@ -2748,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 @@ -2846,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) @@ -2943,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) @@ -3156,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}) @@ -3380,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 @@ -3427,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!) @@ -3474,6 +3489,7 @@ Partial Class usrCntlKundenuebersicht Me.pnlVERAGSnspr.PerformLayout() Me.Panel4.ResumeLayout(False) Me.Panel4.PerformLayout() + CType(Me.pbCreditsafeChanges, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() @@ -3510,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() @@ -3747,4 +3763,5 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents EORI As DataGridViewTextBoxColumn Friend WithEvents NL As DataGridViewTextBoxColumn Friend WithEvents BIN As DataGridViewTextBoxColumn + Friend WithEvents pbCreditsafeChanges As PictureBox End Class 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 815ad988..4be5956b 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 @@ -671,6 +675,9 @@ Public Class usrCntlKundenuebersicht Button3.BackgroundImage = My.Resources.fragezeichen ' Button4.Visible = False ' Button5.Visible = False + + 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!") End Try @@ -1587,16 +1594,16 @@ Public Class usrCntlKundenuebersicht dgvAufschub.Rows.Clear() If AUFSCHUB IsNot Nothing Then - For Each AB In AUFSCHUB - Dim art = "" - Select Case AB.kdAkto_art - Case "10" : art = "10 - ZOLL/EUST" - Case "15" : art = "15 - ZOLL" - Case "20" : art = "20 - EUST" - End Select - dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin) - Next - End If + For Each AB In AUFSCHUB + Dim art = "" + Select Case AB.kdAkto_art + Case "10" : art = "10 - ZOLL/EUST" + Case "15" : art = "15 - ZOLL" + Case "20" : art = "20 - EUST" + End Select + dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin) + Next + End If dgvAufschub.ClearSelection() @@ -2170,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) @@ -2831,31 +2842,37 @@ Public Class usrCntlKundenuebersicht Else land = ADRESSE.LandKz End If - Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "") + Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", kdNr) If lblBonitaetsdatum._value <> Nothing Then - Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1)) - If lastChecked = Today Then - Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today) - If bonaus IsNot Nothing Then - If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then - MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!") - Cursor = Cursors.Default - btnCreditsafe.Enabled = True - Exit Sub - End If - End If + If Not KUNDE_ERW.kde_CSPortfolioAdded Then + Dim AddCompValue As String = cs.AddCompanyToPortfolio(company) + If AddCompValue = "Conflict" Or AddCompValue = "OK" Or AddCompValue Is Nothing Then SQL.doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveId = '" & KUNDE_ERW.kde_CreditSaveId & "'", "FMZOLL") End If + If lastChecked = Today Then + Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today) + If bonaus IsNot Nothing Then + If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then + MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!") + Cursor = Cursors.Default + btnCreditsafe.Enabled = True + Exit Sub + End If + End If + End If - If cs.checkDateOfLastRequest(company) < lastChecked Then + + + If cs.checkDateOfLastRequest(company) < lastChecked Then Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo) If a = vbYes Then @@ -2871,11 +2888,11 @@ Public Class usrCntlKundenuebersicht setCreditsafereportEntry(cs, company) - End If + End If - Else - MsgBox("Authentifizierungsfehler bei Creditsafe-User") + Else + MsgBox("Authentifizierungsfehler bei Creditsafe-User") End If @@ -2925,7 +2942,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) @@ -2974,6 +2991,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 @@ -2981,6 +3000,70 @@ Public Class usrCntlKundenuebersicht KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe KDERW.SAVE() updateDatenarchivId() + + + '--------------------- weitere Kunden derselben CS-ID mitupdaten! + + Dim DTweitereKundenMitCreditsaveId As DataTable = SQL.loadDgvBySql("select kde_KundenNr from [tblKundenErweitert] where kde_KundenNr <> " & kdNr & " and kde_CreditSaveId = '" & company.creditSafeId & "'", "FMZOLL") + + If DTweitereKundenMitCreditsaveId.Rows.Count > 0 Then + + For Each row As DataRow In DTweitereKundenMitCreditsaveId.Rows + + If IsNumeric(row.Item("kde_KundenNr")) AndAlso row.Item("kde_KundenNr") > 0 Then + + Dim cBonTemp = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft + + cBonTemp.ba_datenarchivId = cBonitaetsauskunft.ba_datenarchivId + cBonTemp.ba_BonitaetsIndex = cBonitaetsauskunft.ba_BonitaetsIndex + cBonTemp.ba_Risikostufe = cBonitaetsauskunft.ba_Risikostufe + cBonTemp.ba_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore + cBonTemp.ba_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex + cBonTemp.ba_CreditSaveRisikoklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse + cBonTemp.ba_forcedRequest = cBonitaetsauskunft.ba_forcedRequest + cBonTemp.ba_KundenNr = (row.Item("kde_KundenNr")) + cBonTemp.ba_Datum = Now() + cBonTemp.ba_Pruefungstool = cBonitaetsauskunft.ba_Pruefungstool + cBonTemp.ba_CScounterBeforeRequest = cBonitaetsauskunft.ba_CScounterBeforeRequest + cBonTemp.ba_CScounterAfterRequest = cBonitaetsauskunft.ba_CScounterAfterRequest + cBonTemp.ba_CSmax = cBonitaetsauskunft.ba_CSmax + cBonTemp.ba_CScountry = cBonitaetsauskunft.ba_CScountry + cBonTemp.ba_Bankverbindung = cBonitaetsauskunft.ba_Bankverbindung + cBonTemp.ba_Zahlungsweise = cBonitaetsauskunft.ba_Zahlungsweise + cBonTemp.ba_Sonstiges = cBonitaetsauskunft.ba_Sonstiges + cBonTemp.ba_GSName = cBonitaetsauskunft.ba_GSName + cBonTemp.ba_UID = cBonitaetsauskunft.ba_UID + cBonTemp.ba_GruendundsDatum = cBonitaetsauskunft.ba_GruendundsDatum + cBonTemp.ba_Umsatz = cBonitaetsauskunft.ba_Umsatz + cBonTemp.ba_Geschaeftszweck = cBonitaetsauskunft.ba_Geschaeftszweck + cBonTemp.ba_Sachbearbeiter = cBonitaetsauskunft.ba_Sachbearbeiter + cBonTemp.ba_MaId = cBonitaetsauskunft.ba_MaId + cBonTemp.ba_LetztesBearbeitungsDatum = cBonitaetsauskunft.ba_LetztesBearbeitungsDatum + cBonTemp.ba_Firma = cBonitaetsauskunft.ba_Firma + cBonTemp.ba_Adresse1 = cBonitaetsauskunft.ba_Adresse1 + cBonTemp.ba_Adresse2 = cBonitaetsauskunft.ba_Adresse2 + cBonTemp.ba_Mitarbeiter = cBonitaetsauskunft.ba_Mitarbeiter + cBonTemp.ba_Hoechstkredit = cBonitaetsauskunft.ba_Hoechstkredit + cBonTemp.ba_GFName = cBonitaetsauskunft.ba_GFName + + If cBonTemp.SAVE Then + + SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonTemp.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonTemp.ba_Datum & "', Höchstkredit=" & If(cBonTemp.ba_Hoechstkredit Is Nothing, "null", "'" & cBonTemp.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonTemp.ba_KundenNr & "'", "FMZOLL") + Dim KDERW_TEMP As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(row.Item("kde_KundenNr")) + KDERW_TEMP.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex + KDERW_TEMP.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore + KDERW_TEMP.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse + KDERW_TEMP.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe + KDERW_TEMP.SAVE() + End If + + End If + + Next + + End If + + End If End Sub @@ -3104,6 +3187,8 @@ Public Class usrCntlKundenuebersicht pdfObject = cs.getPDF(company, failureDesc) + 'cs.AddCompanyToPortfolio(company) + cs.getSubscriptionCountries(dt) If dt.Rows.Count > 0 AndAlso dt.AsEnumerable.Any(Function(c) company.country = c.Item("countryIso2").ToString) Then @@ -3257,15 +3342,60 @@ Public Class usrCntlKundenuebersicht End If End Sub - Private Sub lblBonitaet_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaet.TextChanged - End Sub + Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles pbCreditsafeChanges.Click - Private Sub lblBonitaetRisikostufe_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaetRisikostufe.TextChanged + Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) - End Sub + Dim cs = New cCreditSafeAPI("creditsafe") + Dim checklastDate As Boolean = True - Private Sub Label39_Click(sender As Object, e As EventArgs) Handles Label39.Click + If cs.authenticate() = "200" Then + Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr) + 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, checklastDate) + + If dt.Rows.Count > 0 Then + Dim frm As New Form + Dim dgv As New DataGridView() + + 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 + + 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 End Sub End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index 4f25b91a..568ebda6 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -56,6 +56,7 @@ Partial Class frmMDMDatenverarbetiung Me.Button10 = New System.Windows.Forms.Button() Me.btnRechenwertesetzen = New System.Windows.Forms.Button() Me.lblTTRSum = New System.Windows.Forms.Label() + Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblProzPruef = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.pic = New System.Windows.Forms.PictureBox() @@ -63,6 +64,7 @@ Partial Class frmMDMDatenverarbetiung Me.Button1 = New System.Windows.Forms.Button() Me.btnKunde = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() + Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbx = New System.Windows.Forms.CheckBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.cbxKopie = New System.Windows.Forms.CheckBox() @@ -74,15 +76,14 @@ Partial Class frmMDMDatenverarbetiung Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar() Me.lblPloseAnh_Proz = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() + Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label2 = New System.Windows.Forms.Label() + Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() @@ -100,6 +101,7 @@ Partial Class frmMDMDatenverarbetiung ' 'pnl ' + Me.pnl.Controls.Add(Me.cbxIDSmitVerag) Me.pnl.Controls.Add(Me.Panel5) Me.pnl.Controls.Add(Me.PictureBox5) Me.pnl.Controls.Add(Me.cbxBelegeerstellt) @@ -159,7 +161,7 @@ Partial Class frmMDMDatenverarbetiung Me.cbxBelegeerstellt.AutoSize = True Me.cbxBelegeerstellt.Checked = True Me.cbxBelegeerstellt.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxBelegeerstellt.Location = New System.Drawing.Point(654, 75) + Me.cbxBelegeerstellt.Location = New System.Drawing.Point(663, 75) Me.cbxBelegeerstellt.Name = "cbxBelegeerstellt" Me.cbxBelegeerstellt.Size = New System.Drawing.Size(86, 17) Me.cbxBelegeerstellt.TabIndex = 53 @@ -172,7 +174,7 @@ Partial Class frmMDMDatenverarbetiung Me.cbxASFINAGAbgerechnet.AutoSize = True Me.cbxASFINAGAbgerechnet.Checked = True Me.cbxASFINAGAbgerechnet.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(746, 75) + Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(755, 75) Me.cbxASFINAGAbgerechnet.Name = "cbxASFINAGAbgerechnet" Me.cbxASFINAGAbgerechnet.Size = New System.Drawing.Size(144, 17) Me.cbxASFINAGAbgerechnet.TabIndex = 52 @@ -456,6 +458,32 @@ Partial Class frmMDMDatenverarbetiung Me.lblTTRSum.Text = "Prüfsumme TTR:" Me.lblTTRSum.Visible = False ' + 'txtTTRSum + ' + Me.txtTTRSum._DateTimeOnly = False + Me.txtTTRSum._numbersOnly = False + Me.txtTTRSum._numbersOnlyKommastellen = "" + Me.txtTTRSum._numbersOnlyTrennzeichen = True + Me.txtTTRSum._Prozent = False + Me.txtTTRSum._ShortDateNew = False + Me.txtTTRSum._ShortDateOnly = False + Me.txtTTRSum._TimeOnly = False + Me.txtTTRSum._TimeOnly_Seconds = False + Me.txtTTRSum._value = "" + Me.txtTTRSum._Waehrung = False + Me.txtTTRSum._WaehrungZeichen = True + Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtTTRSum.ForeColor = System.Drawing.Color.Black + Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124) + Me.txtTTRSum.MaxLineLength = -1 + Me.txtTTRSum.MaxLines_Warning = "" + Me.txtTTRSum.MaxLines_Warning_Label = Nothing + Me.txtTTRSum.Name = "txtTTRSum" + Me.txtTTRSum.Size = New System.Drawing.Size(100, 20) + Me.txtTTRSum.TabIndex = 51 + Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtTTRSum.Visible = False + ' 'lblProzPruef ' Me.lblProzPruef.Location = New System.Drawing.Point(63, 97) @@ -532,6 +560,31 @@ Partial Class frmMDMDatenverarbetiung Me.Label4.TabIndex = 44 Me.Label4.Text = "Prüfsumme brutto:" ' + 'txtPruefsummeBrutto + ' + Me.txtPruefsummeBrutto._DateTimeOnly = False + Me.txtPruefsummeBrutto._numbersOnly = False + Me.txtPruefsummeBrutto._numbersOnlyKommastellen = "" + Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True + Me.txtPruefsummeBrutto._Prozent = False + Me.txtPruefsummeBrutto._ShortDateNew = False + Me.txtPruefsummeBrutto._ShortDateOnly = False + Me.txtPruefsummeBrutto._TimeOnly = False + Me.txtPruefsummeBrutto._TimeOnly_Seconds = False + Me.txtPruefsummeBrutto._value = "" + Me.txtPruefsummeBrutto._Waehrung = False + Me.txtPruefsummeBrutto._WaehrungZeichen = True + Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black + Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101) + Me.txtPruefsummeBrutto.MaxLineLength = -1 + Me.txtPruefsummeBrutto.MaxLines_Warning = "" + Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing + Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto" + Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20) + Me.txtPruefsummeBrutto.TabIndex = 43 + Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cbx ' Me.cbx.AutoSize = True @@ -642,6 +695,31 @@ Partial Class frmMDMDatenverarbetiung Me.Label3.TabIndex = 38 Me.Label3.Text = "Prüfsumme netto:" ' + 'txtPruefsummeNetto + ' + Me.txtPruefsummeNetto._DateTimeOnly = False + Me.txtPruefsummeNetto._numbersOnly = False + Me.txtPruefsummeNetto._numbersOnlyKommastellen = "" + Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True + Me.txtPruefsummeNetto._Prozent = False + Me.txtPruefsummeNetto._ShortDateNew = False + Me.txtPruefsummeNetto._ShortDateOnly = False + Me.txtPruefsummeNetto._TimeOnly = False + Me.txtPruefsummeNetto._TimeOnly_Seconds = False + Me.txtPruefsummeNetto._value = "" + Me.txtPruefsummeNetto._Waehrung = False + Me.txtPruefsummeNetto._WaehrungZeichen = True + Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black + Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75) + Me.txtPruefsummeNetto.MaxLineLength = -1 + Me.txtPruefsummeNetto.MaxLines_Warning = "" + Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing + Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto" + Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20) + Me.txtPruefsummeNetto.TabIndex = 37 + Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label2 ' Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -652,6 +730,31 @@ Partial Class frmMDMDatenverarbetiung Me.Label2.TabIndex = 36 Me.Label2.Text = "Anzahl:" ' + 'txtAnzahl + ' + Me.txtAnzahl._DateTimeOnly = False + Me.txtAnzahl._numbersOnly = False + Me.txtAnzahl._numbersOnlyKommastellen = "" + Me.txtAnzahl._numbersOnlyTrennzeichen = True + Me.txtAnzahl._Prozent = False + Me.txtAnzahl._ShortDateNew = False + Me.txtAnzahl._ShortDateOnly = False + Me.txtAnzahl._TimeOnly = False + Me.txtAnzahl._TimeOnly_Seconds = False + Me.txtAnzahl._value = "" + Me.txtAnzahl._Waehrung = False + Me.txtAnzahl._WaehrungZeichen = True + Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48) + Me.txtAnzahl.MaxLineLength = -1 + Me.txtAnzahl.MaxLines_Warning = "" + Me.txtAnzahl.MaxLines_Warning_Label = Nothing + Me.txtAnzahl.Name = "txtAnzahl" + Me.txtAnzahl.Size = New System.Drawing.Size(100, 20) + Me.txtAnzahl.TabIndex = 35 + Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Button3 ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -694,106 +797,18 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547) Me.MyDatagridview1.TabIndex = 0 ' - 'txtTTRSum + 'cbxIDSmitVerag ' - Me.txtTTRSum._DateTimeOnly = False - Me.txtTTRSum._numbersOnly = False - Me.txtTTRSum._numbersOnlyKommastellen = "" - Me.txtTTRSum._numbersOnlyTrennzeichen = True - Me.txtTTRSum._Prozent = False - Me.txtTTRSum._ShortDateNew = False - Me.txtTTRSum._ShortDateOnly = False - Me.txtTTRSum._TimeOnly = False - Me.txtTTRSum._TimeOnly_Seconds = False - Me.txtTTRSum._value = "" - Me.txtTTRSum._Waehrung = False - Me.txtTTRSum._WaehrungZeichen = True - Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtTTRSum.ForeColor = System.Drawing.Color.Black - Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124) - Me.txtTTRSum.MaxLineLength = -1 - Me.txtTTRSum.MaxLines_Warning = "" - Me.txtTTRSum.MaxLines_Warning_Label = Nothing - Me.txtTTRSum.Name = "txtTTRSum" - Me.txtTTRSum.Size = New System.Drawing.Size(100, 20) - Me.txtTTRSum.TabIndex = 51 - Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtTTRSum.Visible = False - ' - 'txtPruefsummeBrutto - ' - Me.txtPruefsummeBrutto._DateTimeOnly = False - Me.txtPruefsummeBrutto._numbersOnly = False - Me.txtPruefsummeBrutto._numbersOnlyKommastellen = "" - Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True - Me.txtPruefsummeBrutto._Prozent = False - Me.txtPruefsummeBrutto._ShortDateNew = False - Me.txtPruefsummeBrutto._ShortDateOnly = False - Me.txtPruefsummeBrutto._TimeOnly = False - Me.txtPruefsummeBrutto._TimeOnly_Seconds = False - Me.txtPruefsummeBrutto._value = "" - Me.txtPruefsummeBrutto._Waehrung = False - Me.txtPruefsummeBrutto._WaehrungZeichen = True - Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black - Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101) - Me.txtPruefsummeBrutto.MaxLineLength = -1 - Me.txtPruefsummeBrutto.MaxLines_Warning = "" - Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing - Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto" - Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20) - Me.txtPruefsummeBrutto.TabIndex = 43 - Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtPruefsummeNetto - ' - Me.txtPruefsummeNetto._DateTimeOnly = False - Me.txtPruefsummeNetto._numbersOnly = False - Me.txtPruefsummeNetto._numbersOnlyKommastellen = "" - Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True - Me.txtPruefsummeNetto._Prozent = False - Me.txtPruefsummeNetto._ShortDateNew = False - Me.txtPruefsummeNetto._ShortDateOnly = False - Me.txtPruefsummeNetto._TimeOnly = False - Me.txtPruefsummeNetto._TimeOnly_Seconds = False - Me.txtPruefsummeNetto._value = "" - Me.txtPruefsummeNetto._Waehrung = False - Me.txtPruefsummeNetto._WaehrungZeichen = True - Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black - Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75) - Me.txtPruefsummeNetto.MaxLineLength = -1 - Me.txtPruefsummeNetto.MaxLines_Warning = "" - Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing - Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto" - Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20) - Me.txtPruefsummeNetto.TabIndex = 37 - Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtAnzahl - ' - Me.txtAnzahl._DateTimeOnly = False - Me.txtAnzahl._numbersOnly = False - Me.txtAnzahl._numbersOnlyKommastellen = "" - Me.txtAnzahl._numbersOnlyTrennzeichen = True - Me.txtAnzahl._Prozent = False - Me.txtAnzahl._ShortDateNew = False - Me.txtAnzahl._ShortDateOnly = False - Me.txtAnzahl._TimeOnly = False - Me.txtAnzahl._TimeOnly_Seconds = False - Me.txtAnzahl._value = "" - Me.txtAnzahl._Waehrung = False - Me.txtAnzahl._WaehrungZeichen = True - Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48) - Me.txtAnzahl.MaxLineLength = -1 - Me.txtAnzahl.MaxLines_Warning = "" - Me.txtAnzahl.MaxLines_Warning_Label = Nothing - Me.txtAnzahl.Name = "txtAnzahl" - Me.txtAnzahl.Size = New System.Drawing.Size(100, 20) - Me.txtAnzahl.TabIndex = 35 - Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.cbxIDSmitVerag.AutoSize = True + Me.cbxIDSmitVerag.Checked = True + Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74) + Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag" + Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17) + Me.cbxIDSmitVerag.TabIndex = 131 + Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360" + Me.cbxIDSmitVerag.UseVisualStyleBackColor = True + Me.cbxIDSmitVerag.Visible = False ' 'frmMDMDatenverarbetiung ' @@ -889,4 +904,5 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents Button10 As Button Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents cbxKopie As CheckBox + Friend WithEvents cbxIDSmitVerag As CheckBox End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index d7665415..b0263b3f 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1,6 +1,7 @@ Imports System.Data.OleDb Imports System.IO Imports com.sun.xml.internal.rngom +Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports itextsharp.text.pdf Imports MDM_Worker Imports VERAG_PROG_ALLGEMEIN @@ -115,6 +116,10 @@ Public Class frmMDMDatenverarbetiung End If End If Case "IDS" + If cbxIDSmitVerag.Checked Then + MsgBox("Abrechnung ohne VERAG/VERAG360 !") + Exit Sub + End If showIDSContextMenu() Case "MSE" Dim mseParam As New cMSEAPI(LIEFERANT) @@ -875,7 +880,7 @@ Public Class frmMDMDatenverarbetiung left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0 left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode - where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null and Kunde.KdNrVERAG not in (756150, 711104) ", "FMZOLL") + where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null " & IIf(cbxIDSmitVerag.Checked, " ", "and Kunde.KdNrVERAG not in (756150, 711104) "), "FMZOLL") .LOAD() @@ -915,7 +920,15 @@ Public Class frmMDMDatenverarbetiung Dim sumTr As Double = 0 For Each r As DataGridViewRow In .Rows sumGes += If(IsNumeric(r.Cells("Gesamtbetrag").Value), CDbl(r.Cells("Gesamtbetrag").Value), 0) - sumTr += If(IsNumeric(r.Cells("Liter").Value), CDbl(r.Cells("Liter").Value), 0) + + If (IsNumeric(r.Cells("Liter").Value)) Then + sumTr += CDbl(r.Cells("Liter").Value) + Else + sumTr += 0 + End If + + + sumFee += If(IsNumeric(r.Cells("Net").Value), CDbl(r.Cells("Net").Value), 0) Next @@ -1013,6 +1026,7 @@ Public Class frmMDMDatenverarbetiung Panel4.Visible = False Panel5.Visible = False cbxKopie.Visible = False + cbxIDSmitVerag.Visible = False Select Case Me.LIEFERANT @@ -1038,6 +1052,7 @@ Public Class frmMDMDatenverarbetiung c.Dock = DockStyle.Fill pnlIDS.Visible = True cbxKopie.Visible = True + cbxIDSmitVerag.Visible = True Case "MSE" Panel5.Visible = True @@ -3974,13 +3989,7 @@ Public Class frmMDMDatenverarbetiung pruefData_IDS = True Try - Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null and CustomerCode not in (60004479,60025994) ", "FMZOLL")) 'Verag360 und VeragAG - If RechnenWertNichtEingetragen > 0 Then - pruefData_IDS = False - MsgBox("Es wurden bei " & RechnenWertNichtEingetragen & " Transaktionen die Rechenwerte nicht eingetragen!" & vbNewLine & "Diese müssen nacherfasst werden (von Rechnungsdatum " & DateTimePicker2.Text & ").") - Return False - End If Dim sqlStringfehlendeKdNr = "SELECT count(*) from tblIDSTransactionsNew as trans left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and Kunde.CustomerCode is null and trans.[CustomerCode] not in (60004479,60025994)" 'Verag360 und VeragAG @@ -4056,6 +4065,14 @@ Public Class frmMDMDatenverarbetiung MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, "")) End If + Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null and CustomerCode not in (60004479,60025994) ", "FMZOLL")) 'Verag360 und VeragAG + + If RechnenWertNichtEingetragen > 0 Then + pruefData_IDS = False + MsgBox("Es wurden bei " & RechnenWertNichtEingetragen & " Transaktionen die Rechenwerte nicht eingetragen!" & vbNewLine & "Diese müssen nacherfasst werden (von Rechnungsdatum " & DateTimePicker2.Text & ").") + Return False + End If + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) pruefData_IDS = False @@ -4826,4 +4843,8 @@ RabattBerechnen: End Function + + Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged + initDgv_IDS() + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 6f5a622d..1eef2876 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -1572,7 +1572,7 @@ Public Class cAvisoDAL id = (Convert.ToInt32(cmd.ExecuteScalar())) ' MsgBox(id) Else - cmd.ExecuteNonQuery() + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then cmd.ExecuteNonQuery() End If Catch ex As SqlException diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 911525cf..914bea2e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -99,6 +99,10 @@ Public Class cKundenErweitert Property kde_BezFIBU As Object = Nothing Property kde_Kopfsammelrechnung As Boolean = False + Property kde_CSPortfolioAdded As Boolean = False + + + @@ -200,6 +204,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb index c05d95e6..2b73b657 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb @@ -529,6 +529,11 @@ Public Class cOffertPosition Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSBEZ_ORG), "FMZOLL", False, list) End Function + Public Function UPDATE(LEISTUNGSNR_ORG As Integer) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True) + Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSNR_ORG), "FMZOLL", False, list) + End Function + @@ -572,6 +577,26 @@ Public Class cOffertPosition Return "" End Function + + Public Function getUpdateCmd(LEISTUNGNR_ORG As Integer) As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True) + + 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 [Offertenpositionen] SET " & str & " WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr and LeistungsNr=" & LEISTUNGNR_ORG & " and LeistungsBez= @LeistungsBez") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + End Class Public Class cOfferteArchiv diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index 762d9fa7..8d6238ed 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -1,9 +1,15 @@  +Imports System.Data.SqlClient +Imports System.IO 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 +Imports Org.BouncyCastle.Ocsp Public Class cCreditSafeAPI @@ -96,7 +102,7 @@ Public Class cCreditSafeAPI - Shared Function SendGetRequestWithAuthHeader(url As String, company As Company, acceptContentType As String, method As String, authenticationToken As String, ByRef failureDesc As String) As String + Shared Function SendGetRequestWithAuthHeader(url As String, company As Company, acceptContentType As String, method As String, authenticationToken As String, ByRef failureDesc As String, Optional isMonitoring As Boolean = False, Optional csvImport As Boolean = False, Optional csvFile As String = "") As String Try VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() @@ -117,20 +123,101 @@ Public Class cCreditSafeAPI rest.ClearAllQueryParams() - If company IsNot Nothing Then + If company IsNot Nothing AndAlso Not isMonitoring Then setSearchParam(rest, company) End If - rest.AddHeader("Content-Type", "application/json") + If isMonitoring AndAlso csvFile <> "" Then + rest.PartSelector = "0" + rest.AddHeader("Content-Type", "multipart/form-data") + rest.AddHeader("Expect", "100-continue") + Else + rest.AddHeader("Content-Type", "application/json") + rest.AddHeader("Accept", acceptContentType) + End If + rest.AddHeader("Authorization", "Bearer " & authenticationToken) - rest.AddHeader("Accept", acceptContentType) Dim responseJson As String Dim pdfData As New Chilkat.BinData + If isMonitoring Then + + If csvImport Then + Dim fileInfo As New FileInfo(csvFile) + + Dim content As String = File.ReadAllText(csvFile) + 'content = content.Replace(";", ",") + 'File.WriteAllText(csvFile, content) + + Dim fileStream As New Chilkat.Stream + fileStream.SourceFile = csvFile + + rest.PartSelector = "1" + + rest.AddHeader("Content-Disposition", "form-data; name=""importcsv""") + rest.AddHeader("Content-Type", "file") + 'rest.SetMultipartBodyString(content) + rest.SetMultipartBodyStream(fileStream) + + rest.PartSelector = "0" + + Dim strResponseBody As String = rest.FullRequestMultipart(method, url.Replace(API_STRING, "")) + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + Else + + If (rest.ResponseStatusCode <> 200) Then + failureDesc = rest.ResponseStatusText & IIf(responseJson <> "", vbNewLine & responseJson, "") + Return failureDesc + Else + + Return responseJson + End If + End If + + + Else + + Dim json As New Chilkat.JsonObject + success = json.UpdateString("id", company.creditSafeId) + success = json.UpdateString("personalReference", "VERAG AG") + success = json.UpdateString("freeText", "hinzugefügt am " & Today.ToShortDateString) + success = json.UpdateString("personalLimit", "") + + Debug.WriteLine(json.Emit()) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + + Dim sbResponseBody As New Chilkat.StringBuilder + success = rest.FullRequestSb(method, url, sbRequestBody, sbResponseBody) + If (success <> True) Then + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + + Else + + If (rest.ResponseStatusCode <> 200) Then + failureDesc = rest.ResponseStatusText & IIf(responseJson <> "", vbNewLine & responseJson, "") + Return failureDesc + Else + + Return responseJson + End If + + + End If + End If + End If + + If acceptContentType.Contains("application/pdf") Then responseJson = rest.FullRequestNoBodyBd(method, url, pdfData) @@ -193,6 +280,10 @@ Public Class cCreditSafeAPI End Function + + + + Shared Function authenticate(Optional username As String = "", Optional password As String = "") As String Dim myUri As String = API_STRING & "/v1/authenticate" @@ -208,6 +299,26 @@ Public Class cCreditSafeAPI End Function + Shared Function AddCompanyToPortfolio(company As Company, Optional PortfolioID As String = "1662419") As String + + Dim myUri As String = API_STRING & "/v1/monitoring/portfolios/" & PortfolioID & "/companies" 'Default + + Dim jsonRespString = SendGetRequestWithAuthHeader(myUri, company, "application/json", "POST", token, "", True) + + Return jsonRespString + + End Function + + + Shared Function AddCompaniesCSVToPortfolio(csvFilePath As String, Optional PortfolioID As String = "1662419") As String + + Dim myUri As String = API_STRING & "/v1/monitoring/portfolios/" & PortfolioID & "/import" 'Default + + Dim jsonRespString = SendGetRequestWithAuthHeader(myUri, Nothing, "application/json", "POST", token, "", True, True, csvFilePath) + + Return jsonRespString + + End Function Shared Function searchCompanies(company As Company, ByRef dataTable As DataTable) As String @@ -308,12 +419,12 @@ Public Class cCreditSafeAPI End Function - Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable) As String + Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False) As String VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() Dim failureDesc As String - Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" + Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & company.lastChecked, "") Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc) @@ -351,6 +462,11 @@ Public Class cCreditSafeAPI Dim numCompanies As Integer = companieData.Size + Dim CL As Double = -1 + Dim CR As Integer = -1 + Dim CL_Date As Date = company.lastChecked + Dim CR_Date As Date = company.lastChecked + For i = 0 To 1 @@ -377,20 +493,152 @@ Public Class cCreditSafeAPI R("ruleName") = compObj.StringOf("ruleName") R("localEventCode") = compObj.StringOf("localEventCode") R("globalEventCode") = compObj.StringOf("globalEventCode") - R("newValue") = compObj.StringOf("newValue") R("oldValue") = compObj.StringOf("oldValue") + 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 = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Is Nothing, "AUTO", 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 + setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Date, CR_Date) + ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then + cEvent.newValueCR = cEvent.newValue + setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Date, CR_Date) + 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 + setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Date, CR_Date) + + 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 + setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Date, CR_Date) + End If + + End If + + If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then + cEvent.bonId = company.csBonID + End If + + cEvent.kundenNr = company.kdNr + cEvent.SAVE() + j = j + 1 End While Next + + + + + + If dtEvents.Rows.Count > 1 Then + dtEvents.DefaultView.Sort = "eventDate ASC" + dtEvents = dtEvents.DefaultView.ToTable + 'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows) + End If + + If company.kdNr > 0 Then + Dim KUNDE As New cKunde(company.kdNr) + + If KUNDE.Bonitätsdatum <= CL_Date Or KUNDE.Bonitätsdatum <= CR_Date Then + + If KUNDE.Bonität <> CR Then + KUNDE.Bonität = CR + KUNDE.Bonitätsdatum = CDate(CR_Date) + End If + + If KUNDE.Höchstkredit <> CL Then + KUNDE.Höchstkredit = CL + KUNDE.Bonitätsdatum = CDate(CL_Date) + End If + + KUNDE.SAVE() + + End If + + End If + + + Return "Anzahl gefundener Datensätze: " & numCompanies End Function + Private Shared Sub setCL_CR_Entry(cs_date As Date, type As String, value As Object, CL As Double, CR As Integer, CL_Date As Date, CR_Date As Date) + + Select Case type + + Case "CR" + Dim saveCR As Boolean = False + If CR_Date <= cs_date Then + cs_date = CR_Date + saveCR = True + End If + + If saveCR Then CR = value + + Case "CL" + Dim saveCL As Boolean = False + If CL_Date <= cs_date Then + cs_date = CL_Date + saveCL = True + End If + + If saveCL Then CL = value + + End Select + + End Sub + Shared Function getReport(ByRef company As Company, withPDF As Boolean) As String 'Shared Function getReport(ByRef company As Company, withPDF As Boolean, ByRef bytes As Byte()) As String Dim failureDesc As String = "" Dim myUrl As String = API_STRING & "/v1/companies/" & company.creditSafeId & "/" @@ -674,7 +922,6 @@ Public Class cCreditSafeAPI rest.AddQueryParam("countries", company.country) - If company.creditsafeNo <> "" Then 'Eindeutiger Schlüssel rest.AddQueryParam("safeNo", company.creditsafeNo) @@ -750,6 +997,7 @@ Public Class cCreditSafeAPI Public Property creditSafeId As String Public Property name As String + Public Property kdNr As Integer Public Property vatNo As String Public Property country As String Public Property creditsafeNo As String @@ -770,12 +1018,12 @@ 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 - Public Sub New(_language As String, _name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String, _sumEmployees As String, _businessPurpose As String, _shareholder As String, _ceo As String, _bank As String, _csTurnover As String) + Public Sub New(_language As String, _name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String, _sumEmployees As String, _businessPurpose As String, _shareholder As String, _ceo As String, _bank As String, _csTurnover As String, _kdNr As Integer) creditSafeId = _creditSafeId name = _name vatNo = _vatNo @@ -792,10 +1040,149 @@ Public Class cCreditSafeAPI csBank = _bank language = _language csTurnover = _csTurnover + kdNr = _kdNr End Sub Public Sub New() 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 + Property kundenNr As Integer + + 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)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundenNr", kundenNr)) + + + 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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index f98c23fa..3d747fea 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -1488,7 +1488,7 @@ Public Class cSyska_Interface For Each r_OP In dt_OP.Rows Try - If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt + If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten] AND Firma_ID = '" & Firma_ID & "'", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt --> höchste ID des OPS der FIRMA!!!! Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()