neu
This commit is contained in:
@@ -30,6 +30,7 @@ Partial Public Class rptLaufzettelZollDE
|
||||
Me.txtEmpfänger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
|
||||
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
|
||||
Me.txtPos = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
|
||||
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
|
||||
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
@@ -75,7 +76,6 @@ Partial Public Class rptLaufzettelZollDE
|
||||
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
|
||||
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.txtPos = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -83,6 +83,7 @@ Partial Public Class rptLaufzettelZollDE
|
||||
CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -117,7 +118,6 @@ Partial Public Class rptLaufzettelZollDE
|
||||
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
@@ -251,6 +251,17 @@ Partial Public Class rptLaufzettelZollDE
|
||||
Me.SubReport.Top = 0.1834646!
|
||||
Me.SubReport.Width = 5.27559!
|
||||
'
|
||||
'txtPos
|
||||
'
|
||||
Me.txtPos.Height = 0.3854331!
|
||||
Me.txtPos.Left = 6.972441!
|
||||
Me.txtPos.Name = "txtPos"
|
||||
Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" &
|
||||
" white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap"
|
||||
Me.txtPos.Text = Nothing
|
||||
Me.txtPos.Top = 0.1877953!
|
||||
Me.txtPos.Width = 0.5299215!
|
||||
'
|
||||
'PageFooter
|
||||
'
|
||||
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
|
||||
@@ -729,17 +740,6 @@ Partial Public Class rptLaufzettelZollDE
|
||||
Me.Line1.Y1 = 0.02362205!
|
||||
Me.Line1.Y2 = 0.02370409!
|
||||
'
|
||||
'txtPos
|
||||
'
|
||||
Me.txtPos.CanGrow = False
|
||||
Me.txtPos.Height = 0.3858268!
|
||||
Me.txtPos.Left = 6.972441!
|
||||
Me.txtPos.Name = "txtPos"
|
||||
Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" &
|
||||
" white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap"
|
||||
Me.txtPos.Top = 0.1874016!
|
||||
Me.txtPos.Width = 0.5299217!
|
||||
'
|
||||
'rptLaufzettelZollDE
|
||||
'
|
||||
Me.MasterReport = False
|
||||
@@ -768,6 +768,7 @@ Partial Public Class rptLaufzettelZollDE
|
||||
CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -802,7 +803,6 @@ Partial Public Class rptLaufzettelZollDE
|
||||
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -329,7 +329,7 @@
|
||||
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
|
||||
' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
|
||||
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
|
||||
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
|
||||
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
|
||||
|
||||
@@ -1664,6 +1664,49 @@ Public Class FormularManagerNEU
|
||||
End Try
|
||||
Return tmpPath
|
||||
End Function
|
||||
|
||||
Shared Function printMRN(MRN) As Boolean
|
||||
Try
|
||||
If MRN.Length > 30 Or MRN.Length < 5 Then
|
||||
MsgBox("Falsches Format")
|
||||
Else
|
||||
Dim rptMRNDruck As New rptMRNDruck
|
||||
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(MRN, 1, True, 20)
|
||||
rptMRNDruck.picMRN.Image = barcodeATA
|
||||
rptMRNDruck.lblMRN.Text = "MRN: " & MRN
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
rptMRNDruck.Label8.Text = "IMEX Customs Service GmbH"
|
||||
Case "UNISPED"
|
||||
rptMRNDruck.Label8.Text = "UNISPED Speditions GmbH"
|
||||
Case "ATILLA"
|
||||
rptMRNDruck.Label8.Text = "ATILLA Spedition GmbH"
|
||||
Case "FRONTOFFICE"
|
||||
rptMRNDruck.Label8.Text = "FRONT-OFFICE Suben eG"
|
||||
Case "AMBAR"
|
||||
rptMRNDruck.Label8.Text = "AMBAR"
|
||||
Case Else
|
||||
rptMRNDruck.Label8.Text = "VERAG Spedition AG"
|
||||
End Select
|
||||
rptMRNDruck.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
|
||||
rptMRNDruck.Run(False)
|
||||
|
||||
rptMRNDruck.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
|
||||
rptMRNDruck.Document.Printer.OriginAtMargins = False
|
||||
rptMRNDruck.Document.Print(True, False)
|
||||
rptMRNDruck.Dispose()
|
||||
Return True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||||
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
|
||||
If AVISO Is Nothing Then Return ""
|
||||
@@ -1787,6 +1830,7 @@ Public Class FormularManagerNEU
|
||||
'End Try
|
||||
|
||||
rpt.SubReport1.Visible = False
|
||||
|
||||
If Vorpapier = "" Then
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
If AVISO.VORPAPIERE.Count > 0 Then ' prüfen, ob AT-Zoll ohne Ü-T1 --> dann kein Eintrag!
|
||||
@@ -1821,7 +1865,13 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
|
||||
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "")
|
||||
If If(SND.tblSnd_Vorpapier, "") = Vorpapier Then
|
||||
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "").ToString.Trim
|
||||
ElseIf If(SND.tblSnd_Vorpapier2, "") = Vorpapier Then
|
||||
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier2_Pos, "").ToString.Trim
|
||||
ElseIf If(SND.tblSnd_Vorpapier3, "") = Vorpapier Then
|
||||
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim
|
||||
End If
|
||||
|
||||
If SND.tblSnd_Fremdspedition Then
|
||||
rpt.txtAbfertigungsart.Text = "FREMD"
|
||||
@@ -2008,6 +2058,296 @@ Public Class FormularManagerNEU
|
||||
Return tmpPath
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function Sammelakt_CheckIn(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
|
||||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim tmpPath = ""
|
||||
Try
|
||||
Dim rpt As New rptLaufzettelZollDE
|
||||
gesColli = 0
|
||||
gesGewicht = 0
|
||||
|
||||
rpt.txtLKW.Text = AVISO.LKW_Nr
|
||||
rpt.txtLKWId.Text = AVISO.AvisoID
|
||||
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
Else
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
|
||||
Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
|
||||
Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
|
||||
Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
|
||||
Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
|
||||
End Select
|
||||
End If
|
||||
|
||||
rpt.txtDatum.Text = Now.ToShortDateString
|
||||
rpt.txtSB.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
|
||||
Dim ort = "Suben"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
Case "UNISPED"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirma_UNISPED.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.Unisped_logo
|
||||
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
|
||||
Case "ATILLA"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.Atilla
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
|
||||
Case "FRONTOFFICE"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmeninfo_rontoffice.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "SBG" : ort = "Bad Reichenhall"
|
||||
Case "WAI" : ort = "Waidhaus"
|
||||
Case "NKD" : ort = "Nickelsdorf"
|
||||
Case "NEU" : ort = "Neuhaus am Inn"
|
||||
End Select
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||||
End Select
|
||||
|
||||
|
||||
rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
|
||||
rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email
|
||||
|
||||
|
||||
|
||||
'Dim tb As New DataTable
|
||||
'tb.Columns.Add("Nr", GetType(Integer))
|
||||
'Dim cnt = 1
|
||||
|
||||
|
||||
|
||||
'For Each s In SENDUNGEN
|
||||
' tb.Rows.Add(SENDUNGEN.IndexOf(s))
|
||||
' cnt += 1
|
||||
'Next
|
||||
|
||||
|
||||
|
||||
' rpt.DataSource = tb
|
||||
Dim fiskal_bool = False
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
'Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
|
||||
|
||||
'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
'ZOLLANMELDUNG.getDataByBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen
|
||||
|
||||
|
||||
|
||||
'rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
|
||||
'If If(SND.tblSnd_Vorpapier, "") = Vorpapier Then
|
||||
' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "").ToString.Trim
|
||||
'ElseIf If(SND.tblSnd_Vorpapier2, "") = Vorpapier Then
|
||||
' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier2_Pos, "").ToString.Trim
|
||||
'ElseIf If(SND.tblSnd_Vorpapier3, "") = Vorpapier Then
|
||||
' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim
|
||||
'End If
|
||||
|
||||
'If SND.tblSnd_Fremdspedition Then
|
||||
' rpt.txtAbfertigungsart.Text = "FREMD"
|
||||
' rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
|
||||
'Else
|
||||
' rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
|
||||
' rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
|
||||
|
||||
' If SND.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
' Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
' Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung"
|
||||
' Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr."
|
||||
' Case 26, 28
|
||||
' rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
|
||||
' fiskal_bool = True
|
||||
' Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
|
||||
' End Select
|
||||
' Else
|
||||
' rpt.txtAbfertigungsart.Text = "-"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
|
||||
'End Select
|
||||
|
||||
'rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
|
||||
'' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
|
||||
'rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
|
||||
'rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim
|
||||
|
||||
'Dim NCTS_VZAdr = ""
|
||||
'NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
|
||||
'NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
|
||||
'NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
|
||||
'NCTS_VZAdr &= vbNewLine
|
||||
'If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " "
|
||||
'' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")
|
||||
|
||||
|
||||
'rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
|
||||
|
||||
'Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
|
||||
'Dim ATAMRN = ""
|
||||
'SND.LOAD_HANDLING()
|
||||
|
||||
'If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then
|
||||
' If SND.HANDLING.Count > 0 Then
|
||||
' ATAMRN_List = SND.HANDLING
|
||||
|
||||
' ' Else
|
||||
' ' ATAMRN = SND.tblSnd_ATANr
|
||||
' ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
|
||||
' ' End If
|
||||
' 'Else
|
||||
' ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
' ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
|
||||
' ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, "")))
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'If ATAMRN_List.Count = 0 Then 'kein Handling
|
||||
' 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
' 'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
|
||||
|
||||
' 'Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
|
||||
' 'Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
|
||||
' 'ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
|
||||
|
||||
|
||||
|
||||
' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef)
|
||||
|
||||
' Dim Colli As Double = 0
|
||||
' Dim Gewicht As Double = 0
|
||||
' If ZOLLANMELDUNG.num_Colli > 0 Then
|
||||
' Colli = ZOLLANMELDUNG.num_Colli
|
||||
' Else
|
||||
' Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
|
||||
' End If
|
||||
|
||||
' If ZOLLANMELDUNG.num_Gewicht > 0 Then
|
||||
' Gewicht = CDbl(ZOLLANMELDUNG.num_Gewicht)
|
||||
' Else
|
||||
' Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
|
||||
' End If
|
||||
|
||||
' ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
|
||||
'End If
|
||||
|
||||
'If isATZollWithoutUeT(SND, ZOLLANMELDUNG) Then ' prüfen, ob AT-Zoll ohne Ü-T1 --> dann kein Eintrag!
|
||||
' ' rpt.Detail.Visible = False
|
||||
' Dim SubRpt As New subRptLaufzettelZollDE_ATZOLL
|
||||
' rpt.SubReport.Report = SubRpt
|
||||
'Else
|
||||
|
||||
' rpt.Detail.Visible = True
|
||||
' For Each a In ATAMRN_List
|
||||
' gesColli += a.sndhdg_colli
|
||||
' gesGewicht += a.sndhdg_gewicht
|
||||
' Next
|
||||
' Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier, SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung)
|
||||
' rpt.SubReport.Report = SubRpt
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
'rpt.txtAnmerkung.Visible = False
|
||||
|
||||
''If ATAMRN_List.Count = 0 Then
|
||||
|
||||
'' rpt.txtAnmerkung.Text = ""
|
||||
'' Dim colliGewicht = ""
|
||||
'' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
|
||||
'' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
|
||||
'' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
|
||||
'' rpt.txtAnmerkung.Visible = True
|
||||
''Else
|
||||
'' rpt.txtAnmerkung.Visible = False
|
||||
''End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
Try
|
||||
rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
|
||||
rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
AddHandler rpt.Detail.BeforePrint, Sub()
|
||||
rpt.Shape8.Height = rpt.Detail.Height
|
||||
rpt.Shape10.Height = rpt.Detail.Height
|
||||
rpt.Shape11.Height = rpt.Detail.Height
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
If printReportElsePDF Then 'NUR DRUCK!!
|
||||
rpt.Run(False)
|
||||
|
||||
rpt.Document.Printer.PrinterName = printername
|
||||
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
|
||||
rpt.Document.Printer.OriginAtMargins = False
|
||||
|
||||
rpt.Document.Print((printername = ""), False)
|
||||
rpt.Dispose()
|
||||
Else
|
||||
|
||||
|
||||
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sammelakt_CheckIn.pdf", ".pdf", , False)
|
||||
|
||||
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
|
||||
p.NeverEmbedFonts = ""
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
|
||||
rpt.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return tmpPath
|
||||
End Function
|
||||
|
||||
Shared Function isATZollWithoutUeT(SND As VERAG_PROG_ALLGEMEIN.cSendungen, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung) As Boolean
|
||||
If SND IsNot Nothing And ZOLLANMELDUNG IsNot Nothing Then
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
@@ -2513,6 +2853,39 @@ Public Class FormularManagerNEU
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function EORI_PRUEFUNG(ErgebnisTXT, firma, sessionID, txtEORI, Optional AvisoId = -1, Optional SendungsId = -1) As String
|
||||
Try
|
||||
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
|
||||
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "EORI_Prufung", listTowrite)
|
||||
|
||||
Return PdfTmp
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String
|
||||
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Reference in New Issue
Block a user