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

frmHauotfensterNew

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-14 08:41:23 +01:00
parent e6f557a4c2
commit 3b8623f46f
42 changed files with 6037 additions and 2964 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2057
Aviso/AktenErfassung/frmEintragAviso.designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1351
Aviso/AktenErfassung/frmEintragAviso.resx Normal file
View File

File diff suppressed because it is too large Load Diff

1933
Aviso/AktenErfassung/frmEintragAviso.vb Normal file
View File

File diff suppressed because it is too large Load Diff

320
Aviso/AktenErfassung/frmEintragAvisoInfo.designer.vb generated Normal file
View File

@@ -0,0 +1,320 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmEintragAvisoInfo
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
'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.btnOK = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtDatum = New System.Windows.Forms.TextBox()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.txtInfoNeu = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtInfo = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtFrächter = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtLKW_Nr = New System.Windows.Forms.TextBox()
Me.btnAnkunft = New System.Windows.Forms.Button()
Me.btnFreigabe = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.lblStatus = New System.Windows.Forms.Label()
Me.txtÄnderungen = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(96, 356)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(80, 40)
Me.btnOK.TabIndex = 1
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(23, 23)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(55, 13)
Me.Label2.TabIndex = 20
Me.Label2.Text = "erfasst am"
'
'txtDatum
'
Me.txtDatum.BackColor = System.Drawing.SystemColors.Info
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatum.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtDatum.Location = New System.Drawing.Point(100, 20)
Me.txtDatum.MaxLength = 0
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.ReadOnly = True
Me.txtDatum.Size = New System.Drawing.Size(73, 20)
Me.txtDatum.TabIndex = 0
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(204, 356)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(80, 40)
Me.btnAbbruch.TabIndex = 2
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtInfoNeu
'
Me.txtInfoNeu.AcceptsReturn = True
Me.txtInfoNeu.Location = New System.Drawing.Point(23, 232)
Me.txtInfoNeu.MaxLength = 0
Me.txtInfoNeu.Multiline = True
Me.txtInfoNeu.Name = "txtInfoNeu"
Me.txtInfoNeu.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfoNeu.Size = New System.Drawing.Size(372, 85)
Me.txtInfoNeu.TabIndex = 0
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(23, 216)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(242, 13)
Me.Label3.TabIndex = 20
Me.Label3.Text = "zusätzlicher Infotext (wird automatisch angehängt)"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(23, 83)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(119, 13)
Me.Label1.TabIndex = 20
Me.Label1.Text = "bereits erfasster Infotext"
'
'txtInfo
'
Me.txtInfo.AcceptsReturn = True
Me.txtInfo.BackColor = System.Drawing.SystemColors.Info
Me.txtInfo.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtInfo.Location = New System.Drawing.Point(23, 99)
Me.txtInfo.MaxLength = 0
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.ReadOnly = True
Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfo.Size = New System.Drawing.Size(372, 102)
Me.txtInfo.TabIndex = 6
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(259, 23)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(46, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "Frächter"
'
'txtFrächter
'
Me.txtFrächter.BackColor = System.Drawing.SystemColors.Info
Me.txtFrächter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFrächter.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtFrächter.Location = New System.Drawing.Point(312, 20)
Me.txtFrächter.MaxLength = 0
Me.txtFrächter.Name = "txtFrächter"
Me.txtFrächter.ReadOnly = True
Me.txtFrächter.Size = New System.Drawing.Size(242, 20)
Me.txtFrächter.TabIndex = 0
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(259, 49)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(47, 13)
Me.Label5.TabIndex = 20
Me.Label5.Text = "Avisierer"
'
'txtAuftraggeber
'
Me.txtAuftraggeber.BackColor = System.Drawing.SystemColors.Info
Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftraggeber.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtAuftraggeber.Location = New System.Drawing.Point(312, 46)
Me.txtAuftraggeber.MaxLength = 0
Me.txtAuftraggeber.Name = "txtAuftraggeber"
Me.txtAuftraggeber.ReadOnly = True
Me.txtAuftraggeber.Size = New System.Drawing.Size(242, 20)
Me.txtAuftraggeber.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(23, 49)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(45, 13)
Me.Label6.TabIndex = 20
Me.Label6.Text = "LKW-Nr"
'
'txtLKW_Nr
'
Me.txtLKW_Nr.BackColor = System.Drawing.SystemColors.Info
Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW_Nr.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtLKW_Nr.Location = New System.Drawing.Point(100, 46)
Me.txtLKW_Nr.MaxLength = 0
Me.txtLKW_Nr.Name = "txtLKW_Nr"
Me.txtLKW_Nr.ReadOnly = True
Me.txtLKW_Nr.Size = New System.Drawing.Size(132, 20)
Me.txtLKW_Nr.TabIndex = 0
'
'btnAnkunft
'
Me.btnAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAnkunft.ForeColor = System.Drawing.Color.Blue
Me.btnAnkunft.Location = New System.Drawing.Point(422, 372)
Me.btnAnkunft.Name = "btnAnkunft"
Me.btnAnkunft.Size = New System.Drawing.Size(154, 58)
Me.btnAnkunft.TabIndex = 9
Me.btnAnkunft.TabStop = False
Me.btnAnkunft.Text = "VERAG Ankunft"
Me.btnAnkunft.UseVisualStyleBackColor = True
Me.btnAnkunft.Visible = False
'
'btnFreigabe
'
Me.btnFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnFreigabe.ForeColor = System.Drawing.Color.Green
Me.btnFreigabe.Location = New System.Drawing.Point(621, 372)
Me.btnFreigabe.Name = "btnFreigabe"
Me.btnFreigabe.Size = New System.Drawing.Size(148, 58)
Me.btnFreigabe.TabIndex = 9
Me.btnFreigabe.TabStop = False
Me.btnFreigabe.Text = "VERAG Freigabe"
Me.btnFreigabe.UseVisualStyleBackColor = True
Me.btnFreigabe.Visible = False
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(407, 340)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(80, 13)
Me.Label8.TabIndex = 20
Me.Label8.Text = "aktueller Status"
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon
Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStatus.ForeColor = System.Drawing.Color.Green
Me.lblStatus.Location = New System.Drawing.Point(493, 332)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(123, 24)
Me.lblStatus.TabIndex = 20
Me.lblStatus.Text = "freigegeben"
'
'txtÄnderungen
'
Me.txtÄnderungen.AcceptsReturn = True
Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info
Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtÄnderungen.Location = New System.Drawing.Point(407, 99)
Me.txtÄnderungen.MaxLength = 0
Me.txtÄnderungen.Multiline = True
Me.txtÄnderungen.Name = "txtÄnderungen"
Me.txtÄnderungen.ReadOnly = True
Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtÄnderungen.Size = New System.Drawing.Size(372, 218)
Me.txtÄnderungen.TabIndex = 6
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(407, 83)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(65, 13)
Me.Label9.TabIndex = 20
Me.Label9.Text = "Änderungen"
'
'frmEintragAvisoInfo
'
Me.AcceptButton = Me.btnOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(202, Byte), Integer), CType(CType(225, Byte), Integer), CType(CType(255, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.txtÄnderungen)
Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.txtInfoNeu)
Me.Controls.Add(Me.btnFreigabe)
Me.Controls.Add(Me.btnAnkunft)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtLKW_Nr)
Me.Controls.Add(Me.txtAuftraggeber)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtFrächter)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtDatum)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnOK)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmEintragAvisoInfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Eintrag zusätzliche Info zu Aviso"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtDatum As System.Windows.Forms.TextBox
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtInfoNeu As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtInfo As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtFrächter As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtAuftraggeber As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
Friend WithEvents btnAnkunft As System.Windows.Forms.Button
Friend WithEvents btnFreigabe As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
End Class

