neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -0,0 +1,275 @@
+Imports SDL.at.gv.bmf.finanzonlineLogin
+
+
+' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
+' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!!
+
+Public Class cFinanzOnlineWebService
+    ' Private tid As String = My.Resources.tid
+    ' Private benid As String = My.Resources.benid
+    '  Private pin As String = My.Resources.pin
+
+    ' 'VERAG:
+    'Shared tid As String = "1000103u3032"
+    'Shared benid As String = "webserv99"
+    'Shared pin As String = "webserv99"
+    'Shared uid As String = "ATU53187000"
+
+    ' 'VERAG CS:
+    'Shared tid As String = "19379933"
+    'Shared benid As String = "WEBserv99"
+    'Shared pin As String = "WEBserv99"
+    'Shared uid As String = "XXXX"
+
+
+    ''FRONT-Office:
+    'Shared tid As String = "67493371k039"
+    'Shared benid As String = "WEBserv99"
+    'Shared pin As String = "WEBserv99"
+    'Shared uid As String = "ATU74813856"
+
+
+    'IMEX:
+    Shared tid As String = "19435107n654"
+    Shared benid As String = "WEBserv99"
+    Shared pin As String = "WEBserv99"
+    Shared uid As String = "ATU68490714"
+
+
+    Public SESSION_ID As String = ""
+
+    Sub initValues()
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX"
+                tid = "19435107n654"
+                benid = "WEBserv99"
+                pin = "WEBserv99"
+                uid = "ATU68490714"
+            Case "FRONTOFFICE"
+                tid = "67493371k039"
+                benid = "WEBserv99"
+                pin = "WEBserv99"
+                uid = "ATU74813856"
+            Case "UNISPED"
+                tid = "18778752z632"
+                benid = "Webmaster1"
+                pin = "Webmaster1"
+                uid = "ATU67001200"
+            Case Else  'VERAG:
+                tid = "13390891m005"
+                benid = "WEBserv99"
+                pin = "WEBserv99"
+                uid = "ATU53187000"
+                'tid = "1000103u3032"
+                'benid = "webserv99"
+                'pin = "webserv99"
+                'uid = "ATU53187000"
+        End Select
+    End Sub
+
+
+
+
+    Function Call_Web_Service_MethodUID_Login_NEU2020() As Integer
+        Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
+        Try
+            Dim rc As Integer = -1
+            Dim msg = ""
+
+            SESSION_ID = CallWebService.login(tid, benid, pin, uid, rc, msg)
+
+            Return rc
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return -99
+    End Function
+
+
+
+
+    Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
+        Dim AD As New cAdressen(ba_KundenNr)
+        If AD IsNot Nothing Then
+            If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
+                Try
+                    If AskIfDouble Then
+                        If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
+                            If vbYes <> MsgBox("Die UID-Nummer wurde heute bereits geprüft. Soll die Prüfung nochmal durchgeführt werden?", vbYesNoCancel) Then
+                                Return Nothing
+                            End If
+                        End If
+                    End If
+
+                    Dim tmp_SESSION_ID = SESSION_ID
+                    Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
+
+                    Dim msg As String = ""
+                    Dim name As String = ""
+                    Dim adrz1 As String = ""
+                    Dim adrz2 As String = ""
+                    Dim adrz3 As String = ""
+                    Dim adrz4 As String = ""
+                    Dim adrz5 As String = ""
+                    Dim adrz6 As String = ""
+                    Dim countryCode As String = AD.UstIdKz
+                    Dim vatNumber As String = AD.UstIdNr
+
+                    Dim StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
+                    Select Case Stufe
+                        Case 1
+                            StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
+                        Case 2
+                            StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2
+                    End Select
+
+                    Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
+
+                    If returnInt = 0 Or returnInt = 1 Then
+
+                        Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
+
+                        UID_TMP.uid_Datum = Now
+                        UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                        If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
+                        UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                        UID_TMP.uid_valid = (returnInt = 0)
+                        UID_TMP.uid_KundenNr = ba_KundenNr
+
+
+                        UID_TMP.uid_UstIdKz = countryCode
+                        UID_TMP.uid_UstIdNr = vatNumber
+
+                        UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
+                        UID_TMP.uid_abfrageUid = uid
+                        UID_TMP.uid_sessionId = tmp_SESSION_ID
+
+                        UID_TMP.uid_firma = name
+                        UID_TMP.uid_adr1 = adrz1
+                        UID_TMP.uid_adr2 = adrz2
+                        UID_TMP.uid_adr3 = adrz3
+                        UID_TMP.uid_adr4 = adrz4
+                        UID_TMP.uid_adr5 = adrz5
+                        UID_TMP.uid_adr6 = adrz6
+
+                        UID_TMP.uid_stufe = Stufe
+
+                        UID_TMP.SAVE()
+                        If (returnInt = 0) Then 'OK
+                            If SaveErgInAdressen Then
+                                AD.UstIdGeprüft = Now.ToShortDateString
+                                AD.SAVE()
+                            End If
+
+                        End If
+                        Return UID_TMP
+                    End If
+                Catch ex As Exception
+                    If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+                    '  Call_Web_Service_MethodUID_Logout_NEU2020()
+                End Try
+            End If
+        End If
+
+
+
+        'If returnInt = 0 Then
+        '    Firma = name & vbNewLine & adrz1
+        '    If adrz2 <> "" Then Firma = Firma & vbNewLine & adrz2
+        '    If adrz3 <> "" Then Firma = Firma & vbNewLine & adrz3
+        '    If adrz4 <> "" Then Firma = Firma & vbNewLine & adrz4
+        '    If adrz5 <> "" Then Firma = Firma & vbNewLine & adrz5
+        '    If adrz6 <> "" Then Firma = Firma & vbNewLine & adrz6
+
+        '    '  frmUIDCheck.firmaUIDFinanzOnline = firma
+        '    ' frmUIDCheck.firmaUIDProgramm = txtFirma
+        '    ' frmUIDCheck.uidnr = txtUid
+        '    ' frmUIDCheck.Show()
+
+
+        'Else
+        '    MsgBox(GetCodeText(returnInt))
+        'End If
+        '  msgErgebnis = msg
+        '   Call_Web_Service_MethodUID_Logout_NEU2020()
+
+
+        Return Nothing
+    End Function
+
+    Function GetUIDLand(uid As String)
+        If uid.Length > 2 Then
+            Return uid.Substring(0, 2)
+        End If
+        'Dim uidLand = ""
+        'For Each s In uid
+        '    If IsNumeric(s) Then Return uidLand
+        '    uidLand &= s
+        'Next
+        'Return uidLand
+    End Function
+
+
+    Function GetUidNr(uid As String)
+        If uid.Length > 2 Then
+            Return uid.Substring(2, uid.Length - 2)
+        End If
+        'Dim uidLand = ""
+        'For Each s In uid
+        '    If IsNumeric(s) Then uidLand &= s
+        'Next
+        'Return uidLand
+
+    End Function
+    Function GetCodeText(rc As Integer)
+        Select Case rc
+            Case 0 : Return "Die UID des Erwerbers ist gültig."
+            Case -1 : Return "Die Session ID ist ungültig oder abgelaufen."
+            Case -2 : Return "Der Aufruf des Webservices ist derzeit wegen Wartungsarbeiten nicht möglich."
+            Case -3 : Return "Es ist ein technischer Fehler aufgetreten."
+            Case -4 : Return "Dieser Teilnehmer ist für diese Funktion nicht berechtigt."
+            Case 1 : Return "Die UID des Erwerbers ist nicht gültig."
+            Case 4 : Return "Die UID-Nummer des Erwerbers ist falsch."
+            Case 5 : Return "Die UID-Nummer des Antragstellers ist ungültig."
+            Case 10 : Return "Der angegebene Mitgliedstaat verbietet diese Abfrage."
+            Case 101 : Return "UID beginnt nicht mit ATU."
+            Case 103 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
+                    da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
+                    Aus technischen Gründen werden aus Tschechien keine Firmendaten angezeigt. Für
+                    eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
+                    http://adisreg.mfcr.cz die Daten der CZ-Umsatzsteuergruppe aufrufen und
+                    kontrollieren, ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe
+                    gehört.Bitte bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als
+                    Beleg gemäß § 132 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das
+                    Bestätigungsverfahren in Stufe 1 im FinanzOnline als auch das Gruppenregister im
+                    anderen Mitgliedsstaat laut o.a. Link zu konsultieren. Im Falle von Fragen wenden
+                    Sie sich bitte an Ihr zuständiges Finanzamt."
+            Case 104 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
+                    da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
+                    Aus technischen Gründen werden aus der Slowakei keine Firmendaten angezeigt.
+                    Für eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
+                    http://www.drsr.sk die Daten der SK-Umsatzsteuergruppe aufrufen und kontrollieren,
+                    ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe gehört. Bitte
+                    bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als Beleg gemäß §Bundesministerium für Finanzen Seite 3 von 3
+                    Stand: 27.10.2016 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das Bestätigungsverfahren In Stufe
+                    1 im FinanzOnline als auch das Gruppenregister im anderen Mitgliedsstaat laut o.a.
+                    Link zu konsultieren. Im Falle von Fragen wenden Sie sich bitte an Ihr zuständiges
+                    Finanzamt."
+            Case 105 : Return "Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
+            Case 1511 : Return "Der angegebene Mitgliedstaat ist derzeit nicht erreichbar"
+            Case Else : Return "Unbekannter Fehler:  " & rc
+        End Select
+    End Function
+    Function Call_Web_Service_MethodUID_Logout_NEU2020() As String
+        Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
+        Try
+            Dim msg = ""
+            Dim sGetValue As String = CallWebService.logout(tid, benid, SESSION_ID, msg)
+            Return sGetValue
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return ""
+    End Function
+End Class

