This commit is contained in:
2022-10-28 08:05:43 +02:00
3 changed files with 25 additions and 5 deletions

View File

@@ -32,13 +32,13 @@ Partial Class frmAviso_Vorpapiere
Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1" Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157) Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 164)
Me.UsrCntlAviso_Vorpapiere1.TabIndex = 64 Me.UsrCntlAviso_Vorpapiere1.TabIndex = 64
' '
'btn 'btn
' '
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(289, 163) Me.btn.Location = New System.Drawing.Point(289, 170)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(109, 33) Me.btn.Size = New System.Drawing.Size(109, 33)
Me.btn.TabIndex = 65 Me.btn.TabIndex = 65
@@ -55,7 +55,8 @@ Partial Class frmAviso_Vorpapiere
Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1) Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAviso_Vorpapiere" Me.Name = "frmAviso_Vorpapiere"
Me.Text = "frmAviso_Vorpapiere" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Vorpapiere"
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

View File

@@ -163,6 +163,19 @@ Public Class frmSendungsdetailsNEU
End If End If
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
(cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
(cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
If MsgBox("Pre-Paper Psoition is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
Return False
End If
End If
End If
Return True Return True
End Function End Function

View File

@@ -33,10 +33,13 @@ Partial Class usrCntlAviso_Vorpapiere
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.dgvVorpapier) Me.GroupBox1.Controls.Add(Me.dgvVorpapier)
Me.GroupBox1.Location = New System.Drawing.Point(0, 0) Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(403, 150) Me.GroupBox1.Size = New System.Drawing.Size(403, 157)
Me.GroupBox1.TabIndex = 57 Me.GroupBox1.TabIndex = 57
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Vorpapiere" Me.GroupBox1.Text = "Vorpapiere"
@@ -46,13 +49,16 @@ Partial Class usrCntlAviso_Vorpapiere
Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVorpapier.AllowUserToResizeColumns = False Me.dgvVorpapier.AllowUserToResizeColumns = False
Me.dgvVorpapier.AllowUserToResizeRows = False Me.dgvVorpapier.AllowUserToResizeRows = False
Me.dgvVorpapier.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White
Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnMRN}) Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnMRN})
Me.dgvVorpapier.Location = New System.Drawing.Point(9, 19) Me.dgvVorpapier.Location = New System.Drawing.Point(9, 19)
Me.dgvVorpapier.Name = "dgvVorpapier" Me.dgvVorpapier.Name = "dgvVorpapier"
Me.dgvVorpapier.RowHeadersWidth = 25 Me.dgvVorpapier.RowHeadersWidth = 25
Me.dgvVorpapier.Size = New System.Drawing.Size(388, 126) Me.dgvVorpapier.Size = New System.Drawing.Size(388, 133)
Me.dgvVorpapier.TabIndex = 36 Me.dgvVorpapier.TabIndex = 36
' '
'clmnArt 'clmnArt