diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 4894b6a..665ecc1 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 8950c42..659e6b8 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -59,6 +59,8 @@ Partial Class frmStartOptions Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.LinkLabel38 = New System.Windows.Forms.LinkLabel() + Me.PictureBox17 = New System.Windows.Forms.PictureBox() Me.LinkLabel37 = New System.Windows.Forms.LinkLabel() Me.PictureBox16 = New System.Windows.Forms.PictureBox() Me.Button15 = New System.Windows.Forms.Button() @@ -160,12 +162,17 @@ Partial Class frmStartOptions Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.LinkLabel38 = New System.Windows.Forms.LinkLabel() - Me.PictureBox17 = New System.Windows.Forms.PictureBox() + Me.cbxOpenDatev = New System.Windows.Forms.CheckBox() + Me.cbxBuchungenDatev = New System.Windows.Forms.CheckBox() + Me.cbxKundenDatev = New System.Windows.Forms.CheckBox() + Me.Button17 = New System.Windows.Forms.Button() + Me.Label22 = New System.Windows.Forms.Label() + Me.cbxTestDatev = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit() @@ -186,13 +193,18 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cbxTestDatev) + Me.pnl.Controls.Add(Me.cbxOpenDatev) + Me.pnl.Controls.Add(Me.cbxBuchungenDatev) + Me.pnl.Controls.Add(Me.cbxKundenDatev) + Me.pnl.Controls.Add(Me.Button17) + Me.pnl.Controls.Add(Me.Label22) Me.pnl.Controls.Add(Me.Label21) Me.pnl.Controls.Add(Me.Button16) Me.pnl.Controls.Add(Me.Button14) @@ -555,7 +567,7 @@ Partial Class frmStartOptions Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(15, 340) + Me.Button5.Location = New System.Drawing.Point(559, 155) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(211, 24) Me.Button5.TabIndex = 46 @@ -713,6 +725,28 @@ Partial Class frmStartOptions Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True ' + 'LinkLabel38 + ' + Me.LinkLabel38.AutoSize = True + Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel38.Location = New System.Drawing.Point(475, 125) + Me.LinkLabel38.Name = "LinkLabel38" + Me.LinkLabel38.Size = New System.Drawing.Size(141, 13) + Me.LinkLabel38.TabIndex = 59 + Me.LinkLabel38.TabStop = True + Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)" + ' + 'PictureBox17 + ' + Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image) + Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox17.Location = New System.Drawing.Point(630, 120) + Me.PictureBox17.Name = "PictureBox17" + Me.PictureBox17.Size = New System.Drawing.Size(18, 18) + Me.PictureBox17.TabIndex = 60 + Me.PictureBox17.TabStop = False + Me.PictureBox17.Visible = False + ' 'LinkLabel37 ' Me.LinkLabel37.AutoSize = True @@ -1946,27 +1980,75 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'LinkLabel38 + 'cbxOpenDatev ' - Me.LinkLabel38.AutoSize = True - Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel38.Location = New System.Drawing.Point(475, 125) - Me.LinkLabel38.Name = "LinkLabel38" - Me.LinkLabel38.Size = New System.Drawing.Size(141, 13) - Me.LinkLabel38.TabIndex = 59 - Me.LinkLabel38.TabStop = True - Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)" + Me.cbxOpenDatev.AutoSize = True + Me.cbxOpenDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxOpenDatev.Location = New System.Drawing.Point(175, 345) + Me.cbxOpenDatev.Name = "cbxOpenDatev" + Me.cbxOpenDatev.Size = New System.Drawing.Size(56, 17) + Me.cbxOpenDatev.TabIndex = 74 + Me.cbxOpenDatev.Text = "öffnen" + Me.cbxOpenDatev.UseVisualStyleBackColor = True ' - 'PictureBox17 + 'cbxBuchungenDatev ' - Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image) - Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox17.Location = New System.Drawing.Point(630, 120) - Me.PictureBox17.Name = "PictureBox17" - Me.PictureBox17.Size = New System.Drawing.Size(18, 18) - Me.PictureBox17.TabIndex = 60 - Me.PictureBox17.TabStop = False - Me.PictureBox17.Visible = False + Me.cbxBuchungenDatev.AutoSize = True + Me.cbxBuchungenDatev.Checked = True + Me.cbxBuchungenDatev.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBuchungenDatev.Location = New System.Drawing.Point(89, 345) + Me.cbxBuchungenDatev.Name = "cbxBuchungenDatev" + Me.cbxBuchungenDatev.Size = New System.Drawing.Size(81, 17) + Me.cbxBuchungenDatev.TabIndex = 73 + Me.cbxBuchungenDatev.Text = "Buchungen" + Me.cbxBuchungenDatev.UseVisualStyleBackColor = True + ' + 'cbxKundenDatev + ' + Me.cbxKundenDatev.AutoSize = True + Me.cbxKundenDatev.Checked = True + Me.cbxKundenDatev.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxKundenDatev.Location = New System.Drawing.Point(20, 345) + Me.cbxKundenDatev.Name = "cbxKundenDatev" + Me.cbxKundenDatev.Size = New System.Drawing.Size(63, 17) + Me.cbxKundenDatev.TabIndex = 72 + Me.cbxKundenDatev.Text = "Kunden" + Me.cbxKundenDatev.UseVisualStyleBackColor = True + ' + 'Button17 + ' + Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button17.Location = New System.Drawing.Point(20, 318) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(211, 24) + Me.Button17.TabIndex = 71 + Me.Button17.Text = "Kunden / Buchungen --> DATEV" + Me.Button17.UseVisualStyleBackColor = True + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(17, 302) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(151, 13) + Me.Label22.TabIndex = 70 + Me.Label22.Text = "Routine Manager AMBAR" + ' + 'cbxTestDatev + ' + Me.cbxTestDatev.AutoSize = True + Me.cbxTestDatev.Checked = True + Me.cbxTestDatev.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxTestDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTestDatev.Location = New System.Drawing.Point(20, 368) + Me.cbxTestDatev.Name = "cbxTestDatev" + Me.cbxTestDatev.Size = New System.Drawing.Size(79, 17) + Me.cbxTestDatev.TabIndex = 75 + Me.cbxTestDatev.Text = "Testsystem" + Me.cbxTestDatev.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -1987,6 +2069,7 @@ Partial Class frmStartOptions Me.tbcntr.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit() @@ -2009,7 +2092,6 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2151,4 +2233,10 @@ Partial Class frmStartOptions Friend WithEvents txtGJ_UNISPED As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents LinkLabel38 As LinkLabel Friend WithEvents PictureBox17 As PictureBox + Friend WithEvents cbxTestDatev As CheckBox + Friend WithEvents cbxOpenDatev As CheckBox + Friend WithEvents cbxBuchungenDatev As CheckBox + Friend WithEvents cbxKundenDatev As CheckBox + Friend WithEvents Button17 As Button + Friend WithEvents Label22 As Label End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index febb19a..6c22747 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -385,6 +385,34 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cLDV_Interface.copyLDV_BMD() closeMe() + + '-----------AMBAR------------------- + Case "AMBAR_DATEV_DEBITOREN" + + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, False) + closeMe() + + Case "AMBAR_DATEV_BUCHUNGEN" + + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, False, True) + closeMe() + + + Case "AMBAR_DATEV_ALL" + + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, True) + closeMe() + + '------------------------------ Case Else 'Nur bei manuellem Start wird der fehler ausgegeben @@ -3252,4 +3280,9 @@ Public Class frmStartOptions Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try Me.Cursor = Cursors.Default End Sub + + Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestDatev.Checked + VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxOpenDatev.Checked, cbxKundenDatev.Checked, cbxBuchungenDatev.Checked) + End Sub End Class \ No newline at end of file