Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN

Public Class subRptSendungenZollpruefung

    Dim ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing

    Sub New(ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
        If ZOLLANMELDUNG IsNot Nothing Then

            'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
            'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
            txtColliGewichtPreis.Text = ZOLLANMELDUNG.Colli & "     " & ZOLLANMELDUNG.Gewicht & "     " & ZOLLANMELDUNG.Rechnungspreis
            txtAbgabenKto.Text &= ZOLLANMELDUNG.AbgabenKonto
            txtRg.Text &= ZOLLANMELDUNG.Handelsrechnung
            txtPraefAufRef.Text = ZOLLANMELDUNG.PräferenzAufRechnung
            txtATREUR1.Text &= ZOLLANMELDUNG.Praeferenznachweis
            txtWarenbezeichung.Text = ZOLLANMELDUNG.Warenbezeichung
            txtVerBestLandZst.Text = ZOLLANMELDUNG.VerBestLandZst
            txtAbsender.Text = ZOLLANMELDUNG.Absender
            txtEmpfaenger.Text = ZOLLANMELDUNG.Empfaenger
            txtAnmelder.Text = ZOLLANMELDUNG.Anmelder
            txtVertreter.Text = ZOLLANMELDUNG.Vertreter
            txtATCMRN.Text = ZOLLANMELDUNG.ATCMRN
            If ZOLLANMELDUNG.ATCMRN <> "" Then
                barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(ZOLLANMELDUNG.ATCMRN, 1, True, 20)
            End If
            txtSB.Text = ZOLLANMELDUNG.Sachbearbeiter

        End If
    End Sub

    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
        'If ABF_ART <= 0 Then Exit Sub
        'If AbfKostKdnr <= 0 Then Exit Sub
        'Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
    End Sub
End Class