48 lines
2.5 KiB
VB.net
48 lines
2.5 KiB
VB.net
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
|