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

Revert "commit"

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions
Download Patch File Download Diff File Expand all files Collapse all files

205
_VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb Normal file
View File

@@ -0,0 +1,205 @@
Public Class HEAHEA
Public Property RefNumHEA4 As String
Public Property TypOfDecHEA24 As String
Public Property CouOfDesCodHEA30 As String
Public Property PlaOfLoaCodHEA46 As String
Public Property CouOfDisCodHEA55 As String
Public Property TraModAtBorHEA76 As String
Public Property IdeOfMeaOfTraAtDHEA78 As String
Public Property IdeOfMeaOfTraAtDHEA78LNG As String
Public Property NatOfMeaOfTraAtDHEA80 As String
Public Property IdeOfMeaOfTraCroHEA85 As String
Public Property IdeOfMeaOfTraCroHEA85LNG As String
Public Property NatOfMeaOfTraCroHEA87 As String
Public Property ConIndHEA96 As String
Public Property NCTSAccDocHEA601LNG As String
Public Property TotNumOfIteHEA305 As String
Public Property TotNumOfPacHEA306 As String
Public Property TotGroMasHEA307 As String
Public Property DecDatHEA383 As String
Public Property DecPlaHEA394 As String
Public Property DecPlaHEA394LNG As String
Public Property SecHEA358 As String
Public Property CodPlUnHEA357 As String
Public Property Tanker As String
Public Property ComRefNumHEA As String
End Class
Public Class REPREP
Public Property NamREP5 As String
End Class
Public Class GUAREFREF
Public Property GuaRefNumGRNREF1 As String
Public Property OthGuaRefREF4 As String
Public Property AccCodREF6 As String
Public Property CurREF8 As String
Public Property AmoConREF7 As String
End Class
Public Class GUAGUA
Public Property GuaTypGUA1 As String
Public Property GUAREFREF As GUAREFREF
End Class
Public Class TRAPRIPC1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
Public Property PosCodCO123 As String
Public Property CitCO124 As String
Public Property CouCO125 As String
Public Property NADLNGCO As String
Public Property TINCO159 As String
End Class
Public Class TRACONCO1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
Public Property PosCodCO123 As String
Public Property CitCO124 As String
Public Property CouCO125 As String
Public Property NADLNGCO As String
Public Property TINCO159 As String
End Class
Public Class TRACONCE1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
Public Property PosCodCO123 As String
Public Property CitCO124 As String
Public Property CouCO125 As String
Public Property NADLNGCO As String
Public Property TINCO159 As String
End Class
Public Class TRACONSEC029
Public Property NameTRACONSEC033 As String
Public Property StrNumTRACONSEC035 As String
Public Property PosCodTRACONSEC034 As String
Public Property CitTRACONSEC030 As String
Public Property CouCodTRACONSEC031 As String
Public Property TRACONSEC029LNG As String
Public Property TINTRACONSEC036 As String
End Class
Public Class CUSOFFDEPEPT
Public Property RefNumEPT1 As String
End Class
Public Class CUSOFFTRARNS
Public Property RefNumRNS1 As String
Public Property ArrTimTRACUS085 As String
End Class
Public Class CUSOFFDESEST
Public Property RefNumEST1 As String
End Class
Public Class PRODOCDC2
Public Property DocTypDC21 As String
Public Property DocRefDC23 As String
Public Property DocRefDCLNG As String
Public Property ComOfInfDC25 As String
Public Property ComOfInfDC25LNG As String
End Class
Public Class PREADMREFAR2
Public Property PreDocTypAR21 As String
Public Property PreDocRefAR26 As String
Public Property PreDocRefLNG As String
Public Property ComOfInfAR29 As String
Public Property ComOfInfAR29LNG As String
End Class
Public Class CONNR2
Public Property ConNumNR21 As String
End Class
Public Class PACGS2
Public Property MarNumOfPacGS21 As String
Public Property MarNumOfPacGS21LNG As String
Public Property KinOfPacGS23 As String
Public Property NumOfPacGS24 As String
End Class
Public Class TRACONCE2
Public Property NamCE27 As String
Public Property StrAndNumCE222 As String
Public Property PosCodCE223 As String
Public Property CitCE224 As String
Public Property CouCE225 As String
Public Property NADLNGGICE As String
Public Property TINCE259 As String
End Class
Public Class GOOITEGD
Public Property IteNumGDS7 As String
Public Property ComCodTarCodGDS10 As String
Public Property GooDesGDS23 As String
Public Property GooDesGDS23LNG As String
Public Property GroMasGDS46 As String
Public Property NetMasGDS48 As String
Public Property IhrBeyanNo As String
Public Property IhrBeyanTip As String
Public Property IhrBeyanParcali As String
Public Property PRODOCDC2 As PRODOCDC2()
Public Property PREADMREFAR2 As PREADMREFAR2
Public Property CONNR2 As CONNR2()
Public Property PACGS2 As PACGS2()
Public Property CouOfDesGDS59 As String
Public Property CouOfDisGDS58 As String
Public Property TRACONCO2 As String
Public Property TRACONCE2 As TRACONCE2
Public Property TRACORSECGOO021 As String
Public Property TRACONSECGOO013 As String
End Class
Public Class ITI
Public Property CouOfRouCodITI1 As String
End Class
Public Class CARTRA100
Public Property NamCARTRA121 As String
Public Property StrAndNumCARTRA254 As String
Public Property PosCodCARTRA121 As String
Public Property CitCARTRA789 As String
Public Property CouCodCARTRA587 As String
Public Property NADCARTRA121 As String
Public Property TINCARTRA254 As String
End Class
Public Class TRACORSEC037
Public Property NamTRACORSEC041 As String
Public Property StrNumTRACORSEC043 As String
Public Property PosCodTRACORSEC042 As String
Public Property CitTRACORSEC038 As String
Public Property CouCodTRACORSEC039 As String
Public Property TRACORSEC037LNG As String
Public Property TINTRACORSEC044 As String
End Class
Public Class CC015B
Public Property RefId As String
Public Property MRNNumber As String
Public Property HEAHEA As HEAHEA
Public Property REPREP As REPREP
Public Property SEAINFSLI As String
Public Property GUAGUA As GUAGUA
Public Property TRAPRIPC1 As TRAPRIPC1
Public Property TRACONCO1 As TRACONCO1
Public Property TRACONCE1 As TRACONCE1
Public Property CUSOFFDEPEPT As CUSOFFDEPEPT
Public Property CUSOFFTRARNS As CUSOFFTRARNS()
Public Property CUSOFFDESEST As CUSOFFDESEST
Public Property GOOITEGDS As GOOITEGD()
Public Property ITI As ITI()
Public Property CARTRA100 As CARTRA100
Public Property TRACORSEC037 As TRACORSEC037
Public Property TRACONSEC029 As TRACONSEC029
End Class
Public Class cATEZ_NCTS
Public Property CC015B As CC015B
End Class

275
_VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb Normal file
View File

@@ -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

7681
_VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

939
_VERAG_PROG_ALLGEMEIN/Schnittstellen/GASTON_SCHUL/agsCustomsExchange.xsd Normal file
View File

@@ -0,0 +1,939 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" targetNamespace="http://www.gaston-schul.com/platform/facade/customs/ags/exchange"
xmlns:b2b="http://www.gaston-schul.com/platform/facade/customs/ags/exchange"
elementFormDefault="qualified" attributeFormDefault="unqualified" xml:lang="EN" version="0.1.2">
<!-- Venetian Blind Design -->
<xsd:element name="exchangeRequest" type="b2b:exchangeRequestType">
<xsd:annotation>
<xsd:documentation>
Customs approved data for creating an export declaration.
</xsd:documentation>
</xsd:annotation>
</xsd:element>
<!-- complex types -->
<xsd:complexType name="exchangeRequestType">
<xsd:sequence>
<xsd:element name="uuid" type="b2b:uuid"/>
<xsd:element name="version" type="b2b:version"/>
<xsd:element name="requestDateTime" type="b2b:dateTime"/>
<xsd:element name="creationDateTime" type="b2b:dateTime"/>
<xsd:element name="dispatchCountry" type="b2b:countryCode"/>
<xsd:element name="destinationCountry" type="b2b:countryCode"/>
<xsd:element name="localReferenceNumber" type="b2b:string_35" minOccurs="0"/>
<xsd:element name="movementReferenceNumber" type="b2b:string_35" minOccurs="0"/>
<xsd:element name="declaration" type="b2b:declarationType"/>
<xsd:element name="goodsShipment" type="b2b:goodsShipmentType"/>
<xsd:element name="attachments" type="b2b:attachmentType" minOccurs="0" maxOccurs="99"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="declarationType">
<xsd:sequence>
<xsd:element name="declarationOffice" type="b2b:declarationOffice" minOccurs="0"/>
<xsd:element name="declarationCode" type="b2b:declarationCode" minOccurs="0"/>
<xsd:element name="declarationTypeCode" type="b2b:declarationTypeCode" minOccurs="0"/>
<xsd:element name="procedure" type="b2b:procedure" minOccurs="0"/>
<xsd:element name="commercialReferenceNumber" type="b2b:string_35"/>
<xsd:element name="invoiceAmount" type="b2b:priceType_18_2" minOccurs="0"/>
<xsd:element name="deductibleAmount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="transportCostsAmount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="insuranceCostsAmount" type="b2b:priceType_16_2" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="goodsShipmentType">
<xsd:sequence>
<xsd:element name="countryOfExportation" type="b2b:countryCode"/>
<xsd:element name="natureOfTransaction" type="b2b:natureOfTransaction"/>
<xsd:element name="deliveryDestination" type="b2b:countryCode"/>
<xsd:element name="consignee" type="b2b:consigneeType"/>
<xsd:element name="consignor" type="b2b:consignorType"/>
<xsd:element name="consignment" type="b2b:consignmentType"/>
<xsd:element name="exitOffice" type="b2b:exitOffice" minOccurs="0"/>
<xsd:element name="internationalCommercialTerms" type="b2b:inCoTermType"/>
<xsd:element name="portOfLoading" type="b2b:portType" minOccurs="0"/>
<xsd:element name="portOfDischarge" type="b2b:portType" minOccurs="0"/>
<xsd:element name="shippingLine" type="b2b:string_1_70" minOccurs="0"/>
<xsd:element name="goodsItem" type="b2b:goodsItemType" maxOccurs="999"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="consigneeType">
<xsd:sequence>
<xsd:element name="name" type="b2b:string_70" minOccurs="0"/>
<xsd:element name="address" type="b2b:addressType" minOccurs="0"/>
<xsd:element name="eoriNumber" type="b2b:token_3_17" minOccurs="0">
<xsd:annotation>
<xsd:documentation>
European Union registration and identification number for businesses
which undertake the import or export of goods into or out of the EU.
It comprises of the ISO 3166 Alpha-2 country code followed by
a code or number that is unique in the member state.
</xsd:documentation>
</xsd:annotation>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="consignorType">
<xsd:sequence>
<xsd:element name="name" type="b2b:string_70" minOccurs="0"/>
<xsd:element name="address" type="b2b:addressType" minOccurs="0"/>
<xsd:element name="eoriNumber" type="b2b:token_3_17" minOccurs="0">
<xsd:annotation>
<xsd:documentation>
European Union registration and identification number for businesses
which undertake the import or export of goods into or out of the EU.
It comprises of the ISO 3166 Alpha-2 country code followed by
a code or number that is unique in the member state.
</xsd:documentation>
</xsd:annotation>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="consignmentType">
<xsd:sequence>
<xsd:element name="borderTransportMeansType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="modeCrossing" type="b2b:modeTransport" minOccurs="0"/>
<xsd:element name="nationalityCrossing" type="b2b:countryCode" minOccurs="0"/>
<xsd:element name="identificationCrossingBorder" type="b2b:string_35"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="departureTransportMeansType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="modeTransport" type="b2b:modeTransport"/>
<xsd:element name="identificationDeparture" type="b2b:string_1_35"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="arrivalTransportMeansType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="modeTransport" type="b2b:modeTransport" minOccurs="0"/>
<xsd:element name="identificationArrival" type="b2b:string_1_35" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="freightType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="paymentMethod" type="b2b:modePaymentTransport" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="goodsLocationName" type="b2b:string_1_256" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="portType">
<xsd:sequence>
<xsd:element name="portCode" type="b2b:token_1_10"/>
<xsd:element name="portCountry" type="b2b:countryCode"/>
<xsd:element name="portLocationName" type="b2b:string_1_35" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="inCoTermType">
<xsd:sequence>
<xsd:element name="inCoTerm" type="b2b:inCoTerm"/>
<xsd:element name="inCoTermCountryRelationship" type="b2b:inCoTermCountryRelationship"/>
<xsd:element name="inCoTermPlaceCode" type="b2b:string_35" minOccurs="0"/>
<xsd:element name="inCoTermPlaceName" type="b2b:string_35"/>
<xsd:element name="inCoTermPlaceDescription" type="b2b:string_35" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="principalType">
<xsd:sequence>
<xsd:element name="nameType" minOccurs="0">
<xsd:complexType>
<xsd:simpleContent>
<xsd:extension base="b2b:string_35">
<xsd:attribute name="language" type="b2b:countryCode"/>
</xsd:extension>
</xsd:simpleContent>
</xsd:complexType>
</xsd:element>
<xsd:element name="address" type="b2b:addressType" minOccurs="0"/>
<xsd:element name="taxIdentificationNumber" type="b2b:string_1_17" minOccurs="0"/>
<xsd:element name="contactPersonType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="contactPersonName" type="b2b:string_35" minOccurs="0"/>
<xsd:element name="contactPersonCommunicationNumber" type="b2b:string_15" minOccurs="0"/>
<xsd:element name="contactPersonEmail" type="b2b:string_70" minOccurs="0"/>
<xsd:element name="contactPersonFaxNumber" type="b2b:string_15" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="goodsItemType">
<xsd:sequence>
<xsd:element name="sequenceNumeric" type="b2b:sequenceNumeric"/>
<xsd:element name="customsValueAmount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="statisticalValueAmount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="additionalDocumentType" minOccurs="0" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="documentCode" type="b2b:documentCode"/>
<xsd:element name="documentReference" type="b2b:string_1_35" minOccurs="0"/>
<xsd:element name="amount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="quantity" type="b2b:quantityType" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="additionalInformationType" minOccurs="0" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="statementCode" type="b2b:statementCode"/>
<xsd:element name="statementDescription" type="b2b:string_1_512" minOccurs="0"/>
<xsd:element name="statementTypeCode" type="b2b:token_1_3"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="commodityType">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="sequenceNumeric" type="b2b:sequenceNumeric"/>
<xsd:element name="description" type="b2b:string_1_512"/>
<xsd:element name="valueAmount" type="b2b:priceType_16_2" minOccurs="0"/>
<xsd:element name="classificationType" minOccurs="0" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="commodityCode" type="b2b:string_8_22" minOccurs="0"/>
<xsd:element name="unitedNationsDangerousGoodCode" type="b2b:unitedNationsDangerousGoodCode" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="transportEquipmentType" minOccurs="0" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="sequenceNumeric" type="b2b:sequenceNumeric" minOccurs="0"/>
<xsd:element name="equipmentIdentificationNumberId" type="b2b:equipmentIdentificationNumberId" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="goodsMeasureType">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="grossMassMeasure" type="b2b:weightType_16_6" minOccurs="0"/>
<xsd:element name="netNetWeightMeasure" type="b2b:weightType_16_6"/>
<xsd:element name="tariffQuantity" type="b2b:decimal_16_6" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="governmentProcedureType" maxOccurs="2">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="currentCode" type="b2b:governmentProcedure" minOccurs="0"/>
<xsd:element name="previousCode" type="b2b:governmentProcedure" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="manufacturerType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="name" type="b2b:string_1_70" minOccurs="0"/>
<xsd:element name="id" type="b2b:string_1_17" minOccurs="0"/>
<xsd:element name="address" type="b2b:addressType" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="originType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="countryCode" type="b2b:countryCode"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="packagingType" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="sequenceNumeric" type="b2b:sequenceNumeric"/>
<xsd:element name="MarksNumbersID" type="b2b:string_1_512" minOccurs="0"/>
<xsd:element name="packagingQuantity" type="b2b:packagingSequenceNumeric" minOccurs="0"/>
<xsd:element name="typeCode" type="b2b:packagingTypeCode"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="previousDocumentType" minOccurs="0" maxOccurs="9">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="DocTypeCode" type="b2b:prevDocTypeCode"/>
<xsd:element name="DocSortCode" type="b2b:prevDocSortCode"/>
<xsd:element name="DocNr" type="b2b:string_1_31"/>
<xsd:element name="lineNumeric" type="b2b:previousDocumentNumeric" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="refundRecipientPartyType" minOccurs="0">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="name" type="b2b:string_1_70" minOccurs="0"/>
<xsd:element name="id" type="b2b:string_1_17" minOccurs="0"/>
<xsd:element name="address" type="b2b:addressType" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="valuationAdjustmentType" minOccurs="0" maxOccurs="99">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="additionCode" type="b2b:valuationAdjustmentAdditionCode" minOccurs="0"/>
<xsd:element name="valuationAdjustmentAmount" type="b2b:priceType_16_2" minOccurs="0"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="attachmentType">
<xsd:sequence>
<xsd:element name="attachmentName">
<xsd:annotation>
<xsd:documentation>
Must have an extension so the user can open it with the corresponding program
</xsd:documentation>
</xsd:annotation>
<xsd:simpleType>
<xsd:restriction base="xsd:string">
<xsd:maxLength value="160"/>
</xsd:restriction>
</xsd:simpleType>
</xsd:element>
<xsd:element name="attachmentType" type="b2b:attachmentTypeCode">
<xsd:annotation>
<xsd:documentation>Example 380 for invoice,...</xsd:documentation>
</xsd:annotation>
</xsd:element>
<xsd:element name="attachmentReference" minOccurs="0">
<xsd:annotation>
<xsd:documentation>
Contains the invoice number, MRN or other reference markers
</xsd:documentation>
</xsd:annotation>
<xsd:simpleType>
<xsd:restriction base="xsd:string">
<xsd:maxLength value="35"/>
</xsd:restriction>
</xsd:simpleType>
</xsd:element>
<xsd:element name="binaryAttachmentData" type="xsd:base64Binary"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="addressType">
<xsd:sequence>
<xsd:element name="postalCode" type="b2b:string_15"/>
<xsd:element name="streetAndNumber" type="b2b:string_2_35"/>
<xsd:element name="city" type="b2b:string_2_35"/>
<xsd:element name="country" type="b2b:countryCode"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="priceType_16_2">
<xsd:simpleContent>
<xsd:extension base="b2b:decimal_16_2">
<xsd:attribute name="currency" type="b2b:currency" use="required"/>
</xsd:extension>
</xsd:simpleContent>
</xsd:complexType>
<xsd:complexType name="priceType_18_2">
<xsd:simpleContent>
<xsd:extension base="b2b:decimal_18_2">
<xsd:attribute name="currency" type="b2b:currency" use="required"/>
</xsd:extension>
</xsd:simpleContent>
</xsd:complexType>
<xsd:complexType name="weightType_16_6">
<xsd:simpleContent>
<xsd:extension base="b2b:decimal_16_6">
<xsd:attribute name="massUnit" fixed="kg" use="required"/>
</xsd:extension>
</xsd:simpleContent>
</xsd:complexType>
<xsd:complexType name="quantityType">
<xsd:simpleContent>
<xsd:extension base="b2b:quantityTypeNumeric">
<xsd:attribute name="unitCode" type="xsd:string" use="required"/>
</xsd:extension>
</xsd:simpleContent>
</xsd:complexType>
<!-- simple types -->
<xsd:simpleType name="uuid">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
A universally unique type 4 identifier (UUID) is a 128-bit number used to identify a single exchange document.
The term globally unique identifier (GUID) is also used, typically in software created by Microsoft.
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:length value="36" fixed="true"/>
<xsd:pattern value="[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-4[0-9a-fA-F]{3}-[8-9a-bA-B][0-9a-fA-F]{3}-[0-9a-fA-F]{12}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="version">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
Version of the schema used.
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:length value="5" fixed="true"/>
<xsd:pattern value="\d.\d.\d"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="dateTime">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
ISO 8601 Date and time with timezone added relative to UTC. For example, 2019-01-01T12:00:00+01:00 for UK time
Content is yyyy-mm-ddThh:mm:ssphh:mm where p is + or -. Note that the time zone is required.
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:dateTime">
<xsd:pattern value="\d{4}-\d\d-\d\dT\d\d:\d\d:\d\d[+\-]\d\d:\d\d"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="declarationCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a03.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CO"/>
<xsd:enumeration value="EU"/>
<xsd:enumeration value="EX"/>
<xsd:enumeration value="IM"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="declarationTypeCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a04.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="A"/>
<xsd:enumeration value="B"/>
<xsd:enumeration value="D"/>
<xsd:enumeration value="E"/>
<xsd:enumeration value="X"/>
<xsd:enumeration value="Y"/>
<xsd:enumeration value="Z"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="procedure">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/wps/wcm/connect/bldcontenten/belastingdienst/customs/customs-processes/special-procedures/special-procedures-for-goods/special-procedures-for-goods
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="A"/>
<xsd:enumeration value="B"/>
<xsd:enumeration value="C"/>
<xsd:enumeration value="D"/>
<xsd:enumeration value="E"/>
<xsd:enumeration value="H"/>
<xsd:enumeration value="I"/>
<xsd:enumeration value="J"/>
<xsd:enumeration value="K"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="modeTransport">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20algemeen-a27.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="AIR"/>
<xsd:enumeration value="HUMAN"/>
<xsd:enumeration value="POSTAL"/>
<xsd:enumeration value="RAIL"/>
<xsd:enumeration value="ROAD"/>
<xsd:enumeration value="SEA"/>
<xsd:enumeration value="INLAND_WATERWAYS"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="modePaymentTransport">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-116.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CASH"/>
<xsd:enumeration value="CREDIT_CARD"/>
<xsd:enumeration value="CHECK"/>
<xsd:enumeration value="OTHER"/>
<xsd:enumeration value="ELECTRONIC"/>
<xsd:enumeration value="ACCOUNT_HOLDER"/>
<xsd:enumeration value="NOT_PAYED_BEFOREHAND"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="inCoTerm">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a14.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CFR"/>
<xsd:enumeration value="CIF"/>
<xsd:enumeration value="CIP"/>
<xsd:enumeration value="CPT"/>
<xsd:enumeration value="DAF"/>
<xsd:enumeration value="DAP"/>
<xsd:enumeration value="DAT"/>
<xsd:enumeration value="DDP"/>
<xsd:enumeration value="DDU"/>
<xsd:enumeration value="DEQ"/>
<xsd:enumeration value="DES"/>
<xsd:enumeration value="EXW"/>
<xsd:enumeration value="FAS"/>
<xsd:enumeration value="FCA"/>
<xsd:enumeration value="FOB"/>
<xsd:enumeration value="XXX"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="natureOfTransaction">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a22.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:unsignedShort">
<xsd:enumeration value="1"/>
<xsd:enumeration value="2"/>
<xsd:enumeration value="3"/>
<xsd:enumeration value="4"/>
<xsd:enumeration value="5"/>
<xsd:enumeration value="6"/>
<xsd:enumeration value="7"/>
<xsd:enumeration value="8"/>
<xsd:enumeration value="9"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="inCoTermCountryRelationship">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a89.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:unsignedShort">
<xsd:enumeration value="1"/>
<xsd:enumeration value="2"/>
<xsd:enumeration value="3"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="governmentProcedure">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a35.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="2"/>
<xsd:pattern value=".{1,2}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="valuationAdjustmentAdditionCode">
<xsd:annotation>
<xsd:documentation>
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a11.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="3"/>
<xsd:pattern value=".{1,3}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="attachmentTypeCode">
<xsd:annotation>
<xsd:documentation>
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a28.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="3"/>
<xsd:pattern value=".{1,3}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="unitedNationsDangerousGoodCode">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
UN IDs are four-digit numbers that identify dangerous goods, hazardous substances and articles
in the framework of international transport.
They are assigned by the United Nations Committee of Experts on the Transport of Dangerous Goods.
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:pattern value="\d{4}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="documentCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL" >
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-t03.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="4"/>
<xsd:pattern value=".{1,4}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="statementCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a12.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="17"/>
<xsd:pattern value=".{1,17}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="packagingTypeCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-a25.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="2"/>
<xsd:pattern value=".{1,2}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="exitOffice">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%2C%20onderdeel%20aangiftebehandeling-s20.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="17"/>
<xsd:pattern value=".{1,17}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="declarationOffice">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20algemeen-s03.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="4"/>
<xsd:pattern value=".{1,4}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="prevDocTypeCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
X - Summiere Aangifte
Y - Oorspronkelijke Aangifte
Z - Voorafgaand Document
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="X"/>
<xsd:enumeration value="Y"/>
<xsd:enumeration value="Z"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="prevDocSortCode">
<xsd:annotation>
<xsd:documentation xml:lang="NL">
https://www.belastingdienst.nl/codeboek_sagitta/huidig/html/tabel-codeboek%20sagitta%2C%20onderdeel%20transit-014.html
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:token">
<xsd:maxLength value="3"/>
<xsd:pattern value=".{1,3}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="previousDocumentNumeric">
<xsd:restriction base="xsd:decimal">
<xsd:pattern value="[0-9]{1,4}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="sequenceNumeric">
<xsd:restriction base="xsd:decimal">
<xsd:pattern value="[0-9]{1,5}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="packagingSequenceNumeric">
<xsd:restriction base="xsd:decimal">
<xsd:pattern value="[0-9]{1,8}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="quantityTypeNumeric">
<xsd:restriction base="xsd:decimal">
<xsd:pattern value="[0-9]{1,16}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="equipmentIdentificationNumberId">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
Placeholder for container nr, train, barge, plane etc.
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:maxLength value="17"/>
<xsd:pattern value=".{1,17}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="currency">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
ISO 4217 currency code,
like GBP for pound sterling or EUR for Euro
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:length value="3" fixed="true"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="countryCode">
<xsd:annotation>
<xsd:documentation xml:lang="EN">
ISO 3166 Alpha-2 country code,
like GB for the United Kingdom of Great Britain and Northern Ireland,
and NL for the Kingdom of the Netherlands
</xsd:documentation>
</xsd:annotation>
<xsd:restriction base="xsd:string">
<xsd:length value="2" fixed="true"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="decimal_16_2">
<xsd:restriction base="xsd:decimal">
<xsd:totalDigits value="16"/>
<xsd:fractionDigits value="2"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="decimal_16_6">
<xsd:restriction base="xsd:decimal">
<xsd:totalDigits value="16"/>
<xsd:fractionDigits value="6"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="decimal_18_2">
<xsd:restriction base="xsd:decimal">
<xsd:totalDigits value="18"/>
<xsd:fractionDigits value="2"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_15">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="15"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_35">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="35"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_70">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="70"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_17">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="17"/>
<xsd:pattern value=".{1,17}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_8_22">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="22"/>
<xsd:pattern value=".{8,22}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_25">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="25"/>
<xsd:pattern value=".{1,25}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_31">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="31"/>
<xsd:pattern value=".{1,31}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_35">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="35"/>
<xsd:pattern value=".{1,35}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_2_35">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="35"/>
<xsd:pattern value=".{2,35}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_70">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="70"/>
<xsd:pattern value=".{1,70}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_256">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="256"/>
<xsd:pattern value=".{1,256}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="string_1_512">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="512"/>
<xsd:pattern value=".{1,512}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="token_1_3">
<xsd:restriction base="xsd:token">
<xsd:maxLength value="3"/>
<xsd:pattern value=".{1,3}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="token_1_10">
<xsd:restriction base="xsd:token">
<xsd:maxLength value="10"/>
<xsd:pattern value=".{1,10}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="token_3_17">
<xsd:restriction base="xsd:token">
<xsd:maxLength value="17"/>
<xsd:pattern value=".{3,17}"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:annotation>
<xsd:appinfo>
<copyright-notice>Copyright 2020 gaston-schul.com and/or its affiliates. All rights reserved.</copyright-notice>
<author>Marcel Mullenders</author>
</xsd:appinfo>
<xsd:documentation>
End-User License Agreement (EULA) of ags customs exchange
This End-User License Agreement ("EULA") is a legal agreement between you and Gaston Schul
This EULA agreement governs your acquisition and use of our ags customs exchange software ("Software")
directly from Gaston Schul or indirectly through a Gaston Schul authorized reseller or distributor (a "Reseller").
Please read this EULA agreement carefully before completing the installation process and using the ags customs exchange software.
It provides a license to use the ags customs exchange software and contains warranty information and liability disclaimers.
If you are entering into this EULA agreement on behalf of a company or other legal entity,
you represent that you have the authority to bind such entity and its affiliates to these terms and conditions.
If you do not have such authority or if you do not agree with the terms and conditions of this EULA agreement,
do not install or use the Software, and you must not accept this EULA agreement.
This EULA agreement shall apply only to the Software supplied by Gaston Schul herewith regardless of whether other
software is referred to or described herein. The terms also apply to any Gaston Schul updates, supplements, Internet-based services,
and support services for the Software, unless other terms accompany those items on delivery. If so, those terms apply.
License Grant
Gaston Schul hereby grants you a personal, non-transferable, non-exclusive licence to use the v software on your devices
in accordance with the terms of this EULA agreement. You are permitted to load the ags customs exchange software (for example a PC, laptop, mobile or tablet)
under your control. You are responsible for ensuring your device meets the minimum requirements of the ags customs exchange software.
You are not permitted to:
Edit, alter, modify, adapt or otherwise change the whole or any part of the Software
Attempt to do any such things as to distribute or resell the Software
Allow any third party to use the Software on behalf of or for the benefit of any third party
Use the Software in any way which breaches any applicable local, national or international law
Use the Software for any purpose that Gaston Schul considers is a breach of this EULA agreement
Intellectual Property and Ownership
Gaston Schul shall at all times retain ownership of the Software as originally downloaded by you and all subsequent downloads of the Software by you.
The Software (and the copyright, and other intellectual property rights of whatever nature in the Software, including any modifications made thereto)
are and shall remain the property of Gaston Schul.
Gaston Schul reserves the right to grant licences to use the Software to third parties.
Termination
This EULA agreement is effective from the date you first use the Software and shall continue until terminated.
You may terminate it at any time.
It will also terminate immediately if you fail to comply with any term of this EULA agreement.
Upon such termination, the licenses granted by this EULA agreement will immediately terminate and you agree to stop all access and use of the Software.
The provisions that by their nature continue and survive will survive any termination of this EULA agreement.
Governing Law
This EULA agreement, and any dispute arising out of or in connection with this EULA agreement,
shall be governed by and construed in accordance with the laws of the Netherlands.
</xsd:documentation>
</xsd:annotation>
</xsd:schema>

