Imports System.Data.SqlClient Imports System.Drawing Imports System.Net Imports System.Reflection Imports System.Security Imports System.Security.Cryptography Imports System.Windows.Forms Imports System.Windows.Forms.VisualStyles.VisualStyleElement Imports Spire.Pdf.General.Paper.Uof Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange Imports VERAG_PROG_ALLGEMEIN.cOregonNCTSDeclarations Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat Public Class cOregonNCTs_DeclarationData Public Property id As Integer Public Property AvisoId As Integer Public Property auto_send As Boolean Public Property badge_code As String Public Property service_code As String Public Property doc_type As String Public Property declaration_type As String Public Property commercial_ref As String Public Property ducr As String Public Property mucr As String Public Property ducr_part As String Public Property declarant_eori As String Public Property declarant_name As String Public Property declarant_address As String Public Property declarant_city_name As String Public Property declarant_country_id As String Public Property declarant_postcode As String Public Property declarant_rep As String Public Property export_country_id As String Public Property consignor_eori As String Public Property consignor_name As String Public Property consignor_address As String Public Property consignor_city_name As String Public Property consignor_country_id As String Public Property consignor_postcode As String Public Property multiple_consignor As Boolean Public Property import_country_id As String Public Property consignee_eori As String Public Property consignee_name As String Public Property consignee_address As String Public Property consignee_city_name As String Public Property consignee_country_id As String Public Property consignee_postcode As String Public Property multiple_consignee As Boolean Public Property invoice_amount As String Public Property invoice_curr As String Public Property goods_location As String Public Property border_transport_type As String Public Property border_vehicle_code As String Public Property border_vehicle_coun As String Public Property inland_transport_type As String Public Property container_no As String Public Property gvms_interested As Boolean Public Property freight_amount As String Public Property freight_curr As String Public Property payment_method As String Public Property carrier_eori As String Public Property carrier_name As String Public Property carrier_address As String Public Property carrier_city_name As String Public Property carrier_country_id As String Public Property carrier_postcode As String Public Property total_packages As Integer Public Property nature_of_transaction As String Public Property premises_code As String Public Property first_dan_no As String Public Property second_dan_no As String Public Property insurance_amount As String Public Property insurance_curr As String Public Property other_amounts As String Public Property other_amounts_curr As String Public Property apportment_indicator As String Public Property total_gross_weight As String Public Property total_net_weight As String Public Property airfreight_cost As String Public Property vat_adjustment As String Public Property vat_adjustment_curr As String Public Property discount_amount As String Public Property discount_curr As String Public Property discount_rate As String Public Property incoterm As String Public Property incoterm_location As String Public Property trader_ref As String Public Property arrival_transport_type As String Public Property guarantee_code As Integer Public Property guarantee_reference As String Public Property status As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", AvisoId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("auto_send", auto_send)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("badge_code", badge_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("service_code", service_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_type", doc_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declaration_type", declaration_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commercial_ref", commercial_ref)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr", ducr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mucr", mucr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr_part", ducr_part)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_eori", declarant_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_name", declarant_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_address", declarant_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_city_name", declarant_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_country_id", declarant_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_postcode", declarant_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_rep", declarant_rep)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("export_country_id", export_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_eori", consignor_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_name", consignor_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_address", consignor_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_city_name", consignor_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_country_id", consignor_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_postcode", consignor_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignor", multiple_consignor)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("import_country_id", import_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori", consignee_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_city_name", consignee_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignee", multiple_consignee)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_location", goods_location)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_transport_type", border_transport_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_code", border_vehicle_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_coun", border_vehicle_coun)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("inland_transport_type", inland_transport_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_interested", gvms_interested)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_amount", freight_amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_curr", freight_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("payment_method", payment_method)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_eori", carrier_eori)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_name", carrier_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_address", carrier_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_city_name", carrier_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_country_id", carrier_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_postcode", carrier_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_packages", total_packages)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("premises_code", premises_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("first_dan_no", first_dan_no)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("second_dan_no", second_dan_no)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_amount", insurance_amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_curr", insurance_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts", other_amounts)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts_curr", other_amounts_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("apportment_indicator", apportment_indicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_gross_weight", total_gross_weight)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_net_weight", total_net_weight)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("airfreight_cost", airfreight_cost)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment", vat_adjustment)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment_curr", vat_adjustment_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_amount", discount_amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_curr", discount_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_rate", discount_rate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("incoterm", incoterm)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("incoterm_location", incoterm_location)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trader_ref", trader_ref)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("arrival_transport_type", arrival_transport_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_code", guarantee_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_reference", guarantee_reference)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function UPDATE_STATUS(status) As Boolean Me.status = status Return Me.SAVE End Function Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_DeclarationData WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_DeclarationData] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_DeclarationData (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub End Class Public Class cOregonNCTs_GoodsAttribute Public Property id As Integer Public Property commodity As String Public Property gtip_code As String Public Property gtip_language As String Public Property brut_wg As Double Public Property net_wg As Double Public Property sender_name As String Public Property sender_address As String Public Property sender_city_name As String Public Property sender_country_id As String Public Property sender_postcode As String Public Property sender_eori_code As String Public Property consignee_name As String Public Property consignee_address As String Public Property consignee_city_name As String Public Property consignee_country_id As String Public Property consignee_postcode As String Public Property consignee_eori_code As String Public Property invoice_amount As String Public Property invoice_curr As String Public Property cpc_code As String Public Property additional_cpc_code As String Public Property container_no As String Public Property preferential_country_id As String Public Property cus_code As String Public Property nature_of_transaction As String Public Property additional_commodity_codes As String Public Property origin_country_id As String Public Property preference_request As String Public Property quota_desc As String Public Property valuation_method As String Public Property valuation_adjustment As String Public Property third_quantity_type As String Public Property third_quantity As String Public Property supplementary_unit As String Public Property declarationDataID As Integer Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commodity", commodity)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_code", gtip_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_language", gtip_language)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brut_wg", brut_wg)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("net_wg", net_wg)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_name", sender_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_address", sender_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_city_name", sender_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_country_id", sender_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_postcode", sender_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_eori_code", sender_eori_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_city_name", consignee_city_name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori_code", consignee_eori_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cpc_code", cpc_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additional_cpc_code", additional_cpc_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("preferential_country_id", preferential_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cus_code", cus_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additional_commodity_codes", additional_commodity_codes)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("origin_country_id", origin_country_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("preference_request", preference_request)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("quota_desc", quota_desc)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("valuation_method", valuation_method)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("valuation_adjustment", valuation_adjustment)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity_type", third_quantity_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity", third_quantity)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("supplementary_unit", supplementary_unit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationDataID", declarationDataID)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_GoodsAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_GoodsAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef GA_LIST As List(Of cOregonNCTs_GoodsAttribute), tco_nctsId As Integer) If GA_LIST Is Nothing Then GA_LIST = New List(Of cOregonNCTs_GoodsAttribute) GA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE AtezNCTS_Id=" & tco_nctsId, "FMZOLL").Rows GA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_PacksAttribute Public Property Id As Integer Public Property goods_attribute_id As Integer Public Property pack_count As Integer Public Property pack_type As String Public Property notes As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", Id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_count", pack_count)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_type", pack_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes)) Return list End Function Sub New() End Sub Sub New(Id) Me.Id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = Id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _Id <= 0 Then Id = IdTMP Return Id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_PacksAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_PacksAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", Id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PacksAttribute), tco_nctsId As Integer) If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PacksAttribute) PA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PacksAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_DocumentsAttribute Public Property id As Integer Public Property goods_attribute_id As Integer Public Property doc_type As String Public Property doc_no As String Public Property pre_post As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_type", doc_type)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_no", doc_no)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pre_post", pre_post)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_DocumentsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_DocumentsAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_DocumentsAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef DA_LIST As List(Of cOregonNCTs_DocumentsAttribute), tco_nctsId As Integer) If DA_LIST Is Nothing Then DA_LIST = New List(Of cOregonNCTs_DocumentsAttribute) DA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows DA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_ProducedDocumentsAttribute Public Property id As Integer Public Property goods_attribute_id As Integer Public Property code As String Public Property reference As String Public Property status As String Public Property reason As String Public Property quantity As Integer Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reference", reference)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reason", reason)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("quantity", quantity)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_ProducedDocumentsAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_ProducedDocumentsAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef PDA_LIST As List(Of cOregonNCTs_ProducedDocumentsAttribute), tco_nctsId As Integer) If PDA_LIST Is Nothing Then PDA_LIST = New List(Of cOregonNCTs_ProducedDocumentsAttribute) PDA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows PDA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_AdditionalCodesAttribute Public Property id As Integer Public Property goods_attribute_id As Integer Public Property code As String Public Property notes As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_AdditionalCodesAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_AdditionalCodesAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef ACA_LIST As List(Of cOregonNCTs_AdditionalCodesAttribute), tco_nctsId As Integer) If ACA_LIST Is Nothing Then ACA_LIST = New List(Of cOregonNCTs_AdditionalCodesAttribute) ACA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows ACA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_PartiesAttribute Public Property id As Integer Public Property declarationdata_id As String Public Property party_role As String Public Property party_code As String Public Property eori_code As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("party_role", party_role)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("party_code", party_code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_code", eori_code)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_PartiesAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_PartiesAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), tco_nctsId As Integer) If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PartiesAttribute) PA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id"))) Next End Sub End Class Public Class cOregonNCTs_TraderAdditionsAttribute Public Property id As Integer Public Property declarationdata_id As Integer Public Property code As String Public Property amount As Integer Public Property curr As String Public Property rate_code As Integer Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim hasEntry As Boolean 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("Id", id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("amount", amount)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("curr", curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rate_code", rate_code)) Return list End Function Sub New() End Sub Sub New(Id) Me.id = Id LOAD() End Sub Public Function SAVE(Optional errHinweis = "") As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & " BEGIN " & getUpdateCmd() & " END " & " Else " & " BEGIN " & getInsertCmd() & " END " & " commit tran " Dim IdTMP = id IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) If _id <= 0 Then id = IdTMP Return id > 0 End Function Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' Return (" UPDATE [tblOregonNCTS_Declarations_TraderAdditionsAttribute] SET " & str & " WHERE Id=@Id ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Function getInsertCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim str As String = "" Dim values As String = "" For Each i In list If Not i.isPrimaryParam Then str &= "[" & i.Text & "]," values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' values = values.Substring(0, values.Length - 1) 'wg. ',' Return (" INSERT INTO tblOregonNCTS_Declarations_TraderAdditionsAttribute (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function Public Sub LOAD() Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id ", conn) cmd.Parameters.AddWithValue("@Id", id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each li In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) If dr.Item(li.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(li.Text)) End If Next hasEntry = True End If dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), tco_nctsId As Integer) If TAA_LIST Is Nothing Then TAA_LIST = New List(Of cOregonNCTs_TraderAdditionsAttribute) TAA_LIST.Clear() Dim SQL As New SQL For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id"))) Next End Sub End Class Public Class cModalAPI 'DEV Shared API_STRING As String = "https://modaltrans.com" Shared token As String = "" Public dataTable As New DataTable() Shared jsonData As New Chilkat.JsonObject Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String Try If Itoken <> "" Then Return "200" VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() Dim rest As New Chilkat.Rest Dim success As Boolean Dim bTls As Boolean = True Dim port As Integer = 443 Dim bAutoReconnect As Boolean = True success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) If (success <> True) Then Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) Debug.WriteLine(rest.LastErrorText) Return rest.LastErrorText End If Dim json As New Chilkat.JsonObject json.UpdateString("password", "Verag2023") json.UpdateString("email", "mdlapi@verag.ag") rest.AddHeader("Content-Type", contentType) Dim sbRequestBody As New Chilkat.StringBuilder json.EmitSb(sbRequestBody) Dim sbResponseBody As New Chilkat.StringBuilder Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody) If (rest.ResponseStatusCode <> 200) Then Return rest.ResponseStatusCode & " " & rest.ResponseStatusText End If Dim jsonResp = New Chilkat.JsonObject() jsonResp.LoadSb(sbResponseBody) token = jsonResp.StringOf("access_token") Itoken = token Return rest.ResponseStatusCode Catch ex As WebException VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Function Shared Function authenticate() As String Dim myUri As String = API_STRING & "/api/v1/login" Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token) Return response End Function Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String) As String Try VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() Dim rest As New Chilkat.Rest Dim success As Boolean Dim bTls As Boolean = True Dim port As Integer = 443 Dim bAutoReconnect As Boolean = True success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) If (success <> True) Then Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) Debug.WriteLine(rest.LastErrorText) failureDesc = rest.LastErrorText Return failureDesc End If rest.AddHeader("Content-Type", "application/json") rest.AddHeader("Authorization", "Bearer " & token) rest.AddHeader("Accept", acceptContentType) Dim sbRequestBody As New Chilkat.StringBuilder jsonData.EmitSb(sbRequestBody) Debug.WriteLine(sbRequestBody) Dim sbResponseBody As New Chilkat.StringBuilder success = rest.FullRequestSb("POST", "api/v1/customs_declarations ", sbRequestBody, sbResponseBody) 'Dim bdRequest As New Chilkat.BinData 'success = rest.GetLastDebugRequest(bdRequest) 'Debug.WriteLine("----") 'Debug.WriteLine(bdRequest.GetString("utf-8")) 'Debug.WriteLine("----") If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) failureDesc = rest.LastErrorText Return failureDesc Else If (rest.ResponseStatusCode <> 200) Then failureDesc = rest.ResponseStatusText Return failureDesc Else Dim jsonResult As New Chilkat.JsonObject success = jsonResult.LoadSb(sbResponseBody) jsonResult.Emit() Return jsonResult.StringOf("") End If End If Catch ex As WebException VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Function Shared Function setJson(declaration_data As cOregonNCTs_DeclarationData, dgv As DataGridView) Dim json As New Chilkat.JsonObject Dim success As Boolean json.UpdateBool("customs_declaration.declaration_data.auto_send", declaration_data.auto_send) json.UpdateString("customs_declaration.declaration_data.badge_code", declaration_data.badge_code) json.UpdateString("customs_declaration.declaration_data.service_code", declaration_data.service_code) json.UpdateString("customs_declaration.declaration_data.doc_type", declaration_data.doc_type) json.UpdateString("customs_declaration.declaration_data.declaration_type", declaration_data.declaration_type) json.UpdateString("customs_declaration.declaration_data.commercial_ref", declaration_data.commercial_ref) json.UpdateString("customs_declaration.declaration_data.ducr", declaration_data.ducr) json.UpdateString("customs_declaration.declaration_data.mucr", declaration_data.mucr) json.UpdateString("customs_declaration.declaration_data.ducr_part", declaration_data.ducr_part) json.UpdateString("customs_declaration.declaration_data.declarant_eori", declaration_data.carrier_eori) json.UpdateString("customs_declaration.declaration_data.declarant_name", declaration_data.declarant_name) json.UpdateString("customs_declaration.declaration_data.declarant_address", declaration_data.declarant_address) json.UpdateString("customs_declaration.declaration_data.declarant_city_name", declaration_data.declarant_city_name) json.UpdateString("customs_declaration.declaration_data.declarant_country_id", declaration_data.declarant_country_id) json.UpdateString("customs_declaration.declaration_data.declarant_postcode", declaration_data.declarant_postcode) json.UpdateString("customs_declaration.declaration_data.declarant_rep", declaration_data.declarant_rep) json.UpdateString("customs_declaration.declaration_data.export_country_id", declaration_data.export_country_id) json.UpdateString("customs_declaration.declaration_data.consignor_eori", declaration_data.consignor_eori) json.UpdateString("customs_declaration.declaration_data.consignor_name", declaration_data.consignor_name) json.UpdateString("customs_declaration.declaration_data.consignor_address", declaration_data.consignor_address) json.UpdateString("customs_declaration.declaration_data.consignor_city_name", declaration_data.consignor_city_name) json.UpdateString("customs_declaration.declaration_data.consignor_country_id", declaration_data.consignor_country_id) json.UpdateString("customs_declaration.declaration_data.consignor_postcode", declaration_data.consignor_postcode) json.UpdateBool("customs_declaration.declaration_data.multiple_consignor", declaration_data.multiple_consignor) json.UpdateString("customs_declaration.declaration_data.import_country_id", declaration_data.import_country_id) json.UpdateString("customs_declaration.declaration_data.consignee_eori", declaration_data.consignee_eori) json.UpdateString("customs_declaration.declaration_data.consignee_name", declaration_data.consignee_name) json.UpdateString("customs_declaration.declaration_data.consignee_address", declaration_data.consignee_address) json.UpdateString("customs_declaration.declaration_data.consignee_city_name", declaration_data.consignee_city_name) json.UpdateString("customs_declaration.declaration_data.consignee_country_id", declaration_data.consignee_country_id) json.UpdateString("customs_declaration.declaration_data.consignee_postcode", declaration_data.consignee_postcode) json.UpdateBool("customs_declaration.declaration_data.multiple_consignee", declaration_data.multiple_consignee) json.UpdateString("customs_declaration.declaration_data.invoice_amount", declaration_data.invoice_amount) json.UpdateString("customs_declaration.declaration_data.invoice_curr", declaration_data.invoice_curr) json.UpdateString("customs_declaration.declaration_data.goods_location", declaration_data.goods_location) json.UpdateString("customs_declaration.declaration_data.border_transport_type", declaration_data.border_transport_type) json.UpdateString("customs_declaration.declaration_data.border_vehicle_code", declaration_data.border_vehicle_code) json.UpdateString("customs_declaration.declaration_data.border_vehicle_coun", declaration_data.border_vehicle_coun) json.UpdateString("customs_declaration.declaration_data.inland_transport_type", declaration_data.inland_transport_type) json.UpdateString("customs_declaration.declaration_data.container_no", declaration_data.container_no) json.UpdateBool("customs_declaration.declaration_data.gvms_interested", declaration_data.gvms_interested) json.UpdateString("customs_declaration.declaration_data.freight_amount", declaration_data.freight_amount) json.UpdateString("customs_declaration.declaration_data.freight_curr", declaration_data.freight_curr) json.UpdateString("customs_declaration.declaration_data.payment_method", declaration_data.payment_method) json.UpdateString("customs_declaration.declaration_data.carrier_eori", declaration_data.carrier_eori) json.UpdateString("customs_declaration.declaration_data.carrier_name", declaration_data.carrier_name) json.UpdateString("customs_declaration.declaration_data.carrier_address", declaration_data.carrier_address) json.UpdateString("customs_declaration.declaration_data.carrier_city_name", declaration_data.carrier_city_name) json.UpdateString("customs_declaration.declaration_data.carrier_country_id", declaration_data.carrier_country_id) json.UpdateString("customs_declaration.declaration_data.carrier_postcode", declaration_data.carrier_postcode) json.UpdateInt("customs_declaration.declaration_data.total_packages", declaration_data.total_packages) json.UpdateString("customs_declaration.declaration_data.nature_of_transaction", declaration_data.nature_of_transaction) json.UpdateString("customs_declaration.declaration_data.premises_code", declaration_data.premises_code) json.UpdateString("customs_declaration.declaration_data.first_dan_no", declaration_data.first_dan_no) json.UpdateString("customs_declaration.declaration_data.second_dan_no", declaration_data.second_dan_no) json.UpdateString("customs_declaration.declaration_data.insurance_amount", declaration_data.insurance_amount) json.UpdateString("customs_declaration.declaration_data.insurance_curr", declaration_data.insurance_curr) json.UpdateString("customs_declaration.declaration_data.other_amounts", declaration_data.other_amounts) json.UpdateString("customs_declaration.declaration_data.other_amounts_curr", declaration_data.other_amounts_curr) json.UpdateString("customs_declaration.declaration_data.apportment_indicator", declaration_data.apportment_indicator) json.UpdateString("customs_declaration.declaration_data.total_gross_weight", declaration_data.total_gross_weight) json.UpdateString("customs_declaration.declaration_data.total_net_weight", declaration_data.total_net_weight) json.UpdateString("customs_declaration.declaration_data.airfreight_cost", declaration_data.airfreight_cost) json.UpdateString("customs_declaration.declaration_data.vat_adjustment", declaration_data.vat_adjustment) json.UpdateString("customs_declaration.declaration_data.vat_adjustment_curr", declaration_data.vat_adjustment_curr) json.UpdateString("customs_declaration.declaration_data.discount_amount", declaration_data.discount_amount) json.UpdateString("customs_declaration.declaration_data.discount_curr", declaration_data.discount_curr) json.UpdateString("customs_declaration.declaration_data.discount_rate", declaration_data.discount_rate) json.UpdateString("customs_declaration.declaration_data.incoterm", declaration_data.incoterm) json.UpdateString("customs_declaration.declaration_data.incoterm_location", declaration_data.incoterm_location) json.UpdateString("customs_declaration.declaration_data.trader_ref", declaration_data.trader_ref) json.UpdateString("customs_declaration.declaration_data.arrival_transport_type", declaration_data.arrival_transport_type) json.UpdateInt("customs_declaration.declaration_data.guarantee_code", declaration_data.guarantee_code) json.UpdateString("customs_declaration.declaration_data.guarantee_reference", declaration_data.guarantee_reference) Dim goodsAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute.LOAD_LIST_ByNCTS(goodsAttributes_LIST, declaration_data.id) For Each GA In goodsAttributes_LIST Dim i As Integer = 0 json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].commodity", GA.commodity) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].gtip_code", GA.gtip_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].gtip_language", GA.gtip_language) json.UpdateNumber("customs_declaration.declaration_data.goods_attributes[" & i & "].brut_wg", GA.brut_wg) json.UpdateNumber("customs_declaration.declaration_data.goods_attributes[" & i & "].net_wg", GA.net_wg) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_name", GA.sender_name) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_address", GA.sender_address) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_city_name", GA.sender_city_name) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_country_id", GA.sender_country_id) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_postcode", GA.sender_postcode) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_eori_code", GA.sender_eori_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_name", GA.consignee_name) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_address", GA.consignee_address) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_city_name", GA.consignee_city_name) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_country_id", GA.consignee_country_id) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_postcode", GA.consignee_postcode) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_eori_code", GA.consignee_eori_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].invoice_amount", GA.invoice_amount) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].invoice_curr", GA.invoice_curr) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].cpc_code", GA.cpc_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_cpc_code", GA.additional_cpc_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].container_no", GA.container_no) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].preferential_country_id", GA.preferential_country_id) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].cus_code", GA.cus_code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].nature_of_transaction", GA.nature_of_transaction) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_commodity_codes", GA.additional_commodity_codes) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].origin_country_id", GA.origin_country_id) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].preference_request", GA.preference_request) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].quota_desc", GA.quota_desc) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].valuation_method", GA.valuation_method) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].valuation_adjustment", GA.valuation_adjustment) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].third_quantity_type", GA.third_quantity_type) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].third_quantity", GA.third_quantity) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].supplementary_unit", GA.supplementary_unit) Dim packsAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute.LOAD_LIST_ByNCTS(goodsAttributes_LIST, declaration_data.id) For Each PA In packsAttributes_LIST Dim j As Integer = 0 json.UpdateInt("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].pack_count", PA.pack_count) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].pack_type", PA.pack_type) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].notes", PA.notes) j = j + 1 Next Dim docAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute.LOAD_LIST_ByNCTS(docAttributes_LIST, declaration_data.id) For Each DA In docAttributes_LIST Dim j As Integer = 0 json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].doc_type", DA.doc_type) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].doc_no", DA.doc_no) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].pre_post", DA.pre_post) j = j + 1 Next Dim prodocAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute.LOAD_LIST_ByNCTS(prodocAttributes_LIST, declaration_data.id) For Each PDA In prodocAttributes_LIST Dim j As Integer = 0 json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].code", PDA.code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].reference", PDA.reference) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].status", PDA.status) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].reason", PDA.reason) json.UpdateInt("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].quantity", PDA.quantity) j = j + 1 Next Dim addcodeAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute.LOAD_LIST_ByNCTS(addcodeAttributes_LIST, declaration_data.id) For Each ACA In addcodeAttributes_LIST Dim j As Integer = 0 json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_codes_attributes[" & j & "].code", ACA.code) json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_codes_attributes[" & j & "].notes", ACA.notes) j = j + 1 Next i = i + 1 Next Dim partyAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute.LOAD_LIST_ByNCTS(partyAttributes_LIST, declaration_data.id) For Each PA In partyAttributes_LIST Dim j As Integer = 0 json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].party_role", PA.party_role) json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].party_code", PA.party_code) json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].eori_code", PA.eori_code) j = j + 1 Next Dim tradAddAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute) VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute.LOAD_LIST_ByNCTS(tradAddAttributes_LIST, declaration_data.id) For Each TAA In tradAddAttributes_LIST Dim j As Integer = 0 json.UpdateString("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].code", TAA.code) json.UpdateInt("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].amount", TAA.amount) json.UpdateString("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].curr", TAA.curr) json.UpdateInt("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].rate_code", TAA.rate_code) j = j + 1 Next Return True End Function End Class