VERAG_PROG_ALLGEMEIN/Schnittstellen/IDEV_Intrastat/instat6.2.xsd

@@ -0,0 +1,236 @@
+<?xml version = "1.0" encoding = "ISO-8859-1"?>
+<xsd:schema xmlns:xsd = "http://www.w3.org/2001/XMLSchema">
+	<xsd:element name = "INSTAT">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "Envelope"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "Envelope">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "envelopeId"/>
+				<xsd:element ref = "DateTime"/>
+				<xsd:element ref = "Party" maxOccurs = "unbounded"/>
+				<xsd:element ref = "acknowlegementRequest" minOccurs = "0"/>
+				<xsd:element ref = "authentication" minOccurs = "0"/>
+				<xsd:element ref = "testIndicator" minOccurs = "0"/>
+				<xsd:element ref = "applicationReference" minOccurs = "0"/>
+				<xsd:element ref = "softwareUsed" minOccurs = "0"/>
+				<xsd:element ref = "Declaration" maxOccurs = "unbounded"/>
+				<xsd:element ref = "numberOfDeclarations" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "envelopeId" type = "xsd:string"/>
+	<xsd:element name = "DateTime">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "date"/>
+				<xsd:element ref = "time" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "Party">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "partyId"/>
+				<xsd:element ref = "partyName" minOccurs = "0"/>
+				<xsd:element ref = "interchangeAgreementId" minOccurs = "0"/>
+				<xsd:element ref = "password" minOccurs = "0"/>
+				<xsd:element ref = "Address" minOccurs = "0"/>
+				<xsd:element ref = "ContactPerson" minOccurs = "0"/>
+			</xsd:sequence>
+			<xsd:attribute name = "partyType" use = "required">
+				<xsd:simpleType>
+					<xsd:restriction base = "xsd:NMTOKEN">
+						<xsd:enumeration value = "PSI"/>
+						<xsd:enumeration value = "TDP"/>
+						<xsd:enumeration value = "CC"/>
+					</xsd:restriction>
+				</xsd:simpleType>
+			</xsd:attribute>
+			<xsd:attribute name = "partyRole" use = "required">
+				<xsd:simpleType>
+					<xsd:restriction base = "xsd:NMTOKEN">
+						<xsd:enumeration value = "sender"/>
+						<xsd:enumeration value = "receiver"/>
+						<xsd:enumeration value = "PSI"/>
+					</xsd:restriction>
+				</xsd:simpleType>
+			</xsd:attribute>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "partyId" type = "xsd:string"/>
+	<xsd:element name = "partyName" type = "xsd:string"/>
+	<xsd:element name = "interchangeAgreementId" type = "xsd:string"/>
+	<xsd:element name = "password" type = "xsd:string"/>
+	<xsd:element name = "Address">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "streetName" minOccurs = "0"/>
+				<xsd:element ref = "streetNumber" minOccurs = "0"/>
+				<xsd:element ref = "postalCode" minOccurs = "0"/>
+				<xsd:element ref = "cityName" minOccurs = "0"/>
+				<xsd:element ref = "countryName" minOccurs = "0"/>
+				<xsd:element ref = "phoneNumber" minOccurs = "0"/>
+				<xsd:element ref = "faxNumber" minOccurs = "0"/>
+				<xsd:element ref = "e-mail" minOccurs = "0"/>
+				<xsd:element ref = "URL" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "streetName" type = "xsd:string"/>
+	<xsd:element name = "streetNumber" type = "xsd:string"/>
+	<xsd:element name = "postalCode" type = "xsd:string"/>
+	<xsd:element name = "cityName" type = "xsd:string"/>
+	<xsd:element name = "countryName" type = "xsd:string"/>
+	<xsd:element name = "phoneNumber" type = "xsd:string"/>
+	<xsd:element name = "faxNumber" type = "xsd:string"/>
+	<xsd:element name = "e-mail" type = "xsd:string"/>
+	<xsd:element name = "URL" type = "xsd:anyURI"/>
+	<xsd:element name = "ContactPerson">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "contactPersonName"/>
+				<xsd:element ref = "Address" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "contactPersonName" type = "xsd:string"/>
+	<xsd:element name = "numberOfDeclarations" type = "xsd:integer"/>
+	<xsd:element name = "acknowlegementRequest" type = "xsd:boolean"/>
+	<xsd:element name = "authentication" type = "xsd:string"/>
+	<xsd:element name = "testIndicator" type = "xsd:boolean"/>
+	<xsd:element name = "applicationReference" type = "xsd:string"/>
+	<xsd:element name = "softwareUsed" type = "xsd:string"/>
+	<xsd:element name = "Declaration">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "declarationId"/>
+				<xsd:element ref = "DateTime" minOccurs = "0"/>
+				<xsd:element ref = "referencePeriod"/>
+				<xsd:element ref = "PSIId"/>
+				<xsd:element ref = "Function"/>
+				<xsd:element ref = "declarationTypeCode"/>
+				<xsd:element ref = "flowCode"/>
+				<xsd:element ref = "currencyCode"/>
+				<xsd:element ref = "firstLast" minOccurs = "0"/>
+				<xsd:element ref = "totalNetMass" minOccurs = "0"/>
+				<xsd:element ref = "totalInvoicedAmount" minOccurs = "0"/>
+				<xsd:element ref = "totalStatisticalValue" minOccurs = "0"/>
+				<xsd:element ref = "Item" minOccurs = "0" maxOccurs = "unbounded"/>
+				<xsd:element ref = "totalNumberLines" minOccurs = "0"/>
+				<xsd:element ref = "totalNumberDetailedLines" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "declarationId" type = "xsd:string"/>
+	<xsd:element name = "referencePeriod" type = "xsd:string"/>
+	<xsd:element name = "PSIId" type = "xsd:string"/>
+	<xsd:element name = "Function">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "functionCode"/>
+				<xsd:element ref = "previousDeclarationId" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "functionCode" type = "xsd:string"/>
+	<xsd:element name = "previousDeclarationId" type = "xsd:string"/>
+	<xsd:element name = "declarationTypeCode" type = "xsd:string"/>
+	<xsd:element name = "flowCode" type = "xsd:string"/>
+	<xsd:element name = "currencyCode" type = "xsd:string"/>
+	<xsd:element name = "firstLast" type = "xsd:string"/>
+	<xsd:element name = "totalNumberLines" type = "xsd:integer"/>
+	<xsd:element name = "totalNetMass" type = "xsd:integer"/>
+	<xsd:element name = "totalInvoicedAmount" type = "xsd:decimal"/>
+	<xsd:element name = "totalStatisticalValue" type = "xsd:decimal"/>
+	<xsd:element name = "Item">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "itemNumber"/>
+				<xsd:element ref = "CN8" minOccurs = "0"/>
+				<xsd:element ref = "goodsDescription" minOccurs = "0"/>
+				<xsd:element ref = "MSConsDestCode" minOccurs = "0"/>
+				<xsd:element ref = "countryOfOriginCode" minOccurs = "0"/>
+				<xsd:element ref = "netMass" minOccurs = "0"/>
+				<xsd:element ref = "quantityInSU" minOccurs = "0"/>
+				<xsd:element ref = "invoicedAmount" minOccurs = "0" maxOccurs = "2"/>
+				<xsd:element ref = "statisticalValue" minOccurs = "0"/>
+				<xsd:element ref = "invoiceNumber" minOccurs = "0"/>
+				<xsd:element ref = "partnerId" minOccurs = "0"/>
+				<xsd:element ref = "statisticalProcedureCode" minOccurs = "0"/>
+				<xsd:element ref = "NatureOfTransaction" minOccurs = "0"/>
+				<xsd:element ref = "modeOfTransportCode" minOccurs = "0"/>
+				<xsd:element ref = "regionCode" minOccurs = "0"/>
+				<xsd:element ref = "portAirportInlandportCode" minOccurs = "0"/>
+				<xsd:element ref = "DeliveryTerms" minOccurs = "0"/>
+				<xsd:element ref = "numberOfConsignments" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "itemNumber" type = "xsd:integer"/>
+	<xsd:element name = "CN8">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "CN8Code"/>
+				<xsd:element ref = "SUCode" minOccurs = "0"/>
+				<xsd:element ref = "additionalGoodsCode" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "CN8Code" type = "xsd:string"/>
+	<xsd:element name = "SUCode" type = "xsd:string"/>
+	<xsd:element name = "additionalGoodsCode" type = "xsd:string"/>
+	<xsd:element name = "goodsDescription" type = "xsd:string"/>
+	<xsd:element name = "MSConsDestCode" type = "xsd:string"/>
+	<xsd:element name = "countryOfOriginCode" type = "xsd:string"/>
+	<xsd:element name = "netMass" type = "xsd:integer"/>
+	<xsd:element name = "quantityInSU" type = "xsd:integer"/>
+	<xsd:element name = "invoicedAmount">
+		<xsd:complexType>
+			<xsd:simpleContent>
+				<xsd:extension base = "xsd:decimal">
+					<xsd:attribute name = "currencyCode" use = "optional" type = "xsd:string"/>
+				</xsd:extension>
+			</xsd:simpleContent>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "statisticalValue" type = "xsd:decimal"/>
+	<xsd:element name = "invoiceNumber" type = "xsd:string"/>
+	<xsd:element name = "partnerId" type = "xsd:string"/>
+	<xsd:element name = "statisticalProcedureCode" type = "xsd:string"/>
+	<xsd:element name = "NatureOfTransaction">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "natureOfTransactionACode"/>
+				<xsd:element ref = "natureOfTransactionBCode" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "natureOfTransactionACode" type = "xsd:string"/>
+	<xsd:element name = "natureOfTransactionBCode" type = "xsd:string"/>
+	<xsd:element name = "modeOfTransportCode" type = "xsd:string"/>
+	<xsd:element name = "regionCode" type = "xsd:string"/>
+	<xsd:element name = "portAirportInlandportCode" type = "xsd:string"/>
+	<xsd:element name = "DeliveryTerms">
+		<xsd:complexType>
+			<xsd:sequence>
+				<xsd:element ref = "TODCode"/>
+				<xsd:element ref = "locationCode" minOccurs = "0"/>
+				<xsd:element ref = "TODPlace" minOccurs = "0"/>
+				<xsd:element ref = "TODDetails" minOccurs = "0"/>
+			</xsd:sequence>
+		</xsd:complexType>
+	</xsd:element>
+	<xsd:element name = "TODCode" type = "xsd:string"/>
+	<xsd:element name = "locationCode" type = "xsd:string"/>
+	<xsd:element name = "TODPlace" type = "xsd:string"/>
+	<xsd:element name = "TODDetails" type = "xsd:string"/>
+	<xsd:element name = "numberOfConsignments" type = "xsd:integer"/>
+	<xsd:element name = "totalNumberDetailedLines" type = "xsd:integer"/>
+	<xsd:element name = "date" type = "xsd:date"/>
+	<xsd:element name = "time" type = "xsd:time"/>
+</xsd:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb

@@ -135,7 +135,8 @@
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
 
             Dim bool_DatenVorhanden As Boolean = False
-            Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
+            Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr 
+            'nur UNISPED!!
 
             'DATEIPFAD für Buchungsdaten
             '-------------------------------------------------------------------------------------------
@@ -152,16 +153,17 @@
 
 
             Dim NameZusatz = ""
+            Dim Buchungsjahr = -1
             Select Case FIRMA.Firma_ID
-                Case 21 : NameZusatz = "UNISPED_AT_"
-                Case 22 : NameZusatz = "UNISPED_DE_"
-                Case 23 : NameZusatz = "UNISPED_ZS_"
+                Case 21 : NameZusatz = "UNISPED_AT_" : Buchungsjahr = Geschaeftsjahr
+                Case 22 : NameZusatz = "UNISPED_DE_" : Buchungsjahr = Geschaeftsjahr
+                Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr
             End Select
 
 
             '----------------- Buchungssätze -----------------
             If True Then 'boolBuchungen Then
-                TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
+                TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID, Buchungsjahr) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
                 Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
                 If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
                     Try
@@ -260,14 +262,23 @@
         genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";"
         genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";"
         genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & ";"
+        'Dim GJ_short = Geschäftsjahr.ToString.Substring(2, 2)
+        'Select Case FIRMA.Firma_ID
+        '    Case 21 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
+        '    Case 22 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
+        '    Case 23 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
+        'End Select
         Dim GJ_short = Geschäftsjahr.ToString.Substring(2, 2)