3136
_VERAG_PROG_ALLGEMEIN/Schnittstellen/IDEV_Intrastat/instat6.2.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

236
_VERAG_PROG_ALLGEMEIN/Schnittstellen/IDEV_Intrastat/instat6.2.xsd Normal file
View File

@@ -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>

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

9764
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1930
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

1289
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

516
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd Normal file
View File

@@ -0,0 +1,516 @@
<?xml version="1.0" encoding="UTF-8"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" version="1.0">
<!--Generated by Turbo XML 2.3.1.100. Conforms to w3c http://www.w3.org/2001/XMLSchema-->
<!--<xsd:element type="CL64"/>-->
<!--<xsd:element type="CL71"/>-->
<xsd:element name="ActRecINT1" type="CL32"/>
<xsd:element name="PreDocTypAR21" type="CL14"/>
<xsd:element name="ActRecMER7" type="CL32"/>
<xsd:element name="AddTypADD11" type="CL25"/>
<xsd:element name="CoARepING9" type="CL82"/>
<xsd:element name="CoDRepING10" type="CL82"/>
<xsd:element name="CouADD14" type="CL70"/>
<xsd:element name="CouCod21" type="CL70"/>
<xsd:element name="CouCod73" type="CL70"/>
<xsd:element name="CouCod92" type="CL70"/>
<xsd:element name="CouCodFrING4" type="CL70"/>
<xsd:element name="CouCodFrLS12" type="CL70"/>
<xsd:element name="CouCodGRT764" type="CL70"/>
<xsd:element name="CouCodToING6" type="CL70"/>
<xsd:element name="CouCodToLS14" type="CL70"/>
<xsd:element name="CouGU624" type="CL70"/>
<xsd:element name="CouRNR745" type="CL70"/>
<xsd:element name="CouSysUNaBusFunCSU660" type="CL68"/>
<xsd:element name="CouSysUNaTypCSU662" type="CL79"/>
<xsd:element name="DayInTheWeeBEGDA63" type="CL105"/>
<xsd:element name="DayInTheWeeENDDA66" type="CL105"/>
<xsd:element name="ErrTypDER1" type="CL23"/>
<xsd:element name="ErrTypER11" type="CL49"/>
<xsd:element name="ErrTypINT6" type="CL23"/>
<xsd:element name="ErrTypMER8" type="CL23"/>
<xsd:element name="ErrTypSER2" type="CL23"/>
<xsd:element name="EXCRepING12" type="CL82"/>
<xsd:element name="EXPRepING11" type="CL82"/>
<xsd:element name="FirAndLasTraMES23" type="CL28"/>
<xsd:element name="IntSegTagINT3" type="CL33"/>
<xsd:element name="MesContAgMER5" type="CL37"/>
<xsd:element name="MesRelNoMER4" type="CL36"/>
<xsd:element name="MesSegMER9" type="CL34"/>
<xsd:element name="MesTypING1" type="CL60"/>
<xsd:element name="MesTypMER2" type="CL1"/>
<xsd:element name="MesTypMES20" type="CL60"/>
<xsd:element name="MesTypTYP1" type="CL60"/>
<xsd:element name="MesVerMER3" type="CL35"/>
<xsd:element name="Mon85" type="CL26"/>
<xsd:element name="Mon99" type="CL26"/>
<xsd:element name="MonSER641" type="CL26"/>
<xsd:element name="NotValForOthConPLIM2" type="CL71"/>
<xsd:element name="NotValForOthConPLIM22" type="CL71"/>
<xsd:element name="Ope288" type="CL24"/>
<xsd:element name="RefNumCOL1" type="CL70"/>
<xsd:element name="RefNumCUSOFFENTACTOFF701" type="CL70"/>
<xsd:element name="RefNumCUSOFFFENT731" type="CL70"/>
<!-- Error in DDNTA 10.10 This has been fixed in 10.30 -->
<!-- <xsd:element name="RefNumEPR1" type="CL70"/> -->
<xsd:element name="RefNumFIRENTCUSOFFIMP226" type="CL70"/>
<xsd:element name="RefNumLODGCUSOFFIMP228" type="CL70"/>
<xsd:element name="RefNumSUBENR909" type="CL70"/>
<xsd:element name="RefNumSUBENTCUSOFFIMP247" type="CL70"/>
<xsd:element name="RolFrLS13" type="CL83"/>
<xsd:element name="RolToLS15" type="CL83"/>
<xsd:element name="SecHEA358" type="CL117"/>
<xsd:element name="SenGooCod309" type="CL64"/>
<xsd:element name="SenGooCodSD22" type="CL64"/>
<xsd:element name="SenGooGodGDS11" type="CL64"/>
<xsd:element name="StatExpCodINF3" type="CL84"/>
<xsd:element name="StatINF2" type="CL81"/>
<xsd:element name="SynIdeMES1" type="CL21"/>
<xsd:element name="SynVerNumMES2" type="CL22"/>
<xsd:simpleType name="CL1">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="BANSTA"/>
<xsd:enumeration value="CUSDEC"/>
<xsd:enumeration value="CUSRES"/>
<xsd:enumeration value="FINSTA"/>
<xsd:enumeration value="GENRAL"/>
<xsd:enumeration value="GESMES"/>
<xsd:enumeration value="PARTTC"/>
<xsd:enumeration value="SANCRT"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL105">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="1"/>
<xsd:enumeration value="2"/>
<xsd:enumeration value="3"/>
<xsd:enumeration value="4"/>
<xsd:enumeration value="5"/>
<xsd:enumeration value="6"/>
<xsd:enumeration value="7"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL117">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="1"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL21">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="UNOC"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL22">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="3"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL23">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="12"/>
<xsd:enumeration value="13"/>
<xsd:enumeration value="14"/>
<xsd:enumeration value="15"/>
<xsd:enumeration value="16"/>
<xsd:enumeration value="18"/>
<xsd:enumeration value="19"/>
<xsd:enumeration value="2"/>
<xsd:enumeration value="21"/>
<xsd:enumeration value="22"/>
<xsd:enumeration value="23"/>
<xsd:enumeration value="26"/>
<xsd:enumeration value="28"/>
<xsd:enumeration value="29"/>
<xsd:enumeration value="3"/>
<xsd:enumeration value="32"/>
<xsd:enumeration value="33"/>
<xsd:enumeration value="35"/>
<xsd:enumeration value="36"/>
<xsd:enumeration value="37"/>
<xsd:enumeration value="38"/>
<xsd:enumeration value="39"/>
<xsd:enumeration value="40"/>
<xsd:enumeration value="6"/>
<xsd:enumeration value="7"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL24">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="C"/>
<xsd:enumeration value="D"/>
<xsd:enumeration value="U"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL25">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="L"/>
<xsd:enumeration value="S"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL26">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="01"/>
<xsd:enumeration value="02"/>
<xsd:enumeration value="03"/>
<xsd:enumeration value="04"/>
<xsd:enumeration value="05"/>
<xsd:enumeration value="06"/>
<xsd:enumeration value="07"/>
<xsd:enumeration value="08"/>
<xsd:enumeration value="09"/>
<xsd:enumeration value="10"/>
<xsd:enumeration value="11"/>
<xsd:enumeration value="12"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL28">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="F"/>
<xsd:enumeration value="L"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL32">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="4"/>
<xsd:enumeration value="7"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL33">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="UNB"/>
<xsd:enumeration value="UNZ"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL34">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="UNH"/>
<xsd:enumeration value="UNT"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL35">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="D"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL36">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="96B"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL37">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="EC"/>
<xsd:enumeration value="UN"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL14">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="235"/>
<xsd:enumeration value="270"/>
<xsd:enumeration value="271"/>
<xsd:enumeration value="325"/>
<xsd:enumeration value="380"/>
<xsd:enumeration value="703"/>
<xsd:enumeration value="704"/>
<xsd:enumeration value="705"/>
<xsd:enumeration value="720"/>
<xsd:enumeration value="722"/>
<xsd:enumeration value="730"/>
<xsd:enumeration value="740"/>
<xsd:enumeration value="741"/>
<xsd:enumeration value="750"/>
<xsd:enumeration value="760"/>
<xsd:enumeration value="785"/>
<xsd:enumeration value="787"/>
<xsd:enumeration value="820"/>
<xsd:enumeration value="821"/>
<xsd:enumeration value="822"/>
<xsd:enumeration value="823"/>
<xsd:enumeration value="952"/>
<xsd:enumeration value="955"/>
<xsd:enumeration value="CLE"/>
<xsd:enumeration value="IF3"/>
<xsd:enumeration value="IF8"/>
<xsd:enumeration value="MNS"/>
<xsd:enumeration value="T2F"/>
<xsd:enumeration value="T2L"/>
<xsd:enumeration value="T2ATA"/>
<xsd:enumeration value="T2"/>
<xsd:enumeration value="T2M"/>
<xsd:enumeration value="T2CIM"/>
<xsd:enumeration value="T2TIR"/>
<xsd:enumeration value="EX"/>
<xsd:enumeration value="IM"/>
<xsd:enumeration value="CO"/>
<xsd:enumeration value="EU"/>
<xsd:enumeration value="ZZZ"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL49">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="12"/>
<xsd:enumeration value="13"/>
<xsd:enumeration value="14"/>
<xsd:enumeration value="15"/>
<xsd:enumeration value="19"/>
<xsd:enumeration value="26"/>
<xsd:enumeration value="35"/>
<xsd:enumeration value="37"/>
<xsd:enumeration value="38"/>
<xsd:enumeration value="39"/>
<xsd:enumeration value="40"/>
<xsd:enumeration value="90"/>
<xsd:enumeration value="91"/>
<xsd:enumeration value="92"/>
<xsd:enumeration value="93"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL60">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CC004A"/>
<xsd:enumeration value="CC005A"/>
<xsd:enumeration value="CC007A"/>
<xsd:enumeration value="CC008A"/>
<xsd:enumeration value="CC009A"/>
<xsd:enumeration value="CC013B"/>
<xsd:enumeration value="CC014A"/>
<xsd:enumeration value="CC015A"/>
<xsd:enumeration value="CC015B"/>
<xsd:enumeration value="CC016A"/>
<xsd:enumeration value="CC017B"/>
<xsd:enumeration value="CC019A"/>
<xsd:enumeration value="CC021A"/>
<xsd:enumeration value="CC023A"/>
<xsd:enumeration value="CC025A"/>
<xsd:enumeration value="CC026A"/>
<xsd:enumeration value="CC028A"/>
<xsd:enumeration value="CC029B"/>
<xsd:enumeration value="CC035A"/>
<xsd:enumeration value="CC043A"/>
<xsd:enumeration value="CC044A"/>
<xsd:enumeration value="CC045A"/>
<xsd:enumeration value="CC051B"/>
<xsd:enumeration value="CC054A"/>
<xsd:enumeration value="CC055A"/>
<xsd:enumeration value="CC058A"/>
<xsd:enumeration value="CC060A"/>
<xsd:enumeration value="CC062A"/>
<xsd:enumeration value="CC100A"/>
<xsd:enumeration value="CC140A"/>
<xsd:enumeration value="CC141A"/>
<xsd:enumeration value="CC224A"/>
<xsd:enumeration value="CC225A"/>
<xsd:enumeration value="CC228A"/>
<xsd:enumeration value="CC229A"/>
<xsd:enumeration value="CC231A"/>
<xsd:enumeration value="CC304A"/>
<xsd:enumeration value="CC305A"/>
<xsd:enumeration value="CC313A"/>
<xsd:enumeration value="CC315A"/>
<xsd:enumeration value="CC316A"/>
<xsd:enumeration value="CC323A"/>
<xsd:enumeration value="CC324A"/>
<xsd:enumeration value="CC325A"/>
<xsd:enumeration value="CC328A"/>
<xsd:enumeration value="CC351A"/>
<xsd:enumeration value="CC928A"/>
<xsd:enumeration value="CD001B"/>
<xsd:enumeration value="CD002A"/>
<xsd:enumeration value="CD003B"/>
<xsd:enumeration value="CD006A"/>
<xsd:enumeration value="CD010A"/>
<xsd:enumeration value="CD011A"/>
<xsd:enumeration value="CD018A"/>
<xsd:enumeration value="CD020A"/>
<xsd:enumeration value="CD024A"/>
<xsd:enumeration value="CD027A"/>
<xsd:enumeration value="CD030B"/>
<xsd:enumeration value="CD031B"/>
<xsd:enumeration value="CD032B"/>
<xsd:enumeration value="CD034A"/>
<xsd:enumeration value="CD037A"/>
<xsd:enumeration value="CD038B"/>
<xsd:enumeration value="CD050B"/>
<xsd:enumeration value="CD059A"/>
<xsd:enumeration value="CD063A"/>
<xsd:enumeration value="CD106A"/>
<xsd:enumeration value="CD111A"/>
<xsd:enumeration value="CD112A"/>
<xsd:enumeration value="CD114A"/>
<xsd:enumeration value="CD115B"/>
<xsd:enumeration value="CD118A"/>
<xsd:enumeration value="CD12A"/>
<xsd:enumeration value="CD142A"/>
<xsd:enumeration value="CD143A"/>
<xsd:enumeration value="CD144A"/>
<xsd:enumeration value="CD145A"/>
<xsd:enumeration value="CD150A"/>
<xsd:enumeration value="CD151A"/>
<xsd:enumeration value="CD152A"/>
<xsd:enumeration value="CD200A"/>
<xsd:enumeration value="CD201A"/>
<xsd:enumeration value="CD203A"/>
<xsd:enumeration value="CD204A"/>
<xsd:enumeration value="CD205A"/>
<xsd:enumeration value="CD209A"/>
<xsd:enumeration value="CD301A"/>
<xsd:enumeration value="CD302A"/>
<xsd:enumeration value="CD303A"/>
<xsd:enumeration value="CD319A"/>
<xsd:enumeration value="CD411A"/>
<xsd:enumeration value="CD501A"/>
<xsd:enumeration value="CD501B"/>
<xsd:enumeration value="CD502A"/>
<xsd:enumeration value="CD503A"/>
<xsd:enumeration value="CD503B"/>
<xsd:enumeration value="CD510A"/>
<xsd:enumeration value="CD518A"/>
<xsd:enumeration value="CD518B"/>
<xsd:enumeration value="CD524A"/>
<xsd:enumeration value="CD527A"/>
<xsd:enumeration value="CD538A"/>
<xsd:enumeration value="CD584A"/>
<xsd:enumeration value="CD586A"/>
<xsd:enumeration value="CD599A"/>
<xsd:enumeration value="CD601A"/>
<xsd:enumeration value="CD603A"/>
<xsd:enumeration value="CD901B"/>
<xsd:enumeration value="CD904A"/>
<xsd:enumeration value="CD905A"/>
<xsd:enumeration value="CD906A"/>
<xsd:enumeration value="CD907A"/>
<xsd:enumeration value="CD912A"/>
<xsd:enumeration value="CD913A"/>
<xsd:enumeration value="CD914A"/>
<xsd:enumeration value="CD916A"/>
<xsd:enumeration value="CD917A"/>
<xsd:enumeration value="CD918A"/>
<xsd:enumeration value="CD919A"/>
<xsd:enumeration value="CD931B"/>
<xsd:enumeration value="CD932B"/>
<xsd:enumeration value="CDS01A"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL64">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="1"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL68">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="A"/>
<xsd:enumeration value="B"/>
<xsd:enumeration value="C"/>
<xsd:enumeration value="D"/>
<xsd:enumeration value="E"/>
<xsd:enumeration value="F"/>
<xsd:enumeration value="G"/>
<xsd:enumeration value="H"/>
<xsd:enumeration value="I"/>
<xsd:enumeration value="J"/>
<xsd:enumeration value="K"/>
<xsd:enumeration value="L"/>
<xsd:enumeration value="M"/>
<xsd:enumeration value="N"/>
<xsd:enumeration value="O"/>
<xsd:enumeration value="P"/>
<xsd:enumeration value="Q"/>
<xsd:enumeration value="S"/>
<xsd:enumeration value="T"/>
<xsd:enumeration value="U"/>
<xsd:enumeration value="V"/>
<xsd:enumeration value="W"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL70">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="AD"/>
<xsd:enumeration value="AT"/>
<xsd:enumeration value="BE"/>
<xsd:enumeration value="BG"/>
<xsd:enumeration value="CH"/>
<xsd:enumeration value="CY"/>
<xsd:enumeration value="CZ"/>
<xsd:enumeration value="DE"/>
<xsd:enumeration value="DK"/>
<xsd:enumeration value="EE"/>
<xsd:enumeration value="ES"/>
<xsd:enumeration value="FI"/>
<xsd:enumeration value="FR"/>
<xsd:enumeration value="GB"/>
<xsd:enumeration value="GR"/>
<xsd:enumeration value="HU"/>
<xsd:enumeration value="IE"/>
<xsd:enumeration value="IS"/>
<xsd:enumeration value="IT"/>
<xsd:enumeration value="LT"/>
<xsd:enumeration value="LU"/>
<xsd:enumeration value="LV"/>
<xsd:enumeration value="MT"/>
<xsd:enumeration value="NL"/>
<xsd:enumeration value="NO"/>
<xsd:enumeration value="PL"/>
<xsd:enumeration value="PT"/>
<xsd:enumeration value="RO"/>
<xsd:enumeration value="SE"/>
<xsd:enumeration value="SI"/>
<xsd:enumeration value="SK"/>
<xsd:enumeration value="SM"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL71">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="AD"/>
<xsd:enumeration value="CH"/>
<xsd:enumeration value="IS"/>
<xsd:enumeration value="NO"/>
<xsd:enumeration value="SM"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL79">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="N"/>
<xsd:enumeration value="S"/>
<xsd:enumeration value="U"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL81">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CM"/>
<xsd:enumeration value="CN"/>
<xsd:enumeration value="NF"/>
<xsd:enumeration value="PN"/>
<xsd:enumeration value="UM"/>
<xsd:enumeration value="UQ"/>
<xsd:enumeration value="UR"/>
<xsd:enumeration value="W0"/>
<xsd:enumeration value="W8"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL82">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="0"/>
<xsd:enumeration value="1"/>
<xsd:enumeration value="2"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL83">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="CA"/>
<xsd:enumeration value="DE"/>
<xsd:enumeration value="DS"/>
<xsd:enumeration value="HA"/>
<xsd:enumeration value="NR"/>
<xsd:enumeration value="TR"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="CL84">
<xsd:restriction base="xsd:string">
<xsd:enumeration value="1"/>
<xsd:enumeration value="2"/>
<xsd:enumeration value="3"/>
<xsd:enumeration value="4"/>
<xsd:enumeration value="5"/>
<xsd:enumeration value="6"/>
</xsd:restriction>
</xsd:simpleType>
</xsd:schema>

