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

Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2024-12-20 16:04:47 +01:00
parent cdb8a3b8ba b00964a0f5
commit b31b512eac
18 changed files with 2590 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AVISOUPDATER/packages.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
</packages>

19
Aviso/Aviso.vbproj
View File

@@ -664,6 +664,12 @@
<Compile Include="frmATZollEingereichtSetzen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEintragTvNew.Designer.vb">
<DependentUpon>frmEintragTvNew.vb</DependentUpon>
</Compile>
<Compile Include="frmEintragTvNew.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFrachtkostenBerechnen.Designer.vb">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</Compile>
@@ -964,6 +970,12 @@
<Compile Include="frmTv.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTvSettings.Designer.vb">
<DependentUpon>frmTvSettings.vb</DependentUpon>
</Compile>
<Compile Include="frmTvSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWarenbezeichnungBegriffe.Designer.vb">
<DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
</Compile>
@@ -1261,6 +1273,9 @@
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEintragTvNew.resx">
<DependentUpon>frmEintragTvNew.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</EmbeddedResource>
@@ -1414,6 +1429,9 @@
<EmbeddedResource Include="frmTv.resx">
<DependentUpon>frmTv.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTvSettings.resx">
<DependentUpon>frmTvSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWarenbezeichnungBegriffe.resx">
<DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
</EmbeddedResource>
@@ -1644,7 +1662,6 @@
<None Include="Resources\avisoNewMsg.ico" />
<None Include="Resources\Telefonliste.png" />
<None Include="Resources\Telefonliste1.png" />
<EmbeddedResource Include="My Project\license.elic.xml" />
<Content Include="My Project\licensePDFPro.elic.xml" />
<Content Include="My Project\licensePDFViewer.elic.xml" />
<Content Include="My Project\Telefonliste_small.png" />

26
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class usrCntlBenachrichtigungen
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
@@ -37,7 +38,6 @@ Partial Class usrCntlBenachrichtigungen
Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
@@ -106,6 +106,18 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.TabIndex = 5
'
'cbxTaskForce
'
Me.cbxTaskForce.AutoSize = True
Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxTaskForce.TabIndex = 33
Me.cbxTaskForce.Text = "TaskForce"
Me.cbxTaskForce.UseVisualStyleBackColor = True
Me.cbxTaskForce.Visible = False
'
'cbxVerwarung
'
Me.cbxVerwarung.AutoSize = True
@@ -215,18 +227,6 @@ Partial Class usrCntlBenachrichtigungen
Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbxTaskForce
'
Me.cbxTaskForce.AutoSize = True
Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxTaskForce.TabIndex = 33
Me.cbxTaskForce.Text = "TaskForce"
Me.cbxTaskForce.UseVisualStyleBackColor = True
Me.cbxTaskForce.Visible = False
'
'usrCntlBenachrichtigungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

BIN
Aviso/bin/Debug/Resources/ambar_boarder.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 23 KiB

690
Aviso/frmEintragTvNew.Designer.vb generated Normal file
View File

@@ -0,0 +1,690 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEintragTvNew
Inherits System.Windows.Forms.Form
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private components As System.ComponentModel.IContainer
' Deklaration der Steuerelemente
Friend WithEvents cbxStandort As ComboBox
Friend WithEvents lblStandort As Label
Friend WithEvents dgvAVISOTV As DataGridView
Friend WithEvents grpEingabe As GroupBox
Friend WithEvents lblNeueTvTextBezeichnung As Label
Friend WithEvents txtNeueTvTextBezeichnung As TextBox
Friend WithEvents chkIsActive As CheckBox
Friend WithEvents chkIsRecurring As CheckBox
Friend WithEvents grpWochentage As GroupBox
Friend WithEvents chkSunday As CheckBox
Friend WithEvents chkSaturday As CheckBox
Friend WithEvents chkFriday As CheckBox
Friend WithEvents chkThursday As CheckBox
Friend WithEvents chkWednesday As CheckBox
Friend WithEvents chkTuesday As CheckBox
Friend WithEvents chkMonday As CheckBox
Friend WithEvents dtpEndTime As DateTimePicker
Friend WithEvents lblEndTime As Label
Friend WithEvents dtpStartTime As DateTimePicker
Friend WithEvents lblStartTime As Label
Friend WithEvents dtpEndDate As DateTimePicker
Friend WithEvents lblEndDate As Label
Friend WithEvents dtpStartDate As DateTimePicker
Friend WithEvents lblStartDate As Label
Friend WithEvents lblZeile1 As Label
Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents nudPrioritaet As NumericUpDown
Friend WithEvents btnSpeichern As Button
Friend WithEvents btnLoeschen As Button
Friend WithEvents btnAbbrechen As Button
Friend WithEvents chkShowInactive As CheckBox
' Neue Komponenten für Textformatierung
Friend WithEvents btnBold As Button
Friend WithEvents btnItalic As Button
Friend WithEvents btnUnderline As Button
Friend WithEvents btnTextColor As Button
Friend WithEvents btnBackColor As Button
Friend WithEvents btnAlignLeft As Button
Friend WithEvents btnAlignCenter As Button
Friend WithEvents btnAlignRight As Button
Friend WithEvents cmbFontFamily As ComboBox
Friend WithEvents cmbFontSize As ComboBox
Friend WithEvents colorDialogText As ColorDialog
' TabControl und RichTextBoxen
Friend WithEvents tabControlZeilen As TabControl
Friend WithEvents tabPageZeile1 As TabPage
Friend WithEvents tabPageZeile2 As TabPage
Friend WithEvents tabPageZeile3 As TabPage
Friend WithEvents rtbZeile1 As RichTextBox
Friend WithEvents rtbZeile2 As RichTextBox
Friend WithEvents rtbZeile3 As RichTextBox
Friend WithEvents btnOpenSettings As Button
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.btnOpenSettings = New System.Windows.Forms.Button()
Me.cbxStandort = New System.Windows.Forms.ComboBox()
Me.lblStandort = New System.Windows.Forms.Label()
Me.dgvAVISOTV = New System.Windows.Forms.DataGridView()
Me.grpEingabe = New System.Windows.Forms.GroupBox()
Me.tabControlZeilen = New System.Windows.Forms.TabControl()
Me.tabPageZeile1 = New System.Windows.Forms.TabPage()
Me.rtbZeile1 = New System.Windows.Forms.RichTextBox()
Me.tabPageZeile2 = New System.Windows.Forms.TabPage()
Me.rtbZeile2 = New System.Windows.Forms.RichTextBox()
Me.tabPageZeile3 = New System.Windows.Forms.TabPage()
Me.rtbZeile3 = New System.Windows.Forms.RichTextBox()
Me.lblNeueTvTextBezeichnung = New System.Windows.Forms.Label()
Me.txtNeueTvTextBezeichnung = New System.Windows.Forms.TextBox()
Me.chkIsActive = New System.Windows.Forms.CheckBox()
Me.chkIsRecurring = New System.Windows.Forms.CheckBox()
Me.grpWochentage = New System.Windows.Forms.GroupBox()
Me.chkSunday = New System.Windows.Forms.CheckBox()
Me.chkSaturday = New System.Windows.Forms.CheckBox()
Me.chkFriday = New System.Windows.Forms.CheckBox()
Me.chkThursday = New System.Windows.Forms.CheckBox()
Me.chkWednesday = New System.Windows.Forms.CheckBox()
Me.chkTuesday = New System.Windows.Forms.CheckBox()
Me.chkMonday = New System.Windows.Forms.CheckBox()
Me.dtpEndTime = New System.Windows.Forms.DateTimePicker()
Me.lblEndTime = New System.Windows.Forms.Label()
Me.dtpStartTime = New System.Windows.Forms.DateTimePicker()
Me.lblStartTime = New System.Windows.Forms.Label()
Me.dtpEndDate = New System.Windows.Forms.DateTimePicker()
Me.lblEndDate = New System.Windows.Forms.Label()
Me.dtpStartDate = New System.Windows.Forms.DateTimePicker()
Me.lblStartDate = New System.Windows.Forms.Label()
Me.lblZeile1 = New System.Windows.Forms.Label()
Me.cmbTvTextBezeichnungAuswahl = New System.Windows.Forms.ComboBox()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.nudPrioritaet = New System.Windows.Forms.NumericUpDown()
Me.btnBold = New System.Windows.Forms.Button()
Me.btnItalic = New System.Windows.Forms.Button()
Me.btnUnderline = New System.Windows.Forms.Button()
Me.btnTextColor = New System.Windows.Forms.Button()
Me.btnBackColor = New System.Windows.Forms.Button()
Me.btnAlignLeft = New System.Windows.Forms.Button()
Me.btnAlignCenter = New System.Windows.Forms.Button()
Me.btnAlignRight = New System.Windows.Forms.Button()
Me.cmbFontFamily = New System.Windows.Forms.ComboBox()
Me.cmbFontSize = New System.Windows.Forms.ComboBox()
Me.btnSpeichern = New System.Windows.Forms.Button()
Me.btnLoeschen = New System.Windows.Forms.Button()
Me.btnAbbrechen = New System.Windows.Forms.Button()
Me.chkShowInactive = New System.Windows.Forms.CheckBox()
Me.colorDialogText = New System.Windows.Forms.ColorDialog()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpEingabe.SuspendLayout()
Me.tabControlZeilen.SuspendLayout()
Me.tabPageZeile1.SuspendLayout()
Me.tabPageZeile2.SuspendLayout()
Me.tabPageZeile3.SuspendLayout()
Me.grpWochentage.SuspendLayout()
CType(Me.nudPrioritaet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOpenSettings
'
Me.btnOpenSettings.Location = New System.Drawing.Point(15, 1010)
Me.btnOpenSettings.Name = "btnOpenSettings"
Me.btnOpenSettings.Size = New System.Drawing.Size(150, 30)
Me.btnOpenSettings.TabIndex = 8
Me.btnOpenSettings.Text = "TV Einstellungen"
Me.btnOpenSettings.UseVisualStyleBackColor = True
'
'cbxStandort
'
Me.cbxStandort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxStandort.FormattingEnabled = True
Me.cbxStandort.Location = New System.Drawing.Point(15, 25)
Me.cbxStandort.Name = "cbxStandort"
Me.cbxStandort.Size = New System.Drawing.Size(200, 21)
Me.cbxStandort.TabIndex = 0
'
'lblStandort
'
Me.lblStandort.AutoSize = True
Me.lblStandort.Location = New System.Drawing.Point(12, 9)
Me.lblStandort.Name = "lblStandort"
Me.lblStandort.Size = New System.Drawing.Size(87, 13)
Me.lblStandort.TabIndex = 1
Me.lblStandort.Text = "Standort wählen:"
'
'dgvAVISOTV
'
Me.dgvAVISOTV.AllowUserToAddRows = False
Me.dgvAVISOTV.AllowUserToDeleteRows = False
Me.dgvAVISOTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAVISOTV.Location = New System.Drawing.Point(15, 60)
Me.dgvAVISOTV.MultiSelect = False
Me.dgvAVISOTV.Name = "dgvAVISOTV"
Me.dgvAVISOTV.ReadOnly = True
Me.dgvAVISOTV.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAVISOTV.Size = New System.Drawing.Size(1300, 200)
Me.dgvAVISOTV.TabIndex = 2
'
'grpEingabe
'
Me.grpEingabe.Controls.Add(Me.Label1)
Me.grpEingabe.Controls.Add(Me.tabControlZeilen)
Me.grpEingabe.Controls.Add(Me.lblNeueTvTextBezeichnung)
Me.grpEingabe.Controls.Add(Me.txtNeueTvTextBezeichnung)
Me.grpEingabe.Controls.Add(Me.chkIsActive)
Me.grpEingabe.Controls.Add(Me.chkIsRecurring)
Me.grpEingabe.Controls.Add(Me.grpWochentage)
Me.grpEingabe.Controls.Add(Me.dtpEndTime)
Me.grpEingabe.Controls.Add(Me.lblEndTime)
Me.grpEingabe.Controls.Add(Me.dtpStartTime)
Me.grpEingabe.Controls.Add(Me.lblStartTime)
Me.grpEingabe.Controls.Add(Me.dtpEndDate)
Me.grpEingabe.Controls.Add(Me.lblEndDate)
Me.grpEingabe.Controls.Add(Me.dtpStartDate)
Me.grpEingabe.Controls.Add(Me.lblStartDate)
Me.grpEingabe.Controls.Add(Me.lblZeile1)
Me.grpEingabe.Controls.Add(Me.cmbTvTextBezeichnungAuswahl)
Me.grpEingabe.Controls.Add(Me.lblBezeichnung)
Me.grpEingabe.Controls.Add(Me.nudPrioritaet)
Me.grpEingabe.Controls.Add(Me.btnBold)
Me.grpEingabe.Controls.Add(Me.btnItalic)
Me.grpEingabe.Controls.Add(Me.btnUnderline)
Me.grpEingabe.Controls.Add(Me.btnTextColor)
Me.grpEingabe.Controls.Add(Me.btnBackColor)
Me.grpEingabe.Controls.Add(Me.btnAlignLeft)
Me.grpEingabe.Controls.Add(Me.btnAlignCenter)
Me.grpEingabe.Controls.Add(Me.btnAlignRight)
Me.grpEingabe.Controls.Add(Me.cmbFontFamily)
Me.grpEingabe.Controls.Add(Me.cmbFontSize)
Me.grpEingabe.Location = New System.Drawing.Point(15, 275)
Me.grpEingabe.Name = "grpEingabe"
Me.grpEingabe.Size = New System.Drawing.Size(1300, 716)
Me.grpEingabe.TabIndex = 3
Me.grpEingabe.TabStop = False
Me.grpEingabe.Text = "Informationen eingeben"
'
'tabControlZeilen
'
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile1)
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile2)
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile3)
Me.tabControlZeilen.Location = New System.Drawing.Point(40, 100)
Me.tabControlZeilen.Name = "tabControlZeilen"
Me.tabControlZeilen.SelectedIndex = 0
Me.tabControlZeilen.Size = New System.Drawing.Size(1235, 332)
Me.tabControlZeilen.TabIndex = 35
'
'tabPageZeile1
'
Me.tabPageZeile1.Controls.Add(Me.rtbZeile1)
Me.tabPageZeile1.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile1.Name = "tabPageZeile1"
Me.tabPageZeile1.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile1.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile1.TabIndex = 0
Me.tabPageZeile1.Text = "Deutsch"
Me.tabPageZeile1.UseVisualStyleBackColor = True
'
'rtbZeile1
'
Me.rtbZeile1.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile1.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile1.Name = "rtbZeile1"
Me.rtbZeile1.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile1.TabIndex = 0
Me.rtbZeile1.Text = ""
'
'tabPageZeile2
'
Me.tabPageZeile2.Controls.Add(Me.rtbZeile2)
Me.tabPageZeile2.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile2.Name = "tabPageZeile2"
Me.tabPageZeile2.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile2.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile2.TabIndex = 1
Me.tabPageZeile2.Text = "Englisch"
Me.tabPageZeile2.UseVisualStyleBackColor = True
'
'rtbZeile2
'
Me.rtbZeile2.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile2.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile2.Name = "rtbZeile2"
Me.rtbZeile2.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile2.TabIndex = 0
Me.rtbZeile2.Text = ""
'
'tabPageZeile3
'
Me.tabPageZeile3.Controls.Add(Me.rtbZeile3)
Me.tabPageZeile3.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile3.Name = "tabPageZeile3"
Me.tabPageZeile3.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile3.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile3.TabIndex = 2
Me.tabPageZeile3.Text = "Türkisch"
Me.tabPageZeile3.UseVisualStyleBackColor = True
'
'rtbZeile3
'
Me.rtbZeile3.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile3.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile3.Name = "rtbZeile3"
Me.rtbZeile3.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile3.TabIndex = 0
Me.rtbZeile3.Text = ""
'
'lblNeueTvTextBezeichnung
'
Me.lblNeueTvTextBezeichnung.AutoSize = True
Me.lblNeueTvTextBezeichnung.Location = New System.Drawing.Point(301, 39)
Me.lblNeueTvTextBezeichnung.Name = "lblNeueTvTextBezeichnung"
Me.lblNeueTvTextBezeichnung.Size = New System.Drawing.Size(135, 13)
Me.lblNeueTvTextBezeichnung.TabIndex = 19
Me.lblNeueTvTextBezeichnung.Text = "Neue TvTextBezeichnung:"
'
'txtNeueTvTextBezeichnung
'
Me.txtNeueTvTextBezeichnung.Location = New System.Drawing.Point(461, 36)
Me.txtNeueTvTextBezeichnung.Name = "txtNeueTvTextBezeichnung"
Me.txtNeueTvTextBezeichnung.Size = New System.Drawing.Size(200, 20)
Me.txtNeueTvTextBezeichnung.TabIndex = 20
'
'chkIsActive
'
Me.chkIsActive.AutoSize = True
Me.chkIsActive.Location = New System.Drawing.Point(671, 38)
Me.chkIsActive.Name = "chkIsActive"
Me.chkIsActive.Size = New System.Drawing.Size(50, 17)
Me.chkIsActive.TabIndex = 18
Me.chkIsActive.Text = "Aktiv"
Me.chkIsActive.UseVisualStyleBackColor = True
'
'chkIsRecurring
'
Me.chkIsRecurring.AutoSize = True
Me.chkIsRecurring.Location = New System.Drawing.Point(64, 627)
Me.chkIsRecurring.Name = "chkIsRecurring"
Me.chkIsRecurring.Size = New System.Drawing.Size(86, 17)
Me.chkIsRecurring.TabIndex = 10
Me.chkIsRecurring.Text = "Wiederholen"
Me.chkIsRecurring.UseVisualStyleBackColor = True
'
'grpWochentage
'
Me.grpWochentage.Controls.Add(Me.chkSunday)
Me.grpWochentage.Controls.Add(Me.chkSaturday)
Me.grpWochentage.Controls.Add(Me.chkFriday)
Me.grpWochentage.Controls.Add(Me.chkThursday)
Me.grpWochentage.Controls.Add(Me.chkWednesday)
Me.grpWochentage.Controls.Add(Me.chkTuesday)
Me.grpWochentage.Controls.Add(Me.chkMonday)
Me.grpWochentage.Location = New System.Drawing.Point(66, 650)
Me.grpWochentage.Name = "grpWochentage"
Me.grpWochentage.Size = New System.Drawing.Size(776, 57)
Me.grpWochentage.TabIndex = 11
Me.grpWochentage.TabStop = False
Me.grpWochentage.Text = "Wochentage"
'
'chkSunday
'
Me.chkSunday.AutoSize = True
Me.chkSunday.Location = New System.Drawing.Point(664, 25)
Me.chkSunday.Name = "chkSunday"
Me.chkSunday.Size = New System.Drawing.Size(66, 17)
Me.chkSunday.TabIndex = 17
Me.chkSunday.Text = "Sonntag"
Me.chkSunday.UseVisualStyleBackColor = True
'
'chkSaturday
'
Me.chkSaturday.AutoSize = True
Me.chkSaturday.Location = New System.Drawing.Point(550, 25)
Me.chkSaturday.Name = "chkSaturday"
Me.chkSaturday.Size = New System.Drawing.Size(67, 17)
Me.chkSaturday.TabIndex = 16
Me.chkSaturday.Text = "Samstag"
Me.chkSaturday.UseVisualStyleBackColor = True
'
'chkFriday
'
Me.chkFriday.AutoSize = True
Me.chkFriday.Location = New System.Drawing.Point(450, 25)
Me.chkFriday.Name = "chkFriday"
Me.chkFriday.Size = New System.Drawing.Size(58, 17)
Me.chkFriday.TabIndex = 15
Me.chkFriday.Text = "Freitag"
Me.chkFriday.UseVisualStyleBackColor = True
'
'chkThursday
'
Me.chkThursday.AutoSize = True
Me.chkThursday.Location = New System.Drawing.Point(350, 25)
Me.chkThursday.Name = "chkThursday"
Me.chkThursday.Size = New System.Drawing.Size(81, 17)
Me.chkThursday.TabIndex = 14
Me.chkThursday.Text = "Donnerstag"
Me.chkThursday.UseVisualStyleBackColor = True
'
'chkWednesday
'
Me.chkWednesday.AutoSize = True
Me.chkWednesday.Location = New System.Drawing.Point(250, 25)
Me.chkWednesday.Name = "chkWednesday"
Me.chkWednesday.Size = New System.Drawing.Size(69, 17)
Me.chkWednesday.TabIndex = 13
Me.chkWednesday.Text = "Mittwoch"
Me.chkWednesday.UseVisualStyleBackColor = True
'
'chkTuesday
'
Me.chkTuesday.AutoSize = True
Me.chkTuesday.Location = New System.Drawing.Point(150, 25)
Me.chkTuesday.Name = "chkTuesday"
Me.chkTuesday.Size = New System.Drawing.Size(68, 17)
Me.chkTuesday.TabIndex = 12
Me.chkTuesday.Text = "Dienstag"
Me.chkTuesday.UseVisualStyleBackColor = True
'
'chkMonday
'
Me.chkMonday.AutoSize = True
Me.chkMonday.Location = New System.Drawing.Point(50, 25)
Me.chkMonday.Name = "chkMonday"
Me.chkMonday.Size = New System.Drawing.Size(62, 17)
Me.chkMonday.TabIndex = 11
Me.chkMonday.Text = "Montag"
Me.chkMonday.UseVisualStyleBackColor = True
'
'dtpEndTime
'
Me.dtpEndTime.Format = System.Windows.Forms.DateTimePickerFormat.Time
Me.dtpEndTime.Location = New System.Drawing.Point(722, 537)
Me.dtpEndTime.Name = "dtpEndTime"
Me.dtpEndTime.ShowCheckBox = True
Me.dtpEndTime.ShowUpDown = True
Me.dtpEndTime.Size = New System.Drawing.Size(200, 20)
Me.dtpEndTime.TabIndex = 9
'
'lblEndTime
'
Me.lblEndTime.AutoSize = True
Me.lblEndTime.Location = New System.Drawing.Point(618, 543)
Me.lblEndTime.Name = "lblEndTime"
Me.lblEndTime.Size = New System.Drawing.Size(91, 13)
Me.lblEndTime.TabIndex = 14
Me.lblEndTime.Text = "Endzeit (optional):"
'
'dtpStartTime
'
Me.dtpStartTime.Format = System.Windows.Forms.DateTimePickerFormat.Time
Me.dtpStartTime.Location = New System.Drawing.Point(126, 538)
Me.dtpStartTime.Name = "dtpStartTime"
Me.dtpStartTime.ShowCheckBox = True
Me.dtpStartTime.ShowUpDown = True
Me.dtpStartTime.Size = New System.Drawing.Size(200, 20)
Me.dtpStartTime.TabIndex = 8
'
'lblStartTime
'
Me.lblStartTime.AutoSize = True
Me.lblStartTime.Location = New System.Drawing.Point(61, 544)
Me.lblStartTime.Name = "lblStartTime"
Me.lblStartTime.Size = New System.Drawing.Size(48, 13)
Me.lblStartTime.TabIndex = 12
Me.lblStartTime.Text = "Startzeit:"
'
'dtpEndDate
'
Me.dtpEndDate.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpEndDate.Location = New System.Drawing.Point(721, 504)
Me.dtpEndDate.Name = "dtpEndDate"
Me.dtpEndDate.ShowCheckBox = True
Me.dtpEndDate.Size = New System.Drawing.Size(201, 20)
Me.dtpEndDate.TabIndex = 7
'
'lblEndDate
'
Me.lblEndDate.AutoSize = True
Me.lblEndDate.Location = New System.Drawing.Point(606, 507)
Me.lblEndDate.Name = "lblEndDate"
Me.lblEndDate.Size = New System.Drawing.Size(104, 13)
Me.lblEndDate.TabIndex = 10
Me.lblEndDate.Text = "Enddatum (optional):"
'
'dtpStartDate
'
Me.dtpStartDate.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpStartDate.Location = New System.Drawing.Point(127, 504)
Me.dtpStartDate.Name = "dtpStartDate"
Me.dtpStartDate.ShowCheckBox = True
Me.dtpStartDate.Size = New System.Drawing.Size(200, 20)
Me.dtpStartDate.TabIndex = 6
'
'lblStartDate
'
Me.lblStartDate.AutoSize = True
Me.lblStartDate.Location = New System.Drawing.Point(45, 507)
Me.lblStartDate.Name = "lblStartDate"
Me.lblStartDate.Size = New System.Drawing.Size(64, 13)
Me.lblStartDate.TabIndex = 8
Me.lblStartDate.Text = "Startdatum: "
'
'lblZeile1
'
Me.lblZeile1.AutoSize = True
Me.lblZeile1.Location = New System.Drawing.Point(42, 109)
Me.lblZeile1.Name = "lblZeile1"
Me.lblZeile1.Size = New System.Drawing.Size(42, 13)
Me.lblZeile1.TabIndex = 2
Me.lblZeile1.Text = "Zeile 1:"
'
'cmbTvTextBezeichnungAuswahl
'
Me.cmbTvTextBezeichnungAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbTvTextBezeichnungAuswahl.FormattingEnabled = True
Me.cmbTvTextBezeichnungAuswahl.Location = New System.Drawing.Point(101, 36)
Me.cmbTvTextBezeichnungAuswahl.Name = "cmbTvTextBezeichnungAuswahl"
Me.cmbTvTextBezeichnungAuswahl.Size = New System.Drawing.Size(177, 21)
Me.cmbTvTextBezeichnungAuswahl.TabIndex = 2
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(13, 39)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(72, 13)
Me.lblBezeichnung.TabIndex = 0
Me.lblBezeichnung.Text = "Bezeichnung:"
'
'nudPrioritaet
'
Me.nudPrioritaet.Location = New System.Drawing.Point(126, 582)
Me.nudPrioritaet.Name = "nudPrioritaet"
Me.nudPrioritaet.Size = New System.Drawing.Size(60, 20)
Me.nudPrioritaet.TabIndex = 36
'
'btnBold
'
Me.btnBold.Location = New System.Drawing.Point(40, 438)
Me.btnBold.Name = "btnBold"
Me.btnBold.Size = New System.Drawing.Size(30, 30)
Me.btnBold.TabIndex = 23
Me.btnBold.Text = "B"
Me.btnBold.UseVisualStyleBackColor = True
'
'btnItalic
'
Me.btnItalic.Location = New System.Drawing.Point(80, 438)
Me.btnItalic.Name = "btnItalic"
Me.btnItalic.Size = New System.Drawing.Size(30, 30)
Me.btnItalic.TabIndex = 24
Me.btnItalic.Text = "I"
Me.btnItalic.UseVisualStyleBackColor = True
'
'btnUnderline
'
Me.btnUnderline.Location = New System.Drawing.Point(120, 438)
Me.btnUnderline.Name = "btnUnderline"
Me.btnUnderline.Size = New System.Drawing.Size(30, 30)
Me.btnUnderline.TabIndex = 25
Me.btnUnderline.Text = "U"
Me.btnUnderline.UseVisualStyleBackColor = True
'
'btnTextColor
'
Me.btnTextColor.Location = New System.Drawing.Point(200, 438)
Me.btnTextColor.Name = "btnTextColor"
Me.btnTextColor.Size = New System.Drawing.Size(30, 30)
Me.btnTextColor.TabIndex = 26
Me.btnTextColor.Text = "A"
Me.btnTextColor.UseVisualStyleBackColor = True
'
'btnBackColor
'
Me.btnBackColor.Location = New System.Drawing.Point(240, 438)
Me.btnBackColor.Name = "btnBackColor"
Me.btnBackColor.Size = New System.Drawing.Size(50, 30)
Me.btnBackColor.TabIndex = 27
Me.btnBackColor.Text = "BG"
Me.btnBackColor.UseVisualStyleBackColor = True
'
'btnAlignLeft
'
Me.btnAlignLeft.Location = New System.Drawing.Point(310, 438)
Me.btnAlignLeft.Name = "btnAlignLeft"
Me.btnAlignLeft.Size = New System.Drawing.Size(30, 30)
Me.btnAlignLeft.TabIndex = 28
Me.btnAlignLeft.Text = "L"
Me.btnAlignLeft.UseVisualStyleBackColor = True
'
'btnAlignCenter
'
Me.btnAlignCenter.Location = New System.Drawing.Point(350, 438)
Me.btnAlignCenter.Name = "btnAlignCenter"
Me.btnAlignCenter.Size = New System.Drawing.Size(30, 30)
Me.btnAlignCenter.TabIndex = 29
Me.btnAlignCenter.Text = "C"
Me.btnAlignCenter.UseVisualStyleBackColor = True
'
'btnAlignRight
'
Me.btnAlignRight.Location = New System.Drawing.Point(390, 438)
Me.btnAlignRight.Name = "btnAlignRight"
Me.btnAlignRight.Size = New System.Drawing.Size(30, 30)
Me.btnAlignRight.TabIndex = 30
Me.btnAlignRight.Text = "R"
Me.btnAlignRight.UseVisualStyleBackColor = True
'
'cmbFontFamily
'
Me.cmbFontFamily.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontFamily.FormattingEnabled = True
Me.cmbFontFamily.Location = New System.Drawing.Point(495, 438)
Me.cmbFontFamily.Name = "cmbFontFamily"
Me.cmbFontFamily.Size = New System.Drawing.Size(150, 21)
Me.cmbFontFamily.TabIndex = 31
'
'cmbFontSize
'
Me.cmbFontSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontSize.FormattingEnabled = True
Me.cmbFontSize.Location = New System.Drawing.Point(670, 438)
Me.cmbFontSize.Name = "cmbFontSize"
Me.cmbFontSize.Size = New System.Drawing.Size(60, 21)
Me.cmbFontSize.TabIndex = 32
'
'btnSpeichern
'
Me.btnSpeichern.Location = New System.Drawing.Point(1078, 1010)
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.Size = New System.Drawing.Size(75, 30)
Me.btnSpeichern.TabIndex = 5
Me.btnSpeichern.Text = "Speichern"
Me.btnSpeichern.UseVisualStyleBackColor = True
'
'btnLoeschen
'
Me.btnLoeschen.Location = New System.Drawing.Point(1159, 1010)
Me.btnLoeschen.Name = "btnLoeschen"
Me.btnLoeschen.Size = New System.Drawing.Size(75, 30)
Me.btnLoeschen.TabIndex = 6
Me.btnLoeschen.Text = "Löschen"
Me.btnLoeschen.UseVisualStyleBackColor = True
'
'btnAbbrechen
'
Me.btnAbbrechen.Location = New System.Drawing.Point(1240, 1010)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.Size = New System.Drawing.Size(75, 30)
Me.btnAbbrechen.TabIndex = 7
Me.btnAbbrechen.Text = "Abbrechen"
Me.btnAbbrechen.UseVisualStyleBackColor = True
'
'chkShowInactive
'
Me.chkShowInactive.AutoSize = True
Me.chkShowInactive.Location = New System.Drawing.Point(1205, 29)
Me.chkShowInactive.Name = "chkShowInactive"
Me.chkShowInactive.Size = New System.Drawing.Size(110, 17)
Me.chkShowInactive.TabIndex = 1
Me.chkShowInactive.Text = "Inaktive anzeigen"
Me.chkShowInactive.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(61, 589)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(45, 13)
Me.Label1.TabIndex = 37
Me.Label1.Text = "Priorität:"
'
'frmEintragTvNew
'
Me.ClientSize = New System.Drawing.Size(1342, 1052)
Me.Controls.Add(Me.chkShowInactive)
Me.Controls.Add(Me.btnAbbrechen)
Me.Controls.Add(Me.btnLoeschen)
Me.Controls.Add(Me.btnSpeichern)
Me.Controls.Add(Me.grpEingabe)
Me.Controls.Add(Me.dgvAVISOTV)
Me.Controls.Add(Me.lblStandort)
Me.Controls.Add(Me.cbxStandort)
Me.Controls.Add(Me.btnOpenSettings)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "frmEintragTvNew"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Einstellungen für TV-Anzeige"
CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpEingabe.ResumeLayout(False)
Me.grpEingabe.PerformLayout()
Me.tabControlZeilen.ResumeLayout(False)
Me.tabPageZeile1.ResumeLayout(False)
Me.tabPageZeile2.ResumeLayout(False)
Me.tabPageZeile3.ResumeLayout(False)
Me.grpWochentage.ResumeLayout(False)
Me.grpWochentage.PerformLayout()
CType(Me.nudPrioritaet, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
End Class

123
Aviso/frmEintragTvNew.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="colorDialogText.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

1065
Aviso/frmEintragTvNew.vb Normal file
View File

File diff suppressed because it is too large Load Diff

12
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -410,6 +410,7 @@ Partial Class frmHauptfenster
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.TVEditorNewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -611,7 +612,7 @@ Partial Class frmHauptfenster
'
'AvisoTVToolStripMenuItem
'
Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem})
Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem, Me.TVEditorNewToolStripMenuItem})
Me.AvisoTVToolStripMenuItem.Name = "AvisoTVToolStripMenuItem"
Me.AvisoTVToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.AvisoTVToolStripMenuItem.Text = "AvisoTV"
@@ -620,7 +621,7 @@ Partial Class frmHauptfenster
'InfoTextÄndernToolStripMenuItem
'
Me.InfoTextÄndernToolStripMenuItem.Name = "InfoTextÄndernToolStripMenuItem"
Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.InfoTextÄndernToolStripMenuItem.Text = "InfoText ändern"
'
'SecretAvisoToolStripMenuItem
@@ -2543,7 +2544,7 @@ Partial Class frmHauptfenster
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(77, 300)
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
@@ -3915,6 +3916,7 @@ Partial Class frmHauptfenster
Me.pnlLeft.Visible = False
'
'UsrCntlBenachrichtigungen2
'TVEditorNewToolStripMenuItem
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
@@ -3939,6 +3941,9 @@ Partial Class frmHauptfenster
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(252, 51)
Me.Panel7.TabIndex = 4
Me.TVEditorNewToolStripMenuItem.Name = "TVEditorNewToolStripMenuItem"
Me.TVEditorNewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew"
'
'frmHauptfenster
'
@@ -4393,4 +4398,5 @@ Partial Class frmHauptfenster
Friend WithEvents tbSndOffen As TabPage
Friend WithEvents tbSndFreigegeben As TabPage
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
End Class

