From be383b1b37d4614fe36925194ecb47efc16e2dd0 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Sat, 31 Aug 2024 00:28:58 +0200 Subject: [PATCH] CBAM --- SDL/kunden/usrCntlCBAM.Designer.vb | 288 +++++++++--------- SDL/kunden/usrCntlCBAM.vb | 183 ++++++++++- SDLUPDATER/App.config | 2 +- SDLUPDATER/My Project/Application.Designer.vb | 6 + SDLUPDATER/My Project/Settings.Designer.vb | 2 +- SDLUPDATER/SDLUPDATER.vbproj | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb | 51 ++++ 7 files changed, 371 insertions(+), 163 deletions(-) diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index 9ed40b8f..cd873f34 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -26,7 +26,6 @@ Partial Class usrCntlCBAM Me.lblOffert = New System.Windows.Forms.TextBox() Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button() Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button() @@ -38,12 +37,8 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox() Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox() Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox() - Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() - Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button() Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button() Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button() @@ -62,11 +57,16 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button() Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button() Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button() - Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) - Me.cbxVERAG = New System.Windows.Forms.CheckBox() Me.btnCBAM_DS_DAKOSY_XML = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() - Me.Button3 = New System.Windows.Forms.Button() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.cbxVERAG = New System.Windows.Forms.CheckBox() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button1 = New System.Windows.Forms.Button() Me.cntxtAddSdl.SuspendLayout() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() @@ -96,29 +96,6 @@ Partial Class usrCntlCBAM Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22) Me.DToolStripMenuItem.Text = "d" ' - 'txtEori - ' - Me.txtEori._DateTimeOnly = False - Me.txtEori._numbersOnly = False - Me.txtEori._numbersOnlyKommastellen = "" - Me.txtEori._numbersOnlyTrennzeichen = True - Me.txtEori._Prozent = False - Me.txtEori._ShortDateNew = False - Me.txtEori._ShortDateOnly = False - Me.txtEori._TimeOnly = False - Me.txtEori._TimeOnly_Seconds = False - Me.txtEori._value = "" - Me.txtEori._Waehrung = False - Me.txtEori._WaehrungZeichen = True - Me.txtEori.ForeColor = System.Drawing.Color.Black - Me.txtEori.Location = New System.Drawing.Point(106, 48) - Me.txtEori.MaxLineLength = -1 - Me.txtEori.MaxLines_Warning = "" - Me.txtEori.MaxLines_Warning_Label = Nothing - Me.txtEori.Name = "txtEori" - Me.txtEori.Size = New System.Drawing.Size(341, 20) - Me.txtEori.TabIndex = 1 - ' 'Label1 ' Me.Label1.AutoSize = True @@ -243,52 +220,6 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_TELOTEC.Text = "-" Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' - 'txtBis - ' - Me.txtBis._DateTimeOnly = False - Me.txtBis._numbersOnly = False - Me.txtBis._numbersOnlyKommastellen = "" - Me.txtBis._numbersOnlyTrennzeichen = True - Me.txtBis._Prozent = False - Me.txtBis._ShortDateNew = False - Me.txtBis._ShortDateOnly = False - Me.txtBis._TimeOnly = False - Me.txtBis._TimeOnly_Seconds = False - Me.txtBis._value = "" - Me.txtBis._Waehrung = False - Me.txtBis._WaehrungZeichen = True - Me.txtBis.ForeColor = System.Drawing.Color.Black - Me.txtBis.Location = New System.Drawing.Point(860, 49) - Me.txtBis.MaxLineLength = -1 - Me.txtBis.MaxLines_Warning = "" - Me.txtBis.MaxLines_Warning_Label = Nothing - Me.txtBis.Name = "txtBis" - Me.txtBis.Size = New System.Drawing.Size(110, 20) - Me.txtBis.TabIndex = 14 - ' - 'txtVon - ' - Me.txtVon._DateTimeOnly = False - Me.txtVon._numbersOnly = False - Me.txtVon._numbersOnlyKommastellen = "" - Me.txtVon._numbersOnlyTrennzeichen = True - Me.txtVon._Prozent = False - Me.txtVon._ShortDateNew = False - Me.txtVon._ShortDateOnly = False - Me.txtVon._TimeOnly = False - Me.txtVon._TimeOnly_Seconds = False - Me.txtVon._value = "" - Me.txtVon._Waehrung = False - Me.txtVon._WaehrungZeichen = True - Me.txtVon.ForeColor = System.Drawing.Color.Black - Me.txtVon.Location = New System.Drawing.Point(744, 49) - Me.txtVon.MaxLineLength = -1 - Me.txtVon.MaxLines_Warning = "" - Me.txtVon.MaxLines_Warning_Label = Nothing - Me.txtVon.Name = "txtVon" - Me.txtVon.Size = New System.Drawing.Size(110, 20) - Me.txtVon.TabIndex = 15 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -307,41 +238,6 @@ Partial Class usrCntlCBAM Me.Label5.TabIndex = 18 Me.Label5.Text = "Zeitraum:" ' - 'cboQuartal - ' - Me.cboQuartal._allowedValuesFreiText = Nothing - Me.cboQuartal._allowFreiText = False - Me.cboQuartal._value = "" - Me.cboQuartal.FormattingEnabled = True - Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) - Me.cboQuartal.Location = New System.Drawing.Point(511, 48) - Me.cboQuartal.Name = "cboQuartal" - Me.cboQuartal.Size = New System.Drawing.Size(45, 21) - Me.cboQuartal.TabIndex = 19 - ' - 'txtJahr - ' - Me.txtJahr._DateTimeOnly = False - Me.txtJahr._numbersOnly = False - Me.txtJahr._numbersOnlyKommastellen = "" - Me.txtJahr._numbersOnlyTrennzeichen = True - Me.txtJahr._Prozent = False - Me.txtJahr._ShortDateNew = False - Me.txtJahr._ShortDateOnly = False - Me.txtJahr._TimeOnly = False - Me.txtJahr._TimeOnly_Seconds = False - Me.txtJahr._value = "" - Me.txtJahr._Waehrung = False - Me.txtJahr._WaehrungZeichen = True - Me.txtJahr.ForeColor = System.Drawing.Color.Black - Me.txtJahr.Location = New System.Drawing.Point(562, 49) - Me.txtJahr.MaxLineLength = -1 - Me.txtJahr.MaxLines_Warning = "" - Me.txtJahr.MaxLines_Warning_Label = Nothing - Me.txtJahr.Name = "txtJahr" - Me.txtJahr.Size = New System.Drawing.Size(60, 20) - Me.txtJahr.TabIndex = 20 - ' 'btnCBAM_DS_DHF_UNISPED ' Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -560,6 +456,31 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren" Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True ' + 'btnCBAM_DS_DAKOSY_XML + ' + Me.btnCBAM_DS_DAKOSY_XML.Enabled = False + Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml + Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 435) + Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML" + Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40 + Me.btnCBAM_DS_DAKOSY_XML.Text = "XML" + Me.btnCBAM_DS_DAKOSY_XML.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Enabled = False + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(144, 483) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(130, 42) + Me.Button2.TabIndex = 42 + Me.Button2.Text = "In Zwischenablage kopieren" + Me.Button2.UseVisualStyleBackColor = True + ' 'MyPanel1 ' Me.MyPanel1.Controls.Add(Me.cbxVERAG) @@ -578,49 +499,126 @@ Partial Class usrCntlCBAM Me.cbxVERAG.Text = "VERAG" Me.cbxVERAG.UseVisualStyleBackColor = True ' - 'btnCBAM_DS_DAKOSY_XML + 'txtJahr ' - Me.btnCBAM_DS_DAKOSY_XML.Enabled = False - Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml - Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 378) - Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML" - Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42) - Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40 - Me.btnCBAM_DS_DAKOSY_XML.Text = "XML" - Me.btnCBAM_DS_DAKOSY_XML.UseVisualStyleBackColor = True + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = False + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(562, 49) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(60, 20) + Me.txtJahr.TabIndex = 20 ' - 'Button2 + 'cboQuartal ' - Me.Button2.Enabled = False - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(144, 426) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(130, 42) - Me.Button2.TabIndex = 42 - Me.Button2.Text = "In Zwischenablage kopieren" - Me.Button2.UseVisualStyleBackColor = True + Me.cboQuartal._allowedValuesFreiText = Nothing + Me.cboQuartal._allowFreiText = False + Me.cboQuartal._value = "" + Me.cboQuartal.FormattingEnabled = True + Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboQuartal.Location = New System.Drawing.Point(511, 48) + Me.cboQuartal.Name = "cboQuartal" + Me.cboQuartal.Size = New System.Drawing.Size(45, 21) + Me.cboQuartal.TabIndex = 19 ' - 'Button3 + 'txtVon ' - Me.Button3.Enabled = False - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(106, 474) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(168, 42) - Me.Button3.TabIndex = 43 - Me.Button3.Text = "Alles in Zwischenablage kopieren" - Me.Button3.UseVisualStyleBackColor = True + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = False + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = True + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(744, 49) + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(110, 20) + Me.txtVon.TabIndex = 15 + ' + 'txtBis + ' + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = True + Me.txtBis._Prozent = False + Me.txtBis._ShortDateNew = False + Me.txtBis._ShortDateOnly = False + Me.txtBis._TimeOnly = False + Me.txtBis._TimeOnly_Seconds = False + Me.txtBis._value = "" + Me.txtBis._Waehrung = False + Me.txtBis._WaehrungZeichen = True + Me.txtBis.ForeColor = System.Drawing.Color.Black + Me.txtBis.Location = New System.Drawing.Point(860, 49) + Me.txtBis.MaxLineLength = -1 + Me.txtBis.MaxLines_Warning = "" + Me.txtBis.MaxLines_Warning_Label = Nothing + Me.txtBis.Name = "txtBis" + Me.txtBis.Size = New System.Drawing.Size(110, 20) + Me.txtBis.TabIndex = 14 + ' + 'txtEori + ' + Me.txtEori._DateTimeOnly = False + Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True + Me.txtEori._Prozent = False + Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False + Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False + Me.txtEori._value = "" + Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True + Me.txtEori.ForeColor = System.Drawing.Color.Black + Me.txtEori.Location = New System.Drawing.Point(106, 48) + Me.txtEori.MaxLineLength = -1 + Me.txtEori.MaxLines_Warning = "" + Me.txtEori.MaxLines_Warning_Label = Nothing + Me.txtEori.Name = "txtEori" + Me.txtEori.Size = New System.Drawing.Size(341, 20) + Me.txtEori.TabIndex = 1 + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(106, 387) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(168, 42) + Me.Button1.TabIndex = 44 + Me.Button1.Text = "XML Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)" + Me.Button1.UseVisualStyleBackColor = True ' 'usrCntlCBAM ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_XML) Me.Controls.Add(Me.MyPanel1) @@ -714,5 +712,5 @@ Partial Class usrCntlCBAM Friend WithEvents cbxVERAG As CheckBox Friend WithEvents btnCBAM_DS_DAKOSY_XML As Button Friend WithEvents Button2 As Button - Friend WithEvents Button3 As Button + Friend WithEvents Button1 As Button End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 760b276e..4c4d6fae 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -1,5 +1,6 @@  +Imports javax.xml.bind.annotation Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange Public Class usrCntlCBAM @@ -284,7 +285,7 @@ Public Class usrCntlCBAM End If End Sub - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click + Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click btnCBAM_DS_DAKOSY_Deteil.Enabled = False btnCBAM_DS_DAKOSY_Copy.Enabled = False btnCBAM_DS_DAKOSY_Deteil.Tag = "" @@ -386,8 +387,9 @@ Public Class usrCntlCBAM Dim SQLSTR = " SELECT - left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand - FROM [VERAG].[dbo].[tblDakosy_EZA] + left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren + + FROM [VERAG].[dbo].[tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id where eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' @@ -423,7 +425,7 @@ Public Class usrCntlCBAM " End If - SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8)" + SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren" Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) @@ -439,20 +441,20 @@ Public Class usrCntlCBAM - '----- XML ---------------------------------------------------------------------------------------------------------------------------------------- + ''----- XML ---------------------------------------------------------------------------------------------------------------------------------------- - btnCBAM_DS_DAKOSY_XML.Enabled = False - btnCBAM_DS_DAKOSY_XML.Tag = "" + 'btnCBAM_DS_DAKOSY_XML.Enabled = False + 'btnCBAM_DS_DAKOSY_XML.Tag = "" - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - '--------------------------------------------------------------------------------------------------------------------------------------------- - doCBAM_XML(dt, EORI) - '--------------------------------------------------------------------------------------------------------------------------------------------- + 'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' '--------------------------------------------------------------------------------------------------------------------------------------------- + ' doCBAM_XML(dt, EORI) + ' '--------------------------------------------------------------------------------------------------------------------------------------------- - End If + 'End If - '--------------------------------------------------------------------------------------------------------------------------------------------- + ''--------------------------------------------------------------------------------------------------------------------------------------------- Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -462,6 +464,96 @@ Public Class usrCntlCBAM + Me.Cursor = Cursors.Default + + End Sub + + Private Sub ButtonXML_Click(sender As Object, e As EventArgs) Handles Button1.Click + Button2.Enabled = False + btnCBAM_DS_DAKOSY_XML.Enabled = False + btnCBAM_DS_DAKOSY_XML.Tag = "" + + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + + Try + Dim EORI = txtEori.Text + If cbxVERAG.Checked Then EORI = "VERAG" + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT + left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren + ,isnull(ezaAd_NameFirma1,'') as Empfänger,isnull(ezaAd_TeilnehmerEORI,'') as EmpfängerEORI + + FROM [VERAG].[dbo].[tblDakosy_EZA] + inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + inner join tblDakosy_EZA_Adressen on ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' + where + eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311 + OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229 + OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614 + OR ezaWP_WarennummerEZT like '25070080%' + OR ezaWP_WarennummerEZT like '283421%' + OR ezaWP_WarennummerEZT like '260112%' + OR ezaWP_WarennummerEZT like '720211%' + OR ezaWP_WarennummerEZT like '720219%' + OR ezaWP_WarennummerEZT like '720241%' + OR ezaWP_WarennummerEZT like '720249%' + OR ezaWP_WarennummerEZT like '720260%' + OR ezaWP_WarennummerEZT like '280410%' + + ) + and ezaWP_WarennummerEZT not like '310560%' + and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') + + " + + If cbxVERAG.Checked Then + SQLSTR &= " + and eza_VertretungsVerhaeltnisCode=2 + " + Else + SQLSTR &= " + and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + " + End If + + SQLSTR &= " group by ezaAd_NameFirma1,ezaAd_TeilnehmerEORI,eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren" + + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + + + + + '----- XML ---------------------------------------------------------------------------------------------------------------------------------------- + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + '--------------------------------------------------------------------------------------------------------------------------------------------- + doCBAM_XML(dt, EORI) + '--------------------------------------------------------------------------------------------------------------------------------------------- + Button2.Enabled = True + btnCBAM_DS_DAKOSY_XML.Enabled = True + + End If + + + '--------------------------------------------------------------------------------------------------------------------------------------------- + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default End Sub @@ -471,6 +563,41 @@ Public Class usrCntlCBAM CBAM_XML.Year = txtJahr.Text CBAM_XML.ReportingPeriod = cboQuartal._value + EORI = txtEori.Text ' Sont VERAG problem.. + + If cbxVERAG.Checked Then ' VERAG--> Indirect Representative + CBAM_XML.Representative.IdentificationNumber = EORI + Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing + Select Case EORI + Case "DE4824105" + AD = New VERAG_PROG_ALLGEMEIN.cAdressen(712255) 'VERAG GmbH (DE) + Case "ATEOS1000000199" + AD = New VERAG_PROG_ALLGEMEIN.cAdressen(711104) 'VERAG AG (AT) + Case "ATEOS1000059121" + AD = New VERAG_PROG_ALLGEMEIN.cAdressen(600006) 'VERAG Customs Service GmbH (AT) + + End Select + If AD IsNot Nothing Then + CBAM_XML.Representative.Name = AD.Name_1 + If If(AD.Name_2, "") <> "" Then CBAM_XML.Representative.Name &= " " & AD.Name_2 + If AD.LandKz <> "" Then CBAM_XML.Representative.RepresentativeAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz) + CBAM_XML.Representative.RepresentativeAddress.Street = If(AD.Straße, "") + CBAM_XML.Representative.RepresentativeAddress.Postcode = If(AD.PLZ, "") + End If + End If + + 'Dim KD_IMP = VERAG_PROG_ALLGEMEIN.cKunde.LOAD_ByEORI(EORI) + 'If KD_IMP.hasEntry Then + ' Dim A_IMP As New VERAG_PROG_ALLGEMEIN.cAdressen(KD_IMP.KundenNrZentrale) + ' If A_IMP IsNot Nothing AndAlso A_IMP.hasEntry Then + ' CBAM_XML.Importer.Name = A_IMP.Name_1 + ' If If(A_IMP.Name_2, "") <> "" Then CBAM_XML.Importer.Name &= " " & A_IMP.Name_2 + ' If A_IMP.LandKz <> "" Then CBAM_XML.Importer.ImporterAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(A_IMP.LandKz) + ' CBAM_XML.Importer.ImporterAddress.Street = If(A_IMP.Straße, "") + ' CBAM_XML.Importer.ImporterAddress.Postcode = If(A_IMP.PLZ, "") + ' End If + 'End If + For Each g In dt.Rows Dim GOODS As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedGoodType @@ -479,6 +606,32 @@ Public Class usrCntlCBAM GOODS.OriginCountry.Country = g("VersendungsLand") GOODS.MeasureImported.NetMass = g("Eigenmasse") GOODS.MeasureImported.MeasurementUnit = "KG" + + ' ezaAd_NameFirma1, ezaAd_TeilnehmerEORI, + If g("EmpfängerEORI") <> "" Then + + + Dim KD_IMP = VERAG_PROG_ALLGEMEIN.cKunde.LOAD_ByEORI(g("EmpfängerEORI")) + If KD_IMP.hasEntry Then + Dim A_IMP As New VERAG_PROG_ALLGEMEIN.cAdressen(KD_IMP.KundenNrZentrale) + If A_IMP IsNot Nothing AndAlso A_IMP.hasEntry Then + GOODS.Importer.Name = A_IMP.Name_1 + If If(A_IMP.Name_2, "") <> "" Then GOODS.Importer.Name &= " " & A_IMP.Name_2 + If A_IMP.LandKz <> "" Then GOODS.Importer.ImporterAddress.Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(A_IMP.LandKz) + GOODS.Importer.ImporterAddress.Street = If(A_IMP.Straße, "") + GOODS.Importer.ImporterAddress.Postcode = If(A_IMP.PLZ, "") + End If + End If + Else + GOODS.Importer.Name = g("Empfänger") + + End If + + + Dim IQ As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.ImportedQuantityType + If g("Verfahren") <> "" Then IQ.Procedure.RequestedProc = g("Verfahren").ToString.Substring(0, 2) + If g("VorangegangenesVerfahren") <> "" Then IQ.Procedure.PreviousProc = g("VorangegangenesVerfahren").ToString.Substring(0, 2) + GOODS.ImportedQuantity.Add(IQ) CBAM_XML.ImportedGood.Add(GOODS) Next @@ -756,7 +909,7 @@ Public Class usrCntlCBAM End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click End Sub @@ -772,7 +925,7 @@ Public Class usrCntlCBAM End If End Sub - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Private Sub Button3_Click(sender As Object, e As EventArgs) Dim f As New List(Of String) If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag) If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag) diff --git a/SDLUPDATER/App.config b/SDLUPDATER/App.config index ade40453..24a91088 100644 --- a/SDLUPDATER/App.config +++ b/SDLUPDATER/App.config @@ -1,7 +1,7 @@ - + diff --git a/SDLUPDATER/My Project/Application.Designer.vb b/SDLUPDATER/My Project/Application.Designer.vb index 1c2d69b5..1c32a12d 100644 --- a/SDLUPDATER/My Project/Application.Designer.vb +++ b/SDLUPDATER/My Project/Application.Designer.vb @@ -34,5 +34,11 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.SDLUPDATER.UPDATERfrm End Sub + + _ + Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean + Me.MinimumSplashScreenDisplayTime = 0 + Return MyBase.OnInitialize(commandLineArgs) + End Function End Class End Namespace diff --git a/SDLUPDATER/My Project/Settings.Designer.vb b/SDLUPDATER/My Project/Settings.Designer.vb index 97f3c0df..62cc9922 100644 --- a/SDLUPDATER/My Project/Settings.Designer.vb +++ b/SDLUPDATER/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/SDLUPDATER/SDLUPDATER.vbproj b/SDLUPDATER/SDLUPDATER.vbproj index babb89f7..6cb68fb6 100644 --- a/SDLUPDATER/SDLUPDATER.vbproj +++ b/SDLUPDATER/SDLUPDATER.vbproj @@ -11,7 +11,7 @@ SDLUPDATER 512 WindowsForms - v4.7 + v4.8 false publish\ diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb index a54805ea..608c90cf 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb @@ -89,6 +89,9 @@ Public Class cKunde Public hasEntry As Boolean = False Dim SQL As New SQL + Sub New() + + End Sub Sub New(KundenNr) Me.KundenNr = KundenNr If KundenNr <= 0 Then @@ -311,6 +314,54 @@ Public Class cKunde ' Return Nothing End Sub + Public Shared Function LOAD_ByEORI(EORI) As cKunde + Dim test = "" + Dim KUNDE As New cKunde() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Kunden INNER JOIN Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE EORITIN=@EORITIN and ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster)) ", conn) + cmd.Parameters.AddWithValue("@EORITIN", EORI) + + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In KUNDE.getParameterList() + ' Me.GetType.GetProperty(l.Scalarvariable) = dr.Item(l.Text) + Dim propInfo As PropertyInfo = KUNDE.GetType.GetProperty(li.Scalarvariable) + ' MsgBox(l.Text) + ' MsgBox(propInfo.PropertyType.ToString) + ' propInfo.SetValue(GetType(Object), l.Text) + + 'propInfo.SetValue(Me, l.Text) + + ' Try + test = li.Text + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(KUNDE, Nothing) + Else + propInfo.SetValue(KUNDE, dr.Item(li.Text)) + End If + + ' Catch ex As Exception + + ' End Try + + ' Me.GetType.GetProperty(l.Scalarvariable).setSetValue(GetType(Object), l.Text) + 'If propInfo IsNot Nothing Then + 'propInfo.SetValue(l.Scalarvariable, l.Text) + ' End If + Next + KUNDE.hasEntry = True + End If + dr.Close() + End Using + End Using + Return KUNDE + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + Public Function getUpdateCmd() As String