33
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb generated Normal file
View File

@@ -0,0 +1,33 @@
'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
'' <NameSpace>Constraints4</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 Constraints4
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlRootAttribute("AckReqMES16", [Namespace]:="", IsNullable:=False)>
Public Enum CL27
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("0")>
Item0
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("1")>
Item1
End Enum
End Namespace

182
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd Normal file
View File

@@ -0,0 +1,182 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- edited with XMLSpy v2006 sp2 U (http://www.altova.com) by xmlspy_ent_2006_1 - - (INTRASOFT International S.A.) -->
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" version="1.0">
<xsd:element name="AckReqMES16" type="CL27"/>
<xsd:element name="DatOfPreMES9">
<xsd:simpleType>
<xsd:list itemType="Date_6_8"/>
</xsd:simpleType>
</xsd:element>
<xsd:element name="TimOfPreMES10" type="Time"/>
<xsd:simpleType name="CL27">
<xsd:restriction base="xsd:nonNegativeInteger">
<xsd:enumeration value="0"/>
<xsd:enumeration value="1"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="Date_8">
<xsd:restriction base="xsd:nonNegativeInteger">
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="Date_6_8">
<xsd:restriction base="xsd:nonNegativeInteger">
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="Time">
<xsd:restriction base="xsd:nonNegativeInteger">
<xsd:totalDigits value="4"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:element name="WaiForDisResEXR67" type="CL27"/>
<xsd:element name="StaOfTheSeaOKEXR70" type="CL27"/>
<xsd:element name="CanIniByCusHEA94" type="CL27"/>
<xsd:element name="TesIndMES18" type="CL27"/>
<xsd:element name="ConIndHEA96" type="CL27"/>
<xsd:element name="ExpFroECMT24" type="CL27"/>
<xsd:element name="SimProFlaHEA132" type="CL27"/>
<xsd:element name="AlrInNCTCTL29" type="CL27"/>
<xsd:element name="IncFlaINC3" type="CL27"/>
<xsd:element name="CanDecHEA93" type="CL27"/>
<xsd:element name="AmeTypFlaCL628" type="CL27"/>
<xsd:element name="NotValForECVLE1" type="CL27"/>
<xsd:element name="RelReqHEA105" type="CL27"/>
<xsd:element name="BinItiHEA246" type="CL27"/>
<xsd:element name="ComConAR211" type="CL27"/>
<xsd:element name="EnqAtDesHEA99" type="CL27"/>
<xsd:element name="WaiForDisResERS67" type="CL27"/>
<xsd:element name="StaOfTheSeaOKERS70" type="CL27"/>
<xsd:element name="StaOfTheSeaOKREM19" type="CL27"/>
<xsd:element name="TraNotCL630" type="CL27"/>
<xsd:element name="NCTRetCopHEA104" type="CL27"/>
<xsd:element name="NotValForECCMG2" type="CL27"/>
<xsd:element name="NotValForECVLD1" type="CL27"/>
<xsd:element name="TraDed34" type="CL27"/>
<xsd:element name="Spa55" type="CL27"/>
<xsd:element name="PreFla52" type="CL27"/>
<xsd:element name="EECTerLim312" type="CL27"/>
<xsd:element name="LimValREF239" type="CL27"/>
<xsd:element name="LimValCMP22" type="CL27"/>
<xsd:element name="LimValVOU748" type="CL27"/>
<xsd:element name="ResUseREF240" type="CL27"/>
<xsd:element name="ResUseCMP23" type="CL27"/>
<xsd:element name="TIRCarREF29" type="CL27"/>
<xsd:element name="TIRCarVOU749" type="CL27"/>
<xsd:element name="ComConMT26" type="CL27"/>
<xsd:element name="ComConGS28" type="CL27"/>
<xsd:element name="HarCopGivToPriREF27" type="CL27"/>
<xsd:element name="HarCopGivToPriVOU747" type="CL27"/>
<xsd:element name="InfAvaFLU1" type="CL27"/>
<xsd:element name="ComConNR22" type="CL27"/>
<xsd:element name="ConREM65" type="CL27"/>
<xsd:element name="UnlComREM66" type="CL27"/>
<xsd:element name="InfAvaENQ703" type="CL27"/>
<xsd:element name="TCRDelByCusENQ704" type="CL27"/>
<xsd:element name="TraHEA1" type="CL27"/>
<xsd:element name="EnqEngAtDesENQ708" type="CL27"/>
<xsd:element name="MovUnkAtDes707" type="CL27"/>
<xsd:element name="FinOrParShiFlaTDD1" type="CL27"/>
<!--xsd:element name = "TraAutCL625" type = "CL27"/-->
<xsd:element name="GuaNotValCAF626" type="CL27"/>
<xsd:element name="StoFlaHEA1" type="CL27"/>
<xsd:element name="ComConDC27" type="CL27"/>
<xsd:element name="ComConSD25" type="CL27"/>
<xsd:element name="ConUnlCL130" type="CL27"/>
<xsd:element name="EntRejMotCodGOOITEGDS911" type="CL27"/>
<xsd:element name="EntRejMotCodHEA102" type="CL27"/>
<xsd:element name="RecAccRECOV370" type="CL27"/>
<xsd:element name="RecRetCodING8" type="CL27"/>
<xsd:element name="SusGooFlaCL624" type="CL27"/>
<xsd:element name="TC11DelENQ155" type="CL27"/>
<xsd:element name="TraDoc199" type="CL27"/>
<xsd:element name="ExtrHEA982" type="CL27"/>
<xsd:element name="IncNotCL629" type="CL27"/>
<xsd:element name="NotValForECVLE21" type="CL27"/>
<xsd:element name="InfOnPapAvaENQ790" type="CL27"/>
<xsd:element name="InfPapAvailINF364" type="CL27"/>
<xsd:element name="InfPrinAvailENQ147" type="CL27"/>
<xsd:element name="CouHolVarHolDat" type="CL27"/>
<xsd:element name="SenGooFlaCL763" type="CL27"/>
<xsd:element name="AccDatHEA158" type="Date_8"/>
<xsd:element name="DatOfExiPSX1" type="Date_8"/>
<xsd:element name="AmeAccDatHEA602" type="Date_8"/>
<xsd:element name="DecRegDatHEA1" type="Date_8"/>
<xsd:element name="AccDatREF24" type="Date_8"/>
<xsd:element name="IssDatHEA186" type="Date_8"/>
<xsd:element name="DatLimResHEA144" type="Date_8"/>
<xsd:element name="DatLimERS89" type="Date_8"/>
<xsd:element name="ManRegDatHEA418" type="Date_8"/>
<xsd:element name="ManRejDatHEA419" type="Date_8"/>
<xsd:element name="ExiDatHEA1" type="Date_8"/>
<xsd:element name="ExtStoDatEXR68" type="Date_8"/>
<xsd:element name="AmdDatHEA599" type="Date_8"/>
<xsd:element name="ArrDatHEA140" type="Date_8"/>
<xsd:element name="ArrNotDatHEA141" type="Date_8"/>
<xsd:element name="DateInfRecNonExitExpFOLUP415" type="Date_8"/>
<xsd:element name="DatLimERS69" type="Date_8"/>
<xsd:element name="DatOfPreHEA1" type="Date_8"/>
<xsd:element name="ExiDatFLU1" type="Date_8"/>
<xsd:element name="FolUpDatFLU1" type="Date_8"/>
<xsd:element name="EndDatINC6" type="Date_8"/>
<xsd:element name="EndDatSHP60" type="Date_8"/>
<xsd:element name="ArrRejDatHEA142" type="Date_8"/>
<xsd:element name="DatOfCanReqHEA147" type="Date_8"/>
<xsd:element name="DatOfCanDecHEA146" type="Date_8"/>
<xsd:element name="DatOfCanHEA145" type="Date_8"/>
<xsd:element name="DecDatHEA383" type="Date_8"/>
<xsd:element name="RelReqDatHEA154" type="Date_8"/>
<xsd:element name="DatOfRelReqRejHEA155" type="Date_8"/>
<xsd:element name="ConDatERS14" type="Date_8"/>
<xsd:element name="DisNotDatHEA608" type="Date_8"/>
<xsd:element name="GuaNotDatHEA727" type="Date_8"/>
<xsd:element name="GooRelDatHEA176" type="Date_8"/>
<xsd:element name="NCTEntDat25" type="Date_8"/>
<xsd:element name="NCTEntDat85" type="Date_8"/>
<xsd:element name="ValDat103" type="Date_8"/>
<xsd:element name="ValDatREF242" type="Date_8"/>
<xsd:element name="InvDatREF232" type="Date_8"/>
<xsd:element name="ValDatCMP16" type="Date_8"/>
<xsd:element name="InvDatCMP17" type="Date_8"/>
<xsd:element name="SeaStaDat60" type="Date_8"/>
<xsd:element name="SeaEndDat61" type="Date_8"/>
<xsd:element name="VarHolCouHolDat" type="Date_8"/>
<xsd:element name="TCCEntDat84" type="Date_8"/>
<xsd:element name="DatOfOTSDivArrAdHEA151" type="Date_8"/>
<xsd:element name="PerFroQUE2" type="Date_8"/>
<xsd:element name="PerToDatQUE3" type="Date_8"/>
<xsd:element name="RecNotDatHEA766" type="Date_8"/>
<xsd:element name="LocDatUSA4" type="Date_8"/>
<xsd:element name="ArrDatUSA5" type="Date_8"/>
<xsd:element name="DatOfRelHEA701" type="Date_8"/>
<xsd:element name="DatOfRelUSA6" type="Date_8"/>
<xsd:element name="LiaLibDatCMP21" type="Date_8"/>
<xsd:element name="LiaLibDatREF238" type="Date_8"/>
<xsd:element name="DatOfIssREF25" type="Date_8"/>
<xsd:element name="DatOfIssVOU745" type="Date_8"/>
<xsd:element name="ExpDatREF26" type="Date_8"/>
<xsd:element name="ExpDatVOU746" type="Date_8"/>
<xsd:element name="UnlDatREM67" type="Date_8"/>
<xsd:element name="WriOffDatHEA619" type="Date_8"/>
<xsd:element name="UnlRemRejDatHEA218" type="Date_8"/>
<xsd:element name="CanEnqNotDatHEA751" type="Date_8"/>
<xsd:element name="DatOfConNotHEA148" type="Date_8"/>
<xsd:element name="RecComDatHEA143" type="Date_8"/>
<xsd:element name="DateEnqReqENQ140" type="Date_8"/>
<xsd:element name="CollDateRECOV369" type="Date_8"/>
<xsd:element name="RecComDatRECOV371" type="Date_8"/>
<xsd:element name="DatReqNonArrMovHEA149" type="Date_8"/>
<xsd:element name="DatOfInfRecOnNonArrMovENQ702" type="Date_8"/>
<xsd:element name="DelDatENQ706" type="Date_8"/>
<xsd:element name="EnqDatENQ705" type="Date_8"/>
<xsd:element name="EnqRemDatENQ710" type="Date_8"/>
<xsd:element name="DatOfEnqResHEA765" type="Date_8"/>
<xsd:element name="DatOfPasPAS627" type="Date_8"/>
<xsd:element name="DatOfUsaCanHEA700" type="Date_8"/>
<xsd:element name="AmeRejDatHEA603" type="Date_8"/>
<xsd:element name="DisSolNotDatHEA611" type="Date_8"/>
<xsd:element name="EnqNotDatHEA615" type="Date_8"/>
<xsd:element name="DecRejDatHEA159" type="Date_8"/>
<xsd:element name="OpeHouTimFirPerF64" type="Time"/>
<xsd:element name="OpeHouTimFirPerT65" type="Time"/>
<xsd:element name="OpeHouTimSecPerF67" type="Time"/>
<xsd:element name="OpeHouTimSecPerT68" type="Time"/>
</xsd:schema>

1543
_VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb Normal file
View File

File diff suppressed because it is too large Load Diff

8659
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1576
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json Normal file
View File

File diff suppressed because it is too large Load Diff

375
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.xsd Normal file
View File

@@ -0,0 +1,375 @@
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:complexType name="BeyannameBilgi">
<xsd:sequence>
<xsd:element name="Beyanname_no" type="xsd:string" />
<xsd:element name="Rejim" type="xsd:string" />
<xsd:element name="GUMRUK" type="xsd:string" />
<xsd:element name="Basitlestirilmis_usul" type="xsd:string" />
<xsd:element name="Yuk_belgeleri_sayisi" type="xsd:int" />
<xsd:element name="Kap_adedi" type="xsd:int" />
<xsd:element name="Ticaret_ulkesi" type="xsd:string" />
<xsd:element name="Referans_no" type="xsd:string" />
<xsd:element name="Birlik_kayit_numarasi" type="xsd:string" />
<xsd:element name="Birlik_kripto_numarasi" type="xsd:string" />
<xsd:element name="Cikis_ulkesi" type="xsd:string" />
<xsd:element name="Gidecegi_ulke" type="xsd:string" />
<xsd:element name="Gidecegi_sevk_ulkesi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_tipi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_kimligi" type="xsd:string" />
<xsd:element name="Cikistaki_aracin_ulkesi" type="xsd:string" />
<xsd:element name="Teslim_sekli" type="xsd:string" />
<xsd:element name="Teslim_yeri" type="xsd:string" />
<xsd:element name="Konteyner" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_tipi" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_kimligi" type="xsd:string" />
<xsd:element name="Sinirdaki_aracin_ulkesi" type="xsd:string" />
<xsd:element name="Toplam_fatura_dovizi" type="xsd:string" />
<xsd:element name="Toplan_navlun_dovizi" type="xsd:string" />
<xsd:element name="Sinirdaki_tasima_sekli" type="xsd:string" />
<xsd:element name="Alici_satici_iliskisi" type="xsd:string" />
<xsd:element name="Toplam_sigorta_dovizi" type="xsd:string" />
<xsd:element name="Yukleme_bosaltma_yeri" type="xsd:string" />
<xsd:element name="Toplam_yurt_disi_harcamalarin_dovizi" type="xsd:string" />
<xsd:element name="Banka_kodu" type="xsd:string" />
<xsd:element name="Esyanin_bulundugu_yer" type="xsd:string" />
<xsd:element name="Varis_gumruk_idaresi" type="xsd:string" />
<xsd:element name="Antrepo_kodu" type="xsd:string" />
<xsd:element name="Tasarlanan_guzergah" type="xsd:string" />
<xsd:element name="Giris_gumruk_idaresi" type="xsd:string" />
<xsd:element name="Islemin_niteligi" type="xsd:string" />
<xsd:element name="Aciklamalar" type="xsd:string" />
<xsd:element name="Kullanici_kodu" type="xsd:string" />
<xsd:element name="Referans_tarihi" type="xsd:string" />
<xsd:element name="Odeme" type="xsd:string" />
<xsd:element name="Odeme_araci" type="xsd:string" />
<xsd:element name="Musavir_referansi" type="xsd:string" />
<xsd:element name="Gonderici_vergi_no" type="xsd:string" />
<xsd:element name="Alici_vergi_no" type="xsd:string" />
<xsd:element name="Beyan_sahibi_vergi_no" type="xsd:string" />
<xsd:element name="Musavir_vergi_no" type="xsd:string" />
<xsd:element name="Asil_sorumlu_vergi_no" type="xsd:string" />
<xsd:element name="Firma_bilgi" type="ArrayOfFirma" />
<xsd:element name="Teminat" type="ArrayOfTeminat" />
<xsd:element name="Ozetbeyanlar" type="ArrayOfOzetbeyan" />
<xsd:element name="Kalemler" type="ArrayOfKalem" />
<xsd:element name="Sorular_cevaplar" type="ArrayOfSoru_Cevap" />
<xsd:element name="Dokumanlar" type="ArrayOfDokuman" />
<xsd:element name="Vergiler" type="ArrayOfVergi" />
<xsd:element name="KiymetBildirim" type="ArrayOfKiymet" />
<xsd:element name="mail1" type="xsd:string" />
<xsd:element name="mail2" type="xsd:string" />
<xsd:element name="mail3" type="xsd:string" />
<xsd:element name="mobil1" type="xsd:string" />
<xsd:element name="mobil2" type="xsd:string" />
<xsd:element name="FazlaMesaiID" type="xsd:string" />
<xsd:element name="LimanKodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfFirma">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="firma">
<xsd:sequence>
<xsd:element name="Tip" type="xsd:string" />
<xsd:element name="Ulke_kodu" type="xsd:string" />
<xsd:element name="Posta_kodu" type="xsd:string" />
<xsd:element name="Kimlik_turu" type="xsd:string" />
<xsd:element name="Faks" type="xsd:string" />
<xsd:element name="No" type="xsd:string" />
<xsd:element name="Adi_unvani" type="xsd:string" />
<xsd:element name="Cadde_s_no" type="xsd:string" />
<xsd:element name="Telefon" type="xsd:string" />
<xsd:element name="Il_ilce" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTeminat">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Teminat">
<xsd:sequence>
<xsd:element name="Teminat_sekli" type="xsd:string" />
<xsd:element name="Global_teminat_no" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
<xsd:element name="Diger_tutar_referansi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfOzetbeyan">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Ozetbeyan">
<xsd:sequence>
<xsd:element name="ozbyacma_bilgi" type="ArrayOfTasimasenetleri" />
<xsd:element name="Ozetbeyan_no" type="xsd:string" />
<xsd:element name="Ozetbeyan_islem_kapsami" type="xsd:string" />
<xsd:element name="Ambar_ici" type="xsd:string" />
<xsd:element name="Baska_rejim" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTasimasenetleri">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tasimasenetleri">
<xsd:sequence>
<xsd:element name="Tasima_senedi_no" type="xsd:string" />
<xsd:element name="tasimasatir_bilgi" type="ArrayOfTasimasatirlari" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTasimasatirlari">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tasimasatirlari">
<xsd:sequence>
<xsd:element name="Tasima_satir_no" type="xsd:string" />
<xsd:element name="Ambar_kodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKalem">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="kalem">
<xsd:sequence>
<xsd:element name="tamamlayici_bilgi" type="ArrayOfTamamlayici" />
<xsd:element name="tcgbacmakapatma_bilgi" type="ArrayOfTcgbacmakapatma" />
<xsd:element name="marka_model_bilgi" type="ArrayOfMarka" />
<xsd:element name="konteyner_Bilgi" type="ArrayOfKonteyner" />
<xsd:element name="VergiMuafiyetleri" type="ArrayOfVergiMuafiyeti" />
<xsd:element name="HavacilikYakitTurleri" type="ArrayOfHavacilikYakitTuru" />
<xsd:element name="OdemeSekilleri" type="ArrayOfOdemeSekli" />
<xsd:element name="Gtip" type="xsd:string" />
<xsd:element name="Imalatci_firma_bilgisi" type="xsd:string" />
<xsd:element name="Kalem_sira_no" type="xsd:int" />
<xsd:element name="Mensei_ulke" type="xsd:string" />
<xsd:element name="Tamamlayici_olcu_birimi" type="xsd:string" />
<xsd:element name="Uluslararasi_anlasma" type="xsd:string" />
<xsd:element name="Algilama_birimi_1" type="xsd:string" />
<xsd:element name="Algilama_birimi_2" type="xsd:string" />
<xsd:element name="Muafiyetler_1" type="xsd:string" />
<xsd:element name="Muafiyetler_2" type="xsd:string" />
<xsd:element name="Muafiyetler_3" type="xsd:string" />
<xsd:element name="Muafiyetler_4" type="xsd:string" />
<xsd:element name="Muafiyetler_5" type="xsd:string" />
<xsd:element name="Algilama_birimi_3" type="xsd:string" />
<xsd:element name="Teslim_sekli" type="xsd:string" />
<xsd:element name="Ek_kod" type="xsd:string" />
<xsd:element name="Ozellik" type="xsd:string" />
<xsd:element name="Fatura_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Navlun_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Sigorta_miktarinin_dovizi" type="xsd:string" />
<xsd:element name="Tarifedeki_tanimi" type="xsd:string" />
<xsd:element name="Ticari_tanimi" type="xsd:string" />
<xsd:element name="Marka" type="xsd:string" />
<xsd:element name="Numara" type="xsd:string" />
<xsd:element name="Cinsi" type="xsd:string" />
<xsd:element name="Miktar_birimi" type="xsd:string" />
<xsd:element name="Mahrece_iade" type="xsd:string" />
<xsd:element name="Ikincil_islem" type="xsd:string" />
<xsd:element name="Satir_no" type="xsd:string" />
<xsd:element name="Kdv_orani" type="xsd:string" />
<xsd:element name="Kullanilmis_esya" type="xsd:string" />
<xsd:element name="Aciklama_44" type="xsd:string" />
<xsd:element name="Imalatci_Vergino" type="xsd:string" />
<xsd:element name="Yurtici_Diger_Aciklama" type="xsd:string" />
<xsd:element name="Muafiyet_Aciklamasi" type="xsd:string" />
<xsd:element name="Referans_Tarihi" type="xsd:string" />
<xsd:element name="YurtDisi_Komisyon_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Demuraj_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Royalti_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Faiz_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Diger_Dovizi" type="xsd:string" />
<xsd:element name="YurtDisi_Diger_Aciklama" type="xsd:string" />
<xsd:element name="Kalem_Islem_Niteligi" type="xsd:string" />
<xsd:element name="Giris_Cikis_Amaci" type="xsd:string" />
<xsd:element name="Giris_Cikis_Amaci_Aciklama" type="xsd:string" />
<xsd:element name="STM_IlKodu" type="xsd:string" />
<xsd:element name="EsyaGeriGelmeSebebi" type="xsd:string" />
<xsd:element name="EsyaGeriGelmeSebebiAciklamasi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTamamlayici">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tamamlayici">
<xsd:sequence>
<xsd:element name="Tamamlayici_bilgi" type="xsd:string" />
<xsd:element name="Tamamlayici_bilgi_orani" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfTcgbacmakapatma">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="tcgbacmakapatma">
<xsd:sequence>
<xsd:element name="Kapatilan_beyanname_no" type="xsd:string" />
<xsd:element name="Kapatilan_kalem_no" type="xsd:int" />
<xsd:element name="Aciklama" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfMarka">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Marka">
<xsd:sequence>
<xsd:element name="Marka_Turu" type="xsd:string" />
<xsd:element name="Marka_Tescil_No" type="xsd:string" />
<xsd:element name="Marka_Adi" type="xsd:string" />
<xsd:element name="Referans_No" type="xsd:string" />
<xsd:element name="Model_Yili" type="xsd:string" />
<xsd:element name="Model" type="xsd:string" />
<xsd:element name="Motor_hacmi" type="xsd:string" />
<xsd:element name="Silindir_adedi" type="xsd:int" />
<xsd:element name="Renk" type="xsd:string" />
<xsd:element name="MotorTipi" type="xsd:string" />
<xsd:element name="MotorNo" type="xsd:string" />
<xsd:element name="MotorGucu" type="xsd:int" />
<xsd:element name="Vites" type="xsd:string" />
<xsd:element name="IMEINo" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKonteyner">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Konteyner">
<xsd:sequence>
<xsd:element name="Konteyner_No" type="xsd:string" />
<xsd:element name="Ulke_Kodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfVergiMuafiyeti">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="VergiMuafiyeti">
<xsd:sequence>
<xsd:element name="VergiMuafiyetKodu" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfHavacilikYakitTuru">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="HavacilikYakitTuru">
<xsd:sequence>
<xsd:element name="VergiNumarasi" type="xsd:string" />
<xsd:element name="FaturaTarihi" type="xsd:string" />
<xsd:element name="FaturaNumarasi" type="xsd:string" />
<xsd:element name="ToplamFaturaMiktar" type="xsd:string" />
<xsd:element name="YakitTuru" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfOdemeSekli">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="OdemeSekli">
<xsd:sequence>
<xsd:element name="OdemeSekliKodu" type="xsd:string" />
<xsd:element name="TBFID" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfSoru_Cevap">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Soru_Cevap">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Soru_no" type="xsd:string" />
<xsd:element name="Cevap" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfDokuman">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Dokuman">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Kod" type="xsd:string" />
<xsd:element name="Dogrulama" type="xsd:string" />
<xsd:element name="Belge_tarihi" type="xsd:string" />
<xsd:element name="Referans" type="xsd:string" />
<xsd:element name="Vize_Tarihi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfVergi">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Vergi">
<xsd:sequence>
<xsd:element name="Kalem_no" type="xsd:int" />
<xsd:element name="Kod" type="xsd:string" />
<xsd:element name="Aciklama" type="xsd:string" />
<xsd:element name="Oran" type="xsd:string" />
<xsd:element name="Odeme_sekli" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKiymet">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="Kiymet">
<xsd:sequence>
<xsd:element name="TeslimSekli" type="xsd:string" />
<xsd:element name="FaturaTarihiSayisi" type="xsd:string" />
<xsd:element name="SozlesmeTarihiSayisi" type="xsd:string" />
<xsd:element name="GumrukIdaresiKarari" type="xsd:string" />
<xsd:element name="AliciSatici" type="xsd:string" />
<xsd:element name="Munasebet" type="xsd:string" />
<xsd:element name="Emsal" type="xsd:string" />
<xsd:element name="AliciSaticiAyrintilar" type="xsd:string" />
<xsd:element name="Kisitlamalar" type="xsd:string" />
<xsd:element name="Edim" type="xsd:string" />
<xsd:element name="KisitlamalarAyrintilar" type="xsd:string" />
<xsd:element name="Royalti" type="xsd:string" />
<xsd:element name="RoyaltiKosullar" type="xsd:string" />
<xsd:element name="SaticiyaIntikal" type="xsd:string" />
<xsd:element name="SaticiyaIntikalKosullar" type="xsd:string" />
<xsd:element name="SehirYer" type="xsd:string" />
<xsd:element name="Taahutname" type="xsd:string" />
<xsd:element name="KiymetKalemler" type="ArrayOfKiymetKalem" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ArrayOfKiymetKalem">
<xsd:sequence />
</xsd:complexType>
<xsd:complexType name="KiymetKalem">
<xsd:sequence>
<xsd:element name="KiymetKalemNo" type="xsd:int" />
<xsd:element name="BeyannameKalemNo" type="xsd:int" />
<xsd:element name="DigerOdemelerNiteligi" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:element name="BeyannameBilgi" type="BeyannameBilgi" />
<xsd:element name="ArrayOfFirma" type="ArrayOfFirma" />
<xsd:element name="firma" type="firma" />
<xsd:element name="ArrayOfTeminat" type="ArrayOfTeminat" />
<xsd:element name="Teminat" type="Teminat" />
<xsd:element name="ArrayOfOzetbeyan" type="ArrayOfOzetbeyan" />
<xsd:element name="Ozetbeyan" type="Ozetbeyan" />
<xsd:element name="ArrayOfTasimasenetleri" type="ArrayOfTasimasenetleri" />
<xsd:element name="tasimasenetleri" type="tasimasenetleri" />
<xsd:element name="ArrayOfTasimasatirlari" type="ArrayOfTasimasatirlari" />
<xsd:element name="tasimasatirlari" type="tasimasatirlari" />
<xsd:element name="ArrayOfKalem" type="ArrayOfKalem" />
<xsd:element name="kalem" type="kalem" />
<xsd:element name="ArrayOfTamamlayici" type="ArrayOfTamamlayici" />
<xsd:element name="tamamlayici" type="tamamlayici" />
<xsd:element name="ArrayOfTcgbacmakapatma" type="ArrayOfTcgbacmakapatma" />
<xsd:element name="tcgbacmakapatma" type="tcgbacmakapatma" />
<xsd:element name="ArrayOfMarka" type="ArrayOfMarka" />
<xsd:element name="Marka" type="Marka" />
<xsd:element name="ArrayOfKonteyner" type="ArrayOfKonteyner" />
<xsd:element name="Konteyner" type="Konteyner" />
<xsd:element name="ArrayOfVergiMuafiyeti" type="ArrayOfVergiMuafiyeti" />
<xsd:element name="VergiMuafiyeti" type="VergiMuafiyeti" />
<xsd:element name="ArrayOfHavacilikYakitTuru" type="ArrayOfHavacilikYakitTuru" />
<xsd:element name="HavacilikYakitTuru" type="HavacilikYakitTuru" />
<xsd:element name="ArrayOfOdemeSekli" type="ArrayOfOdemeSekli" />
<xsd:element name="OdemeSekli" type="OdemeSekli" />
<xsd:element name="ArrayOfSoru_Cevap" type="ArrayOfSoru_Cevap" />
<xsd:element name="Soru_Cevap" type="Soru_Cevap" />
<xsd:element name="ArrayOfDokuman" type="ArrayOfDokuman" />
<xsd:element name="Dokuman" type="Dokuman" />
<xsd:element name="ArrayOfVergi" type="ArrayOfVergi" />
<xsd:element name="Vergi" type="Vergi" />
<xsd:element name="ArrayOfKiymet" type="ArrayOfKiymet" />
<xsd:element name="Kiymet" type="Kiymet" />
<xsd:element name="ArrayOfKiymetKalem" type="ArrayOfKiymetKalem" />
<xsd:element name="KiymetKalem" type="KiymetKalem" />
</xsd:schema>

1362
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.json Normal file
View File

File diff suppressed because it is too large Load Diff

321
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/TR_EX/declarationJsonSchema.xsd Normal file
View File

@@ -0,0 +1,321 @@
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:complexType name="DeclarationInfo">
<xsd:sequence>
<xsd:element name="declarationNo" type="xsd:string" />
<xsd:element name="Procedure" type="xsd:string" />
<xsd:element name="customs" type="xsd:string" />
<xsd:element name="simplifiedProcedure" type="xsd:string" />
<xsd:element name="loadingList" type="xsd:int" />
<xsd:element name="totalPackageQuantity" type="xsd:int" />
<xsd:element name="tradeCountry" type="xsd:string" />
<xsd:element name="referenceNo" type="xsd:string" />
<xsd:element name="associationRegistrationNo" type="xsd:string" />
<xsd:element name="associationCryptoNo" type="xsd:string" />
<xsd:element name="countryOfExit" type="xsd:string" />
<xsd:element name="countryOfDestination" type="xsd:string" />
<xsd:element name="countryOfFirstDestination" type="xsd:string" />
<xsd:element name="exitVehicleType" type="xsd:string" />
<xsd:element name="exitVehicleIdentity" type="xsd:string" />
<xsd:element name="exitVehicleCountry" type="xsd:string" />
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="deliveryPlace" type="xsd:string" />
<xsd:element name="Container" type="xsd:string" />
<xsd:element name="borderVehicleType" type="xsd:string" />
<xsd:element name="borderVehicleIdentity" type="xsd:string" />
<xsd:element name="borderVehicleCountry" type="xsd:string" />
<xsd:element name="totalPayableAmountCurrency" type="xsd:string" />
<xsd:element name="totalFreightAmountCurrency" type="xsd:string" />
<xsd:element name="borderTransportMeans" type="xsd:string" />
<xsd:element name="partyRelationshipCode" type="xsd:string" />
<xsd:element name="totalInsuranceCurrency" type="xsd:string" />
<xsd:element name="transportHandlingPlace" type="xsd:string" />
<xsd:element name="totalForeignExpenditureCurrency" type="xsd:string" />
<xsd:element name="bankCode" type="xsd:string" />
<xsd:element name="itemLocation" type="xsd:string" />
<xsd:element name="destinationCustomsOffice" type="xsd:string" />
<xsd:element name="warehouseCode" type="xsd:string" />
<xsd:element name="plannedRoute" type="xsd:string" />
<xsd:element name="exitCustomsOffice" type="xsd:string" />
<xsd:element name="transactionNature" type="xsd:string" />
<xsd:element name="remarks" type="xsd:string" />
<xsd:element name="userCode" type="xsd:string" />
<xsd:element name="referenceDate" type="xsd:string" />
<xsd:element name="payment" type="xsd:string" />
<xsd:element name="paymentMeans" type="xsd:string" />
<xsd:element name="customsBrokerReference" type="xsd:string" />
<xsd:element name="consignorTaxNo" type="xsd:string" />
<xsd:element name="consigneeTaxNo" type="xsd:string" />
<xsd:element name="declarantTaxNo" type="xsd:string" />
<xsd:element name="financialResponsibleTaxNo" type="xsd:string" />
<xsd:element name="personelResponsibleTaxNo" type="xsd:string" />
<xsd:element name="partyInfo" type="ArrayOfParty" />
<xsd:element name="guarantee" type="ArrayOfGuarantee" />
<xsd:element name="summaryDeclarations" type="ArrayOfSummaryDeclaration" />
<xsd:element name="items" type="ArrayOfItem" />
<xsd:element name="questions" type="ArrayOfQuestion" />
<xsd:element name="documents" type="ArrayOfDocument" />
<xsd:element name="duties" type="ArrayOfDuty" />
<xsd:element name="valueDeclaration" type="ArrayOfValue" />
<xsd:element name="electronicMail1" type="xsd:string" />
<xsd:element name="electronicMail2" type="xsd:string" />
<xsd:element name="electronicMail3" type="xsd:string" />
<xsd:element name="mobile1" type="xsd:string" />
<xsd:element name="mobile2" type="xsd:string" />
<xsd:element name="overTimeID" type="xsd:string" />
<xsd:element name="portCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="party">
<xsd:sequence>
<xsd:element name="partyType" type="xsd:string" />
<xsd:element name="countryCode" type="xsd:string" />
<xsd:element name="postalCode" type="xsd:string" />
<xsd:element name="identificationType" type="xsd:string" />
<xsd:element name="telefax" type="xsd:string" />
<xsd:element name="no" type="xsd:string" />
<xsd:element name="nameTitle" type="xsd:string" />
<xsd:element name="streetName" type="xsd:string" />
<xsd:element name="telephone" type="xsd:string" />
<xsd:element name="cityAndCitySubdivisionName" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Guarantee">
<xsd:sequence>
<xsd:element name="guaranteeType" type="xsd:string" />
<xsd:element name="globalGuaranteeNo" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
<xsd:element name="otherAmountReference" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="SummaryDeclaration">
<xsd:sequence>
<xsd:element name="transportBills" type="ArrayOfTransportBills" />
<xsd:element name="summaryDeclarationNo" type="xsd:string" />
<xsd:element name="summaryDeclarationJobScope" type="xsd:string" />
<xsd:element name="innerWhareHouse" type="xsd:string" />
<xsd:element name="otherRegime" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="transportBills">
<xsd:sequence>
<xsd:element name="transportIBillNo" type="xsd:string" />
<xsd:element name="transportItems" type="ArrayOfTransportItems" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="transportItems">
<xsd:sequence>
<xsd:element name="transportItemNo" type="xsd:string" />
<xsd:element name="wharehouseKod" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="item">
<xsd:sequence>
<xsd:element name="supplementaryInfo" type="ArrayOfComlementary" />
<xsd:element name="tcgbOpenCloses" type="ArrayOfTcgbOpenClose" />
<xsd:element name="tradeMarkInfo" type="ArrayOfTradeMark" />
<xsd:element name="containers" type="ArrayOfContainer" />
<xsd:element name="dutyExemptions" type="ArrayOfDutyExemption" />
<xsd:element name="aviationFuelTypes" type="ArrayOfAviationFuelType" />
<xsd:element name="paymentMeans" type="ArrayOfPaymentMeans" />
<xsd:element name="HSCode" type="xsd:string" />
<xsd:element name="producer" type="xsd:string" />
<xsd:element name="itemLineNo" type="xsd:int" />
<xsd:element name="originCountry" type="xsd:string" />
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
<xsd:element name="internationalTreaty" type="xsd:string" />
<xsd:element name="detectionUnit1" type="xsd:string" />
<xsd:element name="detectionUnit2" type="xsd:string" />
<xsd:element name="exemptions1" type="xsd:string" />
<xsd:element name="exemptions2" type="xsd:string" />
<xsd:element name="exemptions3" type="xsd:string" />
<xsd:element name="exemptions4" type="xsd:string" />
<xsd:element name="exemptions5" type="xsd:string" />
<xsd:element name="detectionUnit3" type="xsd:string" />
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="additionalCode" type="xsd:string" />
<xsd:element name="specification" type="xsd:string" />
<xsd:element name="invoiceAmountCurrency" type="xsd:string" />
<xsd:element name="freightAmountCurrency" type="xsd:string" />
<xsd:element name="insuranceAmountCurrency" type="xsd:string" />
<xsd:element name="tariffDefinition" type="xsd:string" />
<xsd:element name="itemDescription" type="xsd:string" />
<xsd:element name="brandName" type="xsd:string" />
<xsd:element name="itemNo" type="xsd:string" />
<xsd:element name="packagingType" type="xsd:string" />
<xsd:element name="itemUnitOfMeasure" type="xsd:string" />
<xsd:element name="returnToOrigin" type="xsd:string" />
<xsd:element name="secondaryProcess" type="xsd:string" />
<xsd:element name="lineNumber" type="xsd:string" />
<xsd:element name="vatRate" type="xsd:string" />
<xsd:element name="usedGoods" type="xsd:string" />
<xsd:element name="description44" type="xsd:string" />
<xsd:element name="producerTaxNo" type="xsd:string" />
<xsd:element name="domesticOtherExplanation" type="xsd:string" />
<xsd:element name="exemptionExplanation" type="xsd:string" />
<xsd:element name="referenceDate" type="xsd:string" />
<xsd:element name="foreignComissionCurrency" type="xsd:string" />
<xsd:element name="foreignDemurrageCurrency" type="xsd:string" />
<xsd:element name="foreignRoyaltyCurrency" type="xsd:string" />
<xsd:element name="foreignInterestCurrency" type="xsd:string" />
<xsd:element name="foreignOtherCurrency" type="xsd:string" />
<xsd:element name="foreignOtherExplanation" type="xsd:string" />
<xsd:element name="itemProcessType" type="xsd:string" />
<xsd:element name="reasonForEntryOrExit" type="xsd:string" />
<xsd:element name="reasonForEntryOrExitExplanation" type="xsd:string" />
<xsd:element name="stmProvinceCode" type="xsd:string" />
<xsd:element name="itemReturnReason" type="xsd:string" />
<xsd:element name="itemReturnReasonExplanation" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Comlementary">
<xsd:sequence>
<xsd:element name="supplementaryInfo" type="xsd:string" />
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TcgbOpenClose">
<xsd:sequence>
<xsd:element name="closedDeclarationNo" type="xsd:string" />
<xsd:element name="closedItemNo" type="xsd:int" />
<xsd:element name="description" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="TradeMark">
<xsd:sequence>
<xsd:element name="tradeMarkType" type="xsd:string" />
<xsd:element name="tradeMarkRegistrationNo" type="xsd:string" />
<xsd:element name="tradeMarkName" type="xsd:string" />
<xsd:element name="referanceNo" type="xsd:string" />
<xsd:element name="modelYear" type="xsd:string" />
<xsd:element name="model" type="xsd:string" />
<xsd:element name="engineVolume" type="xsd:string" />
<xsd:element name="engineCylinderQuantity" type="xsd:int" />
<xsd:element name="color" type="xsd:string" />
<xsd:element name="engineType" type="xsd:string" />
<xsd:element name="engineNo" type="xsd:string" />
<xsd:element name="horsePower" type="xsd:int" />
<xsd:element name="gear" type="xsd:string" />
<xsd:element name="IMEINo" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Container">
<xsd:sequence>
<xsd:element name="containerNo" type="xsd:string" />
<xsd:element name="countryCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="DutyExemption">
<xsd:sequence>
<xsd:element name="dutyExemptionCode" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="AviationFuelType">
<xsd:sequence>
<xsd:element name="taxNo" type="xsd:string" />
<xsd:element name="invoiceDate" type="xsd:string" />
<xsd:element name="invoiceNumber" type="xsd:string" />
<xsd:element name="totalInvoiceAmount" type="xsd:string" />
<xsd:element name="fuelType" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="PaymentMeans">
<xsd:sequence>
<xsd:element name="paymentMeansCode" type="xsd:string" />
<xsd:element name="TBFID" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Question">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="questionNo" type="xsd:string" />
<xsd:element name="answer" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Document">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="code" type="xsd:string" />
<xsd:element name="verification" type="xsd:string" />
<xsd:element name="documentDate" type="xsd:string" />
<xsd:element name="reference" type="xsd:string" />
<xsd:element name="visaDate" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Duty">
<xsd:sequence>
<xsd:element name="itemNo" type="xsd:int" />
<xsd:element name="code" type="xsd:string" />
<xsd:element name="explanation" type="xsd:string" />
<xsd:element name="dutyRate" type="xsd:string" />
<xsd:element name="paymentMeans" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="Value">
<xsd:sequence>
<xsd:element name="deliveryTerms" type="xsd:string" />
<xsd:element name="invoiceDateNo" type="xsd:string" />
<xsd:element name="contractDateNo" type="xsd:string" />
<xsd:element name="customsOfficeNo" type="xsd:string" />
<xsd:element name="buyerSeller" type="xsd:string" />
<xsd:element name="relation" type="xsd:string" />
<xsd:element name="imputed" type="xsd:string" />
<xsd:element name="buyerSellerDetails" type="xsd:string" />
<xsd:element name="constraints" type="xsd:string" />
<xsd:element name="deed" type="xsd:string" />
<xsd:element name="constraintDetails" type="xsd:string" />
<xsd:element name="royalty" type="xsd:string" />
<xsd:element name="royaltyConditions" type="xsd:string" />
<xsd:element name="sellerPass" type="xsd:string" />
<xsd:element name="sellerPassConditions" type="xsd:string" />
<xsd:element name="cityLocation" type="xsd:string" />
<xsd:element name="recognisance" type="xsd:string" />
<xsd:element name="ValueItems" type="ArrayOfValueItem" />
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="ValueItem">
<xsd:sequence>
<xsd:element name="valueItemNumber" type="xsd:int" />
<xsd:element name="declarationItemNumber" type="xsd:int" />
<xsd:element name="otherPaymentKind" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
<xsd:element name="DeclarationInfo" type="DeclarationInfo" />
<xsd:element name="ArrayOfParty" type="ArrayOfParty" />
<xsd:element name="party" type="party" />
<xsd:element name="ArrayOfGuarantee" type="ArrayOfGuarantee" />
<xsd:element name="Guarantee" type="Guarantee" />
<xsd:element name="ArrayOfSummaryDeclaration" type="ArrayOfSummaryDeclaration" />
<xsd:element name="SummaryDeclaration" type="SummaryDeclaration" />
<xsd:element name="ArrayOfTransportBills" type="ArrayOfTransportBills" />
<xsd:element name="transportBills" type="transportBills" />
<xsd:element name="ArrayOfTransportItems" type="ArrayOfTransportItems" />
<xsd:element name="transportItems" type="transportItems" />
<xsd:element name="ArrayOfItem" type="ArrayOfItem" />
<xsd:element name="Item" type="item" />
<xsd:element name="ArrayOfComlementary" type="ArrayOfComlementary" />
<xsd:element name="Comlementary" type="Comlementary" />
<xsd:element name="ArrayOfTcgbOpenClose" type="ArrayOfTcgbOpenClose" />
<xsd:element name="TcgbOpenClose" type="TcgbOpenClose" />
<xsd:element name="ArrayOfTradeMark" type="ArrayOfTradeMark" />
<xsd:element name="TradeMark" type="TradeMark" />
<xsd:element name="ArrayOfContainer" type="ArrayOfContainer" />
<xsd:element name="Container" type="Container" />
<xsd:element name="ArrayOfDutyExemption" type="ArrayOfDutyExemption" />
<xsd:element name="DutyExemption" type="DutyExemption" />
<xsd:element name="ArrayOfAviationFuelType" type="ArrayOfAviationFuelType" />
<xsd:element name="AviationFuelType" type="AviationFuelType" />
<xsd:element name="ArrayOfPaymentMeans" type="ArrayOfPaymentMeans" />
<xsd:element name="PaymentMeans" type="PaymentMeans" />
<xsd:element name="ArrayOfQuestion" type="ArrayOfQuestion" />
<xsd:element name="Question" type="Question" />
<xsd:element name="ArrayOfDocument" type="ArrayOfDocument" />
<xsd:element name="Document" type="Document" />
<xsd:element name="ArrayOfDuty" type="ArrayOfDuty" />
<xsd:element name="Duty" type="Duty" />
<xsd:element name="ArrayOfValue" type="ArrayOfValue" />
<xsd:element name="Value" type="Value" />
<xsd:element name="ArrayOfValueItem" type="ArrayOfValueItem" />
<xsd:element name="ValueItem" type="ValueItem" />
</xsd:schema>

387
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb Normal file
View File

@@ -0,0 +1,387 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_TRAviso
Public Property Company As String
Public Property Department As String
Public Property PartnerTID As String
Public Property Reference As String
Public Property TotPackage As Integer = 0
Public Property TotGrossWeight As Object = Nothing
Public Property TransportModeBorder As Object = Nothing
Public Property TransportLicensePlate As String = ""
Public Property TransportCountryCode As String = ""
Public Property TransportBorderType As Object = Nothing
Public Property FreightCompany As Object = Nothing
Public Property FreightCompanyID As Object = Nothing
Public Property Info As String = ""
Public Property POSITIONS As New List(Of cVERAG_in_TRAviso_shipments)
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
End Class
Public Class cVERAG_in_TRAviso_Adressen
Public Property AddressCode As String = "" ' VARCHAR (10) NULL,
Public Property CustomerID As String = "" ' VARCHAR (10) NULL,
Public Property EORI As String = "" ' VARCHAR (17) NULL,
Public Property NLNR As String = "" ' DECIMAL (4) NULL,
Public Property Name1 As String = "" ' VARCHAR (120) NULL,
Public Property Name2 As String = "" ' VARCHAR (120) NULL,
Public Property Name3 As String = "" ' VARCHAR (120) NULL,
Public Property Street1 As String = "" ' VARCHAR (35) NULL,
Public Property Street2 As String = "" ' VARCHAR (35) NULL,
Public Property City As String = "" ' VARCHAR (35) NULL,
Public Property CountryCode As String = "" ' VARCHAR (3) NULL,
Public Property PostalCode As String = "" ' VARCHAR (9) NULL,
Public Property UStID As String = "" ' VARCHAR (14) NULL,
End Class
Public Class cVERAG_in_TRAviso_shipments
Public Property Nr As Integer = 1
Public Property Reference As Object = Nothing
Public Property DeclarationCountry As String = ""
Public Property DeclarationType As String = ""
Public Property CustomsCodeDeparture As String = ""
Public Property CustomsCodeDestination As String = ""
Public Property CountryCodeDeparture As String = ""
Public Property CountryCodeDestination As String = ""
Public Property DEStateCodeDestination As String = ""
Public Property OriginCountryCode As String = ""
Public Property GrossWeight As Object = Nothing
Public Property NetWeight As Object = Nothing
Public Property NumberOfPackages As Integer = 0
Public Property KindOfPackages As String = ""
Public Property Incoterm As String = ""
Public Property PrePaperCode As String = ""
Public Property PrePaperNr As String = ""
Public Property InvoiceAmount As Object = Nothing
Public Property InvoiceCurrency As String = ""
Public Property ContainerNr1 As String = ""
Public Property ContainerNr2 As String = ""
Public Property ContainerNr3 As String = ""
Public Property ContainerNr4 As String = ""
Public Property GoodsDescription As String = ""
Public Property Info As String = ""
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
Public Property ADDRESS As New List(Of cVERAG_in_TRAviso_Adressen)
Sub New()
End Sub
End Class
Public Class cVERAG_in_TRAviso_document
Public Property DocumentType As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
Public Property base64BinaryStream As String = ""
Public Property FileName As String = ""
'Shared Function SAVE_toDS() As Integer
' Return -1
'End Function
End Class
Public Class cVERAG_in_TRAvisoFULL
Property trAv_Id As Integer
Property trAv_PartnerSystem As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_datetime As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property trAv_Firma As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_Niederlassung As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_Reference As Object = Nothing ' VARCHAR(500) Not NULL,
Property trAv_Kennzeichen As Object = Nothing ' VARCHAR(50) NULL,
Property trAv_Nationalitaet As Object = Nothing ' VARCHAR(50) NULL,
Property trAv_Avisierer As Object = Nothing ' VARCHAR(200) NULL,
Property trAv_AvisiererKdNr As Object = Nothing ' INT NULL,
Property trAv_Fraechter As Object = Nothing ' VARCHAR(200) NULL,
Property trAv_FraechterKdNr As Object = Nothing ' INT NULL,
Property trAv_Grenzueberschreitung As Object = Nothing ' INT NULL,
Property trAv_Transportmittel As Object = Nothing ' INT NULL,
Property trAv_colli As Object = Nothing ' FLOAT(53) NULL,
Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL,
Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL,
Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL,
Property trAv_AVISO_einarbeitet As Boolean = False ' VARCHAR(max) NULL,
Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge)
'Property SHIPMENTS As New List(Of cVERAG_in_shippment)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Sub New(trAv_Id)
Me.trAv_Id = trAv_Id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Id", trAv_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_PartnerSystem", trAv_PartnerSystem)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_datetime", trAv_datetime)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Firma", trAv_Firma)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Niederlassung", trAv_Niederlassung)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Reference", trAv_Reference)) ' VARCHAR(500) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Kennzeichen", trAv_Kennzeichen)) ' VARCHAR(50) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Nationalitaet", trAv_Nationalitaet)) ' VARCHAR(50) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Avisierer", trAv_Avisierer)) ' VARCHAR(200) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AvisiererKdNr", trAv_AvisiererKdNr)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Fraechter", trAv_Fraechter)) ' VARCHAR(200) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_FraechterKdNr", trAv_FraechterKdNr)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Grenzueberschreitung", trAv_Grenzueberschreitung)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Transportmittel", trAv_Transportmittel)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_colli", trAv_colli)) ' FLOAT(53) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AVISO_einarbeitet", trAv_AVISO_einarbeitet)) ' VARCHAR(max) NULL,
Return list
End Function
Public Function SAVE(Optional saveAll = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Aviso WITH(updlock,serializable) WHERE trAv_Id=@trAv_Id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
trAv_Id = SQL.doSQLVarListID(trAv_Id, sqlstr, "FMZOLL", , list)
If trAv_Id > 0 And saveAll Then
SAVE_Anhaenge()
' SAVE_Sicherheit()
End If
Return trAv_Id > 0
End Function
Public Sub LOAD(Optional loadALL = True)
Try
If loadALL Then
ANHAENGE.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Aviso WHERE trAv_Id=@trAv_Id ", conn)
cmd.Parameters.AddWithValue("@trAv_Id", trAv_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
If loadALL Then
LOAD_Anhaenge()
End If
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblTR_Aviso] SET " & str & " WHERE trAv_Id=@trAv_Id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_Aviso (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
s = s.Replace("TRY", "TRL") ' Türkische Lira
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
End Function
Public Sub LOAD_Anhaenge()
Try
ANHAENGE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_AvisoAnheange WHERE trAvAh_trAvId=@trAv_Id ", conn)
cmd.Parameters.AddWithValue("@trAv_Id", Me.trAv_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_TRAvisoAnhaenge
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
'l.LOAD_Packstücke()
ANHAENGE.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Function DELETE_Anhaenge() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_AvisoAnheange] WHERE trAvAh_trAvId =" & Me.trAv_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Anhaenge() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Anhaenge() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In ANHAENGE
p.trAvAh_trAvId = trAv_Id
If p.INSERT() Then
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
End Class
Public Class cVERAG_in_TRAvisoAnhaenge
Property trAvAh_id As Integer
Property trAvAh_trAvId As Integer
Property DocumentType As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property trAvAh_docID As Integer
Sub New()
End Sub
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_id", trAvAh_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DocumentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL,
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
trAvAh_id = SQL.doSQLVarListID(trAvAh_id, getInsertCmd, "FMZOLL", , list)
Return trAvAh_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_AvisoAnheange (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

864
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb Normal file
View File

@@ -0,0 +1,864 @@

Imports System.Data.SqlClient
Imports System.Reflection
'Public Class cVERAG_in_eza_position_FULL
' Inherits cVERAG_in_eza_position
' Property shTrPos_id As Integer = ""
' Property shTrPos_ShTrId As String = ""
' Sub New()
' End Sub
' Dim SQL As New SQL
'End Class
Public Class cVERAG_in_eza_FULL
' Inherits cVERAG_in_eza
Public EZA As cVERAG_in_eza = Nothing
Property shTr_id As Integer
Property shTr_Partnersystem As String = ""
Property trAv_Info As String = ""
Property shTr_Status As String = ""
Public Property shTr_TRAvisoId As Object = Nothing
Sub New(EZA As cVERAG_in_eza)
setEZA(EZA)
End Sub
Public Sub setEZA(EZA As cVERAG_in_eza)
Me.EZA = EZA
End Sub
Sub New(shTr_id As Integer)
Me.shTr_id = shTr_id
Me.EZA = New cVERAG_in_eza
LOAD()
End Sub
Dim SQL As New SQL
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_TRAvisoId", shTr_TRAvisoId,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Company", EZA.Company))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Department", EZA.Department))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Reference", EZA.Reference))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationCountry", EZA.DeclarationCountry))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationType", EZA.DeclarationType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotPackage", EZA.TotPackage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotGrossWeight", EZA.TotGrossWeight))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDeparture", EZA.CustomsCodeDeparture))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDestination", EZA.CustomsCodeDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeEntry", EZA.CustomsCodeEntry))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportModeBorder", EZA.TransportModeBorder))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDeparture", EZA.CountryCodeDeparture))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDestination", EZA.CountryCodeDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DEStateCodeDestination", EZA.DEStateCodeDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalLicensePlate", EZA.TransportArrivalLicensePlate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalCountryCode", EZA.TransportArrivalCountryCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderType", EZA.TransportBorderType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderLicensePlate", EZA.TransportBorderLicensePlate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Incoterm", EZA.Incoterm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperCode", EZA.PrePaperCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperNr", EZA.PrePaperNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfBusiness", EZA.KindOfBusiness))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceAmount", EZA.InvoiceAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceCurrency", EZA.InvoiceCurrency))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr1", EZA.ContainerNr1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr2", EZA.ContainerNr2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr3", EZA.ContainerNr3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr4", EZA.ContainerNr4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsEU", EZA.FreightCostsEU))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsNonEU", EZA.FreightCostsNonEU))
Return list
End Function
Function getParameterList_POS(POS As cVERAG_in_eza_position) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PosNr", POS.PosNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariff", POS.GoodsTariff))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt1", POS.GoodsTariffExt1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt2", POS.GoodsTariffExt2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt3", POS.GoodsTariffExt3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt4", POS.GoodsTariffExt4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt5", POS.GoodsTariffExt5))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt6", POS.GoodsTariffExt6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt7", POS.GoodsTariffExt7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt8", POS.GoodsTariffExt8))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt9", POS.GoodsTariffExt9))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode1", POS.GoodsTariffYCode1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode2", POS.GoodsTariffYCode2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode3", POS.GoodsTariffYCode3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode4", POS.GoodsTariffYCode4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode5", POS.GoodsTariffYCode5))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode6", POS.GoodsTariffYCode6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode7", POS.GoodsTariffYCode7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode8", POS.GoodsTariffYCode8))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode9", POS.GoodsTariffYCode9))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode10", POS.GoodsTariffYCode10))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsDescription", POS.GoodsDescription))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OriginCountryCode", POS.OriginCountryCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GrossWeight", POS.GrossWeight))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NetWeight", POS.NetWeight))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NumberOfPackages", POS.NumberOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfPackages", POS.KindOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceAmount", POS.ItemInvoiceAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceCurrency", POS.ItemInvoiceCurrency))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmount", POS.ItemAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmountUnitCode", POS.ItemAmountUnitCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Procedure", POS.Procedure))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_ShTrId", Me.shTr_id,,,, True))
Return list
End Function
Function getParameterList_DOC(DOC As cVERAG_in_shipment_Document) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID))
Return list
End Function
Function getParameterList_ADR(ADR As cVERAG_in_eza_Adressen) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AdressType", ADR.AdressType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AddressCode", ADR.AddressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomerID", ADR.CustomerID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORI", ADR.EORI))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NLNR", ADR.NLNR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name1", ADR.Name1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name2", ADR.Name2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name3", ADR.Name3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street1", ADR.Street1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street2", ADR.Street2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("City", ADR.City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCode", ADR.CountryCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PostalCode", ADR.PostalCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TaxNo", ADR.TaxNo))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContactPerson", ADR.ContactPerson))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefon", ADR.Telefon))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email", ADR.Email))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrAd_ShTrId", Me.shTr_id,,,, True))
Return list
End Function
Function getParameterList_DOC(DOC As cVERAG_in_eza_position_document, ByRef shTrPosDoc_ShTrPosId As Integer) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrId", Me.shTr_id,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrPosId", shTrPosDoc_ShTrPosId,,,, True))
Return list
End Function
Public Function UPDATE_STATUS(status) As Boolean
Me.shTr_Status = status
Return Me.SAVE
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock, serializable) WHERE shTr_id=@shTr_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
shTr_id = SQL.doSQLVarListID(shTr_id, sqlstr, "FMZOLL", , list)
Return shTr_id > 0
End Function
Public Function SAVE_ALL() As Boolean
If EZA Is Nothing Then Return False
If Not SAVE() Then Return False
If Not SAVE_Warenposition() Then Return False
If Not SAVE_Documents() Then Return False
If Not SAVE_Adressen() Then Return False
Return True
End Function
Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
Try
LOAD = False
If loadALL Then
'shTr_Unterlagen.Clear()
EZA.POSITIONS.Clear()
EZA.ADDRESS.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM tblTR_Shipment WHERE shTr_id=@shTr_id ", conn)
cmd.Parameters.AddWithValue("@shTr_id", shTr_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
If Not li.isonlyForSave Then
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True))
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True))
End If
Next
If loadALL Then
LOAD_Warenposition()
LOAD_Adressen()
End If
LOAD = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return LOAD
End Function
Shared Function LOADByReference(Reference As String, Partnersystem As String, loadALL As Boolean) As cVERAG_in_eza_FULL
Try
Dim EZA As New cVERAG_in_eza
Dim EZA_FULL = New cVERAG_in_eza_FULL(EZA)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTR_Shipment WHERE shTr_Partnersystem=@Partnersystem and Reference=@Reference ", conn)
cmd.Parameters.AddWithValue("@Partnersystem", Partnersystem)
cmd.Parameters.AddWithValue("@Reference", Reference)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In EZA_FULL.getParameterList()
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EZA, Nothing)
Else
propInfo.SetValue(EZA, dr.Item(li.Text))
End If
Next
If loadALL Then
EZA_FULL.LOAD_Warenposition()
EZA_FULL.LOAD_Adressen()
End If
dr.Close()
Return EZA_FULL
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return Nothing
End Function
Shared Function UPDATE_StatusById(shTr_id As Integer, status As Integer) As String
If shTr_id > 0 Then
Try
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True))
'dy_Status_KEWILL_Equivalent = status
'dy_Status = status
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End If
Return ""
End Function
Public Function UPDATE_Status(status As Integer) As String
If shTr_id > 0 Then
Try
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True))
shTr_Status = status
Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End If
Return ""
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE shTr_id=@shTr_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_Shipment (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Sub LOAD_Adressen()
Try
EZA.ADDRESS.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Adressen WHERE shTrAd_ShTrId=@shTrAd_ShTrId ", conn)
cmd.Parameters.AddWithValue("@shTrAd_ShTrId", Me.shTr_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_eza_Adressen
For Each i In getParameterList_ADR(l)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
Next
EZA.ADDRESS.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Sub LOAD_Warenposition()
Try
EZA.POSITIONS.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position WHERE shTrPos_ShTrId=@shTrPos_ShTrId ", conn)
cmd.Parameters.AddWithValue("@shTrPos_ShTrId", Me.shTr_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_eza_position()
For Each i In getParameterList_POS(l)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
Next
LOAD_WarenpositionUnterlagen(l, dr.Item("shTrPos_id"))
EZA.POSITIONS.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Sub LOAD_WarenpositionUnterlagen(ByRef POS As cVERAG_in_eza_position, shTrPos_id As Integer)
Try
POS.DOCUMENTS.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position_Document WHERE shTrPosDoc_ShTrPosId=@shTrPosDoc_ShTrPosId ", conn)
cmd.Parameters.AddWithValue("@shTrPosDoc_ShTrPosId", shTrPos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_eza_position_document
For Each i In getParameterList_DOC(l, -1)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
Next
POS.DOCUMENTS.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position] WHERE shTrPos_ShTrId=" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE [shTrDoc_ShTrId]=" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position_Document] WHERE shTrPosDoc_ShTrId =" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Adressen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Adressen] WHERE shTrAd_ShTrId =" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Adressen() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Adressen() Then
'jetzt die Standartofferten einfügen
If EZA.ADDRESS IsNot Nothing Then
For Each p In EZA.ADDRESS
Dim posId As Integer
If INSERT_Adressen(posId, p) Then
Else
Return False
End If
Next
End If
Else
Return False
End If
Return True
End Function
Public Function SAVE_Warenposition() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Warenpositionen() And DELETE_WarenpositionUnterlagen() Then
If EZA.POSITIONS IsNot Nothing Then
'jetzt die Standartofferten einfügen
For Each p In EZA.POSITIONS
Dim posId As Integer
If INSERT_Position(posId, p) Then
SAVE_Warenposition_Documents(p, posId)
Else
Return False
End If
Next
End If
Else
Return False
End If
Return True
End Function
Public Function SAVE_Documents() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Documents() Then
If EZA.POSITIONS IsNot Nothing Then
'jetzt die Standartofferten einfügen
For Each p In EZA.DOCUMENTS
Dim posId As Integer
If INSERT_Documents(posId, p) Then
Else
Return False
End If
Next
End If
Else
Return False
End If
Return True
End Function
Public Function SAVE_Warenposition_Documents(POS As cVERAG_in_eza_position, posId As Integer) As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
'jetzt die Standartofferten einfügen
If POS.DOCUMENTS IsNot Nothing Then
For Each p In POS.DOCUMENTS
Dim posdocId As Integer
If INSERT_Position_Document(posdocId, p, posId) Then
Else
Return False
End If
Next
End If
Return True
End Function
Public Function INSERT_Adressen(ByRef posId As Integer, ByRef ADR As cVERAG_in_eza_Adressen) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_ADR(ADR)
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Adressen (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
Public Function INSERT_Position(ByRef posId As Integer, ByRef POS As cVERAG_in_eza_position) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_POS(POS)
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Position (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
Public Function INSERT_Documents(ByRef docId As Integer, ByRef DOC As cVERAG_in_shipment_Document) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC)
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(docId, (" INSERT INTO tblTR_Shipment_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
Public Function INSERT_Position_Document(ByRef posdocId As Integer, ByRef DOC As cVERAG_in_eza_position_document, posId As Integer) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId)
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
SQL.doSQL("insert into tbltest (test) Values('TT:: " & (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") ") & "')", "FMZOLL")
Return SQL.doSQLVarListID(posdocId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
End Class
'<Serializable()>
Public Class cVERAG_in_eza
Public Property Company As String
Public Property Department As String
Public Property Reference As String
Public Property DeclarationCountry As String = ""
Public Property DeclarationType As String = ""
Public Property TotPackage As Integer = 0
Public Property TotGrossWeight As Object = Nothing
Public Property CustomsCodeDeparture As String = "" ' GesRohmasse
Public Property CustomsCodeDestination As String = "" ' GesRohmasse
Public Property CustomsCodeEntry As String = ""
Public Property TransportModeBorder As Object = Nothing
Public Property CountryCodeDeparture As String = ""
Public Property CountryCodeDestination As String = ""
Public Property DEStateCodeDestination As String = ""
Public Property TransportArrivalLicensePlate As String = ""
Public Property TransportArrivalCountryCode As String = ""
Public Property TransportBorderType As Object = Nothing
Public Property TransportBorderLicensePlate As String = ""
Public Property Incoterm As String = ""
Public Property PrePaperCode As String = ""
Public Property PrePaperNr As String = ""
Public Property KindOfBusiness As Object = Nothing
Public Property InvoiceAmount As Object = Nothing
Public Property InvoiceCurrency As String = ""
Public Property ContainerNr1 As String = ""
Public Property ContainerNr2 As String = ""
Public Property ContainerNr3 As String = ""
Public Property ContainerNr4 As String = ""
Public Property FreightCostsEU As Object = Nothing
Public Property FreightCostsNonEU As Object = Nothing
Public Property POSITIONS As New List(Of cVERAG_in_eza_position)
Public Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
Public Property ADDRESS As New List(Of cVERAG_in_eza_Adressen)
End Class
Public Class cVERAG_in_eza_Adressen
Public Property AddressCode As String = "" ' VARCHAR (10) NULL,
Public Property CustomerID As String = "" ' VARCHAR (10) NULL,
Public Property EORI As String = "" ' VARCHAR (17) NULL,
Public Property NLNR As String = "" ' DECIMAL (4) NULL,
Public Property Name1 As String = "" ' VARCHAR (120) NULL,
Public Property Name2 As String = "" ' VARCHAR (120) NULL,
Public Property Name3 As String = "" ' VARCHAR (120) NULL,
Public Property Street1 As String = "" ' VARCHAR (35) NULL,
Public Property Street2 As String = "" ' VARCHAR (35) NULL,
Public Property City As String = "" ' VARCHAR (35) NULL,
Public Property CountryCode As String = "" ' VARCHAR (3) NULL,
Public Property PostalCode As String = "" ' VARCHAR (9) NULL,
Public Property UStID As String = "" 'NICHT MEHR --> TaxNo
Public Property TaxNo As String = "" ' VARCHAR (14) NULL,
Public Property ContactPerson As String = "" ' VARCHAR (14) NULL,
Public Property Telefon As String = "" ' VARCHAR (14) NULL,
Public Property Email As String = "" ' VARCHAR (14) NULL,
End Class
Public Class cVERAG_in_eza_position
Public Property PosNr As Integer = 1
Public Property GoodsTariff As Object = Nothing
Public Property GoodsTariffExt1 As Object = Nothing
Public Property GoodsTariffExt2 As Object = Nothing
Public Property GoodsTariffExt3 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt4 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt5 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt6 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt7 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt8 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt9 As Object = Nothing 'NICHT MEHR!!!
Public Property GoodsTariffExt10 As String = "" 'NICHT MEHR!!!
Public Property GoodsTariffYCode1 As String = ""
Public Property GoodsTariffYCode2 As String = ""
Public Property GoodsTariffYCode3 As String = ""
Public Property GoodsTariffYCode4 As String = ""
Public Property GoodsTariffYCode5 As String = ""
Public Property GoodsTariffYCode6 As String = ""
Public Property GoodsTariffYCode7 As String = ""
Public Property GoodsTariffYCode8 As String = ""
Public Property GoodsTariffYCode9 As String = ""
Public Property GoodsTariffYCode10 As String = ""
Public Property GoodsDescription As String = ""
Public Property OriginCountryCode As String = ""
Public Property GrossWeight As Object = Nothing
Public Property NetWeight As Object = Nothing
Public Property NumberOfPackages As Integer = 0
Public Property KindOfPackages As String = ""
Public Property ItemInvoiceAmount As Object = Nothing
Public Property ItemInvoiceCurrency As String = ""
Public Property ItemAmount As Object = Nothing
Public Property ItemAmountUnitCode As String = ""
Public Property Procedure As String = ""
Public Property DOCUMENTS As New List(Of cVERAG_in_eza_position_document)
Sub New()
End Sub
End Class
Public Class cVERAG_in_eza_position_document
Public Property DocumentType As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
End Class
Public Class cVERAG_in_shipment_Document
Property shTrDoc_id As Integer
Property shTrDoc_ShTrId As Integer
Property DocumentType As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property shTrPosDoc_docID As Object = Nothing
'Public Function INSERT() As Boolean
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
' shTrDoc_id = SQL.doSQLVarListID(shTrDoc_id, getInsertCmd, "FMZOLL", , list)
' Return shTrDoc_id > 0
'End Function
'Public Function getInsertCmd() As String
' Try
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' Dim str As String = ""
' Dim values As String = ""
' For Each i In list
' If Not i.isPrimaryParam Then
' str &= "[" & i.Text & "],"
' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
' End If
' Next
' str = str.Substring(0, str.Length - 1) 'wg. ','
' values = values.Substring(0, values.Length - 1) 'wg. ','
' Return (" INSERT INTO tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ")
' Catch ex As Exception
' MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
' End Try
' Return ""
'End Function
End Class

638
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb Normal file
View File

@@ -0,0 +1,638 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_shippmentWHST '????????
Property in_sh_id As Object = Nothing ' INT Not NULL,
Property in_sh_AvisoId As Object = Nothing ' INT NULL,
Property in_sh_SendungsId As Object = Nothing ' INT NULL,
Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL,
Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL,
'Property MsgType As Object = Nothing ' VARCHAR(10) NULL,
'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL,
'Property dec_Anmelde_ID As Object = Nothing ' INT NULL,
'Property dec_Template_ID As Object = Nothing ' INT NULL,
'Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL,
'Property dec_Lag_IND As Object = Nothing ' BIT NULL,
'Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL,
'Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL,
'Property dec_PreDec_IND As Object = Nothing ' BIT NULL,
'Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL,
'Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL,
'Property dec_FillPackList_IND As Object = Nothing ' BIT NULL,
'Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL,
'Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL,
'Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL,
Property Hea_DecTy As Object = Nothing ' Type --> T1, T2, EZA
Property Hea_TotItem As Object = Nothing ' Pos gesamt
Property Hea_TotPack As Object = Nothing ' Packstücke gesamt
Property Hea_TotGross As Object = Nothing ' GesRohmasse
'Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Hea_DefPayRef As Object = Nothing ' INT NULL,
'Property Hea_PerPayRef As Object = Nothing ' INT NULL,
'Property Hea_PayMet As Object = Nothing ' INT NULL,
'Property Hea_AExpRef As Object = Nothing ' BIT NULL,
'Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_Simp As Object = Nothing ' BIT Not NULL,
'Property Hea_IssD As Object = Nothing ' Date NULL,
Property Hea_AuthID As Object = Nothing ' ? ATA
Property Hea_Incoterm As Object = Nothing ' ? Lieferkondition
'Property Hea_TransDat As Object = Nothing ' BIT NULL,
'Property Hea_WoffD As Object = Nothing ' Date NULL,
'Property Hea_DecDT As Object = Nothing ' Date Not NULL,
'Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL,
'Property Hea_AccDT As Object = Nothing ' DATETIME NULL,
'Property Hea_SecInd As Object = Nothing ' BIT NULL,
'Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL,
'Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL,
'Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL,
'Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_War As Object = Nothing ' VARCHAR(17) NULL,
Property Transp_InMo As Object = Nothing ' Transportmittel INland
Property Transp_BordMo As Object = Nothing ' Transportmittel Grenze
Property Transp_DepTy As Object = Nothing ' Transportmittel TypAbfahrt
Property Transp_DepIdnt As Object = Nothing ' Transportmittel Kennezeichen Abfahrt
Property Transp_DepNat As Object = Nothing ' Transportmittel Nationalität Abfahrt
Property Transp_CrossTy As Object = Nothing ' Transportmittel Typ Grenze
Property Transp_CrossIdnt As Object = Nothing ' Transportmittel Kennezeichen Grenze
Property Transp_CrossIdntNat As Object = Nothing ' Transportmittel Nationalität Grenze
Property Transp_ContInd As Object = Nothing ' BIT NULL,
'Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
'Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL,
'Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL,
'Property ValData_TransacCd As Object = Nothing ' INT NULL,
Property ConorTra_Na As Object = Nothing ' ABSENDER
Property ConorTra_Strt As Object = Nothing '
Property ConorTra_Pst As Object = Nothing '
Property ConorTra_Cty As Object = Nothing '
Property ConorTra_Ctry As Object = Nothing '
Property ConorTra_EORI As Object = Nothing '
Property ConorTra_UIDCtry As Object = Nothing '
Property ConorTra_UID As Object = Nothing '
Property ConeeTra_Na As Object = Nothing ' EMPFÄNGER
Property ConeeTra_Strt As Object = Nothing '
Property ConeeTra_Pst As Object = Nothing '
Property ConeeTra_Cty As Object = Nothing '
Property ConeeTra_Ctry As Object = Nothing '
Property ConeeTra_EORI As Object = Nothing '
Property ConeeTra_UIDCtry As Object = Nothing '
Property ConeeTra_UID As Object = Nothing '
Property ExpTra_Na As Object = Nothing ' EXPORTEUR
Property ExpTra_Strt As Object = Nothing '
Property ExpTra_Pst As Object = Nothing '
Property ExpTra_Cty As Object = Nothing '
Property ExpTra_Ctry As Object = Nothing '
Property ExpTra_EORI As Object = Nothing '
Property ExpTra_UIDCtry As Object = Nothing '
Property ExpTra_UID As Object = Nothing '
Property Declarant_Na As Object = Nothing ' ZOLLAGENT
Property Declarant_Strt As Object = Nothing '
Property Declarant_Pst As Object = Nothing '
Property Declarant_Cty As Object = Nothing '
Property Declarant_Ctry As Object = Nothing '
Property Declarant_EORI As Object = Nothing '
Property Declarant_UIDCtry As Object = Nothing '
Property Declarant_UID As Object = Nothing '
Property Declarant_DecRep As Object = Nothing '
Property DestCO_Ref As Object = Nothing ' Zielzollstelle
Property DepCO_Ref As Object = Nothing ' Abgangszollstelle
Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung
Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position)
'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Sub New(in_sh_id)
Me.in_sh_id = in_sh_id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True, True))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_ART", telanm_ART)) ' VARCHAR(50) Not NULL,
Return list
End Function
Public Function SAVE(Optional saveAll = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
in_sh_id = SQL.doSQLVarListID(in_sh_id, sqlstr, "FMZOLL", , list)
If in_sh_id > 0 And saveAll Then
SAVE_Positionsdaten()
SAVE_Documents()
' SAVE_Sicherheit()
End If
Return in_sh_id > 0
End Function
Public Sub LOAD(Optional loadALL = True)
Try
If loadALL Then
POSITIONSDATEN.Clear()
DOCUMENTS.Clear()
' SICHERHEIT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment WHERE in_sh_id=@in_sh_id ", conn)
cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
If loadALL Then
LOAD_Positionsdaten()
LOAD_Documents()
' LOAD_Sicherheit()
End If
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
'Public Function UPDATE_Status(status As Integer) As String
' If in_sh_id > 0 Then
' Try
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
' 'telanm_Status_KEWILL_Equivalent = status
' 'telanm_Status = status
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' End If
' Return ""
'End Function
'Shared Function UPDATE_StatusById(in_sh_id As Integer, status As Integer) As String
' If in_sh_id > 0 Then
' Try
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
' 'telanm_Status_KEWILL_Equivalent = status
' 'telanm_Status = status
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' End If
' Return ""
'End Function
'Public Sub UPDATE_DATA()
' Try
' Select Case telanm_ART
' Case "T1", "T2"
' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert
' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut
' Dakosy_NCTSOut.LOADByAnmID(in_sh_id, False)
' If Dakosy_NCTSOut IsNot Nothing Then
' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status
' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' End If
' End Select
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE in_sh_id=@in_sh_id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_Shipment (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
s = s.Replace("TRY", "TRL") ' Türkische Lira
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
End Function
Public Sub LOAD_Positionsdaten()
Try
POSITIONSDATEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Positionsdaten WHERE in_pos_inShId=@in_sh_id ", conn)
cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_shippment_Position
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
l.LOAD_Packstücke()
POSITIONSDATEN.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Sub LOAD_Documents()
'Try
' DOCUMENTS.Clear()
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Document WHERE shTrDoc_ShTrId=@in_sh_id ", conn)
' cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
' Dim dr = cmd.ExecuteReader()
' While dr.Read
' Dim l As New cVERAG_in_shipment_Document
' For Each i In l.getParameterList()
' Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
' If dr.Item(i.Text) Is DBNull.Value Then
' propInfo.SetValue(l, Nothing)
' Else
' propInfo.SetValue(l, dr.Item(i.Text))
' End If
' Next
' DOCUMENTS.Add(l)
' End While
' dr.Close()
' End Using
' End Using
'Catch ex As Exception
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
'End Try
End Sub
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Packstuecke] WHERE in_posPk_inShId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Positionsdaten] WHERE in_pos_inShId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE shTrDoc_ShTrId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Positionsdaten() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN
p.in_pos_inShId = in_sh_id
If p.INSERT() Then
p.INSERT_Packstücke(p.in_pos_id, Me.in_sh_id)
'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id)
'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id)
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Public Function SAVE_Documents() As Boolean
' 'Zuserst alle OffertenPos von dem Offert löschen
' If DELETE_Documents() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
' 'jetzt die Standartofferten einfügen
' For Each p In DOCUMENTS
' p.shTrDoc_ShTrId = in_sh_id
' If p.INSERT() Then
' Else
' Return False
' End If
' Next
' Else
' Return False
' End If
' Return True
End Function
End Class
Public Class cVERAG_in_shippment_Position
Property in_pos_id As Integer
Property in_pos_inShId As Integer
'Property Mandant_ID As Object = Nothing
'Property Bereich_ID As Object = Nothing
'Property Referenz_ID As Object = Nothing
'Property ComIndicator As Object = Nothing
Property Pos_Nr As Integer
Property Item_GdsDes As Object = Nothing
'Property Item_Status As Object = Nothing
'Property Item_ComCd As Object = Nothing
Property Item_TarNr As Object = Nothing
Property Item_Gross As Object = Nothing
Property Item_Net As Object = Nothing
Property Item_Orig As Object = Nothing
'Property Item_ProcCd As Object = Nothing
'Property Item_ProcAddCd As Object = Nothing
Property Item_ItVal As Object = Nothing
'Property Item_Pref As Object = Nothing
'Property Item_Quota As Object = Nothing
'Property Item_ValMet As Object = Nothing
'Property Item_VATInd As Object = Nothing
'Property Item_StatVal As Object = Nothing
'Property SurvCO_Ref As Object = Nothing
'Property Telo_Artikel_ID As Object = Nothing
Property Telo_Artikelmenge As Object = Nothing
Property Telo_ArtikelMEH As Object = Nothing
Property PACKSTUECKE As New List(Of cVERAG_in_shippment_Packing)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_id", in_pos_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_inShId", in_pos_inShId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_Nr", Pos_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_GdsDes", Item_GdsDes))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_TarNr", Item_TarNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Gross", Item_Gross))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Net", Item_Net))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Orig", Item_Orig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ItVal", Item_ItVal))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikelmenge", Telo_Artikelmenge))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_ArtikelMEH", Telo_ArtikelMEH))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
in_pos_id = SQL.doSQLVarListID(in_pos_id, getInsertCmd, "FMZOLL", , list)
Return in_pos_id > 0
End Function
Public Function INSERT_Packstücke(in_pos_id, in_sh_id) As Boolean
For Each p In PACKSTUECKE
p.in_posPk_inShId = in_sh_id
p.in_posPk_inPosId = in_pos_id
If Not p.INSERT() Then Return False
Next
Return True
End Function
Public Sub LOAD_Packstücke()
Try
PACKSTUECKE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Packstuecke WHERE in_posPk_inPosId=@in_pos_id ", conn)
cmd.Parameters.AddWithValue("@in_pos_id", Me.in_pos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_shippment_Packing
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
PACKSTUECKE.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class
Public Class cVERAG_in_shippment_Packing
Property in_posPk_id As Integer
Property in_posPk_inShId As Integer
Property in_posPk_inPosId As Integer
Property Pack_Mark As Object = Nothing
Property Pack_Kind As Object = Nothing
Property Pack_Nr As Object = Nothing
Property Pack_Piec As Object = Nothing
Property Telo_Gross As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_id", in_posPk_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inShId", in_posPk_inShId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inPosId", in_posPk_inPosId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Mark", Pack_Mark))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Kind", Pack_Kind))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Nr", Pack_Nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Piec", Pack_Piec))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Gross", Telo_Gross))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
in_posPk_id = SQL.doSQLVarListID(in_posPk_id, getInsertCmd, "FMZOLL", , list)
Return in_posPk_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblVERAG_in_shippment_Packstuecke (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

3210
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

370
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.json Normal file
View File

@@ -0,0 +1,370 @@
{
"$schema": "http://json-schema.org/draft-04/schema#",
"description": "Generated by xsd2code++. www.xsd2code.com",
"definitions": {},
"type": "object",
"additionalProperties": false,
"properties": {
"VERAG_out_eza": {
"type": "object",
"additionalProperties": false,
"properties": {
"Version": {
"type": "object",
"additionalProperties": false
},
"VERAGCustomerCode": {
"type": "object",
"additionalProperties": false
},
"Company": {
"type": "object",
"additionalProperties": false
},
"Department": {
"type": "object",
"additionalProperties": false
},
"ClientReference": {
"type": "object",
"additionalProperties": false
},
"InternalReference": {
"type": "object",
"additionalProperties": false,
"properties": {
"OfficeCode": {
"type": "integer"
},
"PositionNumber": {
"type": "integer"
}
},
"required": [
"OfficeCode",
"PositionNumber"
]
},
"ProcessData": {
"type": "object",
"additionalProperties": false,
"properties": {
"Status": {
"type": "object",
"additionalProperties": false
},
"TransactionDate": {
"type": "object",
"additionalProperties": false
},
"ReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"CustomsReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"ProcedureCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Status",
"TransactionDate",
"ReferenzNumber",
"CustomsReferenzNumber",
"ProcedureCode"
]
},
"EZA_Data": {
"type": "object",
"additionalProperties": false,
"properties": {
"LicensePlateContainerNo": {
"type": "object",
"additionalProperties": false
},
"SumGrossWeight": {
"type": "integer"
},
"Sender": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object",
"additionalProperties": false
},
"Adress": {
"type": "object",
"additionalProperties": false,
"properties": {
"Country": {
"type": "object",
"additionalProperties": false
},
"Postcode": {
"type": "object",
"additionalProperties": false
},
"City": {
"type": "object",
"additionalProperties": false
},
"Street": {
"type": "object",
"additionalProperties": false
}
}
},
"EORI": {
"type": "object",
"additionalProperties": false
},
"EORI_NL": {
"type": "object",
"additionalProperties": false
},
"UID_Nr": {
"type": "object",
"additionalProperties": false
},
"CustomerCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Name"
]
},
"Consignee": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"DestinationCountry": {
"type": "object",
"additionalProperties": false
},
"DepartureCountry": {
"type": "object",
"additionalProperties": false
},
"DestinationCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"Duty": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"Kind": {
"type": "object",
"additionalProperties": false
},
"EORI": {
"type": "object"
},
"AccountNumber": {
"type": "object",
"additionalProperties": false
},
"Value": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Kind",
"EORI",
"AccountNumber"
]
},
"maxItems": 2
},
"Position": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"PosNr": {
"type": "integer"
},
"Quantity": {
"type": "object",
"additionalProperties": false
},
"Packaging": {
"type": "object",
"additionalProperties": false
},
"GoodsDescription": {
"type": "object",
"additionalProperties": false
},
"GrossWeight": {
"type": "object",
"additionalProperties": false
},
"TariffNumber": {
"type": "object",
"additionalProperties": false
},
"GoodsValue": {
"type": "object",
"additionalProperties": false,
"properties": {
"Value": {
"type": "object"
},
"Currency": {
"type": "object",
"additionalProperties": false
}
}
},
"Documents": {
"type": "object",
"additionalProperties": false,
"properties": {
"Invoice": {
"type": "object",
"additionalProperties": false,
"properties": {
"InvoiceNumber": {
"type": "object",
"additionalProperties": false
},
"InvoiceDate": {
"type": "string"
},
"Addition1": {
"type": "object",
"additionalProperties": false
},
"Addition2": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"InvoiceNumber",
"InvoiceDate"
]
}
}
},
"Note": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"PosNr"
]
},
"minItems": 1,
"maxItems": 999
},
"Note": {
"type": "object"
}
},
"required": [
"LicensePlateContainerNo"
]
},
"Attachments": {
"type": "object",
"additionalProperties": false,
"properties": {
"Attachment": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"ReferencePosNr": {
"type": "object",
"additionalProperties": false
},
"Name": {
"type": "object"
},
"FileType": {
"type": "object",
"additionalProperties": false
},
"Description": {
"type": "object",
"additionalProperties": false
},
"DocumentType": {
"type": "string",
"enum": [
"ATR",
"EUR1",
"T1",
"CarnetATA",
"PACK",
"INVOICE",
"CMR",
"OTHER"
]
},
"base64BinaryStream": {
"type": "string"
}
},
"required": [
"ReferencePosNr",
"Name",
"FileType",
"Description",
"DocumentType",
"base64BinaryStream"
]
},
"minItems": 1,
"maxItems": 999
}
}
}
},
"required": [
"Version",
"Company",
"ProcessData",
"EZA_Data"
]
}
}
}

