diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb index a49a47a..b96143e 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb @@ -1604,669 +1604,674 @@ Public Class cDakosyNCTSOut004 - Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String) As Boolean - Dim Interface_VERSION = "004" - Dim ObjectAktion = DY_ACTION + Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Optional DY_Mitarbeiter As String = "") As Boolean + Try - Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp + Dim Interface_VERSION = "004" + Dim ObjectAktion = DY_ACTION - 'Transaktion: - XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp - XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") - XML.Transaktion.IODatumZeit = Now - XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW" - XML.Transaktion.Version = Interface_VERSION - ' XML.Transaktion.IODivision3 = "DUR" - XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp + Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp - 'ObjektIdentifizierung: - XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" - XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp - XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName + 'Transaktion: + XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp + XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + XML.Transaktion.IODatumZeit = Now + XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW" + XML.Transaktion.Version = Interface_VERSION + ' XML.Transaktion.IODivision3 = "DUR" + XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp - If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias - Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) - XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion - If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + 'ObjektIdentifizierung: + XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" + XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp + XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName - If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung + If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias + Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then + If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + End If + If DY_Mitarbeiter <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = DY_Mitarbeiter - 'TransitOperation: - XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType + If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung - If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch - If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination - If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber - If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator)) + 'TransitOperation: + XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType + + If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch + If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination + If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber + If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator)) - XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType - If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation - If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication - If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier)) + XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType + If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation + If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication + If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier)) - XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber - If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress + XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber + If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress - 'Nur 1x - If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then - Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType - If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber - If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime - XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD) - End If + 'Nur 1x + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then + Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime + XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD) + End If - If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared - If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture - If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared - If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate - If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType - If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype - If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass - If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary + If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared + If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture + If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared + If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate + If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType + If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype + If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass + If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary - 'TRANSPORTEQUIPMENT: - If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then - XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType) - For Each TE In cDY.ncts_TRANSPORTEQUIPMENT - Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType + 'TRANSPORTEQUIPMENT: + If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType) + For Each TE In cDY.ncts_TRANSPORTEQUIPMENT + Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType - SA.NumberOfSeals = TE.nctsTE_NumberOfSeals - If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals - If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber + SA.NumberOfSeals = TE.nctsTE_NumberOfSeals + If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals + If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber - If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1) - If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2) - If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3) - If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4) - If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5) - If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6) - If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7) - If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8) - If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9) - XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA) + If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1) + If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2) + If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3) + If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4) + If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5) + If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6) + If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7) + If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8) + If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9) + XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA) - Next - End If + Next + End If - 'Sicherheitsangaben: - If cDY.ncts_GUARANTEE.Count > 0 Then - XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType) - For Each s In cDY.ncts_GUARANTEE - Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType - If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type - If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference + 'Sicherheitsangaben: + If cDY.ncts_GUARANTEE.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType) + For Each s In cDY.ncts_GUARANTEE + Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType + If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type + If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference - Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType + Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType - If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency - If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered - If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName - If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue - If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue - If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue - If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms - If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount - If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms - If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount - If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms - If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount - If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems)) - If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary + If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency + If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered + If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName + If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue + If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue + If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue + If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms + If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount + If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms + If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount + If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms + If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount + If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems)) + If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary - If s.nctsGRT_GRN IsNot Nothing Then - SA.GRN = s.nctsGRT_GRN - If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then - If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then - s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") - If s.nctsGRT_AccessCode.length > 4 Then - s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4) + If s.nctsGRT_GRN IsNot Nothing Then + SA.GRN = s.nctsGRT_GRN + If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then + If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then + s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") + If s.nctsGRT_AccessCode.length > 4 Then + s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4) + End If End If End If + If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode + + ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + End If - If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode - ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + GRT.GuaranteeReference.Add(SA) + XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT) + Next + End If + + If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator)) + If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport + If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder + + + 'Beförderungsmittel - nur 1X + If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType + If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber + If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality + If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification + XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM) + End If + + 'Grenzüberschr.VM - nur 1X + If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType + If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber + If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality + If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification + If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber + XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM) + End If + + + 'Bewilligung 1 + If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber + If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + 'Bewilligung 2 + If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber + If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + 'Bewilligung 3 + If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber + If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + + + + 'Absender + If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type + If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber + If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber + If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name + If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode + If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber + If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City + If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country + If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber + If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress End If - - GRT.GuaranteeReference.Add(SA) - XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT) - - Next - End If - - If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator)) - If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport - If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder - - - 'Beförderungsmittel - nur 1X - If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType - If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber - If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality - If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification - XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM) - End If - - 'Grenzüberschr.VM - nur 1X - If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType - If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber - If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality - If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification - If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber - XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM) - End If - - - 'Bewilligung 1 - If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType - If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber - If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type - XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) - End If - 'Bewilligung 2 - If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType - If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber - If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type - XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) - End If - 'Bewilligung 3 - If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType - If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber - If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type - XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) - End If - - - - 'Absender - If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type - If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber - If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber - If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name - If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode - If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber - If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City - If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country - If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber - If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress End If - End If - 'Empfänger - If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type - If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber - If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber - If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name - If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode - If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber - If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City - If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country - If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber - If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress + 'Empfänger + If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type + If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber + If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber + If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name + If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode + If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber + If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City + If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country + If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber + If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress + End If End If - End If - 'Inhaber Versandverfahren - If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType - If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber - If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name - If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode - If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber - If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City - If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country - If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber - If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber - If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress + 'Inhaber Versandverfahren + If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType + If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber + If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name + If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode + If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber + If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City + If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country + If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress + End If End If - End If - 'Vertreter Inhaber Versandverfahren - If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType - If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber - If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber - If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress + 'Vertreter Inhaber Versandverfahren + If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType + If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber + If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber + If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress + End If End If - End If - 'Beförderer - If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType - If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber - If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then - XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name - If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber - If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress + 'Beförderer + If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType + If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber + If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber + If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress + End If End If - End If - 'Zus.Lieferkettenbeteiligter 1 - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber - If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role - XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) - End If - 'Zus.Lieferkettenbeteiligter 2 - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber - If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role - XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) - End If - 'Zus.Lieferkettenbeteiligter 3 - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber - If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role - XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) - End If + 'Zus.Lieferkettenbeteiligter 1 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If + 'Zus.Lieferkettenbeteiligter 2 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If + 'Zus.Lieferkettenbeteiligter 3 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If - If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security)) - If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR - If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator + If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security)) + If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR + If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator - If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location - If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country - If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location - If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country - If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName + If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location + If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country + If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location + If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country + If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName - If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges + If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges - If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1) - If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2) - If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3) - If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4) - If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5) - If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6) - If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7) - If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8) - If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9) + If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1) + If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2) + If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3) + If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4) + If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5) + If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6) + If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7) + If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8) + If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9) - 'Vorpapier 1 - If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber - If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type - If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 2 - If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber - If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type - If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 3 - If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber - If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type - If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 4 - If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber - If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type - If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 5 - If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber - If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type - If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 6 - If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber - If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type - If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 7 - If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber - If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type - If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 8 - If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber - If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type - If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If - 'Vorpapier 9 - If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType - If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber - If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type - If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) - End If + 'Vorpapier 1 + If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber + If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type + If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 2 + If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber + If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type + If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 3 + If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber + If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type + If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 4 + If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber + If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type + If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 5 + If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber + If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type + If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 6 + If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber + If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type + If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 7 + If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber + If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type + If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 8 + If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber + If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type + If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 9 + If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber + If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type + If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If - 'Unterlage 1 - If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber - If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type - If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 2 - If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber - If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type - If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 3 - If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber - If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type - If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 4 - If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber - If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type - If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 5 - If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber - If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type - If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 6 - If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber - If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type - If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 7 - If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber - If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type - If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 8 - If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber - If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type - If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If - 'Unterlage 9 - If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType - If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber - If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type - If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation - XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) - End If + 'Unterlage 1 + If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber + If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type + If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 2 + If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber + If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type + If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 3 + If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber + If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type + If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 4 + If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber + If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type + If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 5 + If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber + If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type + If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 6 + If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber + If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type + If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 7 + If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber + If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type + If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 8 + If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber + If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type + If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 9 + If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber + If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type + If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If - 'Transportpapier 1 - If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber - If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 2 - If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber - If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 3 - If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber - If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 4 - If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber - If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 5 - If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber - If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 6 - If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber - If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 7 - If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber - If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 8 - If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber - If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If - 'Transportpapier 9 - If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType - If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber - If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type - XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) - End If + 'Transportpapier 1 + If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber + If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 2 + If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber + If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 3 + If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber + If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 4 + If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber + If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 5 + If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber + If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 6 + If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber + If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 7 + If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber + If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 8 + If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber + If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 9 + If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber + If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If - 'ZusVermerk 1 - If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber - If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 2 - If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber - If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 3 - If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber - If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 4 - If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber - If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 5 - If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber - If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 6 - If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber - If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 7 - If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber - If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 8 - If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber - If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If - 'ZusVermerk 9 - If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType - If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber - If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type - XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) - End If + 'ZusVermerk 1 + If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber + If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 2 + If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber + If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 3 + If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber + If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 4 + If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber + If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 5 + If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber + If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 6 + If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber + If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 7 + If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber + If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 8 + If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber + If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 9 + If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber + If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If - 'ZusInformation 1 - If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code - If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 2 - If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code - If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 3 - If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code - If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 4 - If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code - If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 5 - If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code - If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 6 - If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code - If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 7 - If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code - If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 8 - If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code - If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If - 'ZusInformation 9 - If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType - If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code - If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text - XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) - End If + 'ZusInformation 1 + If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code + If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 2 + If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code + If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 3 + If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code + If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 4 + If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code + If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 5 + If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code + If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 6 + If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code + If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 7 + If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code + If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 8 + If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code + If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 9 + If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code + If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If - If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator)) + If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator)) @@ -2275,475 +2280,480 @@ Public Class cDakosyNCTSOut004 - 'Warenposition: - If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then - XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType) + 'Warenposition: + If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType) - Dim CntItemNoWhole = 1 - For Each p In cDY.ncts_HOUSE_CONSIGNMENT - Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType + Dim CntItemNoWhole = 1 + For Each p In cDY.ncts_HOUSE_CONSIGNMENT + Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType - If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch - If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination + If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch + If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination - If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then - HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType) + If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then + HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType) - Dim CntItemNo = 1 - For Each pp In p.nctsWP_CONSIGNMENT_ITEM - Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType + Dim CntItemNo = 1 + For Each pp In p.nctsWP_CONSIGNMENT_ITEM + Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType - HCCI.GoodsItemNumber = CntItemNo - CntItemNo += 1 + HCCI.GoodsItemNumber = CntItemNo + CntItemNo += 1 - HCCI.DeclarationGoodsItemNumber = CntItemNoWhole - CntItemNoWhole += 1 + HCCI.DeclarationGoodsItemNumber = CntItemNoWhole + CntItemNoWhole += 1 - If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode - If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR - If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment - If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1) - If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2) - If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3) - If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4) + If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode + If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR + If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment + If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1) + If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2) + If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3) + If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4) - If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType - If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode - If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods - If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode - If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch - If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination + If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType + If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode + If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods + If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode + If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch + If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination - If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass - If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass + If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass + If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass - If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue - If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue - If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate - If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate - If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType - If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount - If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue + If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue + If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue + If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate + If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate + If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType + If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount + If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue - 'Empfänger - If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then - HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type - If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber - If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber - If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name - If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode - If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber - If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City - If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country - If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then - HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType - If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name - If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber - If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress + 'Empfänger + If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then + HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type + If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber + If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber + If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name + If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode + If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber + If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City + If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country + If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then + HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name + If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber + If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress + End If End If - End If - 'Lieferkettenbeteiligter 1 - If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 2 - If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 3 - If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 4 - If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 5 - If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 6 - If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 7 - If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 8 - If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If - 'Lieferkettenbeteiligter 9 - If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType - If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber - If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role - HCCI.AdditionalSupplyChainActor.Add(TM) - End If + 'Lieferkettenbeteiligter 1 + If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 2 + If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 3 + If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 4 + If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 5 + If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 6 + If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 7 + If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 8 + If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 9 + If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If - 'Vorpapier 1 - If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type - If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 2 - If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type - If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 3 - If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type - If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 4 - If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type - If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 5 - If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type - If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 6 - If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type - If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 7 - If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type - If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 8 - If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type - If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If - 'Vorpapier 9 - If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType - If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type - If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber - If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation - If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber - HCCI.PreviousDocument.Add(TM) - End If + 'Vorpapier 1 + If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type + If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 2 + If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type + If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 3 + If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type + If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 4 + If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type + If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 5 + If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type + If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 6 + If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type + If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 7 + If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type + If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 8 + If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type + If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 9 + If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type + If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If - If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then - HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp) - For Each w In pp.nctsHCCI_PACKAGING - Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp - If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "") - If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages - If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber - If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks - HCCI.Packaging.Add(PK) - Next - End If + If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then + HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp) + For Each w In pp.nctsHCCI_PACKAGING + Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp + If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "") + If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages + If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber + If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks + HCCI.Packaging.Add(PK) + Next + End If - 'Unterlage 1 - If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type - If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 2 - If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type - If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 3 - If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type - If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 4 - If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type - If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 5 - If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type - If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 6 - If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type - If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 7 - If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type - If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 8 - If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type - If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If - 'Unterlage 9 - If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType - If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type - If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber - If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation - HCCI.SupportingDocument.Add(TM) - End If + 'Unterlage 1 + If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type + If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 2 + If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type + If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 3 + If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type + If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 4 + If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type + If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 5 + If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type + If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 6 + If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type + If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 7 + If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type + If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 8 + If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type + If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 9 + If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type + If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If - 'ZusVermerk 1 - If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type - If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 2 - If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type - If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 3 - If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type - If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 4 - If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type - If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 5 - If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type - If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 6 - If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type - If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 7 - If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type - If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 8 - If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type - If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If - 'ZusVermerk 9 - If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType - If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type - If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber - HCCI.AdditionalReference.Add(TM) - End If + 'ZusVermerk 1 + If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type + If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 2 + If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type + If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 3 + If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type + If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 4 + If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type + If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 5 + If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type + If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 6 + If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type + If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 7 + If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type + If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 8 + If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type + If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 9 + If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type + If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If - 'ZusInformation 1 - If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_1_Code - If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_1_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 2 - If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code - If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 3 - If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code - If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 4 - If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code - If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 5 - If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code - If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 6 - If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code - If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 7 - If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code - If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 8 - If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code - If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text - HCCI.AdditionalInformation.Add(TM) - End If - 'ZusInformation 9 - If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then - Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType - If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_9_Code - If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_9_Text - HCCI.AdditionalInformation.Add(TM) - End If + 'ZusInformation 1 + If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_1_Code + If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_1_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 2 + If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code + If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 3 + If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code + If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 4 + If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code + If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 5 + If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code + If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 6 + If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code + If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 7 + If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code + If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 8 + If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code + If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 9 + If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_9_Code + If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_9_Text + HCCI.AdditionalInformation.Add(TM) + End If - HC.ConsignmentItem.Add(HCCI) - Next - End If + HC.ConsignmentItem.Add(HCCI) + Next + End If - XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC) + XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC) - Next - End If + Next + End If - Dim saveDir = StartupPath & "\Dakosy_SEND\" - If Not System.IO.Directory.Exists(saveDir) Then - System.IO.Directory.CreateDirectory(saveDir) - End If + Dim saveDir = StartupPath & "\Dakosy_SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If - saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" - XML.SaveToFile(saveFile) + XML.SaveToFile(saveFile) - cDakosyFunftions.replaceNullDateXML(saveFile) + cDakosyFunftions.replaceNullDateXML(saveFile) - Return True + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False End Function @@ -2849,6 +2859,7 @@ Public Class cDakosyNCTSOut004 End If '---------------------------------------------------------------------- End If + NCTS_OUT.SAVE_ALL() Return NCTS_OUT End Function diff --git a/initATLASAufschubkonten/cWorker_AES_EXG.vb b/initATLASAufschubkonten/cWorker_AES_EXG.vb index 9c83c5d..4661423 100644 --- a/initATLASAufschubkonten/cWorker_AES_EXG.vb +++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb @@ -136,6 +136,7 @@ Public Class cWorker_AES_EXG STATUS.SAVE() + '---------------------------------------------------------------------- 'NCTS AKtualisieren! '---------------------------------------------------------------------- @@ -143,22 +144,25 @@ Public Class cWorker_AES_EXG '---------------------------------------------------------------------- 'Wenn markiert wurde, dass die NCTS Daten ergänzt werden sollten '---------------------------------------------------------------------- - Dim testDY = False + Dim testDY = True If testDY Or (EXG.exg_AutoFill_DyId IsNot Nothing AndAlso EXG.exg_AutoFill_DyId >= 0) Then - + Console.WriteLine("EXG: NCTS Verarbeitung starten...") '---------------------------------------------------------------------- 'NCTS BEFÜLLEN! '---------------------------------------------------------------------- Dim NCTS_OUT = fillNCTS_WithEXG_AutoFill(EXG, "TEEEEEEESTTT") '---------------------------------------------------------------------- '---------------------------------------------------------------------- - + testDY = True 'Prüfen ob alle EXG Daten gekommen sind --> NCTS Senden! If testDY Or (cDakosyEXG.isFillNCTS_ID_ALLCompleted(EXG.exg_AutoFill_DyId)) Then + Dim DY_ANM = New cDakosy_Zollanmeldungen(EXG.exg_AutoFill_DyId) If NCTS_OUT IsNot Nothing Then + + 'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id NCTS_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB @@ -170,12 +174,17 @@ Public Class cWorker_AES_EXG 'VON HIER löschnen ohne test If testDY OrElse NCTS_OUT.SAVE_ALL() Then + + If If(EXG.exg_AutoFill_DyId, -1) > 0 Then 'Nur speichern wenn bei test exg_AutoFill_DyId befüllt ist NCTS_OUT.SAVE_ALL() End If Dim saveFile = "" + If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then + If saveFile <> "" Then + frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\NCTS\") End If @@ -213,71 +222,71 @@ Public Class cWorker_AES_EXG DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId) End If - - - End If - End If - '---------------------------------------------------------------------- - 'QULAIFIZIERUNG! - '---------------------------------------------------------------------- - - '---------------------------------------------------------------------- - 'Es wird bei Daten zum AUsgang und "_EXG" automaitsch die Qualifizierung aufgerufen... - Dim test = False - - - '---------------------------------------------------------------------- - '---------------------------------------------------------------------- - If False Then '--------------QUALIFIZIERUNG NOCH NCIHT SENDEN! ------------------ - '---------------------------------------------------------------------- - '---------------------------------------------------------------------- - - - If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then - Dim IOPARTNER = VWI.Transaktion.IOPartner - Dim DIVISION3 = VWI.Transaktion.IODivision3 - Dim DAKOSY_SB = "ANDREAS" - Dim DY_ACTIONS As New List(Of String) - - If IOPARTNER = "UNAT" Then - DAKOSY_SB = "luxbauer" End If + End If - Dim saveFile = "" - DY_ACTIONS.Add("CHANGE") - DY_ACTIONS.Add("SEND") + '---------------------------------------------------------------------- + 'QULAIFIZIERUNG! + '---------------------------------------------------------------------- - If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then - If saveFile <> "" Then - If test Then - frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\") - Else - If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then - 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) - Return True + '---------------------------------------------------------------------- + 'Es wird bei Daten zum AUsgang und "_EXG" automaitsch die Qualifizierung aufgerufen... + Dim test = False + + + '---------------------------------------------------------------------- + '---------------------------------------------------------------------- + If False Then '--------------QUALIFIZIERUNG NOCH NCIHT SENDEN! ------------------ + '---------------------------------------------------------------------- + '---------------------------------------------------------------------- + + + If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then + Dim IOPARTNER = VWI.Transaktion.IOPartner + Dim DIVISION3 = VWI.Transaktion.IODivision3 + Dim DAKOSY_SB = "ANDREAS" + Dim DY_ACTIONS As New List(Of String) + + If IOPARTNER = "UNAT" Then + DAKOSY_SB = "luxbauer" + End If + + Dim saveFile = "" + + DY_ACTIONS.Add("CHANGE") + DY_ACTIONS.Add("SEND") + + If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then + If saveFile <> "" Then + If test Then + frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\") Else - 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) - Return False + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then + 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + Return True + Else + 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + Return False + End If End If End If End If End If End If + '---------------------------------------------------------------------- + + + FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr) End If '---------------------------------------------------------------------- + '---------------------------------------------------------------------- + - FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr) End If - '---------------------------------------------------------------------- - '---------------------------------------------------------------------- - - - - End If End If Next @@ -297,13 +306,16 @@ Public Class cWorker_AES_EXG Shared Function fillNCTS_WithEXG_AutoFill(EXG As cDakosyEXG, ObjectName As String) As cDakosyNCTSOut004 If (EXG.exg_AutoFill_DyId IsNot Nothing AndAlso EXG.exg_AutoFill_DyId >= 0) Then - Dim NCTS_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(EXG.exg_AutoFill_DyId, False) + Dim NCTS_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(EXG.exg_AutoFill_DyId, True) If NCTS_OUT Is Nothing Then NCTS_OUT = New DAKOSY_Worker.cDakosyNCTSOut004 - NCTS_OUT.ncts_ObjectName = "TEEEESSSSTTT" + NCTS_OUT.ncts_ObjectName = ObjectName End If + + Console.WriteLine("EXG: NCTS befüllen...") DAKOSY_Worker.cDakosyNCTSOut004.fillNCTS_WithEXG(NCTS_OUT, EXG, ObjectName) + Console.WriteLine("EXG: NCTS updaten...") cDakosyEXG.UPDATE_FillNCTS_ID_Completed(EXG.exg_Id) 'Eintrag, dass AutoFill durchgelaufen ist Return NCTS_OUT diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index a18a4fc..7d88171 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -230,14 +230,19 @@ Public Class frmDYNachrichtenVerarbeitung For Each d In getFilesInOrder() 'System.System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,) Try + Console.WriteLine(d) Dateiname = d cWorker_NCTS.Dateiname = d If System.IO.File.Exists(d) Then + + Dim found = False Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing Dim fi As FileInfo = New FileInfo(d) + Console.WriteLine(fi.Name) If Not fi.Name.StartsWith(".") And Not fi.Name.StartsWith("lock_") Then + Console.WriteLine("Verarbeitung Datein ohne Punkt / lock") d = frmStartOptions.lockFile(d) fi = New FileInfo(d) ' EDIFACT @@ -249,6 +254,7 @@ Public Class frmDYNachrichtenVerarbeitung alreadyMoved = True addDGVEinarbeitung("** NLC-Datei **", fi.Name) ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then + Console.WriteLine("Verarbeitung Datein EDI") Dim s As String = File.ReadAllText(d, System.Text.UTF8Encoding.Default) If s.Contains("'") Then Dim lines = s.Split("'") @@ -282,6 +288,7 @@ Public Class frmDYNachrichtenVerarbeitung 'XML ElseIf fi.Extension = ".xml" Then + Console.WriteLine("Verarbeitung Datein XML") Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} Dim doc As New XmlDocument() @@ -417,7 +424,7 @@ Public Class frmDYNachrichtenVerarbeitung If Not found And cGetMsgType.isSumAErledigungsinformation(doc, VERSION) Then Select Case VERSION - Case "005" :: If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE + Case "005" : If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE Case Else : If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE End Select End If @@ -455,9 +462,13 @@ Public Class frmDYNachrichtenVerarbeitung '------------------------------------------ + Console.WriteLine("EXG") 'AES: GEST If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then - frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\") + Console.WriteLine("isAES_DatenZumAusgang") + Try : frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\") + Catch : End Try + Select Case VERSION Case False Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True @@ -466,7 +477,8 @@ Public Class frmDYNachrichtenVerarbeitung 'AES: Zoll Nachricht If Not found And cGetMsgType.isAES_E_EXT_DAT(doc) Then - frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\") + Try : frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\") + Catch : End Try 'Select Case VERSION ' Case False ' Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True @@ -787,6 +799,7 @@ Public Class frmDYNachrichtenVerarbeitung End If End If Catch ex As Exception + Console.WriteLine("ERROR" & ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Next diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index a848a7c..c228c71 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -41,7 +41,6 @@ Partial Class frmStartOptions Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() @@ -58,20 +57,16 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -80,7 +75,6 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.tbcntr = New System.Windows.Forms.TabControl() @@ -90,7 +84,6 @@ Partial Class frmStartOptions Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -160,15 +153,6 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.btnTesttc = New System.Windows.Forms.Button() Me.cboTCAPI_Call = New System.Windows.Forms.Button() @@ -199,17 +183,10 @@ Partial Class frmStartOptions Me.cbxTCAnhEinlesen = New System.Windows.Forms.CheckBox() Me.cboTCAPI_Files = New System.Windows.Forms.Button() Me.cbxTCVB_Versand = New System.Windows.Forms.CheckBox() - Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.Asfinag = New System.Windows.Forms.TabPage() Me.Label28 = New System.Windows.Forms.Label() - Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() @@ -240,7 +217,6 @@ Partial Class frmStartOptions Me.IDS_RE = New System.Windows.Forms.LinkLabel() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MSE = New System.Windows.Forms.TabPage() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.Label61 = New System.Windows.Forms.Label() @@ -267,10 +243,6 @@ Partial Class frmStartOptions Me.Label42 = New System.Windows.Forms.Label() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.RMC = New System.Windows.Forms.TabPage() Me.Label58 = New System.Windows.Forms.Label() Me.lblOriginalRechnungRMC = New System.Windows.Forms.Label() @@ -281,8 +253,9 @@ Partial Class frmStartOptions Me.RMC_import = New System.Windows.Forms.LinkLabel() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UTA = New System.Windows.Forms.TabPage() + Me.lblOriginalRechnungUTA = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() Me.lblBackToCustomer_UTA = New System.Windows.Forms.LinkLabel() Me.Label31 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() @@ -293,9 +266,10 @@ Partial Class frmStartOptions Me.TextBox1 = New System.Windows.Forms.TextBox() Me.UTA_Laender = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PLOSE = New System.Windows.Forms.TabPage() + Me.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label() + Me.Label63 = New System.Windows.Forms.Label() + Me.Label62 = New System.Windows.Forms.Label() Me.lblBackToCustomer_PLOSE = New System.Windows.Forms.LinkLabel() Me.lblPlosefoppelteIMporte = New System.Windows.Forms.LinkLabel() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() @@ -305,8 +279,6 @@ Partial Class frmStartOptions Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.btnCheckPDF_USTVA = New System.Windows.Forms.Button() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() @@ -326,12 +298,10 @@ Partial Class frmStartOptions Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage8 = New System.Windows.Forms.TabPage() Me.PictureBox27 = New System.Windows.Forms.PictureBox() Me.Label60 = New System.Windows.Forms.Label() Me.dtp_MDM_Einarbeitung = New System.Windows.Forms.DateTimePicker() - Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -341,7 +311,6 @@ Partial Class frmStartOptions Me.lblAbDat = New System.Windows.Forms.Label() Me.Button27 = New System.Windows.Forms.Button() Me.lblWartungen = New System.Windows.Forms.Label() - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.cbxEventtriggered = New System.Windows.Forms.CheckBox() Me.Label50 = New System.Windows.Forms.Label() @@ -359,13 +328,11 @@ Partial Class frmStartOptions Me.lblMissingCS = New System.Windows.Forms.Label() Me.Button28 = New System.Windows.Forms.Button() Me.btnCreditsaveLauf = New System.Windows.Forms.Button() - Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.cbxBu = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -381,14 +348,52 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() + Me.Label55 = New System.Windows.Forms.Label() + Me.Button29 = New System.Windows.Forms.Button() + Me.Label56 = New System.Windows.Forms.Label() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Label62 = New System.Windows.Forms.Label() - Me.Label63 = New System.Windows.Forms.Label() - Me.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label() - Me.Label65 = New System.Windows.Forms.Label() - Me.lblOriginalRechnungUTA = New System.Windows.Forms.Label() + Me.Button31 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() @@ -415,7 +420,6 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.Panel1.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -433,13 +437,14 @@ Partial Class frmStartOptions CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() Me.TabPage7.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -709,29 +714,6 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -910,29 +892,6 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -979,30 +938,6 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1027,30 +962,6 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(425, 207) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -1099,17 +1010,6 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -1202,17 +1102,6 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1367,30 +1256,6 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Text = "SAVE VW" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' 'Label41 ' Me.Label41.AutoSize = True @@ -2185,167 +2050,13 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.Button31) + Me.TabPage3.Controls.Add(Me.Label56) + Me.TabPage3.Controls.Add(Me.MyTextBox5) + Me.TabPage3.Controls.Add(Me.Button29) + Me.TabPage3.Controls.Add(Me.Label55) Me.TabPage3.Controls.Add(Me.btnTesttc) Me.TabPage3.Controls.Add(Me.cboTCAPI_Call) Me.TabPage3.Controls.Add(Me.Label50cboTCAPI_) @@ -2703,116 +2414,6 @@ Partial Class frmStartOptions Me.cbxTCVB_Versand.Text = "ZB Versand" Me.cbxTCVB_Versand.UseVisualStyleBackColor = True ' - 'cboTCAPI_Firma - ' - Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing - Me.cboTCAPI_Firma._allowFreiText = False - Me.cboTCAPI_Firma._value = "" - Me.cboTCAPI_Firma.FormattingEnabled = True - Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) - Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) - Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" - Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) - Me.cboTCAPI_Firma.TabIndex = 152 - Me.cboTCAPI_Firma.Text = "ALLE" - ' - 'MyTextBox06 - ' - Me.MyTextBox06._DateTimeOnly = False - Me.MyTextBox06._numbersOnly = False - Me.MyTextBox06._numbersOnlyKommastellen = "" - Me.MyTextBox06._numbersOnlyTrennzeichen = False - Me.MyTextBox06._Prozent = False - Me.MyTextBox06._ShortDateNew = False - Me.MyTextBox06._ShortDateOnly = False - Me.MyTextBox06._TimeOnly = False - Me.MyTextBox06._TimeOnly_Seconds = False - Me.MyTextBox06._value = "200" - Me.MyTextBox06._Waehrung = False - Me.MyTextBox06._WaehrungZeichen = False - Me.MyTextBox06.ForeColor = System.Drawing.Color.Black - Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox06.MaxLength = 18 - Me.MyTextBox06.MaxLineLength = -1 - Me.MyTextBox06.MaxLines_Warning = "" - Me.MyTextBox06.MaxLines_Warning_Label = Nothing - Me.MyTextBox06.Name = "MyTextBox06" - Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox06.TabIndex = 148 - Me.MyTextBox06.Text = "200" - ' - 'txtCheckATEZMRN - ' - Me.txtCheckATEZMRN._DateTimeOnly = False - Me.txtCheckATEZMRN._numbersOnly = False - Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" - Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False - Me.txtCheckATEZMRN._Prozent = False - Me.txtCheckATEZMRN._ShortDateNew = False - Me.txtCheckATEZMRN._ShortDateOnly = False - Me.txtCheckATEZMRN._TimeOnly = False - Me.txtCheckATEZMRN._TimeOnly_Seconds = False - Me.txtCheckATEZMRN._value = "" - Me.txtCheckATEZMRN._Waehrung = False - Me.txtCheckATEZMRN._WaehrungZeichen = False - Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black - Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) - Me.txtCheckATEZMRN.MaxLength = 18 - Me.txtCheckATEZMRN.MaxLineLength = -1 - Me.txtCheckATEZMRN.MaxLines_Warning = "" - Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing - Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" - Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) - Me.txtCheckATEZMRN.TabIndex = 139 - ' - 'datTranscodeBis - ' - Me.datTranscodeBis._DateTimeOnly = False - Me.datTranscodeBis._numbersOnly = False - Me.datTranscodeBis._numbersOnlyKommastellen = "" - Me.datTranscodeBis._numbersOnlyTrennzeichen = True - Me.datTranscodeBis._Prozent = False - Me.datTranscodeBis._ShortDateNew = True - Me.datTranscodeBis._ShortDateOnly = False - Me.datTranscodeBis._TimeOnly = False - Me.datTranscodeBis._TimeOnly_Seconds = False - Me.datTranscodeBis._value = "" - Me.datTranscodeBis._Waehrung = False - Me.datTranscodeBis._WaehrungZeichen = True - Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black - Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) - Me.datTranscodeBis.MaxLength = 10 - Me.datTranscodeBis.MaxLineLength = -1 - Me.datTranscodeBis.MaxLines_Warning = "" - Me.datTranscodeBis.MaxLines_Warning_Label = Nothing - Me.datTranscodeBis.Name = "datTranscodeBis" - Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeBis.TabIndex = 143 - ' - 'datTranscodeVon - ' - Me.datTranscodeVon._DateTimeOnly = False - Me.datTranscodeVon._numbersOnly = False - Me.datTranscodeVon._numbersOnlyKommastellen = "" - Me.datTranscodeVon._numbersOnlyTrennzeichen = True - Me.datTranscodeVon._Prozent = False - Me.datTranscodeVon._ShortDateNew = True - Me.datTranscodeVon._ShortDateOnly = False - Me.datTranscodeVon._TimeOnly = False - Me.datTranscodeVon._TimeOnly_Seconds = False - Me.datTranscodeVon._value = "" - Me.datTranscodeVon._Waehrung = False - Me.datTranscodeVon._WaehrungZeichen = True - Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black - Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) - Me.datTranscodeVon.MaxLength = 10 - Me.datTranscodeVon.MaxLineLength = -1 - Me.datTranscodeVon.MaxLines_Warning = "" - Me.datTranscodeVon.MaxLines_Warning_Label = Nothing - Me.datTranscodeVon.Name = "datTranscodeVon" - Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeVon.TabIndex = 142 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.TabControl1) @@ -2881,54 +2482,6 @@ Partial Class frmStartOptions Me.Label28.TabIndex = 81 Me.Label28.Text = "ASFINAG" ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -3265,32 +2818,6 @@ Partial Class frmStartOptions Me.TextBox3.TabIndex = 154 Me.TextBox3.Text = "Dateien nach Import von FTP umbenennen" ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - Me.txtIDSYear._WaehrungZeichen = True - Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window - Me.txtIDSYear.ForeColor = System.Drawing.Color.Red - Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'MSE ' Me.MSE.Controls.Add(Me.LinkLabel25) @@ -3589,98 +3116,6 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - Me.txtTransactionID._WaehrungZeichen = True - Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window - Me.txtTransactionID.ForeColor = System.Drawing.Color.Black - Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - Me.txtBatchNr._WaehrungZeichen = True - Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNr.ForeColor = System.Drawing.Color.Red - Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtBatchNrofTransaction - ' - Me.txtBatchNrofTransaction._DateTimeOnly = False - Me.txtBatchNrofTransaction._numbersOnly = True - Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" - Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False - Me.txtBatchNrofTransaction._Prozent = False - Me.txtBatchNrofTransaction._ShortDateNew = False - Me.txtBatchNrofTransaction._ShortDateOnly = False - Me.txtBatchNrofTransaction._TimeOnly = False - Me.txtBatchNrofTransaction._TimeOnly_Seconds = False - Me.txtBatchNrofTransaction._value = "" - Me.txtBatchNrofTransaction._Waehrung = False - Me.txtBatchNrofTransaction._WaehrungZeichen = True - Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red - Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) - Me.txtBatchNrofTransaction.MaxLength = 10 - Me.txtBatchNrofTransaction.MaxLineLength = -1 - Me.txtBatchNrofTransaction.MaxLines_Warning = "" - Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing - Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" - Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNrofTransaction.TabIndex = 129 - Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'RMC ' Me.RMC.Controls.Add(Me.Label58) @@ -3794,17 +3229,6 @@ Partial Class frmStartOptions Me.TextBox2.TabIndex = 101 Me.TextBox2.Text = "Dateien nach Import von FTP löschen" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(13, 115) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' 'UTA ' Me.UTA.Controls.Add(Me.lblOriginalRechnungUTA) @@ -3828,6 +3252,26 @@ Partial Class frmStartOptions Me.UTA.Text = "UTA" Me.UTA.UseVisualStyleBackColor = True ' + 'lblOriginalRechnungUTA + ' + Me.lblOriginalRechnungUTA.AutoSize = True + Me.lblOriginalRechnungUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblOriginalRechnungUTA.Location = New System.Drawing.Point(228, 36) + Me.lblOriginalRechnungUTA.Name = "lblOriginalRechnungUTA" + Me.lblOriginalRechnungUTA.Size = New System.Drawing.Size(126, 13) + Me.lblOriginalRechnungUTA.TabIndex = 177 + Me.lblOriginalRechnungUTA.Text = "Original-Rechnungen" + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label65.Location = New System.Drawing.Point(13, 167) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(79, 13) + Me.Label65.TabIndex = 176 + Me.Label65.Text = "Verarbeitung" + ' 'lblBackToCustomer_UTA ' Me.lblBackToCustomer_UTA.AutoSize = True @@ -3935,58 +3379,6 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' - 'txtUTAYear - ' - Me.txtUTAYear._DateTimeOnly = False - Me.txtUTAYear._numbersOnly = True - Me.txtUTAYear._numbersOnlyKommastellen = "" - Me.txtUTAYear._numbersOnlyTrennzeichen = False - Me.txtUTAYear._Prozent = False - Me.txtUTAYear._ShortDateNew = False - Me.txtUTAYear._ShortDateOnly = False - Me.txtUTAYear._TimeOnly = False - Me.txtUTAYear._TimeOnly_Seconds = False - Me.txtUTAYear._value = "" - Me.txtUTAYear._Waehrung = False - Me.txtUTAYear._WaehrungZeichen = True - Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window - Me.txtUTAYear.ForeColor = System.Drawing.Color.Red - Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) - Me.txtUTAYear.MaxLength = 10 - Me.txtUTAYear.MaxLineLength = -1 - Me.txtUTAYear.MaxLines_Warning = "" - Me.txtUTAYear.MaxLines_Warning_Label = Nothing - Me.txtUTAYear.Name = "txtUTAYear" - Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) - Me.txtUTAYear.TabIndex = 133 - Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - Me.txtUTADate._WaehrungZeichen = True - Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window - Me.txtUTADate.ForeColor = System.Drawing.Color.Red - Me.txtUTADate.Location = New System.Drawing.Point(17, 215) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'PLOSE ' Me.PLOSE.Controls.Add(Me.lblOriginalRechnungPLOSE) @@ -4010,6 +3402,36 @@ Partial Class frmStartOptions Me.PLOSE.Text = "PLOSE" Me.PLOSE.UseVisualStyleBackColor = True ' + 'lblOriginalRechnungPLOSE + ' + Me.lblOriginalRechnungPLOSE.AutoSize = True + Me.lblOriginalRechnungPLOSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblOriginalRechnungPLOSE.Location = New System.Drawing.Point(243, 43) + Me.lblOriginalRechnungPLOSE.Name = "lblOriginalRechnungPLOSE" + Me.lblOriginalRechnungPLOSE.Size = New System.Drawing.Size(126, 13) + Me.lblOriginalRechnungPLOSE.TabIndex = 178 + Me.lblOriginalRechnungPLOSE.Text = "Original-Rechnungen" + ' + 'Label63 + ' + Me.Label63.AutoSize = True + Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label63.Location = New System.Drawing.Point(15, 43) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(42, 13) + Me.Label63.TabIndex = 177 + Me.Label63.Text = "Import" + ' + 'Label62 + ' + Me.Label62.AutoSize = True + Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label62.Location = New System.Drawing.Point(19, 124) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(79, 13) + Me.Label62.TabIndex = 176 + Me.Label62.Text = "Verarbeitung" + ' 'lblBackToCustomer_PLOSE ' Me.lblBackToCustomer_PLOSE.AutoSize = True @@ -4106,58 +3528,6 @@ Partial Class frmStartOptions Me.PlosePdfRE.TabStop = True Me.PlosePdfRE.Text = "PDF mit RE verknüpfen" ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - Me.txtPloseJahr._WaehrungZeichen = False - Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window - Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red - Me.txtPloseJahr.Location = New System.Drawing.Point(83, 146) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtPLoseKdNr - ' - Me.txtPLoseKdNr._DateTimeOnly = False - Me.txtPLoseKdNr._numbersOnly = True - Me.txtPLoseKdNr._numbersOnlyKommastellen = "" - Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False - Me.txtPLoseKdNr._Prozent = False - Me.txtPLoseKdNr._ShortDateNew = False - Me.txtPLoseKdNr._ShortDateOnly = False - Me.txtPLoseKdNr._TimeOnly = False - Me.txtPLoseKdNr._TimeOnly_Seconds = False - Me.txtPLoseKdNr._value = "" - Me.txtPLoseKdNr._Waehrung = False - Me.txtPLoseKdNr._WaehrungZeichen = False - Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window - Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red - Me.txtPLoseKdNr.Location = New System.Drawing.Point(83, 169) - Me.txtPLoseKdNr.MaxLength = 10 - Me.txtPLoseKdNr.MaxLineLength = -1 - Me.txtPLoseKdNr.MaxLines_Warning = "" - Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing - Me.txtPLoseKdNr.Name = "txtPLoseKdNr" - Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) - Me.txtPLoseKdNr.TabIndex = 162 - Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.btnCheckPDF_USTVA) @@ -4404,30 +3774,6 @@ Partial Class frmStartOptions Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.UseVisualStyleBackColor = True ' - 'txtKdNr - ' - Me.txtKdNr._DateTimeOnly = False - Me.txtKdNr._numbersOnly = True - Me.txtKdNr._numbersOnlyKommastellen = "" - Me.txtKdNr._numbersOnlyTrennzeichen = False - Me.txtKdNr._Prozent = False - Me.txtKdNr._ShortDateNew = False - Me.txtKdNr._ShortDateOnly = False - Me.txtKdNr._TimeOnly = False - Me.txtKdNr._TimeOnly_Seconds = False - Me.txtKdNr._value = "" - Me.txtKdNr._Waehrung = False - Me.txtKdNr._WaehrungZeichen = True - Me.txtKdNr.ForeColor = System.Drawing.Color.Black - Me.txtKdNr.Location = New System.Drawing.Point(77, 69) - Me.txtKdNr.MaxLength = 50 - Me.txtKdNr.MaxLineLength = -1 - Me.txtKdNr.MaxLines_Warning = "" - Me.txtKdNr.MaxLines_Warning_Label = Nothing - Me.txtKdNr.Name = "txtKdNr" - Me.txtKdNr.Size = New System.Drawing.Size(136, 20) - Me.txtKdNr.TabIndex = 95 - ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.PictureBox27) @@ -4471,15 +3817,6 @@ Partial Class frmStartOptions Me.dtp_MDM_Einarbeitung.Size = New System.Drawing.Size(77, 20) Me.dtp_MDM_Einarbeitung.TabIndex = 1 ' - 'dgv_MDMEinarbeitung - ' - Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) - Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" - Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) - Me.dgv_MDMEinarbeitung.TabIndex = 0 - ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -4584,30 +3921,6 @@ Partial Class frmStartOptions Me.lblWartungen.TabIndex = 15 Me.lblWartungen.Text = "Wartungen" ' - 'txtWartungFaelligkeitAbDat - ' - Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" - Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True - Me.txtWartungFaelligkeitAbDat._Prozent = False - Me.txtWartungFaelligkeitAbDat._ShortDateNew = True - Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False - Me.txtWartungFaelligkeitAbDat._value = "" - Me.txtWartungFaelligkeitAbDat._Waehrung = False - Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True - Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red - Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) - Me.txtWartungFaelligkeitAbDat.MaxLength = 10 - Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing - Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" - Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) - Me.txtWartungFaelligkeitAbDat.TabIndex = 141 - ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.cbxEventtriggered) @@ -4816,33 +4129,6 @@ Partial Class frmStartOptions Me.btnCreditsaveLauf.Text = "CS Portfolio-Upload" Me.btnCreditsaveLauf.UseVisualStyleBackColor = True ' - 'txtCSDate - ' - Me.txtCSDate._DateTimeOnly = False - Me.txtCSDate._numbersOnly = False - Me.txtCSDate._numbersOnlyKommastellen = "" - Me.txtCSDate._numbersOnlyTrennzeichen = False - Me.txtCSDate._Prozent = False - Me.txtCSDate._ShortDateNew = False - Me.txtCSDate._ShortDateOnly = True - Me.txtCSDate._TimeOnly = False - Me.txtCSDate._TimeOnly_Seconds = False - Me.txtCSDate._value = "" - Me.txtCSDate._Waehrung = False - Me.txtCSDate._WaehrungZeichen = True - Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window - Me.txtCSDate.Enabled = False - Me.txtCSDate.ForeColor = System.Drawing.Color.Red - Me.txtCSDate.Location = New System.Drawing.Point(96, 174) - Me.txtCSDate.MaxLength = 10 - Me.txtCSDate.MaxLineLength = -1 - Me.txtCSDate.MaxLines_Warning = "" - Me.txtCSDate.MaxLines_Warning_Label = Nothing - Me.txtCSDate.Name = "txtCSDate" - Me.txtCSDate.Size = New System.Drawing.Size(66, 20) - Me.txtCSDate.TabIndex = 157 - Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True @@ -4900,30 +4186,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -5092,6 +4354,872 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.Location = New System.Drawing.Point(13, 309) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(96, 13) + Me.Label55.TabIndex = 157 + Me.Label55.Text = "MODALTRANS:" + ' + 'Button29 + ' + Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button29.Location = New System.Drawing.Point(14, 328) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(123, 24) + Me.Button29.TabIndex = 158 + Me.Button29.Text = "NCTS Einlesen" + Me.Button29.UseVisualStyleBackColor = True + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + Me.Label56.Location = New System.Drawing.Point(144, 334) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(22, 13) + Me.Label56.TabIndex = 160 + Me.Label56.Text = "ab:" + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(425, 207) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'MyTextBox5 + ' + Me.MyTextBox5._DateTimeOnly = False + Me.MyTextBox5._numbersOnly = False + Me.MyTextBox5._numbersOnlyKommastellen = "" + Me.MyTextBox5._numbersOnlyTrennzeichen = True + Me.MyTextBox5._Prozent = False + Me.MyTextBox5._ShortDateNew = True + Me.MyTextBox5._ShortDateOnly = False + Me.MyTextBox5._TimeOnly = False + Me.MyTextBox5._TimeOnly_Seconds = False + Me.MyTextBox5._value = "" + Me.MyTextBox5._Waehrung = False + Me.MyTextBox5._WaehrungZeichen = True + Me.MyTextBox5.ForeColor = System.Drawing.Color.Black + Me.MyTextBox5.Location = New System.Drawing.Point(169, 331) + Me.MyTextBox5.MaxLength = 10 + Me.MyTextBox5.MaxLineLength = -1 + Me.MyTextBox5.MaxLines_Warning = "" + Me.MyTextBox5.MaxLines_Warning_Label = Nothing + Me.MyTextBox5.Name = "MyTextBox5" + Me.MyTextBox5.Size = New System.Drawing.Size(87, 20) + Me.MyTextBox5.TabIndex = 159 + ' + 'cboTCAPI_Firma + ' + Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing + Me.cboTCAPI_Firma._allowFreiText = False + Me.cboTCAPI_Firma._value = "" + Me.cboTCAPI_Firma.FormattingEnabled = True + Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) + Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) + Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" + Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) + Me.cboTCAPI_Firma.TabIndex = 152 + Me.cboTCAPI_Firma.Text = "ALLE" + ' + 'MyTextBox06 + ' + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" + ' + 'txtCheckATEZMRN + ' + Me.txtCheckATEZMRN._DateTimeOnly = False + Me.txtCheckATEZMRN._numbersOnly = False + Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" + Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False + Me.txtCheckATEZMRN._Prozent = False + Me.txtCheckATEZMRN._ShortDateNew = False + Me.txtCheckATEZMRN._ShortDateOnly = False + Me.txtCheckATEZMRN._TimeOnly = False + Me.txtCheckATEZMRN._TimeOnly_Seconds = False + Me.txtCheckATEZMRN._value = "" + Me.txtCheckATEZMRN._Waehrung = False + Me.txtCheckATEZMRN._WaehrungZeichen = False + Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black + Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) + Me.txtCheckATEZMRN.MaxLength = 18 + Me.txtCheckATEZMRN.MaxLineLength = -1 + Me.txtCheckATEZMRN.MaxLines_Warning = "" + Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing + Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" + Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) + Me.txtCheckATEZMRN.TabIndex = 139 + ' + 'datTranscodeBis + ' + Me.datTranscodeBis._DateTimeOnly = False + Me.datTranscodeBis._numbersOnly = False + Me.datTranscodeBis._numbersOnlyKommastellen = "" + Me.datTranscodeBis._numbersOnlyTrennzeichen = True + Me.datTranscodeBis._Prozent = False + Me.datTranscodeBis._ShortDateNew = True + Me.datTranscodeBis._ShortDateOnly = False + Me.datTranscodeBis._TimeOnly = False + Me.datTranscodeBis._TimeOnly_Seconds = False + Me.datTranscodeBis._value = "" + Me.datTranscodeBis._Waehrung = False + Me.datTranscodeBis._WaehrungZeichen = True + Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black + Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) + Me.datTranscodeBis.MaxLength = 10 + Me.datTranscodeBis.MaxLineLength = -1 + Me.datTranscodeBis.MaxLines_Warning = "" + Me.datTranscodeBis.MaxLines_Warning_Label = Nothing + Me.datTranscodeBis.Name = "datTranscodeBis" + Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeBis.TabIndex = 143 + ' + 'datTranscodeVon + ' + Me.datTranscodeVon._DateTimeOnly = False + Me.datTranscodeVon._numbersOnly = False + Me.datTranscodeVon._numbersOnlyKommastellen = "" + Me.datTranscodeVon._numbersOnlyTrennzeichen = True + Me.datTranscodeVon._Prozent = False + Me.datTranscodeVon._ShortDateNew = True + Me.datTranscodeVon._ShortDateOnly = False + Me.datTranscodeVon._TimeOnly = False + Me.datTranscodeVon._TimeOnly_Seconds = False + Me.datTranscodeVon._value = "" + Me.datTranscodeVon._Waehrung = False + Me.datTranscodeVon._WaehrungZeichen = True + Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black + Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) + Me.datTranscodeVon.MaxLength = 10 + Me.datTranscodeVon.MaxLineLength = -1 + Me.datTranscodeVon.MaxLines_Warning = "" + Me.datTranscodeVon.MaxLines_Warning_Label = Nothing + Me.datTranscodeVon.Name = "datTranscodeVon" + Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeVon.TabIndex = 142 + ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' + 'txtIDSYear + ' + Me.txtIDSYear._DateTimeOnly = False + Me.txtIDSYear._numbersOnly = True + Me.txtIDSYear._numbersOnlyKommastellen = "" + Me.txtIDSYear._numbersOnlyTrennzeichen = False + Me.txtIDSYear._Prozent = False + Me.txtIDSYear._ShortDateNew = False + Me.txtIDSYear._ShortDateOnly = False + Me.txtIDSYear._TimeOnly = False + Me.txtIDSYear._TimeOnly_Seconds = False + Me.txtIDSYear._value = "" + Me.txtIDSYear._Waehrung = False + Me.txtIDSYear._WaehrungZeichen = True + Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window + Me.txtIDSYear.ForeColor = System.Drawing.Color.Red + Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) + Me.txtIDSYear.MaxLength = 10 + Me.txtIDSYear.MaxLineLength = -1 + Me.txtIDSYear.MaxLines_Warning = "" + Me.txtIDSYear.MaxLines_Warning_Label = Nothing + Me.txtIDSYear.Name = "txtIDSYear" + Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) + Me.txtIDSYear.TabIndex = 155 + Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Red + Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + Me.txtBatchNrofTransaction._WaehrungZeichen = True + Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red + Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(13, 115) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' + 'txtUTAYear + ' + Me.txtUTAYear._DateTimeOnly = False + Me.txtUTAYear._numbersOnly = True + Me.txtUTAYear._numbersOnlyKommastellen = "" + Me.txtUTAYear._numbersOnlyTrennzeichen = False + Me.txtUTAYear._Prozent = False + Me.txtUTAYear._ShortDateNew = False + Me.txtUTAYear._ShortDateOnly = False + Me.txtUTAYear._TimeOnly = False + Me.txtUTAYear._TimeOnly_Seconds = False + Me.txtUTAYear._value = "" + Me.txtUTAYear._Waehrung = False + Me.txtUTAYear._WaehrungZeichen = True + Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window + Me.txtUTAYear.ForeColor = System.Drawing.Color.Red + Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) + Me.txtUTAYear.MaxLength = 10 + Me.txtUTAYear.MaxLineLength = -1 + Me.txtUTAYear.MaxLines_Warning = "" + Me.txtUTAYear.MaxLines_Warning_Label = Nothing + Me.txtUTAYear.Name = "txtUTAYear" + Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) + Me.txtUTAYear.TabIndex = 133 + Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtUTADate + ' + Me.txtUTADate._DateTimeOnly = False + Me.txtUTADate._numbersOnly = False + Me.txtUTADate._numbersOnlyKommastellen = "" + Me.txtUTADate._numbersOnlyTrennzeichen = False + Me.txtUTADate._Prozent = False + Me.txtUTADate._ShortDateNew = False + Me.txtUTADate._ShortDateOnly = True + Me.txtUTADate._TimeOnly = False + Me.txtUTADate._TimeOnly_Seconds = False + Me.txtUTADate._value = "" + Me.txtUTADate._Waehrung = False + Me.txtUTADate._WaehrungZeichen = True + Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window + Me.txtUTADate.ForeColor = System.Drawing.Color.Red + Me.txtUTADate.Location = New System.Drawing.Point(17, 215) + Me.txtUTADate.MaxLength = 10 + Me.txtUTADate.MaxLineLength = -1 + Me.txtUTADate.MaxLines_Warning = "" + Me.txtUTADate.MaxLines_Warning_Label = Nothing + Me.txtUTADate.Name = "txtUTADate" + Me.txtUTADate.Size = New System.Drawing.Size(66, 20) + Me.txtUTADate.TabIndex = 156 + Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPloseJahr + ' + Me.txtPloseJahr._DateTimeOnly = False + Me.txtPloseJahr._numbersOnly = True + Me.txtPloseJahr._numbersOnlyKommastellen = "" + Me.txtPloseJahr._numbersOnlyTrennzeichen = False + Me.txtPloseJahr._Prozent = False + Me.txtPloseJahr._ShortDateNew = False + Me.txtPloseJahr._ShortDateOnly = False + Me.txtPloseJahr._TimeOnly = False + Me.txtPloseJahr._TimeOnly_Seconds = False + Me.txtPloseJahr._value = "" + Me.txtPloseJahr._Waehrung = False + Me.txtPloseJahr._WaehrungZeichen = False + Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window + Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red + Me.txtPloseJahr.Location = New System.Drawing.Point(83, 146) + Me.txtPloseJahr.MaxLength = 10 + Me.txtPloseJahr.MaxLineLength = -1 + Me.txtPloseJahr.MaxLines_Warning = "" + Me.txtPloseJahr.MaxLines_Warning_Label = Nothing + Me.txtPloseJahr.Name = "txtPloseJahr" + Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) + Me.txtPloseJahr.TabIndex = 158 + Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPLoseKdNr + ' + Me.txtPLoseKdNr._DateTimeOnly = False + Me.txtPLoseKdNr._numbersOnly = True + Me.txtPLoseKdNr._numbersOnlyKommastellen = "" + Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False + Me.txtPLoseKdNr._Prozent = False + Me.txtPLoseKdNr._ShortDateNew = False + Me.txtPLoseKdNr._ShortDateOnly = False + Me.txtPLoseKdNr._TimeOnly = False + Me.txtPLoseKdNr._TimeOnly_Seconds = False + Me.txtPLoseKdNr._value = "" + Me.txtPLoseKdNr._Waehrung = False + Me.txtPLoseKdNr._WaehrungZeichen = False + Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window + Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red + Me.txtPLoseKdNr.Location = New System.Drawing.Point(83, 169) + Me.txtPLoseKdNr.MaxLength = 10 + Me.txtPLoseKdNr.MaxLineLength = -1 + Me.txtPLoseKdNr.MaxLines_Warning = "" + Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLoseKdNr.Name = "txtPLoseKdNr" + Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) + Me.txtPLoseKdNr.TabIndex = 162 + Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtKdNr + ' + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(77, 69) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 + ' + 'dgv_MDMEinarbeitung + ' + Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) + Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" + Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) + Me.dgv_MDMEinarbeitung.TabIndex = 0 + ' + 'txtWartungFaelligkeitAbDat + ' + Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" + Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True + Me.txtWartungFaelligkeitAbDat._Prozent = False + Me.txtWartungFaelligkeitAbDat._ShortDateNew = True + Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False + Me.txtWartungFaelligkeitAbDat._value = "" + Me.txtWartungFaelligkeitAbDat._Waehrung = False + Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True + Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red + Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) + Me.txtWartungFaelligkeitAbDat.MaxLength = 10 + Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing + Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" + Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) + Me.txtWartungFaelligkeitAbDat.TabIndex = 141 + ' + 'txtCSDate + ' + Me.txtCSDate._DateTimeOnly = False + Me.txtCSDate._numbersOnly = False + Me.txtCSDate._numbersOnlyKommastellen = "" + Me.txtCSDate._numbersOnlyTrennzeichen = False + Me.txtCSDate._Prozent = False + Me.txtCSDate._ShortDateNew = False + Me.txtCSDate._ShortDateOnly = True + Me.txtCSDate._TimeOnly = False + Me.txtCSDate._TimeOnly_Seconds = False + Me.txtCSDate._value = "" + Me.txtCSDate._Waehrung = False + Me.txtCSDate._WaehrungZeichen = True + Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window + Me.txtCSDate.Enabled = False + Me.txtCSDate.ForeColor = System.Drawing.Color.Red + Me.txtCSDate.Location = New System.Drawing.Point(96, 174) + Me.txtCSDate.MaxLength = 10 + Me.txtCSDate.MaxLineLength = -1 + Me.txtCSDate.MaxLines_Warning = "" + Me.txtCSDate.MaxLines_Warning_Label = Nothing + Me.txtCSDate.Name = "txtCSDate" + Me.txtCSDate.Size = New System.Drawing.Size(66, 20) + Me.txtCSDate.TabIndex = 157 + Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -5116,18 +5244,6 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'Button21 - ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True - ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -5135,55 +5251,17 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'Label62 + 'Button31 ' - Me.Label62.AutoSize = True - Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label62.Location = New System.Drawing.Point(19, 124) - Me.Label62.Name = "Label62" - Me.Label62.Size = New System.Drawing.Size(79, 13) - Me.Label62.TabIndex = 176 - Me.Label62.Text = "Verarbeitung" - ' - 'Label63 - ' - Me.Label63.AutoSize = True - Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label63.Location = New System.Drawing.Point(15, 43) - Me.Label63.Name = "Label63" - Me.Label63.Size = New System.Drawing.Size(42, 13) - Me.Label63.TabIndex = 177 - Me.Label63.Text = "Import" - ' - 'lblOriginalRechnungPLOSE - ' - Me.lblOriginalRechnungPLOSE.AutoSize = True - Me.lblOriginalRechnungPLOSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblOriginalRechnungPLOSE.Location = New System.Drawing.Point(243, 43) - Me.lblOriginalRechnungPLOSE.Name = "lblOriginalRechnungPLOSE" - Me.lblOriginalRechnungPLOSE.Size = New System.Drawing.Size(126, 13) - Me.lblOriginalRechnungPLOSE.TabIndex = 178 - Me.lblOriginalRechnungPLOSE.Text = "Original-Rechnungen" - ' - 'Label65 - ' - Me.Label65.AutoSize = True - Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label65.Location = New System.Drawing.Point(13, 167) - Me.Label65.Name = "Label65" - Me.Label65.Size = New System.Drawing.Size(79, 13) - Me.Label65.TabIndex = 176 - Me.Label65.Text = "Verarbeitung" - ' - 'lblOriginalRechnungUTA - ' - Me.lblOriginalRechnungUTA.AutoSize = True - Me.lblOriginalRechnungUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblOriginalRechnungUTA.Location = New System.Drawing.Point(228, 36) - Me.lblOriginalRechnungUTA.Name = "lblOriginalRechnungUTA" - Me.lblOriginalRechnungUTA.Size = New System.Drawing.Size(126, 13) - Me.lblOriginalRechnungUTA.TabIndex = 177 - Me.lblOriginalRechnungUTA.Text = "Original-Rechnungen" + Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button31.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button31.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button31.Location = New System.Drawing.Point(14, 358) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(123, 24) + Me.Button31.TabIndex = 161 + Me.Button31.Text = "Status Updaten" + Me.Button31.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -5227,7 +5305,6 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.Panel1.ResumeLayout(False) @@ -5256,7 +5333,6 @@ Partial Class frmStartOptions Me.TabPage8.ResumeLayout(False) Me.TabPage8.PerformLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() Me.TabPage7.ResumeLayout(False) @@ -5265,6 +5341,8 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -5633,4 +5711,9 @@ Partial Class frmStartOptions Friend WithEvents lblOriginalRechnungPLOSE As Label Friend WithEvents Label63 As Label Friend WithEvents Label62 As Label + Friend WithEvents Button29 As Button + Friend WithEvents Label55 As Label + Friend WithEvents Label56 As Label + Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button31 As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 1fd7ebc..06047ac 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -236,174 +236,6 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -817,9 +649,78 @@ True - - True - + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -866,6 +767,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index e3d9e0f..4e22c4d 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -89,6 +89,9 @@ Public Class frmStartOptions txtGJ_UNISPED.Text = Now.Year txtUTADate.Text = Today.ToShortDateString + + MyTextBox5._value = Today.AddDays(-7).ToShortDateString + txtEZOLLAnhDat._value = Now.ToShortDateString Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) @@ -661,6 +664,19 @@ Public Class frmStartOptions closeMe() '------------------------------ + Case "MODALTRANS_GET" ' + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + getNCTS_MODALTRANS(Now.AddDays(-3)) + closeMe() + '------------------------------ + Case "MODALTRANS_UPDATE" ' + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + UpdateOpenModaltransNCTSFremdStatuses() + closeMe() + '------------------------------ + Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeweils am 15/letzen Tag des Monats vor allen anderen MSE-Aufrufen! VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -7814,4 +7830,160 @@ repeatRequest: End Sub + + Private Sub Button29_Click_2(sender As Object, e As EventArgs) Handles Button29.Click + getNCTS_MODALTRANS(CDate(MyTextBox5._value)) + End Sub + + Sub getNCTS_MODALTRANS(Optional from As Object = Nothing) + 'Dim MT As New VERAG_PROG_ALLGEMEIN.cModalTransNCTS.cMT_NCTS_ApiClient + 'Dim LIST = MT.GetNCTSDeclarations(CDate("01.03.2026")) + 'If LIST.Count = 0 Then Console.WriteLine("Keine Eintäge") + + + 'For Each MRN In LIST + ' Console.WriteLine(MRN.lrn) + + 'Next + + If from Is Nothing Then from = Now.AddDays(-1) + + Dim MT As New VERAG_PROG_ALLGEMEIN.cModalTransNCTS.cMT_NCTS_ApiClient + Dim LIST = MT.GetAllNCTSDeclarations(CDate(from)) + If LIST.Count = 0 Then Console.WriteLine("Keine Eintäge") + + + For Each MRN In LIST + Try + + + + Dim nctsFremd = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(MRN.mrn, False) + If nctsFremd IsNot Nothing Then + Console.WriteLine(MRN.mrn & " found") + Else + Console.WriteLine(MRN.mrn & " not found") + End If + Console.WriteLine(MRN.mrn & " - " & MRN.lrn) + + Dim statusValue As Integer = -1 + If nctsFremd IsNot Nothing Then + Integer.TryParse(If(nctsFremd.ncts_Status, "").ToString(), statusValue) + End If + + ' Fall 1: vorhanden + Status 60/90 -> nichts tun + If nctsFremd IsNot Nothing AndAlso (statusValue = 60 OrElse statusValue = 90) Then + Console.WriteLine("Übersprungen, da ncts_Status = " & statusValue) + Continue For + End If + + + If nctsFremd Is Nothing Then + ' + Console.WriteLine("*Neu anlegen") + Dim nctsMt = MT.GetNCTSDeclarationByMRN(MRN.mrn) + If nctsMt Is Nothing Then + Console.WriteLine("Keine Modaltrans-Daten gefunden.") + Continue For + End If + ' Debug-Ausgaben + Console.WriteLine("vehicle_code:" & If(nctsMt.vehicle_code, "")) + Console.WriteLine("lrn:" & If(nctsMt.lrn, "")) + Console.WriteLine("letter_grn:" & If(nctsMt.letter_grn, "")) + Console.WriteLine("guarantee_curr:" & If(nctsMt.guarantee_curr, "")) + Console.WriteLine("guarantee_price:" & If(nctsMt.guarantee_price, "")) + Console.WriteLine("status:" & If(nctsMt.status, "")) + MT.ConvertModaltransToNCTSFremd(nctsMt) + + Else + ' Vorhanden, aber anderer Status -> Update (auskommentiert) + 'Status updaten: + Console.WriteLine("*Updaten") + + If MT.UpdateNCTSFremdStatusFromTimelines(nctsFremd.ncts_MRN, nctsFremd, False) Then + nctsFremd.SAVE() + End If + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + End Try + Next + End Sub + + Private Sub Button31_Click_1(sender As Object, e As EventArgs) Handles Button31.Click + UpdateOpenModaltransNCTSFremdStatuses() + End Sub + Public Function UpdateOpenModaltransNCTSFremdStatuses() As Integer + Dim updatedCount As Integer = 0 + Dim totalCount As Integer = 0 + + Try + Dim sqlstr As String = "SELECT ncts_MRN FROM [tblNCTS_FREMD] " & + "WHERE ncts_Partnersystem = 'MODALTRANS' " & + "AND ISNULL(ncts_Status, 0) < 60 " & + "AND ISNULL(ncts_MRN, '') <> ''" + + Console.WriteLine("=== Starte Update Modaltrans NCTS_FREMD ===") + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL") + + If dt Is Nothing OrElse dt.Rows.Count = 0 Then + Console.WriteLine("Keine offenen Datensätze gefunden.") + Return 0 + End If + + Console.WriteLine("Gefundene Datensätze: " & dt.Rows.Count) + + Dim MT As New VERAG_PROG_ALLGEMEIN.cModalTransNCTS.cMT_NCTS_ApiClient + + For Each row As DataRow In dt.Rows + totalCount += 1 + + Dim mrn As String = If(row("ncts_MRN"), "").ToString.Trim + If String.IsNullOrWhiteSpace(mrn) Then + Console.WriteLine("[" & totalCount & "] MRN leer -> übersprungen") + Continue For + End If + + Console.WriteLine("[" & totalCount & "] Prüfe MRN: " & mrn) + + Dim nctsFremd As VERAG_PROG_ALLGEMEIN.cNCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(mrn, False) + + If nctsFremd Is Nothing Then + Console.WriteLine(" -> Datensatz nicht gefunden") + Continue For + End If + + Try + If MT.UpdateNCTSFremdStatusFromTimelines(nctsFremd.ncts_MRN, nctsFremd, False) Then + nctsFremd.SAVE() + updatedCount += 1 + Console.WriteLine(" -> ✔ Aktualisiert (Status: " & nctsFremd.ncts_Status & ")") + End If + Catch exInner As Exception + Console.WriteLine(" -> ❌ Fehler bei MRN " & mrn & ": " & exInner.Message) + End Try + Next + + Console.WriteLine("=== Fertig ===") + Console.WriteLine("Gesamt geprüft: " & totalCount) + Console.WriteLine("Aktualisiert: " & updatedCount) + + Catch ex As Exception + Console.WriteLine("❌ Globaler Fehler: " & ex.Message) + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR( + ex.Message, + ex.StackTrace, + System.Reflection.MethodInfo.GetCurrentMethod.Name + ) + End Try + + Return updatedCount + End Function End Class \ No newline at end of file