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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-02-26 12:42:52 +01:00
parent 6e023041f9
commit 39dd8a0501
36 changed files with 11903 additions and 629 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
SDL/OriginalArchiv_ATR/frmATR.Designer.vb generated
View File

@@ -24,6 +24,8 @@ Partial Class frmATR
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATR))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
Me.lblErr_DocNr = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -51,6 +53,7 @@ Partial Class frmATR
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
@@ -69,15 +72,13 @@ Partial Class frmATR
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtInfo = New System.Windows.Forms.RichTextBox()
Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label()
Me.lblErr_DocNr = New System.Windows.Forms.Label()
Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
@@ -124,6 +125,32 @@ Partial Class frmATR
Me.Panel1.Size = New System.Drawing.Size(658, 588)
Me.Panel1.TabIndex = 0
'
'lblErr_Aufbewarungsort
'
Me.lblErr_Aufbewarungsort.AutoSize = True
Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Aufbewarungsort.TabIndex = 108
Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aufbewarungsort.Visible = False
'
'lblErr_DocNr
'
Me.lblErr_DocNr.AutoSize = True
Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
Me.lblErr_DocNr.Name = "lblErr_DocNr"
Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
Me.lblErr_DocNr.TabIndex = 107
Me.lblErr_DocNr.Text = "Pflichtfeld!"
Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_DocNr.Visible = False
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -558,6 +585,17 @@ Partial Class frmATR
Me.Panel2.Size = New System.Drawing.Size(658, 44)
Me.Panel2.TabIndex = 1
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 134
Me.PictureBox6.TabStop = False
'
'Label10
'
Me.Label10.AutoSize = True
@@ -574,6 +612,7 @@ Partial Class frmATR
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum)
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst)
Me.Panel3.Controls.Add(Me.txtErhaltenReferenz)
@@ -816,42 +855,18 @@ Partial Class frmATR
Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Ausstellungsdatum.Visible = False
'
'lblErr_DocNr
'lblErr_ErhaltenDatum
'
Me.lblErr_DocNr.AutoSize = True
Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red
Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53)
Me.lblErr_DocNr.Name = "lblErr_DocNr"
Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13)
Me.lblErr_DocNr.TabIndex = 107
Me.lblErr_DocNr.Text = "Pflichtfeld!"
Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_DocNr.Visible = False
'
'lblErr_Aufbewarungsort
'
Me.lblErr_Aufbewarungsort.AutoSize = True
Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327)
Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort"
Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13)
Me.lblErr_Aufbewarungsort.TabIndex = 108
Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!"
Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aufbewarungsort.Visible = False
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(640, 0)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 19)
Me.PictureBox6.TabIndex = 134
Me.PictureBox6.TabStop = False
Me.lblErr_ErhaltenDatum.AutoSize = True
Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic)
Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red
Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26)
Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum"
Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13)
Me.lblErr_ErhaltenDatum.TabIndex = 109
Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!"
Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_ErhaltenDatum.Visible = False
'
'frmATR
'
@@ -869,10 +884,10 @@ Partial Class frmATR
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -926,4 +941,5 @@ Partial Class frmATR
Friend WithEvents lblErr_DocNr As Label
Friend WithEvents lblErr_Ausstellungsdatum As Label
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents lblErr_ErhaltenDatum As Label
End Class

10
SDL/OriginalArchiv_ATR/frmATR.vb
View File

