Änderungen Fiskalübersicht, Norsware-API Verbesserung

VERAG_PROG_ALLGEMEIN/Classes/cOregonNCTSDeclarations.vb

@@ -0,0 +1,166 @@
+Public Class cOregonNCTSDeclarations
+
+    Public Class PacksAttribute
+        Public Property pack_count As Integer
+        Public Property pack_type As String
+        Public Property notes As String
+    End Class
+
+    Public Class DocumentsAttribute
+        Public Property doc_type As String
+        Public Property doc_no As String
+        Public Property pre_post As String
+    End Class
+
+    Public Class ProducedDocumentsAttribute
+        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
+    End Class
+
+    Public Class AdditionalCodesAttribute
+        Public Property code As String
+        Public Property notes As String
+    End Class
+
+    Public Class GoodsAttribute
+        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 packs_attributes As PacksAttribute()
+        Public Property documents_attributes As DocumentsAttribute()
+        Public Property produced_documents_attributes As ProducedDocumentsAttribute()
+        Public Property additional_codes_attributes As AdditionalCodesAttribute()
+    End Class
+
+    Public Class PartiesAttribute
+        Public Property party_role As String
+        Public Property party_code As String
+        Public Property eori_code As String
+    End Class
+
+    Public Class TraderAdditionsAttribute
+        Public Property code As String
+        Public Property amount As Integer
+        Public Property curr As String
+        Public Property rate_code As Integer
+    End Class
+
+    Public Class DeclarationData
+        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 goods_attributes As GoodsAttribute()
+        Public Property parties_attributes As PartiesAttribute()
+        Public Property trader_additions_attributes As TraderAdditionsAttribute()
+    End Class
+
+    Public Class CustomsDeclaration
+        Public Property declaration_data As DeclarationData
+    End Class
+
+End Class

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -197,6 +197,8 @@ Public Class cDATENSERVER
         s = s.Replace("ı", "i")
         s = s.Replace("€", "E")
         s = s.Replace(",", ".")
+        s = s.Replace("'", "")
+        s = s.Replace("´", "")
         s = s.Replace("^", "") ' Es gibt Ü, die so geschreiben werden: Ü ....
         s = s.Replace("Ì", ".")
         s = s.Replace("Ü", "U") ' .... das zum Beispiel

VERAG_PROG_ALLGEMEIN/Schnittstellen/cNorsware.vb

@@ -301,7 +301,7 @@ Public Class cNorsware
 
         Dim positions As Chilkat.JsonArray = json.ArrayOf("entityIslenmisVeriEk")
         If (json.LastMethodSuccess = False) Then
-            'Return "positions not found."
+            Return "positions not found."
         End If
 
         Dim numPositions As Integer = positions.Size

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -366,6 +366,7 @@
     <Compile Include="Classes\cNCTS_TR_Nachrichten.vb" />
     <Compile Include="Classes\cOffene_Posten.vb" />
     <Compile Include="Classes\cOffene_Posten_DVO.vb" />
+    <Compile Include="Classes\cOregonNCTSDeclarations.vb" />
     <Compile Include="Classes\cParameter.vb" />
     <Compile Include="Classes\cProgrammeUpdate.vb" />
     <Compile Include="Classes\cQSTeam.vb" />