edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb generated
View File

@@ -218,8 +218,8 @@ Partial Public Class rptDispoHaftListe
Me.txtAnmerkung.Height = 0.1669291!
Me.txtAnmerkung.Left = 1.588977!
Me.txtAnmerkung.Name = "txtAnmerkung"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: normal; text-align: left; vertic" &
"al-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Text = Nothing
Me.txtAnmerkung.Top = 0.1874016!
Me.txtAnmerkung.Width = 3.561024!

22
SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb generated
View File

@@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -109,6 +110,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -203,7 +205,7 @@ Partial Public Class rptLaufzettelZollDE
'
'txtPosNr
'
Me.txtPosNr.Height = 0.1669292!
Me.txtPosNr.Height = 0.3858268!
Me.txtPosNr.Left = 0.6149607!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
@@ -296,7 +298,7 @@ Partial Public Class rptLaufzettelZollDE
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -649,6 +651,18 @@ Partial Public Class rptLaufzettelZollDE
Me.txtDW.Top = 1.210236!
Me.txtDW.Width = 2.468111!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775603!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3})
@@ -663,7 +677,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox3.Left = 0.4314961!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessane Frist von mehr als 8 Ta" &
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" &
"gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!"
Me.TextBox3.Top = 0.08700788!
Me.TextBox3.Width = 7.18504!
@@ -727,6 +741,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
@@ -783,4 +798,5 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

20
SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb generated
View File

@@ -51,6 +51,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeVerpfl = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Shape16 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape9 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -98,6 +99,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -253,7 +255,7 @@ Partial Public Class rptVerpflichtungserklaerung
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 5.05!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -471,6 +473,18 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox7.Top = 3.827!
Me.TextBox7.Width = 6.99291!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775591!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape16, Me.Shape9, Me.TextBox10, Me.Shape10, Me.TextBox11, Me.Shape11, Me.TextBox12, Me.Shape12, Me.TextBox13, Me.Shape13, Me.TextBox14, Me.Shape14, Me.TextBox15, Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.Shape15, Me.TextBox18, Me.txtFraechter, Me.txtLKWKennz, Me.txtFahrername, Me.txtPassnummer, Me.txtWohnort, Me.txtMobilTel, Me.txtAvisoId, Me.txtDatumOrt})
@@ -668,7 +682,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox18.Left = 0.4456677!
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox18.Text = "VERAG LKW-Id:"
Me.TextBox18.Text = "LKW-Id:"
Me.TextBox18.Top = 3.384251!
Me.TextBox18.Width = 7.034646!
'
@@ -793,6 +807,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
@@ -873,4 +888,5 @@ Partial Public Class rptVerpflichtungserklaerung
Private WithEvents Shape6 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

46
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb generated
View File

@@ -20,22 +20,24 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
@@ -75,16 +77,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.txtColli.Top = 0.05196851!
Me.txtColli.Width = 0.4437006!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.Height = 0.1669292!
@@ -116,6 +108,28 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.TextBox3.Top = 0.05196851!
Me.TextBox3.Width = 0.406693!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition"
Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.lblSieheFremdspedition.Text = "siehe Fremdspedition"
Me.lblSieheFremdspedition.Top = 0.2188977!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'subRptLaufzettelZollDE_ATA
'
Me.MasterReport = False
@@ -137,6 +151,7 @@ Partial Public Class subRptLaufzettelZollDE_ATA
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -145,7 +160,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Private WithEvents picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

53
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb
View File

@@ -4,42 +4,53 @@ Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATA
Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
Dim Fremdspedition As Boolean
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
picBarcodeATAMRN.Visible = False
txtATAMRN.Text = ""
If Fremdspedition Then
lblSieheFremdspedition.Visible = True
TextBox3.Visible = False
TextBox1.Visible = False
txtColli.Visible = False
txtGewicht.Visible = False
End If
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = Me.Fields.Item("Colli").Value & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = Me.Fields.Item("Gewicht").Value & " kg"
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb
View File

@@ -22,9 +22,7 @@
End Sub
Private Sub Label38_Click(sender As Object, e As EventArgs) Handles Label38.Click, Label2.Click, Label1.Click
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)

49
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb generated
View File

