edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.Designer.vb generated Normal file
View File

@@ -0,0 +1,88 @@
'' ------------------------------------------------------------------------------
'' <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>
'' </auto-generated>
'' ------------------------------------------------------------------------------
Imports System
Imports System.Diagnostics
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Collections.Generic
Namespace MIC_EXPORT_Basic
<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/>
E
'''<remarks/>
B
'''<remarks/>
I
'''<remarks/>
X
'''<remarks/>
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/>
<System.Xml.Serialization.XmlEnumAttribute("1")>
Item1
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("0")>
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/>
EX
'''<remarks/>
DT
'''<remarks/>
AE
'''<remarks/>
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/>
V
'''<remarks/>
Q
End Enum
End Namespace

1122
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportBasicTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

9501
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3721
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportComponents.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

4333
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3907
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportInvoiceTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

2348
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1862
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustExportShipment.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

18285
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

11393
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportInvoiceTypes.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

2510
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1815
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicCustImportShipment.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

1287
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

138
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicErrorWarningMessage.xsd Normal file
View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2011 rel. 3 sp1 (x64) (http://www.altova.com) von MIC Datenverarbeitung GmbH (MIC Datenverarbeitung GmbH) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:element name="ErrorMessages">
<xs:complexType>
<xs:sequence>
<xs:element ref="ErrorMessage" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WarningMessages">
<xs:complexType>
<xs:sequence>
<xs:element ref="WarningMessage" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="WarningMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Warning message used for all occurred warnings and minor exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="ErrorMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Error message used for all occurred exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="FaultMessage" type="TErrorMessageType">
<xs:annotation>
<xs:documentation>Fault message used for all occurred fault exceptions</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="TErrorDetail">
<xs:annotation>
<xs:documentation>Contains details to an error message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="timestamp" type="xs:dateTime"/>
<xs:element name="stackTrace" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Stacktrace from Exception</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="additionalDetails" minOccurs="0" maxOccurs="unbounded">
<xs:annotation>
<xs:documentation>Additional error details</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:attribute name="type" type="xs:string" use="required"/>
<xs:attribute name="key" type="xs:string" use="required"/>
<xs:attribute name="value" type="xs:string" use="required"/>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TErrorMessageType">
<xs:annotation>
<xs:documentation>General error type used for error messages</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="module" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC Module where the error occured</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="process" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Process inside the MIC module where the error occured</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="errorCode" type="xs:string">
<xs:annotation>
<xs:documentation>Error code to identify error </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="errorDesc" type="xs:string">
<xs:annotation>
<xs:documentation>Description of the occurred exception</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="Reference" type="TReference" minOccurs="0"/>
<xs:element name="Details" type="TErrorDetail" minOccurs="0">
<xs:annotation>
<xs:documentation>More detailed information about the error</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TReference">
<xs:sequence>
<xs:element name="company" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC company</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="plant" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC plant</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="correlationId" minOccurs="0">
<xs:annotation>
<xs:documentation>Unique reference number generated in MIC </xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="255"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="referenceType" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference type used in MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceSid" type="xs:long" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference sid used MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="user" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC user</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="partnerId" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Partner ID used in MIC</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="routeId" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>ID of route where error is occurred</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:schema>

32
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustExportShipment.xsd Normal file
View File

@@ -0,0 +1,32 @@
<?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"/>
<!--===== 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">
<xs:annotation>
<xs:documentation>Message for inserting MIC CUST ExportShipment</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="ExportShipmentMessage"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<!--elements which should be used for operations-->
<xs:element name="ExportShipmentMessage" type="TExportShipMsg"/>
<xs:element name="StatusResponse" type="meta:TStatusResponse"/>
<!-- types which include the MIC standard message details, eg messageID, transactionID, ActionCode,... and links it with the actual structure-->
<xs:complexType name="TExportShipMsg">
<xs:annotation>
<xs:documentation>MIC request message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="meta:Metadata"/>
<xs:element ref="meta:MessageDetail"/>
<xs:element ref="ExportShipment"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

32
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetaCustImportShipment.xsd Normal file
View File

@@ -0,0 +1,32 @@
<?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"/>
<!--===== 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">
<xs:annotation>
<xs:documentation>Message for inserting MIC CUST ImportShipment</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="ImportShipmentMessage"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<!--elements which should be used for operations-->
<xs:element name="ImportShipmentMessage" type="TImportShipMsg"/>
<xs:element name="StatusResponse" type="meta:TStatusResponse"/>
<!-- types which include the MIC standard message details, eg messageID, transactionID, ActionCode,... and links it with the actual structure-->
<xs:complexType name="TImportShipMsg">
<xs:annotation>
<xs:documentation>MIC request message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="meta:Metadata"/>
<xs:element ref="meta:MessageDetail"/>
<xs:element ref="ImportShipment"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

1681
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

215
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/MicMetadata.xsd Normal file
View File

@@ -0,0 +1,215 @@
<!-- Mit XMLSpy v2011 rel. 3 sp1 (x64) (http://www.altova.com) von MIC Datenverarbeitung GmbH (MIC Datenverarbeitung GmbH) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:http://www.mic-cust.com/MicMetadata/5.2" xmlns:err="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" targetNamespace="urn:http://www.mic-cust.com/MicMetadata/5.2" elementFormDefault="qualified" attributeFormDefault="unqualified">
<xs:import namespace="urn:http://www.mic-cust.com/MicErrorWarningMessage/5.2" schemaLocation="MicErrorWarningMessage.xsd"/>
<xs:element name="Metadata" type="TMicMetadata"/>
<xs:element name="MessageDetail" type="TMessageDetail"/>
<xs:element name="Status" type="TStatus"/>
<xs:complexType name="TMicMetadata">
<xs:annotation>
<xs:documentation>Details of the connection to the ERP-System</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="connectionId" type="TConnectionId"/>
<xs:element name="partnerId" type="TPartnerId">
<xs:annotation>
<xs:documentation>The partner ID is a unique ID provided by the MIC-System and classify the ERP-System of the customer. This information is given by MIC.</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="dateTime" type="xs:dateTime">
<xs:annotation>
<xs:documentation>Creation date/time of the message in the ERP-System</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TActionCode">
<xs:annotation>
<xs:documentation> Action Requested for automatic processing</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="code">
<xs:annotation>
<xs:documentation>Action code for automatic processing</xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="parameter" minOccurs="0" maxOccurs="unbounded">
<xs:annotation>
<xs:documentation>additional parameters</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:attribute name="key" use="required"/>
<xs:attribute name="value" use="required"/>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TMessageDetail">
<xs:annotation>
<xs:documentation>MIC Interface Message Envelope: description of the single message</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element name="messageId" type="TMessageId">
<xs:annotation>
<xs:documentation>Unique Message ID</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="partyId" type="TPartyId">
<xs:annotation>
<xs:documentation>Party ID is used as a separations of departments or single message groups</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="transactionId" type="TTransactionId">
<xs:annotation>
<xs:documentation>Unique Identifier of a transaction (declaration) e.g. MRN or LRN</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="sequenceNum" type="TSequenceNum">
<xs:annotation>
<xs:documentation>Running number of the transaction Id</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="ActionCode" type="TActionCode" minOccurs="0">
<xs:annotation>
<xs:documentation>The ActionCode definies the autmoatic process in the MIC-Application. </xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:element name="StatusMessage">
<xs:annotation>
<xs:documentation>Status message with Metadata and MessageDetail</xs:documentation>
</xs:annotation>
<xs:complexType>
<xs:sequence>
<xs:element ref="Metadata"/>
<xs:element ref="MessageDetail"/>
<xs:element ref="Status">
<xs:annotation>
<xs:documentation>Set of Messages</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:complexType name="TStatusResponse">
<xs:annotation>
<xs:documentation>Status response message used for synchronous answers</xs:documentation>
</xs:annotation>
<xs:sequence>
<xs:element ref="Status">
<xs:annotation>
<xs:documentation>Set of Messages</xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TStatus">
<xs:sequence>
<xs:element name="status">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="OK"/>
<xs:enumeration value="ERROR"/>
<xs:enumeration value="WARNING"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:choice>
<xs:element name="Reference" type="TMetaReference"/>
<xs:element ref="err:ErrorMessages" minOccurs="0"/>
<xs:element ref="err:WarningMessages" minOccurs="0"/>
</xs:choice>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TMetaReference">
<xs:sequence>
<xs:element name="correlationId" minOccurs="0">
<xs:annotation>
<xs:documentation>Unique reference number generated in MIC </xs:documentation>
</xs:annotation>
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="255"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="company" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC company</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="plant" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>MIC plant</xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceType" type="xs:string" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference type used in MIC </xs:documentation>
</xs:annotation>
</xs:element>
<xs:element name="referenceSid" type="xs:long" minOccurs="0">
<xs:annotation>
<xs:documentation>Reference sid used MIC </xs:documentation>
</xs:annotation>
</xs:element>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="TTransactionId">
<xs:annotation>
<xs:documentation> Envelope:Unique transaction ID used for communication with EDIS webservice</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TSequenceNum">
<xs:annotation>
<xs:documentation> Envelope:running count </xs:documentation>
</xs:annotation>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
<xs:simpleType name="TMessageId">
<xs:annotation>
<xs:documentation>envelope:Unique Message ID used for communication in message envelope</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:minLength value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TPartyId">
<xs:annotation>
<xs:documentation> Envelope: communication pary</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TPartnerId">
<xs:annotation>
<xs:documentation> Envelope: communication partner</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:minLength value="1"/>
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="TConnectionId">
<xs:annotation>
<xs:documentation>Connection ID of the MIC-Webservice</xs:documentation>
</xs:annotation>
<xs:restriction base="xs:string">
<xs:maxLength value="40"/>
<xs:minLength value="1"/>
</xs:restriction>
</xs:simpleType>
</xs:schema>

254
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb Normal file
View File

@@ -0,0 +1,254 @@
Public Class cMIC
Shared Sub send_MIC_AvisoSendung(AVISO As cAviso, SENDUNG As cSendungen, Optional sendWOQ As Boolean = False, Optional showBezugsNr As Boolean = False)
If sendWOQ OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC Software möglich.", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
If AVISO IsNot Nothing And SENDUNG IsNot Nothing Then
If SENDUNG.FilialenNr < 1000 Then MsgBox("Keine Filialen-Nummer!")
If SENDUNG.AbfertigungsNr < 1000 Then MsgBox("Keine Abfertigungs-Nummer!")
Dim BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
If showBezugsNr Then
BezugsNr = InputBox("MIC Bezugsnummer:", "MIC", BezugsNr)
End If
Dim saveFile = ""
If generateIMPORT(AVISO, SENDUNG, saveFile, BezugsNr) Then
If saveFile <> "" Then
Process.Start(saveFile)
'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
' MsgBox("Sendefehler!")
'End If
End If
End If
End If
End If
End Sub
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner
If KdNr > 0 Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
Dim AD As New cAdressen(KdNr)
Dim KD As New cKunde(KdNr)
PARTNER.partnerType = Type
PARTNER.PartnerAddress.addrName.Add(AD.Name_1)
If If(AD.Name_2, "") <> "" Then PARTNER.PartnerAddress.addrName.Add(AD.Name_2)
PARTNER.PartnerAddress.addrStreet = AD.Straße
PARTNER.PartnerAddress.addrZip = AD.PLZ
PARTNER.PartnerAddress.addrLoc = AD.Ort
PARTNER.PartnerAddress.addrCtry = cProgramFunctions.getISO2Land(AD.LandKz)
PARTNER.PartnerAddress.addrEori = KD.EORITIN
PARTNER.PartnerAddress.addrTin = KD.EORITIN
Return PARTNER
ElseIf If(NameText, "") <> "" Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
PARTNER.partnerType = Type
PARTNER.PartnerAddress.addrName.Add(NameText)
Return PARTNER
End If
Return Nothing
End Function
Shared Function generateNCTS(cDY As cNCTS_TR, ByRef saveFile As String, BezugsNr As String) As Boolean 'DY_ACTION As String) As Boolean
Try
'Dim Interface_VERSION = "003"
'Dim ObjectAktion = DY_ACTION
Dim XML As New MIC_EXPORT_Shipment.ExportShipment
'Transaktion:
XML.ShipmentHead.company = "VERAG"
XML.ShipmentHead.plant = "GB/01"
XML.ShipmentHead.shipmentId = BezugsNr
saveFile = getDefaultFolder_SEND("NCTS") & "MIC_NCTS_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
'Dim saveDir = "\\share01\Datenarchiv\MIC\SEND\"
'If Not System.IO.Directory.Exists(saveDir) Then
' System.IO.Directory.CreateDirectory(saveDir)
'End If
'saveFile = saveDir & "MIC_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'MsgBox(saveFile)
XML.SaveToFile(saveFile)
replaceNullDateXML(saveFile)
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
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
'XML.schemaVersion =
XML.Shipment.company = "VERAG"
XML.Shipment.plant = "GB/01"
XML.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.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
Dim INV As New MIC_IMPORT_Invoice.TInvoice
Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine
Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "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)
INV.InvoiceLines.Add(ILN)
XML.Invoice.Add(INV)
Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText()
CF_BezugsNr.key = 1
CF_BezugsNr.value = BezugsNr
XML.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
saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
'MsgBox(saveFile)
XML.SaveToFile(saveFile)
replaceNullDateXML(saveFile)
Return True
End Function
Shared Sub replaceNullDateXML(XMLFile As String)
Try
If Not System.IO.File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = System.IO.File.ReadAllLines(XMLFile)
Using writer = New System.IO.StreamWriter(XMLFile, False)
For Each line In lines
If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
Next
End Using
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Shared Function getDefaultFolder_SEND(pathType As String) As String
' pathType: IMPORT
' pathType: EXPORT
' pathType: TRANSIT
Try
getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "MIC\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Zolldaten\" & pathType & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex As Exception
Try
getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex2 As Exception
MsgBox(ex2.Message & ex2.StackTrace)
getDefaultFolder_SEND = ""
End Try
End Try
End Function
Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
'Try
' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
' MsgBox("Sie haben keine Sendeberechtigung.")
' Return False
' End If
' If Not IO.File.Exists(file) Then Return False
' Dim F As New System.IO.FileInfo(file)
' Dim DY_server = ""
' Dim DY_name = ""
' Dim DY_pwd = ""
' Dim DY_port = ""
' Dim DY_PFAD_IN = ""
' Dim DY_PFAD_IN_KD = ""
' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
' Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' 'client.Create(file, file)
' client.ChangeDirectory(DY_PFAD_IN)
' If IO.File.Exists(file) Then
' 'MsgBox(file)
' Using uplfileStream = System.IO.File.OpenRead(file)
' client.UploadFile(uplfileStream, "." & F.Name, True)
' client.RenameFile("." & F.Name, F.Name)
' End Using
' client.Disconnect()
' Else
' MsgBox("Sendedatei nicht gefunden!")
' End If
' End Using
' 'Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen
' 'STATUS.dySt_BezugsNr = dySt_BezugsNr
' 'STATUS.dySt_artMitteilung = "VERAG_SND"
' 'STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
' 'STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03
' ''STATUS.dySt_ergCode = "ANR"
' 'STATUS.dySt_ergCode = "SND"
' 'STATUS.dySt_ergMitteilung = "An Dakosy gesendet"
' 'STATUS.dySt_ergZeitpunkt = Now
' 'STATUS.dySt_dyId = dy_Id
' 'STATUS.SAVE()
' Return True
'Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
'End Try
End Function
End Class

1543
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMICInterface.vb Normal file
View File

File diff suppressed because it is too large Load Diff