AVISO Ansicht, Sendung-Frachtksoten

Gemeinsames/Gemeinsames.vbproj

@@ -303,6 +303,12 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
+      <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
+      <Name>DAKOSY_Worker_lib</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

Gemeinsames/rptSendungen.vb

@@ -157,11 +157,16 @@ Public Class rptSendungen
         End If
 
         Select Case VALUES.ABF_ART
-            Case 5, 6
+            Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42
                 txtNCTSVZAdr.Visible = True
                 lblNCTSVZAdr.Visible = True
                 txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
                 lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
+            Case 7
+                txtNCTSVZAdr.Visible = True
+                lblNCTSVZAdr.Visible = True
+                txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
+                lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
             Case 26, 28
                 txtNCTSVZAdr.Visible = True
                 lblNCTSVZAdr.Visible = True