120
Aviso/AktenErfassung/frmEintragAvisoInfo.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>

197
Aviso/AktenErfassung/frmEintragAvisoInfo.vb Normal file
View File

@@ -0,0 +1,197 @@
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class frmEintragAvisoInfo
'Public frmHilf As frmTabelleAviso
Dim AvisoDAL As New cAvisoDAL
Dim myAviso As New cAviso
Dim hÄnderung As Boolean = False
Dim Neuanlage As Boolean = False
Dim hStatus As Integer
Public Sub New()
InitializeComponent()
Icon = cMeineFunktionenAVISO.GetProgrammIcon
End Sub
Private Sub frmEintragAvisoInfo_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Escape händisch abfangen und auf Abbruch-Taste legen
If e.KeyCode = Keys.Escape Then
btnAbbruch.PerformClick()
End If
End Sub
Private Sub frmEintragAvisoInfo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.CenterToParent()
'ausgewählter Datensatz wird geladen
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
txtInfoNeu.Text = ""
'Werte(zuweisen)
txtDatum.Text = Format(myAviso.Datum, "dd.MM.yyyy")
txtFrächter.Text = myAviso.Frächter
txtAuftraggeber.Text = myAviso.Auftraggeber
txtInfo.Text = myAviso.Info.Trim
txtLKW_Nr.Text = myAviso.LKW_Nr
txtÄnderungen.Text = myAviso.Änderungen.Trim
hStatus = myAviso.Status
Select Case hStatus
Case cGlobal.Status_Ankunft
lblStatus.Text = "Ankunft"
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Blue
btnFreigabe.Visible = True
Case cGlobal.Status_Erfasst
lblStatus.Text = "erfasst"
lblStatus.ForeColor = Color.Red
btnAnkunft.Visible = True
Case cGlobal.Status_Freigegeben
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Green
Case cGlobal.Status_NichtEingetroffen
lblStatus.Text = "LKW nicht eingetroffen"
lblStatus.ForeColor = Color.DarkGray
btnAnkunft.Visible = True
Case Else
lblStatus.Text = ""
End Select
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
End Sub
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
'If hÄnderung Then
' Dim antwort As MsgBoxResult = MsgBox("Wollen Sie wirklich abbrechen?" & vbCrLf & vbCrLf & "Alle Änderungen gehen dabei verloren.", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
' "Dateneingabe wird abgebrochen")
' If antwort = vbNo Then
' Exit Sub
' End If
'End If
Me.Close()
End Sub
'Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtInfo.GotFocus
' CType(sender, TextBox).SelectAll()
'End Sub
'Private Sub txtBilanzart_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtBilanzart.TextChanged, txtBilanzart.TextChanged, txtAIS_Bilanzart.TextChanged, txtInfo.TextChanged, txtAviso.TextChanged
' hÄnderung = True 'es wurde etwas geändert
'End Sub
'Private Sub txtAviso_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
' 'Es sind nur Zahleneingaben erlaubt
' Dim asc As Integer = Convert.ToInt32(e.KeyChar)
' Select Case asc
' 'Folgende Tasten sind erlaubt
' '8 = Rücktaste (Back)
' '13 = Enter
' '27 = Esc
' '48 To 57 = 0 bis 9
' Case 8, 13, 27, 48 To 57
' Case Else
' e.Handled = True
' End Select
'End Sub
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
'nur speichern, wenn Infotext eingetragen wurde
If txtInfoNeu.Text.Trim <> "" Then
Dim aendart As String = "Info"
Dim aendtext As String = "Info '" & Trim(txtInfoNeu.Text.Trim) & "' hinzugefügt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
myAviso.Änderungen = "Info '" & Trim(txtInfoNeu.Text.Trim) & "' hinzugefügt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & txtÄnderungen.Text
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
If txtInfo.Text = "" Then
myAviso.Info = txtInfoNeu.Text.Trim
Else
If txtInfo.Text.Trim.EndsWith(vbCrLf) Then
myAviso.Info += txtInfoNeu.Text.Trim
Else
myAviso.Info += "; " & txtInfoNeu.Text.Trim
End If
End If
Dim tmpid = AvisoDAL.SpeichernAviso(myAviso)
AvisoDAL.addAenderung(tmpid, aendart, aendtext)
End If
'Jetzt wird Fenster geschlossen
Me.Close()
End Sub
Private Sub btnAnkunft_Click(sender As System.Object, e As System.EventArgs) Handles btnAnkunft.Click
If hStatus = cGlobal.Status_Freigegeben Then
MsgBox("Aviso ist bereits auf FREIGABE gesetzt!", vbInformation)
Exit Sub
End If
If hStatus = cGlobal.Status_Ankunft Then
MsgBox("Aviso ist bereits auf ANKUNFT gesetzt!", vbInformation)
Exit Sub
End If
myAviso.Status = cGlobal.Status_Ankunft
myAviso.Ankunft = Now
myAviso.Änderungen = "auf ANKUNFT gesetzt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
Dim tmpid = AvisoDAL.SpeichernAviso(myAviso)
AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
MsgBox("Status wurde auf ANKUNFT gesetzt.", vbInformation)
Me.Close()
End Sub
Private Sub btnFreigabe_Click(sender As System.Object, e As System.EventArgs) Handles btnFreigabe.Click
If hStatus <> cGlobal.Status_Ankunft Then
MsgBox("Aviso ist nicht auf ANKUNFT gesetzt!", vbInformation)
Exit Sub
End If
myAviso.Status = cGlobal.Status_Freigegeben
myAviso.Freigabe = Now
If myAviso.Ankunft <> LeerDatum Then
myAviso.Dauer = CInt(DateDiff(DateInterval.Hour, myAviso.Ankunft, Now))
If myAviso.Dauer = 0 Then myAviso.Dauer = 1
End If
myAviso.Änderungen = "auf FREIGABE gesetzt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
Dim tmpid = AvisoDAL.SpeichernAviso(myAviso)
AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
MsgBox("Status wurde auf FREIGABE gesetzt.", vbInformation)
Me.Close()
End Sub
Private Sub txtInfoNeu_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtInfoNeu.KeyDown
' 'Es sind nur Zahleneingaben erlaubt
' Dim asc As Integer = Convert.ToInt32(e.KeyChar)
' Select Case asc
' 'Folgende Tasten sind erlaubt
' '8 = Rücktaste (Back)
' '13 = Enter
' '27 = Esc
' '48 To 57 = 0 bis 9
' Case 8, 13, 27, 48 To 57
' Case Else
' e.Handled = True
' End Select
If e.KeyCode = Keys.Enter Then
btnOK_Click(sender, e) 'Enter löst automatische Speicherung aus
End If
End Sub
End Class

