This commit is contained in:
2023-09-24 23:03:25 +02:00
parent a9591ca6a7
commit 04664a652b
10 changed files with 1664 additions and 100 deletions

View File

@@ -77,6 +77,7 @@ Public Class cDakosyNCTSOut004
Property ncts_BindingItinerary As Object = Nothing
Property ncts_ContainerIndicator As Object = Nothing
Property ncts_InlandModeOfTransport As Object = Nothing
Property ncts_ModeOfTransportAtTheBorder As Object = Nothing
Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing
Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing
Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing
@@ -248,6 +249,38 @@ Public Class cDakosyNCTSOut004
Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_1_Type As Object = Nothing
Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_2_Type As Object = Nothing
Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_3_Type As Object = Nothing
Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_4_Type As Object = Nothing
Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_5_Type As Object = Nothing
Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_6_Type As Object = Nothing
Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_7_Type As Object = Nothing
Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_8_Type As Object = Nothing
Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_9_Type As Object = Nothing
Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing
Property ncts_TransportDocument_1_Type As Object = Nothing
Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_2_Type As Object = Nothing
@@ -305,6 +338,9 @@ Public Class cDakosyNCTSOut004
Property ncts_AUTOIMPIndicator As Object = Nothing
Property ncts_Stammreferenz As Object = Nothing
Property ncts_Eroeffnung As Object = Nothing
Property ncts_Ankunft As Object = Nothing
Property ncts_Erledigung As Object = Nothing
Property ncts_GUARANTEE As New List(Of cDakosy_NCTSOut004_Guarantee)
@@ -404,6 +440,7 @@ Public Class cDakosyNCTSOut004
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality))
@@ -575,6 +612,39 @@ Public Class cDakosyNCTSOut004
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type))
@@ -631,6 +701,9 @@ Public Class cDakosyNCTSOut004
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
@@ -646,9 +719,9 @@ Public Class cDakosyNCTSOut004
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOut004 WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
Dim ncts_IdTMP = ncts_Id
@@ -657,6 +730,29 @@ Public Class cDakosyNCTSOut004
Return ncts_Id > 0
End Function
Public Function GET_PKCNT() As Integer
GET_PKCNT = 0
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
For Each PK In HCCI.nctsHCCI_PACKAGING
If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then
GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages
End If
Next
Next
Next
End Function
Public Function GET_POSCNT() As Integer
GET_POSCNT = 0
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count
Next
End Function
Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
If Not SAVE(errHinweis) Then Return False
If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment() Then Return False
@@ -673,7 +769,7 @@ Public Class cDakosyNCTSOut004
ncts_TRANSPORTEQUIPMENT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id ", conn)
Using cmd As New SqlCommand("Select * FROM tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
@@ -1289,22 +1385,22 @@ Public Class cDakosyNCTSOut004
'Ermittlung ob T1 oder T2
If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then
If If(DY.ncts_Declarationtype, "").ToString.Contains("T2") Then
SPEDITIONSBUCH.Abfertigungsart = 6
For Each s In DY.ncts_SICHERHEITSANGABEN
Select Case If(s.nctsSA_GRN, "")
For Each s In DY.ncts_GUARANTEE
Select Case If(s.nctsGRT_GRN, "")
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
End Select
Next
ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then
ElseIf If(DY.ncts_Declarationtype, "").ToString.Contains("TIR") Then
'For Each s In DY.ncts_SICHERHEITSANGABEN
' If If(s.nctsSA_ArtCode, "") = "B" Then
' SPEDITIONSBUCH.Abfertigungsart = 8
' End If
'Next
If DY.ncts_BestimmungslandCode = "TR" Then
If DY.ncts_CountryOfDestination = "TR" Then
SPEDITIONSBUCH.Abfertigungsart = 12
Else
SPEDITIONSBUCH.Abfertigungsart = 8
@@ -1424,35 +1520,35 @@ Public Class cDakosyNCTSOut004
Dim packSt = ""
Dim PkCnt = 0
For Each HC In DY.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
For Each PK In HCCI.nctsHCCI_PACKAGING
If PK.nctsHCCIPK_NumberOfPackages Is Not Nothing Then
PkCnt += PK.nctsHCCIPK_NumberOfPackages
End If
Next
Next
Next
If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. "
Dim pkcnt = DY.GET_PKCNT()
If pkcnt > 0 Then packSt = pkcnt & " Pk. "
If DY.ncts_WARENPOS.Count > 0 Then
'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "")
If DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
SPEDITIONSBUCH.Währungsschlüssel = "900"
If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "")
Dim sumBrg As Double = 0
For Each S In DY.ncts_WARENPOS
sumBrg += If(S.nctsWP_Warenwert, 0)
For Each HC In DY.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
sumBrg += If(HCCI.nctsHCCI_GoodsValue, 0)
Next
Next
If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg
If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods IsNot Nothing Then
packSt &= If(DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, "")
End If
End If
End If
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg"
If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GrossMass).ToString("N1") & " kg"
If DY.ncts_GrossMass IsNot Nothing AndAlso IsNumeric(DY.ncts_GrossMass) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GrossMass) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
'Personal Abfertigung:
Try
If DY.ncts_Bearbeiter IsNot Nothing Then
@@ -1755,6 +1851,39 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_1_Type As Object = Nothing
Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_2_Type As Object = Nothing
Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_3_Type As Object = Nothing
Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_4_Type As Object = Nothing
Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_5_Type As Object = Nothing
Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_6_Type As Object = Nothing
Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_7_Type As Object = Nothing
Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_8_Type As Object = Nothing
Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_9_Type As Object = Nothing
Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHC_TransportDocument_1_Type As Object = Nothing
Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_2_Type As Object = Nothing
@@ -1914,6 +2043,38 @@ Public Class cDakosy_NCTSOut004_HouseConsignment
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type))