38
Aviso/frmHauptfenster.vb
View File

@@ -1491,7 +1491,7 @@ Public Class frmHauptfenster
sqlStr &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If
' MsgBox(sqlStr)
' MsgBox(sqlStr)
'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
' " FROM Aviso " &
' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
@@ -4951,8 +4951,12 @@ Public Class frmHauptfenster
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!")
MsgBox(resp)
' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000"))
'
'Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!")
'MsgBox(resp)
'saveLukowaPDFsFromTherefore()
End Sub
@@ -5033,6 +5037,10 @@ Public Class frmHauptfenster
f.UNBOUND = True
f.Show()
End Sub
Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
frmEintragTvNew.ShowDialog(Me)
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -5117,19 +5125,21 @@ Public Class AvisoStatusFunctions
Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
If aviso Is Nothing Then Return False
Select Case aviso.Grenzstelle
Case "NEU", "DTB", "NKN"
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
Select Case aviso.Grenzstelle
Case "NEU", "DTB", "NKN"
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
'If printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Return True
' End If
End Select
'If printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Return True
' End If
End Select
End If
Return False
End Function
Public Function setAnkunft(AvisoID) As Boolean

342
Aviso/frmTvSettings.Designer.vb generated Normal file
View File

@@ -0,0 +1,342 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmTvSettings
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Die folgenden Steuerelemente werden benötigt.
Private WithEvents lblTileWidth As Label
Private WithEvents lblTileHeight As Label
Private WithEvents lblFontSizeLkwNummer As Label
Private WithEvents lblFontSizeDateTime As Label
Private WithEvents lblSeitenwechsel As Label
Private WithEvents lblTextBalkenHeight As Label ' Neues Label
Private WithEvents lblLogoSelection As Label ' Neues Label für Logo-Auswahl
Private WithEvents numTileWidth As NumericUpDown
Private WithEvents numTileHeight As NumericUpDown
Private WithEvents numFontSizeLkwNummer As NumericUpDown
Private WithEvents numFontSizeDateTime As NumericUpDown
Private WithEvents numSeitenwechsel As NumericUpDown
Private WithEvents numTextBalkenHeight As NumericUpDown ' Neues NumericUpDown
Private WithEvents cmbLogoSelection As ComboBox ' Neue ComboBox für Logo-Auswahl
Private WithEvents btnSave As Button
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lblTileWidth = New System.Windows.Forms.Label()
Me.lblTileHeight = New System.Windows.Forms.Label()
Me.lblFontSizeLkwNummer = New System.Windows.Forms.Label()
Me.lblFontSizeDateTime = New System.Windows.Forms.Label()
Me.lblSeitenwechsel = New System.Windows.Forms.Label()
Me.lblTextBalkenHeight = New System.Windows.Forms.Label()
Me.lblLogoSelection = New System.Windows.Forms.Label()
Me.numTileWidth = New System.Windows.Forms.NumericUpDown()
Me.numTileHeight = New System.Windows.Forms.NumericUpDown()
Me.numFontSizeLkwNummer = New System.Windows.Forms.NumericUpDown()
Me.numFontSizeDateTime = New System.Windows.Forms.NumericUpDown()
Me.numSeitenwechsel = New System.Windows.Forms.NumericUpDown()
Me.numTextBalkenHeight = New System.Windows.Forms.NumericUpDown()
Me.cmbLogoSelection = New System.Windows.Forms.ComboBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.numKachelRowGapInPercent = New System.Windows.Forms.NumericUpDown()
Me.Label1 = New System.Windows.Forms.Label()
Me.numTextFLaggeLeft = New System.Windows.Forms.NumericUpDown()
Me.numTextFlaggeBottom = New System.Windows.Forms.NumericUpDown()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTextFLaggeLeft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTextFlaggeBottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblTileWidth
'
Me.lblTileWidth.AutoSize = True
Me.lblTileWidth.Location = New System.Drawing.Point(22, 66)
Me.lblTileWidth.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTileWidth.Name = "lblTileWidth"
Me.lblTileWidth.Size = New System.Drawing.Size(87, 13)
Me.lblTileWidth.TabIndex = 0
Me.lblTileWidth.Text = "Kachel Breite (%)"
'
'lblTileHeight
'
Me.lblTileHeight.AutoSize = True
Me.lblTileHeight.Location = New System.Drawing.Point(21, 27)
Me.lblTileHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTileHeight.Name = "lblTileHeight"
Me.lblTileHeight.Size = New System.Drawing.Size(86, 13)
Me.lblTileHeight.TabIndex = 1
Me.lblTileHeight.Text = "Kachel Höhe (%)"
'
'lblFontSizeLkwNummer
'
Me.lblFontSizeLkwNummer.AutoSize = True
Me.lblFontSizeLkwNummer.Location = New System.Drawing.Point(21, 151)
Me.lblFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblFontSizeLkwNummer.Name = "lblFontSizeLkwNummer"
Me.lblFontSizeLkwNummer.Size = New System.Drawing.Size(133, 13)
Me.lblFontSizeLkwNummer.TabIndex = 2
Me.lblFontSizeLkwNummer.Text = "Schriftgröße LKW Nummer"
'
'lblFontSizeDateTime
'
Me.lblFontSizeDateTime.AutoSize = True
Me.lblFontSizeDateTime.Location = New System.Drawing.Point(21, 191)
Me.lblFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblFontSizeDateTime.Name = "lblFontSizeDateTime"
Me.lblFontSizeDateTime.Size = New System.Drawing.Size(121, 13)
Me.lblFontSizeDateTime.TabIndex = 3
Me.lblFontSizeDateTime.Text = "Schriftgröße Datum/Zeit"
'
'lblSeitenwechsel
'
Me.lblSeitenwechsel.AutoSize = True
Me.lblSeitenwechsel.Location = New System.Drawing.Point(21, 232)
Me.lblSeitenwechsel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblSeitenwechsel.Name = "lblSeitenwechsel"
Me.lblSeitenwechsel.Size = New System.Drawing.Size(134, 13)
Me.lblSeitenwechsel.TabIndex = 4
Me.lblSeitenwechsel.Text = "Seitenwechsel (Sekunden)"
'
'lblTextBalkenHeight
'
Me.lblTextBalkenHeight.AutoSize = True
Me.lblTextBalkenHeight.Location = New System.Drawing.Point(21, 273)
Me.lblTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTextBalkenHeight.Name = "lblTextBalkenHeight"
Me.lblTextBalkenHeight.Size = New System.Drawing.Size(110, 13)
Me.lblTextBalkenHeight.TabIndex = 5
Me.lblTextBalkenHeight.Text = "Text Balken Höhe (%)"
'
'lblLogoSelection
'
Me.lblLogoSelection.AutoSize = True
Me.lblLogoSelection.Location = New System.Drawing.Point(24, 389)
Me.lblLogoSelection.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblLogoSelection.Name = "lblLogoSelection"
Me.lblLogoSelection.Size = New System.Drawing.Size(85, 13)
Me.lblLogoSelection.TabIndex = 13
Me.lblLogoSelection.Text = "Logo auswählen"
'
'numTileWidth
'
Me.numTileWidth.DecimalPlaces = 2
Me.numTileWidth.Location = New System.Drawing.Point(165, 66)
Me.numTileWidth.Margin = New System.Windows.Forms.Padding(2)
Me.numTileWidth.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numTileWidth.Name = "numTileWidth"
Me.numTileWidth.Size = New System.Drawing.Size(90, 20)
Me.numTileWidth.TabIndex = 6
Me.numTileWidth.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numTileHeight
'
Me.numTileHeight.DecimalPlaces = 2
Me.numTileHeight.Location = New System.Drawing.Point(164, 25)
Me.numTileHeight.Margin = New System.Windows.Forms.Padding(2)
Me.numTileHeight.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numTileHeight.Name = "numTileHeight"
Me.numTileHeight.Size = New System.Drawing.Size(90, 20)
Me.numTileHeight.TabIndex = 7
Me.numTileHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numFontSizeLkwNummer
'
Me.numFontSizeLkwNummer.DecimalPlaces = 2
Me.numFontSizeLkwNummer.Location = New System.Drawing.Point(164, 149)
Me.numFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2)
Me.numFontSizeLkwNummer.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numFontSizeLkwNummer.Name = "numFontSizeLkwNummer"
Me.numFontSizeLkwNummer.Size = New System.Drawing.Size(90, 20)
Me.numFontSizeLkwNummer.TabIndex = 8
Me.numFontSizeLkwNummer.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'numFontSizeDateTime
'
Me.numFontSizeDateTime.DecimalPlaces = 2
Me.numFontSizeDateTime.Location = New System.Drawing.Point(164, 190)
Me.numFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2)
Me.numFontSizeDateTime.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numFontSizeDateTime.Name = "numFontSizeDateTime"
Me.numFontSizeDateTime.Size = New System.Drawing.Size(90, 20)
Me.numFontSizeDateTime.TabIndex = 9
Me.numFontSizeDateTime.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'numSeitenwechsel
'
Me.numSeitenwechsel.Location = New System.Drawing.Point(164, 230)
Me.numSeitenwechsel.Margin = New System.Windows.Forms.Padding(2)
Me.numSeitenwechsel.Maximum = New Decimal(New Integer() {3600, 0, 0, 0})
Me.numSeitenwechsel.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numSeitenwechsel.Name = "numSeitenwechsel"
Me.numSeitenwechsel.Size = New System.Drawing.Size(92, 20)
Me.numSeitenwechsel.TabIndex = 10
Me.numSeitenwechsel.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numTextBalkenHeight
'
Me.numTextBalkenHeight.DecimalPlaces = 2
Me.numTextBalkenHeight.Location = New System.Drawing.Point(164, 271)
Me.numTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2)
Me.numTextBalkenHeight.Name = "numTextBalkenHeight"
Me.numTextBalkenHeight.Size = New System.Drawing.Size(92, 20)
Me.numTextBalkenHeight.TabIndex = 11
Me.numTextBalkenHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'cmbLogoSelection
'
Me.cmbLogoSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbLogoSelection.FormattingEnabled = True
Me.cmbLogoSelection.Location = New System.Drawing.Point(167, 387)
Me.cmbLogoSelection.Margin = New System.Windows.Forms.Padding(2)
Me.cmbLogoSelection.Name = "cmbLogoSelection"
Me.cmbLogoSelection.Size = New System.Drawing.Size(91, 21)
Me.cmbLogoSelection.TabIndex = 14
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(167, 422)
Me.btnSave.Margin = New System.Windows.Forms.Padding(2)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(90, 24)
Me.btnSave.TabIndex = 15
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'numKachelRowGapInPercent
'
Me.numKachelRowGapInPercent.DecimalPlaces = 2
Me.numKachelRowGapInPercent.Location = New System.Drawing.Point(164, 106)
Me.numKachelRowGapInPercent.Margin = New System.Windows.Forms.Padding(2)
Me.numKachelRowGapInPercent.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numKachelRowGapInPercent.Name = "numKachelRowGapInPercent"
Me.numKachelRowGapInPercent.Size = New System.Drawing.Size(90, 20)
Me.numKachelRowGapInPercent.TabIndex = 17
Me.numKachelRowGapInPercent.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 108)
Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(123, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Abstand Kachel Text (%)"
'
'numTextFLaggeLeft
'
Me.numTextFLaggeLeft.DecimalPlaces = 2
Me.numTextFLaggeLeft.Location = New System.Drawing.Point(165, 312)
Me.numTextFLaggeLeft.Margin = New System.Windows.Forms.Padding(2)
Me.numTextFLaggeLeft.Name = "numTextFLaggeLeft"
Me.numTextFLaggeLeft.Size = New System.Drawing.Size(92, 20)
Me.numTextFLaggeLeft.TabIndex = 18
Me.numTextFLaggeLeft.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numTextFlaggeBottom
'
Me.numTextFlaggeBottom.DecimalPlaces = 2
Me.numTextFlaggeBottom.Location = New System.Drawing.Point(165, 348)
Me.numTextFlaggeBottom.Margin = New System.Windows.Forms.Padding(2)
Me.numTextFlaggeBottom.Name = "numTextFlaggeBottom"
Me.numTextFlaggeBottom.Size = New System.Drawing.Size(92, 20)
Me.numTextFlaggeBottom.TabIndex = 19
Me.numTextFlaggeBottom.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(22, 314)
Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(77, 13)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Flagge Left (%)"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(22, 350)
Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(92, 13)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Flagge Bottom (%)"
'
'frmTvSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(291, 506)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.numTextFlaggeBottom)
Me.Controls.Add(Me.numTextFLaggeLeft)
Me.Controls.Add(Me.numKachelRowGapInPercent)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.cmbLogoSelection)
Me.Controls.Add(Me.numTextBalkenHeight)
Me.Controls.Add(Me.numSeitenwechsel)
Me.Controls.Add(Me.numFontSizeDateTime)
Me.Controls.Add(Me.numFontSizeLkwNummer)
Me.Controls.Add(Me.numTileHeight)
Me.Controls.Add(Me.numTileWidth)
Me.Controls.Add(Me.lblLogoSelection)
Me.Controls.Add(Me.lblTextBalkenHeight)
Me.Controls.Add(Me.lblSeitenwechsel)
Me.Controls.Add(Me.lblFontSizeDateTime)
Me.Controls.Add(Me.lblFontSizeLkwNummer)
Me.Controls.Add(Me.lblTileHeight)
Me.Controls.Add(Me.lblTileWidth)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Margin = New System.Windows.Forms.Padding(2)
Me.MaximizeBox = False
Me.Name = "frmTvSettings"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TV Einstellungen"
CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTextFLaggeLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTextFlaggeBottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private WithEvents numKachelRowGapInPercent As NumericUpDown
Private WithEvents Label1 As Label
Private WithEvents numTextFLaggeLeft As NumericUpDown
Private WithEvents numTextFlaggeBottom As NumericUpDown
Private WithEvents Label2 As Label
Private WithEvents Label3 As Label
End Class