532
Aviso/AktenErfassung/frmEintragSammelakt.designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEintragSammelakt
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
'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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEintragSammelakt))
Me.btnOK = New System.Windows.Forms.Button()
Me.lblErfAm = New System.Windows.Forms.Label()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.txtInfo = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblLkwKennzeichen = New System.Windows.Forms.Label()
Me.txtÄnderungen = New System.Windows.Forms.TextBox()
Me.lblAenderungen = New System.Windows.Forms.Label()
Me.dtpDatum = New System.Windows.Forms.DateTimePicker()
Me.txtLKW_Nr = New System.Windows.Forms.TextBox()
Me.lblStatus = New System.Windows.Forms.Label()
Me.lblStatus2 = New System.Windows.Forms.Label()
Me.lblAktenuebersicht = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.lblErr_Kunde = New System.Windows.Forms.Label()
Me.lblErr_Aktentyp = New System.Windows.Forms.Label()
Me.lblErr_LKW = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.btnAuftraggeber = New System.Windows.Forms.Button()
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrErfasstDat = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.grpAviso.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOK.Location = New System.Drawing.Point(21, 489)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(271, 45)
Me.btnOK.TabIndex = 24
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblErfAm
'
Me.lblErfAm.AutoSize = True
Me.lblErfAm.Location = New System.Drawing.Point(220, 12)
Me.lblErfAm.Name = "lblErfAm"
Me.lblErfAm.Size = New System.Drawing.Size(59, 13)
Me.lblErfAm.TabIndex = 2
Me.lblErfAm.Text = "Erfasst am:"
'
'btnAbbruch
'
Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAbbruch.Location = New System.Drawing.Point(298, 489)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(111, 45)
Me.btnAbbruch.TabIndex = 27
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtInfo
'
Me.txtInfo.AcceptsReturn = True
Me.txtInfo.Location = New System.Drawing.Point(424, 356)
Me.txtInfo.MaxLength = 240
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfo.Size = New System.Drawing.Size(360, 75)
Me.txtInfo.TabIndex = 25
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(421, 340)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(25, 13)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Info"
'
'lblLkwKennzeichen
'
Me.lblLkwKennzeichen.AutoSize = True
Me.lblLkwKennzeichen.Location = New System.Drawing.Point(6, 77)
Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen"
Me.lblLkwKennzeichen.Size = New System.Drawing.Size(96, 13)
Me.lblLkwKennzeichen.TabIndex = 11
Me.lblLkwKennzeichen.Text = "Aktenbezeichnung"
'
'txtÄnderungen
'
Me.txtÄnderungen.AcceptsReturn = True
Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info
Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtÄnderungen.Location = New System.Drawing.Point(424, 466)
Me.txtÄnderungen.MaxLength = 0
Me.txtÄnderungen.Multiline = True
Me.txtÄnderungen.Name = "txtÄnderungen"
Me.txtÄnderungen.ReadOnly = True
Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtÄnderungen.Size = New System.Drawing.Size(360, 68)
Me.txtÄnderungen.TabIndex = 13
Me.txtÄnderungen.TabStop = False
'
'lblAenderungen
'
Me.lblAenderungen.AutoSize = True
Me.lblAenderungen.Location = New System.Drawing.Point(421, 450)
Me.lblAenderungen.Name = "lblAenderungen"
Me.lblAenderungen.Size = New System.Drawing.Size(65, 13)
Me.lblAenderungen.TabIndex = 12
Me.lblAenderungen.Text = "Änderungen"
'
'dtpDatum
'
Me.dtpDatum.CustomFormat = "dd.MM.yyyy HH:mm"
Me.dtpDatum.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtpDatum.Location = New System.Drawing.Point(285, 7)
Me.dtpDatum.Name = "dtpDatum"
Me.dtpDatum.Size = New System.Drawing.Size(130, 20)
Me.dtpDatum.TabIndex = 0
'
'txtLKW_Nr
'
Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW_Nr.Location = New System.Drawing.Point(108, 69)
Me.txtLKW_Nr.MaxLength = 30
Me.txtLKW_Nr.Name = "txtLKW_Nr"
Me.txtLKW_Nr.Size = New System.Drawing.Size(289, 26)
Me.txtLKW_Nr.TabIndex = 15
'
'lblStatus
'
Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon
Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStatus.ForeColor = System.Drawing.Color.Green
Me.lblStatus.Location = New System.Drawing.Point(516, 7)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(268, 20)
Me.lblStatus.TabIndex = 4
Me.lblStatus.Text = "freigegeben"
'
'lblStatus2
'
Me.lblStatus2.AutoSize = True
Me.lblStatus2.Location = New System.Drawing.Point(430, 12)
Me.lblStatus2.Name = "lblStatus2"
Me.lblStatus2.Size = New System.Drawing.Size(80, 13)
Me.lblStatus2.TabIndex = 3
Me.lblStatus2.Text = "aktueller Status"
'
'lblAktenuebersicht
'
Me.lblAktenuebersicht.AutoSize = True
Me.lblAktenuebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 11)
Me.lblAktenuebersicht.Name = "lblAktenuebersicht"
Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20)
Me.lblAktenuebersicht.TabIndex = 1
Me.lblAktenuebersicht.Text = "Aktenübersicht"
'
'grpAviso
'
Me.grpAviso.Controls.Add(Me.lblErr_Kunde)
Me.grpAviso.Controls.Add(Me.lblErr_Aktentyp)
Me.grpAviso.Controls.Add(Me.lblErr_LKW)
Me.grpAviso.Controls.Add(Me.Label5)
Me.grpAviso.Controls.Add(Me.Label4)
Me.grpAviso.Controls.Add(Me.Label1)
Me.grpAviso.Controls.Add(Me.MyComboBox1)
Me.grpAviso.Controls.Add(Me.PictureBox1)
Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
Me.grpAviso.Controls.Add(Me.dgvAnhaenge)
Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
Me.grpAviso.Controls.Add(Me.lblLkwKennzeichen)
Me.grpAviso.Location = New System.Drawing.Point(12, 49)
Me.grpAviso.Name = "grpAviso"
Me.grpAviso.Size = New System.Drawing.Size(403, 434)
Me.grpAviso.TabIndex = 7
Me.grpAviso.TabStop = False
Me.grpAviso.Text = "CBAM"
'
'lblErr_Kunde
'
Me.lblErr_Kunde.AutoSize = True
Me.lblErr_Kunde.ForeColor = System.Drawing.Color.Red
Me.lblErr_Kunde.Location = New System.Drawing.Point(105, 124)
Me.lblErr_Kunde.Name = "lblErr_Kunde"
Me.lblErr_Kunde.Size = New System.Drawing.Size(130, 13)
Me.lblErr_Kunde.TabIndex = 61
Me.lblErr_Kunde.Text = "Kunde darf nicht leer sein!"
Me.lblErr_Kunde.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Kunde.Visible = False
'
'lblErr_Aktentyp
'
Me.lblErr_Aktentyp.AutoSize = True
Me.lblErr_Aktentyp.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aktentyp.Location = New System.Drawing.Point(105, 13)
Me.lblErr_Aktentyp.Name = "lblErr_Aktentyp"
Me.lblErr_Aktentyp.Size = New System.Drawing.Size(141, 13)
Me.lblErr_Aktentyp.TabIndex = 60
Me.lblErr_Aktentyp.Text = "Aktentyp darf nicht leer sein!"
Me.lblErr_Aktentyp.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aktentyp.Visible = False
'
'lblErr_LKW
'
Me.lblErr_LKW.AutoSize = True
Me.lblErr_LKW.ForeColor = System.Drawing.Color.Red
Me.lblErr_LKW.Location = New System.Drawing.Point(105, 58)
Me.lblErr_LKW.Name = "lblErr_LKW"
Me.lblErr_LKW.Size = New System.Drawing.Size(188, 13)
Me.lblErr_LKW.TabIndex = 54
Me.lblErr_LKW.Text = "Aktenbezeichnung darf nicht leer sein!"
Me.lblErr_LKW.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_LKW.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 132)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(53, 13)
Me.Label5.TabIndex = 59
Me.Label5.Text = "Anhänge:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(6, 35)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(59, 13)
Me.Label4.TabIndex = 58
Me.Label4.Text = "Akten-Typ:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 104)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 57
Me.Label1.Text = "Kunde:"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(108, 27)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(198, 28)
Me.MyComboBox1.TabIndex = 56
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.cbam_s
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(312, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(85, 58)
Me.PictureBox1.TabIndex = 48
Me.PictureBox1.TabStop = False
'
'kdAuftraggeber
'
Me.kdAuftraggeber._AlleFirmenCLUSTER = False
Me.kdAuftraggeber._AllowSetValue = True
Me.kdAuftraggeber._autoSizeGross = False
Me.kdAuftraggeber._display_Name1 = False
Me.kdAuftraggeber._displayAVISO_Email = True
Me.kdAuftraggeber._displayFullName = False
Me.kdAuftraggeber._displayWoelflKd = False
Me.kdAuftraggeber._hideIfListEmpty = True
Me.kdAuftraggeber._loadKdData = False
Me.kdAuftraggeber._searchName1 = True
Me.kdAuftraggeber._UseFIRMA = ""
Me.kdAuftraggeber._ValueKdAndName = True
Me.kdAuftraggeber.dgvpos = "LEFT"
Me.kdAuftraggeber.KdName = ""
Me.kdAuftraggeber.KdNr = "-1"
Me.kdAuftraggeber.kdNrField = Nothing
Me.kdAuftraggeber.KdNrNullInt = Nothing
Me.kdAuftraggeber.Location = New System.Drawing.Point(108, 101)
Me.kdAuftraggeber.Name = "kdAuftraggeber"
Me.kdAuftraggeber.nurAktive = False
Me.kdAuftraggeber.searchActive = True
Me.kdAuftraggeber.Size = New System.Drawing.Size(258, 20)
Me.kdAuftraggeber.TabIndex = 42
Me.kdAuftraggeber.TIMER_SEARCH = True
Me.kdAuftraggeber.usrcntl = Nothing
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
Me.dgvAnhaenge.Location = New System.Drawing.Point(9, 148)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(388, 286)
Me.dgvAnhaenge.TabIndex = 17
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'clmnPfad
'
Me.clmnPfad.HeaderText = "Pfad"
Me.clmnPfad.Name = "clmnPfad"
Me.clmnPfad.ReadOnly = True
Me.clmnPfad.Visible = False
'
'btnAuftraggeber
'
Me.btnAuftraggeber.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAuftraggeber.Enabled = False
Me.btnAuftraggeber.FlatAppearance.BorderSize = 0
Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image)
Me.btnAuftraggeber.Location = New System.Drawing.Point(372, 97)
Me.btnAuftraggeber.Name = "btnAuftraggeber"
Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 24)
Me.btnAuftraggeber.TabIndex = 43
Me.btnAuftraggeber.TabStop = False
Me.btnAuftraggeber.Tag = "Kunde hinzufügen"
Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAuftraggeber.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btnAuftraggeber.UseVisualStyleBackColor = True
'
'lblErrFmZollKdNr
'
Me.lblErrFmZollKdNr.AutoSize = True
Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 372)
Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
Me.lblErrFmZollKdNr.TabIndex = 26
Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
Me.lblErrFmZollKdNr.Visible = False
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Location = New System.Drawing.Point(424, 49)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(359, 37)
Me.Button3.TabIndex = 11
Me.Button3.Text = "Weiter zu den Unterakten"
Me.Button3.UseVisualStyleBackColor = True
'
'cboFirma
'
Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFirma._allowFreiText = False
Me.cboFirma._value = ""
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(285, 28)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(130, 21)
Me.cboFirma.TabIndex = 6
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(220, 31)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "FIRMA:"
'
'lblErrErfasstDat
'
Me.lblErrErfasstDat.AutoSize = True
Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
Me.lblErrErfasstDat.TabIndex = 52
Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErrErfasstDat.Visible = False
'
'Label12
'
Me.Label12.BackColor = System.Drawing.Color.Transparent
Me.Label12.Location = New System.Drawing.Point(421, 432)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(372, 18)
Me.Label12.TabIndex = 29
Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. "
'
'Panel1
'
Me.Panel1.Location = New System.Drawing.Point(424, 92)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(358, 245)
Me.Panel1.TabIndex = 53
'
'frmEintragAvisoCBAM
'
Me.AcceptButton = Me.btnOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(792, 564)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cboFirma)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.grpAviso)
Me.Controls.Add(Me.lblAktenuebersicht)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.lblStatus2)
Me.Controls.Add(Me.lblErfAm)
Me.Controls.Add(Me.txtÄnderungen)
Me.Controls.Add(Me.dtpDatum)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.lblAenderungen)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.lblErrFmZollKdNr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.lblErrErfasstDat)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmEintragAvisoCBAM"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sammelaktakt erfassen/bearbeiten"
Me.grpAviso.ResumeLayout(False)
Me.grpAviso.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents lblErfAm As System.Windows.Forms.Label
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtInfo As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label
Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
Friend WithEvents lblAenderungen As System.Windows.Forms.Label
Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
Friend WithEvents txtDatum As System.Windows.Forms.TextBox
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents lblStatus2 As System.Windows.Forms.Label
Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker
Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label
Friend WithEvents grpAviso As System.Windows.Forms.GroupBox
Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents btnAuftraggeber As System.Windows.Forms.Button
Friend WithEvents kdAuftraggeber As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As DataGridViewTextBoxColumn
Friend WithEvents clmnPfad As DataGridViewTextBoxColumn
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As Label
Friend WithEvents lblErrErfasstDat As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label12 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents lblErr_Kunde As Label
Friend WithEvents lblErr_Aktentyp As Label
Friend WithEvents lblErr_LKW As Label
End Class

