86 lines
3.7 KiB
VB.net
86 lines
3.7 KiB
VB.net
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
|