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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-29 21:39:51 +01:00
parent 791a40b385
commit 6c2d55297b
4 changed files with 400 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

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

53
Aviso/frmHauptfenster.vb
View File

@@ -2837,34 +2837,35 @@ ELSE_ATILLA:
If e.Button = MouseButtons.Right Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If sender Is gridAviso Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
conMenuAviso.Show(Cursor.Position)
End If
Else
If True Then
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
' If sender Is gridAviso Then
' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
' conMenuAviso.Show(Cursor.Position)
' End If
'Else
setAkive_AuswahlID()
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
lblErrVermerk.Width = 300
lblErrVermerk.Visible = True
hideErr.Enabled = True
Exit Sub
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
lblErrVermerk.Width = 300
lblErrVermerk.Visible = True
hideErr.Enabled = True
Exit Sub
End If
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddAktenvermerkShort(tmpId)
sv.Location = Me.PointToClient(Cursor.Position)
' sv.ShowDialog()
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddAktenvermerkShort(tmpId)
sv.Location = Me.PointToClient(Cursor.Position)
' sv.ShowDialog()
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
End Sub

543
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.lnlSendungText = New System.Windows.Forms.Label()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlSBG = New System.Windows.Forms.Panel()
Me.lblSndFremd = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.lblFiskde = New System.Windows.Forms.Label()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFiskAT = New System.Windows.Forms.Label()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -65,8 +61,6 @@ Partial Class usrcntlAktDetails
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.picArrowDown = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
@@ -75,13 +69,11 @@ Partial Class usrcntlAktDetails
Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button()
Me.btnAlleAkendeckel = New System.Windows.Forms.Button()
Me.btnDipoListe = New System.Windows.Forms.Button()
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnSA_Gestellung = New System.Windows.Forms.Button()
Me.btnLZDruck = New System.Windows.Forms.Button()
Me.btnDipoListeEmail = New System.Windows.Forms.Button()
Me.btnDispohaft = New System.Windows.Forms.Button()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button18 = New System.Windows.Forms.Button()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -136,7 +128,7 @@ Partial Class usrcntlAktDetails
Me.Panel9 = New System.Windows.Forms.Panel()
Me.btnErfasst = New System.Windows.Forms.Button()
Me.lblTimeErfasst = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.pnlStatus2Vorgeschr = New System.Windows.Forms.Panel()
Me.btnVorbereitet = New System.Windows.Forms.Button()
Me.lblTimeVorbereitet = New System.Windows.Forms.Label()
Me.Panel13 = New System.Windows.Forms.Panel()
@@ -145,6 +137,12 @@ Partial Class usrcntlAktDetails
Me.Panel11 = New System.Windows.Forms.Panel()
Me.btnAnkunft = New System.Windows.Forms.Button()
Me.lblTimeAnkunft = New System.Windows.Forms.Label()
Me.pnlStatusVERIMEX = New System.Windows.Forms.Panel()
Me.btnAnVerimex = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnlStatusINDONESIEN = New System.Windows.Forms.Panel()
Me.btnAnIndonesien = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel12 = New System.Windows.Forms.Panel()
Me.btnFreigabe = New System.Windows.Forms.Button()
Me.lblTimeFreigabe = New System.Windows.Forms.Label()
@@ -178,6 +176,15 @@ Partial Class usrcntlAktDetails
Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -206,9 +213,11 @@ Partial Class usrcntlAktDetails
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.Panel10.SuspendLayout()
Me.pnlStatus2Vorgeschr.SuspendLayout()
Me.Panel13.SuspendLayout()
Me.Panel11.SuspendLayout()
Me.pnlStatusVERIMEX.SuspendLayout()
Me.pnlStatusINDONESIEN.SuspendLayout()
Me.Panel12.SuspendLayout()
Me.pnl.SuspendLayout()
Me.pnlStatus.SuspendLayout()
@@ -239,9 +248,9 @@ Partial Class usrcntlAktDetails
Me.Panel3.Controls.Add(Me.SplitContainer)
Me.Panel3.Controls.Add(Me.Panel8)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 105)
Me.Panel3.Location = New System.Drawing.Point(0, 164)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(575, 629)
Me.Panel3.Size = New System.Drawing.Size(575, 570)
Me.Panel3.TabIndex = 91
'
'SplitContainer
@@ -269,8 +278,8 @@ Partial Class usrcntlAktDetails
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlMAInfo)
Me.SplitContainer.Size = New System.Drawing.Size(575, 509)
Me.SplitContainer.SplitterDistance = 233
Me.SplitContainer.Size = New System.Drawing.Size(575, 450)
Me.SplitContainer.SplitterDistance = 197
Me.SplitContainer.TabIndex = 91
'
'pnlAlt
@@ -283,7 +292,7 @@ Partial Class usrcntlAktDetails
Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAlt.Location = New System.Drawing.Point(0, 0)
Me.pnlAlt.Name = "pnlAlt"
Me.pnlAlt.Size = New System.Drawing.Size(575, 233)
Me.pnlAlt.Size = New System.Drawing.Size(575, 197)
Me.pnlAlt.TabIndex = 72
Me.pnlAlt.Visible = False
'
@@ -372,32 +381,6 @@ Partial Class usrcntlAktDetails
Me.lnlSendungText.TabIndex = 2
Me.lnlSendungText.Text = "Sendung"
'
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'pnlSBG
'
Me.pnlSBG.Controls.Add(Me.lblSndFremd)
@@ -434,33 +417,6 @@ Partial Class usrcntlAktDetails
Me.Label21.Text = "1"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'Label20
'
Me.Label20.AutoSize = True
@@ -488,32 +444,6 @@ Partial Class usrcntlAktDetails
Me.lblFiskde.TabIndex = 6
Me.lblFiskde.Text = "Fiskal DE"
'
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblFiskAT
'
Me.lblFiskAT.AutoSize = True
@@ -523,32 +453,6 @@ Partial Class usrcntlAktDetails
Me.lblFiskAT.TabIndex = 4
Me.lblFiskAT.Text = "Fiskal AT"
'
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxSammelakt
'
Me.cbxSammelakt.AutoSize = True
@@ -654,7 +558,7 @@ Partial Class usrcntlAktDetails
Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSendungen.ShowCellErrors = False
Me.dgvSendungen.ShowRowErrors = False
Me.dgvSendungen.Size = New System.Drawing.Size(575, 233)
Me.dgvSendungen.Size = New System.Drawing.Size(575, 197)
Me.dgvSendungen.TabIndex = 71
Me.dgvSendungen.TabStop = False
'
@@ -666,7 +570,7 @@ Partial Class usrcntlAktDetails
Me.Panel7.Location = New System.Drawing.Point(4, 19)
Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1, 108)
Me.Panel7.Size = New System.Drawing.Size(1, 65)
Me.Panel7.TabIndex = 15
'
'btnQuckScan
@@ -675,7 +579,7 @@ Partial Class usrcntlAktDetails
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(468, 203)
Me.btnQuckScan.Location = New System.Drawing.Point(468, 167)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
Me.btnQuckScan.TabIndex = 107
@@ -690,7 +594,7 @@ Partial Class usrcntlAktDetails
Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange
Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.picArrowDown.Location = New System.Drawing.Point(1, 221)
Me.picArrowDown.Location = New System.Drawing.Point(1, 185)
Me.picArrowDown.Name = "picArrowDown"
Me.picArrowDown.Size = New System.Drawing.Size(36, 50)
Me.picArrowDown.TabIndex = 104
@@ -702,6 +606,7 @@ Partial Class usrcntlAktDetails
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.cbxLZDeFisk)
Me.Panel4.Controls.Add(Me.cbxLZT1)
Me.Panel4.Controls.Add(Me.Button2)
@@ -725,35 +630,6 @@ Partial Class usrcntlAktDetails
Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False
'
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.White
@@ -761,7 +637,7 @@ Partial Class usrcntlAktDetails
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(52, 166)
Me.Button2.Location = New System.Drawing.Point(188, 139)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(76, 20)
@@ -879,17 +755,6 @@ Partial Class usrcntlAktDetails
Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDipoListe.UseVisualStyleBackColor = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'Label4
'
Me.Label4.AutoSize = True
@@ -964,29 +829,13 @@ Partial Class usrcntlAktDetails
Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnDispohaft.UseVisualStyleBackColor = False
'
'cbxLZRg
'
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'Button18
'
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(447, 236)
Me.Button18.Location = New System.Drawing.Point(447, 200)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(128, 34)
Me.Button18.TabIndex = 103
@@ -1046,7 +895,7 @@ Partial Class usrcntlAktDetails
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(575, 208)
Me.gridVermerke.Size = New System.Drawing.Size(575, 185)
Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False
'
@@ -1198,7 +1047,7 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 238)
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 215)
Me.pnlMAInfo.Name = "pnlMAInfo"
Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34)
Me.pnlMAInfo.TabIndex = 106
@@ -1724,15 +1573,17 @@ Partial Class usrcntlAktDetails
'
Me.FlowLayoutPanel.AutoSize = True
Me.FlowLayoutPanel.Controls.Add(Me.Panel9)
Me.FlowLayoutPanel.Controls.Add(Me.Panel10)
Me.FlowLayoutPanel.Controls.Add(Me.pnlStatus2Vorgeschr)
Me.FlowLayoutPanel.Controls.Add(Me.Panel13)
Me.FlowLayoutPanel.Controls.Add(Me.Panel11)
Me.FlowLayoutPanel.Controls.Add(Me.pnlStatusVERIMEX)
Me.FlowLayoutPanel.Controls.Add(Me.pnlStatusINDONESIEN)
Me.FlowLayoutPanel.Controls.Add(Me.Panel12)
Me.FlowLayoutPanel.Controls.Add(Me.Panel2)
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 69)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 128)
Me.FlowLayoutPanel.TabIndex = 13
'
'Panel9
@@ -1743,7 +1594,7 @@ Partial Class usrcntlAktDetails
Me.Panel9.Location = New System.Drawing.Point(2, 2)
Me.Panel9.Margin = New System.Windows.Forms.Padding(2, 2, 1, 2)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(100, 58)
Me.Panel9.Size = New System.Drawing.Size(90, 58)
Me.Panel9.TabIndex = 15
'
'btnErfasst
@@ -1758,9 +1609,9 @@ Partial Class usrcntlAktDetails
Me.btnErfasst.ForeColor = System.Drawing.Color.White
Me.btnErfasst.Location = New System.Drawing.Point(0, 0)
Me.btnErfasst.Margin = New System.Windows.Forms.Padding(0)
Me.btnErfasst.MinimumSize = New System.Drawing.Size(100, 0)
Me.btnErfasst.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnErfasst.Name = "btnErfasst"
Me.btnErfasst.Size = New System.Drawing.Size(100, 46)
Me.btnErfasst.Size = New System.Drawing.Size(90, 46)
Me.btnErfasst.TabIndex = 12
Me.btnErfasst.Text = "1. " & Global.Microsoft.VisualBasic.ChrW(10) & "ERFASST"
Me.btnErfasst.UseVisualStyleBackColor = False
@@ -1771,21 +1622,21 @@ Partial Class usrcntlAktDetails
Me.lblTimeErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeErfasst.Location = New System.Drawing.Point(0, 46)
Me.lblTimeErfasst.Name = "lblTimeErfasst"
Me.lblTimeErfasst.Size = New System.Drawing.Size(100, 12)
Me.lblTimeErfasst.Size = New System.Drawing.Size(90, 12)
Me.lblTimeErfasst.TabIndex = 0
Me.lblTimeErfasst.Text = "-"
Me.lblTimeErfasst.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Panel10
'pnlStatus2Vorgeschr
'
Me.Panel10.AutoSize = True
Me.Panel10.Controls.Add(Me.btnVorbereitet)
Me.Panel10.Controls.Add(Me.lblTimeVorbereitet)
Me.Panel10.Location = New System.Drawing.Point(104, 2)
Me.Panel10.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel10.Name = "Panel10"
Me.Panel10.Size = New System.Drawing.Size(147, 59)
Me.Panel10.TabIndex = 16
Me.pnlStatus2Vorgeschr.AutoSize = True
Me.pnlStatus2Vorgeschr.Controls.Add(Me.btnVorbereitet)
Me.pnlStatus2Vorgeschr.Controls.Add(Me.lblTimeVorbereitet)
Me.pnlStatus2Vorgeschr.Location = New System.Drawing.Point(94, 2)
Me.pnlStatus2Vorgeschr.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.pnlStatus2Vorgeschr.Name = "pnlStatus2Vorgeschr"
Me.pnlStatus2Vorgeschr.Size = New System.Drawing.Size(147, 59)
Me.pnlStatus2Vorgeschr.TabIndex = 16
'
'btnVorbereitet
'
@@ -1822,7 +1673,7 @@ Partial Class usrcntlAktDetails
Me.Panel13.AutoSize = True
Me.Panel13.Controls.Add(Me.btnVorgeschrieben)
Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben)
Me.Panel13.Location = New System.Drawing.Point(253, 2)
Me.Panel13.Location = New System.Drawing.Point(243, 2)
Me.Panel13.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(112, 59)
@@ -1863,10 +1714,10 @@ Partial Class usrcntlAktDetails
Me.Panel11.AutoSize = True
Me.Panel11.Controls.Add(Me.btnAnkunft)
Me.Panel11.Controls.Add(Me.lblTimeAnkunft)
Me.Panel11.Location = New System.Drawing.Point(367, 2)
Me.Panel11.Location = New System.Drawing.Point(357, 2)
Me.Panel11.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(100, 59)
Me.Panel11.Size = New System.Drawing.Size(90, 59)
Me.Panel11.TabIndex = 17
'
'btnAnkunft
@@ -1881,9 +1732,9 @@ Partial Class usrcntlAktDetails
Me.btnAnkunft.ForeColor = System.Drawing.Color.White
Me.btnAnkunft.Location = New System.Drawing.Point(0, 0)
Me.btnAnkunft.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnkunft.MinimumSize = New System.Drawing.Size(100, 0)
Me.btnAnkunft.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnAnkunft.Name = "btnAnkunft"
Me.btnAnkunft.Size = New System.Drawing.Size(100, 46)
Me.btnAnkunft.Size = New System.Drawing.Size(90, 46)
Me.btnAnkunft.TabIndex = 12
Me.btnAnkunft.Text = "4." & Global.Microsoft.VisualBasic.ChrW(10) & "ANKUNFT"
Me.btnAnkunft.UseVisualStyleBackColor = False
@@ -1894,17 +1745,99 @@ Partial Class usrcntlAktDetails
Me.lblTimeAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeAnkunft.Location = New System.Drawing.Point(0, 46)
Me.lblTimeAnkunft.Name = "lblTimeAnkunft"
Me.lblTimeAnkunft.Size = New System.Drawing.Size(100, 13)
Me.lblTimeAnkunft.Size = New System.Drawing.Size(90, 13)
Me.lblTimeAnkunft.TabIndex = 0
Me.lblTimeAnkunft.Text = "-"
Me.lblTimeAnkunft.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'pnlStatusVERIMEX
'
Me.pnlStatusVERIMEX.AutoSize = True
Me.pnlStatusVERIMEX.Controls.Add(Me.btnAnVerimex)
Me.pnlStatusVERIMEX.Controls.Add(Me.Label8)
Me.pnlStatusVERIMEX.Location = New System.Drawing.Point(450, 3)
Me.pnlStatusVERIMEX.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.pnlStatusVERIMEX.Name = "pnlStatusVERIMEX"
Me.pnlStatusVERIMEX.Size = New System.Drawing.Size(80, 58)
Me.pnlStatusVERIMEX.TabIndex = 21
Me.pnlStatusVERIMEX.Visible = False
'
'btnAnVerimex
'
Me.btnAnVerimex.AutoSize = True
Me.btnAnVerimex.BackColor = System.Drawing.Color.SteelBlue
Me.btnAnVerimex.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAnVerimex.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnAnVerimex.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnVerimex.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAnVerimex.ForeColor = System.Drawing.Color.White
Me.btnAnVerimex.Location = New System.Drawing.Point(0, 0)
Me.btnAnVerimex.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnVerimex.MinimumSize = New System.Drawing.Size(80, 0)
Me.btnAnVerimex.Name = "btnAnVerimex"
Me.btnAnVerimex.Size = New System.Drawing.Size(80, 45)
Me.btnAnVerimex.TabIndex = 12
Me.btnAnVerimex.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VERIMEX"
Me.btnAnVerimex.UseVisualStyleBackColor = False
'
'Label8
'
Me.Label8.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(0, 45)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(80, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "-"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'pnlStatusINDONESIEN
'
Me.pnlStatusINDONESIEN.AutoSize = True
Me.pnlStatusINDONESIEN.Controls.Add(Me.btnAnIndonesien)
Me.pnlStatusINDONESIEN.Controls.Add(Me.Label1)
Me.pnlStatusINDONESIEN.Location = New System.Drawing.Point(2, 67)
Me.pnlStatusINDONESIEN.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.pnlStatusINDONESIEN.Name = "pnlStatusINDONESIEN"
Me.pnlStatusINDONESIEN.Size = New System.Drawing.Size(80, 58)
Me.pnlStatusINDONESIEN.TabIndex = 22
Me.pnlStatusINDONESIEN.Visible = False
'
'btnAnIndonesien
'
Me.btnAnIndonesien.AutoSize = True
Me.btnAnIndonesien.BackColor = System.Drawing.Color.SteelBlue
Me.btnAnIndonesien.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAnIndonesien.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnAnIndonesien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnIndonesien.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAnIndonesien.ForeColor = System.Drawing.Color.White
Me.btnAnIndonesien.Location = New System.Drawing.Point(0, 0)
Me.btnAnIndonesien.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnIndonesien.MinimumSize = New System.Drawing.Size(80, 0)
Me.btnAnIndonesien.Name = "btnAnIndonesien"
Me.btnAnIndonesien.Size = New System.Drawing.Size(80, 45)
Me.btnAnIndonesien.TabIndex = 12
Me.btnAnIndonesien.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INDONES."
Me.btnAnIndonesien.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Dock = System.Windows.Forms.DockStyle.Bottom
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(0, 45)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "-"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Panel12
'
Me.Panel12.AutoSize = True
Me.Panel12.Controls.Add(Me.btnFreigabe)
Me.Panel12.Controls.Add(Me.lblTimeFreigabe)
Me.Panel12.Location = New System.Drawing.Point(469, 2)
Me.Panel12.Location = New System.Drawing.Point(85, 66)
Me.Panel12.Margin = New System.Windows.Forms.Padding(1, 2, 2, 2)
Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(100, 58)
@@ -1943,7 +1876,7 @@ Partial Class usrcntlAktDetails
'Panel2
'
Me.Panel2.AutoSize = True
Me.Panel2.Location = New System.Drawing.Point(3, 66)
Me.Panel2.Location = New System.Drawing.Point(190, 67)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(0, 0)
Me.Panel2.TabIndex = 18
@@ -2313,6 +2246,183 @@ Partial Class usrcntlAktDetails
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 119
Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False
Me.Button9.Visible = False
'
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'cbxLZRg
'
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'usrcntlAktDetails
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2358,12 +2468,16 @@ Partial Class usrcntlAktDetails
Me.FlowLayoutPanel.PerformLayout()
Me.Panel9.ResumeLayout(False)
Me.Panel9.PerformLayout()
Me.Panel10.ResumeLayout(False)
Me.Panel10.PerformLayout()
Me.pnlStatus2Vorgeschr.ResumeLayout(False)
Me.pnlStatus2Vorgeschr.PerformLayout()
Me.Panel13.ResumeLayout(False)
Me.Panel13.PerformLayout()
Me.Panel11.ResumeLayout(False)
Me.Panel11.PerformLayout()
Me.pnlStatusVERIMEX.ResumeLayout(False)
Me.pnlStatusVERIMEX.PerformLayout()
Me.pnlStatusINDONESIEN.ResumeLayout(False)
Me.pnlStatusINDONESIEN.PerformLayout()
Me.Panel12.ResumeLayout(False)
Me.Panel12.PerformLayout()
Me.pnl.ResumeLayout(False)
@@ -2396,8 +2510,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents btnErfasst As System.Windows.Forms.Button
Friend WithEvents lblTimeErfasst As System.Windows.Forms.Label
Friend WithEvents Panel10 As System.Windows.Forms.Panel
Friend WithEvents btnVorbereitet As System.Windows.Forms.Button
Friend WithEvents pnlStatus2Vorgeschr As System.Windows.Forms.Panel
Friend WithEvents lblTimeVorbereitet As System.Windows.Forms.Label
Friend WithEvents Panel13 As System.Windows.Forms.Panel
Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button
@@ -2520,4 +2633,12 @@ Partial Class usrcntlAktDetails
Friend WithEvents Button1 As Button
Friend WithEvents Button8 As Button
Friend WithEvents btnQRVerwahrung As Button
Friend WithEvents btnVorbereitet As Button
Friend WithEvents pnlStatusVERIMEX As Panel
Friend WithEvents btnAnVerimex As Button
Friend WithEvents Label8 As Label
Friend WithEvents pnlStatusINDONESIEN As Panel
Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label1 As Label
Friend WithEvents Button9 As Button
End Class

39
Aviso/usrcntlAktDetails.vb
View File

@@ -194,8 +194,23 @@ Public Class usrcntlAktDetails
cboFormulareRgAn.changeItem("AVISIERER")
Select Case If(AVISO.FIRMA <> "", AVISO.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "ATILLA"
pnlStatus2Vorgeschr.Visible = False
pnlStatusVERIMEX.Visible = True
pnlStatusINDONESIEN.Visible = True
Button9.Visible = True
Case Else
pnlStatus2Vorgeschr.Visible = True
pnlStatusVERIMEX.Visible = False
pnlStatusINDONESIEN.Visible = False
Button9.Visible = False
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED" : btnSendungslisteUNISPED.Visible = True
End Select
If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then
@@ -3872,5 +3887,29 @@ Public Class usrcntlAktDetails
End Sub
Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
If FUNC.setAnVERIMEX(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
If FUNC.setAnINDONESIEN(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
Dim SND = Nothing
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
SND = SENDUNG_LIST(0)
SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName)
Panel4.Visible = False
End If
End Sub
End Class