+        Dim RgNrOld = FormatStringDVO(row("Rechnungsnummer")).Substring(2)
         Select Case FIRMA.Firma_ID
-            Case 21 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
-            Case 22 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
-            Case 23 : genBuchungsZeile &= GJ_short & "-" & FormatStringDVO(row("Rechnungsnummer")) & ";"
+            Case 21 : genBuchungsZeile &= FormatStringDVO(row("Rechnungsnummer")).Substring(0, 2) & "-" & FormatStringDVO(row("Rechnungsnummer")).Substring(2) & ";"
+            Case 22 : genBuchungsZeile &= FormatStringDVO(row("Rechnungsnummer")).Substring(0, 2) & "-" & FormatStringDVO(row("Rechnungsnummer")).Substring(2) & ";"
+            Case 23 : genBuchungsZeile &= FormatStringDVO(row("Rechnungsnummer")).Substring(0, 2) & "-" & FormatStringDVO(row("Rechnungsnummer")).Substring(2) & ";"
         End Select
 
-        genBuchungsZeile &= SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & row("Rechnungsnummer") & " and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "") & ";".Replace(Environment.NewLine, "") 'extbelegnr
+        Dim KdAtrNr = SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr=" & RgNrOld & " and Buchungsjahr='" & Geschäftsjahr & "' and Firma_ID=" & FIRMA.Firma_ID & "", "FMZOLL", "")
+        KdAtrNr = KdAtrNr.ToString.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
+        genBuchungsZeile &= KdAtrNr & ";".Replace(Environment.NewLine, "") 'extbelegnr
 
         genBuchungsZeile &= If(row("BelegartenNr") = "70", "AR", "AG") & ";" ' Rg/GS 70=Rechnung  'AG ????????
         genBuchungsZeile &= If(row("BelegartenNr") = "70", "1", "2") & ";" ' Rg/GS 70=Rechnung  'AG ????????

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -1345,11 +1345,12 @@ Public Class cSyska_Interface
                             OP.INSERT()
 
                             OP_ID_CNT += 1
+                            tmpFirma_Id = OP.Firma_ID
+                            tmpKonotnr = OP.Kontonummer
 
                         Catch ex As Exception
                             MsgBox(ex.Message & ex.StackTrace)
                         End Try
-
                     Next
 
                 Else
@@ -1430,7 +1431,6 @@ Public Class cSyska_Interface
                 For Each r In dt.Rows
 
                     If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!! 
-
                         Dim strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".")
                         SQL.doSQL("UPDATE [FIBU2].[dbo].[fibu_konto]
                                                   SET [dec_wert3] = '" & strRisiko & "'

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -17,7 +17,8 @@ Public Class cTherefore
                   '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)
+                'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
+                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2022", "Import ab Jänner 2022", deleteFileAfterImport)
                 '  Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
             Case Else
                 Return False