Projektdateien hinzufügen.

2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions
--- a/UID/Reports/TransportAuftrag/rptTransportauftrag.vb
+++ b/UID/Reports/TransportAuftrag/rptTransportauftrag.vb
@@ -0,0 +1,103 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptTransportauftrag
+
+    Property Printauftrag As cDispoAuftraege = Nothing
+    Property printTrip As cTrips = Nothing
+    Property Standort As String = "4819"
+    ' Property CMR As New List(Of cCMRLadeliste)
+    Dim auftraglist As New List(Of cDispoAuftraege)
+    Dim FrachtPostHeader As String = ""
+
+    Private Sub rptTransportauftrag_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If Not printTrip Is Nothing Then
+            For Each ding As DataRow In printTrip.trip_Aufträge.Rows
+                Dim toadd As New cDispoAuftraege
+                toadd.atr_id = ding.Item("atr_id")
+                toadd.LOAD()
+                FrachtPostHeader &= ", " & toadd.atr_frachtpos
+                auftraglist.Add(toadd)
+            Next
+        Else
+            FrachtPostHeader &= ", " & Printauftrag.atr_frachtpos
+            auftraglist.Add(Printauftrag)
+        End If
+
+        '  Me.DataSource = auftraglist
+    End Sub
+
+    ' Public Shared Standort As String = "4819"
+
+    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
+
+        txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
+        txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+        If Standort = "4807" Or Standort = "VERAG AG" Then
+            txtVerag.Text = "VERAG Spedition AG"
+            txtVeragAnschrift.Text = "AT  4975 - Suben 100" & vbCrLf &
+                        "Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
+                        "Fax +43 77 11 / 27 88" & vbCrLf &
+                        "dispo@verag.ag" & vbCrLf &
+                     vbCrLf &
+                        "FN:  216714y" & vbCrLf &
+                        "UID : ATU 53187000"
+        ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
+            txtVerag.Text = "VERAG Spedition GmbH"
+            txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
+                        "D 94152 Neuhaus am Inn" & vbCrLf &
+                        "Tel. +49 8503 / 923675" & vbCrLf &
+                        "dispo-de@verag.ag" & vbCrLf &
+                        "UID: DE813570890" & vbCrLf &
+                     vbCrLf &
+                        "Abrechnungspartner: " & vbCrLf &
+                        "VERAG Spedition AG in" & vbCrLf &
+                        "A-4975 Suben, Nr. 100"
+        End If
+
+        txtFrachtposition.Text = 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
+            txtAnFirmaOrt.Text = auftraglist(0).atr_frachtfAb_land & " " & auftraglist(0).atr_frachtfAb_plz & " " & auftraglist(0).atr_frachtfAb_ort
+            txtAnAnsprechperson.Text = auftraglist(0).atr_frachtfAb_anspr
+            txtKennzeichen.Text = auftraglist(0).atr_frachtfAb_lkwKz
+            txtLKWArt.Text = auftraglist(0).atr_frachtfAb_lkwArt
+        ElseIf auftraglist(0).atr_TransportauftragArt = "VOR" Then
+            txtAnFirma.Text = auftraglist(0).atr_frachtf_firma
+            txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtf_str & " " & auftraglist(0).atr_frachtf_strnr
+            txtAnFirmaOrt.Text = auftraglist(0).atr_frachtf_land & " " & auftraglist(0).atr_frachtf_plz & " " & auftraglist(0).atr_frachtf_ort
+            txtAnAnsprechperson.Text = auftraglist(0).atr_frachtf_anspr
+            txtKennzeichen.Text = auftraglist(0).atr_lkwKz
+            txtLKWArt.Text = auftraglist(0).atr_lkwArt
+        End If
+
+    End Sub
+
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        Dim subdet As New subrptTrip
+        subdet.auftraglist = auftraglist
+        'subdet.CMR = CMR
+
+        Me.SubDetail.Report = subdet
+
+        'For i = 1 To 2
+        '    Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
+        '    subrpt_Ladestelle.Printauftrag = Printauftrag
+        '    Dim subrpt_Ladung As New subrptTransportauftragLadung
+        '    subrpt_Ladung.CMR = CMR
+        '    Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
+        '    Me.subrptTransportauftragLadung.Report = subrpt_Ladung
+
+        '    txtBemerkung.Text = Printauftrag.atr_bemerkung
+        '    txtVerzollungsadresse.Text = Printauftrag.atr_verzollungsadresse
+        '    txtFrachtkosten.Text = Printauftrag.atr_frachtkosten
+        'Next
+    End Sub
+End Class