MIC, Fahrerdata, Formulare(VM),divers
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
'' ------------------------------------------------------------------------------
|
||||
'' <auto-generated>
|
||||
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
|
||||
'' <NameSpace>MIC_EXPORT_Basic</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
|
||||
'' Generated by Xsd2Code. Version 3.4.1.33667 Microsoft Reciprocal License (Ms-RL)
|
||||
'' <NameSpace>MicCustExportBasicTypes</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><EnableLazyLoading>False</EnableLazyLoading><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><VirtualProp>False</VirtualProp><IncludeSerializeMethod>True</IncludeSerializeMethod><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><CodeBaseTag>Net40</CodeBaseTag><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><GenerateXMLAttributes>False</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableEncoding>False</EnableEncoding><AutomaticProperties>False</AutomaticProperties><GenerateShouldSerialize>False</GenerateShouldSerialize><DisableDebug>False</DisableDebug><PropNameSpecified>Default</PropNameSpecified><Encoder>UTF8</Encoder><CustomUsings></CustomUsings><ExcludeIncludedTypes>False</ExcludeIncludedTypes><EnableInitializeFields>True</EnableInitializeFields>
|
||||
'' </auto-generated>
|
||||
'' ------------------------------------------------------------------------------
|
||||
Imports System
|
||||
@@ -12,15 +12,10 @@ Imports System.Xml.Schema
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Namespace MIC_EXPORT_Basic
|
||||
Namespace MicCustExportBasicTypes
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum ShipmentType
|
||||
|
||||
'''<remarks/>
|
||||
@@ -39,10 +34,6 @@ Namespace MIC_EXPORT_Basic
|
||||
N
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum ContainerCode
|
||||
|
||||
'''<remarks/>
|
||||
@@ -54,10 +45,6 @@ Namespace MIC_EXPORT_Basic
|
||||
Item0
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum PartnerTyp
|
||||
|
||||
'''<remarks/>
|
||||
@@ -73,10 +60,6 @@ Namespace MIC_EXPORT_Basic
|
||||
EV
|
||||
End Enum
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
|
||||
System.SerializableAttribute(),
|
||||
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2"),
|
||||
System.Xml.Serialization.XmlRootAttribute([Namespace]:="urn:http://www.mic-cust.com/MicCustExportShipment/6.2", IsNullable:=False)>
|
||||
Public Enum AddCostsSplitType
|
||||
|
||||
'''<remarks/>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
15841
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.designer.vb
generated
Normal file
15841
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1,8 +1,8 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustExportShipment/6.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
|
||||
<xs:include schemaLocation="MicCustExportShipment.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="MicMetadata.xsd"/>
|
||||
<!--===== Data Groups Declarations =====-->
|
||||
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
|
||||
<xs:element name="InsertExportShipment">
|
||||
|
||||
20141
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.designer.vb
generated
Normal file
20141
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1,8 +1,8 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" xmlns:meta="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:error="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicCustImportShipment/6.1" elementFormDefault="qualified" attributeFormDefault="unqualified">
|
||||
<xs:include schemaLocation="MicCustImportShipment.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="http://www.mic-cust.com/MicMetadata/MicMetadata.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
|
||||
<xs:import namespace="urn:http://www.mic-cust.com/MicMetadata/5.2" schemaLocation="MicMetadata.xsd"/>
|
||||
<!--===== Data Groups Declarations =====-->
|
||||
<!-- actual request/response types, describes the data which may be sent as response, you should define a response type for each webservice operation / business process-->
|
||||
<xs:element name="InsertImportShipment">
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -31,10 +31,10 @@
|
||||
|
||||
|
||||
|
||||
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner
|
||||
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT.TPartner
|
||||
|
||||
If KdNr > 0 Then
|
||||
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
|
||||
Dim PARTNER As New MIC_IMPORT.TPartner
|
||||
Dim AD As New cAdressen(KdNr)
|
||||
Dim KD As New cKunde(KdNr)
|
||||
PARTNER.partnerType = Type
|
||||
@@ -48,7 +48,7 @@
|
||||
PARTNER.PartnerAddress.addrTin = KD.EORITIN
|
||||
Return PARTNER
|
||||
ElseIf If(NameText, "") <> "" Then
|
||||
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
|
||||
Dim PARTNER As New MIC_IMPORT.TPartner
|
||||
PARTNER.partnerType = Type
|
||||
PARTNER.PartnerAddress.addrName.Add(NameText)
|
||||
Return PARTNER
|
||||
@@ -63,7 +63,7 @@
|
||||
'Dim Interface_VERSION = "003"
|
||||
'Dim ObjectAktion = DY_ACTION
|
||||
|
||||
Dim XML As New MIC_EXPORT_Shipment.ExportShipment
|
||||
Dim XML As New MIC_EXPORT.ExportShipment
|
||||
'Transaktion:
|
||||
XML.ShipmentHead.company = "VERAG"
|
||||
XML.ShipmentHead.plant = "GB/01"
|
||||
@@ -98,48 +98,50 @@
|
||||
Shared Function generateIMPORT(AVISO As cAviso, SENDUNG As cSendungen, ByRef saveFile As String, ByRef BezugsNr As String) As Boolean
|
||||
Dim Interface_VERSION = "000"
|
||||
|
||||
Dim XML As New MIC_IMPORT.ImportShipment
|
||||
Dim XML As New MIC_IMPORT.InsertImportShipment
|
||||
|
||||
Dim XML_IMP = XML.ImportShipmentMessage.ImportShipment
|
||||
'XML.schemaVersion =
|
||||
|
||||
XML.Shipment.company = "VERAG"
|
||||
XML.Shipment.plant = "GB/01"
|
||||
XML.Shipment.shipmentId = BezugsNr
|
||||
XML_IMP.Shipment.company = "VERAG"
|
||||
XML_IMP.Shipment.plant = "GB/01"
|
||||
XML_IMP.Shipment.shipmentId = BezugsNr
|
||||
|
||||
XML.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
|
||||
XML.Shipment.ShipmentHead.customsDate = Now
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
|
||||
XML_IMP.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
|
||||
XML_IMP.Shipment.ShipmentHead.customsDate = Now
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML_IMP.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
|
||||
'XML.Shipment.ShipmentHead.departurePlace = Now
|
||||
XML.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
|
||||
XML.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
|
||||
XML_IMP.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
|
||||
XML_IMP.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
|
||||
|
||||
Dim INV As New MIC_IMPORT_Invoice.TInvoice
|
||||
Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine
|
||||
Dim INV As New MIC_IMPORT.TInvoice
|
||||
|
||||
Dim ILN As New MIC_IMPORT.TInvoiceLine
|
||||
|
||||
Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "IM")
|
||||
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
|
||||
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
|
||||
|
||||
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
|
||||
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
|
||||
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
|
||||
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
|
||||
|
||||
INV.InvoiceLines.Add(ILN)
|
||||
INV.InvoiceLines.Add(ILN)
|
||||
|
||||
XML.Invoice.Add(INV)
|
||||
XML_IMP.Invoice.Add(INV)
|
||||
|
||||
|
||||
Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText()
|
||||
Dim CF_BezugsNr = New MIC_IMPORT.TCustomerText()
|
||||
CF_BezugsNr.key = 1
|
||||
CF_BezugsNr.value = BezugsNr
|
||||
XML.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
|
||||
CF_BezugsNr.value = BezugsNr
|
||||
XML_IMP.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
|
||||
|
||||
XML.Shipment.ShipmentHead.countryDestination = "UK"
|
||||
XML.Shipment.ShipmentHead.creationDate = Now
|
||||
XML.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
|
||||
XML_IMP.Shipment.ShipmentHead.countryDestination = "UK"
|
||||
XML_IMP.Shipment.ShipmentHead.creationDate = Now
|
||||
XML_IMP.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML_IMP.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
|
||||
|
||||
|
||||
saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
|
||||
Reference in New Issue
Block a user