@@ -47,6 +47,9 @@ Partial Class frmFormulare
Me.btnPrint = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.pnlBottom.SuspendLayout()
@@ -210,6 +213,9 @@ Partial Class frmFormulare
'pnlBottom
'
Me.pnlBottom.BackColor = System.Drawing.Color.White
Me.pnlBottom.Controls.Add(Me.Label8)
Me.pnlBottom.Controls.Add(Me.txtEmail)
Me.pnlBottom.Controls.Add(Me.Label7)
Me.pnlBottom.Controls.Add(Me.Label6)
Me.pnlBottom.Controls.Add(Me.cboTextKonserveSprache)
Me.pnlBottom.Controls.Add(Me.Label5)
@@ -344,6 +350,46 @@ Partial Class frmFormulare
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(943, 7)
Me.txtEmail.MaxLength = 200
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(191, 20)
Me.txtEmail.TabIndex = 30
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(889, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 29
Me.Label7.Text = "E-Mail:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(889, 31)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(48, 13)
Me.Label8.TabIndex = 31
Me.Label8.Text = "Drucker:"
'
'frmFormulare
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -388,4 +434,7 @@ Partial Class frmFormulare
Friend WithEvents cboTextKonserveSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents cboTextkonserve As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
End Class

266
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -714,6 +714,9 @@ Public Class frmFormulare
End If
Next
Next
If name = "txtEmail" Then
Me.txtEmail.Text = value
End If
End Sub
Sub KDNR_CHANGED(kdnr)
@@ -936,7 +939,7 @@ Public Class frmFormulare
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
'End If
@@ -1506,6 +1509,7 @@ Public Class FormularManagerNEU
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 &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
If anmerkung <> "" Then
rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
rpt.txtAnmerkung.Text = Regex.Replace(rpt.txtAnmerkung.Text, "\r\n$", String.Empty)
@@ -1543,10 +1547,12 @@ Public Class FormularManagerNEU
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 SND.tblSnd_NCTSaufDISPO Then
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
End If
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, "")
@@ -1638,14 +1644,11 @@ Public Class FormularManagerNEU
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = ""
Try
Dim rpt As New rptLaufzettelZollDE
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
@@ -1679,6 +1682,15 @@ Public Class FormularManagerNEU
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"
@@ -1725,141 +1737,142 @@ Public Class FormularManagerNEU
'MsgBox(tb.Rows.Count)
rpt.DataSource = tb
Dim fiskal_bool = False
Dim fiskal_bool = False
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
If SND.tblSnd_Fremdspedition Then
rpt.txtAbfertigungsart.Text = "FREMD"
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
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.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
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
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
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
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, "")
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
rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim
Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim ATAMRN = ""
SND.LOAD_HANDLING()
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
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
' 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
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
If ATAMRN_List.Count = 0 Then
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))
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))
End If
ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
End If
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List)
rpt.SubReport.Report = SubRpt
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition)
rpt.SubReport.Report = SubRpt
rpt.txtAnmerkung.Visible = False
rpt.txtAnmerkung.Visible = False
'If ATAMRN_List.Count = 0 Then
'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
' 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
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
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)
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.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
rpt.Document.Print((printername = ""), False)
rpt.Dispose()
Else
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
rpt.Dispose()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return tmpPath
End Function
@@ -2076,6 +2089,10 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
rpt.picVERAG.Image = My.Resources.Atilla
Case "FRONTOFFICE"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmeninfo_rontoffice.Visible = True
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SBG" : ort = "Bad Reichenhall"
@@ -2574,6 +2591,10 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
If usrCntl.cbxLKWWartet.Checked Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
End If
@@ -2584,21 +2605,45 @@ Public Class FormularManagerNEU
'End If
End If
Dim destPath = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Case "IMEX", "UNISPED"
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Case Else
Select Case usrCntl.cboFirma._value
Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
Case "CS" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
End Select
End Select
Try
If destPath <> "" Then
If usrCntl.SENDUNG IsNot Nothing AndAlso usrCntl.AVISO IsNot Nothing Then
If vbYes = MsgBox("Soll das Vorauskasse-PDF zu den Sendungs-Anhängen hinzugefügt werden?", vbYesNo) Then
saveToDS(usrCntl.AVISO.AvisoID, "Vorauskasse.pdf", destPath, "Vorauskasse", "PDF", ,, , usrCntl.SENDUNG.tblSnd_SendungID)
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
Return destPath
End Function
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id
destPath = DS.GET_TOP1_PATH
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
anhId = ANH.anh_id
Return True
End Function
@@ -3577,10 +3622,19 @@ Public Class FormularManagerNEU
Public Shared Function getUO2() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2(FilialenNr As String) As String
If FilialenNr = "" Then Return getUO2()
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(FilialenNr)
Case Else : Return ""
End Select
End Function
Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
Try
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(usrCntl.KdNR, Now)