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

NCTS_TR ATEZ Anpassungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:06:31 +01:00
parent f8b69353a6
commit d1101072a6
20 changed files with 13589 additions and 2069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7870
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3254
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd
View File

File diff suppressed because it is too large Load Diff

33
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/message_types.xsd Normal file
View File

@@ -0,0 +1,33 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" version="1.00">
<!--=========================================-->
<!--===== Message Simple Types (additional validation for CTC Traders API -->
<!--===== XSD version v1.00 -->
<!--=========================================-->
<xs:include schemaLocation="simple_types.xsd" />
<!-- Additional message types that are specific to our application -->
<xs:simpleType name="CC007A_MessageType">
<xs:restriction base="AlphaNumType">
<xs:length value="6" />
<xs:pattern value="(CC|GB|XI)007A" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="CC014A_MessageType">
<xs:restriction base="AlphaNumType">
<xs:length value="6" />
<xs:pattern value="(CC|GB|XI)014A" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="CC015B_MessageType">
<xs:restriction base="AlphaNumType">
<xs:length value="6" />
<xs:pattern value="(CC|GB|XI)015B" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="CC044A_MessageType">
<xs:restriction base="AlphaNumType">
<xs:length value="6" />
<xs:pattern value="(CC|GB|XI)044A" />
</xs:restriction>
</xs:simpleType>
</xs:schema>

1264
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/simple_types.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

8
cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb
View File

@@ -14,3 +14,11 @@ Public Class cOregon_Paramter
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='OREGON' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class
Public Class cATEZ_Paramter
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='ATEZ' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class

8
cNCTSPartnerWorker/NCTSPartnerWorker.vbproj
View File

@@ -65,6 +65,8 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="cTR_NCTS.vb" />
<Compile Include="MAVI\CC015B_VersandanmeldungFinal\CC015B.Designer.vb" />
<Compile Include="MAVI\cMavi_Paramter.vb" />
<Compile Include="MAVI\cMAVIGetMsgType.vb" />
<Compile Include="MAVI\cMAVIFunctions.vb" />
@@ -96,6 +98,12 @@
<None Include="MAVI\CC015B_VersandanmeldungFinal\CC015B.xsd">
<SubType>Designer</SubType>
</None>
<None Include="MAVI\CC015B_VersandanmeldungFinal\message_types.xsd">
<SubType>Designer</SubType>
</None>
<None Include="MAVI\CC015B_VersandanmeldungFinal\simple_types.xsd">
<SubType>Designer</SubType>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>

183
cNCTSPartnerWorker/cTR_NCTS.vb Normal file
View File

@@ -0,0 +1,183 @@
Imports System.Globalization
Public Class cTR_NCTS
Public Shared Function GET_FROM_NCTSTR_CC015B(filePath As String, ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) As String
Dim CC015B As cNCTSPartnerWorker.CC015B.CC015BType = cNCTSPartnerWorker.CC015B.CC015BType.LoadFromFile(filePath)
'NCTS
If CC015B.HEAHEA IsNot Nothing Then
If CC015B.HEAHEA.RefNumHEA4 IsNot Nothing Then NCTS.ncts_ObjectName = CC015B.HEAHEA.RefNumHEA4
If CC015B.HEAHEA.TypOfDecHEA24 IsNot Nothing Then NCTS.ncts_ArtAnmeldung = CC015B.HEAHEA.TypOfDecHEA24
If CC015B.HEAHEA.CouOfDesCodHEA30 IsNot Nothing Then NCTS.ncts_BestimmungslandCode = CC015B.HEAHEA.CouOfDesCodHEA30
If CC015B.HEAHEA.PlaOfLoaCodHEA46 IsNot Nothing Then NCTS.ncts_SumA_Ladeort = CC015B.HEAHEA.PlaOfLoaCodHEA46
If CC015B.HEAHEA.CouOfDisCodHEA55 IsNot Nothing Then NCTS.ncts_VersendungsLandCode = CC015B.HEAHEA.CouOfDisCodHEA55
If CC015B.HEAHEA.InlTraModHEA75 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = CC015B.HEAHEA.InlTraModHEA75
If CC015B.HEAHEA.TraModAtBorHEA76 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = CC015B.HEAHEA.TraModAtBorHEA76
If CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
If CC015B.HEAHEA.NatOfMeaOfTraAtDHEA80 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = CC015B.HEAHEA.NatOfMeaOfTraAtDHEA80
If CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
If CC015B.HEAHEA.NatOfMeaOfTraCroHEA87 IsNot Nothing Then NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
'If CC015B.HEAHEA.ConIndHEA96 IsNot Nothing Then NCTS. = CC015B.HEAHEA.ConIndHEA96 CONTAINER
If CC015B.HEAHEA.TotNumOfPacHEA306 IsNot Nothing Then NCTS.ncts_GesamtAnzahlPackstuecke = CC015B.HEAHEA.TotNumOfPacHEA306
'If CC015B.HEAHEA.TotNumOfIteHEA305 IsNot Nothing Then NCTS.itemsGEsamt = CC015B.HEAHEA.TotNumOfIteHEA305
If CC015B.HEAHEA.TotGroMasHEA307 IsNot Nothing Then NCTS.ncts_GesamtRohmasse = CC015B.HEAHEA.TotGroMasHEA307
If CC015B.HEAHEA.DecDatHEA383 IsNot Nothing Then NCTS.ncts_Trans_DatumZeit = DateTime.ParseExact(CC015B.HEAHEA.DecDatHEA383, "yyyyMMdd", CultureInfo.CurrentCulture)
If CC015B.HEAHEA.DecPlaHEA394 IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394 '?
'If CC015B.HEAHEA.DecPlaHEA394LNG IsNot Nothing Then NCTS.ncts_Empfaenger_Ort = CC015B.HEAHEA.DecPlaHEA394LNG
If CC015B.HEAHEA.CodPlUnHEA357 IsNot Nothing Then NCTS.ncts_SumA_Entladeort = CC015B.HEAHEA.CodPlUnHEA357
If CC015B.TRAPRIPC1 IsNot Nothing Then
If CC015B.TRAPRIPC1.NamPC17 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Name = CC015B.TRAPRIPC1.NamPC17
If CC015B.TRAPRIPC1.StrAndNumPC122 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = CC015B.TRAPRIPC1.StrAndNumPC122
If CC015B.TRAPRIPC1.PosCodPC123 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_PLZ = CC015B.TRAPRIPC1.PosCodPC123
If CC015B.TRAPRIPC1.CitPC124 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Ort = CC015B.TRAPRIPC1.CitPC124
If CC015B.TRAPRIPC1.CouPC125 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Land = CC015B.TRAPRIPC1.CouPC125
If CC015B.TRAPRIPC1.TINPC159 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_EORI = CC015B.TRAPRIPC1.TINPC159
End If
'AbgangsZollstelle
If CC015B.CUSOFFDEPEPT IsNot Nothing Then
If CC015B.CUSOFFDEPEPT.RefNumEPT1 IsNot Nothing Then NCTS.ncts_AbgangsDienststellennummer = CC015B.CUSOFFDEPEPT.RefNumEPT1
End If
'BestimmungsZollstelle
If CC015B.CUSOFFDESEST IsNot Nothing Then
If CC015B.CUSOFFDESEST.RefNumEST1 IsNot Nothing Then NCTS.ncts_BestimmungsstelleDienststellennummer = CC015B.CUSOFFDESEST.RefNumEST1
End If
'Bearbeiter
If CC015B.REPREP IsNot Nothing Then
If CC015B.REPREP.NamREP5 IsNot Nothing Then NCTS.ncts_Bearbeiter = CC015B.REPREP.NamREP5
'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1
End If
'Frist
If CC015B.CONRESERS IsNot Nothing Then
If CC015B.CONRESERS.DatLimERS69 IsNot Nothing Then NCTS.ncts_Wiedergestellungsdatum = CC015B.CONRESERS.DatLimERS69
End If
''Verschluss
If CC015B.SEAINFSLI IsNot Nothing Then
If CC015B.SEAINFSLI.SeaNumSLI2 IsNot Nothing Then NCTS.ncts_Verschluss_Anzahl = CC015B.SEAINFSLI.SeaNumSLI2
If CC015B.SEAINFSLI.SEAIDSID IsNot Nothing AndAlso CC015B.SEAINFSLI.SEAIDSID.Count > 0 Then
If CC015B.SEAINFSLI.SEAIDSID.Count > 0 Then NCTS.ncts_Verschluss_Zeichen1 = CC015B.SEAINFSLI.SEAIDSID(0).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 1 Then NCTS.ncts_Verschluss_Zeichen2 = CC015B.SEAINFSLI.SEAIDSID(1).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 2 Then NCTS.ncts_Verschluss_Zeichen3 = CC015B.SEAINFSLI.SEAIDSID(2).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 3 Then NCTS.ncts_Verschluss_Zeichen4 = CC015B.SEAINFSLI.SEAIDSID(3).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 4 Then NCTS.ncts_Verschluss_Zeichen5 = CC015B.SEAINFSLI.SEAIDSID(4).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 5 Then NCTS.ncts_Verschluss_Zeichen6 = CC015B.SEAINFSLI.SEAIDSID(5).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 6 Then NCTS.ncts_Verschluss_Zeichen7 = CC015B.SEAINFSLI.SEAIDSID(6).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 7 Then NCTS.ncts_Verschluss_Zeichen8 = CC015B.SEAINFSLI.SEAIDSID(7).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 8 Then NCTS.ncts_Verschluss_Zeichen9 = CC015B.SEAINFSLI.SEAIDSID(8).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 9 Then NCTS.ncts_Verschluss_Zeichen10 = CC015B.SEAINFSLI.SEAIDSID(9).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 10 Then NCTS.ncts_Verschluss_Zeichen11 = CC015B.SEAINFSLI.SEAIDSID(10).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 11 Then NCTS.ncts_Verschluss_Zeichen12 = CC015B.SEAINFSLI.SEAIDSID(11).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 12 Then NCTS.ncts_Verschluss_Zeichen13 = CC015B.SEAINFSLI.SEAIDSID(12).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 13 Then NCTS.ncts_Verschluss_Zeichen14 = CC015B.SEAINFSLI.SEAIDSID(13).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 14 Then NCTS.ncts_Verschluss_Zeichen15 = CC015B.SEAINFSLI.SEAIDSID(14).SeaIdeSID1
If CC015B.SEAINFSLI.SEAIDSID.Count > 15 Then NCTS.ncts_Verschluss_Zeichen16 = CC015B.SEAINFSLI.SEAIDSID(15).SeaIdeSID1
End If
'If CC015B.REPREP.RefNumEST1 IsNot Nothing Then NCTS.= CC015B.REPREP.RefNumEST1
End If
'Bürgschaft
If CC015B.GUAGUA IsNot Nothing AndAlso CC015B.GUAGUA.Count > 0 Then
For Each GUAGUA In CC015B.GUAGUA
If GUAGUA.GUAREFREF IsNot Nothing Then
For Each REF In GUAGUA.GUAREFREF
Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
If GUAGUA.GuaTypGUA1 IsNot Nothing Then BRG.nctsSA_ArtCode = GUAGUA.GuaTypGUA1
If REF.GuaRefNumGRNREF1 IsNot Nothing Then BRG.nctsSA_GRN = REF.GuaRefNumGRNREF1
If REF.CurREF8 IsNot Nothing Then BRG.nctsSA_Waerung = REF.CurREF8
If REF.AccCodREF6 IsNot Nothing Then BRG.nctsSA_Zugriffcode = REF.AccCodREF6
If REF.AmoConREF7 IsNot Nothing Then BRG.nctsSA_AbgabenBetragFremdWaehrung = REF.AmoConREF7
'--> EUR
If REF.AmoConREF7 IsNot Nothing Then
If If(BRG.nctsSA_Waerung, "") <> "EUR" Then
Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(REF.AmoConREF7, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, REF.AmoConREF7)
Else
BRG.nctsSA_AbgabenBetrag = REF.AmoConREF7
End If
End If
NCTS.ncts_SICHERHEITSANGABEN.Add(BRG)
Next
End If
Next
End If
End If
If CC015B.ITI IsNot Nothing AndAlso CC015B.ITI.Count > 0 Then
If CC015B.ITI.Count > 0 Then NCTS.ncts_SumA_BefoerderungsrouteLand1 = CC015B.ITI(0).CouOfRouCodITI1
If CC015B.ITI.Count > 1 Then NCTS.ncts_SumA_BefoerderungsrouteLand2 = CC015B.ITI(1).CouOfRouCodITI1
If CC015B.ITI.Count > 2 Then NCTS.ncts_SumA_BefoerderungsrouteLand3 = CC015B.ITI(2).CouOfRouCodITI1
If CC015B.ITI.Count > 3 Then NCTS.ncts_SumA_BefoerderungsrouteLand4 = CC015B.ITI(3).CouOfRouCodITI1
If CC015B.ITI.Count > 4 Then NCTS.ncts_SumA_BefoerderungsrouteLand5 = CC015B.ITI(4).CouOfRouCodITI1
If CC015B.ITI.Count > 5 Then NCTS.ncts_SumA_BefoerderungsrouteLand6 = CC015B.ITI(5).CouOfRouCodITI1
If CC015B.ITI.Count > 6 Then NCTS.ncts_SumA_BefoerderungsrouteLand7 = CC015B.ITI(6).CouOfRouCodITI1
If CC015B.ITI.Count > 7 Then NCTS.ncts_SumA_BefoerderungsrouteLand8 = CC015B.ITI(7).CouOfRouCodITI1
If CC015B.ITI.Count > 8 Then NCTS.ncts_SumA_BefoerderungsrouteLand9 = CC015B.ITI(8).CouOfRouCodITI1
If CC015B.ITI.Count > 9 Then NCTS.ncts_SumA_BefoerderungsrouteLand10 = CC015B.ITI(9).CouOfRouCodITI1
End If
'Frächter
If CC015B.CARTRA100 IsNot Nothing Then
If CC015B.CARTRA100.NamCARTRA121 IsNot Nothing Then NCTS.ncts_SumA_Befoerderer_Name = CC015B.CARTRA100.NamCARTRA121
If CC015B.CARTRA100.StrAndNumCARTRA254 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = CC015B.CARTRA100.StrAndNumCARTRA254
If CC015B.CARTRA100.PosCodCARTRA121 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_PLZ = CC015B.CARTRA100.PosCodCARTRA121
If CC015B.CARTRA100.CitCARTRA789 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Ort = CC015B.CARTRA100.CitCARTRA789
If CC015B.CARTRA100.CouCodCARTRA587 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_Land = CC015B.CARTRA100.CouCodCARTRA587
If CC015B.CARTRA100.TINCARTRA254 IsNot Nothing Then NCTS.ncts_Hauptverpflichteter_EORI = CC015B.CARTRA100.TINCARTRA254
End If
'WARENPOSITIONEN
If CC015B.GOOITEGDS IsNot Nothing AndAlso CC015B.GOOITEGDS.Count > 0 Then
For Each GOOITEGDS In CC015B.GOOITEGDS
Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
If GOOITEGDS.IteNumGDS7 IsNot Nothing Then POS.nctsWP_PositionsNummer = GOOITEGDS.IteNumGDS7
If GOOITEGDS.ComCodTarCodGDS10 IsNot Nothing Then POS.nctsWP_Warennummer = GOOITEGDS.ComCodTarCodGDS10
If GOOITEGDS.GooDesGDS23 IsNot Nothing Then POS.nctsWP_Warenbezeichnung = GOOITEGDS.GooDesGDS23
If GOOITEGDS.GroMasGDS46 IsNot Nothing Then POS.nctsWP_Rohmasse = GOOITEGDS.GroMasGDS46
If GOOITEGDS.NetMasGDS48 IsNot Nothing Then POS.nctsWP_Eigenmasse = GOOITEGDS.NetMasGDS48
'Versender
If GOOITEGDS.TRACONCO2 IsNot Nothing Then
If GOOITEGDS.TRACONCO2.NamCO27 IsNot Nothing Then POS.nctsWP_Versender_Name = GOOITEGDS.TRACONCO2.NamCO27
If GOOITEGDS.TRACONCO2.StrAndNumCO222 IsNot Nothing Then POS.nctsWP_Versender_StrasseHausnummer = GOOITEGDS.TRACONCO2.StrAndNumCO222
If GOOITEGDS.TRACONCO2.PosCodCO223 IsNot Nothing Then POS.nctsWP_Versender_PLZ = GOOITEGDS.TRACONCO2.PosCodCO223
If GOOITEGDS.TRACONCO2.CitCO224 IsNot Nothing Then POS.nctsWP_Versender_Ort = GOOITEGDS.TRACONCO2.CitCO224
If GOOITEGDS.TRACONCO2.CouCO225 IsNot Nothing Then POS.nctsWP_Versender_Land = GOOITEGDS.TRACONCO2.CouCO225
If GOOITEGDS.TRACONCO2.TINCO259 IsNot Nothing Then POS.nctsWP_Versender_EORI = GOOITEGDS.TRACONCO2.TINCO259
End If
'Empfänger
If GOOITEGDS.TRACONCE2 IsNot Nothing Then
If GOOITEGDS.TRACONCE2.NamCE27 IsNot Nothing Then POS.nctsWP_Empfaenger_Name = GOOITEGDS.TRACONCE2.NamCE27
If GOOITEGDS.TRACONCE2.StrAndNumCE222 IsNot Nothing Then POS.nctsWP_Empfaenger_StrasseHausnummer = GOOITEGDS.TRACONCE2.StrAndNumCE222
If GOOITEGDS.TRACONCE2.PosCodCE223 IsNot Nothing Then POS.nctsWP_Empfaenger_PLZ = GOOITEGDS.TRACONCE2.PosCodCE223
If GOOITEGDS.TRACONCE2.CitCE224 IsNot Nothing Then POS.nctsWP_Empfaenger_Ort = GOOITEGDS.TRACONCE2.CitCE224
If GOOITEGDS.TRACONCE2.CouCE225 IsNot Nothing Then POS.nctsWP_Empfaenger_Land = GOOITEGDS.TRACONCE2.CouCE225
If GOOITEGDS.TRACONCE2.TINCE259 IsNot Nothing Then POS.nctsWP_Empfaenger_EORI = GOOITEGDS.TRACONCE2.TINCE259
End If
If GOOITEGDS.PACGS2 IsNot Nothing Then
For Each PACGS2 In GOOITEGDS.PACGS2
Dim PK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
If PACGS2.NumOfPacGS24 IsNot Nothing Then PK.nctsWpPk_PackstueckeAnzahl = PACGS2.NumOfPacGS24
If PACGS2.KinOfPacGS23 IsNot Nothing Then PK.nctsWpPk_Verpackungsart = PACGS2.KinOfPacGS23
If PACGS2.MarNumOfPacGS21 IsNot Nothing Then PK.nctsWpPk_ZeichenNummern = PACGS2.MarNumOfPacGS21
POS.nctsWP_PACKSTUECKE.Add(PK)
Next
End If
NCTS.ncts_WARENPOS.Add(POS)
Next
End If
End Function
End Class