170
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.xsd Normal file
View File

@@ -0,0 +1,170 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_eza">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="1.0.0"/>
<xs:element name="VERAGCustomerCode" minOccurs="0"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="ClientReference" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="CustomsReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EZA_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="LicensePlateContainerNo"/>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="DestinationCountry" minOccurs="0"/>
<xs:element name="DepartureCountry" minOccurs="0"/>
<xs:element name="DestinationCustomsOffice" minOccurs="0"/>
<xs:element name="Duty" minOccurs="0" maxOccurs="2">
<xs:complexType>
<xs:sequence>
<xs:element name="Kind"/>
<xs:element name="EORI"/>
<xs:element name="AccountNumber"/>
<xs:element name="Value" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr" type="xs:int"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
<xs:element name="TariffNumber" minOccurs="0"/>
<xs:element name="GoodsValue" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Value" minOccurs="0"/>
<xs:element name="Currency" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Documents" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Invoice" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="InvoiceNumber"/>
<xs:element name="InvoiceDate" type="xs:date"/>
<xs:element name="Addition1" minOccurs="0"/>
<xs:element name="Addition2" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Note" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Note" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="ReferencePosNr"/>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="ATR"/>
<xs:enumeration value="EUR1"/>
<xs:enumeration value="T1"/>
<xs:enumeration value="CarnetATA"/>
<xs:enumeration value="PACK"/>
<xs:enumeration value="INVOICE"/>
<xs:enumeration value="CMR"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

