diff --git a/SDL/App.config b/SDL/App.config index 18fc606c..559e89b4 100644 --- a/SDL/App.config +++ b/SDL/App.config @@ -45,7 +45,7 @@ - + diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 9042c38f..72d7f39a 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2446,11 +2446,13 @@ Public Class cRKSV End If '################ - ' DIREKTVERBUCHUNG SYSKA + ' DIREKTVERBUCHUNG SYSKA -> ev. Fehleranfällig, weil hier direkt in eine Fremddatenbank geschrieben wird ohne Plausibilitätsprüfen bzw. Kenntnisse der internen Prüfungsstrukturen!!!!! '################ If BelegSofortInFIBUverbuchten AndAlso (BELEG.Beleg_TYP = "L" Or BELEG.Beleg_TYP = "K") Then CreateSyskaBuchung(RKSV_id, BELEG, KBEntry_List, KBEntryGB_List, KBEntryST_List, IIf(BELEG.Beleg_TYP = "L", "AUSZAHLUNG", "EINZAHLUNG"), BelegNrFIBU) + Else + End If BELEG.gebucht = True @@ -2792,10 +2794,8 @@ Public Class cRKSV createOPVorgang_new(mandant, typ, CDbl(betrag), jahr, rel_periode, SafeIntToSql(i_beleg_refid), beleg.BelegDat.ToShortDateString, buchungstext, beleg.KundenNr, CDbl(opvorgangsbetrag), i_beleg_refid, Now.ToString(), kassenkonto, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 5) End If - ' 11) single check if gebucht Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext) If gebucht Then - ' logging instead of MsgBox in production MsgBox("FIBU - GEBUCHT!") Else MsgBox("FIBU - NICHT GEBUCHT!") diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index e5f9a3e1..581cf348 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/SDL/Fakturierung/cAutomailversand.vb @@ -155,18 +155,17 @@ Public Class cAutomailversand End Try End Sub + + Sub sendMailEinzelrechnung(Rechnungsdatum As Date, RechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False) + + + End Sub + Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String) Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr) Dim Mailtext As String - 'NICHT MEHR BENÖTIGT! - - 'If row.Item("Steuer") = 0 Then - ' Mailtext &= vbNewLine & vbNewLine - ' Mailtext &= (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & row.Item("RechnungsLandKz") & "'", "FMZOLL") - 'End If - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index bb4dc212..4c6a779d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -3,7 +3,6 @@ Imports System.Globalization Imports System.IO Imports System.Net Imports System.Web.UI.WebControls.Expressions -Imports GrapeCity.ActiveReports.Export.Pdf Imports iText.Kernel.Pdf Imports itextsharp.text.pdf Imports Microsoft.Office.Interop @@ -1966,12 +1965,12 @@ Public Class cFakturierung Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) - If printStbVdb AndAlso Rechnung.Firma_ID <> 1 Then + If printStbVdb AndAlso Not (Rechnung.Firma_ID = 1) Then If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then printSpedBuchAnhaenge(Rechnung, True, True) End If End If - If Rechnung.ANHAENGE.Count > 0 AndAlso Rechnung.Firma_ID <> 1 Then + If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then printRGAnhaenge(Rechnung) End If diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 7c3b003e..a759c96b 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -3684,6 +3684,24 @@ Public Class usrCntlFaktAbrechnung saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge) getValues() + 'If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID > 0 Then + ' Select Case RECHNUNG.Firma_ID + ' Case 19 + ' Dim rpt As New rptRechnungDruck_MDM + ' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then + ' Exit Sub + ' End If + ' Case Else + + ' Dim rpt As New rptRechnungDruck + ' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then + ' Exit Sub + ' End If + + ' End Select + + + 'End If cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent) End Sub @@ -5412,6 +5430,7 @@ mwst: If RECHNUNG Is Nothing Then Exit Sub If SPEDBUCH Is Nothing Then Exit Sub + If FIRMA Is Nothing Then Exit Sub If RECHNUNG.DruckDatumZeit Is Nothing Then diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb index d4c7005c..e9819135 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb @@ -153,7 +153,9 @@ Public Class usrcntlVerzollungsunterlagen txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "") If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then - txtTel.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 77 11 / 27 77 DW 55") + Dim telString = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "") + telString &= "DW " & If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "") + txtTel.Text = If(telString, "+43 77 11 / 27 77 DW 55") txtEmail.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "verrechnung@verag.ag") diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index a3e6ccc3..d5c7105e 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/SDL.vbproj b/SDL/SDL.vbproj index 4b147e14..47ba8bbd 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -492,8 +492,8 @@ True True - - ..\..\..\Aviso\AVISO\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll + + ..\..\..\Aviso\AVISO\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll diff --git a/SDL/kunden/Berichte/rptFiskalkunde.vb b/SDL/kunden/Berichte/rptFiskalkunde.vb index 02e5e04d..a7986ffe 100644 --- a/SDL/kunden/Berichte/rptFiskalkunde.vb +++ b/SDL/kunden/Berichte/rptFiskalkunde.vb @@ -41,9 +41,17 @@ Public Class rptFiskalkunde Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr) Dim FK As New VERAG_PROG_ALLGEMEIN.cFiskalkunden(FiskalId) - lblUeberschrift.Text = "Checkliste für " & FK.FK_Art & "-Fiskal Kunden" - If FK.FK_Art = "DE" Then + + lblUeberschrift.Text = "Checkliste für " & FK.FK_Land + + Select Case FK.FK_Art + Case "IN" : lblUeberschrift.Text &= " INDIREKTE - KUNDEN" + Case Else : lblUeberschrift.Text &= " FISKAL - KUNDEN" + End Select + + + If FK.FK_Land = "DE" Then picVeragAG.Visible = True Else picVeragCS.Visible = True diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index a25b2f72..5481b8f4 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) - Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnExcel = New System.Windows.Forms.Button() @@ -50,20 +50,26 @@ 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() @@ -80,48 +86,77 @@ 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.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.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.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() + Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label23 = New System.Windows.Forms.Label() + Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() + Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label22 = New System.Windows.Forms.Label() Me.Panel10 = New System.Windows.Forms.Panel() Me.Label21 = New System.Windows.Forms.Label() + Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label19 = New System.Windows.Forms.Label() 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.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.lblInsolvent = 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() @@ -134,6 +169,7 @@ 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() @@ -145,6 +181,9 @@ Partial Class usrCntlKundenuebersicht Me.lblFirmenname2 = New System.Windows.Forms.TextBox() Me.lblTESTSystem = New System.Windows.Forms.Label() Me.grpSonstiges = New System.Windows.Forms.GroupBox() + Me.txtUIDVeranlagt = New System.Windows.Forms.TextBox() + Me.Button16 = New System.Windows.Forms.Button() + Me.Label25 = New System.Windows.Forms.Label() Me.Button15 = New System.Windows.Forms.Button() Me.Label20 = New System.Windows.Forms.Label() Me.txtCBAM_Status = New System.Windows.Forms.TextBox() @@ -164,21 +203,29 @@ Partial Class usrCntlKundenuebersicht Me.tbVertraege = New System.Windows.Forms.TabPage() Me.dgvVertraege = New System.Windows.Forms.DataGridView() Me.Panel1 = New System.Windows.Forms.Panel() + Me.datVertragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.txtBelegMail_FixBetreffText = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxBelegMail_FixBetreff = New System.Windows.Forms.CheckBox() Me.Label14 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() @@ -187,6 +234,9 @@ 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() @@ -200,6 +250,14 @@ 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) @@ -226,66 +284,10 @@ Partial Class usrCntlKundenuebersicht Me.btnOP = New System.Windows.Forms.Button() Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem() - Me.Label25 = New System.Windows.Forms.Label() - Me.Button16 = New System.Windows.Forms.Button() 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.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.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.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btncheckliste = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.datVertragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.txtBelegMail_FixBetreffText = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.txtUIDVeranlagt = New System.Windows.Forms.TextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.txtUngebuchteRechungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cntxtAddVM.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.tbOfferten.SuspendLayout() @@ -333,12 +335,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 @@ -449,8 +451,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -470,8 +472,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -481,10 +483,10 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27 + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 291) Me.dgvOffertenSperrliste.TabIndex = 0 @@ -526,6 +528,54 @@ 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 @@ -574,8 +624,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill @@ -600,6 +650,34 @@ 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 @@ -627,8 +705,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29 + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill @@ -664,13 +742,35 @@ Partial Class usrCntlKundenuebersicht Me.pnlAnh.Size = New System.Drawing.Size(655, 328) 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, 289) + Me.usrCntlAnhaenge.TabIndex = 0 + ' 'dgvAnhaenge ' Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False - DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -709,6 +809,42 @@ 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 @@ -928,6 +1064,20 @@ Partial Class usrCntlKundenuebersicht Me.Label2.Text = "Aviso:" Me.Label2.Visible = False ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + 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 @@ -967,6 +1117,83 @@ Partial Class usrCntlKundenuebersicht Me.pnlVERAGSnspr.Size = New System.Drawing.Size(181, 89) 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 @@ -977,6 +1204,52 @@ 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) @@ -1035,6 +1308,20 @@ 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 @@ -1048,6 +1335,36 @@ 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 @@ -1116,6 +1433,20 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox6.TabStop = False Me.PictureBox6.Visible = False ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(222, 6) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(15, 12) + Me.FlatButton2.TabIndex = 11 + Me.FlatButton2.UseVisualStyleBackColor = True + ' 'btnCreditsafe ' Me.btnCreditsafe.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1129,6 +1460,35 @@ 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 @@ -1139,6 +1499,35 @@ Partial Class usrCntlKundenuebersicht Me.Label68.TabIndex = 4 Me.Label68.Text = "vom:" ' + 'lblHoechstkredit + ' + Me.lblHoechstkredit._DateTimeOnly = False + Me.lblHoechstkredit._numbersOnly = True + Me.lblHoechstkredit._numbersOnlyKommastellen = "" + Me.lblHoechstkredit._numbersOnlyTrennzeichen = True + Me.lblHoechstkredit._Prozent = False + Me.lblHoechstkredit._ShortDateNew = False + Me.lblHoechstkredit._ShortDateOnly = False + Me.lblHoechstkredit._TimeOnly = False + Me.lblHoechstkredit._TimeOnly_Seconds = False + Me.lblHoechstkredit._value = "" + Me.lblHoechstkredit._Waehrung = True + Me.lblHoechstkredit._WaehrungZeichen = True + Me.lblHoechstkredit.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblHoechstkredit.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblHoechstkredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHoechstkredit.ForeColor = System.Drawing.Color.Black + Me.lblHoechstkredit.Location = New System.Drawing.Point(310, 5) + Me.lblHoechstkredit.MaxLineLength = -1 + Me.lblHoechstkredit.MaxLines_Warning = "" + Me.lblHoechstkredit.MaxLines_Warning_Label = Nothing + Me.lblHoechstkredit.Name = "lblHoechstkredit" + Me.lblHoechstkredit.ReadOnly = True + Me.lblHoechstkredit.Size = New System.Drawing.Size(96, 13) + Me.lblHoechstkredit.TabIndex = 7 + Me.lblHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.lblHoechstkredit.Visible = False + ' 'Label69 ' Me.Label69.AutoSize = True @@ -1150,6 +1539,89 @@ Partial Class usrCntlKundenuebersicht Me.Label69.Text = "Hochstkredit:" Me.Label69.Visible = False ' + 'lblBonitaet + ' + Me.lblBonitaet._DateTimeOnly = False + Me.lblBonitaet._numbersOnly = False + Me.lblBonitaet._numbersOnlyKommastellen = "" + Me.lblBonitaet._numbersOnlyTrennzeichen = True + Me.lblBonitaet._Prozent = False + Me.lblBonitaet._ShortDateNew = False + Me.lblBonitaet._ShortDateOnly = False + Me.lblBonitaet._TimeOnly = False + Me.lblBonitaet._TimeOnly_Seconds = False + Me.lblBonitaet._value = Nothing + Me.lblBonitaet._Waehrung = False + Me.lblBonitaet._WaehrungZeichen = True + Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaet.ForeColor = System.Drawing.Color.Black + Me.lblBonitaet.Location = New System.Drawing.Point(106, 6) + Me.lblBonitaet.MaxLineLength = -1 + Me.lblBonitaet.MaxLines_Warning = "" + Me.lblBonitaet.MaxLines_Warning_Label = Nothing + Me.lblBonitaet.Name = "lblBonitaet" + Me.lblBonitaet.ReadOnly = True + Me.lblBonitaet.Size = New System.Drawing.Size(32, 13) + Me.lblBonitaet.TabIndex = 1 + Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetRisikostufe + ' + Me.lblBonitaetRisikostufe._DateTimeOnly = False + Me.lblBonitaetRisikostufe._numbersOnly = False + Me.lblBonitaetRisikostufe._numbersOnlyKommastellen = "" + Me.lblBonitaetRisikostufe._numbersOnlyTrennzeichen = True + Me.lblBonitaetRisikostufe._Prozent = False + Me.lblBonitaetRisikostufe._ShortDateNew = False + Me.lblBonitaetRisikostufe._ShortDateOnly = False + Me.lblBonitaetRisikostufe._TimeOnly = False + Me.lblBonitaetRisikostufe._TimeOnly_Seconds = False + Me.lblBonitaetRisikostufe._value = Nothing + Me.lblBonitaetRisikostufe._Waehrung = False + Me.lblBonitaetRisikostufe._WaehrungZeichen = True + Me.lblBonitaetRisikostufe.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetRisikostufe.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetRisikostufe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetRisikostufe.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetRisikostufe.Location = New System.Drawing.Point(145, 6) + Me.lblBonitaetRisikostufe.MaxLineLength = -1 + Me.lblBonitaetRisikostufe.MaxLines_Warning = "" + Me.lblBonitaetRisikostufe.MaxLines_Warning_Label = Nothing + Me.lblBonitaetRisikostufe.Name = "lblBonitaetRisikostufe" + Me.lblBonitaetRisikostufe.ReadOnly = True + Me.lblBonitaetRisikostufe.Size = New System.Drawing.Size(20, 13) + Me.lblBonitaetRisikostufe.TabIndex = 3 + Me.lblBonitaetRisikostufe.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblBonitaetsdatum + ' + Me.lblBonitaetsdatum._DateTimeOnly = False + Me.lblBonitaetsdatum._numbersOnly = False + Me.lblBonitaetsdatum._numbersOnlyKommastellen = "" + Me.lblBonitaetsdatum._numbersOnlyTrennzeichen = True + Me.lblBonitaetsdatum._Prozent = False + Me.lblBonitaetsdatum._ShortDateNew = False + Me.lblBonitaetsdatum._ShortDateOnly = False + Me.lblBonitaetsdatum._TimeOnly = False + Me.lblBonitaetsdatum._TimeOnly_Seconds = False + Me.lblBonitaetsdatum._value = Nothing + Me.lblBonitaetsdatum._Waehrung = False + Me.lblBonitaetsdatum._WaehrungZeichen = True + Me.lblBonitaetsdatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.lblBonitaetsdatum.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblBonitaetsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBonitaetsdatum.ForeColor = System.Drawing.Color.Black + Me.lblBonitaetsdatum.Location = New System.Drawing.Point(447, 6) + Me.lblBonitaetsdatum.MaxLineLength = -1 + Me.lblBonitaetsdatum.MaxLines_Warning = "" + Me.lblBonitaetsdatum.MaxLines_Warning_Label = Nothing + Me.lblBonitaetsdatum.Name = "lblBonitaetsdatum" + Me.lblBonitaetsdatum.ReadOnly = True + Me.lblBonitaetsdatum.Size = New System.Drawing.Size(77, 13) + Me.lblBonitaetsdatum.TabIndex = 5 + ' 'Label39 ' Me.Label39.AutoSize = True @@ -1197,6 +1669,34 @@ 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, 5) + 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 @@ -1207,6 +1707,34 @@ 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, 67) + 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 @@ -1217,6 +1745,34 @@ 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 @@ -1237,10 +1793,40 @@ 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, 26) + 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 Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel7.Controls.Add(Me.txtUngebuchteRechungen) + Me.Panel7.Controls.Add(Me.Label26) Me.Panel7.Controls.Add(Me.lblKreditlimit) Me.Panel7.Controls.Add(Me.Label1) Me.Panel7.Controls.Add(Me.txtProforma) @@ -1259,44 +1845,159 @@ Partial Class usrCntlKundenuebersicht Me.Panel7.Size = New System.Drawing.Size(253, 132) Me.Panel7.TabIndex = 43 ' + '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(135, 111) + 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 + ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(6, 111) + Me.Label1.Location = New System.Drawing.Point(6, 113) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(66, 13) Me.Label1.TabIndex = 19 Me.Label1.Text = "Kreditlimit:" ' + 'txtProforma + ' + Me.txtProforma._DateTimeOnly = False + Me.txtProforma._numbersOnly = False + Me.txtProforma._numbersOnlyKommastellen = "" + Me.txtProforma._numbersOnlyTrennzeichen = True + Me.txtProforma._Prozent = False + Me.txtProforma._ShortDateNew = False + Me.txtProforma._ShortDateOnly = False + Me.txtProforma._TimeOnly = False + Me.txtProforma._TimeOnly_Seconds = False + Me.txtProforma._value = Nothing + Me.txtProforma._Waehrung = False + Me.txtProforma._WaehrungZeichen = True + Me.txtProforma.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtProforma.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtProforma.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtProforma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtProforma.ForeColor = System.Drawing.Color.Green + Me.txtProforma.Location = New System.Drawing.Point(137, 38) + Me.txtProforma.MaxLineLength = -1 + Me.txtProforma.MaxLines_Warning = "" + Me.txtProforma.MaxLines_Warning_Label = Nothing + Me.txtProforma.Name = "txtProforma" + Me.txtProforma.ReadOnly = True + Me.txtProforma.Size = New System.Drawing.Size(108, 13) + Me.txtProforma.TabIndex = 53 + Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label23 ' Me.Label23.AutoSize = True Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(8, 26) + Me.Label23.Location = New System.Drawing.Point(8, 22) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(113, 13) Me.Label23.TabIndex = 50 Me.Label23.Text = "- offene Vorauskassen" ' + 'txtKdSicherheiten + ' + Me.txtKdSicherheiten._DateTimeOnly = False + Me.txtKdSicherheiten._numbersOnly = False + Me.txtKdSicherheiten._numbersOnlyKommastellen = "" + Me.txtKdSicherheiten._numbersOnlyTrennzeichen = True + Me.txtKdSicherheiten._Prozent = False + Me.txtKdSicherheiten._ShortDateNew = False + Me.txtKdSicherheiten._ShortDateOnly = False + Me.txtKdSicherheiten._TimeOnly = False + Me.txtKdSicherheiten._TimeOnly_Seconds = False + Me.txtKdSicherheiten._value = Nothing + Me.txtKdSicherheiten._Waehrung = False + Me.txtKdSicherheiten._WaehrungZeichen = True + Me.txtKdSicherheiten.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtKdSicherheiten.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtKdSicherheiten.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtKdSicherheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKdSicherheiten.ForeColor = System.Drawing.Color.Green + Me.txtKdSicherheiten.Location = New System.Drawing.Point(135, 70) + Me.txtKdSicherheiten.MaxLineLength = -1 + Me.txtKdSicherheiten.MaxLines_Warning = "" + Me.txtKdSicherheiten.MaxLines_Warning_Label = Nothing + Me.txtKdSicherheiten.Name = "txtKdSicherheiten" + Me.txtKdSicherheiten.ReadOnly = True + Me.txtKdSicherheiten.Size = New System.Drawing.Size(108, 13) + Me.txtKdSicherheiten.TabIndex = 51 + Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label24 ' Me.Label24.AutoSize = True Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label24.Location = New System.Drawing.Point(8, 46) + Me.Label24.Location = New System.Drawing.Point(8, 38) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(120, 13) Me.Label24.TabIndex = 52 Me.Label24.Text = "- Proforma-Rechnungen" ' + 'txtOffenePosten2 + ' + Me.txtOffenePosten2._DateTimeOnly = False + Me.txtOffenePosten2._numbersOnly = False + Me.txtOffenePosten2._numbersOnlyKommastellen = "" + Me.txtOffenePosten2._numbersOnlyTrennzeichen = True + Me.txtOffenePosten2._Prozent = False + Me.txtOffenePosten2._ShortDateNew = False + Me.txtOffenePosten2._ShortDateOnly = False + Me.txtOffenePosten2._TimeOnly = False + Me.txtOffenePosten2._TimeOnly_Seconds = False + Me.txtOffenePosten2._value = Nothing + Me.txtOffenePosten2._Waehrung = False + Me.txtOffenePosten2._WaehrungZeichen = True + Me.txtOffenePosten2.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtOffenePosten2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtOffenePosten2.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtOffenePosten2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOffenePosten2.ForeColor = System.Drawing.Color.Green + Me.txtOffenePosten2.Location = New System.Drawing.Point(135, 4) + Me.txtOffenePosten2.MaxLineLength = -1 + Me.txtOffenePosten2.MaxLines_Warning = "" + Me.txtOffenePosten2.MaxLines_Warning_Label = Nothing + Me.txtOffenePosten2.Name = "txtOffenePosten2" + Me.txtOffenePosten2.ReadOnly = True + Me.txtOffenePosten2.Size = New System.Drawing.Size(108, 13) + Me.txtOffenePosten2.TabIndex = 49 + Me.txtOffenePosten2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label22 ' Me.Label22.AutoSize = True Me.Label22.Cursor = System.Windows.Forms.Cursors.Hand Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.Location = New System.Drawing.Point(8, 5) + Me.Label22.Location = New System.Drawing.Point(8, 4) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(58, 13) Me.Label22.TabIndex = 48 @@ -1305,7 +2006,7 @@ Partial Class usrCntlKundenuebersicht 'Panel10 ' Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel10.Location = New System.Drawing.Point(11, 84) + Me.Panel10.Location = New System.Drawing.Point(11, 87) Me.Panel10.Name = "Panel10" Me.Panel10.Size = New System.Drawing.Size(230, 1) Me.Panel10.TabIndex = 47 @@ -1314,18 +2015,75 @@ Partial Class usrCntlKundenuebersicht ' Me.Label21.AutoSize = True Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.Location = New System.Drawing.Point(6, 92) + Me.Label21.Location = New System.Drawing.Point(6, 95) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(46, 13) Me.Label21.TabIndex = 45 Me.Label21.Text = "Risiko:" ' + 'txtRisiko + ' + Me.txtRisiko._DateTimeOnly = False + Me.txtRisiko._numbersOnly = False + Me.txtRisiko._numbersOnlyKommastellen = "" + Me.txtRisiko._numbersOnlyTrennzeichen = True + Me.txtRisiko._Prozent = False + Me.txtRisiko._ShortDateNew = False + Me.txtRisiko._ShortDateOnly = False + Me.txtRisiko._TimeOnly = False + Me.txtRisiko._TimeOnly_Seconds = False + Me.txtRisiko._value = Nothing + Me.txtRisiko._Waehrung = False + Me.txtRisiko._WaehrungZeichen = True + Me.txtRisiko.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtRisiko.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtRisiko.ForeColor = System.Drawing.Color.Black + Me.txtRisiko.Location = New System.Drawing.Point(135, 92) + Me.txtRisiko.MaxLineLength = -1 + Me.txtRisiko.MaxLines_Warning = "" + Me.txtRisiko.MaxLines_Warning_Label = Nothing + Me.txtRisiko.Name = "txtRisiko" + Me.txtRisiko.ReadOnly = True + Me.txtRisiko.Size = New System.Drawing.Size(108, 13) + Me.txtRisiko.TabIndex = 46 + Me.txtRisiko.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(135, 22) + 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 Me.Label19.Cursor = System.Windows.Forms.Cursors.Hand Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(8, 68) + Me.Label19.Location = New System.Drawing.Point(8, 70) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(75, 13) Me.Label19.TabIndex = 43 @@ -1340,6 +2098,34 @@ 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(175, 340) + 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(50, 13) + Me.txtZahlungsziel.TabIndex = 34 + Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'txtVeranlKd ' Me.txtVeranlKd.BackColor = System.Drawing.Color.White @@ -1361,6 +2147,34 @@ Partial Class usrCntlKundenuebersicht Me.lblVeranlKd.TabIndex = 47 Me.lblVeranlKd.Text = "Veranl.Kd.:" ' + '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(97, 359) + 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(128, 13) + Me.txtUmsatzJahr.TabIndex = 32 + Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'rtbAbf_Besonderheiten ' Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ @@ -1444,6 +2258,43 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktKontakt.TabIndex = 2 Me.tbKontaktKontakt.Text = "Kontakt" ' + '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 @@ -1584,6 +2435,14 @@ 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 @@ -1730,6 +2589,37 @@ Partial Class usrCntlKundenuebersicht Me.grpSonstiges.TabIndex = 6 Me.grpSonstiges.TabStop = False ' + 'txtUIDVeranlagt + ' + Me.txtUIDVeranlagt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtUIDVeranlagt.ForeColor = System.Drawing.Color.IndianRed + Me.txtUIDVeranlagt.Location = New System.Drawing.Point(13, 77) + Me.txtUIDVeranlagt.Name = "txtUIDVeranlagt" + Me.txtUIDVeranlagt.Size = New System.Drawing.Size(441, 13) + Me.txtUIDVeranlagt.TabIndex = 21 + ' + 'Button16 + ' + Me.Button16.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button16.FlatAppearance.BorderSize = 0 + Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button16.Location = New System.Drawing.Point(460, 71) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(25, 20) + Me.Button16.TabIndex = 20 + Me.Button16.UseVisualStyleBackColor = True + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(10, 59) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(122, 17) + Me.Label25.TabIndex = 18 + Me.Label25.Text = "UID-Nr. veranlagt:" + ' 'Button15 ' Me.Button15.BackgroundImage = Global.SDL.My.Resources.Resources.stift1 @@ -1896,8 +2786,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToResizeRows = False - DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill @@ -1950,8 +2840,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToOrderColumns = True Me.dgvVertraege.AllowUserToResizeRows = False - DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill @@ -1983,6 +2873,30 @@ Partial Class usrCntlKundenuebersicht Me.Panel1.Size = New System.Drawing.Size(473, 46) Me.Panel1.TabIndex = 1 ' + 'datVertragBis + ' + Me.datVertragBis._DateTimeOnly = False + Me.datVertragBis._numbersOnly = False + Me.datVertragBis._numbersOnlyKommastellen = "" + Me.datVertragBis._numbersOnlyTrennzeichen = True + Me.datVertragBis._Prozent = False + Me.datVertragBis._ShortDateNew = True + Me.datVertragBis._ShortDateOnly = False + Me.datVertragBis._TimeOnly = False + Me.datVertragBis._TimeOnly_Seconds = False + Me.datVertragBis._value = "" + Me.datVertragBis._Waehrung = False + Me.datVertragBis._WaehrungZeichen = True + Me.datVertragBis.ForeColor = System.Drawing.Color.Black + Me.datVertragBis.Location = New System.Drawing.Point(321, 23) + Me.datVertragBis.MaxLength = 10 + Me.datVertragBis.MaxLineLength = -1 + Me.datVertragBis.MaxLines_Warning = "" + Me.datVertragBis.MaxLines_Warning_Label = Nothing + Me.datVertragBis.Name = "datVertragBis" + Me.datVertragBis.Size = New System.Drawing.Size(65, 20) + Me.datVertragBis.TabIndex = 10 + ' 'Button11 ' Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -2010,6 +2924,29 @@ 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(255, 20) + Me.txtVertragVermerk.TabIndex = 6 + ' 'Label16 ' Me.Label16.AutoSize = True @@ -2030,6 +2967,41 @@ Partial Class usrCntlKundenuebersicht Me.Label5.TabIndex = 2 Me.Label5.Text = "Datum/Bis:" ' + '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(189, 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(321, 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(65, 20) + Me.datVertrag.TabIndex = 3 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -2069,8 +3041,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToResizeRows = False - DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33 + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill @@ -2108,6 +3080,56 @@ 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 @@ -2156,6 +3178,16 @@ 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, 171) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 + ' 'tbKdSpez ' Me.tbKdSpez.Controls.Add(Me.txtBelegMail_FixBetreffText) @@ -2177,6 +3209,30 @@ Partial Class usrCntlKundenuebersicht Me.tbKdSpez.Text = "Kundenspezifisch" Me.tbKdSpez.UseVisualStyleBackColor = True ' + 'txtBelegMail_FixBetreffText + ' + Me.txtBelegMail_FixBetreffText._DateTimeOnly = False + Me.txtBelegMail_FixBetreffText._numbersOnly = False + Me.txtBelegMail_FixBetreffText._numbersOnlyKommastellen = "" + Me.txtBelegMail_FixBetreffText._numbersOnlyTrennzeichen = True + Me.txtBelegMail_FixBetreffText._Prozent = False + Me.txtBelegMail_FixBetreffText._ShortDateNew = False + Me.txtBelegMail_FixBetreffText._ShortDateOnly = False + Me.txtBelegMail_FixBetreffText._TimeOnly = False + Me.txtBelegMail_FixBetreffText._TimeOnly_Seconds = False + Me.txtBelegMail_FixBetreffText._value = "" + Me.txtBelegMail_FixBetreffText._Waehrung = False + Me.txtBelegMail_FixBetreffText._WaehrungZeichen = True + Me.txtBelegMail_FixBetreffText.Enabled = False + Me.txtBelegMail_FixBetreffText.ForeColor = System.Drawing.Color.Black + Me.txtBelegMail_FixBetreffText.Location = New System.Drawing.Point(327, 64) + Me.txtBelegMail_FixBetreffText.MaxLineLength = -1 + Me.txtBelegMail_FixBetreffText.MaxLines_Warning = "" + Me.txtBelegMail_FixBetreffText.MaxLines_Warning_Label = Nothing + Me.txtBelegMail_FixBetreffText.Name = "txtBelegMail_FixBetreffText" + Me.txtBelegMail_FixBetreffText.Size = New System.Drawing.Size(131, 20) + Me.txtBelegMail_FixBetreffText.TabIndex = 11 + ' 'cbxBelegMail_FixBetreff ' Me.cbxBelegMail_FixBetreff.AutoSize = True @@ -2255,6 +3311,69 @@ 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(411, 109) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(65, 52) + Me.FlatButton4.TabIndex = 9 + Me.FlatButton4.Tag = "" + Me.FlatButton4.Text = "Speichern" + Me.FlatButton4.UseVisualStyleBackColor = True + ' 'tbSonstiges ' Me.tbSonstiges.Controls.Add(Me.Label6) @@ -2405,6 +3524,94 @@ 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(12, 97) + 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}) @@ -2598,28 +3805,6 @@ Partial Class usrCntlKundenuebersicht Me.ToolStripMenuItem12.Size = New System.Drawing.Size(150, 30) Me.ToolStripMenuItem12.Text = "Schnelldruck" ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.Location = New System.Drawing.Point(10, 59) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(122, 17) - Me.Label25.TabIndex = 18 - Me.Label25.Text = "UID-Nr. veranlagt:" - ' - 'Button16 - ' - Me.Button16.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.Button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button16.FlatAppearance.BorderSize = 0 - Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button16.Location = New System.Drawing.Point(460, 71) - Me.Button16.Name = "Button16" - Me.Button16.Size = New System.Drawing.Size(25, 20) - Me.Button16.TabIndex = 20 - Me.Button16.UseVisualStyleBackColor = True - ' 'cboFirmaFMZOLL ' Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing @@ -2634,1192 +3819,51 @@ Partial Class usrCntlKundenuebersicht 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, 289) - 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 - ' - '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 - ' - '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, 5) - 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, 67) - 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, 26) - 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 - ' - '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(135, 111) - 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 - ' - 'txtProforma - ' - Me.txtProforma._DateTimeOnly = False - Me.txtProforma._numbersOnly = False - Me.txtProforma._numbersOnlyKommastellen = "" - Me.txtProforma._numbersOnlyTrennzeichen = True - Me.txtProforma._Prozent = False - Me.txtProforma._ShortDateNew = False - Me.txtProforma._ShortDateOnly = False - Me.txtProforma._TimeOnly = False - Me.txtProforma._TimeOnly_Seconds = False - Me.txtProforma._value = Nothing - Me.txtProforma._Waehrung = False - Me.txtProforma._WaehrungZeichen = True - Me.txtProforma.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtProforma.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtProforma.Cursor = System.Windows.Forms.Cursors.Hand - Me.txtProforma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtProforma.ForeColor = System.Drawing.Color.Green - Me.txtProforma.Location = New System.Drawing.Point(135, 46) - Me.txtProforma.MaxLineLength = -1 - Me.txtProforma.MaxLines_Warning = "" - Me.txtProforma.MaxLines_Warning_Label = Nothing - Me.txtProforma.Name = "txtProforma" - Me.txtProforma.ReadOnly = True - Me.txtProforma.Size = New System.Drawing.Size(108, 13) - Me.txtProforma.TabIndex = 53 - Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtKdSicherheiten - ' - Me.txtKdSicherheiten._DateTimeOnly = False - Me.txtKdSicherheiten._numbersOnly = False - Me.txtKdSicherheiten._numbersOnlyKommastellen = "" - Me.txtKdSicherheiten._numbersOnlyTrennzeichen = True - Me.txtKdSicherheiten._Prozent = False - Me.txtKdSicherheiten._ShortDateNew = False - Me.txtKdSicherheiten._ShortDateOnly = False - Me.txtKdSicherheiten._TimeOnly = False - Me.txtKdSicherheiten._TimeOnly_Seconds = False - Me.txtKdSicherheiten._value = Nothing - Me.txtKdSicherheiten._Waehrung = False - Me.txtKdSicherheiten._WaehrungZeichen = True - Me.txtKdSicherheiten.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtKdSicherheiten.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtKdSicherheiten.Cursor = System.Windows.Forms.Cursors.Hand - Me.txtKdSicherheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKdSicherheiten.ForeColor = System.Drawing.Color.Green - Me.txtKdSicherheiten.Location = New System.Drawing.Point(135, 69) - Me.txtKdSicherheiten.MaxLineLength = -1 - Me.txtKdSicherheiten.MaxLines_Warning = "" - Me.txtKdSicherheiten.MaxLines_Warning_Label = Nothing - Me.txtKdSicherheiten.Name = "txtKdSicherheiten" - Me.txtKdSicherheiten.ReadOnly = True - Me.txtKdSicherheiten.Size = New System.Drawing.Size(108, 13) - Me.txtKdSicherheiten.TabIndex = 51 - Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOffenePosten2 - ' - Me.txtOffenePosten2._DateTimeOnly = False - Me.txtOffenePosten2._numbersOnly = False - Me.txtOffenePosten2._numbersOnlyKommastellen = "" - Me.txtOffenePosten2._numbersOnlyTrennzeichen = True - Me.txtOffenePosten2._Prozent = False - Me.txtOffenePosten2._ShortDateNew = False - Me.txtOffenePosten2._ShortDateOnly = False - Me.txtOffenePosten2._TimeOnly = False - Me.txtOffenePosten2._TimeOnly_Seconds = False - Me.txtOffenePosten2._value = Nothing - Me.txtOffenePosten2._Waehrung = False - Me.txtOffenePosten2._WaehrungZeichen = True - Me.txtOffenePosten2.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtOffenePosten2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtOffenePosten2.Cursor = System.Windows.Forms.Cursors.Hand - Me.txtOffenePosten2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOffenePosten2.ForeColor = System.Drawing.Color.Green - Me.txtOffenePosten2.Location = New System.Drawing.Point(135, 5) - Me.txtOffenePosten2.MaxLineLength = -1 - Me.txtOffenePosten2.MaxLines_Warning = "" - Me.txtOffenePosten2.MaxLines_Warning_Label = Nothing - Me.txtOffenePosten2.Name = "txtOffenePosten2" - Me.txtOffenePosten2.ReadOnly = True - Me.txtOffenePosten2.Size = New System.Drawing.Size(108, 13) - Me.txtOffenePosten2.TabIndex = 49 - Me.txtOffenePosten2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtRisiko - ' - Me.txtRisiko._DateTimeOnly = False - Me.txtRisiko._numbersOnly = False - Me.txtRisiko._numbersOnlyKommastellen = "" - Me.txtRisiko._numbersOnlyTrennzeichen = True - Me.txtRisiko._Prozent = False - Me.txtRisiko._ShortDateNew = False - Me.txtRisiko._ShortDateOnly = False - Me.txtRisiko._TimeOnly = False - Me.txtRisiko._TimeOnly_Seconds = False - Me.txtRisiko._value = Nothing - Me.txtRisiko._Waehrung = False - Me.txtRisiko._WaehrungZeichen = True - Me.txtRisiko.BackColor = System.Drawing.Color.AntiqueWhite - Me.txtRisiko.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtRisiko.ForeColor = System.Drawing.Color.Black - Me.txtRisiko.Location = New System.Drawing.Point(135, 92) - Me.txtRisiko.MaxLineLength = -1 - Me.txtRisiko.MaxLines_Warning = "" - Me.txtRisiko.MaxLines_Warning_Label = Nothing - Me.txtRisiko.Name = "txtRisiko" - Me.txtRisiko.ReadOnly = True - Me.txtRisiko.Size = New System.Drawing.Size(108, 13) - Me.txtRisiko.TabIndex = 46 - Me.txtRisiko.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(135, 25) - 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 - ' - '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(175, 340) - 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(50, 13) - Me.txtZahlungsziel.TabIndex = 34 - Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - '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(97, 359) - 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(128, 13) - Me.txtUmsatzJahr.TabIndex = 32 - Me.txtUmsatzJahr.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 - ' - 'datVertragBis - ' - Me.datVertragBis._DateTimeOnly = False - Me.datVertragBis._numbersOnly = False - Me.datVertragBis._numbersOnlyKommastellen = "" - Me.datVertragBis._numbersOnlyTrennzeichen = True - Me.datVertragBis._Prozent = False - Me.datVertragBis._ShortDateNew = True - Me.datVertragBis._ShortDateOnly = False - Me.datVertragBis._TimeOnly = False - Me.datVertragBis._TimeOnly_Seconds = False - Me.datVertragBis._value = "" - Me.datVertragBis._Waehrung = False - Me.datVertragBis._WaehrungZeichen = True - Me.datVertragBis.ForeColor = System.Drawing.Color.Black - Me.datVertragBis.Location = New System.Drawing.Point(321, 23) - Me.datVertragBis.MaxLength = 10 - Me.datVertragBis.MaxLineLength = -1 - Me.datVertragBis.MaxLines_Warning = "" - Me.datVertragBis.MaxLines_Warning_Label = Nothing - Me.datVertragBis.Name = "datVertragBis" - Me.datVertragBis.Size = New System.Drawing.Size(65, 20) - Me.datVertragBis.TabIndex = 10 - ' - '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(255, 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(189, 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(321, 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(65, 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 - ' - 'txtBelegMail_FixBetreffText - ' - Me.txtBelegMail_FixBetreffText._DateTimeOnly = False - Me.txtBelegMail_FixBetreffText._numbersOnly = False - Me.txtBelegMail_FixBetreffText._numbersOnlyKommastellen = "" - Me.txtBelegMail_FixBetreffText._numbersOnlyTrennzeichen = True - Me.txtBelegMail_FixBetreffText._Prozent = False - Me.txtBelegMail_FixBetreffText._ShortDateNew = False - Me.txtBelegMail_FixBetreffText._ShortDateOnly = False - Me.txtBelegMail_FixBetreffText._TimeOnly = False - Me.txtBelegMail_FixBetreffText._TimeOnly_Seconds = False - Me.txtBelegMail_FixBetreffText._value = "" - Me.txtBelegMail_FixBetreffText._Waehrung = False - Me.txtBelegMail_FixBetreffText._WaehrungZeichen = True - Me.txtBelegMail_FixBetreffText.Enabled = False - Me.txtBelegMail_FixBetreffText.ForeColor = System.Drawing.Color.Black - Me.txtBelegMail_FixBetreffText.Location = New System.Drawing.Point(327, 64) - Me.txtBelegMail_FixBetreffText.MaxLineLength = -1 - Me.txtBelegMail_FixBetreffText.MaxLines_Warning = "" - Me.txtBelegMail_FixBetreffText.MaxLines_Warning_Label = Nothing - Me.txtBelegMail_FixBetreffText.Name = "txtBelegMail_FixBetreffText" - Me.txtBelegMail_FixBetreffText.Size = New System.Drawing.Size(131, 20) - Me.txtBelegMail_FixBetreffText.TabIndex = 11 - ' - '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(411, 109) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(65, 52) - 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 - DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34 - 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}) - DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36 - Me.dgvAufschub.Location = New System.Drawing.Point(12, 97) - 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 - ' - DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle35 - 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 ' - 'UsrCntlKundenBesonderheiten1 + 'Label26 ' - Me.UsrCntlKundenBesonderheiten1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - 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 + Me.Label26.AutoSize = True + Me.Label26.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(8, 55) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(111, 13) + Me.Label26.TabIndex = 54 + Me.Label26.Text = "- ungeb. Rechnungen" ' - 'ucKundenKontakte + 'txtUngebuchteRechungen ' - 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 - ' - '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, 171) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' - 'txtUIDVeranlagt - ' - Me.txtUIDVeranlagt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtUIDVeranlagt.ForeColor = System.Drawing.Color.IndianRed - Me.txtUIDVeranlagt.Location = New System.Drawing.Point(13, 77) - Me.txtUIDVeranlagt.Name = "txtUIDVeranlagt" - Me.txtUIDVeranlagt.Size = New System.Drawing.Size(441, 13) - Me.txtUIDVeranlagt.TabIndex = 21 + Me.txtUngebuchteRechungen._DateTimeOnly = False + Me.txtUngebuchteRechungen._numbersOnly = False + Me.txtUngebuchteRechungen._numbersOnlyKommastellen = "" + Me.txtUngebuchteRechungen._numbersOnlyTrennzeichen = True + Me.txtUngebuchteRechungen._Prozent = False + Me.txtUngebuchteRechungen._ShortDateNew = False + Me.txtUngebuchteRechungen._ShortDateOnly = False + Me.txtUngebuchteRechungen._TimeOnly = False + Me.txtUngebuchteRechungen._TimeOnly_Seconds = False + Me.txtUngebuchteRechungen._value = Nothing + Me.txtUngebuchteRechungen._Waehrung = False + Me.txtUngebuchteRechungen._WaehrungZeichen = True + Me.txtUngebuchteRechungen.BackColor = System.Drawing.Color.AntiqueWhite + Me.txtUngebuchteRechungen.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtUngebuchteRechungen.Cursor = System.Windows.Forms.Cursors.Hand + Me.txtUngebuchteRechungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUngebuchteRechungen.ForeColor = System.Drawing.Color.Green + Me.txtUngebuchteRechungen.Location = New System.Drawing.Point(135, 55) + Me.txtUngebuchteRechungen.MaxLineLength = -1 + Me.txtUngebuchteRechungen.MaxLines_Warning = "" + Me.txtUngebuchteRechungen.MaxLines_Warning_Label = Nothing + Me.txtUngebuchteRechungen.Name = "txtUngebuchteRechungen" + Me.txtUngebuchteRechungen.ReadOnly = True + Me.txtUngebuchteRechungen.Size = New System.Drawing.Size(108, 13) + Me.txtUngebuchteRechungen.TabIndex = 55 + Me.txtUngebuchteRechungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'usrCntlKundenuebersicht ' @@ -3906,12 +3950,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() @@ -4167,4 +4211,6 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents Button16 As Button Friend WithEvents Label25 As Label Friend WithEvents txtUIDVeranlagt As TextBox + Friend WithEvents txtUngebuchteRechungen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label26 As Label End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.resx b/SDL/kunden/usrCntlKundenuebersicht.resx index 16af1cbc..a5baa950 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.resx +++ b/SDL/kunden/usrCntlKundenuebersicht.resx @@ -209,21 +209,6 @@ ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII= - - 832, 17 - - - 989, 17 - - - 1146, 17 - - - 1303, 17 - - - 153, 56 - True @@ -245,6 +230,21 @@ True + + 832, 17 + + + 989, 17 + + + 1146, 17 + + + 1303, 17 + + + 153, 56 + 17, 56 diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 7e23f7a4..1659f777 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1,9 +1,7 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.IO -Imports org.BouncyCastle.Asn1.Ocsp Imports SDL.EORI -Imports sun.util.resources.cldr.aa Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlKundenuebersicht @@ -451,7 +449,6 @@ Public Class usrCntlKundenuebersicht txtUIDVeranlagt.Text = "" - Dim SQLUIDVeranlagt = "SELECT STUFF(( SELECT ', ' + UstIdKz + '-' + UstIdNr + CASE @@ -555,8 +552,8 @@ Public Class usrCntlKundenuebersicht Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow 'lblNeutralisierung.Font = f_bold End Select - - + Dim ungeb As Double = getBetragUngebuchteBelege(kdNr) + txtUngebuchteRechungen.Text = ungeb.ToString("C2") If KUNDE.Vorkasse Then txtVorauskasse.Text = "JA" @@ -1334,10 +1331,11 @@ Public Class usrCntlKundenuebersicht txtKdSicherheiten.Text = CDbl(VERAG_PROG_ALLGEMEIN.cKundenSicherheiten.GetSummeSicherheitenAktuell(kdNr)).ToString("C2") Dim Kreditlimit As Double = If(IsNumeric(lblKreditlimit.Text), CDbl(lblKreditlimit.Text), 0) Dim Proforma As Double = If(IsNumeric(txtProforma.Text), CDbl(txtProforma.Text), 0) + Dim ungebuchteBelege As Double = If(IsNumeric(txtUngebuchteRechungen.Text), CDbl(txtUngebuchteRechungen.Text), 0) Dim OVK As Double = If(IsNumeric(txtOVK.Text), CDbl(txtOVK.Text), 0) Dim Sicherheiten As Double = If(IsNumeric(txtKdSicherheiten.Text), CDbl(txtKdSicherheiten.Text), 0) Dim OP As Double = If(IsNumeric(txtOffenePosten2.Text), CDbl(txtOffenePosten2.Text), 0) - Dim Risiko = Kreditlimit + Sicherheiten - Proforma - OVK - OP + Dim Risiko = Kreditlimit + Sicherheiten - Proforma - OVK - OP - ungebuchteBelege txtRisiko.Text = Risiko.ToString("N2") If Risiko = 0 Then @@ -1404,7 +1402,6 @@ Public Class usrCntlKundenuebersicht Dim sumVK As Double If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then sumVK = getOffeneVK(KUNDE.KundenNrZentrale) - End If Dim sumGes As Double = 0 @@ -1518,6 +1515,28 @@ Public Class usrCntlKundenuebersicht Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE()) and vk_storno=0 and (SELECT count(*) FROM Rechnungsausgang RG WHERE RG.FilialenNr = vk_FilialeNr and RG.AbfertigungsNr= vk_AbfertigungsNr and vk_KdNr=rg.RechnungsKundenNr) =0", "FMZOLL") End Function + + + Function getBetragUngebuchteBelege(KundenNrZentrale As Integer) + + Dim FirmaID_temp As String = "" + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "VERAG" : FirmaID_temp = "'1', '11'" 'CS + Case "UNISPED" : FirmaID_temp = "'21', '22', '23'" 'CS + Case Else + FirmaID_temp = "'" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID & "'" + End Select + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID + Case 26 : Return 0 'keine FIBU + Case Else + Return SQL.getValueTxtBySql("select isnull(sum(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag), 0) as Betrag from Rechnungsausgang where Trdin = 0 and Firma_ID in (" & FirmaID_temp & ") and RechnungsNr is not null and KundenNrZentrale = '" & KundenNrZentrale & "'", "FMZOLL") + End Select + + + End Function + Sub initDGVOffenePostenVERAG() @@ -1526,11 +1545,11 @@ Public Class usrCntlKundenuebersicht If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub Dim where = "" If cboFirmaFMZOLL._value <> "" Then - where = " AND Firma_ID=" & cboFirmaFMZOLL._value + where = " And Firma_ID=" & cboFirmaFMZOLL._value Else - where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") + where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " And Firma_ID In(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") End If - .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " & + .DataSource = SQL.loadDgvBySql("Select [Kontonummer] As KdNr,[Belegdatum] As Datum,[Belegnummer] As Nummer,[Bruttobetrag] As Betrag,[Gesamtausstand] As [OP-Saldo],[Waehrung] As 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " & " FROM [Offene Posten] " & " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL") diff --git a/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb b/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb index b33c8aca..03a5a119 100644 --- a/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb +++ b/SDL/mdm/IDS/rptIDS_Anhang.Designer.vb @@ -55,6 +55,7 @@ Partial Public Class rptIDS_Anhang Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -84,7 +85,6 @@ Partial Public Class rptIDS_Anhang Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.lblIDSKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtLiter, System.ComponentModel.ISupportInitialize).BeginInit() @@ -117,6 +117,7 @@ Partial Public Class rptIDS_Anhang CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit() @@ -134,7 +135,6 @@ Partial Public Class rptIDS_Anhang CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -206,7 +206,7 @@ Partial Public Class rptIDS_Anhang Me.txtProduktBeschreibung.DataField = "" Me.txtProduktBeschreibung.Height = 0.1212599! Me.txtProduktBeschreibung.HyperLink = Nothing - Me.txtProduktBeschreibung.Left = 0.01023622! + Me.txtProduktBeschreibung.Left = 0! Me.txtProduktBeschreibung.Name = "txtProduktBeschreibung" Me.txtProduktBeschreibung.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & ": 1" @@ -219,7 +219,7 @@ Partial Public Class rptIDS_Anhang Me.lblRabatt.DataField = "" Me.lblRabatt.Height = 0.1212599! Me.lblRabatt.HyperLink = Nothing - Me.lblRabatt.Left = 0.01417323! + Me.lblRabatt.Left = 0! Me.lblRabatt.Name = "lblRabatt" Me.lblRabatt.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & ": 1" @@ -258,7 +258,7 @@ Partial Public Class rptIDS_Anhang Me.lblMWST.DataField = "" Me.lblMWST.Height = 0.1212599! Me.lblMWST.HyperLink = Nothing - Me.lblMWST.Left = 0.01417323! + Me.lblMWST.Left = 0! Me.lblMWST.Name = "lblMWST" Me.lblMWST.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set" & ": 1" @@ -328,7 +328,7 @@ Partial Public Class rptIDS_Anhang Me.txtGesamtbetrag.Style = "color: Black; font-size: 6pt; font-weight: normal; text-align: right; ddo-char-se" & "t: 1" Me.txtGesamtbetrag.Text = "Betrag" - Me.txtGesamtbetrag.Top = 0.6472442! + Me.txtGesamtbetrag.Top = 0.6822835! Me.txtGesamtbetrag.Width = 0.9169284! ' 'PageFooter @@ -394,7 +394,7 @@ Partial Public Class rptIDS_Anhang ' Me.Label16.Height = 0.1574803! Me.Label16.HyperLink = Nothing - Me.Label16.Left = 4.304331! + Me.Label16.Left = 4.09567! Me.Label16.Name = "Label16" Me.Label16.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" @@ -549,7 +549,7 @@ Partial Public Class rptIDS_Anhang ' Me.Label2.Height = 0.1574803! Me.Label2.HyperLink = Nothing - Me.Label2.Left = 4.304331! + Me.Label2.Left = 4.09567! Me.Label2.Name = "Label2" Me.Label2.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" @@ -581,6 +581,19 @@ Partial Public Class rptIDS_Anhang Me.Label4.Top = 0.8291339! Me.Label4.Width = 0.7960634! ' + 'lblIDSKdNr + ' + Me.lblIDSKdNr.DataField = "" + Me.lblIDSKdNr.Height = 0.1574803! + Me.lblIDSKdNr.HyperLink = Nothing + Me.lblIDSKdNr.Left = 5.115748! + Me.lblIDSKdNr.Name = "lblIDSKdNr" + Me.lblIDSKdNr.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; vertical-alig" & + "n: middle; ddo-char-set: 1" + Me.lblIDSKdNr.Text = "0" + Me.lblIDSKdNr.Top = 0.8291339! + Me.lblIDSKdNr.Width = 0.7531495! + ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.lblGessumme, Me.Line7, Me.Line8}) @@ -889,21 +902,9 @@ Partial Public Class rptIDS_Anhang Me.lblSummeKennzeichen.Top = 0.01968504! Me.lblSummeKennzeichen.Width = 1.484645! ' - 'lblIDSKdNr - ' - Me.lblIDSKdNr.DataField = "" - Me.lblIDSKdNr.Height = 0.1574803! - Me.lblIDSKdNr.HyperLink = Nothing - Me.lblIDSKdNr.Left = 5.32441! - Me.lblIDSKdNr.Name = "lblIDSKdNr" - Me.lblIDSKdNr.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; vertical-alig" & - "n: middle; ddo-char-set: 1" - Me.lblIDSKdNr.Text = "0" - Me.lblIDSKdNr.Top = 0.8291339! - Me.lblIDSKdNr.Width = 0.6590552! - ' 'rptIDS_Anhang ' + Me.MasterReport = False Me.PageSettings.Margins.Bottom = 0.3937008! Me.PageSettings.Margins.Left = 0.3937008! Me.PageSettings.Margins.Right = 0.3937008! @@ -960,6 +961,7 @@ Partial Public Class rptIDS_Anhang CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit() @@ -977,7 +979,6 @@ Partial Public Class rptIDS_Anhang CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblIDSKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index d5c2fd04..b0911873 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -3142,7 +3142,23 @@ Public Class frmMDMDatenverarbetiung rpt.txtRabattBetrag.Text = curRabattbetrag rpt.lblMWST.Text = "zuzüglich MWST " - rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "") + + + + 'SPANIEN : für alle Produkte gilt eine Reduzierung der MwSt. auf 10 %, mit Ausnahme von AdBlue (bleibt bei 21 % MwSt.) -> Regelung der MWST-Anzeige erfolgt über IDS-Länder, allerdings wird auf Datenbasis hier kein Unterschied zw. ProductCode gemacht, daher hardcodiert -> weil es nur um Anzeige geht! + '------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!---------------------------------------- + 'If SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then + + ' rpt.lblMWST.Text &= "10 %" + + 'Else + + ' rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "") + + 'End If + + '------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!---------------------------------------- + rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "") diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index a0990917..ea8caa71 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -23,9 +23,9 @@ Partial Class usrcntlFremdrechnungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.PDFHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnSDL_Alle = New System.Windows.Forms.Button() Me.btnSDL_FREJUS = New System.Windows.Forms.Button() @@ -38,7 +38,11 @@ Partial Class usrcntlFremdrechnungen Me.btnSDL_RMC = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RechnungsanhangHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RechnungsanhangloeschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblCountMissingInvoices = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() @@ -68,8 +72,6 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel4 = New System.Windows.Forms.Panel() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblCountMissingInvoices = New System.Windows.Forms.Label() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -83,12 +85,12 @@ Partial Class usrcntlFremdrechnungen Me.Panel4.SuspendLayout() Me.SuspendLayout() ' - 'DetailsAnzeigenToolStripMenuItem + 'PDFHochladenToolStripMenuItem ' - Me.DetailsAnzeigenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf - Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem" - Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) - Me.DetailsAnzeigenToolStripMenuItem.Text = "PDF hochladen" + Me.PDFHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf + Me.PDFHochladenToolStripMenuItem.Name = "PDFHochladenToolStripMenuItem" + Me.PDFHochladenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.PDFHochladenToolStripMenuItem.Text = "PDF hochladen" ' 'FlowLayoutPanel ' @@ -268,17 +270,31 @@ Partial Class usrcntlFremdrechnungen ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFHochladenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem, Me.RechnungsanhangHochladenToolStripMenuItem, Me.RechnungsanhangloeschenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(194, 92) ' 'PDFLöschenToolStripMenuItem ' Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" - Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" ' + 'RechnungsanhangHochladenToolStripMenuItem + ' + Me.RechnungsanhangHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf + Me.RechnungsanhangHochladenToolStripMenuItem.Name = "RechnungsanhangHochladenToolStripMenuItem" + Me.RechnungsanhangHochladenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.RechnungsanhangHochladenToolStripMenuItem.Text = "RE-Anhang hochladen" + ' + 'RechnungsanhangloeschenToolStripMenuItem + ' + Me.RechnungsanhangloeschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del + Me.RechnungsanhangloeschenToolStripMenuItem.Name = "RechnungsanhangloeschenToolStripMenuItem" + Me.RechnungsanhangloeschenToolStripMenuItem.Size = New System.Drawing.Size(193, 22) + Me.RechnungsanhangloeschenToolStripMenuItem.Text = "RE-Anhang löschen" + ' 'Panel1 ' Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink @@ -316,6 +332,27 @@ Partial Class usrcntlFremdrechnungen Me.Panel1.Size = New System.Drawing.Size(260, 907) Me.Panel1.TabIndex = 23 ' + 'lblCountMissingInvoices + ' + Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White + Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66) + Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices" + Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13) + Me.lblCountMissingInvoices.TabIndex = 67 + Me.lblCountMissingInvoices.Text = "0" + Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 66) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(116, 13) + Me.Label1.TabIndex = 66 + Me.Label1.Text = "fehlende Rechnungen:" + ' 'Label2 ' Me.Label2.AutoSize = True @@ -637,8 +674,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung.AllowUserToDeleteRows = False Me.dgvLFRechnung.AllowUserToResizeColumns = False Me.dgvLFRechnung.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3) @@ -655,8 +692,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvDetails.AllowUserToDeleteRows = False Me.dgvDetails.AllowUserToResizeColumns = False Me.dgvDetails.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvDetails.BackgroundColor = System.Drawing.Color.White Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvDetails.Location = New System.Drawing.Point(-1, 3) @@ -675,27 +712,6 @@ Partial Class usrcntlFremdrechnungen Me.Panel4.Size = New System.Drawing.Size(1356, 108) Me.Panel4.TabIndex = 11 ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(3, 66) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(116, 13) - Me.Label1.TabIndex = 66 - Me.Label1.Text = "fehlende Rechnungen:" - ' - 'lblCountMissingInvoices - ' - Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White - Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66) - Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices" - Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes - Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13) - Me.lblCountMissingInvoices.TabIndex = 67 - Me.lblCountMissingInvoices.Text = "0" - Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight - ' 'usrcntlFremdrechnungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -720,7 +736,7 @@ Partial Class usrcntlFremdrechnungen Me.ResumeLayout(False) End Sub - Friend WithEvents DetailsAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PDFHochladenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FlowLayoutPanel As System.Windows.Forms.FlowLayoutPanel Friend WithEvents btnSDL_Alle As System.Windows.Forms.Button Friend WithEvents btnSDL_IDS As System.Windows.Forms.Button @@ -765,4 +781,6 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents dat_Sum_Bis As DateTimePicker Friend WithEvents lblCountMissingInvoices As Label Friend WithEvents Label1 As Label + Friend WithEvents RechnungsanhangHochladenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents RechnungsanhangloeschenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index fbc03d37..550e3456 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -1,6 +1,8 @@ Imports System.IO Imports System.Reflection Imports com.sun.tools.corba.se.idl +Imports com.sun.xml.internal.rngom +Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports DocumentFormat.OpenXml.VariantTypes Imports MDM_Worker Imports Microsoft.Office.Interop @@ -150,7 +152,6 @@ Public Class usrcntlFremdrechnungen .AllowUserToResizeRows = False .SelectionMode = DataGridViewSelectionMode.FullRowSelect .ReadOnly = True - .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells End With @@ -283,7 +284,7 @@ Public Class usrcntlFremdrechnungen " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" 'RMC Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr" + "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE, cast(isnull(rmc_daId_InvAtt,0) as bit) as RE_Anhang, isnull(rmc_daId_InvAtt,0) as RE_Anhang_daid FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr" Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " @@ -326,49 +327,9 @@ Public Class usrcntlFremdrechnungen End Select - newBinding(SDLNrTmp, SQL_STR) + newBinding_DT(SDLNrTmp, SQL_STR) initBtnClick(getSDLNrButton(SDLNrTmp)) - Dim sumBtto As Double = 0 - - With dgvLFRechnung - - - Dim c As New DataGridViewImageColumn - c.Name = "PDF" : c.HeaderText = "PDF" - c.DefaultCellStyle.NullValue = Nothing - c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 40 - c.DefaultCellStyle.Padding = New Padding(2) - c.DefaultCellStyle.BackColor = Color.White - c.Image = My.Resources.pdf_gray - - - If Not .Columns.Contains("PDF") Then .Columns.Add(c) - - - If .Columns.Count > 0 Then - - If .Columns.Contains("daId") Then - If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False - - End If - - If .Columns.Contains("invoice_id") Then - .Columns("invoice_id").Visible = False - - End If - End If - - - For Each r As DataGridViewRow In .Rows - sumBtto += If(IsNumeric(r.Cells("Bruttobetrag").Value), CDbl(r.Cells("Bruttobetrag").Value), 0) - Next - - lblSumBto.Text = CDbl(sumBtto).ToString("C2") - - - End With initAllg() @@ -377,10 +338,7 @@ Public Class usrcntlFremdrechnungen dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells 'dgvLFRechnung.Rows(0).Frozen = True - initDGVWidth() 'vor Filter, damit richtige Größe - - setPDFImages() End Sub Private Function setSQLWhere(aktLieferant As String, land As String) As String @@ -896,40 +854,186 @@ Public Class usrcntlFremdrechnungen + 'Sub newBinding(aktLieferant As String, ByVal sql As String) + ' dgvInitWait = True + ' ' bindingSDL = Nothing + ' dgvLFRechnung.Columns.Clear() + ' dgvLFRechnung.VirtualMode = True + ' txtchanged = True + ' dgvInitWait = True - Sub newBinding(aktLieferant As String, ByVal sql As String) + ' dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + + ' dgvLFRechnung.SET_SQL(sql, "FMZOLL") + ' dgvLFRechnung.LOAD() + + ' lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge" + ' If dgvLFRechnung.RowCount >= 200 Then lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge " & IIf(cbxMax1000Eintrage.Checked, "(Anzeige auf 1000 beschränkt)", "") + + ' dgvInitWait = False + + ' txtchanged = False + ' dgvInitWait = False + ' dgvLFRechnung.ClearSelection() + + ' If dgvLFRechnung.RowCount > 0 Then + ' dgvLFRechnung.Rows(0).Cells(0).Selected = True + ' Else + ' End If + + 'End Sub + + Sub newBinding_DT(aktLieferant As String, ByVal sql As String) + dgvInitWait = True - ' bindingSDL = Nothing - dgvLFRechnung.Columns.Clear() - dgvLFRechnung.VirtualMode = True txtchanged = True - dgvInitWait = True + + Dim dt As New DataTable + + dt = (New SQL).loadDgvBySql(sql, "FMZOLL") + dt.Columns.Add("PDF_Image", GetType(Image)) + + If aktLieferant = "RMC" Then + dt.Columns.Add("Anhang_Image", GetType(Image)) + End If + + Dim imgGray = My.Resources.pdf_gray + Dim imgRed = My.Resources.pdf + + For Each row As DataRow In dt.Rows + + If Convert.ToBoolean(row("pdfVorhanden")) Then + row("PDF_Image") = imgRed + Else + row("PDF_Image") = imgGray + End If + + If aktLieferant = "RMC" Then + If Convert.ToBoolean(row("RE_Anhang")) Then + row("Anhang_Image") = imgRed + Else + row("Anhang_Image") = imgGray + End If + End If + + Next - dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells + dgvLFRechnung.SuspendLayout() + dgvLFRechnung.Columns.Clear() + dgvLFRechnung.AutoGenerateColumns = False - dgvLFRechnung.SET_SQL(sql, "FMZOLL") - dgvLFRechnung.LOAD() - lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge" - If dgvLFRechnung.RowCount >= 200 Then lblEinträge.Text = dgvLFRechnung.RowCount & " Einträge " & IIf(cbxMax1000Eintrage.Checked, "(Anzeige auf 1000 beschränkt)", "") + For Each col As DataColumn In dt.Columns + + If col.ColumnName = "PDF_Image" OrElse col.ColumnName = "Anhang_Image" Then + Continue For + End If + + If col.DataType Is GetType(Boolean) Then + + dgvLFRechnung.Columns.Add(New DataGridViewCheckBoxColumn With { + .DataPropertyName = col.ColumnName, + .HeaderText = col.ColumnName, + .Name = col.ColumnName + }) + + Else + + dgvLFRechnung.Columns.Add(New DataGridViewTextBoxColumn With { + .DataPropertyName = col.ColumnName, + .HeaderText = col.ColumnName, + .Name = col.ColumnName + }) + + End If + + Next + + ' --- PDF Spalte --- + Dim c As New DataGridViewImageColumn With { + .Name = "PDF", + .HeaderText = "PDF", + .DataPropertyName = "PDF_Image", + .ImageLayout = DataGridViewImageCellLayout.Zoom, + .Width = 40 + } + dgvLFRechnung.Columns.Add(c) + + ' --- Anhang Spalte --- + If aktLieferant = "RMC" Then + Dim cAnhang As New DataGridViewImageColumn With { + .Name = "Anhang_PDF", + .HeaderText = "Anhang", + .DataPropertyName = "Anhang_Image", + .ImageLayout = DataGridViewImageCellLayout.Zoom, + .Width = 40 + } + dgvLFRechnung.Columns.Add(cAnhang) + End If + + + 'For Each col As DataColumn In dt.Columns + + ' If col.DataType Is GetType(Boolean) Then + ' dgvLFRechnung.Columns.Add(New DataGridViewCheckBoxColumn With {.DataPropertyName = col.ColumnName, .HeaderText = col.ColumnName, .Name = col.ColumnName}) + ' End If + + 'Next + + dgvLFRechnung.DataSource = dt + dgvLFRechnung.ResumeLayout() + + lblEinträge.Text = dt.Rows.Count & " Einträge" + + If dt.Rows.Count >= 200 Then + lblEinträge.Text &= If(cbxMax1000Eintrage.Checked, " (Anzeige auf 1000 beschränkt)", "") + End If + + dgvLFRechnung.ClearSelection() + + If dt.Rows.Count > 0 Then + dgvLFRechnung.Rows(0).Cells(0).Selected = True + End If + + + If dgvLFRechnung.Columns.Count > 0 Then + + If dgvLFRechnung.Columns.Contains("daId") Then + If dgvLFRechnung.Columns("daId") IsNot Nothing Then dgvLFRechnung.Columns("daId").Visible = False + End If + + If dgvLFRechnung.Columns.Contains("RE_Anhang_daid") Then + If dgvLFRechnung.Columns("RE_Anhang_daid") IsNot Nothing Then dgvLFRechnung.Columns("RE_Anhang_daid").Visible = False + End If + + If dgvLFRechnung.Columns.Contains("invoice_id") Then + dgvLFRechnung.Columns("invoice_id").Visible = False + End If + + If dgvLFRechnung.Columns.Contains("PDFvorhanden") Then + dgvLFRechnung.Columns("PDFvorhanden").Visible = False + End If + + + If dgvLFRechnung.Columns.Contains("RE_Anhang") Then + dgvLFRechnung.Columns("RE_Anhang").Visible = False + End If + End If + + Dim sumBtto = dt.AsEnumerable().Where(Function(r) Not IsDBNull(r("Bruttobetrag"))).Sum(Function(r) CDbl(r("Bruttobetrag"))) + lblSumBto.Text = sumBtto.ToString("C2") - dgvInitWait = False txtchanged = False dgvInitWait = False - dgvLFRechnung.ClearSelection() - - If dgvLFRechnung.RowCount > 0 Then - dgvLFRechnung.Rows(0).Cells(0).Selected = True - Else - End If End Sub + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click If SplitContainer1.Panel2Collapsed Then SplitContainer1.Panel2Collapsed = False @@ -1379,21 +1483,10 @@ Public Class usrcntlFremdrechnungen Try If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then - Select Case aktLieferant - Case "VERAG" - Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value - Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value + If e.ColumnIndex <> 18 Then - If ReDat IsNot Nothing AndAlso ReNr > 0 Then - Me.Cursor = Cursors.WaitCursor - Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") - cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) - End If - - Case "ALLE" - Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value - - If Lieferant = "VERAG" Then + Select Case aktLieferant + Case "VERAG" Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value @@ -1403,27 +1496,57 @@ Public Class usrcntlFremdrechnungen cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) End If + Case "ALLE" + Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value - End If + If Lieferant = "VERAG" Then + Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value + Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value - Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value - If daId > 0 Then - Me.Cursor = Cursors.WaitCursor - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - DS.OPEN_SINGLE() - End If - - Case Else + If ReDat IsNot Nothing AndAlso ReNr > 0 Then + Me.Cursor = Cursors.WaitCursor + Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") + cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) + End If - Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value - If daId > 0 Then - Me.Cursor = Cursors.WaitCursor - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - DS.OPEN_SINGLE() - End If + End If - End Select + Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value + If daId > 0 Then + Me.Cursor = Cursors.WaitCursor + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + DS.OPEN_SINGLE() + End If + + Case Else + + + Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value + If daId > 0 Then + Me.Cursor = Cursors.WaitCursor + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + DS.OPEN_SINGLE() + End If + + End Select + + ElseIf e.ColumnIndex = 18 Then + + Select Case aktLieferant + Case "RMC" + + Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("RE_Anhang_daid").Value + If daId > 0 Then + Me.Cursor = Cursors.WaitCursor + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + DS.OPEN_SINGLE() + End If + + End Select + + + End If End If @@ -1462,82 +1585,8 @@ Public Class usrcntlFremdrechnungen End If End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) - - With dgvLFRechnung - - - Dim c As New DataGridViewImageColumn - c.Name = "PDF" : c.HeaderText = "PDF" - c.DefaultCellStyle.NullValue = Nothing - c.ImageLayout = DataGridViewImageCellLayout.Zoom - c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White - - - If Not .Columns.Contains("PDF") Then .Columns.Add(c) - - For Each r As DataGridViewRow In .Rows - - If IsDBNull(r.Cells("daId").Value) OrElse r.Cells("daId").Value = 0 Then - DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf_gray - - End If - - - Next - - - If .Columns.Count > 0 Then - - If .Columns.Contains("daId") Then - If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False - End If - - End If - - End With - - - - - End Sub - - Private Sub setPDFImages() - - Exit Sub 'langsam!!!! - - With dgvLFRechnung - - If Not .Columns.Contains("PDF") Then Exit Sub - - For Each r As DataGridViewRow In .Rows - - If r.Cells("pdfVorhanden").Value Then - Try - 'DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = Nothing - DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - - - End If - - - Next - - - - End With - - End Sub - - Sub ReloadRechnungsdetails() - - ' MsgBox(dgvInitWait) If Not dgvInitWait Then Try If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then @@ -1699,13 +1748,9 @@ Public Class usrcntlFremdrechnungen End If End Sub - Private Sub ContextMenuStrip2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) + Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFHochladenToolStripMenuItem.Click - End Sub - - Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click - - If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then + If (dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value)) Then @@ -1757,20 +1802,131 @@ Public Class usrcntlFremdrechnungen If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then - DetailsAnzeigenToolStripMenuItem.Visible = True + PDFHochladenToolStripMenuItem.Visible = True + PDFLöschenToolStripMenuItem.Visible = False Else - DetailsAnzeigenToolStripMenuItem.Visible = False + PDFHochladenToolStripMenuItem.Visible = False + PDFLöschenToolStripMenuItem.Visible = True + End If - ContextMenuStrip1.Show(Cursor.Position) + If aktLieferant = "RMC" Then + If dgvLFRechnung.Columns.Contains("RE_Anhang") Then + If Not dgvLFRechnung.CurrentRow.Cells("RE_Anhang").Value Then + RechnungsanhangHochladenToolStripMenuItem.Visible = True + RechnungsanhangloeschenToolStripMenuItem.Visible = False + Else + RechnungsanhangHochladenToolStripMenuItem.Visible = False + RechnungsanhangloeschenToolStripMenuItem.Visible = True + End If + Else + RechnungsanhangHochladenToolStripMenuItem.Visible = False + RechnungsanhangloeschenToolStripMenuItem.Visible = False + End If - End If + Else + + RechnungsanhangHochladenToolStripMenuItem.Visible = False + RechnungsanhangloeschenToolStripMenuItem.Visible = False + + End If + + + ContextMenuStrip1.Show(Cursor.Position) + + End If End Sub + Private Sub RechnungsanhangHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungsanhangHochladenToolStripMenuItem.Click, RechnungsanhangloeschenToolStripMenuItem.Click + + + + Dim ReNr As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsnummer").Value + Dim ReDat As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsdatum").Value + Dim interneKundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value + Dim KundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("Kundennummer").Value + Dim LieferlandISO2 As String = dgvLFRechnung.SelectedRows(0).Cells("Land").Value + + If LieferlandISO2 = "" Then MsgBox("Land kann nicht ermittelt werden") : Exit Sub + If KundenNr = "" OrElse Not IsNumeric(KundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub + If ReDat = "" OrElse Not IsDate(ReDat) Then MsgBox("Rechnungsdatum kann nicht ermittelt werden") : Exit Sub + If interneKundenNr = "" OrElse Not IsNumeric(interneKundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub + + Select Case sender.Name + Case "RechnungsanhangHochladenToolStripMenuItem" + + + Select Case aktLieferant + + Case "RMC" + + Dim RMC As New cRMC(KundenNr, ReNr, ReDat) + If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt Is Nothing Then + + Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC_ATT", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2) + + If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then + RMC.rmc_daId_InvAtt = DS_Import.da_id + RMC.SAVE() + MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString) + SET_SDL(aktLieferant) + End If + + Else + If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub + If RMC.rmc_daId_InvAtt IsNot Nothing Then MsgBox("Eintrag besitzt bereits einen Rechnungsanhang!") : Exit Sub + + End If + + Case Else + + MsgBox("Funktion nicht implementiert!") + + End Select + + Case "RechnungsanhangloeschenToolStripMenuItem" + + Select Case aktLieferant + + Case "RMC" + + Dim RMC As New cRMC(KundenNr, ReNr, ReDat) + If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt IsNot Nothing Then + + If RMC.UStVAn_ID IsNot Nothing Then + MsgBox("RE-Anhang kann nicht gelöscht werden, da diese Rechnung bereits in den Antrag " & RMC.UStVAn_ID & " eingearbeitet wurde!") + Else + If vbYes = MsgBox("Möchten Sie den Rechnungsanhang von Kunde " & KundenNr & " und ReNr " & ReNr & " löschen? ", vbYesNoCancel) Then + Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(RMC.rmc_daId_InvAtt) + If DS_Import.DELETE_COMPLETE() Then + RMC.rmc_daId_InvAtt = Nothing + RMC.SAVE() + MsgBox("Dokument gelöscht! -> " & ReNr & " " & CDate(ReDat).ToShortDateString) + SET_SDL(aktLieferant) + End If + End If + End If + + + Else + If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub + If RMC.rmc_daId_InvAtt Is Nothing Then MsgBox("Eintrag besitzt keinen Rechnungsanhang!") : Exit Sub + + End If + + Case Else + + MsgBox("Funktion nicht implementiert!") + + End Select + + End Select + End Sub + End Class diff --git a/SDL/packages.config b/SDL/packages.config index 641c82f5..ad38f7c5 100644 --- a/SDL/packages.config +++ b/SDL/packages.config @@ -68,7 +68,7 @@ - + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb index 6c19aa3f..56e6b0bb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb @@ -33,7 +33,7 @@ Public Class cFremdwaehrungskurse Public 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("fw_id", fw_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_id", fw_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso2", fw_iso2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_iso3", fw_iso3)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fw_land", fw_land)) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index b009662e..5f810dce 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -1833,7 +1833,7 @@ Public Class cMSEInvoices Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblMSEInvoices WHERE invoice_date=@invoice_date AND invoice_id = @invoice_id", conn) + Using cmd As New SqlCommand("SELECT * FROM tblMSEInvoices WHERE name=@name AND invoice_id = @invoice_id", conn) cmd.Parameters.AddWithValue("@name", name) cmd.Parameters.AddWithValue("@invoice_id", invoice_id) Dim dr = cmd.ExecuteReader() diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 18e1309a..5fc0036e 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -87,6 +87,9 @@ False F:\PROGRAMMIERUNG\dll\OpenXML\DocumentFormat.OpenXml.dll + + ..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\DS.Documents.Imaging.dll + False F:\PROGRAMMIERUNG\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll @@ -123,6 +126,14 @@ False F:\PROGRAMMIERUNG\dll\McDull.Windows.Forms.dll + + ..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\MESCIUS.ActiveReports.dll + + + + False + ..\..\..\Aviso\AVISO\Gemeinsames\bin\Debug\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll + False True diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index da59f1e3..df78c1ec 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -1,13 +1,17 @@ Imports System.Drawing Imports System.IO +Imports System.IO.Pipes Imports System.Net.Mail Imports System.Reflection Imports System.Runtime.InteropServices Imports System.Text Imports System.Windows.Forms Imports ClosedXML.Excel +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Core.Document.Drawing.Gc +Imports GrapeCity.ActiveReports.SectionReportModel +Imports GrapeCity.Documents.Imaging Imports Microsoft.Office.Interop -Imports System.IO.Pipes Imports ThoughtWorks.QRCode.Codec Public Class cProgramFunctions @@ -71,6 +75,135 @@ Public Class cProgramFunctions End Function + Public Shared Function CheckAllReportImages() As List(Of String) + + Dim errors As New List(Of String) + + For Each report As GrapeCity.ActiveReports.SectionReport In FindAllReports() + + For Each section As GrapeCity.ActiveReports.SectionReportModel.Section In report.Sections + CheckImagesInControls(section.Controls, errors, report.GetType().Name, section.Name) + Next + + Next + + Return errors + + End Function + + Public Shared Function CheckReportImages(report As SectionReport) As List(Of String) + + Dim errors As New List(Of String) + + For Each section As GrapeCity.ActiveReports.SectionReportModel.Section In report.Sections + CheckImagesInControls(section.Controls, errors, report.GetType().Name, section.Name) + Next + + + Return errors + + End Function + + Private Shared Sub CheckImagesInControls(ctrls As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, errors As List(Of String), reportName As String, sectionName As String) + + For Each ctrl As GrapeCity.ActiveReports.SectionReportModel.ARControl In ctrls + + If TypeOf ctrl Is GrapeCity.ActiveReports.SectionReportModel.Picture Then + + Dim pic = CType(ctrl, GrapeCity.ActiveReports.SectionReportModel.Picture) + + If Not String.IsNullOrEmpty(pic.ImageBase64String) Then + + If Not IsBase64(pic.ImageBase64String) Then + errors.Add($"{reportName} | {sectionName} | {ctrl.Name} → Ungültiger Base64") + End If + + End If + End If + + Next + + End Sub + + Public Shared Function IsBase64(value As String) As Boolean + If String.IsNullOrWhiteSpace(value) Then Return False + + Try + ' Data-URL entfernen + If value.Contains(",") Then + value = value.Substring(value.IndexOf(",") + 1) + End If + + ' Base64 dekodieren + Dim bytes() As Byte = Convert.FromBase64String(value) + + Using ms As New MemoryStream(bytes) + ' Instanz von GcBitmap erstellen + Dim bmp As GcBitmap = Nothing + Try + bmp = New GcBitmap(ms) + ' Zugriff erzwingen + Dim w As Integer = bmp.Width + Dim h As Integer = bmp.Height + + If w <= 0 OrElse h <= 0 Then Return False + + Finally + If bmp IsNot Nothing Then + bmp.Dispose() + End If + End Try + End Using + + Return True + + Catch ex As TypeInitializationException + ' Speziell Typeninitialisierer-Fehler abfangen + ' z. B. "PerTypeValues`1 hat eine Ausnahme verursacht" + Return False + + + + Catch ex As Exception + ' Alle anderen Fehler ebenfalls als ungültig behandeln + Return False + + Catch + Return False + + + End Try + End Function + + + Public Shared Function FindAllReports() As List(Of SectionReport) + Dim list As New List(Of SectionReport) + + ' Alle geladenen Assemblies durchsuchen + For Each asm In AppDomain.CurrentDomain.GetAssemblies() + Try + For Each t In asm.GetTypes() + ' Nur konkrete Klassen, die von SectionReport erben + If GetType(SectionReport).IsAssignableFrom(t) AndAlso t.IsClass AndAlso Not t.IsAbstract Then + Try + ' Parameterloser Konstruktor + Dim instance As SectionReport = CType(Activator.CreateInstance(t), SectionReport) + list.Add(instance) + Catch ex As Exception + ' Ignoriere Klassen ohne parameterlosen Konstruktor + End Try + End If + Next + Catch + ' Manche Assemblies lassen sich nicht durchsuchen + End Try + Next + + Return list + End Function + + Dim r As SectionReport + Public Shared Sub tryGetFilialeAbf_ByLRN(ByVal LRN As String, ByRef FilialenNr As Object, ByRef AbfertigungsNr As Object) @@ -486,7 +619,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter If rangeAsWaehrung IsNot Nothing Then - For Each r In rangeAsWaehrung + For Each r As String In rangeAsWaehrung Try wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen) Catch ex As Exception @@ -1121,7 +1254,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( End Function Private Const SW_SHOWNOACTIVATE As Integer = 4 Private Const SW_RESTORE As Integer = 9 - Shared Sub bringToFront(processId) + Shared Sub bringToFront(processId) ' Prozess finden und in den Vordergrund bringen Try Dim process = System.Diagnostics.Process.GetProcessById(processId) diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 8bd769c2..15634b24 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -439,4 +439,21 @@ Public Class cSicherheiten End Function + Public Shared Function getDifferenz(gs_gsnr As Integer) As Double + + Dim SQL_Query = "SELECT CASE WHEN MAX(CASE WHEN gs.gs_isRundungsdiff = 1 THEN 1 ELSE 0 END) = 1 + THEN 0 + ELSE SUM(gs.gs_sicherheitsbetrag) - SUM(gsp.gsp_sicherheitsbetrag) + END AS Differenzbetrag + FROM tblGesamtsicherheit gs INNER JOIN tblGesamtsicherheitsPositionen gsp ON gs.gs_gsId = gsp.gsp_gsId WHERE + gs.gs_gsnr = " & gs_gsnr & " AND gs.gs_dakoyimport = 1 AND gsp.gsp_freitext NOT IN ('DAKOSY-WAITING') GROUP BY gs.gs_gsnr" + + If gs_gsnr > 0 Then + Return CDbl((New SQL).getValueTxtBySql(SQL_Query, "AVISO",,, 0)) + Else + Return 0 + End If + + End Function + End Class