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

Qualitaetskontrolle

Browse Source
This commit is contained in:
d.breimaier
2024-08-08 09:28:56 +02:00
parent e1ceb47c39
commit 6dec1965f4
3 changed files with 144 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

231
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb generated
View File

@@ -22,15 +22,15 @@ Partial Class usrCntlQualitaetskontrolle
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Label46 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Label40 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label()
@@ -62,12 +62,6 @@ Partial Class usrCntlQualitaetskontrolle
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.dgvPositionen = New System.Windows.Forms.DataGridView() Me.dgvPositionen = New System.Windows.Forms.DataGridView()
Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtPackAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPackFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -100,15 +94,21 @@ Partial Class usrCntlQualitaetskontrolle
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label()
Me.dgvGebuehren = New System.Windows.Forms.DataGridView() Me.dgvGebuehren = New System.Windows.Forms.DataGridView()
Me.Button5 = New System.Windows.Forms.Button()
Me.cbxVerzicht = New System.Windows.Forms.CheckBox()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gew = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.gew = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Faktor = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Faktor = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Betrag = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Betrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button5 = New System.Windows.Forms.Button()
Me.cbxVerzicht = New System.Windows.Forms.CheckBox()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvGebuehren, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvGebuehren, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -561,51 +561,6 @@ Partial Class usrCntlQualitaetskontrolle
Me.dgvPositionen.Size = New System.Drawing.Size(791, 345) Me.dgvPositionen.Size = New System.Drawing.Size(791, 345)
Me.dgvPositionen.TabIndex = 156 Me.dgvPositionen.TabIndex = 156
' '
'pos
'
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle19.Format = "N0"
DataGridViewCellStyle19.NullValue = Nothing
Me.pos.DefaultCellStyle = DataGridViewCellStyle19
Me.pos.Frozen = True
Me.pos.HeaderText = "Position"
Me.pos.MaxInputLength = 3
Me.pos.Name = "pos"
Me.pos.ReadOnly = True
Me.pos.Width = 50
'
'anZ_pkgstk
'
Me.anZ_pkgstk.HeaderText = "Anz-Packs."
Me.anZ_pkgstk.Name = "anZ_pkgstk"
'
'art_pkgstk
'
Me.art_pkgstk.HeaderText = "Art-Packs"
Me.art_pkgstk.Name = "art_pkgstk"
'
'erzeugnis
'
Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.erzeugnis.HeaderText = "Art des Erzeugnisses"
Me.erzeugnis.Name = "erzeugnis"
'
'gewicht
'
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle20.Format = "N2"
DataGridViewCellStyle20.NullValue = Nothing
Me.gewicht.DefaultCellStyle = DataGridViewCellStyle20
Me.gewicht.HeaderText = "Gewicht"
Me.gewicht.MaxInputLength = 100
Me.gewicht.Name = "gewicht"
'
'KNCode
'
Me.KNCode.HeaderText = "KNCode"
Me.KNCode.Name = "KNCode"
Me.KNCode.ReadOnly = True
'
'txtPackAdresse2 'txtPackAdresse2
' '
Me.txtPackAdresse2._DateTimeOnly = False Me.txtPackAdresse2._DateTimeOnly = False
@@ -847,10 +802,10 @@ Partial Class usrCntlQualitaetskontrolle
' '
'DataGridViewTextBoxColumn1 'DataGridViewTextBoxColumn1
' '
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle21.Format = "N0" DataGridViewCellStyle3.Format = "N0"
DataGridViewCellStyle21.NullValue = Nothing DataGridViewCellStyle3.NullValue = Nothing
Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle21 Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle3
Me.DataGridViewTextBoxColumn1.Frozen = True Me.DataGridViewTextBoxColumn1.Frozen = True
Me.DataGridViewTextBoxColumn1.HeaderText = "Position" Me.DataGridViewTextBoxColumn1.HeaderText = "Position"
Me.DataGridViewTextBoxColumn1.MaxInputLength = 3 Me.DataGridViewTextBoxColumn1.MaxInputLength = 3
@@ -872,20 +827,20 @@ Partial Class usrCntlQualitaetskontrolle
'DataGridViewTextBoxColumn4 'DataGridViewTextBoxColumn4
' '
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle22.Format = "N2" DataGridViewCellStyle4.Format = "N2"
DataGridViewCellStyle22.NullValue = Nothing DataGridViewCellStyle4.NullValue = Nothing
Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle22 Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle4
Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 100 Me.DataGridViewTextBoxColumn4.MaxInputLength = 100
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
' '
'DataGridViewTextBoxColumn5 'DataGridViewTextBoxColumn5
' '
DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle23.Format = "N2" DataGridViewCellStyle5.Format = "N2"
DataGridViewCellStyle23.NullValue = Nothing DataGridViewCellStyle5.NullValue = Nothing
Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle23 Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle5
Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht"
Me.DataGridViewTextBoxColumn5.MaxInputLength = 100 Me.DataGridViewTextBoxColumn5.MaxInputLength = 100
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
@@ -996,6 +951,49 @@ Partial Class usrCntlQualitaetskontrolle
Me.dgvGebuehren.Size = New System.Drawing.Size(545, 158) Me.dgvGebuehren.Size = New System.Drawing.Size(545, 158)
Me.dgvGebuehren.TabIndex = 189 Me.dgvGebuehren.TabIndex = 189
' '
'Art
'
Me.Art.HeaderText = "Art"
Me.Art.Name = "Art"
Me.Art.ReadOnly = True
'
'gew
'
DataGridViewCellStyle6.Format = "N2"
DataGridViewCellStyle6.NullValue = Nothing
Me.gew.DefaultCellStyle = DataGridViewCellStyle6
Me.gew.HeaderText = "Gewicht"
Me.gew.Name = "gew"
Me.gew.ReadOnly = True
'
'Preis
'
DataGridViewCellStyle7.Format = "C2"
DataGridViewCellStyle7.NullValue = Nothing
Me.Preis.DefaultCellStyle = DataGridViewCellStyle7
Me.Preis.HeaderText = "Preis"
Me.Preis.Name = "Preis"
Me.Preis.ReadOnly = True
'
'Faktor
'
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle8.Format = "N0"
DataGridViewCellStyle8.NullValue = Nothing
Me.Faktor.DefaultCellStyle = DataGridViewCellStyle8
Me.Faktor.HeaderText = "Faktor"
Me.Faktor.Name = "Faktor"
Me.Faktor.ReadOnly = True
'
'Betrag
'
DataGridViewCellStyle9.Format = "C2"
DataGridViewCellStyle9.NullValue = Nothing
Me.Betrag.DefaultCellStyle = DataGridViewCellStyle9
Me.Betrag.HeaderText = "Betrag"
Me.Betrag.Name = "Betrag"
Me.Betrag.ReadOnly = True
'
'Button5 'Button5
' '
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1030,7 +1028,7 @@ Partial Class usrCntlQualitaetskontrolle
Me.txtSumme._ShortDateOnly = False Me.txtSumme._ShortDateOnly = False
Me.txtSumme._TimeOnly = False Me.txtSumme._TimeOnly = False
Me.txtSumme._TimeOnly_Seconds = False Me.txtSumme._TimeOnly_Seconds = False
Me.txtSumme._value = Nothing Me.txtSumme._value = ""
Me.txtSumme._Waehrung = True Me.txtSumme._Waehrung = True
Me.txtSumme._WaehrungZeichen = True Me.txtSumme._WaehrungZeichen = True
Me.txtSumme.ForeColor = System.Drawing.Color.Black Me.txtSumme.ForeColor = System.Drawing.Color.Black
@@ -1053,48 +1051,49 @@ Partial Class usrCntlQualitaetskontrolle
Me.Label18.TabIndex = 192 Me.Label18.TabIndex = 192
Me.Label18.Text = "Betrag:" Me.Label18.Text = "Betrag:"
' '
'Art 'pos
' '
Me.Art.HeaderText = "Art" DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.Art.Name = "Art" DataGridViewCellStyle1.Format = "N0"
Me.Art.ReadOnly = True DataGridViewCellStyle1.NullValue = Nothing
Me.pos.DefaultCellStyle = DataGridViewCellStyle1
Me.pos.Frozen = True
Me.pos.HeaderText = "Position"
Me.pos.MaxInputLength = 3
Me.pos.Name = "pos"
Me.pos.ReadOnly = True
Me.pos.Width = 50
' '
'gew 'anZ_pkgstk
' '
DataGridViewCellStyle24.Format = "N2" Me.anZ_pkgstk.HeaderText = "Anz-Packs."
DataGridViewCellStyle24.NullValue = Nothing Me.anZ_pkgstk.Name = "anZ_pkgstk"
Me.gew.DefaultCellStyle = DataGridViewCellStyle24
Me.gew.HeaderText = "Gewicht"
Me.gew.Name = "gew"
Me.gew.ReadOnly = True
' '
'Preis 'art_pkgstk
' '
DataGridViewCellStyle25.Format = "C2" Me.art_pkgstk.HeaderText = "Art-Packs"
DataGridViewCellStyle25.NullValue = Nothing Me.art_pkgstk.Name = "art_pkgstk"
Me.Preis.DefaultCellStyle = DataGridViewCellStyle25
Me.Preis.HeaderText = "Preis"
Me.Preis.Name = "Preis"
Me.Preis.ReadOnly = True
' '
'Faktor 'erzeugnis
' '
DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle26.Format = "N0" Me.erzeugnis.HeaderText = "Art des Erzeugnisses"
DataGridViewCellStyle26.NullValue = Nothing Me.erzeugnis.Name = "erzeugnis"
Me.Faktor.DefaultCellStyle = DataGridViewCellStyle26
Me.Faktor.HeaderText = "Faktor"
Me.Faktor.Name = "Faktor"
Me.Faktor.ReadOnly = True
' '
'Betrag 'gewicht
' '
DataGridViewCellStyle27.Format = "C2" DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle27.NullValue = Nothing DataGridViewCellStyle2.Format = "N2"
Me.Betrag.DefaultCellStyle = DataGridViewCellStyle27 DataGridViewCellStyle2.NullValue = Nothing
Me.Betrag.HeaderText = "Betrag" Me.gewicht.DefaultCellStyle = DataGridViewCellStyle2
Me.Betrag.Name = "Betrag" Me.gewicht.HeaderText = "Gewicht"
Me.Betrag.ReadOnly = True Me.gewicht.MaxInputLength = 100
Me.gewicht.Name = "gewicht"
'
'KNCode
'
Me.KNCode.HeaderText = "KNCode"
Me.KNCode.Name = "KNCode"
' '
'usrCntlQualitaetskontrolle 'usrCntlQualitaetskontrolle
' '
@@ -1238,12 +1237,6 @@ Partial Class usrCntlQualitaetskontrolle
Friend WithEvents dgvGebuehren As DataGridView Friend WithEvents dgvGebuehren As DataGridView
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
Friend WithEvents cbxVerzicht As CheckBox Friend WithEvents cbxVerzicht As CheckBox
Friend WithEvents pos As DataGridViewTextBoxColumn
Friend WithEvents anZ_pkgstk As DataGridViewTextBoxColumn
Friend WithEvents art_pkgstk As DataGridViewTextBoxColumn
Friend WithEvents erzeugnis As DataGridViewTextBoxColumn
Friend WithEvents gewicht As DataGridViewTextBoxColumn
Friend WithEvents KNCode As DataGridViewTextBoxColumn
Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label Friend WithEvents Label18 As Label
Friend WithEvents Art As DataGridViewTextBoxColumn Friend WithEvents Art As DataGridViewTextBoxColumn
@@ -1251,4 +1244,10 @@ Partial Class usrCntlQualitaetskontrolle
Friend WithEvents Preis As DataGridViewTextBoxColumn Friend WithEvents Preis As DataGridViewTextBoxColumn
Friend WithEvents Faktor As DataGridViewTextBoxColumn Friend WithEvents Faktor As DataGridViewTextBoxColumn
Friend WithEvents Betrag As DataGridViewTextBoxColumn Friend WithEvents Betrag As DataGridViewTextBoxColumn
Friend WithEvents pos As DataGridViewTextBoxColumn
Friend WithEvents anZ_pkgstk As DataGridViewTextBoxColumn
Friend WithEvents art_pkgstk As DataGridViewTextBoxColumn
Friend WithEvents erzeugnis As DataGridViewTextBoxColumn
Friend WithEvents gewicht As DataGridViewTextBoxColumn
Friend WithEvents KNCode As DataGridViewTextBoxColumn
End Class End Class

