neu

2019-10-31 09:22:40 +01:00
parent 6ae299259e
commit 12f63bb4bc
41 changed files with 1078 additions and 278 deletions
--- a/Gemeinsames/subRptSendungenZollpruefung.vb
+++ b/Gemeinsames/subRptSendungenZollpruefung.vb
@@ -0,0 +1,47 @@
+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<EFBFBD>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