120
Aviso/frmTvSettings.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

145
Aviso/frmTvSettings.vb Normal file
View File

@@ -0,0 +1,145 @@
Imports System.Data.SqlClient
Imports AVISO.frmEintragTvNew
Imports VERAG_PROG_ALLGEMEIN
Partial Class frmTvSettings
Inherits System.Windows.Forms.Form
Private standortID As Integer
Private AvisoTvNewDAL As New cAvisoTvNewDAL()
Private list As New List(Of cAvisoTvNew)()
Public Sub New(standortID As Integer)
InitializeComponent()
Me.standortID = standortID
End Sub
' Ereignis-Handler für das Laden des Formulars
Private Sub frmTvSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
' Einstellungen aus der Datenbank laden
Dim settingsList As List(Of cTvSettings) = AvisoTvNewDAL.GetTvSettingsByStandort(standortID)
' ComboBox initialisieren
InitializeComboBox()
If settingsList IsNot Nothing AndAlso settingsList.Count > 0 Then
Dim settings As cTvSettings = settingsList(0)
numTileWidth.Value = If(settings.KachelWidthInPercent >= numTileWidth.Minimum AndAlso settings.KachelWidthInPercent <= numTileWidth.Maximum, CDec(settings.KachelWidthInPercent), 30)
numTileHeight.Value = If(settings.KachelHeightInPercent >= numTileHeight.Minimum AndAlso settings.KachelHeightInPercent <= numTileHeight.Maximum, CDec(settings.KachelHeightInPercent), 30)
numFontSizeLkwNummer.Value = If(settings.KachelFontSizeLkwNummer >= numFontSizeLkwNummer.Minimum AndAlso settings.KachelFontSizeLkwNummer <= numFontSizeLkwNummer.Maximum, CDec(settings.KachelFontSizeLkwNummer), 12)
numFontSizeDateTime.Value = If(settings.KachelFontSizeDateTime >= numFontSizeDateTime.Minimum AndAlso settings.KachelFontSizeDateTime <= numFontSizeDateTime.Maximum, CDec(settings.KachelFontSizeDateTime), 12)
numSeitenwechsel.Value = If(settings.SeitenwechselInSek >= numSeitenwechsel.Minimum AndAlso settings.SeitenwechselInSek <= numSeitenwechsel.Maximum, CDec(settings.SeitenwechselInSek), 30)
numTextBalkenHeight.Value = If(settings.TextBalkenHeightInPercent >= numTextBalkenHeight.Minimum AndAlso settings.TextBalkenHeightInPercent <= numTextBalkenHeight.Maximum, CDec(settings.TextBalkenHeightInPercent), 30)
numKachelRowGapInPercent.Value = If(settings.KachelRowGapInPercent >= numKachelRowGapInPercent.Minimum AndAlso settings.KachelRowGapInPercent <= numKachelRowGapInPercent.Maximum, CDec(settings.KachelRowGapInPercent), 15)
numTextFlaggeBottom.Value = If(settings.TextFlaggeBottom >= numTextFlaggeBottom.Minimum AndAlso settings.TextFlaggeBottom <= numTextFlaggeBottom.Maximum, CDec(settings.TextFlaggeBottom), 15)
numTextFLaggeLeft.Value = If(settings.TextFlaggeLeft >= numTextFLaggeLeft.Minimum AndAlso settings.TextFlaggeLeft <= numTextFLaggeLeft.Maximum, CDec(settings.TextFlaggeLeft), 15)
' Logo-Auswahl setzen
cmbLogoSelection.SelectedValue = settings.SelectedLogoValue
' Überprüfen, ob die Auswahl erfolgreich war
If cmbLogoSelection.SelectedValue Is Nothing Then
' Wenn nicht, setze auf den ersten Eintrag
cmbLogoSelection.SelectedIndex = 0
End If
Else
' Standardwerte verwenden, falls keine Einstellungen vorhanden sind
SetDefaultValues()
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Laden der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
SetDefaultValues()
End Try
End Sub
' Klasse für ComboBox-Elemente
Public Class ComboBoxItem
Public Property Display As String
Public Property Value As String
Public Sub New(display As String, value As String)
Me.Display = display
Me.Value = value
End Sub
Public Overrides Function ToString() As String
Return Display
End Function
End Class
' Methode zur Initialisierung der ComboBox
Private Sub InitializeComboBox()
' Legen Sie die DisplayMember und ValueMember fest
cmbLogoSelection.DisplayMember = "Display"
cmbLogoSelection.ValueMember = "Value"
' Erstellen Sie eine Liste von ComboBoxItem-Objekten
Dim logoItems As New List(Of ComboBoxItem) From {
New ComboBoxItem("VERAG AG", "verag.png"),
New ComboBoxItem("ATILLA", "atilla.png"),
New ComboBoxItem("ATILLA TÜRKIYE", "atilla_turkiye.jpg"),
New ComboBoxItem("FRONTOFFICE_SUBEN", "frontoffice_suben.jpg"),
New ComboBoxItem("IMEX", "imex.png"),
New ComboBoxItem("UNISPED", "unisped.jpg")
}
' Binden Sie die Liste als DataSource
cmbLogoSelection.DataSource = logoItems
' Optional: Setzen Sie die Standardauswahl
If logoItems.Count > 0 Then
cmbLogoSelection.SelectedIndex = 0
End If
End Sub
' Methode zum Setzen der Standardwerte
Private Sub SetDefaultValues()
numTileWidth.Value = 30
numTileHeight.Value = 30
numFontSizeLkwNummer.Value = 12
numFontSizeDateTime.Value = 12
numSeitenwechsel.Value = 30
numTextBalkenHeight.Value = 30
numKachelRowGapInPercent.Value = 15
numTextFlaggeBottom.Value = 15
numTextFLaggeLeft.Value = 15
' Sicherstellen, dass die ComboBox initialisiert ist
If cmbLogoSelection.Items.Count > 0 Then
cmbLogoSelection.SelectedIndex = 0
End If
End Sub
' Ereignis-Handler für den Speichern-Button
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Try
' Holen Sie sich das ausgewählte ComboBoxItem
Dim selectedItem As ComboBoxItem = CType(cmbLogoSelection.SelectedItem, ComboBoxItem)
Dim selectedValue As String = If(selectedItem IsNot Nothing, selectedItem.Value, String.Empty)
Dim settings As New cTvSettings() With {
.StandortID = standortID,
.KachelWidthInPercent = CDbl(numTileWidth.Value),
.KachelHeightInPercent = CDbl(numTileHeight.Value),
.KachelFontSizeLkwNummer = CDbl(numFontSizeLkwNummer.Value),
.KachelFontSizeDateTime = CDbl(numFontSizeDateTime.Value),
.SeitenwechselInSek = CDbl(numSeitenwechsel.Value),
.TextBalkenHeightInPercent = CDbl(numTextBalkenHeight.Value),
.KachelRowGapInPercent = CDbl(numKachelRowGapInPercent.Value),
.TextFlaggeBottom = CDbl(numTextFlaggeBottom.Value),
.TextFlaggeLeft = CDbl(numTextFLaggeLeft.Value),
.SelectedLogoValue = selectedValue
}
' Einstellungen in der Datenbank speichern
AvisoTvNewDAL.SaveTvSettings(settings)
MessageBox.Show("Einstellungen wurden erfolgreich gespeichert!", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
Catch ex As Exception
MessageBox.Show("Fehler beim Speichern der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

8
Aviso/usrcntlAktDetails.vb
View File

@@ -876,7 +876,7 @@ Public Class usrcntlAktDetails
End Sub
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,78,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,14,25,28,29,30,35,46,47,59,94,78,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
@@ -1201,7 +1201,7 @@ Public Class usrcntlAktDetails
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "46"
MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
' MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "36"
@@ -1572,7 +1572,7 @@ Public Class usrcntlAktDetails
Select Case code
Case 59
Return True
Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
Case 2, 4, 6, 8, 10, 12, 30, 37, 34
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
Return True
End If
@@ -2647,9 +2647,9 @@ Public Class usrcntlAktDetails
If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then
If FUNC.setAbgeschlossen(AvisoID, False) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_AKTIV(AvisoID)
reload(AvisoID)
End If
End If
End Sub

2
AvisoTV/frmAnzeige.vb
View File

@@ -394,7 +394,7 @@ Public Class frmAnzeige
r.Cells(0).Style.Font = Font1_MESS
Dim doimage As Image = Nothing
Select Case r.Cells(0).Value.ToString
Case "PASSPORT" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case ",pn" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case "DOKUMENT" : doimage = My.Resources.passport : r.Cells(0).Value = "PROBLEM" ' r.Cells(0).Value = "PASS"
Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
End Select

6
AvisoTV/packages.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
</packages>

BIN
Diverses/Thumbs.db Normal file
View File

Binary file not shown.

20
Gemeinsames/App.config
View File

@@ -1,6 +1,22 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
</startup>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

6
Gemeinsames/packages.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
<package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
</packages>