2943
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

158
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.xsd Normal file
View File

@@ -0,0 +1,158 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_ncts">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="2.0.0"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="MRN"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="NCTS_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="DatDeterminationLimit" type="xs:date"/>
<xs:element name="LicensePlate"/>
<xs:element name="DepartureCustomsOffice"/>
<xs:element name="DestinationCustomsOffice"/>
<xs:element name="DepartureCountry"/>
<xs:element name="DestinationCountry"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Carrier" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Guarantee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="GRN"/>
<xs:element name="Amount"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Position" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="NCTS"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

2976
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

303
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.json Normal file
View File

@@ -0,0 +1,303 @@
{
"$schema": "http://json-schema.org/draft-04/schema#",
"description": "Generated by xsd2code++. www.xsd2code.com",
"definitions": {},
"type": "object",
"additionalProperties": false,
"properties": {
"VERAG_out_ncts": {
"type": "object",
"additionalProperties": false,
"properties": {
"Version": {
"type": "object",
"additionalProperties": false
},
"Company": {
"type": "object",
"additionalProperties": false
},
"Department": {
"type": "object",
"additionalProperties": false
},
"InternalReference": {
"type": "object",
"additionalProperties": false,
"properties": {
"OfficeCode": {
"type": "integer"
},
"PositionNumber": {
"type": "integer"
}
},
"required": [
"OfficeCode",
"PositionNumber"
]
},
"ProcessData": {
"type": "object",
"additionalProperties": false,
"properties": {
"Status": {
"type": "object",
"additionalProperties": false
},
"TransactionDate": {
"type": "object",
"additionalProperties": false
},
"MRN": {
"type": "object",
"additionalProperties": false
},
"ReferenzNumber": {
"type": "object",
"additionalProperties": false
},
"ProcedureCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Status",
"TransactionDate",
"MRN",
"ReferenzNumber",
"ProcedureCode"
]
},
"NCTS_Data": {
"type": "object",
"additionalProperties": false,
"properties": {
"DatDeterminationLimit": {
"type": "string"
},
"LicensePlate": {
"type": "object",
"additionalProperties": false
},
"DepartureCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"DestinationCustomsOffice": {
"type": "object",
"additionalProperties": false
},
"DepartureCountry": {
"type": "object",
"additionalProperties": false
},
"DestinationCountry": {
"type": "object",
"additionalProperties": false
},
"Sender": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object",
"additionalProperties": false
},
"Adress": {
"type": "object",
"additionalProperties": false,
"properties": {
"Country": {
"type": "object",
"additionalProperties": false
},
"Postcode": {
"type": "object",
"additionalProperties": false
},
"City": {
"type": "object",
"additionalProperties": false
},
"Street": {
"type": "object",
"additionalProperties": false
}
}
},
"EORI": {
"type": "object",
"additionalProperties": false
},
"EORI_NL": {
"type": "object",
"additionalProperties": false
},
"UID_Nr": {
"type": "object",
"additionalProperties": false
},
"CustomerCode": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"Name"
]
},
"Consignee": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"Carrier": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"Adress": {
"type": "object"
},
"EORI": {
"type": "object"
},
"EORI_NL": {
"type": "object"
},
"UID_Nr": {
"type": "object"
},
"CustomerCode": {
"type": "object"
}
},
"required": [
"Name"
]
},
"Guarantee": {
"type": "object",
"additionalProperties": false,
"properties": {
"GRN": {
"type": "object",
"additionalProperties": false
},
"Amount": {
"type": "object",
"additionalProperties": false
}
},
"required": [
"GRN",
"Amount"
]
},
"SumGrossWeight": {
"type": "integer"
},
"Position": {
"type": "object",
"additionalProperties": false,
"properties": {
"Position": {
"type": "array",
"items": {
"type": "object"
},
"minItems": 1,
"maxItems": 999
}
}
}
},
"required": [
"DatDeterminationLimit",
"LicensePlate",
"DepartureCustomsOffice",
"DestinationCustomsOffice",
"DepartureCountry",
"DestinationCountry"
]
},
"Attachments": {
"type": "object",
"additionalProperties": false,
"properties": {
"Attachment": {
"type": "array",
"items": {
"type": "object",
"additionalProperties": false,
"properties": {
"Name": {
"type": "object"
},
"FileType": {
"type": "object",
"additionalProperties": false
},
"Description": {
"type": "object",
"additionalProperties": false
},
"DocumentType": {
"type": "string",
"enum": [
"NCTS",
"OTHER"
]
},
"base64BinaryStream": {
"type": "string"
}
},
"required": [
"Name",
"FileType",
"Description",
"DocumentType",
"base64BinaryStream"
]
},
"maxItems": 999
}
}
}
},
"required": [
"Version",
"Company",
"ProcessData",
"NCTS_Data"
]
}
}
}