@@ -69,7 +69,7 @@ Public Class frmATR
End If
End If
If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then
If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then
If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then
If ATR.atr_dsId < 0 Then
MsgBox("Kein PDF-Anhang!")
@@ -111,9 +111,11 @@ Public Class frmATR
lblErr_Ausstellungsdatum.Visible = False
lblErr_DocNr.Visible = False
lblErr_Aufbewarungsort.Visible = False
lblErr_ErhaltenDatum.Visible = False
If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False
If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False
If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False
If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False
Return True
@@ -167,9 +169,9 @@ Public Class frmATR
ATR.atr_documentNr = txtDocNumber.Text
ATR.atr_austellungsdatum = txtDocDatum._value
'ATR.atr_erfassungsdatum = Now
ATR.atr_absender = txtAbsender.KdName
ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text)
ATR.atr_absenderkdnr = txtAbsender.KdNr
ATR.atr_empfaenger = txtEmpfaenger.KdName
ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text)
ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr
ATR.atr_location = txtLocation.Text
ATR.atr_info = txtInfo.Text
@@ -207,7 +209,7 @@ Public Class frmATR
'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300)
sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /* AND (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300)
If ATR IsNot Nothing Then

667
SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb generated
View File

@@ -25,12 +25,23 @@ Partial Class frmOriginalArchiv_ATR
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOriginalArchiv_ATR))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
@@ -38,6 +49,7 @@ Partial Class frmOriginalArchiv_ATR
Me.Label23 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = New System.Windows.Forms.Button()
@@ -46,47 +58,36 @@ Partial Class frmOriginalArchiv_ATR
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label()
Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.btnSendungKoppeln = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
Me.FlatButton7 = New System.Windows.Forms.Button()
Me.lblErgebnis = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnSendungKoppeln = New System.Windows.Forms.Button()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnl.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnloptions.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnloptions.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cboDatum)
Me.pnl.Controls.Add(Me.txtSuche)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.txtSB)
@@ -118,7 +119,6 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.Controls.Add(Me.btnVonMonat)
Me.pnl.Controls.Add(Me.DateTimePicker2)
Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.lblAbfertigungsdatum)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label12)
@@ -129,6 +129,30 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.Size = New System.Drawing.Size(1419, 171)
Me.pnl.TabIndex = 0
'
'txtSuche
'
Me.txtSuche._DateTimeOnly = False
Me.txtSuche._numbersOnly = False
Me.txtSuche._numbersOnlyKommastellen = ""
Me.txtSuche._numbersOnlyTrennzeichen = False
Me.txtSuche._Prozent = False
Me.txtSuche._ShortDateNew = False
Me.txtSuche._ShortDateOnly = False
Me.txtSuche._TimeOnly = False
Me.txtSuche._TimeOnly_Seconds = False
Me.txtSuche._value = ""
Me.txtSuche._Waehrung = False
Me.txtSuche._WaehrungZeichen = False
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSuche.ForeColor = System.Drawing.Color.Black
Me.txtSuche.Location = New System.Drawing.Point(338, 75)
Me.txtSuche.MaxLineLength = -1
Me.txtSuche.MaxLines_Warning = ""
Me.txtSuche.MaxLines_Warning_Label = Nothing
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(258, 20)
Me.txtSuche.TabIndex = 77
'
'Label9
'
Me.Label9.AutoSize = True
@@ -139,6 +163,55 @@ Partial Class frmOriginalArchiv_ATR
Me.Label9.TabIndex = 76
Me.Label9.Text = "Suche:"
'
'txtSB
'
Me.txtSB._DateTimeOnly = False
Me.txtSB._numbersOnly = False
Me.txtSB._numbersOnlyKommastellen = ""
Me.txtSB._numbersOnlyTrennzeichen = False
Me.txtSB._Prozent = False
Me.txtSB._ShortDateNew = False
Me.txtSB._ShortDateOnly = False
Me.txtSB._TimeOnly = False
Me.txtSB._TimeOnly_Seconds = False
Me.txtSB._value = ""
Me.txtSB._Waehrung = False
Me.txtSB._WaehrungZeichen = False
Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSB.ForeColor = System.Drawing.Color.Black
Me.txtSB.Location = New System.Drawing.Point(920, 131)
Me.txtSB.MaxLineLength = -1
Me.txtSB.MaxLines_Warning = ""
Me.txtSB.MaxLines_Warning_Label = Nothing
Me.txtSB.Multiline = True
Me.txtSB.Name = "txtSB"
Me.txtSB.Size = New System.Drawing.Size(240, 22)
Me.txtSB.TabIndex = 75
'
'txtDocumetNummer
'
Me.txtDocumetNummer._DateTimeOnly = False
Me.txtDocumetNummer._numbersOnly = False
Me.txtDocumetNummer._numbersOnlyKommastellen = ""
Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
Me.txtDocumetNummer._Prozent = False
Me.txtDocumetNummer._ShortDateNew = False
Me.txtDocumetNummer._ShortDateOnly = False
Me.txtDocumetNummer._TimeOnly = False
Me.txtDocumetNummer._TimeOnly_Seconds = False
Me.txtDocumetNummer._value = ""
Me.txtDocumetNummer._Waehrung = False
Me.txtDocumetNummer._WaehrungZeichen = False
Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
Me.txtDocumetNummer.MaxLineLength = -1
Me.txtDocumetNummer.MaxLines_Warning = ""
Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
Me.txtDocumetNummer.Name = "txtDocumetNummer"
Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
Me.txtDocumetNummer.TabIndex = 74
'
'Label8
'
Me.Label8.AutoSize = True
@@ -149,6 +222,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label8.TabIndex = 73
Me.Label8.Text = "Dokument-Nummer"
'
'txtAbsender
'
Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False
Me.txtAbsender._TimeOnly = False
Me.txtAbsender._TimeOnly_Seconds = False
Me.txtAbsender._value = Nothing
Me.txtAbsender._Waehrung = False
Me.txtAbsender._WaehrungZeichen = True
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.ForeColor = System.Drawing.Color.Black
Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
Me.txtAbsender.MaxLineLength = -1
Me.txtAbsender.MaxLines_Warning = ""
Me.txtAbsender.MaxLines_Warning_Label = Nothing
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
Me.txtAbsender.TabIndex = 72
'
'Label7
'
Me.Label7.AutoSize = True
@@ -159,6 +256,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label7.TabIndex = 71
Me.Label7.Text = "Absender"
'
'txtReferenz
'
Me.txtReferenz._DateTimeOnly = False
Me.txtReferenz._numbersOnly = False
Me.txtReferenz._numbersOnlyKommastellen = ""
Me.txtReferenz._numbersOnlyTrennzeichen = True
Me.txtReferenz._Prozent = False
Me.txtReferenz._ShortDateNew = False
Me.txtReferenz._ShortDateOnly = False
Me.txtReferenz._TimeOnly = False
Me.txtReferenz._TimeOnly_Seconds = False
Me.txtReferenz._value = Nothing
Me.txtReferenz._Waehrung = False
Me.txtReferenz._WaehrungZeichen = True
Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtReferenz.ForeColor = System.Drawing.Color.Black
Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
Me.txtReferenz.MaxLineLength = -1
Me.txtReferenz.MaxLines_Warning = ""
Me.txtReferenz.MaxLines_Warning_Label = Nothing
Me.txtReferenz.Name = "txtReferenz"
Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
Me.txtReferenz.TabIndex = 70
'
'Label5
'
Me.Label5.AutoSize = True
@@ -169,6 +290,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label5.TabIndex = 69
Me.Label5.Text = "Referenz:"
'
'txtFEmpfänger
'
Me.txtFEmpfänger._DateTimeOnly = False
Me.txtFEmpfänger._numbersOnly = False
Me.txtFEmpfänger._numbersOnlyKommastellen = ""
Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
Me.txtFEmpfänger._Prozent = False
Me.txtFEmpfänger._ShortDateNew = False
Me.txtFEmpfänger._ShortDateOnly = False
Me.txtFEmpfänger._TimeOnly = False
Me.txtFEmpfänger._TimeOnly_Seconds = False
Me.txtFEmpfänger._value = Nothing
Me.txtFEmpfänger._Waehrung = False
Me.txtFEmpfänger._WaehrungZeichen = True
Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
Me.txtFEmpfänger.MaxLineLength = -1
Me.txtFEmpfänger.MaxLines_Warning = ""
Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
Me.txtFEmpfänger.Name = "txtFEmpfänger"
Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
Me.txtFEmpfänger.TabIndex = 68
'
'Label6
'
Me.Label6.AutoSize = True
@@ -179,6 +324,30 @@ Partial Class frmOriginalArchiv_ATR
Me.Label6.TabIndex = 67
Me.Label6.Text = "Empfänger:"
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen._DateTimeOnly = False
Me.txtLKWKennzeichen._numbersOnly = False
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
Me.txtLKWKennzeichen._Prozent = False
Me.txtLKWKennzeichen._ShortDateNew = False
Me.txtLKWKennzeichen._ShortDateOnly = False
Me.txtLKWKennzeichen._TimeOnly = False
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
Me.txtLKWKennzeichen._value = Nothing
Me.txtLKWKennzeichen._Waehrung = False
Me.txtLKWKennzeichen._WaehrungZeichen = True
Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
Me.txtLKWKennzeichen.MaxLineLength = -1
Me.txtLKWKennzeichen.MaxLines_Warning = ""
Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
Me.txtLKWKennzeichen.TabIndex = 66
'
'Label3
'
Me.Label3.AutoSize = True
@@ -189,6 +358,94 @@ Partial Class frmOriginalArchiv_ATR
Me.Label3.TabIndex = 65
Me.Label3.Text = "LKW:"
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 33
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 36
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(920, 75)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
Me.cboFiliale.TabIndex = 53
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = True
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
Me.txtAbfertigungsnummer.TabIndex = 55
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -281,6 +538,17 @@ Partial Class frmOriginalArchiv_ATR
Me.pnlTop.Size = New System.Drawing.Size(1417, 48)
Me.pnlTop.TabIndex = 34
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
Me.PictureBox6.TabIndex = 135
Me.PictureBox6.TabStop = False
'
'Label4
'
Me.Label4.AutoSize = True
@@ -386,16 +654,6 @@ Partial Class frmOriginalArchiv_ATR
Me.Label13.TabIndex = 46
Me.Label13.Text = "von:"
'
'lblAbfertigungsdatum
'
Me.lblAbfertigungsdatum.AutoSize = True
Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59)
Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum"
Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(118, 13)
Me.lblAbfertigungsdatum.TabIndex = 32
Me.lblAbfertigungsdatum.Text = "Ausstellungs-Datum"
'
'Label1
'
Me.Label1.AutoSize = True
@@ -447,6 +705,23 @@ Partial Class frmOriginalArchiv_ATR
Me.Panel1.Size = New System.Drawing.Size(1419, 390)
Me.Panel1.TabIndex = 1
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowHeadersWidth = 51
Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
Me.MyDatagridview1.TabIndex = 0
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -481,6 +756,21 @@ Partial Class frmOriginalArchiv_ATR
Me.pnloptions.Size = New System.Drawing.Size(1419, 59)
Me.pnloptions.TabIndex = 2
'
'btnSendungKoppeln
'
Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
Me.btnSendungKoppeln.TabIndex = 75
Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
Me.btnSendungKoppeln.UseVisualStyleBackColor = True
Me.btnSendungKoppeln.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -559,280 +849,6 @@ Partial Class frmOriginalArchiv_ATR
Me.Label37.TabIndex = 69
Me.Label37.Text = "Max:"
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowHeadersWidth = 51
Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390)
Me.MyDatagridview1.TabIndex = 0
'
'txtSuche
'
Me.txtSuche._DateTimeOnly = False
Me.txtSuche._numbersOnly = False
Me.txtSuche._numbersOnlyKommastellen = ""
Me.txtSuche._numbersOnlyTrennzeichen = False
Me.txtSuche._Prozent = False
Me.txtSuche._ShortDateNew = False
Me.txtSuche._ShortDateOnly = False
Me.txtSuche._TimeOnly = False
Me.txtSuche._TimeOnly_Seconds = False
Me.txtSuche._value = ""
Me.txtSuche._Waehrung = False
Me.txtSuche._WaehrungZeichen = False
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSuche.ForeColor = System.Drawing.Color.Black
Me.txtSuche.Location = New System.Drawing.Point(338, 75)
Me.txtSuche.MaxLineLength = -1
Me.txtSuche.MaxLines_Warning = ""
Me.txtSuche.MaxLines_Warning_Label = Nothing
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(258, 20)
Me.txtSuche.TabIndex = 77
'
'txtSB
'
Me.txtSB._DateTimeOnly = False
Me.txtSB._numbersOnly = False
Me.txtSB._numbersOnlyKommastellen = ""
Me.txtSB._numbersOnlyTrennzeichen = False
Me.txtSB._Prozent = False
Me.txtSB._ShortDateNew = False
Me.txtSB._ShortDateOnly = False
Me.txtSB._TimeOnly = False
Me.txtSB._TimeOnly_Seconds = False
Me.txtSB._value = ""
Me.txtSB._Waehrung = False
Me.txtSB._WaehrungZeichen = False
Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSB.ForeColor = System.Drawing.Color.Black
Me.txtSB.Location = New System.Drawing.Point(920, 131)
Me.txtSB.MaxLineLength = -1
Me.txtSB.MaxLines_Warning = ""
Me.txtSB.MaxLines_Warning_Label = Nothing
Me.txtSB.Multiline = True
Me.txtSB.Name = "txtSB"
Me.txtSB.Size = New System.Drawing.Size(240, 22)
Me.txtSB.TabIndex = 75
'
'txtDocumetNummer
'
Me.txtDocumetNummer._DateTimeOnly = False
Me.txtDocumetNummer._numbersOnly = False
Me.txtDocumetNummer._numbersOnlyKommastellen = ""
Me.txtDocumetNummer._numbersOnlyTrennzeichen = False
Me.txtDocumetNummer._Prozent = False
Me.txtDocumetNummer._ShortDateNew = False
Me.txtDocumetNummer._ShortDateOnly = False
Me.txtDocumetNummer._TimeOnly = False
Me.txtDocumetNummer._TimeOnly_Seconds = False
Me.txtDocumetNummer._value = ""
Me.txtDocumetNummer._Waehrung = False
Me.txtDocumetNummer._WaehrungZeichen = False
Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black
Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75)
Me.txtDocumetNummer.MaxLineLength = -1
Me.txtDocumetNummer.MaxLines_Warning = ""
Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing
Me.txtDocumetNummer.Name = "txtDocumetNummer"
Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20)
Me.txtDocumetNummer.TabIndex = 74
'
'txtAbsender
'
Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False
Me.txtAbsender._TimeOnly = False
Me.txtAbsender._TimeOnly_Seconds = False
Me.txtAbsender._value = Nothing
Me.txtAbsender._Waehrung = False
Me.txtAbsender._WaehrungZeichen = True
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.ForeColor = System.Drawing.Color.Black
Me.txtAbsender.Location = New System.Drawing.Point(666, 133)
Me.txtAbsender.MaxLineLength = -1
Me.txtAbsender.MaxLines_Warning = ""
Me.txtAbsender.MaxLines_Warning_Label = Nothing
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(228, 20)
Me.txtAbsender.TabIndex = 72
'
'txtReferenz
'
Me.txtReferenz._DateTimeOnly = False
Me.txtReferenz._numbersOnly = False
Me.txtReferenz._numbersOnlyKommastellen = ""
Me.txtReferenz._numbersOnlyTrennzeichen = True
Me.txtReferenz._Prozent = False
Me.txtReferenz._ShortDateNew = False
Me.txtReferenz._ShortDateOnly = False
Me.txtReferenz._TimeOnly = False
Me.txtReferenz._TimeOnly_Seconds = False
Me.txtReferenz._value = Nothing
Me.txtReferenz._Waehrung = False
Me.txtReferenz._WaehrungZeichen = True
Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtReferenz.ForeColor = System.Drawing.Color.Black
Me.txtReferenz.Location = New System.Drawing.Point(394, 133)
Me.txtReferenz.MaxLineLength = -1
Me.txtReferenz.MaxLines_Warning = ""
Me.txtReferenz.MaxLines_Warning_Label = Nothing
Me.txtReferenz.Name = "txtReferenz"
Me.txtReferenz.Size = New System.Drawing.Size(202, 20)
Me.txtReferenz.TabIndex = 70
'
'txtFEmpfänger
'
Me.txtFEmpfänger._DateTimeOnly = False
Me.txtFEmpfänger._numbersOnly = False
Me.txtFEmpfänger._numbersOnlyKommastellen = ""
Me.txtFEmpfänger._numbersOnlyTrennzeichen = True
Me.txtFEmpfänger._Prozent = False
Me.txtFEmpfänger._ShortDateNew = False
Me.txtFEmpfänger._ShortDateOnly = False
Me.txtFEmpfänger._TimeOnly = False
Me.txtFEmpfänger._TimeOnly_Seconds = False
Me.txtFEmpfänger._value = Nothing
Me.txtFEmpfänger._Waehrung = False
Me.txtFEmpfänger._WaehrungZeichen = True
Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black
Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109)
Me.txtFEmpfänger.MaxLineLength = -1
Me.txtFEmpfänger.MaxLines_Warning = ""
Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing
Me.txtFEmpfänger.Name = "txtFEmpfänger"
Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20)
Me.txtFEmpfänger.TabIndex = 68
'
'txtLKWKennzeichen
'
Me.txtLKWKennzeichen._DateTimeOnly = False
Me.txtLKWKennzeichen._numbersOnly = False
Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
Me.txtLKWKennzeichen._Prozent = False
Me.txtLKWKennzeichen._ShortDateNew = False
Me.txtLKWKennzeichen._ShortDateOnly = False
Me.txtLKWKennzeichen._TimeOnly = False
Me.txtLKWKennzeichen._TimeOnly_Seconds = False
Me.txtLKWKennzeichen._value = Nothing
Me.txtLKWKennzeichen._Waehrung = False
Me.txtLKWKennzeichen._WaehrungZeichen = True
Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110)
Me.txtLKWKennzeichen.MaxLineLength = -1
Me.txtLKWKennzeichen.MaxLines_Warning = ""
Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen"
Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20)
Me.txtLKWKennzeichen.TabIndex = 66
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._numbersOnlyTrennzeichen = True
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 33
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 36
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 250
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(920, 75)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(80, 22)
Me.cboFiliale.TabIndex = 53
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = True
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75)
Me.txtAbfertigungsnummer.MaxLineLength = -1
Me.txtAbfertigungsnummer.MaxLines_Warning = ""
Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
Me.txtAbfertigungsnummer.Multiline = True
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22)
Me.txtAbfertigungsnummer.TabIndex = 55
'
'txtMaxSrch
'
Me.txtMaxSrch._DateTimeOnly = False
@@ -860,31 +876,22 @@ Partial Class frmOriginalArchiv_ATR
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'btnSendungKoppeln
'cboDatum
'
Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6)
Me.btnSendungKoppeln.Name = "btnSendungKoppeln"
Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47)
Me.btnSendungKoppeln.TabIndex = 75
Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen"
Me.btnSendungKoppeln.UseVisualStyleBackColor = True
Me.btnSendungKoppeln.Visible = False
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Location = New System.Drawing.Point(1374, 9)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(32, 30)
Me.PictureBox6.TabIndex = 135
Me.PictureBox6.TabStop = False
Me.cboDatum._allowedValuesFreiText = Nothing
Me.cboDatum._allowFreiText = False
Me.cboDatum._value = ""
Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDatum.DropDownWidth = 250
Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDatum.FormattingEnabled = True
Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"})
Me.cboDatum.Location = New System.Drawing.Point(15, 52)
Me.cboDatum.Name = "cboDatum"
Me.cboDatum.Size = New System.Drawing.Size(141, 22)
Me.cboDatum.TabIndex = 78
'
'frmOriginalArchiv_ATR
'
@@ -902,11 +909,11 @@ Partial Class frmOriginalArchiv_ATR
Me.pnl.PerformLayout()
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnloptions.ResumeLayout(False)
Me.pnloptions.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -930,7 +937,6 @@ Partial Class frmOriginalArchiv_ATR
Friend WithEvents btnVonMonat As System.Windows.Forms.Button
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents lblAbfertigungsdatum As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
@@ -961,4 +967,5 @@ Partial Class frmOriginalArchiv_ATR
Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnSendungKoppeln As Button
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

31
SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb
View File

@@ -20,6 +20,13 @@ Public Class frmOriginalArchiv_ATR
txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
cboDatum.Items.Clear()
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat"))
cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat"))
cboDatum.changeItem("ADat")
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
@@ -148,14 +155,28 @@ Public Class frmOriginalArchiv_ATR
Function getWhere() As String
Dim sqlstr = ""
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
If cboDatum._value = "ADat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) "
End If
End If
ElseIf cboDatum._value = "EDat" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) "
Else
sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) "
End If
End If
End If
If txtSuche._value <> "" Then
sqlstr &= " AND ( "
sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR "