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

NCTS_TR CC015B, ATLAS Codelisten, BugFixes DY Nachrichtenverarbeitung, EZOLL: Zollbeleg versenden

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-06 22:04:21 +01:00
parent bdcac48401
commit 6dd614544d
14 changed files with 969 additions and 625 deletions
Download Patch File Download Diff File Expand all files Collapse all files

751
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -4,6 +4,7 @@ Imports System.Xml
Imports Renci.SshNet
Imports System.Net.Mail
Imports GrapeCity.Enterprise.Data.DataEngine.DataProcessing
Imports DocumentFormat.OpenXml.Wordprocessing
Public Class frmDYNachrichtenVerarbeitung
Dim cntDatenEingelesen As Integer = 0
@@ -4197,121 +4198,121 @@ Public Class frmDYNachrichtenVerarbeitung
'Versender/Ausführer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.Consignor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CZ"
If FCFCDF.Body.Consignor.Name IsNot Nothing Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80)
End If
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CZ"
If FCFCDF.Body.Consignor.Name IsNot Nothing Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 40 Then
If FCFCDF.Body.Consignor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, FCFCDF.Body.Consignor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name
ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.Consignor.Name.ToString.Substring(80, FCFCDF.Body.Consignor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.Consignor.Name.ToString.Substring(40, FCFCDF.Body.Consignor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.Consignor.Name
End If
If FCFCDF.Body.Consignor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber
' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber
End If
If FCFCDF.Body.Consignor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Verkäufer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE"
If FCFCDF.Body.CustomsValue.Vendor.Name IsNot Nothing Then
If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name
End If
End If
If FCFCDF.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendor.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
End If
If FCFCDF.Body.CustomsValue.Vendor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendor.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
If FCFCDF.Body.Consignor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.Consignor.Identification.ReferenceNumber
' ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.Consignor.Identification.SubsidiaryNumber
End If
'Käufer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "BY"
If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then
If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name
End If
End If
If FCFCDF.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendee.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
End If
If FCFCDF.Body.CustomsValue.Vendee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendee.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
If FCFCDF.Body.Consignor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.Consignor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.Consignor.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.Consignor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.Consignor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Verkäufer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE"
If FCFCDF.Body.CustomsValue.Vendor.Name IsNot Nothing Then
If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
If FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendor.Name
End If
End If
If FCFCDF.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendor.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
End If
If FCFCDF.Body.CustomsValue.Vendor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendor.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Käufer
If FCFCDF.Body IsNot Nothing AndAlso FCFCDF.Body.CustomsValue IsNot Nothing AndAlso FCFCDF.Body.CustomsValue.Vendee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "BY"
If FCFCDF.Body.CustomsValue.Vendee.Name IsNot Nothing Then
If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
If FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDF.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDF.Body.CustomsValue.Vendee.Name
End If
End If
If FCFCDF.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDF.Body.CustomsValue.Vendee.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDF.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
End If
If FCFCDF.Body.CustomsValue.Vendee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDF.Body.CustomsValue.Vendee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDF.Body.CustomsValue.Vendee.Address.City
ADR.ezaAd_PLZ = FCFCDF.Body.CustomsValue.Vendee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDF.Body.CustomsValue.Vendee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
''Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''--
''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''--
'AUFSCHUB
If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then
'AUFSCHUB
If FCFCDF.DutyDefermentApproval IsNot Nothing AndAlso FCFCDF.DutyDefermentApproval.Count > 0 Then
For Each TMP In FCFCDF.DutyDefermentApproval
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
@@ -4589,20 +4590,20 @@ Public Class frmDYNachrichtenVerarbeitung
If FCFCDC.Header IsNot Nothing Then
EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry
EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice
EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber
EZA.eza_VersendungsLandCode = FCFCDC.Header.DepartureCountry
EZA.eza_FinanzamtAnmelder = FCFCDC.Header.TaxOffice
EZA.eza_UstIdAnmelder = FCFCDC.Header.TaxNumber
EZA.eza_Warenort = FCFCDC.Header.GoodsLocation
EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace
EZA.eza_Warenort = FCFCDC.Header.GoodsLocation
EZA.eza_Ausstellungsort = FCFCDC.Header.DeclarationPlace
EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus
EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod
EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag
EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
EZA.eza_ZollrechtlicherStatus = FCFCDC.Header.CustomsGoodsStatus
EZA.eza_Zahlungsart = FCFCDC.Header.PaymentMethod
EZA.eza_AnmelderistEmpfaenger = FCFCDC.Header.DeclarantIsConsigneeFlag
EZA.eza_VertretungsVerhaeltnisCode = FCFCDC.Header.RepresentativeRelationshipFlag
EZA.eza_Vorsteuerabzug = FCFCDC.Header.InputTaxDeductionFlag
EZA.eza_ZusatzangabenAnmeldung = FCFCDC.Header.AdditionalInformation
' EZA.eza_VerfahrenBeantragtCode
End If
@@ -4627,45 +4628,45 @@ Public Class frmDYNachrichtenVerarbeitung
End If
If FCFCDC.Body.PaymentTransaction IsNot Nothing Then
EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode
EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount
EZA.eza_Rechnungswaehrung = FCFCDC.Body.PaymentTransaction.CurrencyCode
EZA.eza_Rechnungspreis = FCFCDC.Body.PaymentTransaction.Amount
End If
End If
If FCFCDC.Body.CustomsValue IsNot Nothing Then
If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag
EZA.eza_DV1FruehereEntscheidungen = FCFCDC.Body.CustomsValue.FormerDecisions
If FCFCDC.Body.CustomsValue IsNot Nothing Then
If FCFCDC.Body.CustomsValue.RestrictionOrCondition IsNot Nothing Then EZA.eza_DV1EinschraenkungenKz = FCFCDC.Body.CustomsValue.RestrictionOrCondition.RestrictionFlag
EZA.eza_DV1FruehereEntscheidungen = FCFCDC.Body.CustomsValue.FormerDecisions
If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDC.Body.CustomsValue.Affiliation.Type
If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDC.Body.CustomsValue.Affiliation.Description
If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDC.Body.CustomsValue.LicenseFee.Description
If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag
End If
If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1Verbundenheit = FCFCDC.Body.CustomsValue.Affiliation.Type
If FCFCDC.Body.CustomsValue.Affiliation IsNot Nothing Then EZA.eza_DV1VerbungenheitEinzelheiten = FCFCDC.Body.CustomsValue.Affiliation.Description
If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenUmstand = FCFCDC.Body.CustomsValue.LicenseFee.Description
If FCFCDC.Body.CustomsValue.LicenseFee IsNot Nothing Then EZA.eza_DV1LizenzgebuehrenKz = FCFCDC.Body.CustomsValue.LicenseFee.LicenseFeeFlag
End If
If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then
For Each docTMP In FCFCDC.Body.Document
Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen
UNTERLAGE.ezaUl_Art = docTMP.Type
UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber
UNTERLAGE.ezaUl_Bereich = docTMP.Division
If FCFCDC.Body.Document IsNot Nothing AndAlso FCFCDC.Body.Document.Count > 0 Then
For Each docTMP In FCFCDC.Body.Document
Dim UNTERLAGE As New DAKOSY_Worker.cDakosy_EZA_Unterlagen
UNTERLAGE.ezaUl_Art = docTMP.Type
UNTERLAGE.ezaUl_Nummer = docTMP.ReferenceNumber
UNTERLAGE.ezaUl_Bereich = docTMP.Division
UNTERLAGE.ezaUl_DatumAusstellung = CDate(docTMP.IssuingDate).ToShortDateString
EZA.eza_UNTERLAGEN.Add(UNTERLAGE)
Next
Next
End If
End If
' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)???
' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '?
' EZA.eza_DV1Verbundenheit = cEDI.getSimpleLine("GIS+904:::", lines, Nothing)???
' EZA.eza_BewilligungsIDZLAVUV = cEDI.getSimpleLine("RFF+AEM:", lines) '?
'Vorpapier
If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then
EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type
'Vorpapier
If FCFCDC.PreviousAdministrativeReferences IsNot Nothing Then
EZA.eza_VorpapierArtCode = FCFCDC.PreviousAdministrativeReferences.Type
If FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference IsNot Nothing Then EZA.eza_VorpapierNr = FCFCDC.PreviousAdministrativeReferences.PreviousAdministrativeReference.ReferenceNumber
End If
'Beförderungsmittel Grenze
If FCFCDC.BorderTransportMeans IsNot Nothing Then
'Beförderungsmittel Grenze
If FCFCDC.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information
@@ -4674,111 +4675,111 @@ Public Class frmDYNachrichtenVerarbeitung
'Beförderungsmittel Inland
If FCFCDC.BorderTransportMeans IsNot Nothing Then
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality
End If
'Beförderungsmittel Inland
If FCFCDC.ArrivalTransportMeans IsNot Nothing Then
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity
End If
'Ansprechpartenr
If FCFCDC.ContactPerson IsNot Nothing Then
EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position
EZA.eza_AnmeldenderBearbeiterTel = FCFCDC.ContactPerson.PhoneNumber
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
End If
EZA.eza_BeförderungsmittelGrenzeArt = FCFCDC.BorderTransportMeans.Type
EZA.eza_VerkehrszweigGrenze = FCFCDC.BorderTransportMeans.Mode
EZA.eza_BeförderungsmittelGrenze = FCFCDC.BorderTransportMeans.Information
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = FCFCDC.BorderTransportMeans.Nationality
End If
'Beförderungsmittel Inland
If FCFCDC.ArrivalTransportMeans IsNot Nothing Then
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = FCFCDC.ArrivalTransportMeans.Identity
End If
'Ansprechpartenr
If FCFCDC.ContactPerson IsNot Nothing Then
EZA.eza_AnmeldenderBearbeiterName = FCFCDC.ContactPerson.Name
EZA.eza_AnmeldenderBearbeiterEMail = FCFCDC.ContactPerson.MailAddress
EZA.eza_AnmeldenderBearbeiterStellung = FCFCDC.ContactPerson.Position
EZA.eza_AnmeldenderBearbeiterTel = FCFCDC.ContactPerson.PhoneNumber
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
End If
End If
'Anmleder
If FCFCDC.Declarant IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "DT"
If FCFCDC.Declarant.Name IsNot Nothing Then
If FCFCDC.Declarant.Name.ToString.Length > 40 Then
If FCFCDC.Declarant.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Declarant.Name.ToString.Substring(80, FCFCDC.Declarant.Name.ToString.Length - 80)
End If
'Anmleder
If FCFCDC.Declarant IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "DT"
If FCFCDC.Declarant.Name IsNot Nothing Then
If FCFCDC.Declarant.Name.ToString.Length > 40 Then
If FCFCDC.Declarant.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, FCFCDC.Declarant.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name
ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Declarant.Name.ToString.Substring(80, FCFCDC.Declarant.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Declarant.Name.ToString.Substring(40, FCFCDC.Declarant.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Declarant.Name
End If
If FCFCDC.Declarant.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Declarant.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Declarant.Identification.SubsidiaryNumber
End If
If FCFCDC.Declarant.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Declarant.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Declarant.Address.City
ADR.ezaAd_PLZ = FCFCDC.Declarant.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Declarant.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
If FCFCDC.Declarant.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Declarant.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Declarant.Identification.SubsidiaryNumber
End If
If FCFCDC.Declarant.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Declarant.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Declarant.Address.City
ADR.ezaAd_PLZ = FCFCDC.Declarant.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Declarant.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Vertreter
If FCFCDC.Representative IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CB"
If FCFCDC.Representative.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Representative.Identification.SubsidiaryNumber
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
'Empfänger
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CN"
If FCFCDC.Body.Consignee.Name IsNot Nothing Then
If FCFCDC.Body.Consignee.Name.ToString.Length > 40 Then
If FCFCDC.Body.Consignee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignee.Name.ToString.Substring(80, FCFCDC.Body.Consignee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, FCFCDC.Body.Consignee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name
End If
End If
If FCFCDC.Body.Consignee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignee.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignee.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.Consignee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.Consignee.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.Consignee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.Consignee.Address.Country
End If
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CB"
If FCFCDC.Representative.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Representative.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Representative.Identification.SubsidiaryNumber
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
'Erwerber
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "UC"
'Empfänger
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Consignee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "CN"
If FCFCDC.Body.Consignee.Name IsNot Nothing Then
If FCFCDC.Body.Consignee.Name.ToString.Length > 40 Then
If FCFCDC.Body.Consignee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.Consignee.Name.ToString.Substring(80, FCFCDC.Body.Consignee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.Consignee.Name.ToString.Substring(40, FCFCDC.Body.Consignee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.Consignee.Name
End If
End If
If FCFCDC.Body.Consignee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.Consignee.Identification.ReferenceNumber
ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.Consignee.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.Consignee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.Consignee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.Consignee.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.Consignee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.Consignee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Erwerber
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "UC"
If FCFCDC.Body.Acquirer.Name IsNot Nothing Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 40 Then
If FCFCDC.Body.Acquirer.Name.ToString.Length > 80 Then
@@ -4843,90 +4844,90 @@ Public Class frmDYNachrichtenVerarbeitung
'Verkäufer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendor IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE"
If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then
If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
End If
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "SE"
If FCFCDC.Body.CustomsValue.Vendor.Name IsNot Nothing Then
If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 40 Then
If FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendor.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendor.Name
End If
If FCFCDC.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendor.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.CustomsValue.Vendor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendor.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Käufer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "BY"
If FCFCDC.Body.CustomsValue.Vendee.Name IsNot Nothing Then
If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name
End If
End If
If FCFCDC.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendee.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.CustomsValue.Vendee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendee.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
If FCFCDC.Body.CustomsValue.Vendor.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendor.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendor.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.CustomsValue.Vendor.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendor.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendor.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendor.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendor.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
'Käufer
If FCFCDC.Body IsNot Nothing AndAlso FCFCDC.Body.CustomsValue IsNot Nothing AndAlso FCFCDC.Body.CustomsValue.Vendee IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = "BY"
If FCFCDC.Body.CustomsValue.Vendee.Name IsNot Nothing Then
If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 40 Then
If FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length > 80 Then
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, 40)
ADR.ezaAd_NameFirma3 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(80, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 80)
End If
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(0, 40)
ADR.ezaAd_NameFirma2 = FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Substring(40, FCFCDC.Body.CustomsValue.Vendee.Name.ToString.Length - 40)
Else
ADR.ezaAd_NameFirma1 = FCFCDC.Body.CustomsValue.Vendee.Name
End If
End If
If FCFCDC.Body.CustomsValue.Vendee.Identification IsNot Nothing Then
ADR.ezaAd_TeilnehmerEORI = FCFCDC.Body.CustomsValue.Vendee.Identification.ReferenceNumber
'ADR.ezaAd_TeilnehmerNLNR = FCFCDC.Body.CustomsValue.Vendee.Identification.SubsidiaryNumber
End If
If FCFCDC.Body.CustomsValue.Vendee.Address IsNot Nothing Then
ADR.ezaAd_StrasseHausNr1 = FCFCDC.Body.CustomsValue.Vendee.Address.Line
ADR.ezaAd_StrasseHausNr2 = Nothing
ADR.ezaAd_Ort = FCFCDC.Body.CustomsValue.Vendee.Address.City
ADR.ezaAd_PLZ = FCFCDC.Body.CustomsValue.Vendee.Address.Postcode
ADR.ezaAd_LandCode = FCFCDC.Body.CustomsValue.Vendee.Address.Country
End If
EZA.eza_ADRESSEN.Add(ADR)
End If
End If
''Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PQ++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "PQ"))
''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Vertr. Zollwertanmelder
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AG++", lines, , False))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AG"))
''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Rechnung
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AA++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AA"))
''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''--
''Postfachadresse
'ADRTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+AAP++", lines))
'If ADRTMP.Length > 0 Then EZA.eza_ADRESSEN.Add(getEZAAresseFromLine(ADRTMP, "AAP"))
''--
'AUFSCHUB
If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then
'AUFSCHUB
If FCFCDC.DutyDefermentApproval IsNot Nothing AndAlso FCFCDC.DutyDefermentApproval.Count > 0 Then
For Each TMP In FCFCDC.DutyDefermentApproval
Dim AUFSCHUB As New DAKOSY_Worker.cDakosy_EZA_Aufschub
If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then
@@ -6037,6 +6038,9 @@ Public Class frmDYNachrichtenVerarbeitung
Dim division = ""
Dim TXT_DokBeschau = ""
Dim TXT_Rückweisung = ""
Dim TXT_Mitteilung = ""
Dim TXT_Mitteilung_Zollbeamter = ""
'Dim annahmeKz As Object = Nothing
'Dim ueberlassungKz As Object = Nothing
'Dim RueckgabeKz As Object = Nothing
@@ -6085,9 +6089,27 @@ Public Class frmDYNachrichtenVerarbeitung
'MitteilungTeilnehmerBeschau
End Select
End If
If POS.RueckgabeKz IsNot Nothing Then
If POS.RueckgabeKz = "J" Then
TXT_Rückweisung &= POS.Positionsnummer & ": Rückweisung " & vbNewLine
End If
End If
Next
End If
If EZA.EinzelEntscheidungAnmeldung.KopfDaten IsNot Nothing Then
If EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten IsNot Nothing Then
TXT_Mitteilung &= "Text: " & EZA.EinzelEntscheidungAnmeldung.KopfDaten.MitteilungTeilnehmerGestellungsmodalitaeten
If EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll IsNot Nothing Then
TXT_Mitteilung_Zollbeamter &= " (" & EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll & ")"
End If
TXT_Mitteilung &= vbNewLine
End If
End If
'End If
End If
@@ -6108,7 +6130,7 @@ Public Class frmDYNachrichtenVerarbeitung
STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = Nothing
If DY_TMP.dy_Status <> DAKOSY_Worker.cDY_Statusliste.S_60 Then 'Wenn beretis auf 60, dann wird kiene Änderung mehr vorgenommen!
@@ -6144,26 +6166,26 @@ Public Class frmDYNachrichtenVerarbeitung
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma
art = "F"
End If
@@ -6179,14 +6201,139 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , TXT_DokBeschau.Trim,,, If(EZA_TMP.eza_firma, ""))
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP.eza_firma, ""))
End Select
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_DokBeschau - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
If TXT_Rückweisung <> "" Then
'Benachrichtigung
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma
art = "F"
End If
End If
'Wenn gefunden
If sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
If GrenzstelleAVISO = "???" Then
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP.eza_firma, ""))
End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Rückweisung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
'Nur Mitteilung - keine Beschau, RW...
If TXT_Mitteilung <> "" And TXT_Rückweisung = "" And TXT_DokBeschau = "" Then
Select Case TXT_Mitteilung.Replace("Text: ", "").Replace(".", "").Trim.ToLower
Case "entgegengenommen"
Case "Zollanmeldung entgegengenommen"
Case "0"
Case "eingegangen"
Case Else
'Benachrichtigung
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = EZA_TMP.eza_firma
art = "F"
End If
End If
'Wenn gefunden
If sendToID >= 0 Then
' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!!
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
If GrenzstelleAVISO = "???" Then
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP.eza_firma, ""))
End Select
End If
' End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Mitteilung - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)

133
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3,6 +3,8 @@ Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Xml
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DocumentFormat.OpenXml.Wordprocessing
Imports Renci.SshNet
Public Class frmStartOptions
@@ -425,8 +427,8 @@ Public Class frmStartOptions
Try
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200)
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 200)
If dt IsNot Nothing Then
For Each row In dt.Rows
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
@@ -443,13 +445,23 @@ Public Class frmStartOptions
cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "")
cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "")
Dim destFull = ""
Dim Bezeichnung = ""
Select Case row("MsgTyp")
Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
Case "EZ923"
Select Case row("VorgangID")
Case "AF"
Bezeichnung = "ABD"
Case Else '"EF"
Bezeichnung = "STEUERBESCHEID_MITT"
End Select
Case "TR109" : Bezeichnung = "VBD"
Case "EX431" : Bezeichnung = "AVM"
End Select
Try
Dim Bezeichnung = ""
Select Case row("MsgTyp")
Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
Case "EZ923" : Bezeichnung = "STEUERBESCHEID_MITT"
Case "TR109" : Bezeichnung = "VBD"
End Select
If cDHF_Anhaenge.pfad <> "" Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
@@ -458,7 +470,7 @@ Public Class frmStartOptions
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
destFull = ""
copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull)
If destFull <> "" Then
@@ -472,19 +484,43 @@ Public Class frmStartOptions
End Try
cDHF_Anhaenge.SAVE()
Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Select Case row("MsgTyp")
Case "EZ922"
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL")
Case "TR109"
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL")
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
Case "EZ923" 'Ergänzung STB - Mitteilung
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA") 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
Case "EZ923" ' STB/ABD
Select Case row("VorgangID")
Case "AF" ' --> AUSFUHR --> ABD
'AES Stuff....
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL")
'Zeitspanne ? 3 Tage , älter nicht senden..
If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then
doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
End If
Case Else '' --> EINFUHR --> 'Ergänzung STB - Mitteilung
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
End Select
Case "EX431" 'AVM --> EZoll Anhänge & Mail senden
'AES Stuff....
DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL")
If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then
doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
End If
End Select
@@ -518,6 +554,9 @@ Public Class frmStartOptions
End Try
End Sub
Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr)
Try
@@ -715,15 +754,15 @@ Public Class frmStartOptions
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = betreff
API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = betreff
API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count
Select Case art
Select Case art
Case "STB"
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
@@ -1720,30 +1759,30 @@ Public Class frmStartOptions
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
End If
End If
End If
End If
End If
@@ -2811,9 +2850,9 @@ Public Class frmStartOptions
End Select
End If
If okDGV Then
r.DefaultCellStyle.BackColor = Color.LightGreen
r.DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen
Else
r.DefaultCellStyle.BackColor = Color.IndianRed
r.DefaultCellStyle.BackColor = System.Drawing.Color.IndianRed
End If
End If
Me.Refresh()

332
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -3,6 +3,7 @@ Imports System.Globalization
Imports System.Xml
Imports Renci.SshNet
Imports System.Net.Mail
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Public Class frmTCNachrichtenVerarbeitung
Dim cntDatenEingelesen As Integer = 0
@@ -103,14 +104,14 @@ Public Class frmTCNachrichtenVerarbeitung
Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'Datei herunterladen
IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename)
@@ -253,156 +254,223 @@ Public Class frmTCNachrichtenVerarbeitung
Label6.Visible = True
Exit Sub
End If
For i = 1 To 3
For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
Try
Dateiname = d
cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then
Dim found = False
Dim fi As FileInfo = New FileInfo(d)
If Not fi.Name.StartsWith(".") Then
' EDIFACT
' If fi.Extension = ".edi" Then
Dim alreadyMoved = False
If fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = ""
Try
Dateiname = d
cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then
'------------------------------------------------------------------------------------------------------------------------------
' eZOLL
'------------------------------------------------------------------------------------------------------------------------------
Dim found = False
Dim fi As FileInfo = New FileInfo(d)
If Not fi.Name.StartsWith(".") Then
Dim alreadyMoved = False
Select Case i
Case 1
If fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = ""
'------------------------------------------
'------------------ Anmeldung ------------------
'------------------------------------------
'TC: Versandbestätigung
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
If readTC_Anmeldung(doc, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
'------------------------------------------------------------------------------------------------------------------------------
' eZOLL
'------------------------------------------------------------------------------------------------------------------------------
ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then
Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_")
Dim CRN = ""
Dim tc_id = ""
Dim Anm_id = ""
Dim typeMsg = ""
Dim BezugsNr = ""
If split.Length > 0 Then CRN = split(0)
If split.Length > 1 Then Anm_id = split(1)
If split.Length > 2 Then typeMsg = split(2)
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
If BezugsNr <> String.Empty Then
Select Case typeMsg
Case "EZ923" 'STB
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
End If
'------------------------------------------
'------------------ Anmeldung ------------------
'------------------------------------------
'TC: Versandbestätigung
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
If readTC_Anmeldung(doc, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
found = True
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
End If
Case 2
If fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then
Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_")
Dim CRN = ""
Dim tc_id = ""
Dim Anm_id = ""
Dim typeMsg = ""
Dim BezugsNr = ""
Dim dec_ProzessArt = ""
If split.Length > 0 Then CRN = split(0)
If split.Length > 1 Then Anm_id = split(1)
If split.Length > 2 Then typeMsg = split(2)
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL")
dec_ProzessArt = SQL.DLookup("dec_ProzessArt", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL")
If BezugsNr <> String.Empty Then
Case "EZ922" 'STB Mitteilung
Select Case typeMsg
Case "EZ923" 'STB
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Select Case dec_ProzessArt
Case "EX" 'ABD
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
End If
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", tc_id)
End If
End If
found = True
addDGVEinarbeitung("PDF: AusfuhrBegleitDokument ", BezugsNr)
Case Else
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
End If
End If
found = True
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
End Select
Case "EZ922" 'STB Mitteilung
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
End If
End If
found = True
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
Case "TR109" 'VBD
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
End If
End If
found = True
addDGVEinarbeitung("PDF: VBD ", BezugsNr)
Case "EX431" 'AVMEX431
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "AVM", tc_id)
End If
End If
found = True
addDGVEinarbeitung("PDF: AusgangsVermerk ", BezugsNr)
End Select
End If
found = True
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
End If
Case 3 'NOT FOUND
Case "TR109" 'VBD
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
End If
If fi.Extension = ".pdf" Then ' -> PDFs dürfen länger leben.. (XML kommen oft später..)
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) > 2 Then ' .. aber nur wenn max. 2 h alt..
frmStartOptions.moveFile(d, ERROR_PFAD)
dsNichtErkannt += 1
End If
found = True
addDGVEinarbeitung("PDF: VBD ", BezugsNr)
Else
frmStartOptions.moveFile(d, ERROR_PFAD) ' ..sonst weg damit!
dsNichtErkannt += 1
End If
Me.Refresh()
End Select
End Select
End If
End If
If True Then
If Not alreadyMoved Then
If found Then
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
If True Then
If Not alreadyMoved Then
If found Then
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
cntDatenEingelesen += 1
Me.Refresh()
Else
'--wir oben im SELECT CASE GEREGELT -- > zusätzlicher Durchgang
End If
End If
End If
End If
Me.Refresh()
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Next
Next
End Sub
@@ -668,7 +736,11 @@ Public Class frmTCNachrichtenVerarbeitung
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
Case "TT922" 'EZA / Abgabenbescheid
Case "TT922" 'EZA / Mitteilung Zollschuld --> Abgabenbescheid
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
Case "TT923" ' Freigabe IMPORT + EXPORT
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
Case Else
@@ -901,7 +973,7 @@ Public Class frmTCNachrichtenVerarbeitung
POS.ABGABEN.Add(ABG)
Next
End If
TC.POSITIONSDATEN.Add(POS)
TC.POSITIONSDATEN.Add(POS)
Next
End If