84
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.xsd Normal file
View File

@@ -0,0 +1,84 @@
<?xml version="1.0"?>
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="VERAG_out_ncts">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="InternalReference">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="OfficeCode" type="xsd:int" />
<xsd:element name="PositionNumber" type="xsd:int" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="ProcessData">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="NCTS_Data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="DatDeterminationLimit" type="xsd:string" />
<xsd:element name="Sender">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="Adress">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="Consignee">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="Carrier">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="Guarantee">
<xsd:complexType>
<xsd:sequence />
</xsd:complexType>
</xsd:element>
<xsd:element name="SumGrossWeight" type="xsd:int" />
<xsd:element name="Position">
<xsd:complexType>
<xsd:sequence>
<xsd:element minOccurs="1" maxOccurs="unbounded" name="Position" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
<xsd:element name="Attachments">
<xsd:complexType>
<xsd:sequence>
<xsd:element minOccurs="0" maxOccurs="unbounded" name="Attachment">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="DocumentType">
<xsd:simpleType>
<xsd:restriction base="xsd:string">
<xsd:enumeration value="NCTS" />
<xsd:enumeration value="OTHER" />
</xsd:restriction>
</xsd:simpleType>
</xsd:element>
<xsd:element name="base64BinaryStream" type="xsd:string" />
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:schema>