18
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx
View File

@@ -135,24 +135,6 @@
<metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="pos.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="anZ_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="art_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="erzeugnis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="gewicht.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>

45
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb
View File

@@ -164,20 +164,6 @@ Public Class usrCntlQualitaetskontrolle
cbxUrsprungslang.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz; ", True, "VERAG", True) cbxUrsprungslang.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz; ", True, "VERAG", True)
cbxBestimmungsland.Items.AddRange(cbxUrsprungslang.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) cbxBestimmungsland.Items.AddRange(cbxUrsprungslang.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
If SENDUNG IsNot Nothing Then
If SENDUNG.tblSnd_DakosyRef <> "" Then
loadEZollData(SENDUNG.tblSnd_DakosyRef)
ElseIf SENDUNG.FilialenNr > 0 AndAlso SENDUNG.AbfertigungsNr > 0 Then
Dim ref = SENDUNG.FilialenNr.ToString & "/" & SENDUNG.AbfertigungsNr.ToString
loadEZollData(ref)
End If
End If
initKdNR(KdNR)
initSND()
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Normen = sql.loadDgvBySql("select * from tblVermarktungsnormen", "FMZOLL") Normen = sql.loadDgvBySql("select * from tblVermarktungsnormen", "FMZOLL")
@@ -193,6 +179,19 @@ Public Class usrCntlQualitaetskontrolle
NormenpreisAllg = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 0 order by gueltigAb desc", "FMZOLL")) NormenpreisAllg = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 0 order by gueltigAb desc", "FMZOLL"))
NormenpreisSpez = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 1 order by gueltigAb desc", "FMZOLL")) NormenpreisSpez = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 1 order by gueltigAb desc", "FMZOLL"))
If SENDUNG IsNot Nothing Then
If SENDUNG.tblSnd_DakosyRef <> "" Then
loadEZollData(SENDUNG.tblSnd_DakosyRef)
ElseIf SENDUNG.FilialenNr > 0 AndAlso SENDUNG.AbfertigungsNr > 0 Then
Dim ref = SENDUNG.FilialenNr.ToString & "/" & SENDUNG.AbfertigungsNr.ToString
loadEZollData(ref)
End If
End If
initKdNR(KdNR)
initSND()
End Sub End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
@@ -217,13 +216,17 @@ Public Class usrCntlQualitaetskontrolle
Private Sub loadDGV(dt As DataTable) Private Sub loadDGV(dt As DataTable)
Dim couter As Integer = 1 Dim couter As Integer = 1
Dim checkKNCode As Boolean = False
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
dgvPositionen.Rows.Add(row("ItNr"), row("Nr"), row("Kind"), row("GdsDes"), row("Net"), row("ComCd")) dgvPositionen.Rows.Add(row("ItNr"), row("Nr"), row("Kind"), row("GdsDes"), row("Net"), row("ComCd"))
If row("ComCd") <> "" Then checkKNCode = True
couter = +1 couter = +1
Next Next
If checkKNCode Then initdgvGebuehren()
End Sub End Sub
Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded
@@ -370,6 +373,7 @@ Public Class usrCntlQualitaetskontrolle
Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged
Dim gewicht As Double = 0 Dim gewicht As Double = 0
Dim colli As Double = 0 Dim colli As Double = 0
Dim checkKNCode As Boolean = False
For Each r As DataGridViewRow In dgvPositionen.Rows For Each r As DataGridViewRow In dgvPositionen.Rows
@@ -383,10 +387,17 @@ Public Class usrCntlQualitaetskontrolle
End If End If
If r IsNot Nothing And r.Cells(5).Value <> "" Then
checkKNCode = True
End If
Next Next
txtGewicht.Text = gewicht & " kg" txtGewicht.Text = gewicht & " kg"
txtAnzVerp.Text = colli txtAnzVerp.Text = colli
If checkKNCode Then initdgvGebuehren()
End Sub End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
@@ -433,6 +444,8 @@ Public Class usrCntlQualitaetskontrolle
If dgvPositionen.Rows.Count < 1 Then Exit Sub If dgvPositionen.Rows.Count < 1 Then Exit Sub
If normenSpeziell.Rows.Count < 1 Or normenSpeziell.Rows.Count < 1 Then Exit Sub
Dim sumNormenAllg As Double = 0 Dim sumNormenAllg As Double = 0
Dim sumNormenSpez As Double = 0 Dim sumNormenSpez As Double = 0
@@ -486,12 +499,12 @@ Public Class usrCntlQualitaetskontrolle
If sumNormenAllg > 0 Then If sumNormenAllg > 0 Then
Dim anzAllg As Integer Dim anzAllg As Integer
anzAllg = sumNormenAllg / 1000 anzAllg = Math.Ceiling(sumNormenAllg / 1000)
dgvGebuehren.Rows.Add("Allgemein", sumNormenAllg, NormenpreisAllg, anzAllg, anzAllg * NormenpreisAllg) dgvGebuehren.Rows.Add("Allgemein", sumNormenAllg, NormenpreisAllg, anzAllg, anzAllg * NormenpreisAllg)
End If End If
If sumNormenSpez > 0 Then If sumNormenSpez > 0 Then
Dim anzSpez As Integer Dim anzSpez As Integer
anzSpez = sumNormenSpez / 1000 anzSpez = Math.Ceiling(sumNormenSpez / 1000)
dgvGebuehren.Rows.Add("Speziell", sumNormenSpez, NormenpreisSpez, anzSpez, anzSpez * NormenpreisSpez) dgvGebuehren.Rows.Add("Speziell", sumNormenSpez, NormenpreisSpez, anzSpez, anzSpez * NormenpreisSpez)
End If End If