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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

130
Aviso/Anhänge/frmAddSendnung.Designer.vb generated
View File

@@ -44,6 +44,9 @@ Partial Class frmAddSendnung
Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWW = New System.Windows.Forms.Label()
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -58,7 +61,7 @@ Partial Class frmAddSendnung
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
Me.cboAbfertigungsart.TabIndex = 1
'
'Label1
@@ -83,6 +86,7 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
@@ -91,12 +95,13 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131)
Me.txtEmpfaenger.Location = New System.Drawing.Point(15, 131)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = True
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
Me.txtEmpfaenger.TabIndex = 5
Me.txtEmpfaenger.Size = New System.Drawing.Size(378, 23)
Me.txtEmpfaenger.TabIndex = 7
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtGewicht
@@ -108,6 +113,7 @@ Partial Class frmAddSendnung
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._TimeOnly_Seconds = False
Me.txtGewicht._value = ""
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
@@ -118,7 +124,7 @@ Partial Class frmAddSendnung
Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
Me.txtGewicht.TabIndex = 11
Me.txtGewicht.TabIndex = 13
Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
@@ -127,7 +133,7 @@ Partial Class frmAddSendnung
Me.Label19.Location = New System.Drawing.Point(9, 164)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(100, 13)
Me.Label19.TabIndex = 6
Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenbezeichnung"
'
'Label17
@@ -136,7 +142,7 @@ Partial Class frmAddSendnung
Me.Label17.Location = New System.Drawing.Point(10, 215)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(73, 13)
Me.Label17.TabIndex = 8
Me.Label17.TabIndex = 10
Me.Label17.Text = "Colli/Gewicht:"
'
'txtColli
@@ -148,7 +154,8 @@ Partial Class frmAddSendnung
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False
Me.txtColli._value = Nothing
Me.txtColli._TimeOnly_Seconds = False
Me.txtColli._value = ""
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
@@ -158,7 +165,7 @@ Partial Class frmAddSendnung
Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(46, 20)
Me.txtColli.TabIndex = 9
Me.txtColli.TabIndex = 11
Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'rtbWarenbezeichnung
@@ -168,8 +175,8 @@ Partial Class frmAddSendnung
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
Me.rtbWarenbezeichnung.MaxLength = 500
Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
Me.rtbWarenbezeichnung.TabIndex = 7
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(425, 32)
Me.rtbWarenbezeichnung.TabIndex = 9
Me.rtbWarenbezeichnung.Text = ""
'
'Label23
@@ -178,7 +185,7 @@ Partial Class frmAddSendnung
Me.Label23.Location = New System.Drawing.Point(129, 215)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 10
Me.Label23.TabIndex = 12
Me.Label23.Text = "Pk."
'
'Label2
@@ -188,17 +195,17 @@ Partial Class frmAddSendnung
Me.Label2.Location = New System.Drawing.Point(10, 111)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 17)
Me.Label2.TabIndex = 4
Me.Label2.TabIndex = 5
Me.Label2.Text = "Empfänger:"
'
'btn
'
Me.btn.DialogResult = DialogResult.OK
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 244)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(359, 52)
Me.btn.TabIndex = 12
Me.btn.Size = New System.Drawing.Size(425, 52)
Me.btn.TabIndex = 17
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
@@ -223,6 +230,7 @@ Partial Class frmAddSendnung
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT"
@@ -231,12 +239,13 @@ Partial Class frmAddSendnung
Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = Nothing
Me.txtAbsender.KdNrNullInt = Nothing
Me.txtAbsender.Location = New System.Drawing.Point(12, 85)
Me.txtAbsender.Location = New System.Drawing.Point(15, 85)
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.nurAktive = True
Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(315, 23)
Me.txtAbsender.TabIndex = 3
Me.txtAbsender.Size = New System.Drawing.Size(378, 23)
Me.txtAbsender.TabIndex = 4
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing
'
'FlatButton4
@@ -247,10 +256,10 @@ Partial Class frmAddSendnung
Me.FlatButton4.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton4.ForeColor = System.Drawing.Color.Black
Me.FlatButton4.Location = New System.Drawing.Point(325, 130)
Me.FlatButton4.Location = New System.Drawing.Point(391, 130)
Me.FlatButton4.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
Me.FlatButton4.TabIndex = 89
Me.FlatButton4.TabIndex = 6
Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True
'
@@ -262,10 +271,10 @@ Partial Class frmAddSendnung
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Location = New System.Drawing.Point(325, 84)
Me.FlatButton1.Location = New System.Drawing.Point(391, 84)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
Me.FlatButton1.TabIndex = 88
Me.FlatButton1.TabIndex = 3
Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True
'
@@ -273,7 +282,7 @@ Partial Class frmAddSendnung
'
Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnAbsender.Location = New System.Drawing.Point(351, 85)
Me.picWarnAbsender.Location = New System.Drawing.Point(417, 85)
Me.picWarnAbsender.Name = "picWarnAbsender"
Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
Me.picWarnAbsender.TabIndex = 86
@@ -284,7 +293,7 @@ Partial Class frmAddSendnung
'
Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnEmpfaenger.Location = New System.Drawing.Point(351, 131)
Me.picWarnEmpfaenger.Location = New System.Drawing.Point(417, 131)
Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
Me.picWarnEmpfaenger.TabIndex = 87
@@ -299,8 +308,8 @@ Partial Class frmAddSendnung
Me.RichTextBox1.MaxLength = 500
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(359, 102)
Me.RichTextBox1.TabIndex = 90
Me.RichTextBox1.Size = New System.Drawing.Size(425, 102)
Me.RichTextBox1.TabIndex = 19
Me.RichTextBox1.Text = ""
'
'Label4
@@ -309,15 +318,75 @@ Partial Class frmAddSendnung
Me.Label4.Location = New System.Drawing.Point(12, 311)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(184, 13)
Me.Label4.TabIndex = 91
Me.Label4.TabIndex = 18
Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
'
'txtWarenwertWaehrung
'
Me.txtWarenwertWaehrung._allowFreitext = False
Me.txtWarenwertWaehrung._AllowSetValue = False
Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False
Me.txtWarenwertWaehrung._autoSizeGross = False
Me.txtWarenwertWaehrung._hideIfListEmpty = True
Me.txtWarenwertWaehrung._value = ""
Me.txtWarenwertWaehrung.conn_art = "FMZOLL"
Me.txtWarenwertWaehrung.dgvpos = "LEFT"
Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing
Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtWarenwertWaehrung.key_visible = False
Me.txtWarenwertWaehrung.KEYPARAM = Nothing
Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(397, 212)
Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
Me.txtWarenwertWaehrung.searchActive = True
Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing
Me.txtWarenwertWaehrung.SQL_SELECT = Nothing
Me.txtWarenwertWaehrung.SQL_WHERE = Nothing
Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing
Me.txtWarenwertWaehrung.TabIndex = 16
Me.txtWarenwertWaehrung.usrcntl = Nothing
'
'lblWW
'
Me.lblWW.AutoSize = True
Me.lblWW.Location = New System.Drawing.Point(218, 215)
Me.lblWW.Name = "lblWW"
Me.lblWW.Size = New System.Drawing.Size(62, 13)
Me.lblWW.TabIndex = 14
Me.lblWW.Text = "Warenwert:"
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = True
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(289, 212)
Me.txtWarenwert.MaxLineLength = -1
Me.txtWarenwert.MaxLines_Warning = ""
Me.txtWarenwert.MaxLines_Warning_Label = Nothing
Me.txtWarenwert.Name = "txtWarenwert"
Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
Me.txtWarenwert.TabIndex = 15
Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'frmAddSendnung
'
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(389, 441)
Me.ClientSize = New System.Drawing.Size(449, 441)
Me.Controls.Add(Me.txtWarenwertWaehrung)
Me.Controls.Add(Me.lblWW)
Me.Controls.Add(Me.txtWarenwert)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.picWarnEmpfaenger)
@@ -368,4 +437,7 @@ Partial Class frmAddSendnung
Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Label4 As Label
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWW As Label
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

