From e2e533f56ab150cad2ae430fc533895c2d785fb2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 2 Aug 2024 15:21:24 +0200 Subject: [PATCH] Datev --- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmHauptfenster.Designer.vb | 589 +++++++++++++++--------------- Aviso/frmHauptfenster.vb | 68 ++-- 3 files changed, 347 insertions(+), 314 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index c0eaf93..78188dd 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 9e4530e..87fb814 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -24,15 +24,15 @@ Partial Class frmHauptfenster Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster)) + 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 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 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() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -141,6 +141,7 @@ Partial Class frmHauptfenster Me.WarenorteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DatevBuchungsexportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.APIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FIBUSachkontenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -238,6 +239,7 @@ Partial Class frmHauptfenster Me.lblFimaAviso = New System.Windows.Forms.Label() Me.Button11 = New System.Windows.Forms.Button() Me.btnMAVerzeichnis = New System.Windows.Forms.Button() + Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button9 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -285,16 +287,20 @@ Partial Class frmHauptfenster Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() + Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() Me.pnl = New System.Windows.Forms.Panel() Me.Button10 = New System.Windows.Forms.Button() + Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() Me.btnColor = New System.Windows.Forms.Button() Me.lblMeineAviso = New System.Windows.Forms.Label() + Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() Me.cbx_My_LKW = New System.Windows.Forms.CheckBox() Me.cboMy_QS = New System.Windows.Forms.CheckBox() Me.cboMy_VB = New System.Windows.Forms.CheckBox() + Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblMySND_Anzeige = New System.Windows.Forms.Label() Me.lblAkte = New System.Windows.Forms.Label() Me.btnClose = New System.Windows.Forms.Button() @@ -315,16 +321,22 @@ Partial Class frmHauptfenster Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.pnlDetailsLinks = New System.Windows.Forms.Panel() Me.splitMain = New System.Windows.Forms.SplitContainer() + Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label10 = New System.Windows.Forms.Label() + Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label21 = New System.Windows.Forms.Label() Me.cbxCluster = New System.Windows.Forms.CheckBox() + Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblErweitereSuche = New System.Windows.Forms.LinkLabel() Me.Label16 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.lblEintraege = New System.Windows.Forms.Label() + Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTime = New System.Windows.Forms.Panel() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlSearch = New System.Windows.Forms.Panel() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsender = New System.Windows.Forms.TextBox() @@ -345,6 +357,7 @@ Partial Class frmHauptfenster Me.Button4 = New System.Windows.Forms.Button() Me.lblErwEmpfänger = New System.Windows.Forms.Label() Me.txtEmpfänger = New System.Windows.Forms.TextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox() Me.lblErwFilialePos = New System.Windows.Forms.Label() Me.lblErwAuftraggeber = New System.Windows.Forms.Label() @@ -381,20 +394,9 @@ Partial Class frmHauptfenster Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.FIBUSachkontenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() - Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() - Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.EMAILToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FTPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -414,6 +416,7 @@ Partial Class frmHauptfenster Me.SplitContainer3.Panel2.SuspendLayout() Me.SplitContainer3.SuspendLayout() Me.pnl.SuspendLayout() + CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() Me.tbcntrAviso.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -425,6 +428,7 @@ Partial Class frmHauptfenster Me.splitMain.Panel1.SuspendLayout() Me.splitMain.Panel2.SuspendLayout() Me.splitMain.SuspendLayout() + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.pnlTime.SuspendLayout() Me.pnlSearch.SuspendLayout() @@ -434,8 +438,6 @@ Partial Class frmHauptfenster Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() Me.cntVerag.SuspendLayout() - CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'mnuInfo @@ -1106,6 +1108,7 @@ Partial Class frmHauptfenster ' 'DatevBuchungsexportToolStripMenuItem ' + Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem}) Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem" Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport" @@ -1117,6 +1120,12 @@ Partial Class frmHauptfenster Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30) Me.APIToolStripMenuItem.Text = "API" ' + 'FIBUSachkontenToolStripMenuItem + ' + Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" + Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) + Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" + ' 'StatistikToolStripMenuItem ' Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1}) @@ -1815,6 +1824,24 @@ Partial Class frmHauptfenster Me.btnMAVerzeichnis.UseVisualStyleBackColor = True Me.btnMAVerzeichnis.Visible = False ' + 'btnMitarbeiterKonto + ' + Me.btnMitarbeiterKonto.allowBorder = False + Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White + Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 + Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black + Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s + Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1109, -6) + Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" + Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) + Me.btnMitarbeiterKonto.TabIndex = 86 + Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" + Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + ' 'Button9 ' Me.Button9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2440,6 +2467,15 @@ Partial Class frmHauptfenster Me.SplitContainer3.SplitterDistance = 158 Me.SplitContainer3.TabIndex = 3 ' + 'UsrCntlBenachrichtigungen1 + ' + Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" + Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300) + Me.UsrCntlBenachrichtigungen1.TabIndex = 0 + ' 'pnl ' Me.pnl.Controls.Add(Me.Button10) @@ -2465,6 +2501,50 @@ Partial Class frmHauptfenster Me.Button10.Text = "<" Me.Button10.UseVisualStyleBackColor = False ' + 'gridMyAviso + ' + Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1 + Me.gridMyAviso.AllowUserToAddRows = False + Me.gridMyAviso.AllowUserToDeleteRows = False + Me.gridMyAviso.AllowUserToOrderColumns = True + Me.gridMyAviso.AllowUserToResizeRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3 + Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridMyAviso.Location = New System.Drawing.Point(0, 21) + Me.gridMyAviso.Name = "gridMyAviso" + Me.gridMyAviso.ReadOnly = True + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.gridMyAviso.RowHeadersVisible = False + Me.gridMyAviso.RowHeadersWidth = 62 + Me.gridMyAviso.Size = New System.Drawing.Size(488, 279) + Me.gridMyAviso.TabIndex = 0 + ' 'Panel6 ' Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -2520,6 +2600,23 @@ Partial Class frmHauptfenster Me.lblMeineAviso.TabIndex = 0 Me.lblMeineAviso.Text = "Meine Sendungen:" ' + 'cboMy_Grenzstelle + ' + Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing + Me.cboMy_Grenzstelle._allowFreiText = False + Me.cboMy_Grenzstelle._value = "" + Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMy_Grenzstelle.DropDownWidth = 120 + Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMy_Grenzstelle.FormattingEnabled = True + Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1) + Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" + Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) + Me.cboMy_Grenzstelle.TabIndex = 26 + ' 'lblMySnd_Grenzstelle ' Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2571,6 +2668,22 @@ Partial Class frmHauptfenster Me.cboMy_VB.ThreeState = True Me.cboMy_VB.UseVisualStyleBackColor = True ' + 'cboMyAvisoAnzeige + ' + Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing + Me.cboMyAvisoAnzeige._allowFreiText = False + Me.cboMyAvisoAnzeige._value = "" + Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.cboMyAvisoAnzeige.FormattingEnabled = True + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1) + Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) + Me.cboMyAvisoAnzeige.TabIndex = 21 + ' 'lblMySND_Anzeige ' Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -2833,6 +2946,60 @@ Partial Class frmHauptfenster Me.splitMain.SplitterDistance = 287 Me.splitMain.TabIndex = 0 ' + 'gridAviso + ' + Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1 + Me.gridAviso.AllowUserToAddRows = False + Me.gridAviso.AllowUserToDeleteRows = False + Me.gridAviso.AllowUserToResizeRows = False + DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray + Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.gridAviso.ColumnHeadersHeight = 25 + Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7 + Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAviso.Location = New System.Drawing.Point(0, 248) + Me.gridAviso.MultiSelect = False + Me.gridAviso.Name = "gridAviso" + Me.gridAviso.ReadOnly = True + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 + Me.gridAviso.RowHeadersVisible = False + Me.gridAviso.RowHeadersWidth = 62 + Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9 + Me.gridAviso.RowTemplate.ReadOnly = True + Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.gridAviso.Size = New System.Drawing.Size(815, 39) + Me.gridAviso.TabIndex = 1 + Me.gridAviso.TabStop = False + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) @@ -2866,6 +3033,32 @@ Partial Class frmHauptfenster Me.Panel1.Size = New System.Drawing.Size(815, 248) Me.Panel1.TabIndex = 2 ' + 'txtBestimmungszollstelle + ' + Me.txtBestimmungszollstelle._allowFreitext = False + Me.txtBestimmungszollstelle._AllowSetValue = False + Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False + Me.txtBestimmungszollstelle._autoSizeGross = False + Me.txtBestimmungszollstelle._hideIfListEmpty = True + Me.txtBestimmungszollstelle._value = Nothing + Me.txtBestimmungszollstelle.conn_art = "FMZOLL" + Me.txtBestimmungszollstelle.dgvpos = "LEFT" + Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing + Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtBestimmungszollstelle.key_visible = False + Me.txtBestimmungszollstelle.KEYPARAM = Nothing + Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55) + Me.txtBestimmungszollstelle.MaxLength = 50 + Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle" + Me.txtBestimmungszollstelle.searchActive = True + Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20) + Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing + Me.txtBestimmungszollstelle.SQL_SELECT = Nothing + Me.txtBestimmungszollstelle.SQL_WHERE = Nothing + Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing + Me.txtBestimmungszollstelle.TabIndex = 25 + Me.txtBestimmungszollstelle.usrcntl = Nothing + ' 'Label10 ' Me.Label10.AutoSize = True @@ -2876,6 +3069,22 @@ Partial Class frmHauptfenster Me.Label10.TabIndex = 26 Me.Label10.Text = "Zollamt:" ' + 'cboImEx + ' + Me.cboImEx._allowedValuesFreiText = Nothing + Me.cboImEx._allowFreiText = False + Me.cboImEx._value = "" + Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboImEx.FormattingEnabled = True + Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) + Me.cboImEx.Location = New System.Drawing.Point(828, 3) + Me.cboImEx.Name = "cboImEx" + Me.cboImEx.Size = New System.Drawing.Size(78, 24) + Me.cboImEx.TabIndex = 24 + ' 'Label21 ' Me.Label21.AutoSize = True @@ -2899,6 +3108,22 @@ Partial Class frmHauptfenster Me.cbxCluster.Text = "Firmenverbund" Me.cbxCluster.UseVisualStyleBackColor = True ' + 'cboTeams + ' + Me.cboTeams._allowedValuesFreiText = Nothing + Me.cboTeams._allowFreiText = False + Me.cboTeams._value = "" + Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeams.DropDownWidth = 200 + Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeams.FormattingEnabled = True + Me.cboTeams.Location = New System.Drawing.Point(379, 3) + Me.cboTeams.Name = "cboTeams" + Me.cboTeams.Size = New System.Drawing.Size(107, 24) + Me.cboTeams.TabIndex = 19 + ' 'lblErweitereSuche ' Me.lblErweitereSuche.AutoSize = True @@ -2944,6 +3169,23 @@ Partial Class frmHauptfenster Me.lblEintraege.Text = "0 Einträge" Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboGrenzstelle + ' + Me.cboGrenzstelle._allowedValuesFreiText = Nothing + Me.cboGrenzstelle._allowFreiText = False + Me.cboGrenzstelle._value = "" + Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboGrenzstelle.DropDownWidth = 200 + Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboGrenzstelle.FormattingEnabled = True + Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) + Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30) + Me.cboGrenzstelle.Name = "cboGrenzstelle" + Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) + Me.cboGrenzstelle.TabIndex = 13 + ' 'Label4 ' Me.Label4.AutoSize = True @@ -2971,6 +3213,22 @@ Partial Class frmHauptfenster Me.pnlTime.Size = New System.Drawing.Size(437, 57) Me.pnlTime.TabIndex = 12 ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.MyComboBox1.ForeColor = System.Drawing.Color.White + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(46, 1) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) + Me.MyComboBox1.TabIndex = 7 + ' 'pnlSearch ' Me.pnlSearch.Controls.Add(Me.lblAbsender) @@ -3199,6 +3457,20 @@ Partial Class frmHauptfenster Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23) Me.txtEmpfänger.TabIndex = 3 ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(389, 13) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(70, 24) + Me.cboFiliale.TabIndex = 3 + ' 'txtAbfertigungsnummer ' Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -3483,12 +3755,6 @@ Partial Class frmHauptfenster Me.HomepageToolStripMenuItem.Size = New System.Drawing.Size(133, 22) Me.HomepageToolStripMenuItem.Text = "Homepage" ' - 'FIBUSachkontenToolStripMenuItem - ' - Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem" - Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30) - Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten" - ' 'UsrCntlTestsystem1 ' Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White @@ -3500,268 +3766,17 @@ Partial Class frmHauptfenster Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.TabIndex = 8 ' - 'gridAviso + 'EMAILToolStripMenuItem ' - Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1 - Me.gridAviso.AllowUserToAddRows = False - Me.gridAviso.AllowUserToDeleteRows = False - Me.gridAviso.AllowUserToResizeRows = False - DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 - Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray - Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.gridAviso.ColumnHeadersHeight = 25 - Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7 - Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridAviso.Location = New System.Drawing.Point(0, 248) - Me.gridAviso.MultiSelect = False - Me.gridAviso.Name = "gridAviso" - Me.gridAviso.ReadOnly = True - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 - Me.gridAviso.RowHeadersVisible = False - Me.gridAviso.RowHeadersWidth = 62 - Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9 - Me.gridAviso.RowTemplate.ReadOnly = True - Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.gridAviso.Size = New System.Drawing.Size(815, 39) - Me.gridAviso.TabIndex = 1 - Me.gridAviso.TabStop = False + Me.EMAILToolStripMenuItem.Name = "EMAILToolStripMenuItem" + Me.EMAILToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.EMAILToolStripMenuItem.Text = "E-MAIL" ' - 'txtBestimmungszollstelle + 'FTPToolStripMenuItem ' - Me.txtBestimmungszollstelle._allowFreitext = False - Me.txtBestimmungszollstelle._AllowSetValue = False - Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False - Me.txtBestimmungszollstelle._autoSizeGross = False - Me.txtBestimmungszollstelle._hideIfListEmpty = True - Me.txtBestimmungszollstelle._value = Nothing - Me.txtBestimmungszollstelle.conn_art = "FMZOLL" - Me.txtBestimmungszollstelle.dgvpos = "LEFT" - Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing - Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing - Me.txtBestimmungszollstelle.key_visible = False - Me.txtBestimmungszollstelle.KEYPARAM = Nothing - Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55) - Me.txtBestimmungszollstelle.MaxLength = 50 - Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle" - Me.txtBestimmungszollstelle.searchActive = True - Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20) - Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing - Me.txtBestimmungszollstelle.SQL_SELECT = Nothing - Me.txtBestimmungszollstelle.SQL_WHERE = Nothing - Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing - Me.txtBestimmungszollstelle.TabIndex = 25 - Me.txtBestimmungszollstelle.usrcntl = Nothing - ' - 'cboImEx - ' - Me.cboImEx._allowedValuesFreiText = Nothing - Me.cboImEx._allowFreiText = False - Me.cboImEx._value = "" - Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboImEx.FormattingEnabled = True - Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) - Me.cboImEx.Location = New System.Drawing.Point(828, 3) - Me.cboImEx.Name = "cboImEx" - Me.cboImEx.Size = New System.Drawing.Size(78, 24) - Me.cboImEx.TabIndex = 24 - ' - 'cboTeams - ' - Me.cboTeams._allowedValuesFreiText = Nothing - Me.cboTeams._allowFreiText = False - Me.cboTeams._value = "" - Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboTeams.DropDownWidth = 200 - Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboTeams.FormattingEnabled = True - Me.cboTeams.Location = New System.Drawing.Point(379, 3) - Me.cboTeams.Name = "cboTeams" - Me.cboTeams.Size = New System.Drawing.Size(107, 24) - Me.cboTeams.TabIndex = 19 - ' - 'cboGrenzstelle - ' - Me.cboGrenzstelle._allowedValuesFreiText = Nothing - Me.cboGrenzstelle._allowFreiText = False - Me.cboGrenzstelle._value = "" - Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboGrenzstelle.DropDownWidth = 200 - Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboGrenzstelle.FormattingEnabled = True - Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) - Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30) - Me.cboGrenzstelle.Name = "cboGrenzstelle" - Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) - Me.cboGrenzstelle.TabIndex = 13 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.MyComboBox1.ForeColor = System.Drawing.Color.White - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(46, 1) - Me.MyComboBox1.MaxLength = 4 - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) - Me.MyComboBox1.TabIndex = 7 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 300 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(389, 13) - Me.cboFiliale.MaxLength = 4 - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(70, 24) - Me.cboFiliale.TabIndex = 3 - ' - 'UsrCntlBenachrichtigungen1 - ' - Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" - Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300) - Me.UsrCntlBenachrichtigungen1.TabIndex = 0 - ' - 'gridMyAviso - ' - Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1 - Me.gridMyAviso.AllowUserToAddRows = False - Me.gridMyAviso.AllowUserToDeleteRows = False - Me.gridMyAviso.AllowUserToOrderColumns = True - Me.gridMyAviso.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 - Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3 - Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridMyAviso.Location = New System.Drawing.Point(0, 21) - Me.gridMyAviso.Name = "gridMyAviso" - Me.gridMyAviso.ReadOnly = True - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.gridMyAviso.RowHeadersVisible = False - Me.gridMyAviso.RowHeadersWidth = 62 - Me.gridMyAviso.Size = New System.Drawing.Size(488, 279) - Me.gridMyAviso.TabIndex = 0 - ' - 'cboMy_Grenzstelle - ' - Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing - Me.cboMy_Grenzstelle._allowFreiText = False - Me.cboMy_Grenzstelle._value = "" - Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboMy_Grenzstelle.DropDownWidth = 120 - Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cboMy_Grenzstelle.FormattingEnabled = True - Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1) - Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" - Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) - Me.cboMy_Grenzstelle.TabIndex = 26 - ' - 'cboMyAvisoAnzeige - ' - Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing - Me.cboMyAvisoAnzeige._allowFreiText = False - Me.cboMyAvisoAnzeige._value = "" - Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cboMyAvisoAnzeige.FormattingEnabled = True - Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1) - Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" - Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) - Me.cboMyAvisoAnzeige.TabIndex = 21 - ' - 'btnMitarbeiterKonto - ' - Me.btnMitarbeiterKonto.allowBorder = False - Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White - Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 - Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black - Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s - Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1109, -6) - Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" - Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) - Me.btnMitarbeiterKonto.TabIndex = 86 - Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" - Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + Me.FTPToolStripMenuItem.Name = "FTPToolStripMenuItem" + Me.FTPToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FTPToolStripMenuItem.Text = "FTP" ' 'frmHauptfenster ' @@ -3803,6 +3818,7 @@ Partial Class frmHauptfenster CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer3.ResumeLayout(False) Me.pnl.ResumeLayout(False) + CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() Me.tbcntrAviso.ResumeLayout(False) @@ -3817,6 +3833,7 @@ Partial Class frmHauptfenster Me.splitMain.Panel2.ResumeLayout(False) CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit() Me.splitMain.ResumeLayout(False) + CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.pnlTime.ResumeLayout(False) @@ -3830,8 +3847,6 @@ Partial Class frmHauptfenster Me.Panel3.PerformLayout() Me.Panel4.ResumeLayout(False) Me.cntVerag.ResumeLayout(False) - CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -4198,4 +4213,6 @@ Partial Class frmHauptfenster Friend WithEvents AnhangsartenToolStripMenuItem As ToolStripMenuItem Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem Friend WithEvents FIBUSachkontenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EMAILToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FTPToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 0a26cde..52c3688 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4583,43 +4583,58 @@ Public Class frmHauptfenster Me.Cursor = Cursors.Default End Sub - Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatevBuchungsexportToolStripMenuItem.Click + Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILToolStripMenuItem.Click, FTPToolStripMenuItem.Click Try + Dim Pathlist As New List(Of String) - If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then - MsgBox("Buchungen wurden erfolgreich exportiert!") - Else - MsgBox("Es wurden keine Buchungen exportiert!") - Exit Sub - End If + Select Case sender.name + Case "EMAILToolStripMenuItem" - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) + If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then + MsgBox("Buchungen wurden erfolgreich exportiert!") + Else + MsgBox("Es wurden keine Buchungen exportiert!") + Exit Sub + End If - Mail.To = "T.Wesolowski@hkt-tax.de" - Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de" + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) - Dim TextHTML = "" - TextHTML &= "Sehr geehrte Damen und Herren,
im Anhang befinden sich die Exportdaten für die Buchhaltung!" - TextHTML &= "
" - TextHTML &= "
" - TextHTML &= "Mit freundlichen Grüßen
" - TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" - TextHTML &= "
" - TextHTML &= cFakturierung.getSignature("DE", 24, True, True) + Mail.To = "T.Wesolowski@hkt-tax.de" + Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de" - Mail.HTMLBody = "
" & TextHTML & "
" + Dim TextHTML = "" + TextHTML &= "Sehr geehrte Damen und Herren,
im Anhang befinden sich die Exportdaten für die Buchhaltung!" + TextHTML &= "
" + TextHTML &= "
" + TextHTML &= "Mit freundlichen Grüßen
" + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + TextHTML &= "
" + TextHTML &= cFakturierung.getSignature("DE", 24, True, True) - Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString + Mail.HTMLBody = "
" & TextHTML & "
" - For Each path In Pathlist - Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) - Next + Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString - Mail.Display() + For Each path In Pathlist + Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + Next + + Mail.Display() + + Case "FTPToolStripMenuItem" + + If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False, "ftp") Then + MsgBox("Buchungen wurden erfolgreich exportiert!") + Else + MsgBox("Es wurden keine Buchungen exportiert!") + Exit Sub + End If + + End Select Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -4677,6 +4692,7 @@ Public Class frmHauptfenster Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL")) f.ShowDialog(Me) End Sub + End Class Public Class AvisoStatusFunctions