2987
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

162
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.xsd Normal file
View File

@@ -0,0 +1,162 @@
<?xml version="1.0" encoding="UTF-8"?>
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
<xs:element name="VERAG_out_ncts">
<xs:complexType>
<xs:sequence>
<xs:element name="Version" default="2.0.1"/>
<xs:element name="Company"/>
<xs:element name="Department" minOccurs="0"/>
<xs:element name="ClientReference" minOccurs="0"/>
<xs:element name="InternalReference" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="OfficeCode">
<xs:simpleType>
<xs:restriction base="xs:integer"/>
</xs:simpleType>
</xs:element>
<xs:element name="PositionNumber" type="xs:integer"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ProcessData">
<xs:complexType>
<xs:sequence>
<xs:element name="Status"/>
<xs:element name="TransactionDate"/>
<xs:element name="MRN"/>
<xs:element name="ReferenzNumber"/>
<xs:element name="ProcedureCode"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="NCTS_Data">
<xs:complexType>
<xs:sequence>
<xs:element name="DatDeterminationLimit" type="xs:date"/>
<xs:element name="LicensePlate"/>
<xs:element name="DepartureCustomsOffice"/>
<xs:element name="DestinationCustomsOffice"/>
<xs:element name="DepartureCountry"/>
<xs:element name="DestinationCountry"/>
<xs:element name="Sender" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Consignee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Carrier" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="Adress" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Country" minOccurs="0"/>
<xs:element name="Postcode" minOccurs="0"/>
<xs:element name="City" minOccurs="0"/>
<xs:element name="Street" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EORI" minOccurs="0"/>
<xs:element name="EORI_NL" minOccurs="0"/>
<xs:element name="UID_Nr" minOccurs="0"/>
<xs:element name="CustomerCode" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Guarantee" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="GRN"/>
<xs:element name="Amount"/>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
<xs:element name="Position" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Position" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="PosNr"/>
<xs:element name="Quantity" minOccurs="0"/>
<xs:element name="Packaging" minOccurs="0"/>
<xs:element name="GoodsDescription" minOccurs="0"/>
<xs:element name="GrossWeight" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Attachments" minOccurs="0">
<xs:complexType>
<xs:sequence>
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
<xs:complexType>
<xs:sequence>
<xs:element name="Name"/>
<xs:element name="FileType"/>
<xs:element name="Description"/>
<xs:element name="DocumentType">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="NCTS"/>
<xs:enumeration value="OTHER"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

361
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/cVERAG_out_ncts.vb Normal file
View File

@@ -0,0 +1,361 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_out_ncts
Property ncts_ANR As Object = Nothing
Property ncts_MRN As Object = Nothing
Property ncts_firma As Object = Nothing
Property ncts_niederlassung As Object = Nothing
'Property ncts_Gestellt As Boolean = False
'Property ncts_GestelltAm As Object = Nothing
Property ncts_ObjectName As Object = Nothing
Property ncts_ObjectAlias As Object = Nothing
Property ncts_BezugsnummerVorblendung As Object = Nothing
Property ncts_Bearbeiter As Object = Nothing
Property ncts_VersendungsLandCode As Object = Nothing
Property ncts_BestimmungslandCode As Object = Nothing
Property ncts_ArtAnmeldung As Object = Nothing
Property ncts_BeladungsOrt As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing
Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing
Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing
Property ncts_AbgangsDienststellennummer As Object = Nothing
Property ncts_Wiedergestellungsdatum As Object = Nothing
Property ncts_KzVereinfachtesVerfahren As Object = Nothing
Property ncts_GesamtRohmasse As Object = Nothing
Property ncts_GesamtAnzahlPackstuecke As Object = Nothing
Property ncts_Verschluss_ArtCode As Object = Nothing
Property ncts_Verschluss_Anzahl As Object = Nothing
Property ncts_Verschluss_Zeichen1 As Object = Nothing
Property ncts_Verschluss_Zeichen2 As Object = Nothing
Property ncts_Verschluss_Zeichen3 As Object = Nothing
Property ncts_Verschluss_Zeichen4 As Object = Nothing
Property ncts_Verschluss_Zeichen5 As Object = Nothing
Property ncts_Verschluss_Zeichen6 As Object = Nothing
Property ncts_Verschluss_Zeichen7 As Object = Nothing
Property ncts_Verschluss_Zeichen8 As Object = Nothing
Property ncts_Verschluss_Zeichen9 As Object = Nothing
Property ncts_Verschluss_Zeichen10 As Object = Nothing
Property ncts_Verschluss_Zeichen11 As Object = Nothing
Property ncts_Verschluss_Zeichen12 As Object = Nothing
Property ncts_Verschluss_Zeichen13 As Object = Nothing
Property ncts_Verschluss_Zeichen14 As Object = Nothing
Property ncts_Verschluss_Zeichen15 As Object = Nothing
Property ncts_Verschluss_Zeichen16 As Object = Nothing
Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing
Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing
Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing
Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing
Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing
Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing
Property ncts_Versender_EORI As Object = Nothing
Property ncts_Versender_NLNR As Object = Nothing
Property ncts_Versender_TIN As Object = Nothing
Property ncts_Versender_Name As Object = Nothing
Property ncts_Versender_StrasseHausnummer As Object = Nothing
Property ncts_Versender_Ort As Object = Nothing
Property ncts_Versender_PLZ As Object = Nothing
Property ncts_Versender_Land As Object = Nothing
Property ncts_Empfaenger_EORI As Object = Nothing
Property ncts_Empfaenger_NLNR As Object = Nothing
Property ncts_Empfaenger_TIN As Object = Nothing
Property ncts_Empfaenger_Name As Object = Nothing
Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing
Property ncts_Empfaenger_Ort As Object = Nothing
Property ncts_Empfaenger_PLZ As Object = Nothing
Property ncts_Empfaenger_Land As Object = Nothing
Property ncts_Hauptverpflichteter_EORI As Object = Nothing
Property ncts_Hauptverpflichteter_NLNR As Object = Nothing
Property ncts_Hauptverpflichteter_TIN As Object = Nothing
Property ncts_Hauptverpflichteter_Name As Object = Nothing
Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing
Property ncts_Hauptverpflichteter_Ort As Object = Nothing
Property ncts_Hauptverpflichteter_PLZ As Object = Nothing
Property ncts_Hauptverpflichteter_Land As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing
Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing
Property ncts_SumA_KzSumASicherheit As Object = Nothing
Property ncts_SumA_KennnummerSendung As Object = Nothing
Property ncts_SumA_BesondereUmstaende As Object = Nothing
Property ncts_SumA_NummerBefoerderung As Object = Nothing
Property ncts_SumA_Ladeort As Object = Nothing
Property ncts_SumA_Entladeort As Object = Nothing
Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing
Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing
Property ncts_SumA_Versender_EORI As Object = Nothing
Property ncts_SumA_Versender_NLNR As Object = Nothing
Property ncts_SumA_Versender_TIN As Object = Nothing
Property ncts_SumA_Versender_Name As Object = Nothing
Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Versender_Land As Object = Nothing
Property ncts_SumA_Versender_PLZ As Object = Nothing
Property ncts_SumA_Versender_Ort As Object = Nothing
Property ncts_SumA_Empfaenger_EORI As Object = Nothing
Property ncts_SumA_Empfaenger_NLNR As Object = Nothing
Property ncts_SumA_Empfaenger_TIN As Object = Nothing
Property ncts_SumA_Empfaenger_Name As Object = Nothing
Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Empfaenger_Land As Object = Nothing
Property ncts_SumA_Empfaenger_PLZ As Object = Nothing
Property ncts_SumA_Empfaenger_Ort As Object = Nothing
Property ncts_SumA_Befoerderer_EORI As Object = Nothing
Property ncts_SumA_Befoerderer_NLNR As Object = Nothing
Property ncts_SumA_Befoerderer_TIN As Object = Nothing
Property ncts_SumA_Befoerderer_Name As Object = Nothing
Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing
Property ncts_SumA_Befoerderer_Land As Object = Nothing
Property ncts_SumA_Befoerderer_PLZ As Object = Nothing
Property ncts_SumA_Befoerderer_Ort As Object = Nothing
Property ncts_Stammreferenz As Object = Nothing
Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben)
Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
End Class
Public Class cDakosy_NCTSOut_Sicherheitsangaben
'Property nctsSA_Id As Integer
'Property nctsSA_NctsId As Object = Nothing
Property nctsSA_ArtCode As Object = Nothing
Property nctsSA_BezeichnungBescheinigun As Object = Nothing
Property nctsSA_AbgabenBetrag As Object = Nothing
'Property nctsSA_GRN As Object = Nothing
'Property nctsSA_Zugriffcode As Object = Nothing
'Property nctsSA_TIN As Object = Nothing
'Public selButton As Object = Nothing ' Für die GUI
'Public SA_OBJECT As Object = Nothing ' Für die GUI
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
End Class
Public Class cDakosy_NCTSOut_Warenposition
'Property nctsWP_Id As Integer
'Property nctsWP_NctsId As Integer
Property nctsWP_PositionsNummer As Object = Nothing
Property nctsWP_Warennummer As Object = Nothing
Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing
Property nctsWP_Warenbezeichnung As Object = Nothing
Property nctsWP_Warenwert As Object = Nothing
Property nctsWP_WarenwertWaehrung As Object = Nothing
Property nctsWP_SchaetzKz As Object = Nothing
Property nctsWP_WarenwertProzent As Object = Nothing
Property nctsWP_VersendungslandPositionCode As Object = Nothing
Property nctsWP_BestimmungslandPositionCode As Object = Nothing
Property nctsWP_Rohmasse As Object = Nothing
Property nctsWP_Eigenmasse As Object = Nothing
Property nctsWP_VorpapierTyp As Object = Nothing
Property nctsWP_VorpapierReferenz1 As Object = Nothing
Property nctsWP_VorpapierZusatz1 As Object = Nothing
Property nctsWP_VorpapierReferenz2 As Object = Nothing
Property nctsWP_VorpapierZusatz2 As Object = Nothing
Property nctsWP_VorpapierReferenz3 As Object = Nothing
Property nctsWP_VorpapierZusatz3 As Object = Nothing
Property nctsWP_VorpapierReferenz4 As Object = Nothing
Property nctsWP_VorpapierZusatz4 As Object = Nothing
Property nctsWP_VorpapierReferenz5 As Object = Nothing
Property nctsWP_VorpapierZusatz5 As Object = Nothing
Property nctsWP_VorpapierReferenz6 As Object = Nothing
Property nctsWP_VorpapierZusatz6 As Object = Nothing
Property nctsWP_VorpapierReferenz7 As Object = Nothing
Property nctsWP_VorpapierZusatz7 As Object = Nothing
Property nctsWP_VorpapierReferenz8 As Object = Nothing
Property nctsWP_VorpapierZusatz8 As Object = Nothing
Property nctsWP_VorpapierReferenz9 As Object = Nothing
Property nctsWP_VorpapierZusatz9 As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing
Property nctsWP_BesondereVermeke_Export As Object = Nothing
Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing
Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing
Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing
Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing
Property nctsWP_Versender_EORI As Object = Nothing
Property nctsWP_Versender_NLNR As Object = Nothing
Property nctsWP_Versender_TIN As Object = Nothing
Property nctsWP_Versender_Name As Object = Nothing
Property nctsWP_Versender_StrasseHausnummer As Object = Nothing
Property nctsWP_Versender_Ort As Object = Nothing
Property nctsWP_Versender_PLZ As Object = Nothing
Property nctsWP_Versender_Land As Object = Nothing
Property nctsWP_Empfaenger_EORI As Object = Nothing
Property nctsWP_Empfaenger_NLNR As Object = Nothing
Property nctsWP_Empfaenger_TIN As Object = Nothing
Property nctsWP_Empfaenger_Name As Object = Nothing
Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing
Property nctsWP_Empfaenger_Ort As Object = Nothing
Property nctsWP_Empfaenger_PLZ As Object = Nothing
Property nctsWP_Empfaenger_Land As Object = Nothing
Property nctsWP_SumAKennnummerSendung As Object = Nothing
Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing
Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing
Property nctsWP_SumAVersender_EORI As Object = Nothing
Property nctsWP_SumAVersender_NLNR As Object = Nothing
Property nctsWP_SumAVersender_TIN As Object = Nothing
Property nctsWP_SumAVersender_Name As Object = Nothing
Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing
Property nctsWP_SumAVersender_Ort As Object = Nothing
Property nctsWP_SumAVersender_PLZ As Object = Nothing
Property nctsWP_SumAVersender_Land As Object = Nothing
Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing
Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing
Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing
Property nctsWP_SumAEmpfaenger_Name As Object = Nothing
Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing
Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing
Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing
Property nctsWP_SumAEmpfaenger_Land As Object = Nothing
'Property nctsWP_KdRefNr As Object = Nothing
Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWP_NctsId = nctsWP_NctsId
End Sub
End Class
Public Class cDakosy_NCTSOut_WarenpositionPackstuecke
'Property nctsWpPk_Id As Integer
'Property nctsWpPk_nctsWPId As Integer
'Property nctsWpPk_NctsId As Integer
Property nctsWpPk_PackstueckeAnzahl As Object = Nothing
Property nctsWpPk_Verpackungsart As Object = Nothing
Property nctsWpPk_ZeichenNummern As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
End Sub
End Class
Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen
'Property nctsWpUl_Id As Integer
'Property nctsWpUl_nctsWPId As Integer
'Property nctsWpUl_NctsId As Integer
Property nctsWpUl_Typ As Object = Nothing
Property nctsWpUl_Referenz As Object = Nothing
Property nctsWpUl_Zusatz As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId
End Sub
'Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz))
' Return list
'End Function
'Public Function INSERT() As Boolean
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list)
' Return nctsWpUl_Id > 0
'End Function
'Public Function getInsertCmd() As String
' Try
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' Dim str As String = ""
' Dim values As String = ""
' For Each i In list
' If Not i.isPrimaryParam Then
' str &= "[" & i.Text & "],"
' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
' End If
' Next
' str = str.Substring(0, str.Length - 1) 'wg. ','
' values = values.Substring(0, values.Length - 1) 'wg. ','
' Return (" INSERT INTO tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ")
' Catch ex As Exception
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
' End Try
' Return ""
'End Function
End Class

401
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb Normal file
View File

@@ -0,0 +1,401 @@
Public Class cBMD_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'STAMMDATEN
Shared Function getStammdaten() As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] "
sqlStr &= " ,Ordnungsbegriff "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' "
sqlStr &= " Order by [Konto-Nr] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function updateFibu() As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5601' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Public Shared Function getPersonenKto(row As DataRow) As String
getPersonenKto = ""
getPersonenKto &= row("Konto-Nr") & ";"
getPersonenKto &= FormatStringDVO(row("Name")) & ";"
getPersonenKto &= FormatStringDVO(row("Name2")) & ";"
getPersonenKto &= FormatStringDVO(row("Strasse")) & ";"
getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringDVO(row("LandKz"))) & ";"
getPersonenKto &= FormatStringDVO(row("PLZ")) & ";"
getPersonenKto &= FormatStringDVO(row("Ort")) & ";"
getPersonenKto &= row("ZZiel") & ";"
getPersonenKto &= FormatStringDVO(row("UST-Id-Nummer")) & ";"
getPersonenKto &= FormatStringDVO(row("Telefon")) & ";"
getPersonenKto &= FormatStringDVO(row("E-Mail")) & ";"
getPersonenKto &= row("BLZ") & ";"
getPersonenKto &= row("KTO") & ";"
End Function
Public Shared Function genDatensatzCSV_Stammdaten(Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
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
'DATEIPFAD für Stammdaten
'-------------------------------------------------------------------------------------------
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
'pathKD = pathArchivKD 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchivKD = ""
End If
If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
'-------------------------------------------------------------------------------------------
If True Then 'boolKunden Then
'----------------- STAMMDATEN -----------------
Dim dt_Stamm As DataTable = getStammdaten()
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
Dim fileKD As System.IO.StreamWriter
Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
fileKD.WriteLine(genStammdatenBeginn())
initKDNr(dt_Stamm)
For Each r In dt_Stamm.Rows
fileKD.WriteLine(getPersonenKto(r))
Next
bool_DatenVorhanden = True
fileKD.Close()
'In Archiv sichern
If pathArchivKD <> "" Then
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(pathKD & DateinameKD)
Else
IO.File.Delete(pathKD & DateinameKD)
End If
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean
genDatensatzCSV_ALL = True
If boolKunden Then
If Not genDatensatzCSV_Stammdaten(OpenFile) Then genDatensatzCSV_ALL = False
End If
If boolBuchungen Then
If Not genDatensatzCSV_Buchungen(21, OpenFile) Then genDatensatzCSV_ALL = False
If Not genDatensatzCSV_Buchungen(22, OpenFile) Then genDatensatzCSV_ALL = False
If Not genDatensatzCSV_Buchungen(23, OpenFile) Then genDatensatzCSV_ALL = False
End If
End Function
Public Shared Function genDatensatzCSV_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
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
'nur UNISPED!!
'DATEIPFAD für Buchungsdaten
'-------------------------------------------------------------------------------------------
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
' path = pathArchiv 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchiv = ""
End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
'-------------------------------------------------------------------------------------------
Dim NameZusatz = ""
Dim Buchungsjahr = -1
Select Case FIRMA.Firma_ID
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, 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
Dim file As System.IO.StreamWriter
Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv"
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' initKDNr(dt_Buchungen)
Dim SummeBuchungen As Double = 0
file.WriteLine(genBuchungenBeginn())
For Each r In dt_Buchungen.Rows
file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
Next
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
'Update Filename TrdIn
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
file.Close()
'In Archiv sichern
If pathArchiv <> "" Then
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(path & Dateiname)
Else
IO.File.Delete(path & Dateiname)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
'----------------------------------
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function FormatStringDVO(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
FormatStringDVO = s.ToString.Replace(";", ",")
'FormatStringDVO = s.ToString.Replace(",", "")
'FormatStringDVO = s.ToString.Replace("""", "\22")
If length > 0 Then
If FormatStringDVO.Length > length Then FormatStringDVO = FormatStringDVO.Substring(0, length)
End If
End Function
Shared Function getBuchungen(Firma_ID As Integer) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID ,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
End Function
Public Shared Function genBuchungenBeginn() As String
Return "satzart;konto;gkonto;belegdatum;belegnr;extbelegnr;buchsymbol;buchcode;steuercode;prozent;betrag;steuer;text;zziel;kost"
End Function
Public Shared Function genBuchungenEnd() As String
Return ""
End Function
Public Shared Function genStammdatenBeginn() As String
Return "Kto-Nr;Nachname;Zusatzname;Straße;Staat;Plz;Ort;ZZiel;UID-Nummer;Telefonnummer;Mail;IBAN;BIC"
End Function
Public Shared Function genStammdatenEnd() As String
Return ""
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
genBuchungsZeile = "0;"
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 &= 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
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 ????????
' genBuchungsZeile &= "1;" 'buchcode === 1 oder 2??
genBuchungsZeile &= getSteuercode(row, FIRMA) & ";"
If CBool(row("Steuerpflichtig")) Then
genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
Else
genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
End If
Dim steuerbetragLokal As Double = 0
If CBool(row("Steuerpflichtig")) Then
steuerbetragLokal = CDbl((getDbl2(row("SteuerpflichtigerBetragLokal")) * getDbl2(row("Steuersatz"))))
steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz"))))
End If
' If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 --> SONST PROBLKEM BEI UNISPED; DA STEUER vom NETTO abgezogen wird!
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto)
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0") & ";" 'steuer
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!!
' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text
genBuchungsZeile &= FormatStringDVO(row("Nettozahlungsziel")) & ";" ' Text
'... aus ...
SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")))
End Function
Shared Sub initKDNr(ByRef dt As DataTable)
For Each r In dt.Rows
If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 2000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
'Shared Sub initKDNrLG(ByRef dt As DataTable)
' For Each r In dt.Rows
' If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 500000
' ' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
' Next
'End Sub
Shared Function initKDNr2(ktoNr As String) As String
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
Select Case r("Sachkonto")
'Case "3550", "3553", "3558"
' Return "999"
Case Else
If Not CBool(r("Steuerpflichtig")) Then
'Vorher immer return "" - galube es soll bei eu aber 77 sein...
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "77" ' EU-LAND
Else
Return "" ' Drittland
End If
Else
If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!!
Return "1" 'Steuerpflichtig und AT
Else
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "77" ' EU-LAND
Else
Return "" ' Drittland
End If
End If
End If
End Select
Return ""
End Function
Shared Function getDbl(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o)
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbl2(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o.ToString.Replace(".", ","))
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbltr(o As Object) As String
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o).ToString("N2").Replace(".", "") '.Replace(",", ".")
Catch ex As Exception
Return 0
End Try
End Function
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
While i.ToString.Length < l
i &= "0"
End While
Return i
End Function
End Class

404
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb Normal file
View File

@@ -0,0 +1,404 @@
Public Class cDVO_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public Shared Function genStammdatenBuRef() As Boolean
Try
'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
Dim sqlStr = " select adressennr as [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz as [St],PLZ as [Postltz],LTRIM([Ort]) as Ort,isnull(BLZ,'') as [Bankltz],isnull(KTO,'') as [Bankkonto-Nr], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2 "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' "
sqlStr &= " Order by [Konto-Nr] "
' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
initKDNr(dt)
Dim ExcelPath = cProgramFunctions.genExcelFromDT_NEW(dt, , False,,, False) '{"C1:C" & (dt.Rows.Count + 1), "C1:C" & (dt.Rows.Count + 1)})
If ExcelPath <> "" Then
Process.Start(ExcelPath)
Return True
End If
Else
Return True ' wenn keine da sind, auch ok...
End If
' UPDATE FiBuSchnittstelle --> 0
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
'BetreibsstammSatz
'10 Personenkonten
'100 Beginn Buchungsblock
'110 Buchungen
'111 Summe/Ende Buchungsblock
Public Shared Function genBetreibsstammSatz(Geschaeftsjahr As Integer) As String
Return "1,0910,""" & Geschaeftsjahr & """,""0101" & Geschaeftsjahr & """,4,6,""EUR"""
End Function
Public Shared Function genBuchungenBeginn(Geschaeftsjahr As Integer) As String
Return "100,""AR "",4,""" & Now.ToString("ddMMyyyy") & """," & Now.AddDays(-1).Month & ",0"
End Function
Public Shared Function genBuchungenEnd(SummeBuchungen As Double) As String
Return "111," & SummeBuchungen.ToString("N2").Replace(",", ".")
End Function
Public Shared Function genStammdatenANSI(Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True) As Boolean
Try
'RTRIM([Name 1] + ' ' + isnull([Name 2],'')) as [Name]
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
' "Konto-Nr;Name;UST-Id-Nummer;Strasse;St;Postltz;Ort;Bankltz;Bankkonto-Nr;ZZiel;SPz;STg"
' Dim Encoding As New System.Text.ASCIIEncoding()
' Dim Encoding As New System.Text.UTF8Encoding(False)
Dim file As System.IO.StreamWriter
' Dim path = DATENVERVER_OPTIONS.getTMPPath("dvo", ".txt", , False)
Dim path = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathArchiv = "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
pathArchiv = ""
End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt
'For Each f In IO.Directory.GetFiles(path)
' If f.ToString.Contains("DVO_IMP_") Then
' Try
' IO.File.Delete(f)
' Catch ex As Exception
' End Try
' End If
'Next
Dim Dateiname = "DVO_IMP_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
file.WriteLine(genBetreibsstammSatz(Geschaeftsjahr))
If boolKunden Then
'----------------- STAMMDATEN -----------------
Dim dt_Stamm As DataTable = getStammdaten()
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
initKDNr(dt_Stamm)
For Each r In dt_Stamm.Rows
file.WriteLine(getPersonenKto(r))
Next
bool_DatenVorhanden = True
End If
updateFibu() ' UPDATE FiBuSchnittstelle --> 0
'----------------- STAMMDATEN LG -----------------
Dim dt_StammLG As DataTable = getStammdatenLG()
If dt_StammLG IsNot Nothing AndAlso dt_StammLG.Rows.Count > 0 Then
initKDNrLG(dt_StammLG)
For Each r In dt_StammLG.Rows
file.WriteLine(getPersonenKto(r))
Next
bool_DatenVorhanden = True
End If
updateFibuLG() ' UPDATE FiBuSchnittstelleLG --> 0
'----------------------------------
End If
'----------------- Buchungssätze -----------------
If boolBuchungen Then
TrdInvoice_FUNCTIONS.TrdinSchreiben(20) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
Dim dt_Buchungen As DataTable = getBuchungen(20)
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
Try
' initKDNr(dt_Buchungen)
Dim SummeBuchungen As Double = 0
file.WriteLine(genBuchungenBeginn(Geschaeftsjahr))
For Each r In dt_Buchungen.Rows
file.WriteLine(genBuchungsZeile(r, SummeBuchungen, Geschaeftsjahr))
Next
file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
'Update Filename TrdIn
SQL.doSQL("update [tblTrdinInvoice] set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL")
'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt!
End If
End If
'----------------------------------
file.Close()
'In Archiv sichern
If pathArchiv <> "" Then
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(path & Dateiname)
Else
IO.File.Delete(path & Dateiname)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Shared Function FormatStringDVO(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
FormatStringDVO = s.ToString.Replace(",", "")
FormatStringDVO = s.ToString.Replace("""", "\22")
If length > 0 Then
If FormatStringDVO.Length > length Then FormatStringDVO = FormatStringDVO.Substring(0, length)
End If
End Function
Shared Function getStammdaten() As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] "
sqlStr &= " ,Ordnungsbegriff "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' "
sqlStr &= " Order by [Konto-Nr] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function updateFibu() As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FilialenNr='5501' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function updateFibuLG() As DataTable
Dim sqlStr = " UPDATE tblKundenErweitert "
sqlStr &= " SET FiBuSchnittstelleLG = '0' "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Shared Function getStammdatenLG() As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail] "
sqlStr &= " ,Ordnungsbegriff "
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= " WHERE FiBuSchnittstelleLG=1 AND Auswahl='A' AND FilialenNr='5501' "
sqlStr &= " Order by [Konto-Nr] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
Public Shared Function getPersonenKto(row As DataRow) As String
getPersonenKto = "10,"
getPersonenKto &= fill0Stellen(row("Konto-Nr"), 7) & ","
getPersonenKto &= """" & FormatStringDVO(row("Ordnungsbegriff"), 39) & ""","
getPersonenKto &= """" & FormatStringDVO(row("Ordnungsbegriff"), 11) & ""","
getPersonenKto &= """" & FormatStringDVO(row("UST-Id-Nummer")) & ""","
If IsDate(row("UID-Datum")) Then
getPersonenKto &= """" & CDate(row("UID-Datum")).ToString("ddMMyyyy") & ""","
Else
getPersonenKto &= ","
End If
getPersonenKto &= ","
getPersonenKto &= """Firma"","
getPersonenKto &= """" & FormatStringDVO(row("Name")) & ""","
getPersonenKto &= """" & FormatStringDVO(row("Name2")) & ""","
getPersonenKto &= """"","
getPersonenKto &= """"","
getPersonenKto &= """" & FormatStringDVO(row("Strasse")) & ""","
getPersonenKto &= """" & cProgramFunctions.getISO2Land(FormatStringDVO(row("LandKz"))) & ""","
getPersonenKto &= """" & FormatStringDVO(row("PLZ")) & ""","
getPersonenKto &= """" & FormatStringDVO(row("Ort")) & ""","
getPersonenKto &= """" & row("BLZ") & ""","
getPersonenKto &= """" & row("KTO") & ""","
getPersonenKto &= row("ZZiel") & ","
getPersonenKto &= "0,"
getPersonenKto &= "," 'getPersonenKto &= FormatStringDVO(row("Zahlungsziel2"),, 0) & ","
getPersonenKto &= "," 'getPersonenKto &= "0,"
getPersonenKto &= "," 'getPersonenKto &= FormatStringDVO(row("Zahlungsziel3"),, 0) & ","
getPersonenKto &= "," 'getPersonenKto &= "0,"
getPersonenKto &= "0,"
getPersonenKto &= """""," 'IBAN
getPersonenKto &= """""," 'BIC
getPersonenKto &= """""," 'Bankeinzug
getPersonenKto &= """""," 'Prüfdatum2
getPersonenKto &= """""," 'ISOCOde
getPersonenKto &= """""," 'Nicht In Zahlungsvorschläge aufnehemn
getPersonenKto &= """""," 'Kundendaten
getPersonenKto &= """""," 'Datum Einzugsermächtigung
getPersonenKto &= """""," 'Mandatsref
getPersonenKto &= """" & FormatStringDVO(row("E-Mail")) & """" 'e-Mail
End Function
Shared Function getBuchungen(Firma_ID As Integer) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID ,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String
genBuchungsZeile = "110,"
genBuchungsZeile &= fill0Stellen(initKDNr2(row("KundenNrZentrale")), 7) & ","
genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 6) & ","
genBuchungsZeile &= """" & CDate(row("Rechnungsdatum")).ToString("ddMMyyyy") & ""","
genBuchungsZeile &= """" & FormatStringDVO(row("Rechnungsnummer")) & ""","
genBuchungsZeile &= """" & FormatStringDVO(row("Rechnungsnummer")) & ""","
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & ","
genBuchungsZeile &= getSteuercode(row) & ","
genBuchungsZeile &= """""," ' genBuchungsZeile &= """" & cProgramFunctions.getISO2Land(FormatStringDVO(row("RechnungsLandKz"))) & ""","
Dim steuerbetragLokal As Double = 0
If CBool(row("Steuerpflichtig")) Then
steuerbetragLokal = CDbl((getDbl2(row("SteuerpflichtigerBetragLokal")) * getDbl2(row("Steuersatz"))))
steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz"))))
End If
If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1
genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & ","
genBuchungsZeile &= """" & FormatStringDVO(FormatStringDVO(row("RechnungsUstIdKz")) & FormatStringDVO(row("RechnungsUstIdNr")), 15) & ""","
genBuchungsZeile &= "1," ' Kostenstelle
genBuchungsZeile &= """""," ' Fremdwährung
genBuchungsZeile &= "," ' Fremdwährung-Betrag
genBuchungsZeile &= """" & FormatStringDVO(row("Buchungstext")) & """," ' Text
genBuchungsZeile &= If(row("BelegartenNr") = "70", """R"",", """G"",") ' Rg/GS 70=Rechnung
genBuchungsZeile &= "," ' Fäll-Tage1
genBuchungsZeile &= "," ' Fäll-% 1
genBuchungsZeile &= "," ' Fäll-Tage2
genBuchungsZeile &= "," ' Fäll-% 2
genBuchungsZeile &= "," ' Fäll-Tage3
genBuchungsZeile &= "," ' Fäll-% 3
genBuchungsZeile &= """""," ' Storno --> S=Storno
genBuchungsZeile &= "," ' Kurs
genBuchungsZeile &= Geschäftsjahr & "," ' GJ
genBuchungsZeile &= """""," ' ISO
genBuchungsZeile &= """""," ' DL
genBuchungsZeile &= """""," ' Imp,Exp
genBuchungsZeile &= """""," ' Barcode
genBuchungsZeile &= "," ' DocuWare
genBuchungsZeile &= "," ' Nova
genBuchungsZeile &= FormatStringDVO(row("Lastschrift")) & "," ' Bankeinzug 0/1
'... aus ...
SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")))
End Function
Shared Sub initKDNr(ByRef dt As DataTable)
For Each r In dt.Rows
If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 200000
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
Shared Sub initKDNrLG(ByRef dt As DataTable)
For Each r In dt.Rows
If IsNumeric(r("Konto-Nr")) AndAlso CInt(r("Konto-Nr")) > 1000000 Then r("Konto-Nr") = (CInt(r("Konto-Nr")) - 1000000) + 500000
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
Shared Function initKDNr2(ktoNr As String) As String
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 1000000 Then ktoNr = (CInt(ktoNr) - 1000000) + 200000
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow) As Double
Select Case r("Sachkonto")
Case "3550", "3553", "3558"
Return "999"
Case Else
If CBool(r("Steuerpflichtig")) Then
Return "320"
Else
If (r("RechnungsLandKz")) = "A" Or (r("RechnungsLandKz")) = "AT" Then
Return "999" 'Steuerpflichtig und AT
Else
If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then
Return "969" ' EU-LAND
Else
Return "973" ' Drittland
End If
End If
End If
End Select
Return ""
End Function
Shared Function getDbl(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o)
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbl2(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o.ToString.Replace(".", ","))
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbltr(o As Object) As String
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".")
Catch ex As Exception
Return 0
End Try
End Function
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
While i.ToString.Length < l
i &= "0"
End While
Return i
End Function
End Class

43
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb Normal file
View File

@@ -0,0 +1,43 @@

Imports Newtonsoft.Json
Imports System.Net
Imports System.Text
Public Class cJsonPost
' Dim jsonPost As New JsonPost("http://192.168.254.104:8000")
' Dim dictData As New Dictionary(Of String, Object)
'dictData.Add("test_key", "test_value")
'jsonPost.postData(dictData)
Private urlToPost As String = ""
Public Sub New(ByVal urlToPost As String)
Me.urlToPost = urlToPost
End Sub
Public Function postData(ByVal dictData As Dictionary(Of String, Object)) As Boolean
Dim webClient As New WebClient()
Dim resByte As Byte()
Dim resString As String
Dim reqString() As Byte
Try
webClient.Headers("content-type") = "application/json"
reqString = Encoding.Default.GetBytes(JsonConvert.SerializeObject(dictData, Formatting.Indented))
resByte = webClient.UploadData(Me.urlToPost, "post", reqString)
resString = Encoding.Default.GetString(resByte)
Console.WriteLine(resString)
webClient.Dispose()
Return True
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Return False
End Function
End Class

81
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cLDV_Interface.vb Normal file
View File

@@ -0,0 +1,81 @@
Imports System.IO
Imports System.Net
Public Class cLDV_Interface
Public Shared Function copyLDV_BMD()
Dim Geschaeftsjahr = Now.Year ' Nicht Rg.-Jahr, sondern Jahr des Verarbeitungszeitpunkt
Dim LDV_PFAD = "\\ftps.verag.ag\FTP\LDV\IN\BMD\"
Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim pathKD = "\\share01\Datenarchiv\AWOR\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\AWOR AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\"
Dim path = "\\share01\Datenarchiv\AWOR\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\"
Dim Dateiname = ""
Dim cnt = 0
Try
For Each f In IO.Directory.GetFiles(LDV_PFAD)
Dateiname = f
Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then
If FI.Name.StartsWith("KD") Then 'STAMMDATEN
'**** --> UNISPED möchte die KD Daten nicht bekommen.
If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathKD)
'Temp. DownloadPfad
Dim destFilenameTMP = pathKD + "." & If(IO.File.Exists(pathKD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'**** Dim destFilenameTMP_archiv = pathArchivKD + "." & If(IO.File.Exists(pathArchivKD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'Datei herunterladen
IO.File.Copy(f, destFilenameTMP)
'**** IO.File.Copy(f, destFilenameTMP_archiv)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename (Punkt entfernen)
Dim destFilename = pathKD & If(IO.File.Exists(pathKD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'**** Dim destFilename_archiv = pathArchivKD & If(IO.File.Exists(pathKD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
'**** IO.File.Move(destFilenameTMP_archiv, destFilename_archiv) 'Datei umbenennen
cnt += 1
Else ' BUCHUNGSDATEN
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
'Temp. DownloadPfad
Dim destFilenameTMP = path + "." & If(IO.File.Exists(path & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
Dim destFilenameTMP_archiv = pathArchiv + "." & If(IO.File.Exists(pathArchiv & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'Datei herunterladen
IO.File.Copy(f, destFilenameTMP)
IO.File.Copy(f, destFilenameTMP_archiv)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename (Punkt entfernen)
Dim destFilename = path & If(IO.File.Exists(path & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
Dim destFilename_archiv = pathArchiv & If(IO.File.Exists(path & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
IO.File.Move(destFilenameTMP_archiv, destFilename_archiv) 'Datei umbenennen
' Dim fi_dest As FileInfo = New FileInfo(destFilename)
' ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
cnt += 1
End If
End If
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return cnt
End Function
End Class

115
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cNCTS_Helper.vb Normal file
View File

@@ -0,0 +1,115 @@
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')) "
Case "VERIMEX" : where = " and ncts_firma = 'VERIMEX' "
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 "
sqlatr &= " ORDER BY Datum "
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_Eroeffnungneu.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnungneu.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_Eroeffnungneu.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_Eroeffnungneu "
sqlatr &= " WHERE GRN IN (" & _BRG_VALUE & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlatr &= " ORDER BY Datum "
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

1470
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb Normal file
View File

File diff suppressed because it is too large Load Diff

159
_VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb Normal file
View File

@@ -0,0 +1,159 @@
Imports Therefore.API
Public Class cTherefore
Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False)
FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace(";", " ")
FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("/", " ")
FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("-", " ")
if FilialeAbfertigungsNr.Length> 30 then FilialeAbfertigungsNr=FilialeAbfertigungsNr.ToString.Substring(0,30)
Select Case FirmaId
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", "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)
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
End Select
End Function
Shared Function saveFileTo_ImportFolderCat(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, Category As String, Optional Category2 As String = "", Optional deleteFileAfterImport As Boolean = False)
Try
If Category2 = "" Then Category2 = Category
Dim SQL As New SQL
' 1. Connect to the Therefore™ Server
Dim server As New TheServer
server.Connect(TheClientType.CustomApplication)
' 2. Create a new Therefore™ Document
Dim doc As New TheDocument()
' 3. Create temporary File
'Dim filename As String = ""
'doc.Create(filename)
' 4A. Set Therefore™ Category by Number
' doc.IndexData.SetCategory(5, server)
' or 4B. Set Therefore™ Category by Name
doc.IndexData.SetCategory(Category2, server)
' 5. Add streams
'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0)
'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0)
' 6. Set index data
'Dim indexData As TheIndexData = doc.IndexData
'indexData("String") = FilialeAbfertigungsNr
'indexData("Eingabedatum") = Now.ToShortDateString
'indexData("LKW_ID") = AvisoId
'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 = ""
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)
doc.AddStream(Path, "", 0)
Dim indexData As TheIndexData = doc.IndexData
indexData("String") = FilialeAbfertigungsNr
indexData("Eingabedatum") = Now.ToShortDateString
indexData("LKW_ID") = AvisoId
docNo = doc.Archive(server, 0)
Else
Dim folder = ""
Dim VerionNo As Integer
filename = doc.Retrieve(docNo, VerionNo, folder, server, False)
Dim user As String = ""
doc.CheckOut(server, False, user, VerionNo)
doc.AddStream(Path, "", 0)
doc.CheckIn(server)
End If
' 8. Close Therefore™ document object
doc.Close()
' 9. Delete the temporary file
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() + ".")
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
'Shared Function saveFileTo_ImportFolder2(Path As String, FilialeAbfertigungsNr As Integer, AvisoId As Integer)
' Try
' ' 1. Connect to the Therefore™ Server
' Dim server As New TheServer
' server.Connect(TheClientType.CustomApplication)
' ' 2. Create a new Therefore™ Document
' Dim doc As New TheDocument()
' ' 3. Create temporary File
' Dim filename As String = ""
' doc.Create(filename)
' ' 4A. Set Therefore™ Category by Number
' ' doc.IndexData.SetCategory(5, server)
' ' or 4B. Set Therefore™ Category by Name
' doc.IndexData.SetCategory("Import ab Jänner 2019", server)
' ' 5. Add streams
' 'doc.AddStream("D:\\TestAll\\TestDocs\\Scsi.doc", "", 0)
' 'doc.AddStream("D:\\TestAll\\TestDocs\\TEST.xls", "", 0)
' doc.AddStream(Path, "", 0)
' ' 6. Set index data
' ' MsgBox(doc.IndexData.Count)
' ' 7. Archive the document
' Dim docNo As Integer = doc.Archive(server, 0)
' MsgBox(docNo)
' ' 8. Close Therefore™ document object
' doc.Close()
' ' 9. Delete the temporary file
' System.IO.File.Delete(filename)
' ' 10. Optional: Print a success message on the console
' ' Console.WriteLine("Document successfully archived as " + docNo.ToString() + ".")
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
'End Function
End Class