9
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -32,6 +32,8 @@
txtAbsender.usrcntlWIDTH = 360
txtAbsender.usrcntlHEIGHT = 100
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
@@ -60,6 +62,8 @@
txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
@@ -73,7 +77,7 @@
txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("f Gewicht: Falsches Format") : Exit Sub
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
If Sendung Is Nothing Then
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
@@ -88,6 +92,9 @@
Sendung.tblSnd_Gewicht = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value)
If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text

86
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb generated
View File

@@ -26,8 +26,6 @@ Partial Class frmSendungAnhangImport
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.lblSendungen = New System.Windows.Forms.Label()
Me.lblImport = New System.Windows.Forms.Label()
@@ -70,6 +68,9 @@ Partial Class frmSendungAnhangImport
Me.lblEmpfaenger = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button17 = New System.Windows.Forms.Button()
Me.lblRgPreis = New System.Windows.Forms.Label()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
@@ -100,36 +101,6 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 7
'
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'flpnlSendungen
'
Me.flpnlSendungen.AllowDrop = True
@@ -220,6 +191,7 @@ Partial Class frmSendungAnhangImport
Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._TimeOnly_Seconds = False
Me.txtBezeichnung._value = ""
Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True
@@ -274,6 +246,7 @@ Partial Class frmSendungAnhangImport
Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False
Me.txtDateiname._TimeOnly_Seconds = False
Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True
@@ -305,6 +278,7 @@ Partial Class frmSendungAnhangImport
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
@@ -370,6 +344,7 @@ Partial Class frmSendungAnhangImport
Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False
Me.txtSeiten._TimeOnly_Seconds = False
Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False
Me.txtSeiten._WaehrungZeichen = True
@@ -555,9 +530,9 @@ Partial Class frmSendungAnhangImport
'
Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 99)
Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
Me.lblSendungsdetails.Name = "lblSendungsdetails"
Me.lblSendungsdetails.Size = New System.Drawing.Size(223, 17)
Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
Me.lblSendungsdetails.TabIndex = 13
Me.lblSendungsdetails.Text = "-"
'
@@ -627,6 +602,47 @@ Partial Class frmSendungAnhangImport
Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button17.UseVisualStyleBackColor = True
'
'lblRgPreis
'
Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
Me.lblRgPreis.Name = "lblRgPreis"
Me.lblRgPreis.Size = New System.Drawing.Size(107, 21)
Me.lblRgPreis.TabIndex = 19
Me.lblRgPreis.Text = "-"
Me.lblRgPreis.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'frmSendungAnhangImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -653,6 +669,7 @@ Partial Class frmSendungAnhangImport
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.lblEmpfaenger)
Me.Controls.Add(Me.lblRgPreis)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
@@ -714,4 +731,5 @@ Partial Class frmSendungAnhangImport
Friend WithEvents Panel1 As Panel
Friend WithEvents Button17 As Button
Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
Friend WithEvents lblRgPreis As Label
End Class

6
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1164,6 +1164,12 @@ Public Class frmSendungAnhangImport
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
If If(SND.tblSnd_Colli, "") <> "" Then lblSendungsdetails.Text = SND.tblSnd_Colli & " Pk"
If If(SND.tblSnd_Gewicht, "") <> "" Then lblSendungsdetails.Text &= If(lblSendungsdetails.Text <> "", "; ", "") & CDbl(SND.tblSnd_Gewicht.Replace(" ", "").Replace(Chr(160), "")).ToString("N1") & " kg"
If If(SND.tblSnd_Gewicht, "") <> "" Then
lblRgPreis.Text = (CDbl(SND.tblSnd_Warenwert).ToString("N2") & " " & If(SND.tblSnd_WarenwertWaehrung, "")).trim
Else
lblRgPreis.Text = ""
End If
lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
lblAbsender.Text = If(SND.tblSnd_Absender, "")
lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")