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/subrptTransportauftragLadestelle.vb
+++ b/UID/Reports/TransportAuftrag/subrptTransportauftragLadestelle.vb
@@ -0,0 +1,85 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTransportauftragLadestelle
+    'Property auftraglist As New List(Of cDispoAuftraege)
+    Property Printauftrag As cDispoAuftraege = Nothing
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        ''//LADESTELLE
+        txtLadestelle.Text = Printauftrag.atr_ladest_firma & vbCrLf &
+                Printauftrag.atr_ladest_str & " " & Printauftrag.atr_ladest_strnr & vbCrLf &
+                Printauftrag.atr_ladest_land & " " & Printauftrag.atr_ladest_plz & " " & Printauftrag.atr_ladest_ort
+
+        If Printauftrag.atr_ladest_termin = "1" Then
+            txtLadeSttermin.Text = "Termin " & Printauftrag.atr_ladest_terminDat & vbCrLf & "von " & Printauftrag.atr_ladest_terminVon & " bis " & Printauftrag.atr_ladest_terminBis
+        Else
+            txtLadeSttermin.Text = "" : txtLadeSttermin.BackColor = Color.Transparent
+        End If
+
+        txtLadestAnspr.Text = ""
+        txtLadestAnspr.Text = Printauftrag.atr_ladest_anspr
+        Try
+            If Printauftrag.avisolade(1).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(1).ToString
+            If Printauftrag.avisolade(2).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(2).ToString
+        Catch
+        End Try
+
+
+        txtLadeoeffzeiten.Text = Printauftrag.oezlade
+
+
+        ''//ENTLADESTELLE
+        txtEntLadestelle.Text = Printauftrag.atr_entladest_firma & vbCrLf &
+                Printauftrag.atr_entladest_str & " " & Printauftrag.atr_entladest_strnr & vbCrLf &
+                Printauftrag.atr_entladest_land & " " & Printauftrag.atr_entladest_plz & " " & Printauftrag.atr_entladest_ort
+
+        If Printauftrag.atr_entladest_termin = "1" Then
+            txtEntLadeStTermin.Text = "Termin " & Printauftrag.atr_entladest_terminDat & vbCrLf & "von " & Printauftrag.atr_entladest_terminVon & " bis " & Printauftrag.atr_entladest_terminBis
+        Else
+            txtEntLadeStTermin.Text = "" : txtEntLadeStTermin.BackColor = Color.Transparent
+        End If
+
+        txtEntLadestAnspr.Text = ""
+        Try
+            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "0" Then txtEntLadestAnspr.Text = "Avisieren:" & vbCrLf
+            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "1" Then txtEntLadestAnspr.Text = "Ankunftsaviso:" & vbCrLf
+        Catch ex As Exception
+        End Try
+        txtEntLadestAnspr.Text &= frmAuftragNEU.printAuftrag.atr_entladest_anspr
+        Try
+            If Printauftrag.avisoentlade(1).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(1).ToString 'TELNummer
+            If Printauftrag.avisoentlade(2).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(2).ToString 'EMailAdresse
+        Catch
+        End Try
+
+
+
+        txtEntLadeoeffzeiten.Text = Printauftrag.oezentlade
+
+
+        ''//REFNr.
+        If Printauftrag.atr_ladest_refNr = "" Then
+            txtRefNr.Text = ""
+        Else
+            txtRefNr.Text = "RefNr.: " & Printauftrag.atr_ladest_refNr
+        End If
+
+
+
+
+    End Sub
+
+    Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
+
+        If txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height > txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height Then
+            Line1.Y2 = txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height
+        Else
+            Line1.Y2 = txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height
+        End If
+        'Line1.Y2 = "20"
+    End Sub
+
+
+End Class