Transportauftrag und Zeiterfassung in Dispo implementiert.

UID/Reports/TransportAuftrag/rptTransportauftrag.vb

@@ -33,8 +33,9 @@ Public Class rptTransportauftrag
 
         txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
         txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
-
+        Dim FilialNr = ""
         If Standort = "4807" Or Standort = "VERAG AG" Then
+            FilialNr = "4807"
             txtVerag.Text = "VERAG Spedition AG"
             txtVeragAnschrift.Text = "AT  4975 - Suben 100" & vbCrLf &
                         "Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
@@ -44,6 +45,7 @@ Public Class rptTransportauftrag
                         "FN:  216714y" & vbCrLf &
                         "UID : ATU 53187000"
         ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
+            FilialNr = "4819"
             txtVerag.Text = "VERAG Spedition GmbH"
             txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
                         "D 94152 Neuhaus am Inn" & vbCrLf &
@@ -56,7 +58,7 @@ Public Class rptTransportauftrag
                         "A-4975 Suben, Nr. 100"
         End If
 
-        txtFrachtposition.Text = FrachtPostHeader.Substring(1)
+        txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
         If auftraglist(0).atr_TransportauftragArt = "NACH" Then
             txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
             txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr