From 2568d3ff0c852393c5971a109831231b554e318c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 31 Oct 2023 17:08:21 +0100 Subject: [PATCH] =?UTF-8?q?Qualit=C3=A4tskontrolle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/Formulare/KDFormulare/frmFormulare.vb | 144 +++ SDL/SDL.vbproj | 9 + .../usrCntlQualitaetskontrolle.Designer.vb | 1010 +++++++++++++++++ .../usrCntlQualitaetskontrolle.resx | 135 +++ .../usrCntlQualitaetskontrolle.vb | 282 +++++ 5 files changed, 1580 insertions(+) create mode 100644 SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.Designer.vb create mode 100644 SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.resx create mode 100644 SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 3d73f312..6c91e10a 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -284,6 +284,8 @@ Public Class frmFormulare MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle)) ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) @@ -769,6 +771,23 @@ Public Class frmFormulare MyFlowLayoutPanel1.Controls.Add(c) End If + Case FormularManagerArten.Qualitaetskontrolle + Dim displayName = "" + Dim c As usrCntlQualitaetskontrolle + If param Is Nothing Then + c = New usrCntlQualitaetskontrolle + Else + c = New usrCntlQualitaetskontrolle(param) + End If + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) + End If + @@ -1347,6 +1366,8 @@ Public Class FormularManagerNEU striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail) Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail) + Case GetType(usrCntlQualitaetskontrolle).ToString + retStr = FormularManagerNEU.Qualitaetskontrolle(c) Case GetType(usrcntlQS_UeDok).ToString retStr = FormularManagerNEU.QS_UeDok(c) @@ -4141,6 +4162,127 @@ Public Class FormularManagerNEU Return "" End Function + + Shared Function Qualitaetskontrolle(usrCntl As usrCntlQualitaetskontrolle) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + 'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + + + If usrCntl.dtpBeschauDat IsNot Nothing AndAlso IsDate((usrCntl.dtpBeschauDat.Value)) Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", usrCntl.dtpBeschauDat.Value.ToString)) + End If + + 'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teilnehmer", usrCntl.bb_Teilnehmer.ToString)) + + 'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführer", BB.bb_Geschaeftsfuehrer.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", BB.bb_Anpsprechpartner.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", txtFirma.Text)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umatz", BB.bb_Umsatz)) 'ACHTUNG -> im Formular wurde das Feld "Umatz" benannt, nicht korrigieren! + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefon", BB.bb_Telefon.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail", BB.bb_Mail.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWEigentum", BB.bb_FuhrparkEigentum.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWLeasing", BB.bb_FuhrparkLeasing.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", BB.bb_Auftraggeber.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TransportRouten", BB.bb_Route.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DerzeitigerAnbieter", BB.bb_DerzeitigerLieferant.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bericht", BB.bb_Vermerk.ToString)) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Garentie", BB.bb_Garantie)) 'ACHTUNG -> im Formular wurde das Feld "Garentie" benannt, nicht korrigieren! + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plane", IIf(BB.bb_LKW_Plane = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kühltransporte", IIf(BB.bb_LKW_Kuehltranporte = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sondertransporte", IIf(BB.bb_LKW_Sondertransporte = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sprinter", IIf(BB.bb_LKW_Sprinter = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SiloTank", IIf(BB.bb_LKW_SiloTank = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabfertigung", IIf(BB.bb_Interesse_Zollabfertigung = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Brexit", IIf(BB.bb_Interesse_Brexit = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Parkplatz", IIf(BB.bb_Interesse_Parkplatz = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LagerUmladung", IIf(BB.bb_Interesse_LagerUmschlag = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rola", IIf(BB.bb_Interesse_Rola = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YesMoney", IIf(BB.bb_Interesse_YesMoney = True, "On", "Off"))) + + 'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off"))) + + + + Select Case usrCntl.cbxTyp.SelectedItem.value + + Case "O" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + + Case "B" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + + Case "E" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + + End Select + + Select Case usrCntl.cbxEinf.SelectedItem.value + + Case "A" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + + Case "E" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + + End Select + + + + + + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxUrsprungslang.SelectedItem.Text, 61, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxBestimmungsland.SelectedItem.Text, 115, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + '---------------------- + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 198, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 208, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 218, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + fm.fillPDF("Qualitatskontrolle", Nothing, list, , , , , , ) + + 'Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite) + + + Return "" + End Function + + Shared Function FiskalInfoschreiben(usrCntl As usrcntlFiskalInfoschreiben) As String Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing Dim oWord As New Microsoft.Office.Interop.Word.Application @@ -5701,6 +5843,8 @@ Public Class FormularManagerArten Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung" Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll" + Shared Property Qualitaetskontrolle = "Qualitätskontrolle" + End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 18df9182..13e45e13 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -650,6 +650,12 @@ Form + + usrCntlQualitaetskontrolle.vb + + + UserControl + rptFrachtkostenberechnung.vb @@ -3075,6 +3081,9 @@ frmPOSTerminal.vb + + usrCntlQualitaetskontrolle.vb + rptFrachtkostenberechnung.vb diff --git a/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.Designer.vb b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.Designer.vb new file mode 100644 index 00000000..c71eea64 --- /dev/null +++ b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.Designer.vb @@ -0,0 +1,1010 @@ + +Partial Class usrCntlQualitaetskontrolle + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.Label46 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label40 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.pic = New System.Windows.Forms.PictureBox() + Me.btn = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblHerrFrau = New System.Windows.Forms.Label() + Me.lblQualitaetskontrolle = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.dtpBeschauDat = New System.Windows.Forms.DateTimePicker() + Me.Label19 = New System.Windows.Forms.Label() + Me.txtBeschauDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFilialNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnzVerp = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtLKWKennz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.dgvPositionen = New System.Windows.Forms.DataGridView() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Button3 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.cbxEinf = New System.Windows.Forms.ComboBox() + Me.cbxTyp = New System.Windows.Forms.ComboBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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.cbxUrsprungslang = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxBestimmungsland = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(178, 205) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(43, 13) + Me.Label46.TabIndex = 83 + Me.Label46.Text = "Abf-Nr.:" + ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.person + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(922, 48) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(24, 20) + Me.Button2.TabIndex = 64 + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(52, 205) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(99, 13) + Me.Label40.TabIndex = 82 + Me.Label40.Text = "Sendungsdaten:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(838, 663) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(49, 13) + Me.Label7.TabIndex = 97 + Me.Label7.Text = "Gewicht:" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(692, 660) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(61, 13) + Me.Label9.TabIndex = 93 + Me.Label9.Text = "Anz./Verp.:" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(178, 224) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(70, 13) + Me.Label37.TabIndex = 89 + Me.Label37.Text = "LKW-Kennz.:" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(178, 51) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(78, 13) + Me.Label26.TabIndex = 62 + Me.Label26.Text = "Firmenwortlaut:" + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(978, 46) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 60 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(978, 26) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 57 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(978, 3) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 50 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(13, 1) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 80 + Me.pic.TabStop = False + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(945, 48) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 65 + Me.btn.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(178, 70) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 66 + Me.Label1.Text = "Adresse:" + ' + 'lblHerrFrau + ' + Me.lblHerrFrau.AutoSize = True + Me.lblHerrFrau.Location = New System.Drawing.Point(178, 32) + Me.lblHerrFrau.Name = "lblHerrFrau" + Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) + Me.lblHerrFrau.TabIndex = 58 + Me.lblHerrFrau.Text = "Herr/Frau:" + ' + 'lblQualitaetskontrolle + ' + Me.lblQualitaetskontrolle.AutoSize = True + Me.lblQualitaetskontrolle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblQualitaetskontrolle.Location = New System.Drawing.Point(51, 4) + Me.lblQualitaetskontrolle.Name = "lblQualitaetskontrolle" + Me.lblQualitaetskontrolle.Size = New System.Drawing.Size(150, 20) + Me.lblQualitaetskontrolle.TabIndex = 51 + Me.lblQualitaetskontrolle.Text = "Qualitätskontrolle" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(444, 205) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(47, 13) + Me.Label14.TabIndex = 103 + Me.Label14.Text = "Filial-Nr.:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(52, 32) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(55, 13) + Me.Label16.TabIndex = 107 + Me.Label16.Text = "Händler:" + ' + 'dtpBeschauDat + ' + Me.dtpBeschauDat.CustomFormat = "''" + Me.dtpBeschauDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpBeschauDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpBeschauDat.Location = New System.Drawing.Point(311, 4) + Me.dtpBeschauDat.Margin = New System.Windows.Forms.Padding(0) + Me.dtpBeschauDat.Name = "dtpBeschauDat" + Me.dtpBeschauDat.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dtpBeschauDat.Size = New System.Drawing.Size(110, 20) + Me.dtpBeschauDat.TabIndex = 113 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(259, 7) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(47, 13) + Me.Label19.TabIndex = 118 + Me.Label19.Text = "Datum:" + ' + 'txtBeschauDat + ' + Me.txtBeschauDat._DateTimeOnly = False + Me.txtBeschauDat._numbersOnly = False + Me.txtBeschauDat._numbersOnlyKommastellen = "" + Me.txtBeschauDat._numbersOnlyTrennzeichen = True + Me.txtBeschauDat._Prozent = False + Me.txtBeschauDat._ShortDateNew = False + Me.txtBeschauDat._ShortDateOnly = True + Me.txtBeschauDat._TimeOnly = False + Me.txtBeschauDat._TimeOnly_Seconds = False + Me.txtBeschauDat._value = "" + Me.txtBeschauDat._Waehrung = False + Me.txtBeschauDat._WaehrungZeichen = True + Me.txtBeschauDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBeschauDat.ForeColor = System.Drawing.Color.Black + Me.txtBeschauDat.Location = New System.Drawing.Point(312, 4) + Me.txtBeschauDat.MaxLength = 10 + Me.txtBeschauDat.MaxLineLength = -1 + Me.txtBeschauDat.MaxLines_Warning = "" + Me.txtBeschauDat.MaxLines_Warning_Label = Nothing + Me.txtBeschauDat.Name = "txtBeschauDat" + Me.txtBeschauDat.Size = New System.Drawing.Size(78, 20) + Me.txtBeschauDat.TabIndex = 112 + ' + 'txtFilialNr + ' + Me.txtFilialNr._DateTimeOnly = False + Me.txtFilialNr._numbersOnly = False + Me.txtFilialNr._numbersOnlyKommastellen = "" + Me.txtFilialNr._numbersOnlyTrennzeichen = True + Me.txtFilialNr._Prozent = False + Me.txtFilialNr._ShortDateNew = False + Me.txtFilialNr._ShortDateOnly = False + Me.txtFilialNr._TimeOnly = False + Me.txtFilialNr._TimeOnly_Seconds = False + Me.txtFilialNr._value = Nothing + Me.txtFilialNr._Waehrung = False + Me.txtFilialNr._WaehrungZeichen = True + Me.txtFilialNr.ForeColor = System.Drawing.Color.Black + Me.txtFilialNr.Location = New System.Drawing.Point(501, 202) + Me.txtFilialNr.MaxLineLength = -1 + Me.txtFilialNr.MaxLines_Warning = "" + Me.txtFilialNr.MaxLines_Warning_Label = Nothing + Me.txtFilialNr.Name = "txtFilialNr" + Me.txtFilialNr.Size = New System.Drawing.Size(71, 20) + Me.txtFilialNr.TabIndex = 104 + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = False + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = True + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = Nothing + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = True + Me.txtAbfNr.ForeColor = System.Drawing.Color.Black + Me.txtAbfNr.Location = New System.Drawing.Point(262, 202) + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(165, 20) + Me.txtAbfNr.TabIndex = 84 + ' + 'txtGewicht + ' + Me.txtGewicht._DateTimeOnly = False + Me.txtGewicht._numbersOnly = False + Me.txtGewicht._numbersOnlyKommastellen = "" + Me.txtGewicht._numbersOnlyTrennzeichen = True + Me.txtGewicht._Prozent = False + Me.txtGewicht._ShortDateNew = False + Me.txtGewicht._ShortDateOnly = False + Me.txtGewicht._TimeOnly = False + Me.txtGewicht._TimeOnly_Seconds = False + Me.txtGewicht._value = Nothing + Me.txtGewicht._Waehrung = False + Me.txtGewicht._WaehrungZeichen = True + Me.txtGewicht.ForeColor = System.Drawing.Color.Black + Me.txtGewicht.Location = New System.Drawing.Point(893, 657) + Me.txtGewicht.MaxLineLength = -1 + Me.txtGewicht.MaxLines_Warning = "" + Me.txtGewicht.MaxLines_Warning_Label = Nothing + Me.txtGewicht.Name = "txtGewicht" + Me.txtGewicht.Size = New System.Drawing.Size(78, 20) + Me.txtGewicht.TabIndex = 98 + ' + 'txtAnzVerp + ' + Me.txtAnzVerp._DateTimeOnly = False + Me.txtAnzVerp._numbersOnly = False + Me.txtAnzVerp._numbersOnlyKommastellen = "" + Me.txtAnzVerp._numbersOnlyTrennzeichen = True + Me.txtAnzVerp._Prozent = False + Me.txtAnzVerp._ShortDateNew = False + Me.txtAnzVerp._ShortDateOnly = False + Me.txtAnzVerp._TimeOnly = False + Me.txtAnzVerp._TimeOnly_Seconds = False + Me.txtAnzVerp._value = Nothing + Me.txtAnzVerp._Waehrung = False + Me.txtAnzVerp._WaehrungZeichen = True + Me.txtAnzVerp.ForeColor = System.Drawing.Color.Black + Me.txtAnzVerp.Location = New System.Drawing.Point(759, 657) + Me.txtAnzVerp.MaxLineLength = -1 + Me.txtAnzVerp.MaxLines_Warning = "" + Me.txtAnzVerp.MaxLines_Warning_Label = Nothing + Me.txtAnzVerp.Name = "txtAnzVerp" + Me.txtAnzVerp.Size = New System.Drawing.Size(73, 20) + Me.txtAnzVerp.TabIndex = 94 + ' + 'txtLKWKennz + ' + Me.txtLKWKennz._DateTimeOnly = False + Me.txtLKWKennz._numbersOnly = False + Me.txtLKWKennz._numbersOnlyKommastellen = "" + Me.txtLKWKennz._numbersOnlyTrennzeichen = True + Me.txtLKWKennz._Prozent = False + Me.txtLKWKennz._ShortDateNew = False + Me.txtLKWKennz._ShortDateOnly = False + Me.txtLKWKennz._TimeOnly = False + Me.txtLKWKennz._TimeOnly_Seconds = False + Me.txtLKWKennz._value = Nothing + Me.txtLKWKennz._Waehrung = False + Me.txtLKWKennz._WaehrungZeichen = True + Me.txtLKWKennz.ForeColor = System.Drawing.Color.Black + Me.txtLKWKennz.Location = New System.Drawing.Point(262, 221) + Me.txtLKWKennz.MaxLineLength = -1 + Me.txtLKWKennz.MaxLines_Warning = "" + Me.txtLKWKennz.MaxLines_Warning_Label = Nothing + Me.txtLKWKennz.Name = "txtLKWKennz" + Me.txtLKWKennz.Size = New System.Drawing.Size(310, 20) + Me.txtLKWKennz.TabIndex = 90 + ' + 'txtHerrFrau + ' + Me.txtHerrFrau._DateTimeOnly = False + Me.txtHerrFrau._numbersOnly = False + Me.txtHerrFrau._numbersOnlyKommastellen = "" + Me.txtHerrFrau._numbersOnlyTrennzeichen = True + Me.txtHerrFrau._Prozent = False + Me.txtHerrFrau._ShortDateNew = False + Me.txtHerrFrau._ShortDateOnly = False + Me.txtHerrFrau._TimeOnly = False + Me.txtHerrFrau._TimeOnly_Seconds = False + Me.txtHerrFrau._value = Nothing + Me.txtHerrFrau._Waehrung = False + Me.txtHerrFrau._WaehrungZeichen = True + Me.txtHerrFrau.ForeColor = System.Drawing.Color.Black + Me.txtHerrFrau.Location = New System.Drawing.Point(262, 29) + Me.txtHerrFrau.MaxLineLength = -1 + Me.txtHerrFrau.MaxLines_Warning = "" + Me.txtHerrFrau.MaxLines_Warning_Label = Nothing + Me.txtHerrFrau.Name = "txtHerrFrau" + Me.txtHerrFrau.Size = New System.Drawing.Size(684, 20) + Me.txtHerrFrau.TabIndex = 59 + ' + 'txtAdresse2 + ' + Me.txtAdresse2._DateTimeOnly = False + Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True + Me.txtAdresse2._Prozent = False + Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False + Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False + Me.txtAdresse2._value = Nothing + Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True + Me.txtAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtAdresse2.Location = New System.Drawing.Point(262, 86) + Me.txtAdresse2.MaxLineLength = -1 + Me.txtAdresse2.MaxLines_Warning = "" + Me.txtAdresse2.MaxLines_Warning_Label = Nothing + Me.txtAdresse2.Name = "txtAdresse2" + Me.txtAdresse2.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse2.TabIndex = 68 + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(262, 67) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 67 + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(262, 48) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(684, 20) + Me.txtFirma.TabIndex = 63 + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(52, 306) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(105, 13) + Me.Label30.TabIndex = 146 + Me.Label30.Text = "Sendungstabelle:" + ' + 'dgvPositionen + ' + Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvPositionen.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable + Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.pos, Me.anZ_pkgstk, Me.art_pkgstk, Me.erzeugnis, Me.gewicht}) + Me.dgvPositionen.Location = New System.Drawing.Point(180, 306) + Me.dgvPositionen.Name = "dgvPositionen" + Me.dgvPositionen.Size = New System.Drawing.Size(791, 345) + Me.dgvPositionen.TabIndex = 156 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(262, 169) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(709, 20) + Me.MyTextBox1.TabIndex = 168 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = Nothing + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(262, 150) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(709, 20) + Me.MyTextBox2.TabIndex = 167 + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = False + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = Nothing + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Black + Me.MyTextBox3.Location = New System.Drawing.Point(262, 131) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(684, 20) + Me.MyTextBox3.TabIndex = 163 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(52, 115) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(79, 13) + Me.Label2.TabIndex = 169 + Me.Label2.Text = "Packbetrieb:" + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.person + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(922, 131) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(24, 20) + Me.Button1.TabIndex = 164 + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = False + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = Nothing + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(262, 112) + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(684, 20) + Me.MyTextBox4.TabIndex = 161 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(178, 134) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(78, 13) + Me.Label3.TabIndex = 162 + Me.Label3.Text = "Firmenwortlaut:" + ' + 'Button3 + ' + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(945, 131) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(26, 20) + Me.Button3.TabIndex = 165 + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(178, 153) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(48, 13) + Me.Label4.TabIndex = 166 + Me.Label4.Text = "Adresse:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(178, 115) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(56, 13) + Me.Label5.TabIndex = 160 + Me.Label5.Text = "Herr/Frau:" + ' + 'txtPos + ' + Me.txtPos._DateTimeOnly = False + Me.txtPos._numbersOnly = False + Me.txtPos._numbersOnlyKommastellen = "" + Me.txtPos._numbersOnlyTrennzeichen = True + Me.txtPos._Prozent = False + Me.txtPos._ShortDateNew = False + Me.txtPos._ShortDateOnly = False + Me.txtPos._TimeOnly = False + Me.txtPos._TimeOnly_Seconds = False + Me.txtPos._value = Nothing + Me.txtPos._Waehrung = False + Me.txtPos._WaehrungZeichen = True + Me.txtPos.ForeColor = System.Drawing.Color.Black + Me.txtPos.Location = New System.Drawing.Point(629, 656) + Me.txtPos.MaxLineLength = -1 + Me.txtPos.MaxLines_Warning = "" + Me.txtPos.MaxLines_Warning_Label = Nothing + Me.txtPos.Name = "txtPos" + Me.txtPos.Size = New System.Drawing.Size(56, 20) + Me.txtPos.TabIndex = 171 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(557, 659) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(57, 13) + Me.Label6.TabIndex = 170 + Me.Label6.Text = "Anz./Pos.:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(774, 205) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(81, 13) + Me.Label8.TabIndex = 172 + Me.Label8.Text = "Ursprungsland.:" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(774, 224) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(92, 13) + Me.Label10.TabIndex = 173 + Me.Label10.Text = "Bestimmungsland:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(578, 205) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(84, 13) + Me.Label11.TabIndex = 174 + Me.Label11.Text = "Einfuhr/Ausfuhr:" + ' + 'cbxEinf + ' + Me.cbxEinf.FormattingEnabled = True + Me.cbxEinf.Location = New System.Drawing.Point(668, 201) + Me.cbxEinf.Name = "cbxEinf" + Me.cbxEinf.Size = New System.Drawing.Size(90, 21) + Me.cbxEinf.TabIndex = 175 + ' + 'cbxTyp + ' + Me.cbxTyp.FormattingEnabled = True + Me.cbxTyp.Location = New System.Drawing.Point(501, 4) + Me.cbxTyp.Name = "cbxTyp" + Me.cbxTyp.Size = New System.Drawing.Size(90, 21) + Me.cbxTyp.TabIndex = 179 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(463, 5) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(28, 13) + Me.Label12.TabIndex = 178 + Me.Label12.Text = "Typ:" + ' + 'DataGridViewTextBoxColumn1 + ' + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle13.Format = "N0" + DataGridViewCellStyle13.NullValue = Nothing + Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle13 + Me.DataGridViewTextBoxColumn1.Frozen = True + Me.DataGridViewTextBoxColumn1.HeaderText = "Position" + Me.DataGridViewTextBoxColumn1.MaxInputLength = 3 + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + Me.DataGridViewTextBoxColumn1.Width = 50 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.HeaderText = "Packstücke" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Erzeugnisses" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle14.Format = "N2" + DataGridViewCellStyle14.NullValue = Nothing + Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle14 + Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" + Me.DataGridViewTextBoxColumn4.MaxInputLength = 100 + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle15.Format = "N2" + DataGridViewCellStyle15.NullValue = Nothing + Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle15 + Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht" + Me.DataGridViewTextBoxColumn5.MaxInputLength = 100 + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'pos + ' + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle11.Format = "N0" + DataGridViewCellStyle11.NullValue = Nothing + Me.pos.DefaultCellStyle = DataGridViewCellStyle11 + 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 + ' + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle12.Format = "N2" + DataGridViewCellStyle12.NullValue = Nothing + Me.gewicht.DefaultCellStyle = DataGridViewCellStyle12 + Me.gewicht.HeaderText = "Gewicht" + Me.gewicht.MaxInputLength = 100 + Me.gewicht.Name = "gewicht" + ' + 'cbxUrsprungslang + ' + Me.cbxUrsprungslang._allowedValuesFreiText = Nothing + Me.cbxUrsprungslang._allowFreiText = False + Me.cbxUrsprungslang._value = "" + Me.cbxUrsprungslang.FormattingEnabled = True + Me.cbxUrsprungslang.Location = New System.Drawing.Point(887, 197) + Me.cbxUrsprungslang.Name = "cbxUrsprungslang" + Me.cbxUrsprungslang.Size = New System.Drawing.Size(84, 21) + Me.cbxUrsprungslang.TabIndex = 180 + ' + 'cbxBestimmungsland + ' + Me.cbxBestimmungsland._allowedValuesFreiText = Nothing + Me.cbxBestimmungsland._allowFreiText = False + Me.cbxBestimmungsland._value = "" + Me.cbxBestimmungsland.FormattingEnabled = True + Me.cbxBestimmungsland.Location = New System.Drawing.Point(887, 224) + Me.cbxBestimmungsland.Name = "cbxBestimmungsland" + Me.cbxBestimmungsland.Size = New System.Drawing.Size(84, 21) + Me.cbxBestimmungsland.TabIndex = 181 + ' + 'usrCntlQualitaetskontrolle + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxBestimmungsland) + Me.Controls.Add(Me.cbxUrsprungslang) + Me.Controls.Add(Me.cbxTyp) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cbxEinf) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.txtPos) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.MyTextBox1) + Me.Controls.Add(Me.MyTextBox2) + Me.Controls.Add(Me.MyTextBox3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.MyTextBox4) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.txtLKWKennz) + Me.Controls.Add(Me.txtGewicht) + Me.Controls.Add(Me.txtAnzVerp) + Me.Controls.Add(Me.dgvPositionen) + Me.Controls.Add(Me.Label30) + Me.Controls.Add(Me.Label19) + Me.Controls.Add(Me.txtBeschauDat) + Me.Controls.Add(Me.dtpBeschauDat) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.txtFilialNr) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.txtAbfNr) + Me.Controls.Add(Me.Label46) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Label40) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label37) + Me.Controls.Add(Me.txtHerrFrau) + Me.Controls.Add(Me.Label26) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lblHerrFrau) + Me.Controls.Add(Me.lblQualitaetskontrolle) + Me.Name = "usrCntlQualitaetskontrolle" + Me.Size = New System.Drawing.Size(1018, 688) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label46 As Label + Friend WithEvents Button2 As Button + Friend WithEvents Label40 As Label + Friend WithEvents txtGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents txtAnzVerp As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtLKWKennz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label37 As Label + Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label26 As Label + Friend WithEvents btnDown As Button + Friend WithEvents btnUp As Button + Friend WithEvents btnDel As Button + Friend WithEvents pic As PictureBox + Friend WithEvents btn As Button + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblHerrFrau As Label + Friend WithEvents lblQualitaetskontrolle As Label + Friend WithEvents txtFilialNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents Label16 As Label + Friend WithEvents txtBeschauDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents dtpBeschauDat As DateTimePicker + Friend WithEvents Label19 As Label + Friend WithEvents Label30 As Label + Friend WithEvents dgvPositionen As DataGridView + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents Button1 As Button + Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As Label + Friend WithEvents Button3 As Button + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents txtPos As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As Label + Friend WithEvents Label8 As Label + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents cbxEinf As ComboBox + Friend WithEvents cbxTyp As ComboBox + Friend WithEvents Label12 As Label + 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 DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn + Friend WithEvents cbxUrsprungslang As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxBestimmungsland As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.resx b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.resx new file mode 100644 index 00000000..82b0df3d --- /dev/null +++ b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + True + + + True + + \ No newline at end of file diff --git a/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb new file mode 100644 index 00000000..8ef83b69 --- /dev/null +++ b/SDL/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb @@ -0,0 +1,282 @@ +Imports VERAG_PROG_ALLGEMEIN + +Public Class usrCntlQualitaetskontrolle + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + Dim FV_ID = -1 + Public KdNR As Integer = -1 + Public KdFirma As String = "" + Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing + Public EZA_Nr As String + Dim packstueckeZOLL_TMP As String = "" + + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(param() As Object) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0) + If param.Length > 1 Then KdFirma = param(1) + If param.Length > 2 Then SENDUNG = param(2) + If param.Length > 3 Then AVISO = param(3) + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Public Sub ChangeKDNr(kdnr As Integer) _ + Implements FormualrInterface.ChangeKDNr + initKdNR(kdnr) + End Sub + + 'Dim KdNR As Integer = -1 + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + + End Sub + + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Dim kdsrch As New SDL.frmKundenSuche + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + If IsNumeric(kdsrch.kundenNrSearch.Text) Then + initKdNR(kdsrch.kundenNrSearch.Text) + RaiseEvent KDNR_CHANGED(KdNR) + End If + End If + ' Panel1.Enabled = True + End Sub + + + + Public Sub initSND() + If SENDUNG IsNot Nothing Then + txtFilialNr.Text = SENDUNG.FilialenNr.ToString + txtAbfNr.Text = SENDUNG.AbfertigungsNr.ToString + txtGewicht.Text &= " kg" + + End If + If AVISO IsNot Nothing Then + txtLKWKennz.Text = If(AVISO.LKW_Nr, "") + End If + End Sub + + Public Sub initKdNR(KdNR) + If KdNR > 0 Then + Me.KdNR = KdNR + + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + ' txtAnsprechpartnerVERAG.Text = If(ADRESSE.Ansprechpartner, "") + Else + txtFirma.Text = KdFirma + End If + + End Sub + + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + + Private Sub usrCntlZollbeschau_Load(sender As Object, e As EventArgs) Handles Me.Load + initControlsHandler() + 'txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy") + + cbxEinf.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Einfuhr", "E")) + cbxEinf.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "A")) + + + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Obst und Gemüse", "O")) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bananen", "B")) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eier und Gefl.", "E")) + + 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()) + + + 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 + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If KdNR > 0 Then + Dim f As New frmKundenUebersichtZOLL(KdNR) + f.ShowDialog(Me) + End If + End Sub + + + + Private Sub dtpBeschauDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpBeschauDat.ValueChanged + txtBeschauDat._value = CDate(sender.value).ToShortDateString + End Sub + + + Private Sub loadDGV(dt As DataTable) + + Dim couter As Integer = 1 + For Each row As DataRow In dt.Rows + + dgvPositionen.Rows.Add(row("ItNr"), row("Nr"), row("Kind"), row("GdsDes"), row("Net")) + couter = +1 + + Next + + End Sub + + Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded + + e.Row.Cells("pos").Value = dgvPositionen.Rows.Count + End Sub + + Private Sub loadEZollData(EZA_Nr As String) + + Dim KDSQL As New SQL + Dim notFound As Boolean = True + + 'EZA_Nr = "4/23208/15" + + Try + + Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & + " FROM zsAnmRefs" & + " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & + " ORDER BY GeaendertAm DESC", "EZOLL") + If dEZOLL Is Nothing Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub + If dEZOLL.Rows.Count = 0 Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub + + Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0) + notFound = False + + + Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt, DepNat, CrossIdntNat" & + " FROM zsAnmTransp" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmTransp.Rows().Count > 0 Then + If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then txtLKWKennz.Text = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) + If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepNat")) Then cbxBestimmungsland.changeItem(DTzsAnmTransp.Rows(0).Item("DepNat")) + If Not IsNull(DTzsAnmTransp.Rows(0).Item("CrossIdntNat")) Then cbxUrsprungslang.changeItem(DTzsAnmTransp.Rows(0).Item("CrossIdntNat")) + End If + + ' Tabelle zsAnmHea lesen. + Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotItem, TotPack, TotGross" & + " FROM zsAnmHea" & + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmHea.Rows().Count > 0 Then + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then txtAnzVerp.Text = DTzsAnmHea.Rows(0).Item("TotPack") 'Gesamt packstücke + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then txtGewicht.Text = DTzsAnmHea.Rows(0).Item("TotGross") ' Gesamtbruttogewicht + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotItem")) Then txtPos.Text = DTzsAnmHea.Rows(0).Item("TotItem") ' Anzahl Pos + + End If + + ' Tabelle zsAnmGdsitem lesen. + Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT item.ItNr ,item.GdsDes, item.Net, pack.Kind, pack.Nr, item.Orig" & +" FROM zsAnmGdsitem as item" & +" INNER JOIN zsAnmGdsItemPack as pack ON item.LizenzNr = pack.LizenzNr And item.OperatorID = pack.OperatorID and item.VorgangID = pack.VorgangID and pack.AnmID = item.AnmID" & +" WHERE (item.LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (item.OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (item.VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (item.AnmID = " & DR_zsAnmRefs.Item("AnmID") & " and item.GdsItemID = pack.GdsItemID)" & + " ORDER BY item.GdsItemID", "EZOLL") + + If DTzsAnmGdsitem.Rows().Count > 0 Then + + loadDGV(DTzsAnmGdsitem) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler EZOLL Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + + + End Sub + + Function IsNull(o) As Boolean + Try + If o Is Nothing Then Return True + If o Is DBNull.Value Then Return True + If o.ToString.Trim = "" Then Return True + Catch : End Try + Return False + End Function + + Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged + Dim gewicht As Double = 0 + Dim colli As Double = 0 + + For Each r As DataGridViewRow In dgvPositionen.Rows + + + If r IsNot Nothing And IsNumeric(r.Cells(4).Value) Then + gewicht += CDbl(r.Cells(4).Value) + End If + + If r IsNot Nothing And IsNumeric(r.Cells(1).Value) Then + colli += CDbl(r.Cells(1).Value) + End If + + + Next + + txtGewicht.Text = gewicht & " kg" + txtAnzVerp.Text = colli + End Sub +End Class