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
        Dim FilialNr = ""
        If Standort = "4807" Or Standort = "VERAG AG" Then
            Picture1.Image = My.Resources.Verag_AG_Logo
            FilialNr = "4807"
            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
            FilialNr = "4819"
            Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo
            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"
        ElseIf Standort = "5701" Or Standort = "AMBAR" Then
            FilialNr = "5701"
            txtVerag.Text = "AMBAR Logistic Services GmbH"
            txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
                        "D 83435 Bad Reichenhall" & vbCrLf &
                        "Tel. +49 8651 99624911 " & vbCrLf &
                        "dispo@ambarlog.com" & vbCrLf &
                        "UID: DE309105428" & vbCrLf


            Picture1.Image = My.Resources.ambar_simple
            TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
        End If

        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
            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