1277
Aviso/AktenErfassung/frmEintragSammelakt.resx Normal file
View File

File diff suppressed because it is too large Load Diff

597
Aviso/AktenErfassung/frmEintragSammelakt.vb Normal file
View File

@@ -0,0 +1,597 @@
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class frmEintragSammelakt
' Public frmHilf As frmMain
Dim Firmen As New cFirmenDAL
Dim AvisoDAL As New cAvisoDAL
Dim myAviso As New cAviso
Dim AVISOFUNC As New AvisoStatusFunctions
Dim ADMIN As New cADMIN
Dim hÄnderung As Boolean = False
Dim Neuanlage As Boolean = False
Public EingangsDatum As Date = CDate("01.01.1990")
Dim hStatus As Integer
Dim showSendungsdetails As Boolean = False
Dim hAdresse As String = ""
Dim hCC As String = ""
Public aktiv As Boolean = False
Public ATT As List(Of String)
Dim PROG As New cProgramFunctions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Public Sub New()
InitializeComponent()
Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
End Sub
Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Escape händisch abfangen und auf Abbruch-Taste legen
If e.KeyCode = Keys.Escape Then
btnAbbruch.PerformClick()
End If
If e.KeyCode = Keys.Return Then
e.Handled = True
End If
End Sub
Sub initAttachment()
If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
dgvAnhaenge.Rows.Clear()
If ATT.Count = 0 Then
' btnSaveAttachments.Enabled = False
Else
dgvAnhaenge.Visible = True
For Each a In ATT
Dim display = a
If a.Contains("\") Then
Dim sp = a.Split("\")
display = sp(sp.Count - 1)
End If
dgvAnhaenge.Rows.Add({display, a})
Next
End If
dgvAnhaenge.ClearSelection()
End Sub
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Me.Close()
'End If
Me.CenterToParent()
btnOK.Enabled = False
kdAuftraggeber.initKdBox(Me)
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE"))
MyComboBox1.changeItem("")
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
ATILLA_NEUERAKTENDECKEL = True
End If
' SDL.cProgramFunctions.initDrucker(cboPrinter)
cboFirma.Items.Clear()
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboFirma.changeItem(FIRMA_TMP)
cboFirma.Enabled = False
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
cboFirma.Enabled = True
End If
AddHandler kdAuftraggeber.PropertyChanged, Sub()
If kdAuftraggeber.KdNr_value > 0 Then
btnAuftraggeber.Enabled = True
Else
btnAuftraggeber.Enabled = False
End If
End Sub
btnOK.Enabled = True
Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
If cGlobal.Aktive_ID = 0 Then
'es erfolgt eine Neuanlage
Neuanlage = True
Me.Text = "Neuanlage LKW-Aviso"
dtpDatum.Value = Now
If Not bearb Then dtpDatum.Enabled = False
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
lblStatus.Text = "Neuanlage"
kdAuftraggeber.Text = ""
Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Me.Close()
End If
Me.Text = "Änderung LKW-Aviso"
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
'txtInfo.Visible = False
'Label3.Visible = False
''ausgewählter Datensatz wird geladen
'Button3.Visible = False
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
'Werte(zuweisen)
dtpDatum.Value = myAviso.Datum
If Not bearb Then dtpDatum.Enabled = False
If myAviso.Auftraggeber_KdNr > 0 Then
kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr
Else
kdAuftraggeber.Text = myAviso.Auftraggeber
End If
txtInfo.Text = myAviso.Info.Trim
txtLKW_Nr.Text = myAviso.LKW_Nr
txtÄnderungen.Text = myAviso.Änderungen.Trim
hStatus = myAviso.Status
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
'Status anzeigen
Select Case hStatus
Case cGlobal.Status_Ankunft
lblStatus.Text = "Ankunft"
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Blue
Case cGlobal.Status_Erfasst
lblStatus.Text = "erfasst"
lblStatus.ForeColor = Color.Red
Case cGlobal.Status_Freigegeben
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Green
btnOK.Enabled = bearb
Case cGlobal.Status_NichtEingetroffen
lblStatus.Text = "LKW nicht eingetroffen"
lblStatus.ForeColor = Color.DarkGray
btnOK.Enabled = bearb
Case cGlobal.Status_Vorbereitet
lblStatus.Text = "Vorbereitet"
lblStatus.ForeColor = Color.Brown
btnOK.Enabled = bearb
Case cGlobal.Status_Vorgeschrieben
lblStatus.Text = "Vorgeschrieben"
lblStatus.ForeColor = Color.Purple
btnOK.Enabled = bearb
Case Else
lblStatus.Text = ""
End Select
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
cboFirma.changeItem("")
cboFirma.changeItem(myAviso.FIRMA)
End If
If bearb Then Me.Text += " (Verwaltung)"
hÄnderung = False
dtpDatum.Enabled = bearb 'nur Administrator darf Erfassungsdatum ändern/bearbeiten
'If Neuanlage Then
' dtpAvisoEingangDatum.Value = Now.Date
' dtpAvisoEingangZeit.Value = LeerDatum
'Else
' dtpAvisoEingangDatum.Enabled = bearb
' dtpAvisoEingangZeit.Enabled = bearb
'End If
initAttachment()
End Sub
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
If e.KeyCode = Keys.Delete Then
If dgvAnhaenge.SelectedRows.Count > 0 Then
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
ATT.RemoveAt(row.Index)
Next
'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
initAttachment()
End If
End If
End Sub
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
Try
If Not aktiv Then Exit Sub
lblErrErfasstDat.Visible = False
lblErr_Aktentyp.Visible = False
lblErr_Kunde.Visible = False
lblErr_LKW.Visible = False
If FIRMA_TMP = "VERIMEX" Then
If cboFirma._value = "" Then
MsgBox("Firma auswählen!", vbInformation)
cboFirma.Focus()
Exit Sub
End If
End If
If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
lblErrErfasstDat.Visible = True
dtpDatum.Focus()
Exit Sub
End If
If MyComboBox1._value.Trim = "" Then
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
lblErr_Aktentyp.Visible = True
MyComboBox1.Focus()
Exit Sub
End If
If txtLKW_Nr.Text.Trim = "" Then
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
lblErr_LKW.Visible = True
txtLKW_Nr.Focus()
Exit Sub
End If
If kdAuftraggeber.KdNr_value <= 0 Then
lblErr_Kunde.Visible = True
kdAuftraggeber.Focus()
Exit Sub
End If
If Neuanlage Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck2 <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
Exit Sub
End If
End If
If hLKWCheck2 = "" Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
Exit Sub
End If
End If
End If
End If
Me.Cursor = Cursors.WaitCursor
Dim aendart As String = ""
Dim aendText As String = ""
'Werte zuweisen
myAviso.Telefonisch = ""
myAviso.Datum = dtpDatum.Value
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
If kdAuftraggeber.KdNr_value > 0 Then
myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text)
myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value
Else
myAviso.Auftraggeber = kdAuftraggeber.Text
myAviso.Auftraggeber_KdNr = -1
End If
If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50)
myAviso.Frächter = myAviso.Auftraggeber
myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr
myAviso.Grenzstelle = ""
myAviso.Info = ""
If Neuanlage Then
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
If Neuanlage Then
myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
aendart = "Neuanlage"
aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
Else
myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
aendart = "Änderung per Eingabefenster"
aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
End If
Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
myAviso.Status = cGlobal.Status_Ankunft
myAviso.Status = cGlobal.Status_Erfasst
myAviso.Ankunft = LeerDatum
myAviso.Freigabe = LeerDatum
myAviso.Vorbereitet = LeerDatum
myAviso.Vorgeschrieben = LeerDatum
myAviso.Dauer = 0
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
myAviso.AvisoID = tmpId
AvisoDAL.addAenderung(tmpId, aendart, aendText)
'Infotext als Vermerk:
If txtInfo.Text.Trim <> "" Then
If txtInfo.Text.Length <= 80 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46)
ElseIf txtInfo.Text.Length <= 160 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
ElseIf txtInfo.Text.Length <= 240 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46)
End If
End If
Me.Cursor = Cursors.Default
'Jetzt wird Fenster geschlossen
Me.Close()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
frmHauptfenster.setAktDetails(tmpId, showSendungsdetails)
If showSendungsdetails Then
End If
Catch ex As Exception
Me.Cursor = Cursors.Default
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
''threadsicherer Aufruf
'Delegate Sub setCboEntryCallback(i As String)
'Private Sub setCboEntry(i As String)
' Try
' If Me.InvokeRequired Then
' Dim d As New setCboEntryCallback(AddressOf setCboEntry)
' Me.Invoke(d, New Object() {i})
' Else
' cboPrinter.Items.Add(i)
' End If
' Catch ex As Exception
' End Try
'End Sub
''threadsicherer Aufruf
'Delegate Sub setCboSelectedCallback(standardDrucker As String)
'Private Sub setCboSelected(standardDrucker As String)
' If Me.InvokeRequired Then
' Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
' Me.Invoke(d, New Object() {standardDrucker})
' Else
' Dim found As Boolean = False
' ' For Each i In cboPrinter.Items
' 'If i.ToString.ToUpper.Contains("TALLY") Then
' 'found = True
' ' cboPrinter.SelectedItem = i : Exit For
' ' End If
' ' Next
' If found = False Then 'Falls kein TALLY, Standarddrucker
' cboPrinter.SelectedIndex = 0
' For Each i In cboPrinter.Items
' If i.ToString = standardDrucker Then
' cboPrinter.SelectedItem = i
' Exit For
' End If
' Next
' End If
' End If
'End Sub
Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String
If hText = "" Then
Platzhalter_ersetzen = hText
Exit Function
End If
'hier werden alle möglichen Platzhalter ersetzt
hText = hText.Replace("%LKW%", hLKW)
If hGrenzstelle <> "" Then
Dim Standorte As New cStandorteDAL
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
If Not IsNothing(Standort) Then
hGrenzstelle = Standort.Standort_Text.Trim
End If
End If
hText = hText.Replace("%Standort%", hGrenzstelle)
hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm"))
hText = hText.Replace("&", "und")
Platzhalter_ersetzen = hText
End Function
Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave
txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper
End Sub
Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown
'dtpAvisoEingangZeit.Focus()
aktiv = True
'If EingangsDatum > CDate("01.01.1990") Then
' dtpAvisoEingangDatum.Value = EingangsDatum
' dtpAvisoEingangZeit.Value = EingangsDatum
'End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If StartFromOUTLOOK Then
MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!")
Exit Sub
End If
' Me.showSendungsdetails = True
btnOK.PerformClick()
'If dgvSendungen.SelectedRows.Count > 0 Then
'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
'End If
If myAviso.AvisoID > 0 Then
If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
frmSendungsdetails.ShowDialog(frmGrayOut)
frmGrayOut.Close()
Else
VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
End If
End If
'initDgvSendungen()
End Sub
Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click
If kdAuftraggeber.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(kdAuftraggeber.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
Try
If dgvAnhaenge.SelectedRows.Count > 0 Then
If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
Select Case MyComboBox1._value
Case "CBAM"
PictureBox1.BackgroundImage = My.Resources.cbam_s
Case "EUDR"
PictureBox1.BackgroundImage = My.Resources.eudr
Case "FGAS"
PictureBox1.BackgroundImage = My.Resources.fgas_s
Case "COMPLIANCE"
PictureBox1.BackgroundImage = My.Resources.compliance_s
Case Else
PictureBox1.BackgroundImage = Nothing
End Select
End Sub
End Class

37
Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb generated Normal file
View File

@@ -0,0 +1,37 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlHauptakt_CBAM
Inherits System.Windows.Forms.UserControl
'UserControl ü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
'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.SuspendLayout()
'
'usrCntlHauptakt_CBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Name = "usrCntlHauptakt_CBAM"
Me.Size = New System.Drawing.Size(358, 245)
Me.ResumeLayout(False)
End Sub
End Class

120
Aviso/AktenErfassung/usrCntlHauptakt_CBAM.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>

3
Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class usrCntlHauptakt_CBAM
End Class