From 2187035214c0257d8dd9db870000995da9e6733f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 1 Jan 2026 11:12:58 +0100 Subject: [PATCH 1/3] CBAM, VERAG CustomsDec --- SDL/kunden/usrCntlCBAM.Designer.vb | 79 +- SDL/kunden/usrCntlCBAM.vb | 114 +- .../Classes/cGreendeal_CBAM_Trn.vb | 230 +++ .../cATEZ_Greenpulse_CBAM_CostCalculation.vb | 22 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 1 + .../cVERAG_Zollanmeldung.vb | 1497 ++++++++--------- 6 files changed, 1051 insertions(+), 892 deletions(-) create mode 100644 VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index e709e771..850b6fd1 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -68,6 +68,8 @@ Partial Class usrCntlCBAM Me.Button3 = New System.Windows.Forms.Button() Me.lblKafkaCnt = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button4 = New System.Windows.Forms.Button() @@ -89,8 +91,7 @@ Partial Class usrCntlCBAM Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label12 = New System.Windows.Forms.Label() + Me.Button5 = New System.Windows.Forms.Button() Me.cntxtAddSdl.SuspendLayout() Me.Panel1.SuspendLayout() Me.MyPanel1.SuspendLayout() @@ -631,6 +632,39 @@ Partial Class usrCntlCBAM Me.Panel1.Size = New System.Drawing.Size(223, 331) Me.Panel1.TabIndex = 52 ' + 'txtBenchmark + ' + Me.txtBenchmark._DateTimeOnly = False + Me.txtBenchmark._numbersOnly = True + Me.txtBenchmark._numbersOnlyKommastellen = "" + Me.txtBenchmark._numbersOnlyTrennzeichen = True + Me.txtBenchmark._Prozent = False + Me.txtBenchmark._ShortDateNew = False + Me.txtBenchmark._ShortDateOnly = False + Me.txtBenchmark._TimeOnly = False + Me.txtBenchmark._TimeOnly_Seconds = False + Me.txtBenchmark._value = "" + Me.txtBenchmark._Waehrung = False + Me.txtBenchmark._WaehrungZeichen = True + Me.txtBenchmark.ForeColor = System.Drawing.Color.Black + Me.txtBenchmark.Location = New System.Drawing.Point(73, 82) + Me.txtBenchmark.MaxLength = 10 + Me.txtBenchmark.MaxLineLength = -1 + Me.txtBenchmark.MaxLines_Warning = "" + Me.txtBenchmark.MaxLines_Warning_Label = Nothing + Me.txtBenchmark.Name = "txtBenchmark" + Me.txtBenchmark.Size = New System.Drawing.Size(147, 20) + Me.txtBenchmark.TabIndex = 66 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 85) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(67, 13) + Me.Label12.TabIndex = 67 + Me.Label12.Text = "(Benchmark)" + ' 'txtCalcLand ' Me.txtCalcLand._DateTimeOnly = False @@ -982,44 +1016,22 @@ Partial Class usrCntlCBAM Me.txtEori.Size = New System.Drawing.Size(341, 20) Me.txtEori.TabIndex = 1 ' - 'txtBenchmark + 'Button5 ' - Me.txtBenchmark._DateTimeOnly = False - Me.txtBenchmark._numbersOnly = True - Me.txtBenchmark._numbersOnlyKommastellen = "" - Me.txtBenchmark._numbersOnlyTrennzeichen = True - Me.txtBenchmark._Prozent = False - Me.txtBenchmark._ShortDateNew = False - Me.txtBenchmark._ShortDateOnly = False - Me.txtBenchmark._TimeOnly = False - Me.txtBenchmark._TimeOnly_Seconds = False - Me.txtBenchmark._value = "" - Me.txtBenchmark._Waehrung = False - Me.txtBenchmark._WaehrungZeichen = True - Me.txtBenchmark.ForeColor = System.Drawing.Color.Black - Me.txtBenchmark.Location = New System.Drawing.Point(73, 82) - Me.txtBenchmark.MaxLength = 10 - Me.txtBenchmark.MaxLineLength = -1 - Me.txtBenchmark.MaxLines_Warning = "" - Me.txtBenchmark.MaxLines_Warning_Label = Nothing - Me.txtBenchmark.Name = "txtBenchmark" - Me.txtBenchmark.Size = New System.Drawing.Size(147, 20) - Me.txtBenchmark.TabIndex = 66 - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(3, 85) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(67, 13) - Me.Label12.TabIndex = 67 - Me.Label12.Text = "(Benchmark)" + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(32, 90) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(68, 37) + Me.Button5.TabIndex = 53 + Me.Button5.Text = "test" + Me.Button5.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.Button5) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.lblKafkaCnt) Me.Controls.Add(Me.Button3) @@ -1149,4 +1161,5 @@ Partial Class usrCntlCBAM Friend WithEvents txtCalcLand As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtBenchmark As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label12 As Label + Friend WithEvents Button5 As Button End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index c564997e..00923204 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -18,6 +18,57 @@ Public Class usrCntlCBAM Me.kdnr = kdNr End Sub + Public Function CountCBAMTariffNumbersBySystemAndEORI(systemName As String, eori As String, dateFrom As Date, dateTo As Date) As Integer + + ' ------------------------------------------------------------ + ' CBAM-Pattern WHERE-Clause (HSCode) + ' ------------------------------------------------------------ + Dim cbamWhere As String = + VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("i.zaItem_HSCode") + + ' ------------------------------------------------------------ + ' SQL + ' ------------------------------------------------------------ + Dim sql As String = + "SELECT COUNT(distinct(z.Za_MRN)) AS Cnt " & + "FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " & + "INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Items i " & + " ON z.za_Id = i.zaItem_zaId " & + "INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p " & + " ON z.za_Id = p.zaParty_zaId " & + "WHERE z.za_System = @sys " & + " AND z.za_REGIME = 'IMPORT' " & + " AND z.za_IsFinalDeclaration = 1 " & + " AND z.za_DeclarationDate >= @dateFrom " & + " AND z.za_DeclarationDate <= @dateTo " & + " AND p.zaParty_EORI = @eori " & + " AND " & cbamWhere + + ' ------------------------------------------------------------ + ' Parameter + ' ------------------------------------------------------------ + Dim p As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From { + New VERAG_PROG_ALLGEMEIN.SQLVariable("sys", systemName), + New VERAG_PROG_ALLGEMEIN.SQLVariable("eori", eori), + New VERAG_PROG_ALLGEMEIN.SQLVariable("dateFrom", dateFrom), + New VERAG_PROG_ALLGEMEIN.SQLVariable("dateTo", dateTo) + } + + ' ------------------------------------------------------------ + ' Execute + ' ------------------------------------------------------------ + Dim dt As DataTable = + New VERAG_PROG_ALLGEMEIN.SQL(). + loadDgvBySql_Param(sql, "VERAG", , p) + + If dt Is Nothing OrElse dt.Rows.Count = 0 OrElse IsDBNull(dt.Rows(0)("Cnt")) Then + Return 0 + End If + + Return Convert.ToInt32(dt.Rows(0)("Cnt")) + + End Function + Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click txtCBAMPruef_DAKOSY.Text = "-" @@ -36,8 +87,8 @@ Public Class usrCntlCBAM Dim SQLSTR = " SELECT COUNT(distinct(Registriernummer_MRN)) FROM [tbl_DY_Zollmeldungen_Import] where Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer") & " + /* ( left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(Warentarifnummer,4) between 7301 and 7311 OR left(Warentarifnummer,4) between 7205 and 7229 @@ -52,7 +103,7 @@ Public Class usrCntlCBAM OR Warentarifnummer like '720260%' OR Warentarifnummer like '280410%' ) - and Warentarifnummer not like '310560%' + and Warentarifnummer not like '310560%'*/ " @@ -181,8 +232,8 @@ Public Class usrCntlCBAM inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("ComCd") & " + /* ( left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(ComCd,4) between 7301 and 7311 OR left(ComCd,4) between 7205 and 7229 @@ -197,7 +248,7 @@ Public Class usrCntlCBAM OR ComCd like '720260%' OR ComCd like '280410%' ) - and ComCd not like '310560%' + and ComCd not like '310560%' */ and crn is not null and zsAnmDHFRefs.ErledigungsTypID like 'F%' " @@ -246,8 +297,8 @@ Public Class usrCntlCBAM inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("ComCd") & " + /*( left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(ComCd,4) between 7301 and 7311 OR left(ComCd,4) between 7205 and 7229 @@ -262,7 +313,7 @@ Public Class usrCntlCBAM OR ComCd like '720260%' OR ComCd like '280410%' ) - and ComCd not like '310560%' + and ComCd not like '310560%' */ and crn is not null and zsAnmDHFRefs.ErledigungsTypID like 'F%' " @@ -316,8 +367,8 @@ Public Class usrCntlCBAM where 1=1 - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Item_ComCd") & " + /* ( left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(Item_ComCd,4) between 7301 and 7311 OR left(Item_ComCd,4) between 7205 and 7229 @@ -332,7 +383,7 @@ Public Class usrCntlCBAM OR Item_ComCd like '720260%' OR Item_ComCd like '280410%' ) - and Item_ComCd not like '310560%' + and Item_ComCd not like '310560%' */ and telnam_aktuellsteNachricht=1 @@ -587,8 +638,8 @@ Public Class usrCntlCBAM FROM [tbl_DY_Zollmeldungen_Import] where Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer") & " + /* ( left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(Warentarifnummer,4) between 7301 and 7311 OR left(Warentarifnummer,4) between 7205 and 7229 @@ -603,7 +654,7 @@ Public Class usrCntlCBAM OR Warentarifnummer like '720260%' OR Warentarifnummer like '280410%' ) - and Warentarifnummer not like '310560%' + and Warentarifnummer not like '310560%' */ " @@ -733,7 +784,8 @@ Public Class usrCntlCBAM Dim SQLSTR = " FROM [tbl_DY_Zollmeldungen_Import] where Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "' - AND ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer") & " + /* AND ( LEFT(Warentarifnummer,4) IN (2523,2716,2808,2814,2803,2818,3102,3103,3104,3105, 7201,7202,7203,7204,7325,7318,7326,7601,7602) OR LEFT(Warentarifnummer,4) BETWEEN 7205 AND 7229 @@ -751,7 +803,7 @@ Public Class usrCntlCBAM OR Warentarifnummer LIKE '720260%' OR Warentarifnummer LIKE '280410%' ) - AND Warentarifnummer NOT LIKE '310560%' + AND Warentarifnummer NOT LIKE '310560%'*/ " @@ -841,8 +893,8 @@ Public Class usrCntlCBAM inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("ComCd") & " + /* ( left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(ComCd,4) between 7301 and 7311 OR left(ComCd,4) between 7205 and 7229 @@ -857,7 +909,7 @@ Public Class usrCntlCBAM OR ComCd like '720260%' OR ComCd like '280410%' ) - and ComCd not like '310560%' + and ComCd not like '310560%' */ and crn is not null and zsAnmDHFRefs.ErledigungsTypID like 'F%'" @@ -946,7 +998,8 @@ Public Class usrCntlCBAM where 1=1 - and + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Item_ComCd") & " + /* ( left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(Item_ComCd,4) between 7301 and 7311 @@ -962,7 +1015,7 @@ Public Class usrCntlCBAM OR Item_ComCd like '720260%' OR Item_ComCd like '280410%' ) - and Item_ComCd not like '310560%' + and Item_ComCd not like '310560%' */ and telnam_aktuellsteNachricht=1 @@ -1231,8 +1284,8 @@ Public Class usrCntlCBAM inner join tblDakosy_EZA_Adressen on ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' where eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("ezaWP_WarennummerEZT") & " + /* ( 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 @@ -1248,7 +1301,7 @@ Public Class usrCntlCBAM OR ezaWP_WarennummerEZT like '280410%' ) - and ezaWP_WarennummerEZT not like '310560%' + and ezaWP_WarennummerEZT not like '310560%'*/ and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') " @@ -1678,8 +1731,8 @@ Public Class usrCntlCBAM inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' - and - ( + and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("ComCd") & " + /* ( left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(ComCd,4) between 7301 and 7311 OR left(ComCd,4) between 7205 and 7229 @@ -1694,7 +1747,7 @@ Public Class usrCntlCBAM OR ComCd like '720260%' OR ComCd like '280410%' ) - and ComCd not like '310560%' + and ComCd not like '310560%' */ and crn is not null and zsAnmDHFRefs.ErledigungsTypID like 'F%' " @@ -2032,4 +2085,9 @@ Public Class usrCntlCBAM Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click txtCalcErg.Text = cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM(txtCalcKN8._value, txtCalcGewicht._value, txtCalcLand._value, txtCalcEmission._value, txtCalcJahr._value, txtBenchmark._value) End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DAKOSY", txtEori.Text, txtVon._value, txtBis._value)) + MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DHF", txtEori.Text, txtVon._value, txtBis._value)) + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb new file mode 100644 index 00000000..242ad940 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb @@ -0,0 +1,230 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cGreendeal_CBAM_Trn + + ' ===================================================== + ' Properties = Spalten tblGreendeal_CBAM_Trn + ' ===================================================== + Public Property cbam_Id As Integer + Public Property trnPattern As String + Public Property ware As String + Public Property sektor As String + Public Property hinweis As String + Public Property is_exclusion As Boolean? + Public Property is_active As Boolean? + Public Property start_date As Date? + Public Property end_date As Date? + + Public Property hasEntry As Boolean = False + + Private SQL As New SQL + + ' ===================================================== + ' Konstruktor + ' ===================================================== + Sub New() + + End Sub + Sub New(cbam_Id As Integer) + Me.cbam_Id = cbam_Id + LOAD() + End Sub + + ' ===================================================== + ' Parameterliste (Mapping Property <-> SQL) + ' ===================================================== + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cbam_Id", cbam_Id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trnPattern", trnPattern)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ware", ware)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sektor", sektor)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("hinweis", hinweis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("is_exclusion", is_exclusion)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("is_active", is_active)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("start_date", start_date)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("end_date", end_date)) + + Return list + End Function + + ' ===================================================== + ' SAVE (Insert / Update) + ' ===================================================== + Public Function SAVE() As Boolean + + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr As String = + " BEGIN TRAN " & + " IF EXISTS (SELECT 1 FROM tblGreendeal_CBAM_Trn WHERE cbam_Id=@cbam_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " ELSE " & + " BEGIN " & getInsertCmd() & " END " & + " COMMIT TRAN " + + Return SQL.doSQLVarList(sqlstr, "VERAG", , list) + + End Function + + ' ===================================================== + ' LOAD + ' ===================================================== + Public Sub LOAD() + Try + hasEntry = False + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand( + "SELECT * FROM tblGreendeal_CBAM_Trn WHERE cbam_Id=@cbam_Id", conn) + + cmd.Parameters.AddWithValue("@cbam_Id", cbam_Id) + + Using dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim pi As PropertyInfo = + Me.GetType.GetProperty(li.Scalarvariable) + + If pi IsNot Nothing Then + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(Me, Nothing) + Else + pi.SetValue(Me, dr.Item(li.Text)) + End If + End If + Next + hasEntry = True + End If + End Using + End Using + End Using + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + ' ===================================================== + ' UPDATE Command + ' ===================================================== + Private Function getUpdateCmd() As String + Try + Dim list = getParameterList() + Dim str As String = "" + + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," + End If + Next + + str = str.Substring(0, str.Length - 1) + + Return " UPDATE tblGreendeal_CBAM_Trn SET " & str & + " WHERE cbam_Id=@cbam_Id " + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return "" + End Function + + ' ===================================================== + ' INSERT Command + ' ===================================================== + Private Function getInsertCmd() As String + Try + Dim list = getParameterList() + Dim cols As String = "" + Dim vals As String = "" + + For Each i In list + If Not i.isPrimaryParam Then + cols &= "[" & i.Text & "]," + vals &= "@" & i.Scalarvariable & "," + End If + Next + + cols = cols.Substring(0, cols.Length - 1) + vals = vals.Substring(0, vals.Length - 1) + + Return " INSERT INTO tblGreendeal_CBAM_Trn (" & cols & ") VALUES (" & vals & ") " + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return "" + End Function + + Public Shared Function BuildCBAMPatternWhereClause(columnName As String, Optional onlyActive As Boolean = True, Optional includeExclusions As Boolean = False) As String + + Dim sql As String = + "SELECT trnPattern " & + " FROM VERAG.dbo.tblGreendeal_CBAM_Trn " & + " WHERE trnPattern IS NOT NULL " & + " AND LTRIM(RTRIM(trnPattern)) <> '' " + + If onlyActive Then + sql &= " AND is_active = 1 " & + " AND (start_date IS NULL OR start_date <= GETDATE()) " & + " AND (end_date IS NULL OR end_date >= GETDATE()) " + End If + + If Not includeExclusions Then + sql &= " AND ISNULL(is_exclusion,0) = 0 " + End If + + Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(sql, "FMZOLL") + + If dt Is Nothing OrElse dt.Rows.Count = 0 Then + Return "1=0" ' bewusst: keine Patterns → kein Treffer + End If + + Dim conditions As New List(Of String) + + For Each r As DataRow In dt.Rows + Dim pattern As String = r("trnPattern").ToString().Trim() + + ' einfache SQL-Escaping-Sicherheit + pattern = pattern.Replace("'", "''") + + conditions.Add($"{columnName} LIKE '{pattern}'") + Next + + Return "(" & String.Join(" OR ", conditions) & ")" + + End Function + + + Public Shared Function DELETE_ALL() As Boolean + Try + + Dim sqlstr As String = " DELETE FROM tblGreendeal_CBAM_Trn " + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "VERAG", , Nothing) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return False + End Function + +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb index 68c91f0c..f3992dcc 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb @@ -33,7 +33,6 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation json.Load(resp.BodyStr) Dim r As New cCBAM_CnCode_Response With {.success = json.BoolOf("success")} - If r.success Then r.data = New List(Of cCBAM_CnCode) Dim a = json.ArrayOf("data") @@ -51,6 +50,27 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation Return r End Function + + Public Function insertinto_Greendeal_CBAM_Trn(cCBAM_CnCode_Response As cCBAM_CnCode_Response) As Boolean + + VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.DELETE_ALL() + + For Each CN In cCBAM_CnCode_Response.data + Dim CBAM As New VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn + + + CBAM.trnPattern = CN.cn_code & "%" + CBAM.sektor = "" + CBAM.ware = CN.cn_description + CBAM.is_exclusion = False + CBAM.is_active = True + CBAM.start_date = "01.10.2023" + CBAM.end_date = Nothing + CBAM.SAVE() + Next + Return True + End Function + ' ------------------------------------------------------------------------ ' GET /carbon-cost/cn-code-defaults ' ------------------------------------------------------------------------ diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index ad4fa205..2ef03e0b 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -385,6 +385,7 @@ + diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb index 50df559d..7c9e440e 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb @@ -6,983 +6,820 @@ Imports System.Reflection ' Customs Declaration (Header + Items + Duties + Documents) ' ========================================================================== -Public Class cVERAG_Zollanmeldung - - '=== KONSTRUKTOR ======================================================= - - Public Sub New() - End Sub - - Public Sub New(id As Integer) - za_Id = id - LOAD() - End Sub - - - '=== FELDER ============================================================ +Public Class cVERAG_CustomsDeclarations Public Property za_Id As Integer - Public Property za_System As String - Public Property za_ExternalSystem As Boolean + Public Property za_System As String ' z.B. "DAKOSY" + Public Property za_CustomsSystem As String ' z.B. "ATLAS" + Public Property za_CustomsSystemCountry As String ' z.B. "DE" + Public Property za_IsExternalSystem As Boolean = False + Public Property za_IsFinalDeclaration As Boolean = False + Public Property za_UCR As String + Public Property za_Mandant_ID As String + Public Property za_Bereich_ID As String Public Property za_Firma As String Public Property za_Niederlassung As String - - Public Property za_AvisoId As Integer? - Public Property za_SendungsId As Integer? - Public Property za_InternalRef As String - Public Property za_MRN As String Public Property za_LRN As String Public Property za_DeclarationNo As String - - Public Property za_Procedure As String + Public Property za_ReferenceCustomer As String + Public Property za_REGIME As String ' IMPORT, EXPORT, ... + Public Property za_RegistrationType As String + Public Property za_MainProcedure As String + Public Property za_AdditionalProcedure As String + Public Property za_DeclarationDate As Date? + Public Property za_ReleaseDate As Date? + Public Property za_AcceptanceDate As Date? + Public Property za_CustomsOffice As String + Public Property za_EntryCustomsOffice As String Public Property za_RepresentationCode As String - Public Property za_FiscalRepresentation As Boolean? + Public Property za_TransportModeInland As String + Public Property za_TransportModeBorder As String + Public Property za_MeansOfTransport_Vehicle As String + Public Property za_MeansOfTransport_Type As String + Public Property za_MeansOfTransport_Nationality As String + Public Property za_ContainerNr1 As String + Public Property za_ContainerNr2 As String + Public Property za_ContainerNr3 As String + Public Property za_ContainerNr4 As String + Public Property za_ContainerNr5 As String + Public Property za_ContainerNr6 As String + Public Property za_ContainerNr7 As String + Public Property za_ContainerNr8 As String + Public Property za_ContainerNr9 As String Public Property za_CountryDispatch As String Public Property za_CountryDestination As String - Public Property za_CountryOrigin As String + Public Property za_CountryDestinationState As String + Public Property za_CountryImport As String + Public Property za_WarehouseCode As String + Public Property za_Incoterms As String + Public Property za_IncotermsPlace As String + Public Property za_InvoiceAmount As Decimal? + Public Property za_InvoiceCurrency As String - Public Property za_TotalItems As Integer? - Public Property za_TotalGross As Decimal? - Public Property za_TotalInvoice As Decimal? - Public Property za_TotalCustomsValue As Decimal? + Public Property za_FiscalRepFlag As Boolean? + Public Property za_TaxDeduction As Boolean? + Public Property za_ApplicantTaxOffice As String + Public Property za_ApplicantVATNo As String + Public Property za_DV1Flag As Boolean? + Public Property za_PrevDocument_Type As String + Public Property za_PrevDocument_No As String + Public Property za_AvisoId As Integer? + Public Property za_SendungsId As Integer? + Public Property za_Remarks As String + Public Property za_Sachbearbeiter As String + Public Property za_SachbearbeiterId As String - Public Property za_TransportMode_Border As Integer? - Public Property za_VehicleId As String - Public Property za_Incoterm As String - Public Property za_IncotermPlace As String + Public Property Parties As New List(Of cVERAG_CustomsDeclarations_Parties) + Public Property Items As New List(Of cVERAG_CustomsDeclarations_Item) + Public Property Duties As New List(Of cVERAG_CustomsDeclarations_Duty) + Public Property Documents As New List(Of cVERAG_CustomsDeclarations_Document) - Public Property za_DocumentsPresent As Boolean - - Public Property za_ReleaseDate As Date? - Public Property za_DeclarationDate As Date? - Public Property za_Created As Date = Now - Public Property za_Modified As Date = Now + Public Property hasEntry As Boolean = False - '=== UNTERKLASSEN ====================================================== - - Public Property Items As New List(Of cVERAG_Zollanmeldung_Item) - Public Property Duties As New List(Of cVERAG_Zollanmeldung_Duty) - Public Property Documents As New List(Of cVERAG_Zollanmeldung_Document) - Public Property ItemDocuments As New List(Of cVERAG_Zollanmeldung_ItemDocument) - - - Private SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - - - '======================================================================== - ' PARAMETERLISTE (Header) - '======================================================================== - - Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - Dim L As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Id", za_Id,, True, True)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_System", za_System)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_ExternalSystem", za_ExternalSystem)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Firma", za_Firma)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Niederlassung", za_Niederlassung)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_AvisoId", za_AvisoId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_SendungsId", za_SendungsId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_InternalRef", za_InternalRef)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_MRN", za_MRN)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_LRN", za_LRN)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_DeclarationNo", za_DeclarationNo)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Procedure", za_Procedure)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_RepresentationCode", za_RepresentationCode)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_FiscalRepresentation", za_FiscalRepresentation)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_CountryDispatch", za_CountryDispatch)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_CountryDestination", za_CountryDestination)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_CountryOrigin", za_CountryOrigin)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_TotalItems", za_TotalItems)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_TotalGross", za_TotalGross)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_TotalInvoice", za_TotalInvoice)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_TotalCustomsValue", za_TotalCustomsValue)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_TransportMode_Border", za_TransportMode_Border)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_VehicleId", za_VehicleId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Incoterm", za_Incoterm)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_IncotermPlace", za_IncotermPlace)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_DocumentsPresent", za_DocumentsPresent)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_ReleaseDate", za_ReleaseDate)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_DeclarationDate", za_DeclarationDate)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Created", za_Created)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("za_Modified", za_Modified)) - - Return L + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Function getParameterList() As List(Of SQLVariable) + Return New List(Of SQLVariable) From { + New SQLVariable("za_Id", za_Id,, True), + New SQLVariable("za_System", za_System), + New SQLVariable("za_CustomsSystem", za_CustomsSystem), + New SQLVariable("za_CustomsSystemCountry", za_CustomsSystemCountry), + New SQLVariable("za_IsExternalSystem", za_IsExternalSystem), + New SQLVariable("za_IsFinalDeclaration", za_IsFinalDeclaration), + New SQLVariable("za_UCR", za_UCR), + New SQLVariable("za_Mandant_ID", za_Mandant_ID), + New SQLVariable("za_Bereich_ID", za_Bereich_ID), + New SQLVariable("za_Firma", za_Firma), + New SQLVariable("za_Niederlassung", za_Niederlassung), + New SQLVariable("za_MRN", za_MRN), + New SQLVariable("za_LRN", za_LRN), + New SQLVariable("za_DeclarationNo", za_DeclarationNo), + New SQLVariable("za_ReferenceCustomer", za_ReferenceCustomer), + New SQLVariable("za_REGIME", za_REGIME), + New SQLVariable("za_RegistrationType", za_RegistrationType), + New SQLVariable("za_MainProcedure", za_MainProcedure), + New SQLVariable("za_AdditionalProcedure", za_AdditionalProcedure), + New SQLVariable("za_DeclarationDate", za_DeclarationDate), + New SQLVariable("za_ReleaseDate", za_ReleaseDate), + New SQLVariable("za_AcceptanceDate", za_AcceptanceDate), + New SQLVariable("za_CustomsOffice", za_CustomsOffice), + New SQLVariable("za_EntryCustomsOffice", za_EntryCustomsOffice), + New SQLVariable("za_RepresentationCode", za_RepresentationCode), + New SQLVariable("za_TransportModeInland", za_TransportModeInland), + New SQLVariable("za_TransportModeBorder", za_TransportModeBorder), + New SQLVariable("za_MeansOfTransport_Vehicle", za_MeansOfTransport_Vehicle), + New SQLVariable("za_MeansOfTransport_Type", za_MeansOfTransport_Type), + New SQLVariable("za_MeansOfTransport_Nationality", za_MeansOfTransport_Nationality), + New SQLVariable("za_ContainerNr1", za_ContainerNr1), + New SQLVariable("za_ContainerNr2", za_ContainerNr2), + New SQLVariable("za_ContainerNr3", za_ContainerNr3), + New SQLVariable("za_ContainerNr4", za_ContainerNr4), + New SQLVariable("za_ContainerNr5", za_ContainerNr5), + New SQLVariable("za_ContainerNr6", za_ContainerNr6), + New SQLVariable("za_ContainerNr7", za_ContainerNr7), + New SQLVariable("za_ContainerNr8", za_ContainerNr8), + New SQLVariable("za_ContainerNr9", za_ContainerNr9), + New SQLVariable("za_CountryDispatch", za_CountryDispatch), + New SQLVariable("za_CountryDestination", za_CountryDestination), + New SQLVariable("za_CountryDestinationState", za_CountryDestinationState), + New SQLVariable("za_CountryImport", za_CountryImport), + New SQLVariable("za_WarehouseCode", za_WarehouseCode), + New SQLVariable("za_Incoterms", za_Incoterms), + New SQLVariable("za_IncotermsPlace", za_IncotermsPlace), + New SQLVariable("za_InvoiceAmount", za_InvoiceAmount), + New SQLVariable("za_InvoiceCurrency", za_InvoiceCurrency), + New SQLVariable("za_FiscalRepFlag", za_FiscalRepFlag), + New SQLVariable("za_TaxDeduction", za_TaxDeduction), + New SQLVariable("za_ApplicantTaxOffice", za_ApplicantTaxOffice), + New SQLVariable("za_ApplicantVATNo", za_ApplicantVATNo), + New SQLVariable("za_DV1Flag", za_DV1Flag), + New SQLVariable("za_PrevDocument_Type", za_PrevDocument_Type), + New SQLVariable("za_PrevDocument_No", za_PrevDocument_No), + New SQLVariable("za_AvisoId", za_AvisoId), + New SQLVariable("za_SendungsId", za_SendungsId), + New SQLVariable("za_Remarks", za_Remarks), + New SQLVariable("za_Sachbearbeiter", za_Sachbearbeiter), + New SQLVariable("za_SachbearbeiterId", za_SachbearbeiterId) + } End Function - - - '======================================================================== - ' SAVE (HEADER) - '======================================================================== - - Public Function SAVE() As Boolean - - Dim list = getParameterList() - - Dim sqlstr As String = - " BEGIN TRAN " & - " IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations WHERE za_Id=@za_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " ELSE BEGIN " & getInsertCmd() & " END " & - " COMMIT TRAN " - - za_Id = SQL.doSQLVarListID(za_Id, sqlstr, "VERAG", , list) - Return za_Id > 0 - + Public Function getInsertCmd() As String + Dim f As String = "", v As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + f &= "[" & i.Text & "]," + v &= "@" & i.Scalarvariable & "," + End If + Next + Return "INSERT INTO tblVERAG_CustomsDeclarations (" & + f.TrimEnd(","c) & ") VALUES (" & v.TrimEnd(","c) & ")" End Function - - - - '======================================================================== - ' SAVE_ALL (Header + Items + Duties + Docs) - '======================================================================== - - Public Function SAVE_ALL() As Boolean - - If Not SAVE() Then Return False - If Not SAVE_Items() Then Return False - If Not SAVE_Duties() Then Return False - If Not SAVE_Documents() Then Return False - If Not SAVE_ItemDocuments() Then Return False - - Return True - + Public Function getUpdateCmd() As String + Dim s As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + s &= "[" & i.Text & "]=@" & i.Scalarvariable & "," + End If + Next + Return "UPDATE tblVERAG_CustomsDeclarations SET " & + s.TrimEnd(","c) & " WHERE za_Id=@za_Id" End Function + Public Sub LOAD() + Try + hasEntry = False + Using conn = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand( + "SELECT * FROM tblVERAG_CustomsDeclarations WHERE za_Id=@_BASE_id", conn) - - - '======================================================================== - ' LOAD HEADER - '======================================================================== - - Public Function LOAD(Optional loadALL As Boolean = True) As Boolean - - If loadALL Then - Items.Clear() - Duties.Clear() - Documents.Clear() - ItemDocuments.Clear() - End If - - Using conn = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblVERAG_CustomsDeclarations WHERE za_Id=@id", conn) - cmd.Parameters.AddWithValue("@id", za_Id) - Using dr = cmd.ExecuteReader() + cmd.Parameters.AddWithValue("@_BASE_id", za_Id) + Dim dr = cmd.ExecuteReader() If dr.Read Then - - For Each p In getParameterList() - Dim prop = Me.GetType().GetProperty(p.Scalarvariable) - If prop IsNot Nothing Then - If IsDBNull(dr(p.Text)) Then - prop.SetValue(Me, Nothing) - Else - prop.SetValue(Me, dr(p.Text)) - End If + For Each li In getParameterList() + Dim pi = Me.GetType.GetProperty(li.Scalarvariable) + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(Me, Nothing) + Else + pi.SetValue(Me, dr.Item(li.Text)) End If Next - - dr.Close() - - If loadALL Then - LOAD_Items() - LOAD_Duties() - LOAD_Documents() - LOAD_ItemDocuments() - End If - - Return True - + hasEntry = True End If + dr.Close() End Using End Using - End Using - Return False - - End Function - - - - - - '======================================================================== - ' SAVE ITEMS - '======================================================================== - - Private Function SAVE_Items() As Boolean - For Each it In Items - it.zaItem_DeclarationId = za_Id - If Not it.SAVE() Then Return False - Next - Return True - End Function - - - - '======================================================================== - ' SAVE DUTIES - '======================================================================== - - Private Function SAVE_Duties() As Boolean - For Each du In Duties - du.zaDuty_DeclarationId = za_Id - If Not du.SAVE() Then Return False - Next - Return True - End Function - - - - '======================================================================== - ' SAVE DOCS HEADER - '======================================================================== - - Private Function SAVE_Documents() As Boolean - For Each d In Documents - d.zaDoc_DeclarationId = za_Id - If Not d.SAVE() Then Return False - Next - Return True - End Function - - - - '======================================================================== - ' SAVE DOCS ITEM - '======================================================================== - - Private Function SAVE_ItemDocuments() As Boolean - For Each d In ItemDocuments - If Not d.SAVE() Then Return False - Next - Return True - End Function - - - - - - '======================================================================== - ' LOAD UNTERKLASSEN - '======================================================================== - - Private Sub LOAD_Items() - - Using conn = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblVERAG_CustomsDeclarations_Items WHERE zaItem_DeclarationId=@id ORDER BY zaItem_Line", conn) - cmd.Parameters.AddWithValue("@id", za_Id) - Using dr = cmd.ExecuteReader() - While dr.Read - Dim it As New cVERAG_Zollanmeldung_Item - it.LOAD_FROM_READER(dr) - Items.Add(it) - End While - End Using - End Using - End Using + Parties = cVERAG_CustomsDeclarations_Parties.LOAD_BY_ZAID(za_Id) + Items = cVERAG_CustomsDeclarations_Item.LOAD_BY_ZAID(za_Id) + Duties = cVERAG_CustomsDeclarations_Duty.LOAD_BY_ZAID(za_Id) + Documents = cVERAG_CustomsDeclarations_Document.LOAD_HEAD_BY_ZAID(za_Id) + Catch ex As Exception + cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) + End Try End Sub + Public Shared Function loadByMRN(MRN As String, loadall As Boolean) As cVERAG_CustomsDeclarations + Dim ZA As New cVERAG_CustomsDeclarations + If If(MRN, "") = "" Then Return ZA + Try + ZA.hasEntry = False + Using conn = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand( + "SELECT * FROM tblVERAG_CustomsDeclarations WHERE za_MRN=@_BASE_id", conn) - - Private Sub LOAD_Duties() - - Using conn = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblVERAG_CustomsDeclarations_Duties WHERE zaDuty_DeclarationId=@id", conn) - cmd.Parameters.AddWithValue("@id", za_Id) - Using dr = cmd.ExecuteReader() - While dr.Read - Dim du As New cVERAG_Zollanmeldung_Duty - du.LOAD_FROM_READER(dr) - Duties.Add(du) - End While + cmd.Parameters.AddWithValue("@_BASE_id", MRN) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In ZA.getParameterList() + Dim pi = ZA.GetType.GetProperty(li.Scalarvariable) + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(ZA, Nothing) + Else + pi.SetValue(ZA, dr.Item(li.Text)) + End If + Next + ZA.hasEntry = True + End If + dr.Close() End Using End Using - End Using + If loadall Then - End Sub - - - - Private Sub LOAD_Documents() - - Using conn = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblVERAG_CustomsDeclarations_Documents WHERE zaDoc_DeclarationId=@id AND zaDoc_Level='H'", conn) - cmd.Parameters.AddWithValue("@id", za_Id) - Using dr = cmd.ExecuteReader() - While dr.Read - Dim d As New cVERAG_Zollanmeldung_Document - d.LOAD_FROM_READER(dr) - Documents.Add(d) - End While - End Using - End Using - End Using - - End Sub - - - - - Private Sub LOAD_ItemDocuments() - - Using conn = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblVERAG_CustomsDeclarations_Documents WHERE zaDoc_Level='I' AND zaDoc_DeclarationId=@id", conn) - cmd.Parameters.AddWithValue("@id", za_Id) - Using dr = cmd.ExecuteReader() - While dr.Read - Dim d As New cVERAG_Zollanmeldung_ItemDocument - d.LOAD_FROM_READER(dr) - ItemDocuments.Add(d) - End While - End Using - End Using - End Using - - End Sub - - - - - - '======================================================================== - ' SQL HELPERS - '======================================================================== - - Private Function getUpdateCmd() As String - - Dim cols As New Text.StringBuilder() - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - cols.Append("[" & p.Text & "]=@" & p.Scalarvariable & ",") + ZA.Parties = cVERAG_CustomsDeclarations_Parties.LOAD_BY_ZAID(ZA.za_Id) + ZA.Items = cVERAG_CustomsDeclarations_Item.LOAD_BY_ZAID(ZA.za_Id) + ZA.Duties = cVERAG_CustomsDeclarations_Duty.LOAD_BY_ZAID(ZA.za_Id) + ZA.Documents = cVERAG_CustomsDeclarations_Document.LOAD_HEAD_BY_ZAID(ZA.za_Id) End If - Next - - Dim setClause = cols.ToString().TrimEnd(","c) - - Return "UPDATE tblVERAG_CustomsDeclarations SET " & setClause & " WHERE za_Id=@za_Id" + Catch ex As Exception + cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) + End Try + Return ZA End Function + Public Function SAVE() As Boolean + Dim list = getParameterList() + Dim sqlstr = + "BEGIN TRAN " & + "IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations WHERE za_Id=@za_Id) " & + "BEGIN " & getUpdateCmd() & " END " & + "ELSE BEGIN " & getInsertCmd() & " END " & + "COMMIT TRAN" - Private Function getInsertCmd() As String + za_Id = SQL.doSQLVarListID(za_Id, sqlstr, "FMZOLL", , list) + If za_Id <= 0 Then Return False - Dim C As New List(Of String) - Dim V As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - C.Add("[" & p.Text & "]") - V.Add("@" & p.Scalarvariable) - End If - Next - - Return "INSERT INTO tblVERAG_CustomsDeclarations (" & - String.Join(",", C) & - ") VALUES (" & - String.Join(",", V) & - ");" + cVERAG_CustomsDeclarations_Parties.REPLACE_ALL(za_Id, Parties) + cVERAG_CustomsDeclarations_Duty.REPLACE_ALL(za_Id, Duties) + cVERAG_CustomsDeclarations_Document.REPLACE_HEAD(za_Id, Documents) + cVERAG_CustomsDeclarations_Item.REPLACE_ALL(za_Id, Items) + Return True End Function - - - End Class +Public Class cVERAG_CustomsDeclarations_Parties + Public Property zaParty_Id As Integer + Public Property zaParty_zaId As Integer + Public Property zaParty_Role As String + Public Property zaParty_EORI As String + Public Property zaParty_EORI_NL As String + Public Property zaParty_Name As String + Public Property zaParty_Street As String + Public Property zaParty_PostalCode As String + Public Property zaParty_City As String + Public Property zaParty_Country As String + Public Property zaParty_TIN As String + Public Property zaParty_VATNumber As String + Public Property zaParty_TaxOffice As String + Public Property zaParty_ContactName As String + Public Property zaParty_Phone As String + Public Property zaParty_Email As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Function getParameterList() As List(Of SQLVariable) + Return New List(Of SQLVariable) From { + New SQLVariable("zaParty_Id", zaParty_Id,, True), + New SQLVariable("zaParty_zaId", zaParty_zaId), + New SQLVariable("zaParty_Role", zaParty_Role), + New SQLVariable("zaParty_EORI", zaParty_EORI), + New SQLVariable("zaParty_EORI_NL", zaParty_EORI_NL), + New SQLVariable("zaParty_Name", zaParty_Name), + New SQLVariable("zaParty_Street", zaParty_Street), + New SQLVariable("zaParty_PostalCode", zaParty_PostalCode), + New SQLVariable("zaParty_City", zaParty_City), + New SQLVariable("zaParty_Country", zaParty_Country), + New SQLVariable("zaParty_VATNumber", zaParty_VATNumber), + New SQLVariable("zaParty_TaxOffice", zaParty_TaxOffice), + New SQLVariable("zaParty_TIN", zaParty_TIN), + New SQLVariable("zaParty_ContactName", zaParty_ContactName), + New SQLVariable("zaParty_Phone", zaParty_Phone), + New SQLVariable("zaParty_Email", zaParty_Email) + } + End Function + Public Function getInsertCmd() As String + Dim f As String = "", v As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + f &= "[" & i.Text & "]," + v &= "@" & i.Scalarvariable & "," + End If + Next + Return "INSERT INTO tblVERAG_CustomsDeclarations_Parties (" & + f.TrimEnd(","c) & ") VALUES (" & v.TrimEnd(","c) & ")" + End Function + Public Shared Sub REPLACE_ALL(zaId As Integer, list As List(Of cVERAG_CustomsDeclarations_Parties)) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL("DELETE FROM tblVERAG_CustomsDeclarations_Parties WHERE zaParty_zaId=" & zaId, "FMZOLL") + For Each p In list + p.zaParty_zaId = zaId + p.zaParty_Id = SQL.doSQLVarListID(p.zaParty_Id, p.getInsertCmd(), "FMZOLL", , p.getParameterList()) + Next + End Sub + Public Shared Function LOAD_BY_ZAID(zaId As Integer) As List(Of cVERAG_CustomsDeclarations_Parties) + Dim result As New List(Of cVERAG_CustomsDeclarations_Parties) -' ========================================================================== -' ITEM -' ========================================================================== + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand( + "SELECT * FROM tblVERAG_CustomsDeclarations_Parties WHERE zaParty_zaId=@zaId", + conn) -Public Class cVERAG_Zollanmeldung_Item + cmd.Parameters.AddWithValue("@zaId", zaId) + + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + + Dim obj As New cVERAG_CustomsDeclarations_Parties + + For Each li In obj.getParameterList() + Dim propInfo As PropertyInfo = + obj.GetType().GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(obj, Nothing) + Else + propInfo.SetValue(obj, dr.Item(li.Text)) + End If + Next + + result.Add(obj) + + End While + End Using + End Using + End Using + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return result + End Function +End Class + +' ########################################################## +' ITEMS +' ########################################################## +Public Class cVERAG_CustomsDeclarations_Item Public Property zaItem_Id As Integer - Public Property zaItem_DeclarationId As Integer + Public Property zaItem_zaId As Integer + Public Property zaItem_PosNo As Integer - Public Property zaItem_Line As Integer Public Property zaItem_ArticleCode As String Public Property zaItem_HSCode As String + Public Property zaItem_HSAddition1 As String + Public Property zaItem_HSAddition2 As String + Public Property zaItem_HSAddCodes1 As String + Public Property zaItem_HSAddCodes2 As String + Public Property zaItem_HSAddCodes3 As String + Public Property zaItem_HSAddCodes4 As String + Public Property zaItem_HSAddCodes5 As String + Public Property zaItem_HSAddCodes6 As String + Public Property zaItem_HSAddCodes7 As String + Public Property zaItem_HSAddCodes8 As String + Public Property zaItem_HSAddCodes9 As String + Public Property zaItem_HSAddCodes10 As String Public Property zaItem_Description As String - Public Property zaItem_Qty As Decimal? - Public Property zaItem_Unit As String - Public Property zaItem_Gross As Decimal? - Public Property zaItem_Net As Decimal? - - Public Property zaItem_InvoiceValue As Decimal? - Public Property zaItem_CustomsValue As Decimal? - Public Property zaItem_StatisticalValue As Decimal? - Public Property zaItem_Currency As String - + Public Property zaItem_PackageColli As String + Public Property zaItem_PackageType As String + Public Property zaItem_PackageMark As String Public Property zaItem_OriginCountry As String + Public Property zaItem_PreferentialCountry As String Public Property zaItem_PreferenceCode As String + Public Property zaItem_QuotaNo As String - Private SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Property zaItem_MainProcedure As String + Public Property zaItem_AdditionalProc As String + Public Property zaItem_PrevProcedure As String + Public Property zaItem_GrossMass As Decimal? + Public Property zaItem_NetMass As Decimal? + Public Property zaItem_SuppUnitCode As String + Public Property zaItem_SuppQuantity As Decimal? - '--- PARAMLIST ---------------------------------------------------------- + Public Property zaItem_StatisticalValueEUR As Decimal? + Public Property zaItem_CustomsValueEUR As Decimal? - Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Public Property zaItem_InvoiceCurrency As String + Public Property zaItem_InvoiceValueForeign As Decimal? + Public Property zaItem_InvoiceValueEUR As Decimal? - Dim L As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Public Property zaItem_BeguenstigungCode As String + Public Property zaItem_DV1Flag As Boolean? + Public Property zaItem_PosAddition As String + Public Property zaItem_Remarks As String - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Id", zaItem_Id,, True, True)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_DeclarationId", zaItem_DeclarationId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Line", zaItem_Line)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_ArticleCode", zaItem_ArticleCode)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_HSCode", zaItem_HSCode)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Description", zaItem_Description)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Qty", zaItem_Qty)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Unit", zaItem_Unit)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Gross", zaItem_Gross)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Net", zaItem_Net)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_InvoiceValue", zaItem_InvoiceValue)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_CustomsValue", zaItem_CustomsValue)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_StatisticalValue", zaItem_StatisticalValue)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_Currency", zaItem_Currency)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_OriginCountry", zaItem_OriginCountry)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaItem_PreferenceCode", zaItem_PreferenceCode)) + Public Property Documents As New List(Of cVERAG_CustomsDeclarations_Document) + Public Property hasEntry As Boolean = False - Return L + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Function getParameterList() As List(Of SQLVariable) + Return New List(Of SQLVariable) From { + New SQLVariable("zaItem_Id", zaItem_Id,, True), + New SQLVariable("zaItem_zaId", zaItem_zaId), + New SQLVariable("zaItem_PosNo", zaItem_PosNo), + New SQLVariable("zaItem_ArticleCode", zaItem_ArticleCode), + New SQLVariable("zaItem_HSCode", zaItem_HSCode), + New SQLVariable("zaItem_HSAddition1", zaItem_HSAddition1), + New SQLVariable("zaItem_HSAddition2", zaItem_HSAddition2), + New SQLVariable("zaItem_HSAddCodes1", zaItem_HSAddCodes1), + New SQLVariable("zaItem_HSAddCodes2", zaItem_HSAddCodes2), + New SQLVariable("zaItem_HSAddCodes3", zaItem_HSAddCodes3), + New SQLVariable("zaItem_HSAddCodes4", zaItem_HSAddCodes4), + New SQLVariable("zaItem_HSAddCodes5", zaItem_HSAddCodes5), + New SQLVariable("zaItem_HSAddCodes6", zaItem_HSAddCodes6), + New SQLVariable("zaItem_HSAddCodes7", zaItem_HSAddCodes7), + New SQLVariable("zaItem_HSAddCodes8", zaItem_HSAddCodes8), + New SQLVariable("zaItem_HSAddCodes9", zaItem_HSAddCodes9), + New SQLVariable("zaItem_HSAddCodes10", zaItem_HSAddCodes10), + New SQLVariable("zaItem_Description", zaItem_Description), + New SQLVariable("zaItem_PackageColli", zaItem_PackageColli), + New SQLVariable("zaItem_PackageType", zaItem_PackageType), + New SQLVariable("zaItem_PackageMark", zaItem_PackageMark), + New SQLVariable("zaItem_OriginCountry", zaItem_OriginCountry), + New SQLVariable("zaItem_PreferentialCountry", zaItem_PreferentialCountry), + New SQLVariable("zaItem_PreferenceCode", zaItem_PreferenceCode), + New SQLVariable("zaItem_QuotaNo", zaItem_QuotaNo), + New SQLVariable("zaItem_MainProcedure", zaItem_MainProcedure), + New SQLVariable("zaItem_AdditionalProc", zaItem_AdditionalProc), + New SQLVariable("zaItem_PrevProcedure", zaItem_PrevProcedure), + New SQLVariable("zaItem_GrossMass", zaItem_GrossMass), + New SQLVariable("zaItem_NetMass", zaItem_NetMass), + New SQLVariable("zaItem_SuppUnitCode", zaItem_SuppUnitCode), + New SQLVariable("zaItem_SuppQuantity", zaItem_SuppQuantity), + New SQLVariable("zaItem_StatisticalValueEUR", zaItem_StatisticalValueEUR), + New SQLVariable("zaItem_CustomsValueEUR", zaItem_CustomsValueEUR), + New SQLVariable("zaItem_InvoiceCurrency", zaItem_InvoiceCurrency), + New SQLVariable("zaItem_InvoiceValueForeign", zaItem_InvoiceValueForeign), + New SQLVariable("zaItem_InvoiceValueEUR", zaItem_InvoiceValueEUR), + New SQLVariable("zaItem_BeguenstigungCode", zaItem_BeguenstigungCode), + New SQLVariable("zaItem_DV1Flag", zaItem_DV1Flag), + New SQLVariable("zaItem_PosAddition", zaItem_PosAddition), + New SQLVariable("zaItem_Remarks", zaItem_Remarks) + } End Function - - '--- SAVE --------------------------------------------------------------- - - Public Function SAVE() As Boolean - - Dim list = getParameterList() - - Dim sqlstr As String = - " BEGIN TRAN " & - " IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations_Items WHERE zaItem_Id=@zaItem_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " ELSE BEGIN " & getInsertCmd() & " END " & - " COMMIT TRAN " - - zaItem_Id = SQL.doSQLVarListID(zaItem_Id, sqlstr, "VERAG", , list) - Return zaItem_Id > 0 - - End Function - - - - '--- LOAD FROM DATAREADER ---------------------------------------------- - - Public Sub LOAD_FROM_READER(dr As SqlDataReader) - - For Each p In getParameterList() - Dim prop = Me.GetType().GetProperty(p.Scalarvariable) - If prop IsNot Nothing Then - If IsDBNull(dr(p.Text)) Then - prop.SetValue(Me, Nothing) - Else - prop.SetValue(Me, dr(p.Text)) - End If + Public Function getInsertCmd() As String + Dim f As String = "", v As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + f &= "[" & i.Text & "]," + v &= "@" & i.Scalarvariable & "," End If Next + Return "INSERT INTO tblVERAG_CustomsDeclarations_Items (" & + f.TrimEnd(","c) & ") VALUES (" & v.TrimEnd(","c) & ")" + End Function + + ' ---------- DELETE + INSERT ---------- + Public Shared Sub REPLACE_ALL(zaId As Integer, list As List(Of cVERAG_CustomsDeclarations_Item)) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + SQL.doSQL("DELETE FROM tblVERAG_CustomsDeclarations_Items WHERE zaItem_zaId=" & zaId, "FMZOLL") + SQL.doSQL("DELETE FROM tblVERAG_CustomsDeclarations_Documents WHERE zaDoc_zaId=" & zaId & " AND zaDoc_ItemId is not null", "FMZOLL") + + For Each it In list + it.zaItem_zaId = zaId + it.zaItem_Id = SQL.doSQLVarListID(it.zaItem_Id, it.getInsertCmd(), "FMZOLL", , it.getParameterList()) + 'MsgBox(it.zaItem_Id) + cVERAG_CustomsDeclarations_Document.INSERT_ITEM(it.zaItem_zaId, it.zaItem_Id, it.Documents) + Next End Sub + Public Shared Function LOAD_BY_ZAID(zaId As Integer) As List(Of cVERAG_CustomsDeclarations_Item) + Dim result As New List(Of cVERAG_CustomsDeclarations_Item) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - '--- SQL HELPERS -------------------------------------------------------- + Using cmd As New SqlCommand( + "SELECT * FROM tblVERAG_CustomsDeclarations_Items WHERE zaItem_zaId=@zaId", + conn) - Private Function getUpdateCmd() As String + cmd.Parameters.AddWithValue("@zaId", zaId) - Dim cols As New List(Of String) + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() - For Each p In getParameterList() - If Not p.isPrimaryParam Then - cols.Add("[" & p.Text & "]=@" & p.Scalarvariable) - End If - Next + Dim it As New cVERAG_CustomsDeclarations_Item + it.hasEntry = False - Return "UPDATE tblVERAG_CustomsDeclarations_Items SET " & - String.Join(",", cols) & - " WHERE zaItem_Id=@zaItem_Id" + For Each li In it.getParameterList() + Dim pi As PropertyInfo = + it.GetType().GetProperty(li.Scalarvariable) + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(it, Nothing) + Else + pi.SetValue(it, dr.Item(li.Text)) + End If + Next + + it.hasEntry = True + result.Add(it) + + End While + End Using + End Using + End Using + + ' ===== Documents NACHLADEN (pro Item) ===== + For Each it In result + it.Documents = + cVERAG_CustomsDeclarations_Document.LOAD_ITEM_BY_ITEMID(zaId, it.zaItem_Id) + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return result End Function - - - - Private Function getInsertCmd() As String - - Dim C As New List(Of String) - Dim V As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - C.Add("[" & p.Text & "]") - V.Add("@" & p.Scalarvariable) - End If - Next - - Return "INSERT INTO tblVERAG_CustomsDeclarations_Items (" & - String.Join(",", C) & - ") VALUES (" & - String.Join(",", V) & - ")" - - End Function - - - End Class - - - - - - -' ========================================================================== -' DUTY -' ========================================================================== - -Public Class cVERAG_Zollanmeldung_Duty +' ########################################################## +' DUTIES +' ########################################################## +Public Class cVERAG_CustomsDeclarations_Duty Public Property zaDuty_Id As Integer - Public Property zaDuty_DeclarationId As Integer - Public Property zaDuty_ItemId As Integer? + Public Property zaDuty_zaId As Integer + Public Property zaDuty_AccountType As String + Public Property zaDuty_AccountHeadCustoms As String + Public Property zaDuty_ApplicationType As String + Public Property zaDuty_AccountNo As String - Public Property zaDuty_Type As String - Public Property zaDuty_BaseAmountForeign As Decimal? - Public Property zaDuty_BaseCurrency As String - Public Property zaDuty_BaseAmountEUR As Decimal? - Public Property zaDuty_Rate As String - Public Property zaDuty_AmountForeign As Decimal? - Public Property zaDuty_AmountCurrency As String + + + Public Property zaDuty_AccountEORI As String + Public Property zaDuty_AccountHolderName As String + Public Property zaDuty_DutyType As String + Public Property zaDuty_BIN As String Public Property zaDuty_AmountEUR As Decimal? + Public Property zaDuty_AmountForeign As Decimal? + Public Property zaDuty_Currency As String + Public Property zaDuty_LimitDate As Date? + Public Property hasEntry As Boolean = False - Public Property zaDuty_DeferredFlag As Boolean? - Public Property zaDuty_DeferredAccount As String - - Public Property zaDuty_MeasureId As String - Public Property zaDuty_Indicator As String - Public Property zaDuty_Remarks As String - - Private SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - - '--- PARAMLIST ---------------------------------------------------------- - - Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - Dim L As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_Id", zaDuty_Id,, True, True)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_DeclarationId", zaDuty_DeclarationId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_ItemId", zaDuty_ItemId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_Type", zaDuty_Type)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_BaseAmountForeign", zaDuty_BaseAmountForeign)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_BaseCurrency", zaDuty_BaseCurrency)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_BaseAmountEUR", zaDuty_BaseAmountEUR)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_Rate", zaDuty_Rate)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_AmountForeign", zaDuty_AmountForeign)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_AmountCurrency", zaDuty_AmountCurrency)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_AmountEUR", zaDuty_AmountEUR)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_DeferredFlag", zaDuty_DeferredFlag)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_DeferredAccount", zaDuty_DeferredAccount)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_MeasureId", zaDuty_MeasureId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_Indicator", zaDuty_Indicator)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDuty_Remarks", zaDuty_Remarks)) - - Return L - + Public Function getParameterList() As List(Of SQLVariable) + Return New List(Of SQLVariable) From { + New SQLVariable("zaDuty_Id", zaDuty_Id,, True), + New SQLVariable("zaDuty_zaId", zaDuty_zaId), + New SQLVariable("zaDuty_AccountType", zaDuty_AccountType), + New SQLVariable("zaDuty_AccountHeadCustoms", zaDuty_AccountHeadCustoms), + New SQLVariable("zaDuty_ApplicationType", zaDuty_ApplicationType), + New SQLVariable("zaDuty_AccountNo", zaDuty_AccountNo), + New SQLVariable("zaDuty_AccountEORI", zaDuty_AccountEORI), + New SQLVariable("zaDuty_AccountHolderName", zaDuty_AccountHolderName), + New SQLVariable("zaDuty_DutyType", zaDuty_DutyType), + New SQLVariable("zaDuty_BIN", zaDuty_BIN), + New SQLVariable("zaDuty_AmountEUR", zaDuty_AmountEUR), + New SQLVariable("zaDuty_AmountForeign", zaDuty_AmountForeign), + New SQLVariable("zaDuty_Currency", zaDuty_Currency), + New SQLVariable("zaDuty_LimitDate", zaDuty_LimitDate) + } End Function - - - '--- SAVE --------------------------------------------------------------- - - Public Function SAVE() As Boolean - - Dim list = getParameterList() - - Dim sqlstr As String = - " BEGIN TRAN " & - " IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations_Duties WHERE zaDuty_Id=@zaDuty_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " ELSE BEGIN " & getInsertCmd() & " END " & - " COMMIT TRAN " - - zaDuty_Id = SQL.doSQLVarListID(zaDuty_Id, sqlstr, "VERAG", , list) - Return zaDuty_Id > 0 - - End Function - - - - '--- LOAD FROM DATAREADER ---------------------------------------------- - - Public Sub LOAD_FROM_READER(dr As SqlDataReader) - - For Each p In getParameterList() - Dim prop = Me.GetType().GetProperty(p.Scalarvariable) - If prop IsNot Nothing Then - If IsDBNull(dr(p.Text)) Then - prop.SetValue(Me, Nothing) - Else - prop.SetValue(Me, dr(p.Text)) - End If + Public Function getInsertCmd() As String + Dim f As String = "", v As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + f &= "[" & i.Text & "]," + v &= "@" & i.Scalarvariable & "," End If Next - - End Sub - - - - - '--- SQL HELPERS -------------------------------------------------------- - - Private Function getUpdateCmd() As String - - Dim cols As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - cols.Add("[" & p.Text & "]=@" & p.Scalarvariable) - End If - Next - - Return "UPDATE tblVERAG_CustomsDeclarations_Duties SET " & - String.Join(",", cols) & - " WHERE zaDuty_Id=@zaDuty_Id" - - End Function - - - - Private Function getInsertCmd() As String - - Dim C As New List(Of String) - Dim V As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - C.Add("[" & p.Text & "]") - V.Add("@" & p.Scalarvariable) - End If - Next - Return "INSERT INTO tblVERAG_CustomsDeclarations_Duties (" & - String.Join(",", C) & - ") VALUES (" & - String.Join(",", V) & - ")" - + f.TrimEnd(","c) & ") VALUES (" & v.TrimEnd(","c) & ")" End Function -End Class + ' ---------- DELETE + INSERT ---------- + Public Shared Sub REPLACE_ALL(zaId As Integer, list As List(Of cVERAG_CustomsDeclarations_Duty)) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - - - - -' ========================================================================== -' DOCUMENT (HEADER) -' ========================================================================== - -Public Class cVERAG_Zollanmeldung_Document - - Public Property zaDoc_Id As Integer - Public Property zaDoc_DeclarationId As Integer - - Public Property zaDoc_Level As String = "H" - - Public Property zaDoc_Code As String - Public Property zaDoc_Type As String - Public Property zaDoc_Reference As String - Public Property zaDoc_IssueDate As Date? - Public Property zaDoc_IssueCountry As String - Public Property zaDoc_IssueTIN As String - Public Property zaDoc_UID As String - Public Property zaDoc_ValidTo As Date? - Public Property zaDoc_Remarks As String - - Private SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - - - '--- PARAMLIST ---------------------------------------------------------- - - Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - Dim L As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Id", zaDoc_Id,, True, True)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_DeclarationId", zaDoc_DeclarationId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Level", zaDoc_Level)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Code", zaDoc_Code)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Type", zaDoc_Type)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Reference", zaDoc_Reference)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueDate", zaDoc_IssueDate)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueCountry", zaDoc_IssueCountry)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueTIN", zaDoc_IssueTIN)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_UID", zaDoc_UID)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_ValidTo", zaDoc_ValidTo)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Remarks", zaDoc_Remarks)) - - Return L - - End Function - - - - '--- SAVE --------------------------------------------------------------- - - Public Function SAVE() As Boolean - - Dim list = getParameterList() - - Dim sqlstr As String = - " BEGIN TRAN " & - " IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations_Documents WHERE zaDoc_Id=@zaDoc_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " ELSE BEGIN " & getInsertCmd() & " END " & - " COMMIT TRAN " - - zaDoc_Id = SQL.doSQLVarListID(zaDoc_Id, sqlstr, "VERAG", , list) - Return zaDoc_Id > 0 - - End Function - - - - '--- LOAD FROM DATAREADER ---------------------------------------------- - - Public Sub LOAD_FROM_READER(dr As SqlDataReader) - - For Each p In getParameterList() - Dim prop = Me.GetType().GetProperty(p.Scalarvariable) - If prop IsNot Nothing Then - If IsDBNull(dr(p.Text)) Then - prop.SetValue(Me, Nothing) - Else - prop.SetValue(Me, dr(p.Text)) - End If - End If + SQL.doSQL("DELETE FROM tblVERAG_CustomsDeclarations_Duties WHERE zaDuty_zaId=" & zaId, "FMZOLL") + For Each d In list + d.zaDuty_zaId = zaId + d.zaDuty_Id = SQL.doSQLVarListID(d.zaDuty_Id, d.getInsertCmd(), "FMZOLL", , d.getParameterList()) Next - End Sub + Public Shared Function LOAD_BY_ZAID(zaId As Integer) _ + As List(Of cVERAG_CustomsDeclarations_Duty) + Dim result As New List(Of cVERAG_CustomsDeclarations_Duty) + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand( + "SELECT * FROM tblVERAG_CustomsDeclarations_Duties WHERE zaDuty_zaId=@zaId", + conn) - '--- SQL HELPERS -------------------------------------------------------- + cmd.Parameters.AddWithValue("@zaId", zaId) - Private Function getUpdateCmd() As String + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() - Dim cols As New List(Of String) + Dim d As New cVERAG_CustomsDeclarations_Duty + d.hasEntry = False - For Each p In getParameterList() - If Not p.isPrimaryParam Then - cols.Add("[" & p.Text & "]=@" & p.Scalarvariable) - End If - Next + ' ===== DEINE LOAD-VORLAGE (1:1, nur in While) ===== + For Each li In d.getParameterList() + Dim pi As PropertyInfo = + d.GetType().GetProperty(li.Scalarvariable) - Return "UPDATE tblVERAG_CustomsDeclarations_Documents SET " & - String.Join(",", cols) & - " WHERE zaDoc_Id=@zaDoc_Id" + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(d, Nothing) + Else + pi.SetValue(d, dr.Item(li.Text)) + End If + Next + d.hasEntry = True + result.Add(d) + + End While + End Using + End Using + End Using + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return result End Function - - - Private Function getInsertCmd() As String - - Dim C As New List(Of String) - Dim V As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - C.Add("[" & p.Text & "]") - V.Add("@" & p.Scalarvariable) - End If - Next - - Return "INSERT INTO tblVERAG_CustomsDeclarations_Documents (" & - String.Join(",", C) & - ") VALUES (" & - String.Join(",", V) & - ")" - - End Function - - - End Class - - - - - - -' ========================================================================== -' DOCUMENT (ITEM) -' ========================================================================== - -Public Class cVERAG_Zollanmeldung_ItemDocument +' ########################################################## +' DOCUMENTS (HEAD + ITEM) +' ########################################################## +Public Class cVERAG_CustomsDeclarations_Document Public Property zaDoc_Id As Integer - Public Property zaDoc_DeclarationId As Integer? + Public Property zaDoc_zaId As Integer Public Property zaDoc_ItemId As Integer? - - Public Property zaDoc_Level As String = "I" - + Public Property zaDoc_Date As String + Public Property zaDoc_Section As String Public Property zaDoc_Code As String - Public Property zaDoc_Type As String + Public Property zaDoc_Presentation As String + Public Property zaDoc_DepreciationAmount As String + Public Property zaDoc_DepreciationUnitmeasurement As String + Public Property zaDoc_DepreciationUnitmeasurementQualifier As String + + Public Property zaDoc_Reference As String - Public Property zaDoc_IssueDate As Date? - Public Property zaDoc_IssueCountry As String - Public Property zaDoc_IssueTIN As String - Public Property zaDoc_UID As String - Public Property zaDoc_ValidTo As Date? - Public Property zaDoc_Remarks As String + Public Property zaDoc_Description As String - Private SQL As New VERAG_PROG_ALLGEMEIN.SQL - - - - - '--- PARAMLIST ---------------------------------------------------------- - - Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - Dim L As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) - - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Id", zaDoc_Id,, True, True)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_DeclarationId", zaDoc_DeclarationId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_ItemId", zaDoc_ItemId)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Level", zaDoc_Level)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Code", zaDoc_Code)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Type", zaDoc_Type)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Reference", zaDoc_Reference)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueDate", zaDoc_IssueDate)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueCountry", zaDoc_IssueCountry)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_IssueTIN", zaDoc_IssueTIN)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_UID", zaDoc_UID)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_ValidTo", zaDoc_ValidTo)) - L.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zaDoc_Remarks", zaDoc_Remarks)) - - Return L + Public Property hasEntry As Boolean = False + Public Function getParameterList() As List(Of SQLVariable) + Return New List(Of SQLVariable) From { + New SQLVariable("zaDoc_Id", zaDoc_Id,, True), + New SQLVariable("zaDoc_zaId", zaDoc_zaId), + New SQLVariable("zaDoc_ItemId", zaDoc_ItemId), + New SQLVariable("zaDoc_Date", zaDoc_Date), + New SQLVariable("zaDoc_Section", zaDoc_Section), + New SQLVariable("zaDoc_Code", zaDoc_Code), + New SQLVariable("zaDoc_Reference", zaDoc_Reference), + New SQLVariable("zaDoc_Presentation", zaDoc_Presentation), + New SQLVariable("zaDoc_DepreciationAmount", zaDoc_DepreciationAmount), + New SQLVariable("zaDoc_DepreciationUnitmeasurement", zaDoc_DepreciationUnitmeasurement), + New SQLVariable("zaDoc_DepreciationUnitmeasurementQualifier", zaDoc_DepreciationUnitmeasurementQualifier), + New SQLVariable("zaDoc_Description ", zaDoc_Description) + } End Function - - - '--- SAVE --------------------------------------------------------------- - - Public Function SAVE() As Boolean - - Dim list = getParameterList() - - Dim sqlstr As String = - " BEGIN TRAN " & - " IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations_Documents WHERE zaDoc_Id=@zaDoc_Id) " & - " BEGIN " & getUpdateCmd() & " END " & - " ELSE BEGIN " & getInsertCmd() & " END " & - " COMMIT TRAN " - - zaDoc_Id = SQL.doSQLVarListID(zaDoc_Id, sqlstr, "VERAG", , list) - Return zaDoc_Id > 0 - - End Function - - - - '--- LOAD FROM DATAREADER ---------------------------------------------- - - Public Sub LOAD_FROM_READER(dr As SqlDataReader) - - For Each p In getParameterList() - Dim prop = Me.GetType().GetProperty(p.Scalarvariable) - If prop IsNot Nothing Then - If IsDBNull(dr(p.Text)) Then - prop.SetValue(Me, Nothing) - Else - prop.SetValue(Me, dr(p.Text)) - End If + Public Function getInsertCmd() As String + Dim f As String = "", v As String = "" + For Each i In getParameterList() + If Not i.isPrimaryParam Then + f &= "[" & i.Text & "]," + v &= "@" & i.Scalarvariable & "," End If Next + Return "INSERT INTO tblVERAG_CustomsDeclarations_Documents (" & + f.TrimEnd(","c) & ") VALUES (" & v.TrimEnd(","c) & ")" + End Function + + + ' ---------- DELETE + INSERT ---------- + Public Shared Sub REPLACE_HEAD(zaId As Integer, list As List(Of cVERAG_CustomsDeclarations_Document)) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + SQL.doSQL( + "DELETE FROM tblVERAG_CustomsDeclarations_Documents + WHERE zaDoc_zaId=" & zaId & " AND zaDoc_ItemId IS NULL", + "FMZOLL") + + For Each d In list + d.zaDoc_zaId = zaId + d.zaDoc_ItemId = Nothing + d.zaDoc_Id = SQL.doSQLVarListID(d.zaDoc_Id, d.getInsertCmd(), "FMZOLL", , d.getParameterList()) + Next End Sub + Public Shared Sub INSERT_ITEM(zaId As Integer, itemId As Integer, list As List(Of cVERAG_CustomsDeclarations_Document)) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - '--- SQL HELPERS -------------------------------------------------------- - - Private Function getUpdateCmd() As String - - Dim cols As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - cols.Add("[" & p.Text & "]=@" & p.Scalarvariable) - End If + For Each d In list + d.zaDoc_zaId = zaId + d.zaDoc_ItemId = itemId + d.zaDoc_Id = SQL.doSQLVarListID(d.zaDoc_Id, d.getInsertCmd(), "FMZOLL", , d.getParameterList()) Next + End Sub - Return "UPDATE tblVERAG_CustomsDeclarations_Documents SET " & - String.Join(",", cols) & - " WHERE zaDoc_Id=@zaDoc_Id" - + Public Shared Function LOAD_HEAD_BY_ZAID(zaId As Integer) As List(Of cVERAG_CustomsDeclarations_Document) + Return LOAD_BY_SQL( + "SELECT * FROM tblVERAG_CustomsDeclarations_Documents + WHERE zaDoc_zaId=" & zaId & " AND zaDoc_ItemId IS NULL") End Function - - - Private Function getInsertCmd() As String - - Dim C As New List(Of String) - Dim V As New List(Of String) - - For Each p In getParameterList() - If Not p.isPrimaryParam Then - C.Add("[" & p.Text & "]") - V.Add("@" & p.Scalarvariable) - End If - Next - - Return "INSERT INTO tblVERAG_CustomsDeclarations_Documents (" & - String.Join(",", C) & - ") VALUES (" & - String.Join(",", V) & - ")" - + Public Shared Function LOAD_ITEM_BY_ITEMID(zaId As Integer, itemId As Integer) As List(Of cVERAG_CustomsDeclarations_Document) + Return LOAD_BY_SQL( + "SELECT * FROM tblVERAG_CustomsDeclarations_Documents + WHERE zaDoc_zaId=" & zaId & " AND zaDoc_ItemId=" & itemId) End Function + Private Shared Function LOAD_BY_SQL(sqlstr As String) _ + As List(Of cVERAG_CustomsDeclarations_Document) + + Dim result As New List(Of cVERAG_CustomsDeclarations_Document) + + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sqlstr, conn) + + Using dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read() + + Dim d As New cVERAG_CustomsDeclarations_Document + d.hasEntry = False + + ' ===== DEINE LOAD-VORLAGE (1:1, kombiniert) ===== + For Each li In d.getParameterList() + Dim pi As PropertyInfo = + d.GetType().GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(d, Nothing) + Else + pi.SetValue(d, dr.Item(li.Text)) + End If + Next + + d.hasEntry = True + result.Add(d) + + End While + End Using + End Using + End Using + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return result + End Function + +End Class + + -End Class \ No newline at end of file From 3a30253c2d36ef5f598b90b998684ac235fd7390 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 5 Jan 2026 15:19:26 +0100 Subject: [PATCH 2/3] CBAM --- .../frmVorauskasse_CBAM.Designer.vb | 282 +++++ .../frmVorauskasse_CBAM.resx | 998 ++++++++++++++++++ .../FormulareBaukasten/frmVorauskasse_CBAM.vb | 70 ++ .../usrcntlVorauskasse.Designer.vb | 103 +- .../FormulareBaukasten/usrcntlVorauskasse.vb | 27 +- SDL/SDL.vbproj | 9 + SDL/kunden/Newsletter/frmNewsletter.vb | 1 + SDL/kunden/usrCntlCBAM.Designer.vb | 816 +++++++++++--- SDL/kunden/usrCntlCBAM.vb | 730 ++++++++++++- VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 21 +- .../cATEZ_Greenpulse_CBAM_CostCalculation.vb | 100 +- .../GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb | 7 + .../cVERAG_Zollanmeldung.vb | 107 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 114 ++ 14 files changed, 3160 insertions(+), 225 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb new file mode 100644 index 00000000..8763cbab --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb @@ -0,0 +1,282 @@ + +Partial Class frmVorauskasse_CBAM + Inherits System.Windows.Forms.Form + + 'Das Formular ü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() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorauskasse_CBAM)) + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.clmnTarif = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnWeight = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnCountry = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnYear = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnKosten = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cmlnEmission = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(135, 412) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(126, 13) + Me.lbl.TabIndex = 1 + Me.lbl.Text = "Kosten CBAM Zertifikate:" + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(329, 412) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(113, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "0,00" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btn + ' + Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(138, 451) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(304, 39) + Me.btn.TabIndex = 3 + Me.btn.Text = "Eintragen" + Me.btn.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(138, 375) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(304, 34) + Me.Button7.TabIndex = 53 + Me.Button7.Text = "Berechnen" + Me.Button7.UseVisualStyleBackColor = True + ' + 'txtCalc_Defaut_CertPrice + ' + Me.txtCalc_Defaut_CertPrice._DateTimeOnly = False + Me.txtCalc_Defaut_CertPrice._numbersOnly = True + Me.txtCalc_Defaut_CertPrice._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_CertPrice._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_CertPrice._Prozent = False + Me.txtCalc_Defaut_CertPrice._ShortDateNew = False + Me.txtCalc_Defaut_CertPrice._ShortDateOnly = False + Me.txtCalc_Defaut_CertPrice._TimeOnly = False + Me.txtCalc_Defaut_CertPrice._TimeOnly_Seconds = False + Me.txtCalc_Defaut_CertPrice._value = "" + Me.txtCalc_Defaut_CertPrice._Waehrung = True + Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True + Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red + Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(12, 389) + Me.txtCalc_Defaut_CertPrice.MaxLength = 10 + Me.txtCalc_Defaut_CertPrice.MaxLineLength = -1 + Me.txtCalc_Defaut_CertPrice.MaxLines_Warning = "" + Me.txtCalc_Defaut_CertPrice.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_CertPrice.Name = "txtCalc_Defaut_CertPrice" + Me.txtCalc_Defaut_CertPrice.Size = New System.Drawing.Size(117, 20) + Me.txtCalc_Defaut_CertPrice.TabIndex = 58 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(9, 375) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(74, 13) + Me.Label16.TabIndex = 59 + Me.Label16.Text = "ZertifikatPreis:" + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnTarif, Me.clmnWeight, Me.clmnCountry, Me.clmnYear, Me.clmnKosten, Me.cmlnEmission}) + Me.MyDatagridview1.Location = New System.Drawing.Point(12, 12) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.Size = New System.Drawing.Size(430, 359) + Me.MyDatagridview1.TabIndex = 70 + ' + 'Label2 + ' + 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(329, 428) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(113, 13) + Me.Label2.TabIndex = 72 + Me.Label2.Text = "0,00" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(135, 428) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(57, 13) + Me.Label3.TabIndex = 71 + Me.Label3.Text = "Aufschlag:" + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = False + Me.MyTextBox1._Prozent = True + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "0,1" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(270, 425) + Me.MyTextBox1.MaxLength = 4 + 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(70, 20) + Me.MyTextBox1.TabIndex = 66 + Me.MyTextBox1.Text = "10,00 %" + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button1.Location = New System.Drawing.Point(12, 451) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(54, 39) + Me.Button1.TabIndex = 73 + Me.Button1.UseVisualStyleBackColor = True + ' + 'clmnTarif + ' + Me.clmnTarif.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle1.Format = "C2" + DataGridViewCellStyle1.NullValue = Nothing + Me.clmnTarif.DefaultCellStyle = DataGridViewCellStyle1 + Me.clmnTarif.HeaderText = "Tarif (8St.)" + Me.clmnTarif.MaxInputLength = 8 + Me.clmnTarif.Name = "clmnTarif" + ' + 'clmnWeight + ' + DataGridViewCellStyle2.Format = "C2" + DataGridViewCellStyle2.NullValue = Nothing + Me.clmnWeight.DefaultCellStyle = DataGridViewCellStyle2 + Me.clmnWeight.HeaderText = "Gewicht (to)" + Me.clmnWeight.MaxInputLength = 8 + Me.clmnWeight.Name = "clmnWeight" + Me.clmnWeight.Width = 90 + ' + 'clmnCountry + ' + DataGridViewCellStyle3.Format = "C2" + DataGridViewCellStyle3.NullValue = Nothing + Me.clmnCountry.DefaultCellStyle = DataGridViewCellStyle3 + Me.clmnCountry.HeaderText = "Land" + Me.clmnCountry.MaxInputLength = 2 + Me.clmnCountry.Name = "clmnCountry" + Me.clmnCountry.ReadOnly = True + Me.clmnCountry.Width = 50 + ' + 'clmnYear + ' + Me.clmnYear.HeaderText = "Jahr" + Me.clmnYear.MaxInputLength = 4 + Me.clmnYear.Name = "clmnYear" + Me.clmnYear.Width = 50 + ' + 'clmnKosten + ' + Me.clmnKosten.HeaderText = "Kosten" + Me.clmnKosten.Name = "clmnKosten" + Me.clmnKosten.ReadOnly = True + Me.clmnKosten.Width = 80 + ' + 'cmlnEmission + ' + Me.cmlnEmission.HeaderText = "Emission" + Me.cmlnEmission.Name = "cmlnEmission" + Me.cmlnEmission.Visible = False + ' + 'frmVorauskasse_CBAM + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(459, 507) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.MyTextBox1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtCalc_Defaut_CertPrice) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.MyDatagridview1) + Me.Controls.Add(Me.Button7) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmVorauskasse_CBAM" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "CBAM Kosten" + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lbl As Label + Friend WithEvents Label1 As Label + Friend WithEvents btn As Button + Friend WithEvents Button7 As Button + Friend WithEvents txtCalc_Defaut_CertPrice As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label16 As Label + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button1 As Button + Friend WithEvents clmnTarif As DataGridViewTextBoxColumn + Friend WithEvents clmnWeight As DataGridViewTextBoxColumn + Friend WithEvents clmnCountry As DataGridViewTextBoxColumn + Friend WithEvents clmnYear As DataGridViewTextBoxColumn + Friend WithEvents clmnKosten As DataGridViewTextBoxColumn + Friend WithEvents cmlnEmission As DataGridViewTextBoxColumn +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx new file mode 100644 index 00000000..8dbfb4fa --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx @@ -0,0 +1,998 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb new file mode 100644 index 00000000..728a27fb --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb @@ -0,0 +1,70 @@ +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmVorauskasse_CBAM + Public GesamtBetrag As Double = 0 + Public Aufschlag As Double = 0 + + Public autocalc = False + + + Private Sub frmVorauskasse_ZollBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Shown + With MyDatagridview1 + .Columns(0).DefaultCellStyle.Format = "" + .Columns(1).DefaultCellStyle.Format = "N2" + .Columns(4).DefaultCellStyle.Format = "N2" + End With + txtCalc_Defaut_CertPrice._value = 95 + MyDatagridview1.Columns("clmnCountry").ReadOnly = False + If autocalc Then + Button7.PerformClick() + End If + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + 'If e.ColumnIndex = 2 Then Exit Sub + GesamtBetrag = 0 + For Each r As DataGridViewRow In MyDatagridview1.Rows + If Not r.IsNewRow Then + Dim cost As Double = 0 + Dim emission As Double = 0 + cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Cells("clmnTarif").Value, r.Cells("clmnWeight").Value, r.Cells("clmnCountry").Value, txtCalc_Defaut_CertPrice._value, r.Cells("clmnYear").Value, cost, emission) + + If cost > 0 Then + r.Cells("clmnKosten").Value = cost + r.Cells("cmlnEmission").Value = emission + GesamtBetrag += cost + End If + + End If + Next + Label1.Text = GesamtBetrag.ToString("C2") + Aufschlag = (GesamtBetrag * CDbl(MyTextBox1._value)) + If IsNumeric(MyTextBox1._value) Then Label2.Text = (GesamtBetrag * CDbl(MyTextBox1._value)).ToString("C2") + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim dt As New DataTable() + With dt.Columns + .Add("Tariff", GetType(String)) + .Add("Weight", GetType(Decimal)) + .Add("Country", GetType(String)) + .Add("Year", GetType(Integer)) + .Add("Costs", GetType(Decimal)) + .Add("Emission", GetType(Decimal)) + End With + + For Each r As DataGridViewRow In MyDatagridview1.Rows + If r.IsNewRow Then Continue For + + dt.Rows.Add( + r.Cells("clmnTarif").Value, + If(r.Cells("clmnWeight").Value, 0D), + r.Cells("clmnCountry").Value, + If(r.Cells("clmnYear").Value, Nothing), + If(r.Cells("clmnKosten").Value, Nothing), + If(r.Cells("cmlnEmission").Value, Nothing) + ) + Next + cProgramFunctions.genExcelFromDT_NEW(dt, {"E:E"},, "CBAM Kosten",,,,,,, True) + End Sub +End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb index aa97aefb..9625fc6d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb @@ -105,6 +105,9 @@ Partial Class usrcntlVorauskasse Me.cbxBeimErstellenSpeichern = New System.Windows.Forms.CheckBox() Me.txtVKVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel5 = New System.Windows.Forms.Panel() + Me.Label47 = New System.Windows.Forms.Label() + Me.txtPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnOffertladen = New System.Windows.Forms.Button() Me.lblWaehrung = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.txtSonstigeKostenText = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -155,9 +158,7 @@ Partial Class usrcntlVorauskasse Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnOffertladen = New System.Windows.Forms.Button() - Me.txtPos = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label47 = New System.Windows.Forms.Label() + Me.Button6 = New System.Windows.Forms.Button() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlBottom.SuspendLayout() Me.Panel4.SuspendLayout() @@ -1198,6 +1199,7 @@ Partial Class usrcntlVorauskasse ' 'Panel5 ' + Me.Panel5.Controls.Add(Me.Button6) Me.Panel5.Controls.Add(Me.Label47) Me.Panel5.Controls.Add(Me.txtPos) Me.Panel5.Controls.Add(Me.btnOffertladen) @@ -1244,6 +1246,49 @@ Partial Class usrcntlVorauskasse Me.Panel5.Size = New System.Drawing.Size(436, 354) Me.Panel5.TabIndex = 34 ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(269, 103) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(25, 13) + Me.Label47.TabIndex = 39 + Me.Label47.Text = "Pos" + ' + '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.Location = New System.Drawing.Point(300, 100) + Me.txtPos.MaxLength = 200 + 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(26, 20) + Me.txtPos.TabIndex = 38 + ' + 'btnOffertladen + ' + Me.btnOffertladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOffertladen.Location = New System.Drawing.Point(332, 81) + Me.btnOffertladen.Name = "btnOffertladen" + Me.btnOffertladen.Size = New System.Drawing.Size(73, 21) + Me.btnOffertladen.TabIndex = 37 + Me.btnOffertladen.Text = "Offert laden" + Me.btnOffertladen.UseVisualStyleBackColor = True + Me.btnOffertladen.Visible = False + ' 'lblWaehrung ' Me.lblWaehrung.AutoSize = True @@ -1258,7 +1303,7 @@ Partial Class usrcntlVorauskasse Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.Location = New System.Drawing.Point(271, 56) Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(100, 23) + Me.Button5.Size = New System.Drawing.Size(134, 23) Me.Button5.TabIndex = 35 Me.Button5.Text = "EUST berechnen" Me.Button5.UseVisualStyleBackColor = True @@ -2302,48 +2347,15 @@ Partial Class usrcntlVorauskasse Me.cboSprache.Size = New System.Drawing.Size(89, 21) Me.cboSprache.TabIndex = 51 ' - 'btnOffertladen + 'Button6 ' - Me.btnOffertladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOffertladen.Location = New System.Drawing.Point(332, 81) - Me.btnOffertladen.Name = "btnOffertladen" - Me.btnOffertladen.Size = New System.Drawing.Size(73, 21) - Me.btnOffertladen.TabIndex = 37 - Me.btnOffertladen.Text = "Offert laden" - Me.btnOffertladen.UseVisualStyleBackColor = True - Me.btnOffertladen.Visible = False - ' - '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.Location = New System.Drawing.Point(300, 100) - Me.txtPos.MaxLength = 200 - 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(26, 20) - Me.txtPos.TabIndex = 38 - ' - 'Label47 - ' - Me.Label47.AutoSize = True - Me.Label47.Location = New System.Drawing.Point(269, 103) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(25, 13) - Me.Label47.TabIndex = 39 - Me.Label47.Text = "Pos" + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(271, 19) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(134, 23) + Me.Button6.TabIndex = 40 + Me.Button6.Text = "CBAM berechnen" + Me.Button6.UseVisualStyleBackColor = True ' 'usrcntlVorauskasse ' @@ -2553,4 +2565,5 @@ Partial Class usrcntlVorauskasse Friend WithEvents btnOffertladen As Button Friend WithEvents Label47 As Label Public WithEvents txtPos As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button6 As Button End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index aafc8382..452181c0 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -287,16 +287,14 @@ Public Class usrcntlVorauskasse FormularManagerNEU.genPDF(Me, True) End Sub - Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtHerrFrau.TextChanged - End Sub Sub initSteuersatz() Dim bool_steuerberechnung = True If cboFirma._value <> "" Then Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFirma._value) ' MsgBox(FIRMA_TMP.Firma_LandKz) - Select Case FIRMA_TMP.Firma_LandKz - Case "A", "AT" + Select Case If(txtUid.Text > 2, txtUid.Text, If(FIRMA_TMP.Firma_LandKz = "A", "AT", FIRMA_TMP.Firma_LandKz)) + Case "AT" If txtAdresse2.Text.StartsWith("TR") Or txtAdresse2.Text.StartsWith("SRB") Or txtAdresse2.Text.StartsWith("GB") Then txtMwstProzent._value = 0 ElseIf txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("AT") Then @@ -422,6 +420,12 @@ Public Class usrcntlVorauskasse Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged cboSprache.Visible = False Label17.Visible = False + Select Case cboFirma._value + Case "1" + Button6.Visible = True + Case Else + Button6.Visible = False + End Select If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben 'Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFiliale._value) @@ -869,5 +873,20 @@ Public Class usrcntlVorauskasse initBerechnung() End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + Dim f As New frmVorauskasse_CBAM + If f.ShowDialog(Me) = DialogResult.OK Then + If f.GesamtBetrag > 0 Then + + ' txtEustSonstText.Text = "ZOLL" + txtAndereAbgabenText.Text = "Est. CBAM Cost" + txtSonstigeKostenText.Text = "Surcharge" + + txtAndereAbgabenBetrag._value = f.GesamtBetrag + txtSonstigeKosten._value = f.Aufschlag + End If + End If + End Sub End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index b611a3a3..27ebcaaa 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -757,6 +757,12 @@ UserControl + + frmVorauskasse_CBAM.vb + + + Form + frmVorauskasse_FremdwaehrungBerechnen.vb @@ -3505,6 +3511,9 @@ usrcntlTIR_alt.vb + + frmVorauskasse_CBAM.vb + frmVorauskasse_FremdwaehrungBerechnen.vb diff --git a/SDL/kunden/Newsletter/frmNewsletter.vb b/SDL/kunden/Newsletter/frmNewsletter.vb index 2e3503e2..b951c360 100644 --- a/SDL/kunden/Newsletter/frmNewsletter.vb +++ b/SDL/kunden/Newsletter/frmNewsletter.vb @@ -143,6 +143,7 @@ Public Class frmNewsletter Dim anhaenge As New List(Of String) '---Anhänge:---------------------------- For Each line In ListBox1.Text.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) + MsgBox(line) If File.Exists(line) Then anhaenge.Add(line) End If diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index 850b6fd1..23c252f4 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -68,20 +68,53 @@ Partial Class usrCntlCBAM Me.Button3 = New System.Windows.Forms.Button() Me.lblKafkaCnt = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() - Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label12 = New System.Windows.Forms.Label() - Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button4 = New System.Windows.Forms.Button() - Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() - Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() - Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() - Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() + Me.Button5 = New System.Windows.Forms.Button() + Me.cbxKosten = New System.Windows.Forms.CheckBox() + Me.Button6 = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_SendToGreenpulse = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_GP = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_SpedB = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_GenXML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_CopyXML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_XML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Copy = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Detail = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG = New System.Windows.Forms.Button() + Me.lblErg_VERAG = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.lblErg_VERAG2 = New System.Windows.Forms.TextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Button7 = New System.Windows.Forms.Button() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox() + Me.txtCalc_Defaut_Country = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_Year = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_Weight = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_KN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.cbxUNISPED = New System.Windows.Forms.CheckBox() Me.cbxIMEX = New System.Windows.Forms.CheckBox() @@ -91,9 +124,9 @@ Partial Class usrCntlCBAM Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button5 = New System.Windows.Forms.Button() Me.cntxtAddSdl.SuspendLayout() Me.Panel1.SuspendLayout() + Me.Panel2.SuspendLayout() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' @@ -134,7 +167,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DAKOSY ' Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74) + Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(279, 74) Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY" Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_DAKOSY.TabIndex = 3 @@ -144,7 +177,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DHF_VERAG ' Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74) + Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(453, 74) Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG" Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4 @@ -154,9 +187,9 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_TELOTEC ' Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74) + Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(763, 74) Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC" - Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(130, 42) Me.btnCBAMPruef_TELOTEC.TabIndex = 5 Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True @@ -164,9 +197,9 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DHF_UNISPED ' Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74) + Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(627, 74) Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED" - Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(130, 42) Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6 Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True @@ -183,7 +216,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_ALLE ' Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74) + Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(899, 74) Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE" Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_ALLE.TabIndex = 8 @@ -195,7 +228,7 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125) + Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(279, 125) Me.txtCBAMPruef_DAKOSY.Multiline = True Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY" Me.txtCBAMPruef_DAKOSY.ReadOnly = True @@ -209,7 +242,7 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125) + Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(453, 125) Me.txtCBAMPruef_DHF_VERAG.Multiline = True Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG" Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True @@ -223,11 +256,11 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125) + Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(627, 125) Me.txtCBAMPruef_DHF_UNISPED.Multiline = True Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED" Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True - Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(130, 22) Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12 Me.txtCBAMPruef_DHF_UNISPED.Text = "-" Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center @@ -237,11 +270,11 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125) + Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(763, 125) Me.txtCBAMPruef_TELOTEC.Multiline = True Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC" Me.txtCBAMPruef_TELOTEC.ReadOnly = True - Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(130, 22) Me.txtCBAMPruef_TELOTEC.TabIndex = 13 Me.txtCBAMPruef_TELOTEC.Text = "-" Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center @@ -249,7 +282,7 @@ Partial Class usrCntlCBAM 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(694, 52) + Me.Label4.Location = New System.Drawing.Point(713, 51) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(44, 13) Me.Label4.TabIndex = 17 @@ -267,9 +300,9 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DHF_UNISPED ' Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 167) + Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(627, 190) Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED" - Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24 Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True @@ -277,9 +310,9 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_TELOTEC ' Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 167) + Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(763, 190) Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC" - Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC.TabIndex = 23 Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True @@ -287,7 +320,7 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DHF_VERAG ' Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 167) + Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(453, 190) Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG" Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42) Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22 @@ -297,7 +330,7 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DAKOSY ' Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 167) + Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(279, 190) Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY" Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42) Me.btnCBAM_DS_DAKOSY.TabIndex = 21 @@ -307,7 +340,7 @@ Partial Class usrCntlCBAM 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(5, 182) + Me.Label3.Location = New System.Drawing.Point(5, 205) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(64, 13) Me.Label3.TabIndex = 25 @@ -319,7 +352,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Detail.Location = New System.Drawing.Point(144, 215) + Me.btnCBAM_DS_DAKOSY_Detail.Location = New System.Drawing.Point(317, 238) Me.btnCBAM_DS_DAKOSY_Detail.Name = "btnCBAM_DS_DAKOSY_Detail" Me.btnCBAM_DS_DAKOSY_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Detail.TabIndex = 26 @@ -333,7 +366,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 301) + Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(317, 324) Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe" Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27 @@ -347,7 +380,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 301) + Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(491, 324) Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe" Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29 @@ -361,7 +394,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Detail.Location = New System.Drawing.Point(318, 215) + Me.btnCBAM_DS_DHF_VERAG_Detail.Location = New System.Drawing.Point(491, 238) Me.btnCBAM_DS_DHF_VERAG_Detail.Name = "btnCBAM_DS_DHF_VERAG_Detail" Me.btnCBAM_DS_DHF_VERAG_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Detail.TabIndex = 28 @@ -375,7 +408,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 301) + Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(627, 324) Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe" Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31 @@ -389,7 +422,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Detail.Location = New System.Drawing.Point(492, 215) + Me.btnCBAM_DS_DHF_UNISPED_Detail.Location = New System.Drawing.Point(627, 238) Me.btnCBAM_DS_DHF_UNISPED_Detail.Name = "btnCBAM_DS_DHF_UNISPED_Detail" Me.btnCBAM_DS_DHF_UNISPED_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Detail.TabIndex = 30 @@ -403,7 +436,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 301) + Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(763, 324) Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe" Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33 @@ -417,7 +450,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 215) + Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(763, 238) Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail" Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32 @@ -439,7 +472,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 394) + Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(317, 417) Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy" Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35 @@ -451,7 +484,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 347) + Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(491, 370) Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy" Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36 @@ -463,7 +496,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 347) + Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(627, 370) Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy" Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37 @@ -475,7 +508,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 347) + Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(763, 370) Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy" Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38 @@ -488,7 +521,7 @@ Partial Class usrCntlCBAM 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, 485) + Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(317, 508) 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 @@ -500,7 +533,7 @@ Partial Class usrCntlCBAM 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, 532) + Me.Button2.Location = New System.Drawing.Point(317, 555) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(130, 42) Me.Button2.TabIndex = 42 @@ -510,7 +543,7 @@ Partial Class usrCntlCBAM 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(106, 438) + Me.Button1.Location = New System.Drawing.Point(279, 461) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(168, 42) Me.Button1.TabIndex = 44 @@ -523,7 +556,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Spedb.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Spedb.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Spedb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Spedb.Location = New System.Drawing.Point(144, 347) + Me.btnCBAM_DS_DAKOSY_Spedb.Location = New System.Drawing.Point(317, 370) Me.btnCBAM_DS_DAKOSY_Spedb.Name = "btnCBAM_DS_DAKOSY_Spedb" Me.btnCBAM_DS_DAKOSY_Spedb.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Spedb.TabIndex = 45 @@ -537,7 +570,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_GP.Location = New System.Drawing.Point(144, 258) + Me.btnCBAM_DS_DAKOSY_GP.Location = New System.Drawing.Point(317, 281) Me.btnCBAM_DS_DAKOSY_GP.Name = "btnCBAM_DS_DAKOSY_GP" Me.btnCBAM_DS_DAKOSY_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_GP.TabIndex = 46 @@ -551,7 +584,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_GP.Location = New System.Drawing.Point(318, 258) + Me.btnCBAM_DS_DHF_VERAG_GP.Location = New System.Drawing.Point(491, 281) Me.btnCBAM_DS_DHF_VERAG_GP.Name = "btnCBAM_DS_DHF_VERAG_GP" Me.btnCBAM_DS_DHF_VERAG_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_GP.TabIndex = 47 @@ -565,7 +598,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_GP.Location = New System.Drawing.Point(492, 258) + Me.btnCBAM_DS_DHF_UNISPED_GP.Location = New System.Drawing.Point(627, 281) Me.btnCBAM_DS_DHF_UNISPED_GP.Name = "btnCBAM_DS_DHF_UNISPED_GP" Me.btnCBAM_DS_DHF_UNISPED_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_GP.TabIndex = 48 @@ -579,7 +612,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_GP.Location = New System.Drawing.Point(666, 258) + Me.btnCBAM_DS_TELOTEC_GP.Location = New System.Drawing.Point(763, 281) Me.btnCBAM_DS_TELOTEC_GP.Name = "btnCBAM_DS_TELOTEC_GP" Me.btnCBAM_DS_TELOTEC_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_GP.TabIndex = 49 @@ -592,7 +625,7 @@ Partial Class usrCntlCBAM Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Image = Global.SDL.My.Resources.Resources.ico_greenpulse Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(106, 580) + Me.Button3.Location = New System.Drawing.Point(279, 651) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(168, 42) Me.Button3.TabIndex = 50 @@ -603,7 +636,7 @@ Partial Class usrCntlCBAM 'lblKafkaCnt ' Me.lblKafkaCnt.AutoSize = True - Me.lblKafkaCnt.Location = New System.Drawing.Point(280, 609) + Me.lblKafkaCnt.Location = New System.Drawing.Point(453, 632) Me.lblKafkaCnt.Name = "lblKafkaCnt" Me.lblKafkaCnt.Size = New System.Drawing.Size(10, 13) Me.lblKafkaCnt.TabIndex = 51 @@ -611,7 +644,8 @@ Partial Class usrCntlCBAM ' 'Panel1 ' - Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel1.BackColor = System.Drawing.Color.FloralWhite Me.Panel1.Controls.Add(Me.txtBenchmark) Me.Panel1.Controls.Add(Me.Label12) @@ -627,11 +661,545 @@ Partial Class usrCntlCBAM Me.Panel1.Controls.Add(Me.Label8) Me.Panel1.Controls.Add(Me.txtCalcKN8) Me.Panel1.Controls.Add(Me.Label7) - Me.Panel1.Location = New System.Drawing.Point(818, 301) + Me.Panel1.Location = New System.Drawing.Point(948, 340) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(223, 331) + Me.Panel1.Size = New System.Drawing.Size(223, 372) Me.Panel1.TabIndex = 52 ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 85) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(67, 13) + Me.Label12.TabIndex = 67 + Me.Label12.Text = "(Benchmark)" + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(3, 126) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(217, 28) + Me.Button4.TabIndex = 53 + Me.Button4.Text = "Berechnen" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(3, 104) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(68, 13) + Me.Label11.TabIndex = 61 + Me.Label11.Text = "(Jahr)/(Land)" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(3, 65) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(67, 13) + Me.Label10.TabIndex = 59 + Me.Label10.Text = "(Emis.CO2/t)" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(3, 45) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(64, 13) + Me.Label9.TabIndex = 57 + Me.Label9.Text = "Gewicht(to):" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(3, 25) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(59, 13) + Me.Label8.TabIndex = 55 + Me.Label8.Text = "Tarif (8 St.)" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(3, 3) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(84, 13) + Me.Label7.TabIndex = 53 + Me.Label7.Text = "CBAM-Rechner:" + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(825, 620) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(68, 37) + Me.Button5.TabIndex = 53 + Me.Button5.Text = "test" + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'cbxKosten + ' + Me.cbxKosten.AutoSize = True + Me.cbxKosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxKosten.Location = New System.Drawing.Point(3, 218) + Me.cbxKosten.Name = "cbxKosten" + Me.cbxKosten.Size = New System.Drawing.Size(103, 30) + Me.cbxKosten.TabIndex = 3 + Me.cbxKosten.Text = "Kost. berechnen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Summe)" + Me.cbxKosten.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(106, 74) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(168, 42) + Me.Button6.TabIndex = 54 + Me.Button6.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(VERAG DB)" + Me.Button6.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_SendToGreenpulse + ' + Me.btnCBAM_DS_VERAG_SendToGreenpulse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Image = Global.SDL.My.Resources.Resources.ico_greenpulse + Me.btnCBAM_DS_VERAG_SendToGreenpulse.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Location = New System.Drawing.Point(106, 651) + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Name = "btnCBAM_DS_VERAG_SendToGreenpulse" + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG_SendToGreenpulse.TabIndex = 65 + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Text = "Daten an Greenpulse" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "übertragen" + Me.btnCBAM_DS_VERAG_SendToGreenpulse.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_SendToGreenpulse.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_GP + ' + Me.btnCBAM_DS_VERAG_GP.Enabled = False + Me.btnCBAM_DS_VERAG_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_GP.Location = New System.Drawing.Point(144, 281) + Me.btnCBAM_DS_VERAG_GP.Name = "btnCBAM_DS_VERAG_GP" + Me.btnCBAM_DS_VERAG_GP.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_GP.TabIndex = 64 + Me.btnCBAM_DS_VERAG_GP.Text = "GP Detailbericht" + Me.btnCBAM_DS_VERAG_GP.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_GP.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_SpedB + ' + Me.btnCBAM_DS_VERAG_SpedB.Enabled = False + Me.btnCBAM_DS_VERAG_SpedB.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_SpedB.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_SpedB.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_SpedB.Location = New System.Drawing.Point(144, 370) + Me.btnCBAM_DS_VERAG_SpedB.Name = "btnCBAM_DS_VERAG_SpedB" + Me.btnCBAM_DS_VERAG_SpedB.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_SpedB.TabIndex = 63 + Me.btnCBAM_DS_VERAG_SpedB.Text = "Mit Sped-Buch vergleichen" + Me.btnCBAM_DS_VERAG_SpedB.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_SpedB.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_GenXML + ' + Me.btnCBAM_DS_VERAG_GenXML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_GenXML.Location = New System.Drawing.Point(106, 461) + Me.btnCBAM_DS_VERAG_GenXML.Name = "btnCBAM_DS_VERAG_GenXML" + Me.btnCBAM_DS_VERAG_GenXML.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG_GenXML.TabIndex = 62 + Me.btnCBAM_DS_VERAG_GenXML.Text = "XML Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)" + Me.btnCBAM_DS_VERAG_GenXML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_CopyXML + ' + Me.btnCBAM_DS_VERAG_CopyXML.Enabled = False + Me.btnCBAM_DS_VERAG_CopyXML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_CopyXML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_CopyXML.Location = New System.Drawing.Point(144, 555) + Me.btnCBAM_DS_VERAG_CopyXML.Name = "btnCBAM_DS_VERAG_CopyXML" + Me.btnCBAM_DS_VERAG_CopyXML.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_CopyXML.TabIndex = 61 + Me.btnCBAM_DS_VERAG_CopyXML.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_VERAG_CopyXML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_XML + ' + Me.btnCBAM_DS_VERAG_XML.Enabled = False + Me.btnCBAM_DS_VERAG_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_XML.Image = Global.SDL.My.Resources.Resources.xml + Me.btnCBAM_DS_VERAG_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_XML.Location = New System.Drawing.Point(144, 508) + Me.btnCBAM_DS_VERAG_XML.Name = "btnCBAM_DS_VERAG_XML" + Me.btnCBAM_DS_VERAG_XML.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_XML.TabIndex = 60 + Me.btnCBAM_DS_VERAG_XML.Text = "XML" + Me.btnCBAM_DS_VERAG_XML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Copy + ' + Me.btnCBAM_DS_VERAG_Copy.Enabled = False + Me.btnCBAM_DS_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Copy.Location = New System.Drawing.Point(144, 417) + Me.btnCBAM_DS_VERAG_Copy.Name = "btnCBAM_DS_VERAG_Copy" + Me.btnCBAM_DS_VERAG_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Copy.TabIndex = 59 + Me.btnCBAM_DS_VERAG_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_VERAG_Copy.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Summe + ' + Me.btnCBAM_DS_VERAG_Summe.Enabled = False + Me.btnCBAM_DS_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Summe.Location = New System.Drawing.Point(144, 324) + Me.btnCBAM_DS_VERAG_Summe.Name = "btnCBAM_DS_VERAG_Summe" + Me.btnCBAM_DS_VERAG_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Summe.TabIndex = 58 + Me.btnCBAM_DS_VERAG_Summe.Text = "Summenbericht" + Me.btnCBAM_DS_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Detail + ' + Me.btnCBAM_DS_VERAG_Detail.Enabled = False + Me.btnCBAM_DS_VERAG_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Detail.Location = New System.Drawing.Point(144, 238) + Me.btnCBAM_DS_VERAG_Detail.Name = "btnCBAM_DS_VERAG_Detail" + Me.btnCBAM_DS_VERAG_Detail.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Detail.TabIndex = 57 + Me.btnCBAM_DS_VERAG_Detail.Text = "Detailbericht" + Me.btnCBAM_DS_VERAG_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_Detail.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG + ' + Me.btnCBAM_DS_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG.Location = New System.Drawing.Point(106, 190) + Me.btnCBAM_DS_VERAG.Name = "btnCBAM_DS_VERAG" + Me.btnCBAM_DS_VERAG.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG.TabIndex = 56 + Me.btnCBAM_DS_VERAG.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(VERAG)" + Me.btnCBAM_DS_VERAG.UseVisualStyleBackColor = True + ' + 'lblErg_VERAG + ' + Me.lblErg_VERAG.BackColor = System.Drawing.Color.White + Me.lblErg_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblErg_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErg_VERAG.Location = New System.Drawing.Point(106, 125) + Me.lblErg_VERAG.Multiline = True + Me.lblErg_VERAG.Name = "lblErg_VERAG" + Me.lblErg_VERAG.ReadOnly = True + Me.lblErg_VERAG.Size = New System.Drawing.Size(168, 22) + Me.lblErg_VERAG.TabIndex = 55 + Me.lblErg_VERAG.Text = "-" + Me.lblErg_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(5, 173) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(59, 13) + Me.Label13.TabIndex = 67 + Me.Label13.Text = "Importland:" + ' + 'lblErg_VERAG2 + ' + Me.lblErg_VERAG2.BackColor = System.Drawing.Color.White + Me.lblErg_VERAG2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblErg_VERAG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErg_VERAG2.Location = New System.Drawing.Point(106, 146) + Me.lblErg_VERAG2.Multiline = True + Me.lblErg_VERAG2.Name = "lblErg_VERAG2" + Me.lblErg_VERAG2.ReadOnly = True + Me.lblErg_VERAG2.Size = New System.Drawing.Size(168, 22) + Me.lblErg_VERAG2.TabIndex = 68 + Me.lblErg_VERAG2.Text = "-" + Me.lblErg_VERAG2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Panel2 + ' + Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel2.BackColor = System.Drawing.Color.FloralWhite + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Country) + Me.Panel2.Controls.Add(Me.MyTextBox3) + Me.Panel2.Controls.Add(Me.Button7) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Year) + Me.Panel2.Controls.Add(Me.Label15) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_CertPrice) + Me.Panel2.Controls.Add(Me.Label16) + Me.Panel2.Controls.Add(Me.Label17) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Weight) + Me.Panel2.Controls.Add(Me.Label18) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_KN8) + Me.Panel2.Controls.Add(Me.Label19) + Me.Panel2.Location = New System.Drawing.Point(948, 190) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(223, 150) + Me.Panel2.TabIndex = 68 + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(3, 109) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(217, 28) + Me.Button7.TabIndex = 53 + Me.Button7.Text = "Berechnen" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(3, 86) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(68, 13) + Me.Label15.TabIndex = 61 + Me.Label15.Text = "(Jahr)/(Land)" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(3, 65) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(74, 13) + Me.Label16.TabIndex = 59 + Me.Label16.Text = "ZertifikatPreis:" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(3, 45) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(64, 13) + Me.Label17.TabIndex = 57 + Me.Label17.Text = "Gewicht(to):" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(3, 25) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(59, 13) + Me.Label18.TabIndex = 55 + Me.Label18.Text = "Tarif (8 St.)" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(3, 3) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(173, 13) + Me.Label19.TabIndex = 53 + Me.Label19.Text = "CBAM-Rechner (ohne Emissionen):" + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.Color.White + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.TextBox1.Location = New System.Drawing.Point(52, 232) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ReadOnly = True + Me.TextBox1.Size = New System.Drawing.Size(86, 20) + Me.TextBox1.TabIndex = 69 + Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Image = Global.SDL.My.Resources.Resources.moneybag1 + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(106, 603) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(168, 42) + Me.Button8.TabIndex = 70 + Me.Button8.Text = "Kosten ermitteln" + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' + 'cbxVERAG_GPXLS + ' + Me.cbxVERAG_GPXLS.AutoSize = True + Me.cbxVERAG_GPXLS.Location = New System.Drawing.Point(127, 306) + Me.cbxVERAG_GPXLS.Name = "cbxVERAG_GPXLS" + Me.cbxVERAG_GPXLS.Size = New System.Drawing.Size(15, 14) + Me.cbxVERAG_GPXLS.TabIndex = 3 + Me.cbxVERAG_GPXLS.UseVisualStyleBackColor = True + ' + 'txtCalc_Defaut_Country + ' + Me.txtCalc_Defaut_Country._DateTimeOnly = False + Me.txtCalc_Defaut_Country._numbersOnly = False + Me.txtCalc_Defaut_Country._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Country._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Country._Prozent = False + Me.txtCalc_Defaut_Country._ShortDateNew = False + Me.txtCalc_Defaut_Country._ShortDateOnly = False + Me.txtCalc_Defaut_Country._TimeOnly = False + Me.txtCalc_Defaut_Country._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Country._value = "" + Me.txtCalc_Defaut_Country._Waehrung = False + Me.txtCalc_Defaut_Country._WaehrungZeichen = True + Me.txtCalc_Defaut_Country.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Country.Location = New System.Drawing.Point(149, 83) + Me.txtCalc_Defaut_Country.MaxLength = 2 + Me.txtCalc_Defaut_Country.MaxLineLength = -1 + Me.txtCalc_Defaut_Country.MaxLines_Warning = "" + Me.txtCalc_Defaut_Country.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Country.Name = "txtCalc_Defaut_Country" + Me.txtCalc_Defaut_Country.Size = New System.Drawing.Size(70, 20) + Me.txtCalc_Defaut_Country.TabIndex = 65 + ' + '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 = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox3.BackColor = System.Drawing.Color.FloralWhite + Me.MyTextBox3.ForeColor = System.Drawing.Color.Black + Me.MyTextBox3.Location = New System.Drawing.Point(3, 154) + Me.MyTextBox3.MaxLength = 3000 + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Multiline = True + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.ReadOnly = True + Me.MyTextBox3.Size = New System.Drawing.Size(217, 0) + Me.MyTextBox3.TabIndex = 64 + ' + 'txtCalc_Defaut_Year + ' + Me.txtCalc_Defaut_Year._DateTimeOnly = False + Me.txtCalc_Defaut_Year._numbersOnly = False + Me.txtCalc_Defaut_Year._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Year._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Year._Prozent = False + Me.txtCalc_Defaut_Year._ShortDateNew = False + Me.txtCalc_Defaut_Year._ShortDateOnly = False + Me.txtCalc_Defaut_Year._TimeOnly = False + Me.txtCalc_Defaut_Year._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Year._value = "" + Me.txtCalc_Defaut_Year._Waehrung = False + Me.txtCalc_Defaut_Year._WaehrungZeichen = True + Me.txtCalc_Defaut_Year.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Year.Location = New System.Drawing.Point(73, 83) + Me.txtCalc_Defaut_Year.MaxLength = 4 + Me.txtCalc_Defaut_Year.MaxLineLength = -1 + Me.txtCalc_Defaut_Year.MaxLines_Warning = "" + Me.txtCalc_Defaut_Year.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Year.Name = "txtCalc_Defaut_Year" + Me.txtCalc_Defaut_Year.Size = New System.Drawing.Size(70, 20) + Me.txtCalc_Defaut_Year.TabIndex = 60 + ' + 'txtCalc_Defaut_CertPrice + ' + Me.txtCalc_Defaut_CertPrice._DateTimeOnly = False + Me.txtCalc_Defaut_CertPrice._numbersOnly = True + Me.txtCalc_Defaut_CertPrice._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_CertPrice._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_CertPrice._Prozent = False + Me.txtCalc_Defaut_CertPrice._ShortDateNew = False + Me.txtCalc_Defaut_CertPrice._ShortDateOnly = False + Me.txtCalc_Defaut_CertPrice._TimeOnly = False + Me.txtCalc_Defaut_CertPrice._TimeOnly_Seconds = False + Me.txtCalc_Defaut_CertPrice._value = "" + Me.txtCalc_Defaut_CertPrice._Waehrung = False + Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True + Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red + Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(73, 62) + Me.txtCalc_Defaut_CertPrice.MaxLength = 10 + Me.txtCalc_Defaut_CertPrice.MaxLineLength = -1 + Me.txtCalc_Defaut_CertPrice.MaxLines_Warning = "" + Me.txtCalc_Defaut_CertPrice.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_CertPrice.Name = "txtCalc_Defaut_CertPrice" + Me.txtCalc_Defaut_CertPrice.Size = New System.Drawing.Size(147, 20) + Me.txtCalc_Defaut_CertPrice.TabIndex = 58 + ' + 'txtCalc_Defaut_Weight + ' + Me.txtCalc_Defaut_Weight._DateTimeOnly = False + Me.txtCalc_Defaut_Weight._numbersOnly = True + Me.txtCalc_Defaut_Weight._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Weight._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Weight._Prozent = False + Me.txtCalc_Defaut_Weight._ShortDateNew = False + Me.txtCalc_Defaut_Weight._ShortDateOnly = False + Me.txtCalc_Defaut_Weight._TimeOnly = False + Me.txtCalc_Defaut_Weight._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Weight._value = "" + Me.txtCalc_Defaut_Weight._Waehrung = False + Me.txtCalc_Defaut_Weight._WaehrungZeichen = True + Me.txtCalc_Defaut_Weight.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Weight.Location = New System.Drawing.Point(73, 42) + Me.txtCalc_Defaut_Weight.MaxLength = 10 + Me.txtCalc_Defaut_Weight.MaxLineLength = -1 + Me.txtCalc_Defaut_Weight.MaxLines_Warning = "" + Me.txtCalc_Defaut_Weight.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Weight.Name = "txtCalc_Defaut_Weight" + Me.txtCalc_Defaut_Weight.Size = New System.Drawing.Size(147, 20) + Me.txtCalc_Defaut_Weight.TabIndex = 56 + ' + 'txtCalc_Defaut_KN8 + ' + Me.txtCalc_Defaut_KN8._DateTimeOnly = False + Me.txtCalc_Defaut_KN8._numbersOnly = False + Me.txtCalc_Defaut_KN8._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_KN8._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_KN8._Prozent = False + Me.txtCalc_Defaut_KN8._ShortDateNew = False + Me.txtCalc_Defaut_KN8._ShortDateOnly = False + Me.txtCalc_Defaut_KN8._TimeOnly = False + Me.txtCalc_Defaut_KN8._TimeOnly_Seconds = False + Me.txtCalc_Defaut_KN8._value = "" + Me.txtCalc_Defaut_KN8._Waehrung = False + Me.txtCalc_Defaut_KN8._WaehrungZeichen = True + Me.txtCalc_Defaut_KN8.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_KN8.Location = New System.Drawing.Point(73, 22) + Me.txtCalc_Defaut_KN8.MaxLength = 8 + Me.txtCalc_Defaut_KN8.MaxLineLength = -1 + Me.txtCalc_Defaut_KN8.MaxLines_Warning = "" + Me.txtCalc_Defaut_KN8.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_KN8.Name = "txtCalc_Defaut_KN8" + Me.txtCalc_Defaut_KN8.Size = New System.Drawing.Size(147, 20) + Me.txtCalc_Defaut_KN8.TabIndex = 54 + ' + 'cbo_VERAG_ImpLand + ' + Me.cbo_VERAG_ImpLand._allowedValuesFreiText = Nothing + Me.cbo_VERAG_ImpLand._allowFreiText = False + Me.cbo_VERAG_ImpLand._value = "" + Me.cbo_VERAG_ImpLand.FormattingEnabled = True + Me.cbo_VERAG_ImpLand.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cbo_VERAG_ImpLand.Location = New System.Drawing.Point(106, 169) + Me.cbo_VERAG_ImpLand.Name = "cbo_VERAG_ImpLand" + Me.cbo_VERAG_ImpLand.Size = New System.Drawing.Size(168, 21) + Me.cbo_VERAG_ImpLand.TabIndex = 66 + ' 'txtBenchmark ' Me.txtBenchmark._DateTimeOnly = False @@ -656,15 +1224,6 @@ Partial Class usrCntlCBAM Me.txtBenchmark.Size = New System.Drawing.Size(147, 20) Me.txtBenchmark.TabIndex = 66 ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(3, 85) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(67, 13) - Me.Label12.TabIndex = 67 - Me.Label12.Text = "(Benchmark)" - ' 'txtCalcLand ' Me.txtCalcLand._DateTimeOnly = False @@ -679,7 +1238,6 @@ Partial Class usrCntlCBAM Me.txtCalcLand._value = "" Me.txtCalcLand._Waehrung = False Me.txtCalcLand._WaehrungZeichen = True - Me.txtCalcLand.Enabled = False Me.txtCalcLand.ForeColor = System.Drawing.Color.Black Me.txtCalcLand.Location = New System.Drawing.Point(149, 101) Me.txtCalcLand.MaxLength = 2 @@ -717,19 +1275,9 @@ Partial Class usrCntlCBAM Me.txtCalcErg.Multiline = True Me.txtCalcErg.Name = "txtCalcErg" Me.txtCalcErg.ReadOnly = True - Me.txtCalcErg.Size = New System.Drawing.Size(217, 177) + Me.txtCalcErg.Size = New System.Drawing.Size(217, 218) Me.txtCalcErg.TabIndex = 64 ' - 'Button4 - ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(3, 126) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(217, 28) - Me.Button4.TabIndex = 53 - Me.Button4.Text = "Berechnen" - Me.Button4.UseVisualStyleBackColor = True - ' 'txtCalcJahr ' Me.txtCalcJahr._DateTimeOnly = False @@ -754,15 +1302,6 @@ Partial Class usrCntlCBAM Me.txtCalcJahr.Size = New System.Drawing.Size(70, 20) Me.txtCalcJahr.TabIndex = 60 ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(3, 104) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(68, 13) - Me.Label11.TabIndex = 61 - Me.Label11.Text = "(Jahr)/(Land)" - ' 'txtCalcEmission ' Me.txtCalcEmission._DateTimeOnly = False @@ -787,24 +1326,6 @@ Partial Class usrCntlCBAM Me.txtCalcEmission.Size = New System.Drawing.Size(147, 20) Me.txtCalcEmission.TabIndex = 58 ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(3, 65) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(67, 13) - Me.Label10.TabIndex = 59 - Me.Label10.Text = "(Emis.CO2/t)" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(3, 45) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(64, 13) - Me.Label9.TabIndex = 57 - Me.Label9.Text = "Gewicht(to):" - ' 'txtCalcGewicht ' Me.txtCalcGewicht._DateTimeOnly = False @@ -829,15 +1350,6 @@ Partial Class usrCntlCBAM Me.txtCalcGewicht.Size = New System.Drawing.Size(147, 20) Me.txtCalcGewicht.TabIndex = 56 ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(3, 25) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(59, 13) - Me.Label8.TabIndex = 55 - Me.Label8.Text = "Tarif (8 St.)" - ' 'txtCalcKN8 ' Me.txtCalcKN8._DateTimeOnly = False @@ -862,16 +1374,6 @@ Partial Class usrCntlCBAM Me.txtCalcKN8.Size = New System.Drawing.Size(147, 20) Me.txtCalcKN8.TabIndex = 54 ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(3, 3) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(84, 13) - Me.Label7.TabIndex = 53 - Me.Label7.Text = "CBAM-Rechner:" - ' 'MyPanel1 ' Me.MyPanel1.Controls.Add(Me.cbxUNISPED) @@ -941,7 +1443,7 @@ Partial Class usrCntlCBAM Me.cboQuartal._allowFreiText = False Me.cboQuartal._value = "" Me.cboQuartal.FormattingEnabled = True - Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4", "JAHR"}) Me.cboQuartal.Location = New System.Drawing.Point(511, 48) Me.cboQuartal.Name = "cboQuartal" Me.cboQuartal.Size = New System.Drawing.Size(45, 21) @@ -962,7 +1464,7 @@ Partial Class usrCntlCBAM 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.Location = New System.Drawing.Point(763, 48) Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning_Label = Nothing @@ -985,7 +1487,7 @@ Partial Class usrCntlCBAM 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.Location = New System.Drawing.Point(879, 48) Me.txtBis.MaxLineLength = -1 Me.txtBis.MaxLines_Warning = "" Me.txtBis.MaxLines_Warning_Label = Nothing @@ -1016,21 +1518,31 @@ Partial Class usrCntlCBAM Me.txtEori.Size = New System.Drawing.Size(341, 20) Me.txtEori.TabIndex = 1 ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(32, 90) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(68, 37) - Me.Button5.TabIndex = 53 - Me.Button5.Text = "test" - Me.Button5.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.cbxVERAG_GPXLS) + Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.cbxKosten) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.lblErg_VERAG2) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.cbo_VERAG_ImpLand) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_SendToGreenpulse) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_GP) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_SpedB) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_GenXML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_CopyXML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_XML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Copy) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Summe) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Detail) + Me.Controls.Add(Me.btnCBAM_DS_VERAG) + Me.Controls.Add(Me.lblErg_VERAG) + Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.lblKafkaCnt) @@ -1083,10 +1595,12 @@ Partial Class usrCntlCBAM Me.Controls.Add(Me.lblOffert) Me.Margin = New System.Windows.Forms.Padding(2) Me.Name = "usrCntlCBAM" - Me.Size = New System.Drawing.Size(1041, 632) + Me.Size = New System.Drawing.Size(1171, 712) Me.cntxtAddSdl.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) @@ -1162,4 +1676,36 @@ Partial Class usrCntlCBAM Friend WithEvents txtBenchmark As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label12 As Label Friend WithEvents Button5 As Button + Friend WithEvents cbxKosten As CheckBox + Friend WithEvents Button6 As Button + Friend WithEvents btnCBAM_DS_VERAG_SendToGreenpulse As Button + Friend WithEvents btnCBAM_DS_VERAG_GP As Button + Friend WithEvents btnCBAM_DS_VERAG_SpedB As Button + Friend WithEvents btnCBAM_DS_VERAG_GenXML As Button + Friend WithEvents btnCBAM_DS_VERAG_CopyXML As Button + Friend WithEvents btnCBAM_DS_VERAG_XML As Button + Friend WithEvents btnCBAM_DS_VERAG_Copy As Button + Friend WithEvents btnCBAM_DS_VERAG_Summe As Button + Friend WithEvents btnCBAM_DS_VERAG_Detail As Button + Friend WithEvents btnCBAM_DS_VERAG As Button + Friend WithEvents lblErg_VERAG As TextBox + Friend WithEvents cbo_VERAG_ImpLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label13 As Label + Friend WithEvents lblErg_VERAG2 As TextBox + Friend WithEvents Panel2 As Panel + Friend WithEvents txtCalc_Defaut_Country As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button7 As Button + Friend WithEvents txtCalc_Defaut_Year As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label15 As Label + Friend WithEvents txtCalc_Defaut_CertPrice As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label16 As Label + Friend WithEvents Label17 As Label + Friend WithEvents txtCalc_Defaut_Weight As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label18 As Label + Friend WithEvents txtCalc_Defaut_KN8 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label19 As Label + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Button8 As Button + Friend WithEvents cbxVERAG_GPXLS As CheckBox End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 00923204..a70bdc70 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -39,8 +39,8 @@ Public Class usrCntlCBAM "WHERE z.za_System = @sys " & " AND z.za_REGIME = 'IMPORT' " & " AND z.za_IsFinalDeclaration = 1 " & - " AND z.za_DeclarationDate >= @dateFrom " & - " AND z.za_DeclarationDate <= @dateTo " & + " AND z.if(ra_releaseDate,za_DeclarationDate) >= @dateFrom " & + " AND z.if(ra_releaseDate,za_DeclarationDate) <= @dateTo " & " AND p.zaParty_EORI = @eori " & " AND " & cbamWhere @@ -88,23 +88,7 @@ Public Class usrCntlCBAM SELECT COUNT(distinct(Registriernummer_MRN)) FROM [tbl_DY_Zollmeldungen_Import] where Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "' and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer") & " - /* ( - left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) - OR left(Warentarifnummer,4) between 7301 and 7311 - OR left(Warentarifnummer,4) between 7205 and 7229 - OR left(Warentarifnummer,4) between 7603 and 7614 - OR Warentarifnummer like '25070080%' - OR Warentarifnummer like '283421%' - OR Warentarifnummer like '260112%' - OR Warentarifnummer like '720211%' - OR Warentarifnummer like '720219%' - OR Warentarifnummer like '720241%' - OR Warentarifnummer like '720249%' - OR Warentarifnummer like '720260%' - OR Warentarifnummer like '280410%' - ) - and Warentarifnummer not like '310560%'*/ - + " If SQLSTR_WHERE_FIRMEN <> "" Then @@ -416,7 +400,10 @@ Public Class usrCntlCBAM Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load txtJahr.Text = Now.Year txtCalcJahr.Text = Now.Year - txtCalcLand.Enabled = True + txtCalc_Defaut_Year.Text = Now.Year + txtCalc_Defaut_CertPrice._value = 95 + + If Now.Month < 3 Then txtJahr.Text = Now.Year - 1 cboQuartal.Text = "Q4" @@ -443,6 +430,7 @@ Public Class usrCntlCBAM Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) + Case "JAHR" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate("31.12." & txtJahr.Text) End Select @@ -683,6 +671,50 @@ Public Class usrCntlCBAM Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600) + + If cbxKosten.Checked Then + ' ========================================================= + ' Spalten ergänzen (falls noch nicht vorhanden) + ' ========================================================= + If Not dt.Columns.Contains("Def_benchmark") Then + dt.Columns.Add("Def_benchmark", GetType(Decimal)) + End If + + If Not dt.Columns.Contains("Def_Emission") Then + dt.Columns.Add("Def_Emission", GetType(Decimal)) + End If + + If Not dt.Columns.Contains("EstimatedCost") Then + dt.Columns.Add("EstimatedCost", GetType(Decimal)) + End If + + + ' ========================================================= + ' Berechnung pro Zeile + ' ========================================================= + For Each r As DataRow In dt.Rows + + Dim benchmark As Object = Nothing + Dim emission As Object = Nothing + Dim weight = If(r("Rohmasse") Is DBNull.Value, r("Eigenmasse"), Convert.ToDecimal(r("Rohmasse"))) + Dim year = If(txtBis._value <> "", CDate(txtBis._value).Year, Now.Year) + + Dim cost As String = cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM( + cn_code:=Convert.ToString(r("Tarifnummer")), + weight, + country_code:=Convert.ToString(r("VersendungsLand")), + see_total:=emission, + year, + benchmark_value:=benchmark + ) + + r("Def_benchmark") = If(benchmark Is Nothing, DBNull.Value, benchmark) + r("Def_Emission") = If(emission Is Nothing, DBNull.Value, emission) + r("EstimatedCost") = If(String.IsNullOrWhiteSpace(cost), DBNull.Value, Convert.ToDecimal(cost)) + Next + End If + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) btnCBAM_DS_DAKOSY_Summe.Tag = path @@ -1330,13 +1362,13 @@ Public Class usrCntlCBAM '----- XML ---------------------------------------------------------------------------------------------------------------------------------------- If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - '--------------------------------------------------------------------------------------------------------------------------------------------- - doCBAM_XML(dt, EORI) - '--------------------------------------------------------------------------------------------------------------------------------------------- - Button2.Enabled = True - btnCBAM_DS_DAKOSY_XML.Enabled = True + '--------------------------------------------------------------------------------------------------------------------------------------------- + doCBAM_XML(dt, EORI) + '--------------------------------------------------------------------------------------------------------------------------------------------- + Button2.Enabled = True + btnCBAM_DS_DAKOSY_XML.Enabled = True - End If + End If '--------------------------------------------------------------------------------------------------------------------------------------------- @@ -1430,6 +1462,40 @@ Public Class usrCntlCBAM End Try End Sub + + Private Sub doCBAM_KafkaFromVERAG_CostomsDeclarations(list As List(Of String)) + Try + Dim cnt = 1 + For Each MRN In list + lblKafkaCnt.Text = cnt & "/" & list.Count + Me.Refresh() + cnt += 1 + + Dim EZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN(MRN, True) + + + Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe_FromVERAG_CustomsDec(EZA, MRN) + + ' Objekt + Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA) + Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync_Bool(rec, key, 30000) + + 'Unlerlagen + If EZA.za_SendungsId IsNot Nothing AndAlso EZA.za_SendungsId > 0 Then + Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(EZA.za_SendungsId) + Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000) + End If + + + ' MessageBox.Show($"OK: {dr.Status} @ {dr.TopicPartitionOffset}") + Next + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + End Sub + + Private Sub doCBAM_XML(dt As DataTable, EORI As String) Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType @@ -2087,7 +2153,615 @@ Public Class usrCntlCBAM End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click - MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DAKOSY", txtEori.Text, txtVon._value, txtBis._value)) - MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DHF", txtEori.Text, txtVon._value, txtBis._value)) + txtCalc_Defaut_Country.Enabled = True + 'MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DAKOSY", txtEori.Text, txtVon._value, txtBis._value)) + 'MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DHF", txtEori.Text, txtVon._value, txtBis._value)) + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + 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 + + lblErg_VERAG.Text = "-" + lblErg_VERAG2.Text = "-" + + Dim LIST = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(txtEori.Text, "", txtVon._value, txtBis._value,, False) + + cbo_VERAG_ImpLand.Items.Clear() + + Dim sumEigenmasse As Decimal = LIST.SelectMany(Function(za) za.Items).Sum(Function(it) If(it.zaItem_NetMass, 0D)) + + Dim countries = LIST.Where(Function(za) Not String.IsNullOrWhiteSpace(za.za_CountryImport)). + Select(Function(za) za.za_CountryImport.Trim()). + Distinct(). + OrderBy(Function(c) c). + ToList() + For Each c In countries + cbo_VERAG_ImpLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(c, c)) + Next + + + lblErg_VERAG.Text = LIST.Count + lblErg_VERAG2.Text = String.Join(", ", countries) + + 'MsgBox("Anzahl der Anmeldungen: " & LIST.Count) + End Sub + + Private Sub Button16_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG.Click + 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 + If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub : + Me.Cursor = Cursors.WaitCursor + Try + + + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, True) + TextBox1.Text = LIST.Count + + + doVERAG_SUM(LIST, EORI) + doVERAG_DETAIL(LIST, EORI) + If cbxVERAG_GPXLS.Checked Then doVERAG_GREENPULSE_XLS(LIST, EORI) + + + 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 + + + Function LeftStr(s As String, l As Integer) As String + If s Is Nothing Then Return "" + If s Is DBNull.Value Then Return "" + LeftStr = If(s.Length >= l, s.Substring(0, l), s) + End Function + + + Sub doVERAG_SUM(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String) + + btnCBAM_DS_VERAG_Summe.Enabled = False + btnCBAM_DS_VERAG_Detail.Tag = "" + + Try + Dim summary = + From za In LIST + From it In za.Items + Group By + Tarifnummer = LeftStr(it.zaItem_HSCode, 8), + VersendungsLand = za.za_CountryDispatch, + Verfahren = LeftStr(za.za_MainProcedure, 2), + Vorverfahren = it.zaItem_PrevProcedure + Into grp = Group + Select New With { + .Tarifnummer = Tarifnummer, + .Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)), + .Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)), + .Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)), + .VersendungsLand = VersendungsLand, + .Verfahren = Verfahren, + .VorangegangenesVerfahren = Vorverfahren + } + + + Dim dt As New DataTable + + dt.Columns.Add("Tarifnummer", GetType(String)) + dt.Columns.Add("Eigenmasse", GetType(Decimal)) + dt.Columns.Add("Rohmasse", GetType(Decimal)) + dt.Columns.Add("Rechnungspreis", GetType(Decimal)) + dt.Columns.Add("VersendungsLand", GetType(String)) + dt.Columns.Add("Verfahren", GetType(String)) + dt.Columns.Add("VorangegangenesVerfahren", GetType(String)) + + For Each r In summary + dt.Rows.Add( + r.Tarifnummer, + r.Eigenmasse, + r.Rohmasse, + r.Rechnungspreis, + r.VersendungsLand, + r.Verfahren, + r.VorangegangenesVerfahren + ) + + MsgBox(r.Tarifnummer) + Next + + MsgBox(dt.Rows.Count) + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,, , , , False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_VERAG_Summe.Tag = path + btnCBAM_DS_VERAG_Summe.Enabled = True + btnCBAM_DS_VERAG_Copy.Enabled = True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Sub doVERAG_DETAIL(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String) + + btnCBAM_DS_VERAG_Detail.Enabled = False + btnCBAM_DS_VERAG_Detail.Tag = "" + + Try + Dim details = + From za In LIST + From it In za.Items + Let importer = za.Parties. + FirstOrDefault(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role)) + Let exporter = za.Parties. + FirstOrDefault(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)) + Let invoice = + za.Documents.FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325") + Let Anmeldedatum = (Function(x) If(x.za_releaseDate, x.za_DeclarationDate)) + Order By Anmeldedatum + Select New With { + .MRN = za.za_MRN, + .PositionsNummer = it.zaItem_PosNo, + .Anmeldedatum = If(za.za_ReleaseDate, za.za_DeclarationDate), + .BezugsNr = za.za_LRN, + .VertretungsVerhaeltnis = za.za_RepresentationCode, + .Tarifnummer = LeftStr(it.zaItem_HSCode, 8) & "%", + .Eigenmasse = it.zaItem_NetMass, + .Rohmasse = it.zaItem_GrossMass, + .VersendungsLand = za.za_CountryDispatch, + .BestimmungsLand = za.za_CountryDestination, + .Rechnungspreis = it.zaItem_InvoiceValueEUR, + .Rechnungswaehrung = it.zaItem_InvoiceCurrency, + .EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""), + .Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""), + .AbsenderEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""), + .Absender = If(exporter IsNot Nothing, exporter.zaParty_Name, ""), + .Rechnungsnummer = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"), + .Rechnungsdatum = If(invoice IsNot Nothing, invoice.zaDoc_Date, Nothing) + } + + + Dim dt As New DataTable + + dt.Columns.Add("MRN") + dt.Columns.Add("PositionsNummer", GetType(Integer)) + dt.Columns.Add("Anmeldedatum", GetType(Date)) + dt.Columns.Add("BezugsNr") + dt.Columns.Add("VertretungsVerhaeltnis") + dt.Columns.Add("Tarifnummer") + dt.Columns.Add("Eigenmasse", GetType(Decimal)) + dt.Columns.Add("Rohmasse", GetType(Decimal)) + dt.Columns.Add("VersendungsLand") + dt.Columns.Add("BestimmungsLand") + dt.Columns.Add("Rechnungspreis", GetType(Decimal)) + dt.Columns.Add("Rechnungswaehrung") + dt.Columns.Add("EmpfaengerEORI") + dt.Columns.Add("Empfaenger") + dt.Columns.Add("AbsenderEORI") + dt.Columns.Add("Absender") + dt.Columns.Add("Rechnungsnummer") + dt.Columns.Add("Rechnungsdatum", GetType(Date)) + + For Each r In details + dt.Rows.Add( + r.MRN, + r.PositionsNummer, + If(r.Anmeldedatum, DBNull.Value), + r.BezugsNr, + r.VertretungsVerhaeltnis, + r.Tarifnummer, + If(r.Eigenmasse, 0D), + If(r.Rohmasse, 0D), + r.VersendungsLand, + r.BestimmungsLand, + If(r.Rechnungspreis, 0D), + r.Rechnungswaehrung, + r.EmpfaengerEORI, + r.Empfaenger, + r.AbsenderEORI, + r.Absender, + r.Rechnungsnummer, + If(r.Rechnungsdatum Is Nothing, DBNull.Value, r.Rechnungsdatum) + ) + Next + + If dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, , , , , False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value) + + btnCBAM_DS_VERAG_Detail.Tag = path + btnCBAM_DS_VERAG_Detail.Enabled = True + btnCBAM_DS_VERAG_Copy.Enabled = True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + Sub doVERAG_GREENPULSE_XLS(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String) + + btnCBAM_DS_VERAG_GP.Enabled = False + btnCBAM_DS_VERAG_GP.Tag = "" + + Try + ' ------------------------------------------------------------ + ' Rollen + ' ------------------------------------------------------------ + Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"} + Dim ExporterRoles = {"CZ", "EX", "EXP", "EXPORTER"} + + ' ------------------------------------------------------------ + ' LINQ: Greenpulse-Logik (MRN-aggregiert) + ' ------------------------------------------------------------ + Dim gp = + From za In LIST + Group By MRN = za.za_MRN Into grp = Group + Let importer = grp. + SelectMany(Function(x) x.Parties). + FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role)) + Let exporter = grp. + SelectMany(Function(x) x.Parties). + FirstOrDefault(Function(p) ExporterRoles.Contains(p.zaParty_Role)) + Let invoice = grp. + SelectMany(Function(x) x.Documents). + FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325") + Select New With { + .DeclarationNo = MRN, + .DeclarationDate = grp.Max(Function(x) If(x.za_ReleaseDate, x.za_DeclarationDate)), + .ImporterEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""), + .ExporterEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""), + .CommodityCode = grp. + SelectMany(Function(x) x.Items). + Select(Function(i) i.zaItem_HSCode). + FirstOrDefault(), + .OriginCountry = grp. + SelectMany(Function(x) x.Items). + Select(Function(i) i.zaItem_OriginCountry). + FirstOrDefault(), + .RequestedProcedure = If( + grp.First().za_MainProcedure IsNot Nothing AndAlso + grp.First().za_MainProcedure.Length >= 2, + grp.First().za_MainProcedure.Substring(0, 2), + "" + ), + .NetMassTonnes = grp. + SelectMany(Function(x) x.Items). + Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000D, + .ImporterTitle = If(importer IsNot Nothing, importer.zaParty_Name, ""), + .ImporterCountry = If(importer IsNot Nothing, importer.zaParty_Country, ""), + .ExporterTitle = If(exporter IsNot Nothing, exporter.zaParty_Name, ""), + .ExporterCountry = If(exporter IsNot Nothing, exporter.zaParty_Country, ""), + .InvoiceNumber = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"), + .InvoiceDate = If(invoice IsNot Nothing, invoice.zaDoc_Date, Nothing) + } + + + ' ------------------------------------------------------------ + ' DataTable: exakt Greenpulse-Struktur + ' ------------------------------------------------------------ + Dim dtGP As New DataTable + + dtGP.Columns.Add("declaration no") + dtGP.Columns.Add("declaration date", GetType(Date)) + dtGP.Columns.Add("importer identification number") + dtGP.Columns.Add("exporter identification number") + dtGP.Columns.Add("commodity code") + dtGP.Columns.Add("origin country code") + dtGP.Columns.Add("requested procedure") + dtGP.Columns.Add("previous procedure") + dtGP.Columns.Add("net mass", GetType(Decimal)) + dtGP.Columns.Add("type of measurement unit") + dtGP.Columns.Add("invoice numbers") + dtGP.Columns.Add("invoice date") + dtGP.Columns.Add("member state auth") + dtGP.Columns.Add("discharge bill waiver") + dtGP.Columns.Add("authorisation") + dtGP.Columns.Add("start time") + dtGP.Columns.Add("end time") + dtGP.Columns.Add("deadline") + dtGP.Columns.Add("reporting declarant EORI number") + dtGP.Columns.Add("type of representation") + dtGP.Columns.Add("importer title") + dtGP.Columns.Add("importer email") + dtGP.Columns.Add("importer phone") + dtGP.Columns.Add("importer country code or member state") + dtGP.Columns.Add("importer subdivision") + dtGP.Columns.Add("importer city") + dtGP.Columns.Add("importer street") + dtGP.Columns.Add("importer street additional") + dtGP.Columns.Add("importer address number") + dtGP.Columns.Add("importer post code") + dtGP.Columns.Add("importer po box") + dtGP.Columns.Add("importer coordinate longitude (x)") + dtGP.Columns.Add("importer coordinate latitude (y)") + dtGP.Columns.Add("exporter title") + dtGP.Columns.Add("exporter country code or member state") + dtGP.Columns.Add("exporter street") + dtGP.Columns.Add("exporter street additional") + + ' ------------------------------------------------------------ + ' Befüllen + ' ------------------------------------------------------------ + For Each r In gp + dtGP.Rows.Add( + r.DeclarationNo, + r.DeclarationDate, + r.ImporterEORI, + r.ExporterEORI, + r.CommodityCode, + r.OriginCountry, + r.RequestedProcedure, + "", + r.NetMassTonnes, + "TONNES", + r.InvoiceNumber, + If(r.InvoiceDate Is Nothing, "-", r.InvoiceDate), + "", + "", + "", + "", + "", + "", + r.ImporterEORI, + "", + r.ImporterTitle, + "", + "", + r.ImporterCountry, + "", + "", + "", + "", + "", + "", + "", + r.ExporterTitle, + r.ExporterCountry, + "", + "" + ) + Next + + ' ------------------------------------------------------------ + ' Excel-Export Greenpulse + ' ------------------------------------------------------------ + If dtGP.Rows.Count > 0 Then + btnCBAM_DS_VERAG_GP.Tag = + createExcelForGreenPulse(dtGP, EORI, "") + btnCBAM_DS_VERAG_GP.Enabled = True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub btnCBAM_DS_VERAG_Detail_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_Detail.Click, btnCBAM_DS_VERAG_GP.Click, btnCBAM_DS_VERAG_Summe.Click, btnCBAM_DS_VERAG_SpedB.Click, btnCBAM_DS_VERAG_XML.Click + If sender.tag <> "" Then + Try : Process.Start(sender.tag) : Catch : End Try + End If + End Sub + + Private Sub btnCBAM_DS_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_Copy.Click + Dim f As New List(Of String) + If btnCBAM_DS_VERAG_Detail.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_Detail.Tag) + If btnCBAM_DS_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_Summe.Tag) + If btnCBAM_DS_VERAG_GP.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_GP.Tag) + + If f.Count > 0 Then + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) + Clipboard.SetDataObject(d, True) + End If + End Sub + + Private Sub btnCBAM_DS_VERAG_GenXML_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_GenXML.Click + + + Button2.Enabled = False + btnCBAM_DS_VERAG_XML.Enabled = False + btnCBAM_DS_VERAG_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 + If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub + + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, False) + + Me.Cursor = Cursors.WaitCursor + + ' summary + Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"} + Dim summary = + From za In LIST + Let importer = za.Parties.FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role)) + From it In za.Items + Let hs8 = LeftStr(it.zaItem_HSCode, 8) + Group By + Tarifnummer = hs8, + VersendungsLand = za.za_CountryDispatch, + Verfahren = If(it.zaItem_MainProcedure, ""), + Vorverfahren = If(it.zaItem_PrevProcedure, ""), + Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""), + EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, "") + Into grp = Group + Select New With { + .Tarifnummer = Tarifnummer, + .Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)), + .Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)), + .Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)), + .VersendungsLand = VersendungsLand, + .Verfahren = Verfahren, + .VorangegangenesVerfahren = Vorverfahren, + .Empfaenger = Empfaenger, + .EmpfaengerEORI = EmpfaengerEORI + } + + + + Dim dt As New DataTable + dt.Columns.Add("Tarifnummer") + dt.Columns.Add("Eigenmasse", GetType(Decimal)) + dt.Columns.Add("Rohmasse", GetType(Decimal)) + dt.Columns.Add("Rechnungspreis", GetType(Decimal)) + dt.Columns.Add("VersendungsLand") + dt.Columns.Add("Verfahren") + dt.Columns.Add("VorangegangenesVerfahren") + dt.Columns.Add("Empfänger") + dt.Columns.Add("EmpfängerEORI") + + For Each r In summary + dt.Rows.Add( + r.Tarifnummer, + r.Eigenmasse, + r.Rohmasse, + r.Rechnungspreis, + r.VersendungsLand, + r.Verfahren, + r.VorangegangenesVerfahren, + r.Empfaenger, + r.EmpfaengerEORI + ) + Next + + + + If dt.Rows.Count > 0 Then + doCBAM_XML(dt, EORI) + Button2.Enabled = True + btnCBAM_DS_VERAG_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 + + Private Sub btnCBAM_DS_VERAG_SendToGreenpulse_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_SendToGreenpulse.Click + + 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 + If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub + + Me.Cursor = Cursors.WaitCursor + lblKafkaCnt.Text = "-" + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, False) + + If LIST Is Nothing AndAlso LIST.Count = 0 Then + MsgBox("Keine Anmeldungen gefunden!") + Exit Sub + End If + + ' ----------------------------- + ' MRNs aus CustomsDeclarations + ' ----------------------------- + Dim mrns = + LIST.Where(Function(za) + za.za_REGIME = "IMPORT" AndAlso + Not String.IsNullOrWhiteSpace(za.za_MRN) + End Function). + Select(Function(za) za.za_MRN). + Distinct(). + ToList() + + If mrns.Count = 0 Then Exit Sub + + lblKafkaCnt.Text = "0/" & mrns.Count.ToString() + + ' ----------------------------- + ' Übergabe an Greenpulse/Kafka + ' ----------------------------- + doCBAM_KafkaFromVERAG_CostomsDeclarations(mrns) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Finally + Me.Cursor = Cursors.Default + End Try + + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + + txtCalcErg.Text = cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(txtCalc_Defaut_KN8._value, txtCalc_Defaut_Weight._value, txtCalc_Defaut_Country._value, txtCalc_Defaut_CertPrice._value, txtCalcJahr._value) + + End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + 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 + 'If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub + + Me.Cursor = Cursors.WaitCursor + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, True) + + + Dim grouped = + From za In LIST + Where za.Items IsNot Nothing + From it In za.Items + Let tarif = If(it.zaItem_HSCode IsNot Nothing AndAlso it.zaItem_HSCode.Length >= 8, + it.zaItem_HSCode.Substring(0, 8), + it.zaItem_HSCode) + Let country = it.zaItem_OriginCountry + Group By tarif, country + Into grp = Group + Select New With { + .Tarif = tarif, + .Country = country, + .Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)), + .Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)), + .RechnungswertEUR = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)) + } + Me.Cursor = Cursors.Default + + Dim f As New frmVorauskasse_CBAM + f.MyDatagridview1.Rows.Clear() + + + For Each g In grouped + Dim idx = f.MyDatagridview1.Rows.Add() + Dim eigMasse = If(IsNumeric(g.Eigenmasse), g.Eigenmasse / 1000, 0) + With f.MyDatagridview1.Rows(idx) + .Cells("clmnTarif").Value = g.Tarif + .Cells("clmnWeight").Value = eigMasse + .Cells("clmnCountry").Value = g.Country + .Cells("clmnYear").Value = If(txtBis._value <> "", CDate(txtBis._value).Year, Now.Year) + End With + Next + f.autocalc = True + f.Show() + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 5f90ca3a..91267da0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -1,4 +1,5 @@ Imports System.Data.SqlClient +Imports javax.xml.bind.annotation Public Class cSendungen Implements ICloneable @@ -132,7 +133,7 @@ Public Class cSendungen Public Function CLEAR_ABRECHNUNG_NotLeistungen() As Boolean - + ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ZOLL") ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "EUST") ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "CLEARING") @@ -295,6 +296,24 @@ Public Class cSendungen Return Nothing End If End Function + Public Shared Function getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer, ByRef AvisoID As Integer, ByRef SendungID As Integer) As Boolean + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt = sql.loadDgvBySql("SELECT TOP 1 tblSnd_AvisoID, tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO") + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim AvisopIdTmp = dt.Rows(0)("tblSnd_AvisoID") + Dim SendungIDTmp = dt.Rows(0)("tblSnd_SendungID") + If AvisopIdTmp IsNot DBNull.Value AndAlso IsNumeric(AvisopIdTmp) Then + AvisoID = CInt(AvisopIdTmp) + End If + If SendungIDTmp IsNot DBNull.Value AndAlso IsNumeric(SendungIDTmp) Then + SendungID = CInt(SendungIDTmp) + End If + Return True + Else + Return False + End If + End Function Public Function getKdAtrNr(art As String) As String Try diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb index f3992dcc..40b45c56 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb @@ -146,14 +146,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation ' ------------------------------------------------------------------------ ' calcCBAM – mit automatischem Fallback auf CN-Code Defaults ' ------------------------------------------------------------------------ - Public Shared Function calcCBAM( - cn_code As String, - weight As Object, - country_code As String, - Optional see_total As Object = Nothing, - Optional year As Object = Nothing, - Optional benchmark_value As Object = Nothing -) As String + Public Shared Function calcCBAM(cn_code As String, weight As Object, country_code As String, Optional ByRef see_total As Object = Nothing, Optional year As Object = Nothing, Optional ByRef benchmark_value As Object = Nothing, Optional ByRef CBAM_COST As Decimal = -1, Optional ByRef CBAM_EMISSION As Decimal = -1) As String ' ------------------------------------------------------------ ' Basis-Validierung @@ -207,6 +200,9 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation If defResp.success Then defaultEmission = defResp.data.default_emission defaultBenchmark = defResp.data.benchmark + + benchmark_value = defaultBenchmark + see_total = defaultEmission Else Return $"FEHLER DEFAULTS {defResp.error.code}: {defResp.error.message}" End If @@ -272,7 +268,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation s &= $"Gewicht: {req.weight:N2} t" & vbCrLf s &= vbCrLf - s &= $"Kosten: {d.cost:N2} {d.currency}" & vbCrLf + 's &= $"Kosten: {d.cost:N2} {d.currency}" & vbCrLf s &= $"CBAM Emission: {d.cbam_emission:N5}" & vbCrLf s &= $"Benchmark: {d.benchmark:N5}" & vbCrLf s &= $"Phase-Faktor: {d.phase_factor:P2}" & vbCrLf @@ -281,12 +277,96 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation If Not String.IsNullOrWhiteSpace(d.info_message) Then s &= vbCrLf & "Info: " & d.info_message & vbCrLf End If - + s &= vbCrLf + s &= $"CBAM Kosten: {d.cost:N2} {d.currency}" & vbCrLf + CBAM_COST = d.cost + CBAM_EMISSION = see_total Return s End Function + Public Shared Function calcCBAM_ByCertificatePrice(cn_code As String, weight As Object, country_code As String, certificate_price As Object, year As Object, Optional ByRef CBAM_COST As Decimal = -1, Optional ByRef CBAM_EMISSION As Decimal = -1) As String + ' ------------------------------------------------------------ + ' Validierung + ' ------------------------------------------------------------ + If cn_code Is Nothing OrElse Not IsNumeric(cn_code) _ + OrElse Not {4, 6, 8}.Contains(cn_code.Length) Then + Return "Fehler: CN-Code muss 4-, 6- oder 8-stellig numerisch sein" + End If + + If weight Is Nothing OrElse Not IsNumeric(weight) OrElse CDbl(weight) <= 0 Then + Return "Fehler: Gewicht muss > 0 sein" + End If + + If country_code Is Nothing OrElse country_code.Length <> 2 Then + Return "Fehler: country_code muss ISO-2 sein" + End If + + If certificate_price Is Nothing OrElse Not IsNumeric(certificate_price) OrElse CDbl(certificate_price) <= 0 Then + Return "Fehler: Zertifikatspreis muss > 0 sein" + End If + + If year Is Nothing Or Not IsNumeric(year) Then + Return "Fehler: ungültiges Jahr" + End If + + ' ------------------------------------------------------------ + ' SEE total (Default-Emission) laden + ' ------------------------------------------------------------ + Dim api As New cATEZ_Greenpulse_CBAM_CostCalculation() + Dim see_total As Decimal + + Try + Dim defResp = api.GetCnCodeDefaults( + cn_code, + country_code.ToUpperInvariant(), + CInt(year) + ) + + If Not defResp.success Then + Return $"FEHLER DEFAULTS {defResp.error.code}: {defResp.error.message}" + End If + + If defResp.data.default_emission < 0 Then + Return "Fehler: Keine Default-Emission (see_total) verfügbar" + End If + + see_total = defResp.data.default_emission + + Catch ex As Exception + Return "Technischer Fehler beim Laden der CN-Code Defaults: " & ex.Message + End Try + + ' ------------------------------------------------------------ + ' Berechnung (ohne Phase-Faktor!) + ' ------------------------------------------------------------ + Dim w As Decimal = CDec(weight) + Dim price As Decimal = CDec(certificate_price) + + Dim cbamEmission As Decimal = w * see_total + Dim cbamCost As Decimal = cbamEmission * price + + ' ------------------------------------------------------------ + ' Ausgabe + ' ------------------------------------------------------------ + Dim s As String = "" + s &= "CBAM Kostenberechnung (ohne Benchmark)" & vbCrLf + s &= "-----------------------------------------------------------" & vbCrLf + s &= $"CN-Code: {cn_code}" & vbCrLf + s &= $"Ursprungsland: {country_code.ToUpperInvariant()}" & vbCrLf + s &= $"Gewicht: {w:N2} t" & vbCrLf + s &= $"SEE total (Default): {see_total:N5}" & vbCrLf + s &= $"CBAM Emission: {cbamEmission:N5} t CO₂" & vbCrLf + s &= $"Zertifikatspreis: {price:N2} EUR/t" & vbCrLf + s &= vbCrLf + s &= $"CBAM Kosten: {cbamCost:N2} EUR" & vbCrLf + CBAM_COST = cbamCost + CBAM_EMISSION = see_total + + Return s + + End Function ' ------------------------------------------------------------------------ ' Helpers ' ------------------------------------------------------------------------ diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb index ba11fc4a..52d264b3 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb @@ -46,6 +46,13 @@ Public Class cATEZ_Greenpulse_KafkaDecs Dim m = (mrn).ToUpperInvariant() Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m}) End Function + Public Shared Function GetUniqueKey_Pipe_FromVERAG_CustomsDec(CD As VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations, Optional mrn As String = "") As String + + Dim c = (If(CD.za_CountryImport, CD.za_CustomsSystemCountry)).ToUpperInvariant() + Dim s = (If(CD.za_System, CD.za_CustomsSystem)).ToUpperInvariant() + Dim m = (If(mrn = "", CD.za_MRN, mrn)).ToUpperInvariant() + Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m}) + End Function '======================== '== Datenobjekte lt. UDM-Schema diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb index 7c9e440e..8728530f 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb @@ -70,6 +70,7 @@ Public Class cVERAG_CustomsDeclarations Public Property za_Remarks As String Public Property za_Sachbearbeiter As String Public Property za_SachbearbeiterId As String + Public Property za_TotGrossMass As Decimal? Public Property Parties As New List(Of cVERAG_CustomsDeclarations_Parties) Public Property Items As New List(Of cVERAG_CustomsDeclarations_Item) @@ -142,7 +143,8 @@ Public Class cVERAG_CustomsDeclarations New SQLVariable("za_SendungsId", za_SendungsId), New SQLVariable("za_Remarks", za_Remarks), New SQLVariable("za_Sachbearbeiter", za_Sachbearbeiter), - New SQLVariable("za_SachbearbeiterId", za_SachbearbeiterId) + New SQLVariable("za_SachbearbeiterId", za_SachbearbeiterId), + New SQLVariable("za_TotGrossMass", za_TotGrossMass) } End Function @@ -204,6 +206,107 @@ Public Class cVERAG_CustomsDeclarations End Try End Sub + + + Public Shared Function LOAD_List_CBAM(EORI As String, ImportCountry As String, datFrom As Date, datTo As Date, Optional CustomsSystem As String = "", Optional loadAll As Boolean = True) As List(Of cVERAG_CustomsDeclarations) + + Dim LIST As New List(Of cVERAG_CustomsDeclarations) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Try + ' ------------------------------------------------------------ + ' CBAM Pattern (HSCode) + ' ------------------------------------------------------------ + Dim cbamWhere As String = + VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("i.zaItem_HSCode") + + ' ------------------------------------------------------------ + ' SQL: ZA-IDs ermitteln + ' ------------------------------------------------------------ + Dim sqlstr As String = + "SELECT DISTINCT z.* " & + "FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " & + "INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Items i " & + " ON z.za_Id = i.zaItem_zaId " & + "INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p " & + " ON z.za_Id = p.zaParty_zaId " & + "WHERE z.za_REGIME = 'IMPORT' " & + " AND z.za_IsFinalDeclaration = 1 " & + " AND z.za_DeclarationDate >= @dateFrom " & + " AND z.za_DeclarationDate <= @dateTo " & + " AND p.zaParty_EORI = @eori " & + " AND " & cbamWhere + + If ImportCountry <> "" Then + sqlstr &= " AND z.za_CountryImport = @importCountry " + End If + + If CustomsSystem <> "" Then + sqlstr &= " AND z.za_System = @sys " + End If + + Using conn = sql.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sqlstr, conn) + + cmd.Parameters.AddWithValue("@eori", EORI) + cmd.Parameters.AddWithValue("@dateFrom", datFrom) + cmd.Parameters.AddWithValue("@dateTo", datTo) + + If ImportCountry <> "" Then + cmd.Parameters.AddWithValue("@importCountry", ImportCountry) + End If + + If CustomsSystem <> "" Then + cmd.Parameters.AddWithValue("@sys", CustomsSystem) + End If + + Using dr = cmd.ExecuteReader() + + While dr.Read() + + Dim CD As New cVERAG_CustomsDeclarations + CD.hasEntry = False + + ' ------------------------------------------------ + ' DIREKTE BEFÜLLUNG (wie gewünscht) + ' ------------------------------------------------ + For Each li In CD.getParameterList() + Dim pi = CD.GetType().GetProperty(li.Scalarvariable) + If pi Is Nothing Then Continue For + + If dr.Item(li.Text) Is DBNull.Value Then + pi.SetValue(CD, Nothing) + Else + pi.SetValue(CD, dr.Item(li.Text)) + End If + Next + + CD.hasEntry = True + + ' ------------------------------------------------ + ' OPTIONALES NACHLADEN + ' ------------------------------------------------ + If loadAll Then + CD.Parties = cVERAG_CustomsDeclarations_Parties.LOAD_BY_ZAID(CD.za_Id) + CD.Items = cVERAG_CustomsDeclarations_Item.LOAD_BY_ZAID(CD.za_Id) + CD.Duties = cVERAG_CustomsDeclarations_Duty.LOAD_BY_ZAID(CD.za_Id) + CD.Documents = cVERAG_CustomsDeclarations_Document.LOAD_HEAD_BY_ZAID(CD.za_Id) + End If + + LIST.Add(CD) + + End While + End Using + End Using + End Using + + Catch ex As Exception + cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return LIST + End Function + + Public Shared Function loadByMRN(MRN As String, loadall As Boolean) As cVERAG_CustomsDeclarations Dim ZA As New cVERAG_CustomsDeclarations If If(MRN, "") = "" Then Return ZA @@ -717,7 +820,7 @@ Public Class cVERAG_CustomsDeclarations_Document New SQLVariable("zaDoc_DepreciationAmount", zaDoc_DepreciationAmount), New SQLVariable("zaDoc_DepreciationUnitmeasurement", zaDoc_DepreciationUnitmeasurement), New SQLVariable("zaDoc_DepreciationUnitmeasurementQualifier", zaDoc_DepreciationUnitmeasurementQualifier), - New SQLVariable("zaDoc_Description ", zaDoc_Description) + New SQLVariable("zaDoc_Description", zaDoc_Description) } End Function diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 14b063c3..163c92b6 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -71,6 +71,120 @@ Public Class cProgramFunctions End Function + + Public Shared Sub tryGetFilialeAbf_ByLRN(ByVal LRN As String, ByRef FilialenNr As Object, ByRef AbfertigungsNr As Object) + + If String.IsNullOrWhiteSpace(LRN) Then Exit Sub + + Dim pattern As String = "^(?\d{4})[\/\-](?\d{8})" + + Dim m As System.Text.RegularExpressions.Match = + System.Text.RegularExpressions.Regex.Match(LRN.Trim(), pattern) + + If Not m.Success Then Exit Sub + + Dim filialeStr As String = m.Groups("Filiale").Value + Dim abfertigungStr As String = m.Groups("Abfertigung").Value + + Dim FilialenNrTmp As Integer + Dim AbfertigungsNrTmp As Integer + + If Integer.TryParse(filialeStr, FilialenNrTmp) AndAlso + Integer.TryParse(abfertigungStr, AbfertigungsNrTmp) Then + + FilialenNr = FilialenNrTmp + AbfertigungsNr = AbfertigungsNrTmp + End If + + End Sub + + + Public Shared Sub tryGetAvisoId_SndId_ByLRN(ByVal LRN As String, ByRef AvisoId As Object, ByRef SendungId As Object) + + Dim FilialenNrTmp As Integer = -1 + Dim AbfertigungsNrTmp As Integer = -1 + + tryGetFilialeAbf_ByLRN(LRN, FilialenNrTmp, AbfertigungsNrTmp) + + If FilialenNrTmp > 0 AndAlso AbfertigungsNrTmp > 0 Then + VERAG_PROG_ALLGEMEIN.cSendungen.getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp, AvisoId, SendungId) + End If + + End Sub + + Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String) + If Mail.Contains("@imex") Then + firma = "IMEX" + niederlassung = "IMEX" + ElseIf Mail.Contains("@ambar") Then + firma = "AMBAR" + niederlassung = "AMBAR" + ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then + + If BezugsNr <> "" Then ' VERIMEX --> wenn keine Bezugsnummer, dann bei anderem Satus.. + + '---------------------------------------------------------------------------- + 'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer + Dim verimex = False + If firma = "" Then + If BezugsNr <> "" And BezugsNr.Length > 4 Then + Select Case BezugsNr.Substring(0, 4) + Case "5501", "4803", "5003", "5103", "5303", "4805", "4811", "7001", "5601" + verimex = True + End Select + End If + End If + '---------------------------------------------------------------------------- + + If Not verimex Then + firma = "ATILLA" + niederlassung = "SUB" + End If + End If + ElseIf Mail.Contains("@durmaz") Then + firma = "DURMAZ" + niederlassung = "SBG" + ElseIf Mail.Contains("@verag") Then + firma = "VERAG" + ElseIf Mail.Contains("@unisped") Then + firma = "UNISPED" + niederlassung = "ATSP" + End If + + If firma = "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED + Case "UNISPED" + firma = "UNISPED" + niederlassung = "ATSP" + + End Select + End If + + If firma = "" Then + If BezugsNr <> "" And BezugsNr.Length > 4 Then + Select Case BezugsNr.Substring(0, 4) + Case "5501" + firma = "IMEX" + 'niederlassung = "IMEX" + Case "5701" + firma = "AMBAR" + niederlassung = "AMBAR" + Case "4801", "4802" + firma = "ATILLA" + niederlassung = "SUB" + 'Case "4801" + ' firma = "DURMAZ" + ' niederlassung = "SBG" + Case "4803", "5003", "5103", "5303", "4805", "4811", "7001" + firma = "VERAG" + Case "5601" + firma = "UNISPED" + niederlassung = "ATSP" + End Select + End If + End If + End Sub + Public Shared Function fktEuro(varBetrag As Object, varVonWährung As Object, varNachWährung As Object) As Object '(FixeTaxe, "ATS", RECHNUNG.Währungscode) 'Dim varVonWährung As Object From afcbfd37ac74d5351e3b28ea746e4b70c71d7c7f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 7 Jan 2026 13:56:33 +0100 Subject: [PATCH 3/3] CBAM --- .../FormulareBaukasten/usrcntlVorauskasse.vb | 4 +- SDL/kunden/usrCntlCBAM.Designer.vb | 65 +++++++++++----- SDL/kunden/usrCntlCBAM.vb | 77 ++++++++++++------- .../cVERAG_Zollanmeldung.vb | 22 ++++-- 4 files changed, 117 insertions(+), 51 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index 452181c0..9d3487f7 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -293,8 +293,8 @@ Public Class usrcntlVorauskasse If cboFirma._value <> "" Then Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFirma._value) ' MsgBox(FIRMA_TMP.Firma_LandKz) - Select Case If(txtUid.Text > 2, txtUid.Text, If(FIRMA_TMP.Firma_LandKz = "A", "AT", FIRMA_TMP.Firma_LandKz)) - Case "AT" + Select Case FIRMA_TMP.Firma_LandKz 'If (txtUid.Text.Length > 2, txtUid.Text, If(FIRMA_TMP.Firma_LandKz = "A", "AT", FIRMA_TMP.Firma_LandKz)) Then + Case "A", "AT" If txtAdresse2.Text.StartsWith("TR") Or txtAdresse2.Text.StartsWith("SRB") Or txtAdresse2.Text.StartsWith("GB") Then txtMwstProzent._value = 0 ElseIf txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("AT") Then diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index 23c252f4..c7797fa8 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -99,8 +99,10 @@ Partial Class usrCntlCBAM Me.Label18 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.Button8 = New System.Windows.Forms.Button() + Me.btnVERAGCost = New System.Windows.Forms.Button() Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox() + Me.cbxIndirekt = New System.Windows.Forms.CheckBox() + Me.cboIndirekt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtCalc_Defaut_Country = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtCalc_Defaut_Year = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -999,9 +1001,9 @@ Partial Class usrCntlCBAM Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label19.Location = New System.Drawing.Point(3, 3) Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(173, 13) + Me.Label19.Size = New System.Drawing.Size(174, 13) Me.Label19.TabIndex = 53 - Me.Label19.Text = "CBAM-Rechner (ohne Emissionen):" + Me.Label19.Text = "CBAM-Rechner (ohne Benchmark):" ' 'TextBox1 ' @@ -1016,18 +1018,18 @@ Partial Class usrCntlCBAM Me.TextBox1.TabIndex = 69 Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Button8 + 'btnVERAGCost ' - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Image = Global.SDL.My.Resources.Resources.moneybag1 - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(106, 603) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(168, 42) - Me.Button8.TabIndex = 70 - Me.Button8.Text = "Kosten ermitteln" - Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.UseVisualStyleBackColor = True + Me.btnVERAGCost.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVERAGCost.Image = Global.SDL.My.Resources.Resources.moneybag1 + Me.btnVERAGCost.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVERAGCost.Location = New System.Drawing.Point(106, 603) + Me.btnVERAGCost.Name = "btnVERAGCost" + Me.btnVERAGCost.Size = New System.Drawing.Size(168, 42) + Me.btnVERAGCost.TabIndex = 70 + Me.btnVERAGCost.Text = "Kosten ermitteln" + Me.btnVERAGCost.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVERAGCost.UseVisualStyleBackColor = True ' 'cbxVERAG_GPXLS ' @@ -1038,6 +1040,30 @@ Partial Class usrCntlCBAM Me.cbxVERAG_GPXLS.TabIndex = 3 Me.cbxVERAG_GPXLS.UseVisualStyleBackColor = True ' + 'cbxIndirekt + ' + Me.cbxIndirekt.AutoSize = True + Me.cbxIndirekt.Location = New System.Drawing.Point(106, 30) + Me.cbxIndirekt.Name = "cbxIndirekt" + Me.cbxIndirekt.Size = New System.Drawing.Size(77, 17) + Me.cbxIndirekt.TabIndex = 3 + Me.cbxIndirekt.Text = "INDIREKT" + Me.cbxIndirekt.UseVisualStyleBackColor = True + ' + 'cboIndirekt + ' + Me.cboIndirekt._allowedValuesFreiText = Nothing + Me.cboIndirekt._allowFreiText = False + Me.cboIndirekt._value = "" + Me.cboIndirekt.DropDownWidth = 350 + Me.cboIndirekt.FormattingEnabled = True + Me.cboIndirekt.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboIndirekt.Location = New System.Drawing.Point(106, 48) + Me.cboIndirekt.Name = "cboIndirekt" + Me.cboIndirekt.Size = New System.Drawing.Size(341, 21) + Me.cboIndirekt.TabIndex = 71 + Me.cboIndirekt.Visible = False + ' 'txtCalc_Defaut_Country ' Me.txtCalc_Defaut_Country._DateTimeOnly = False @@ -1194,7 +1220,6 @@ Partial Class usrCntlCBAM Me.cbo_VERAG_ImpLand._allowFreiText = False Me.cbo_VERAG_ImpLand._value = "" Me.cbo_VERAG_ImpLand.FormattingEnabled = True - Me.cbo_VERAG_ImpLand.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) Me.cbo_VERAG_ImpLand.Location = New System.Drawing.Point(106, 169) Me.cbo_VERAG_ImpLand.Name = "cbo_VERAG_ImpLand" Me.cbo_VERAG_ImpLand.Size = New System.Drawing.Size(168, 21) @@ -1379,7 +1404,7 @@ Partial Class usrCntlCBAM Me.MyPanel1.Controls.Add(Me.cbxUNISPED) Me.MyPanel1.Controls.Add(Me.cbxIMEX) Me.MyPanel1.Controls.Add(Me.cbxVERAG) - Me.MyPanel1.Location = New System.Drawing.Point(98, 4) + Me.MyPanel1.Location = New System.Drawing.Point(453, 4) Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Size = New System.Drawing.Size(590, 28) Me.MyPanel1.TabIndex = 39 @@ -1523,8 +1548,10 @@ Partial Class 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.cboIndirekt) + Me.Controls.Add(Me.cbxIndirekt) Me.Controls.Add(Me.cbxVERAG_GPXLS) - Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.btnVERAGCost) Me.Controls.Add(Me.cbxKosten) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Panel2) @@ -1706,6 +1733,8 @@ Partial Class usrCntlCBAM Friend WithEvents txtCalc_Defaut_KN8 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label19 As Label Friend WithEvents TextBox1 As TextBox - Friend WithEvents Button8 As Button + Friend WithEvents btnVERAGCost As Button Friend WithEvents cbxVERAG_GPXLS As CheckBox + Friend WithEvents cboIndirekt As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxIndirekt As CheckBox End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index a70bdc70..4cafc07d 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -420,6 +420,16 @@ Public Class usrCntlCBAM txtEori.Text = KD.EORITIN End If + cboIndirekt.Items.Clear() + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GmbH - DE4824105", "DE4824105")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH - ATEOS1000059121", "DE4ATEOS1000059121824105")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Zollservice GmbH - ATEOS1000000200", "ATEOS1000000200")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG - ATEOS1000000199", "ATEOS1000000199")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH - ATEOS1000059735", "ATEOS1000059735")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH - ATEOS1000000088", "ATEOS1000000088")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice GmbH - ATEOS1000040508", "ATEOS1000040508")) + cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540")) + End Sub Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged @@ -2159,16 +2169,16 @@ Public Class usrCntlCBAM End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - Dim EORI = txtEori.Text - If cbxVERAG.Checked Then EORI = "VERAG" - If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Dim EORI = {txtEori.Text} + If cbxIndirekt.Checked Then EORI = {cboIndirekt._value} + If EORI(0) = "" 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 lblErg_VERAG.Text = "-" lblErg_VERAG2.Text = "-" - Dim LIST = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(txtEori.Text, "", txtVon._value, txtBis._value,, False) + Dim LIST = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, "", txtVon._value, txtBis._value,, False) cbo_VERAG_ImpLand.Items.Clear() @@ -2179,10 +2189,13 @@ Public Class usrCntlCBAM Distinct(). OrderBy(Function(c) c). ToList() + cbo_VERAG_ImpLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) For Each c In countries cbo_VERAG_ImpLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(c, c)) Next - + If cbo_VERAG_ImpLand.Items.Count = 2 Then + cbo_VERAG_ImpLand.SelectedIndex = 1 + End If lblErg_VERAG.Text = LIST.Count lblErg_VERAG2.Text = String.Join(", ", countries) @@ -2191,12 +2204,12 @@ Public Class usrCntlCBAM End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG.Click - Dim EORI = txtEori.Text - If cbxVERAG.Checked Then EORI = "VERAG" - If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Dim EORI = {txtEori.Text} + If cbxIndirekt.Checked Then EORI = {cboIndirekt._value} + If EORI(0) = "" 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 - If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub : + If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub : Me.Cursor = Cursors.WaitCursor Try @@ -2206,9 +2219,9 @@ Public Class usrCntlCBAM TextBox1.Text = LIST.Count - doVERAG_SUM(LIST, EORI) - doVERAG_DETAIL(LIST, EORI) - If cbxVERAG_GPXLS.Checked Then doVERAG_GREENPULSE_XLS(LIST, EORI) + doVERAG_SUM(LIST, EORI(0)) + doVERAG_DETAIL(LIST, EORI(0)) + If cbxVERAG_GPXLS.Checked Then doVERAG_GREENPULSE_XLS(LIST, EORI(0)) Catch ex As Exception @@ -2272,10 +2285,10 @@ Public Class usrCntlCBAM r.VorangegangenesVerfahren ) - MsgBox(r.Tarifnummer) + ' MsgBox(r.Tarifnummer) Next - MsgBox(dt.Rows.Count) + ' MsgBox(dt.Rows.Count) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,, , , , False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) @@ -2574,9 +2587,9 @@ Public Class usrCntlCBAM Try - Dim EORI = txtEori.Text - If cbxVERAG.Checked Then EORI = "VERAG" - If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Dim EORI = {txtEori.Text} + If cbxIndirekt.Checked Then EORI = {cboIndirekt._value} + If EORI(0) = "" 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 If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub @@ -2643,7 +2656,7 @@ Public Class usrCntlCBAM If dt.Rows.Count > 0 Then - doCBAM_XML(dt, EORI) + doCBAM_XML(dt, EORI(0)) Button2.Enabled = True btnCBAM_DS_VERAG_XML.Enabled = True End If @@ -2662,9 +2675,9 @@ Public Class usrCntlCBAM Private Sub btnCBAM_DS_VERAG_SendToGreenpulse_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_SendToGreenpulse.Click Try - Dim EORI = txtEori.Text - If cbxVERAG.Checked Then EORI = "VERAG" - If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Dim EORI = {txtEori.Text} + If cbxIndirekt.Checked Then EORI = {cboIndirekt._value} + If EORI(0) = "" 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 If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub @@ -2714,16 +2727,22 @@ Public Class usrCntlCBAM End Sub - Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click - Dim EORI = txtEori.Text - If cbxVERAG.Checked Then EORI = "VERAG" - If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles btnVERAGCost.Click + Dim EORI = {txtEori.Text} + If cbxIndirekt.Checked Then EORI = {cboIndirekt._value} + If EORI(0) = "" 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 'If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub Me.Cursor = Cursors.WaitCursor + Dim SQLSTR_WHERE_FIRMEN = "" + If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'SUB','WAI','SBG','NKD','NEU','AMBWO','AMB','IRU','EXP','SUW','DUR'" + If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IME'" + If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '??? + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, True) @@ -2757,11 +2776,17 @@ Public Class usrCntlCBAM .Cells("clmnTarif").Value = g.Tarif .Cells("clmnWeight").Value = eigMasse .Cells("clmnCountry").Value = g.Country - .Cells("clmnYear").Value = If(txtBis._value <> "", CDate(txtBis._value).Year, Now.Year) + .Cells("clmnYear").Value = If(txtBis._value <> "" AndAlso CDate(txtBis._value).Year >= 2026, CDate(txtBis._value).Year, Now.Year) End With Next f.autocalc = True f.Show() End Sub + + Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles cbxIndirekt.CheckedChanged + cboIndirekt.Visible = cbxIndirekt.Checked + txtEori.Visible = Not cbxIndirekt.Checked + End Sub End Class + diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb index 8728530f..654b4fe0 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb @@ -208,7 +208,7 @@ Public Class cVERAG_CustomsDeclarations - Public Shared Function LOAD_List_CBAM(EORI As String, ImportCountry As String, datFrom As Date, datTo As Date, Optional CustomsSystem As String = "", Optional loadAll As Boolean = True) As List(Of cVERAG_CustomsDeclarations) + Public Shared Function LOAD_List_CBAM(EORI() As String, ImportCountry As String, datFrom As Date, datTo As Date, Optional CustomsSystem As String = "", Optional loadAll As Boolean = True, Optional indirect As Boolean = False) As List(Of cVERAG_CustomsDeclarations) Dim LIST As New List(Of cVERAG_CustomsDeclarations) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -222,6 +222,10 @@ Public Class cVERAG_CustomsDeclarations ' ------------------------------------------------------------ ' SQL: ZA-IDs ermitteln ' ------------------------------------------------------------ + Dim eoriIn As String = + String.Join(",", EORI. + Where(Function(x) Not String.IsNullOrWhiteSpace(x)). + Select(Function(x) "'" & x.Replace("'", "''") & "'")) Dim sqlstr As String = "SELECT DISTINCT z.* " & "FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " & @@ -233,9 +237,17 @@ Public Class cVERAG_CustomsDeclarations " AND z.za_IsFinalDeclaration = 1 " & " AND z.za_DeclarationDate >= @dateFrom " & " AND z.za_DeclarationDate <= @dateTo " & - " AND p.zaParty_EORI = @eori " & + " AND p.zaParty_EORI IN (" & eoriIn & ") " & " AND " & cbamWhere + If indirect Then + sqlstr &= " AND ( + (za_System IN('DHF','DHF_UNISPED') AND za_RepresentationCode=3) OR + (za_System IN('TELOTEC') AND za_RepresentationCode=3) OR + (za_System IN('DAKOSY') AND za_RepresentationCode=2) + )" + End If + If ImportCountry <> "" Then sqlstr &= " AND z.za_CountryImport = @importCountry " End If @@ -244,10 +256,10 @@ Public Class cVERAG_CustomsDeclarations sqlstr &= " AND z.za_System = @sys " End If - Using conn = sql.GetNewOpenConnectionFMZOLL() + Using conn = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand(sqlstr, conn) - cmd.Parameters.AddWithValue("@eori", EORI) + ' cmd.Parameters.AddWithValue("@eori", EORI) cmd.Parameters.AddWithValue("@dateFrom", datFrom) cmd.Parameters.AddWithValue("@dateTo", datTo) @@ -636,7 +648,7 @@ Public Class cVERAG_CustomsDeclarations_Item Dim pi As PropertyInfo = it.GetType().GetProperty(li.Scalarvariable) - If dr.Item(li.Text) Is DBNull.Value Then + If dr.Item(li.Text) Is DBNull.Value Then pi.SetValue(it, Nothing) Else pi.SetValue(it, dr.Item(li.Text))