Dublizieren von Sendungen -> in Ursprungssendung werden Sendungsabrechnungen nicht mehr zurückgesetzt.

Aviso/Aviso.vbproj

@@ -108,7 +108,7 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

Aviso/frmSendungsdetailsNEU.vb

@@ -55,7 +55,7 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
 
-    Sub SAVE_ABRECHUNG()
+    Sub SAVE_ABRECHUNG(Optional isDublicated = False)
         SENDUNG_LIST(CURRENT_INDEX).CLEAR_ABRECHNUNG_NotLeistungen()
         For Each c In Panel6.Controls
             If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
@@ -65,7 +65,7 @@ Public Class frmSendungsdetailsNEU
                 End If
             End If
         Next
-        SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
+        If Not isDublicated Then SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
     End Sub
 
 
@@ -96,7 +96,7 @@ Public Class frmSendungsdetailsNEU
         SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
     End Sub
 
-    Function SAVE_ME(Optional saveAll = False) As Boolean
+    Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean
 
         txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
         txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
@@ -123,7 +123,7 @@ Public Class frmSendungsdetailsNEU
                 SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
                 SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
             End If
-            SAVE_ABRECHUNG()
+            SAVE_ABRECHUNG(isDublicated)
 
             'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             '    Case "UNISPED"
@@ -991,9 +991,10 @@ Public Class frmSendungsdetailsNEU
         newRow.tblSnd_PosUnterNr = SENDUNG_LIST.Count + 1
         newRow.AbfertigungsNr = IIf(newRow.FilialenNr > 0, Nothing, 0)
         newRow.UnterNr = 0
-        newRow.tblSnd_Colli = ""
-        newRow.tblSnd_Gewicht = ""
-        newRow.tblSnd_Colli = ""
+
+        'diese Werte sollen beim dublizieren übernommen werden
+        'newRow.tblSnd_Gewicht = "" 
+        'newRow.tblSnd_Colli = ""
 
         newRow.tblSnd_VG_MA = Nothing
         newRow.tblSnd_Vorgeschrieben = Nothing
@@ -1009,7 +1010,7 @@ Public Class frmSendungsdetailsNEU
         newRow.ABRECHNUNG.Clear()
         SENDUNG_LIST.Add(newRow)
 
-        SAVE_ME()
+        SAVE_ME(, True)
         LAST_SENDUNG()
 
     End Sub