neu

DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb

@@ -6,6 +6,11 @@
 
     Property Colli As String
     Property Gewicht As String
+
+
+    Property num_Colli As Integer = 0
+    Property num_Gewicht As Double = 0
+
     Property Rechnungspreis As String
     Property Warenbezeichung As String
 
@@ -19,19 +24,26 @@
     Property Sachbearbeiter As String
 
     Property VerBestLandZst As String
+    Property Vorpapier As String
 
     Property ATCMRN As String
 
+    Property isUeT1 As Boolean = False
+
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     'Sub New(BezugsNr, Abfertigungsart)
     '    getDataByBezugsnummer(BezugsNr, Abfertigungsart)
     'End Sub
 
-    Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String) As String
-        If BezugsNr.Length <= 12 Then Return ""
+    Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As String
+        If If(DY_Ref, "") <> "" Then
+            BezugsNr = DY_Ref
+        Else
+            If BezugsNr.Length <= 12 Then Return ""
+            BezugsNr = BezugsNr & "%"
+        End If
 
-        BezugsNr = BezugsNr & "%"
         getATAMRNBezugsnummer = ""
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             ' Case "IMEX"
@@ -42,6 +54,7 @@
                     Case 38, 26 'AT
                         '    getADFrom_EZOLL 
                         getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1
+                        isUeT1 = (getATAMRNBezugsnummer <> "")
                         Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
                     Case 1, 2, 3, 28, 39
                         getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True)
@@ -57,9 +70,15 @@
 
     End Function
 
-    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
-        If BezugsNr.Length <= 12 Then Return ""
-        BezugsNr = BezugsNr & "%"
+    Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String, DY_Ref As String) As Boolean
+        If If(DY_Ref, "") <> "" Then
+            BezugsNr = DY_Ref
+        Else
+            If BezugsNr.Length <= 12 Then Return False
+            BezugsNr = BezugsNr & "%"
+        End If
+
+
         getDataByBezugsnummer = False
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             '  Case "UNISPED"
@@ -69,6 +88,7 @@
                     Case 38, 26 'AT
                         '    getADFrom_EZOLL 
                         getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) 'Ü-T1
+                        isUeT1 = (getDataByBezugsnummer)
                         Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen...
                     Case 1, 2, 3, 28, 39
                         getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True)
@@ -130,7 +150,7 @@
             EZA.LOAD_Warenposition()
 
             ' 
-            If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1")
             If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
             Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
             ATCMRN = If(EZA.eza_ANR, "")
@@ -162,6 +182,7 @@
                     cnt += 1
                 Next
             End If
+            num_Colli = Colli
             Me.Colli = Colli & " Pk."
 
             For Each AD In EZA.eza_ADRESSEN
@@ -196,6 +217,12 @@
                 addIfNotExists(AUFSCHUB_List, kto & load_KdFromAKto(kto))
             Next
 
+            If EZA.eza_VorpapierArtCode IsNot Nothing AndAlso EZA.eza_VorpapierArtCode <> "" AndAlso EZA.eza_VorpapierArtCode <> "OHNE" Then
+                Vorpapier = EZA.eza_VorpapierArtCode
+                If If(EZA.eza_VorpapierNr, "") <> "" Then Vorpapier &= ": " & EZA.eza_VorpapierNr
+            End If
+
+
             AbgabenKonto = listToString(AUFSCHUB_List)
 
 
@@ -223,7 +250,7 @@
             NCTS.LOAD_Warenposition()
 
             ' 
-            If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1")
 
             '        Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "") 
             'Property Absender As String
@@ -259,6 +286,7 @@
                     cnt += 1
                 Next
             End If
+            num_Colli = Colli
             Me.Colli = Colli & " Pk."
             Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
 
@@ -329,9 +357,9 @@
             If DY_TMP Is Nothing Then Return Nothing
             If NCTS_TMP Is Nothing Then Return Nothing
             NCTS_TMP.LOAD_Warenposition()
-
+            num_Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, 0)
             Me.Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, "") & " Pk."
-            If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg"
+            If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg" : num_Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1")
 
 
             Dim RG_List As New List(Of String)