edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Datev-Schnittstelle im RoutineManager eingebaut.

Browse Source
This commit is contained in:
d.breimaier
2023-02-13 15:20:39 +01:00
parent 134c779d03
commit e0d3b2bf00
3 changed files with 146 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.1.3")>
<Assembly: AssemblyFileVersion("1.2.1.3")>
<Assembly: AssemblyVersion("1.2.1.4")>
<Assembly: AssemblyFileVersion("1.2.1.4")>

134
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -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

33
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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