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

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb
View File

@@ -146,7 +146,7 @@ Public Class GOOITEGD
Public Property PRODOCDC2 As PRODOCDC2()
Public Property PREADMREFAR2 As PREADMREFAR2
Public Property CONNR2 As CONNR2()
Public Property PACGS2 As PACGS2
Public Property PACGS2 As PACGS2()
Public Property CouOfDesGDS59 As String
Public Property CouOfDisGDS58 As String
Public Property TRACONCO2 As String

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

112
VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb Normal file
View File

@@ -0,0 +1,112 @@
Public Class cNCTS_Helper
Shared Function getXLS_FremdBRG(_COMPANY As String, _BRG_TEXT As String, _BRG_VALUE As String, datVon As Date, datBis As Date, _EZOLL As Boolean) As String 'MyComboBox1._value ,cboBRG.TEXT,_BRG_VALUE,datVon.Value ,datBis.Value.ToShortDateString ,cbxEZollDaten.Checked
Try
Dim SQL As New SQL
' lblErr.Visible = False
If _BRG_VALUE = "" Then Return ""
Dim where = ""
Select Case _COMPANY
Case "IMEX" : where = " and ncts_firma = 'IMEX' "
Case "UNISPED" : where = " and ncts_firma = 'UNISPED' "
Case "VERAG/ATILLA" : where = " and (ncts_firma is null OR ncts_firma IN ('VERAG','ATILLA','DURMAZ','FRONTOFFICE')) "
End Select
'DAKOSY:
Dim sqlatr = " SELECT (SELECT TOP 1 CONVERT(varchar, [dySt_ergZeitpunkt] ,104 ) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 ) as Datum, ncts_Befoerderungsmittel_KennzeichenAbgang as Kennzeichen, isnull(ncts_MRN,'') as MRN, ncts_SumA_Befoerderer_Land as Land, nctsSA_AbgabenBetrag as GarantieBetrag, ncts_SumA_Befoerderer_Name as Firma " &
" " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(ncts_BestimmungsstelleDienststellennummer,'') as Bestimmungsstelle ", "") & " " &
" ,ncts_ObjectName as Bezugsnummer " &
"FROM [tblDakosy_NCTSOut] INNER JOIN [tblDakosy_NCTSOut_Sicherheitsangaben] on ncts_Id=[nctsSA_NctsId] "
sqlatr &= " WHERE nctsSA_GRN IN (" & _BRG_VALUE & ") and ncts_Status between 50 and 60 " ' CONVERT(date, ncts_Trans_DatumZeit ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'"
sqlatr &= where
sqlatr &= " AND (SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 AND CONVERT(date, [dySt_ergZeitpunkt] ,104 ) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "')>0 "
Dim dt As DataTable = SQL.loadDgvBySql(sqlatr, "FMZOLL", 120)
'Bei IMEX kein E-ZOLL
If _COMPANY = "VERAG/ATILLA" Then
If _EZOLL Then
'EZOLL:
sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma "
sqlatr &= " " & If(_BRG_TEXT.Contains("TOBB") Or _BRG_TEXT.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " "
sqlatr &= " ,LRN as Bezugsnummer "
sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung "
sqlatr &= " WHERE GRN IN (" & _BRG_VALUE & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
Dim dt2 As DataTable = SQL.loadDgvBySql(sqlatr, "EZOLL", 120)
If dt Is Nothing Then
dt = dt2
Else
'zusammenführen:
If dt2 IsNot Nothing Then
dt.Merge(dt2, True, MissingSchemaAction.Add)
'For Each r As DataRow In dt2.Rows
' dt.Rows.Add(r)
'Next
End If
End If
End If
End If
If dt Is Nothing OrElse dt.Rows.Count = 0 Then Return "NO_RESULT" 'lblErr.Visible = True :
getEmptyFraechter(dt)
dt.Columns.Remove("Bezugsnummer")
Dim optfileName = "NCTS_TOBB_" & datVon.ToShortDateString & "-" & datBis.ToShortDateString
Return cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)}, , "Bürgschaftsbuchungen " & _BRG_TEXT, "Datum: " & Now.ToShortDateString, False, optfileName)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return ""
End Try
End Function
Shared Sub getEmptyFraechter(ByRef dt As DataTable)
Dim SQL As New SQL
If dt IsNot Nothing Then
For Each r In dt.Rows
Try
If r("Firma") Is DBNull.Value OrElse r("Firma") = "" Then
Dim Bezugsnummer = If(r("Bezugsnummer"), "")
Dim FirmaTmp = ""
Dim FirmaNat = ""
Dim FirmaTmpKdNR = SQL.DLookup("isnull([FrachtführerKundenNr],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
If IsNumeric(FirmaTmpKdNR) Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(FirmaTmpKdNR)
If AD.hasEntry Then
FirmaTmp = AD.Name_1
FirmaNat = AD.LandKz
End If
Else
FirmaTmp = SQL.DLookup("isnull([Frachtführer],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL")
End If
If FirmaTmp.ToString.Contains(";") Then FirmaTmp = FirmaTmp.ToString.Split(";")(0)
If FirmaTmp.Length > 30 Then
FirmaTmp = FirmaTmp.ToString.Substring(0, 30)
End If
r("Firma") = FirmaTmp
r("Land") = FirmaNat
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
End If
End Sub
End Class

23
VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb
View File

@@ -10,7 +10,11 @@ Public Class cTherefore
Case 7
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
Case 21,22,23
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED DE",, deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "UNISPED\Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED", "Import ab Jänner 2021 UNISPED DE", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021 UNISPED_DE", "UNISPED Zollakten", deleteFileAfterImport)
'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, 394, 394, deleteFileAfterImport)
Case 1, 11, 20, 17 ', 15
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
@@ -50,13 +54,24 @@ Public Class cTherefore
'indexData("Eingabedatum") = Now.ToShortDateString
'indexData("LKW_ID") = AvisoId
' MsgBox(doc.IndexData.Count)
'MsgBox(doc.IndexData.Count)
' 7. Archive the document
'Dim docNo As Integer = doc.Archive(server, 0)
'Dim docNo As Integer = 0
'Dim filenameNEW As String = doc.Retrieve(docNo, "", server)
Dim TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
Dim TableName = ""
If IsNumeric(Category) Then
TableName = "TheCat" & Category
If SQL.getValueTxtBySql("SELECT count(*) FROM [TheCategory] WHERE TableName='" & TableName & "'", "SCANCANON",,, "") = 0 Then
MsgBox("Therefore: Tabelle nicht gefunden: " & TableName)
Return False
End If
Else
TableName = SQL.getValueTxtBySql("SELECT TOP 1 [TableName] FROM [TheCategory] WHERE Title='" & Category & "'", "SCANCANON",,, "")
End If
Dim docNo As Integer = SQL.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM " & TableName & " WHERE [String] LIKE '" & FilialeAbfertigungsNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON",,, -1)
' MsgBox("docNo: " & docNo)
Dim filename As String = ""
If docNo <= 0 Then
doc.Create(filename)
@@ -86,7 +101,7 @@ Public Class cTherefore
doc.Close()
' 9. Delete the temporary file
If deleteFileAfterImport Then System.IO.File.Delete(filename)
If deleteFileAfterImport Then System.IO.File.Delete(filename)
' 10. Optional: Print a success message on the console
' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")