3345 lines
193 KiB
VB.net
3345 lines
193 KiB
VB.net
Imports iTextSharp.text.pdf
|
||
Imports System.IO
|
||
Imports System.Drawing.Printing
|
||
Imports System.Runtime.InteropServices
|
||
Imports System.Runtime.Serialization
|
||
Imports Microsoft.Office.Interop
|
||
Imports System.Text
|
||
Imports System.Net
|
||
Imports GrapeCity.ActiveReports
|
||
Imports Microsoft.VisualBasic.ApplicationServices
|
||
Imports System.Net.Mail
|
||
Imports System.Reflection
|
||
Imports System.Text.RegularExpressions
|
||
|
||
Public Class frmFormulare
|
||
Dim isSingleForm = False
|
||
Event ShownFIN()
|
||
Dim KdNr As Integer = 0
|
||
|
||
Sub New()
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
|
||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||
|
||
End Sub
|
||
|
||
Sub New(KDNR As Integer)
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
Me.KdNr = KDNR
|
||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||
|
||
End Sub
|
||
|
||
Sub New(PDFArt As String)
|
||
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
Me.KdNr = -1
|
||
Me.isSingleForm = isSingleForm
|
||
AddHandler Me.Shown, Sub()
|
||
addForm(PDFArt, Nothing)
|
||
RaiseEvent ShownFIN()
|
||
End Sub
|
||
|
||
End Sub
|
||
|
||
Sub New(PDFArt As String, KdNr As Integer, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
Me.KdNr = KdNr
|
||
Me.isSingleForm = isSingleForm
|
||
AddHandler Me.Shown, Sub()
|
||
addForm(PDFArt, param)
|
||
RaiseEvent ShownFIN()
|
||
End Sub
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyFlowLayoutPanel1.DragDrop
|
||
If e.Data.GetDataPresent(DataFormats.FileDrop, False) Then
|
||
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
||
For Each path In files
|
||
If path.EndsWith(".pdf") Then
|
||
addForm("Sonst_PDF", {path})
|
||
Else
|
||
MsgBox("Es können nur PDF Dateien angefügt werden: " & vbNewLine & vbNewLine & path)
|
||
End If
|
||
Next
|
||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
|
||
Dim HandleFileDrops = ""
|
||
|
||
Try
|
||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||
' We have a file so lets pass it to the calling form
|
||
Dim Filename As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
|
||
HandleFileDrops = Filename(0)
|
||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
|
||
' We have a embedded file. First lets try to get the file name out of memory
|
||
Dim theStream As Stream = CType(e.Data.GetData("FileGroupDescriptor"), Stream)
|
||
Dim fileGroupDescriptor(512) As Byte
|
||
theStream.Read(fileGroupDescriptor, 0, 512)
|
||
Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
|
||
Dim i As Integer = 76
|
||
While Not (fileGroupDescriptor(i) = 0)
|
||
fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
|
||
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
|
||
End While
|
||
theStream.Close()
|
||
' We should have the file name or if its a email the subject line. Create our temp file based on the temp path and this info
|
||
Dim myTempFile As String = Path.GetTempPath & fileName.ToString
|
||
' Look to see if this is a email message. If so save that temporarily and get the temp file.
|
||
If InStr(myTempFile, ".msg") > 0 Then
|
||
Dim objOL As New Microsoft.Office.Interop.Outlook.Application
|
||
Dim objMI As Microsoft.Office.Interop.Outlook.MailItem
|
||
If objOL.ActiveExplorer.Selection.Count > 1 Then
|
||
MsgBox("Es können nur einzelne Elemente angefügt werden!", "")
|
||
End If
|
||
For Each objMI In objOL.ActiveExplorer.Selection()
|
||
objMI.SaveAs(myTempFile)
|
||
Exit For
|
||
Next
|
||
objOL = Nothing
|
||
objMI = Nothing
|
||
Else
|
||
' If its a attachment we need to pull the file itself out of memory
|
||
Dim ms As MemoryStream = CType(e.Data.GetData("FileContents", True), MemoryStream)
|
||
Dim FileBytes(CInt(ms.Length)) As Byte
|
||
' read the raw data into our variable
|
||
ms.Position = 0
|
||
ms.Read(FileBytes, 0, CInt(ms.Length))
|
||
ms.Close()
|
||
' save the raw data into our temp file
|
||
Dim fs As FileStream = New FileStream(myTempFile, FileMode.OpenOrCreate, FileAccess.Write)
|
||
fs.Write(FileBytes, 0, FileBytes.Length)
|
||
fs.Close()
|
||
End If
|
||
' Make sure we have a actual file and also if we do make sure we erase it when done
|
||
If File.Exists(myTempFile) Then
|
||
' Assign the file name to the add dialog
|
||
HandleFileDrops = myTempFile
|
||
' Call AddTempFileToArray(myTempFile)
|
||
Else
|
||
HandleFileDrops = String.Empty
|
||
End If
|
||
Else
|
||
Throw New System.Exception("An exception has occurred.")
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
HandleFileDrops = String.Empty
|
||
End Try
|
||
If HandleFileDrops.EndsWith(".pdf") Then
|
||
addForm("Sonst_PDF", {HandleFileDrops})
|
||
Else
|
||
MsgBox("Es können nur PDF Dateien angefügt werden: " & vbNewLine & vbNewLine & HandleFileDrops)
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyFlowLayoutPanel1.DragEnter
|
||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||
e.Effect = DragDropEffects.Copy
|
||
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
|
||
e.Effect = DragDropEffects.Copy
|
||
Else
|
||
End If
|
||
End Sub
|
||
|
||
Private Shared Function GetIP() As String
|
||
Dim thisIp As IPAddress = Nothing
|
||
|
||
Dim strHostName As String = Dns.GetHostName()
|
||
Dim iphostentry As IPHostEntry = Dns.GetHostEntry(strHostName)
|
||
' Find host name
|
||
For Each ipAddress As IPAddress In iphostentry.AddressList
|
||
' Grab the first IP addresses
|
||
If ipAddress.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
|
||
thisIp = ipAddress
|
||
End If
|
||
Next
|
||
|
||
Return thisIp.ToString
|
||
End Function
|
||
|
||
Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
|
||
'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0)
|
||
Try
|
||
|
||
' If GetIP() = "192.168.0.96" And Not isSingleForm Then
|
||
' btnPrint.Visible = False
|
||
' End If
|
||
|
||
Catch ex As Exception
|
||
|
||
End Try
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
|
||
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
|
||
|
||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||
|
||
|
||
|
||
|
||
cboVorlage.Items.Clear()
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
|
||
|
||
Case "ATILLA"
|
||
Case Else
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
|
||
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
|
||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||
|
||
|
||
|
||
|
||
cboVorlage.Items.Clear()
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
|
||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
|
||
|
||
End Select
|
||
|
||
|
||
|
||
'MyListBox1.fillWithMyListItem()
|
||
|
||
|
||
|
||
|
||
initDrucker(cboPrinter)
|
||
|
||
If isSingleForm Then
|
||
pnl.Enabled = False
|
||
End If
|
||
End Sub
|
||
|
||
Sub initFlowLPHeight()
|
||
Dim h = 0
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
h += c.Height + c.Margin.Top + c.Margin.Bottom
|
||
Next
|
||
MyFlowLayoutPanel1.MinimumSize = New Size(1000, If(h < pnlBody.Height, pnlBody.Height - 5, h))
|
||
pnlBody.AutoScrollMinSize = New Size(1000, If(h < pnlBody.Height, pnlBody.Height - 5, h))
|
||
|
||
|
||
For Each c In MyFlowLayoutPanel1.Controls
|
||
c.width = pnlBody.Width - c.Margin.left + c.Margin.right - If(pnlBody.VerticalScroll.Visible, 20, 0) - 10
|
||
Next
|
||
|
||
End Sub
|
||
Public Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick, MyListBox2.DoubleClick
|
||
Dim lb = DirectCast(sender, VERAG_PROG_ALLGEMEIN.MyListBox)
|
||
If lb.SelectedItems().Count = 0 Then Exit Sub
|
||
Try
|
||
addForm(DirectCast(lb.SelectedItems(0), VERAG_PROG_ALLGEMEIN.MyListItem).Value)
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
End Try
|
||
End Sub
|
||
|
||
|
||
Public Sub addForm(valueTMP As String, Optional param() As Object = Nothing)
|
||
Try
|
||
Select Case valueTMP
|
||
Case FormularManagerArten.DE_Vollmacht
|
||
Dim c As New usrcntlVollmacht_DE
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.DE_Fiskal
|
||
Dim c As New usrcntlVollmacht_DE_Fiskal
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.AT_Vollmacht
|
||
Dim c As New usrcntlVollmacht_AT
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.AT_Vollmacht_EV
|
||
Dim c As New usrcntlVollmacht_AT_EV
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.AT_Fiskal
|
||
Dim c As New usrcntlVollmacht_AT_Fiskal
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.ATILLA_EXPORT
|
||
Dim c As New usrcntlVollmacht_ATILLA_EXPORT
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.VERAG_EXPORT
|
||
Dim c As New usrcntlVollmacht_VERAG_EXPORT
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Importaviso_VK
|
||
Dim c As usrcntlVorauskasse
|
||
If param Is Nothing Then
|
||
c = New usrcntlVorauskasse
|
||
Else
|
||
c = New usrcntlVorauskasse(param)
|
||
|
||
End If
|
||
' Dim c As New usrcntlVorauskasse(param(0))
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Importaviso
|
||
Dim c As usrcntlImportaviso
|
||
If param Is Nothing Then
|
||
c = New usrcntlImportaviso
|
||
Else
|
||
c = New usrcntlImportaviso(param)
|
||
|
||
End If
|
||
' Dim c As New usrcntlVorauskasse(param(0))
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Gestellungsgarantie
|
||
Dim c As New usrcntlGestellungsgarantie
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Verzollungspreise
|
||
Dim c As New usrcntlVerzollungspreise
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
AddHandler c.LOADED, Sub()
|
||
If param IsNot Nothing Then
|
||
c.MyComboBox1.changeItem(param(0))
|
||
c.btnStandardPreiseLaden.PerformClick()
|
||
End If
|
||
End Sub
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Boniteatsauskunft
|
||
Dim c As New usrcntlCreditreformBoniAuskunft
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
AddHandler c.LOADED, Sub()
|
||
If param IsNot Nothing Then c.LoadValues(param(0))
|
||
End Sub
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.DispoListe
|
||
If param Is Nothing Then param = {0}
|
||
Dim c As New usrCntlDispoliste(param(0))
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
AddHandler c.SizeChanged, Sub()
|
||
initFlowLPHeight()
|
||
End Sub
|
||
AddHandler Me.ShownFIN, Sub()
|
||
c.initAVISOID()
|
||
End Sub
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
|
||
|
||
|
||
|
||
Case FormularManagerArten.SA_Gestellung
|
||
If param Is Nothing Then param = {0}
|
||
isSingleForm = True
|
||
btn.Visible = False
|
||
Button2.BackgroundImage = My.Resources.Excel_logo
|
||
Dim c As New usrCntlSA_Gestellung(param(0))
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
AddHandler c.SizeChanged, Sub()
|
||
initFlowLPHeight()
|
||
End Sub
|
||
AddHandler Me.ShownFIN, Sub()
|
||
c.initAVISOID()
|
||
End Sub
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
|
||
Case FormularManagerArten.VerpflichtungserklärungFahrer
|
||
If param Is Nothing Then param = {0}
|
||
Dim c As New usrCntlVerpflichtungserklärungFahrer(param(0))
|
||
If ControlExists_addOK(c.GetType.ToString) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
AddHandler c.SizeChanged, Sub()
|
||
initFlowLPHeight()
|
||
End Sub
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.Sonst_PDF
|
||
If param Is Nothing Then Exit Sub
|
||
Dim c As New usrcntlSonstigesPDF(param(0))
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
Case FormularManagerArten.Verzollungsunterlagen
|
||
' If param Is Nothing Then Exit Sub
|
||
Dim c As New usrcntlVerzollungsunterlagen()
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
Case FormularManagerArten.VerzollungsunterlagenBAR
|
||
' If param Is Nothing Then Exit Sub
|
||
Dim c As New usrcntlVerzollungsunterlagen_BAR()
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
Case FormularManagerArten.AT_InformationsblattFiskalverzollung, FormularManagerArten.DE_InformationsblattFiskalverzollung
|
||
Dim displayName = ""
|
||
' If param Is Nothing Then Exit Sub
|
||
If valueTMP = FormularManagerArten.AT_InformationsblattFiskalverzollung Then displayName = "AT Informationsblatt Fiskalverzollung"
|
||
If valueTMP = FormularManagerArten.DE_InformationsblattFiskalverzollung Then displayName = "DE Informationsblatt Fiskalverzollung"
|
||
Dim c As New usrcntlFiskalInfoschreiben(valueTMP, displayName)
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
Case FormularManagerArten.VUB_AG, FormularManagerArten.VUB_CS, FormularManagerArten.VUB_IMEX
|
||
Dim displayName = ""
|
||
If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
|
||
If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
|
||
If valueTMP = FormularManagerArten.VUB_IMEX Then displayName = "VUB - IMEX Customs Service GmbH"
|
||
Dim c As New usrcntlVUB(valueTMP, displayName)
|
||
If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
Case FormularManagerArten.QS_UeDok
|
||
Dim displayName = ""
|
||
Dim c As New usrcntlQS_UeDok
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
Case FormularManagerArten.Verbundenheit
|
||
Dim displayName = ""
|
||
Dim c As New usrcntlVerbundenheit
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
|
||
|
||
|
||
|
||
Case Else '"VUB_AG", "VUB_CS"
|
||
Dim displayName = ""
|
||
If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
|
||
If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
|
||
Dim c As New usrcntlFormOhneFelder(valueTMP, "SONSTIGE", displayName)
|
||
If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
|
||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||
c.KdNR = KdNr
|
||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||
MyFlowLayoutPanel1.Controls.Add(c)
|
||
End If
|
||
|
||
|
||
|
||
|
||
End Select
|
||
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
End Try
|
||
End Sub
|
||
|
||
Function ControlExists_addOK(t, Optional BEZ = "", Optional ORDNER = "") As Boolean
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
If c.GetType.ToString = t Then
|
||
Return vbYes = MsgBox("Dieses Formular existiert bereits - Möchten Sie es ein weiteres Mal hinzufügen?", vbYesNoCancel)
|
||
End If
|
||
Next
|
||
Return True
|
||
End Function
|
||
Function ControlExists_addOK_OhneFelder(BEZEICHNUNG, ORDNER) As Boolean
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
If c.GetType.ToString = GetType(usrcntlFormOhneFelder).ToString Then
|
||
If DirectCast(c, usrcntlFormOhneFelder).BEZEICHNUNG = BEZEICHNUNG And DirectCast(c, usrcntlFormOhneFelder).DS_ORDNER = ORDNER Then
|
||
Return vbYes = MsgBox("Dieses Formular existiert bereits - Möchten Sie es ein weiteres Mal hinzufügen?", vbYesNoCancel)
|
||
End If
|
||
End If
|
||
Next
|
||
Return True
|
||
End Function
|
||
|
||
Sub ValueChanged(name, value)
|
||
If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
For Each cc As Control In c.Controls
|
||
If cc.Name = name Then
|
||
Select Case cc.GetType().ToString
|
||
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString : DirectCast(cc, VERAG_PROG_ALLGEMEIN.MyTextBox).Text = value
|
||
Case GetType(TextBox).ToString : DirectCast(cc, TextBox).Text = value
|
||
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString : DirectCast(cc, VERAG_PROG_ALLGEMEIN.MyComboBox).changeItem(value)
|
||
End Select
|
||
End If
|
||
Next
|
||
Next
|
||
End Sub
|
||
|
||
Sub KDNR_CHANGED(kdnr)
|
||
If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
If TypeOf c Is FormualrInterface Then
|
||
DirectCast(c, FormualrInterface).ChangeKDNr(kdnr)
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
|
||
|
||
Sub ControlDELETE(CONTROL As Control)
|
||
' If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
|
||
MyFlowLayoutPanel1.Controls.Remove(CONTROL)
|
||
'For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
|
||
'Next
|
||
End Sub
|
||
|
||
Sub ControlMoveDown(CONTROL As Control)
|
||
Dim tmp = Nothing
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
If tmp IsNot Nothing Then
|
||
' MyFlowLayoutPanel1.Controls.SetChildIndex(c, MyFlowLayoutPanel1.Controls.GetChildIndex(tmp))
|
||
MyFlowLayoutPanel1.Controls.SetChildIndex(tmp, MyFlowLayoutPanel1.Controls.GetChildIndex(c))
|
||
Exit Sub
|
||
End If
|
||
If c Is CONTROL Then
|
||
tmp = c
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
Sub ControlMoveUp(CONTROL As Control)
|
||
' MyFlowLayoutPanel1.Controls(0).
|
||
Dim tmp = Nothing
|
||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||
If c Is CONTROL Then
|
||
If tmp Is Nothing Then Exit Sub
|
||
' MyFlowLayoutPanel1.Controls.SetChildIndex(c, MyFlowLayoutPanel1.Controls.GetChildIndex(tmp))
|
||
MyFlowLayoutPanel1.Controls.SetChildIndex(tmp, MyFlowLayoutPanel1.Controls.GetChildIndex(c))
|
||
Exit Sub
|
||
End If
|
||
'MyFlowLayoutPanel1.Controls.
|
||
tmp = c
|
||
Next
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click, btnPrint.Click
|
||
Me.Cursor = Cursors.WaitCursor
|
||
Dim MailHTMLText = ""
|
||
Dim Mail_To = ""
|
||
Dim Mail_CC = ""
|
||
Dim Mail_Subject = ""
|
||
|
||
|
||
|
||
Try
|
||
|
||
'VALIDIERUNG:
|
||
txtErr.Text = ""
|
||
Dim hassValidErr = False
|
||
For Each c In MyFlowLayoutPanel1.Controls
|
||
Dim err = ""
|
||
If Not FormularManagerNEU.validFormulare(c, err) Then
|
||
txtErr.Text &= err
|
||
hassValidErr = True
|
||
End If
|
||
Next
|
||
If hassValidErr Then
|
||
MsgBox("Es sind Validierungsfehler aufgetreten!")
|
||
Me.Cursor = Cursors.Default
|
||
Exit Sub
|
||
End If
|
||
|
||
|
||
If isSingleForm And sender Is btnPrint Then 'Sofortdruck --> wir bei ActiveRepots benötigt --> schneller, als zuerst pdf....
|
||
If Not MyFlowLayoutPanel1.Controls.Count = 1 Then Me.Cursor = Cursors.Default : Exit Sub 'funkt. nur bei genau 1 Control
|
||
FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||
Else
|
||
|
||
Dim list As New List(Of String) ' Sammlung PDFs
|
||
|
||
For Each c In MyFlowLayoutPanel1.Controls
|
||
Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||
For Each pfad In pfadList
|
||
If pfad <> "" Then list.Add(pfad)
|
||
Next
|
||
Next
|
||
|
||
Dim dest_path = ""
|
||
If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||
|
||
If list.Count = 1 Then
|
||
dest_path = list(0)
|
||
Else
|
||
dest_path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VERAG_Formular.pdf", ".pdf", False, False)
|
||
If Not FormularManagerNEU.MergePdfFiles(list, dest_path) Then
|
||
dest_path = "" : MsgBox("Fehler PDF")
|
||
End If
|
||
End If
|
||
|
||
If dest_path <> "" Then
|
||
If sender Is Button2 Then
|
||
Process.Start(dest_path)
|
||
ElseIf sender Is btn Then
|
||
'System.Diagnostics.Process.Start("mailto:" & "" & "?subject=" & "?" & "&body=" & "?" & "&attachment=" & dest_path)
|
||
Try
|
||
|
||
|
||
|
||
|
||
'Dim Mail As New MailMessage
|
||
|
||
'Try
|
||
' Dim SMTP As New SmtpClient("smtp.gmail.com")
|
||
' SMTP.EnableSsl = True
|
||
' SMTP.Credentials = New System.Net.NetworkCredential("[your gmail address@gmail.com]", "[the associated password]")
|
||
' SMTP.Port = 587
|
||
|
||
' Mail.From = New MailAddress("""[Friendly Name]"" <[your gmail address@gmail.com>")
|
||
|
||
|
||
' Mail.Subject = ""
|
||
' Mail.Body = ""
|
||
' If dest_path <> "" Then Mail.Attachments.Add(New Mail.Attachment(dest_path))
|
||
' Mail.IsBodyHtml = True
|
||
|
||
' ' SMTP.Send(Mail)
|
||
|
||
' 'Clear Mail Object
|
||
' Mail.Dispose()
|
||
|
||
' 'Function Return
|
||
' Return True
|
||
|
||
'Catch ex As Exception
|
||
|
||
' 'Function Return
|
||
' Return False
|
||
|
||
'End Try
|
||
|
||
|
||
|
||
If False Then
|
||
Dim mapi As New VERAG_PROG_ALLGEMEIN.SendFileTo.MAPI
|
||
|
||
mapi.AddAttachment(dest_path)
|
||
mapi.SendMailPopup("testing", "body text")
|
||
Exit Sub
|
||
End If
|
||
|
||
If False Then
|
||
|
||
|
||
|
||
|
||
Call ShellExecute(Me.Handle, "open", "mailto:" & "" & "?subject=" & "?" & "&body=" & "?" & "&Attach=""" & dest_path & """", vbNullString, vbNullString, SW_SHOW)
|
||
' Call ShellExecute(Me.Handle, "open", "mailto:" & "" & "?subject=" & "?" & "&body=" & "?", "", "", SW_SHOW)
|
||
|
||
|
||
Exit Sub
|
||
|
||
|
||
Dim MailMessage As New System.Net.Mail.MailMessage()
|
||
' MailMessage.From = New MailAddress("someone@yourdomain.com")
|
||
MailMessage.Subject = "" ' "Your subject here"
|
||
MailMessage.IsBodyHtml = True
|
||
MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
|
||
|
||
MailMessage.Attachments.Add(New Attachment(dest_path))
|
||
|
||
Dim filename = "C://Temp/mymessage.eml"
|
||
|
||
'save the MailMessage to the filesystem
|
||
' MailMessage.save(filename)
|
||
Save(MailMessage, filename)
|
||
'Open the file with the default associated application registered on the local machine
|
||
|
||
|
||
|
||
|
||
Process.Start(filename)
|
||
|
||
'Dim mapi As New VERAG_PROG_ALLGEMEIN.SendFileTo.cSendMailAttach
|
||
|
||
'mapi.AddAttachment(dest_path)
|
||
''mapi.AddRecipientTo("person1@somewhere.com")
|
||
''mapi.AddRecipientTo("person2@somewhere.com")
|
||
'mapi.SendMailPopup("", "")
|
||
Exit Sub
|
||
End If
|
||
|
||
'Dim Mail As Outlook.MailItem = CType(Application.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
|
||
|
||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||
' Else
|
||
' Dim outl = CreateObject("Outlook.Application")
|
||
' Dim Mail = CreateObject("Microsoft.Office.Interop.Outlook.MailItem")
|
||
Dim outl As New Outlook.Application
|
||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||
Mail = outl.CreateItem(0)
|
||
|
||
If MailHTMLText <> "" Then Mail.HTMLBody = MailHTMLText
|
||
If Mail_To <> "" Then Mail.To = Mail_To
|
||
If Mail_CC <> "" Then Mail.CC = Mail_CC
|
||
If Mail_Subject <> "" Then Mail.Subject = Mail_Subject
|
||
|
||
|
||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||
Mail.Display()
|
||
|
||
'Dim matilPath = "C:\TEMP\VERAG_Mail.msg"
|
||
' Mail.SaveAs(matilPath)
|
||
' Process.Start(matilPath)
|
||
|
||
Catch ex As Exception
|
||
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
|
||
End Try
|
||
ElseIf sender Is btnPrint Then
|
||
'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintFile(dest_path, "")
|
||
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(dest_path, cboPrinter.SelectedItem.ToString)
|
||
End If
|
||
End If
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
End Try
|
||
Me.Cursor = Cursors.Default
|
||
' If list.Count > 0 Then
|
||
End Sub
|
||
|
||
Const SW_SHOW = 5
|
||
Declare Function ShellExecute Lib "shell32.dll" _
|
||
Alias "ShellExecuteA" (
|
||
ByVal hwnd As Integer,
|
||
ByVal lpOperation As String,
|
||
ByVal lpFile As String,
|
||
ByVal lpParameters As String,
|
||
ByVal lpDirectory As String,
|
||
ByVal nShowCmd As Long) As Long
|
||
|
||
' <Extension()>
|
||
Public Shared Sub Save(ByVal Message As MailMessage, ByVal FileName As String)
|
||
Dim assembly As Assembly = GetType(SmtpClient).Assembly
|
||
Dim _mailWriterType As Type = assembly.[GetType]("System.Net.Mail.MailWriter")
|
||
|
||
Using _fileStream As FileStream = New FileStream(FileName, FileMode.Create)
|
||
Dim _mailWriterContructor As ConstructorInfo = _mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Type() {GetType(Stream)}, Nothing)
|
||
Dim _mailWriter As Object = _mailWriterContructor.Invoke(New Object() {_fileStream})
|
||
Dim _sendMethod As MethodInfo = GetType(MailMessage).GetMethod("Send", BindingFlags.Instance Or BindingFlags.NonPublic)
|
||
_sendMethod.Invoke(Message, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {_mailWriter, True}, Nothing)
|
||
Dim _closeMethod As MethodInfo = _mailWriter.[GetType]().GetMethod("Close", BindingFlags.Instance Or BindingFlags.NonPublic)
|
||
_closeMethod.Invoke(_mailWriter, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {}, Nothing)
|
||
End Using
|
||
End Sub
|
||
|
||
Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
|
||
' alle installierten Drucker ermitteln und
|
||
' in in ein ArrayList-Objekt speichern
|
||
Dim sPrinters As New ArrayList
|
||
For Each sPrinter As String In PrinterSettings.InstalledPrinters
|
||
sPrinters.Add(sPrinter)
|
||
Next
|
||
|
||
' Array sortieren
|
||
sPrinters.Sort()
|
||
|
||
' jetzt alle Drucker in sortierter Reihenfolge in einer
|
||
' ComboBox zur Auswahl anbieten
|
||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||
For i As Integer = 0 To sPrinters.Count - 1
|
||
cboPrinter.Items.Add(sPrinters(i))
|
||
Next
|
||
|
||
|
||
If sPrinters.Count > 0 Then
|
||
cboPrinter.SelectedIndex = 0
|
||
If srch <> "" Then
|
||
For Each i In cboPrinter.Items
|
||
If i.ToString.ToUpper.Contains(srch.ToUpper) Then
|
||
cboPrinter.SelectedItem = i
|
||
Exit Sub
|
||
End If
|
||
Next
|
||
Else
|
||
For Each i In cboPrinter.Items
|
||
If i.ToString = oPS.PrinterName Then
|
||
cboPrinter.SelectedItem = i
|
||
Exit Sub
|
||
End If
|
||
Next
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
|
||
Private Sub MyFlowLayoutPanel1_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyFlowLayoutPanel1.ControlAdded, MyFlowLayoutPanel1.ControlRemoved
|
||
initFlowLPHeight()
|
||
End Sub
|
||
|
||
Private Sub pnlBody_SizeChanged(sender As Object, e As EventArgs) Handles pnlBody.SizeChanged
|
||
initFlowLPHeight()
|
||
|
||
End Sub
|
||
|
||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||
Dim fd As New OpenFileDialog
|
||
fd.Title = "PDF auswählen"
|
||
fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
||
fd.Filter = "PDF|*.PDF"
|
||
fd.FilterIndex = 2
|
||
fd.DefaultExt = ".pdf"
|
||
fd.RestoreDirectory = True
|
||
Dim result As DialogResult = fd.ShowDialog()
|
||
|
||
If result = System.Windows.Forms.DialogResult.OK Then
|
||
addForm("Sonst_PDF", {fd.FileName})
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub cboVorlage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVorlage.SelectedIndexChanged
|
||
If cboVorlage._value = "" Then Exit Sub
|
||
If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vohanden Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then
|
||
Select Case cboVorlage._value
|
||
Case FormularVorlagenGruppe.NeukundeAT
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.AT_Vollmacht)
|
||
addForm(FormularManagerArten.Verzollungspreise)
|
||
addForm(FormularManagerArten.VUB_CS)
|
||
Case FormularVorlagenGruppe.NeukundeATFiskal
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.AT_Fiskal)
|
||
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
|
||
addForm(FormularManagerArten.VUB_CS)
|
||
addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
|
||
Case FormularVorlagenGruppe.NeukundeDE
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.DE_Vollmacht)
|
||
addForm(FormularManagerArten.Verzollungspreise)
|
||
addForm(FormularManagerArten.VUB_AG)
|
||
Case FormularVorlagenGruppe.NeukundeDEFiskal
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.DE_Fiskal)
|
||
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
|
||
addForm(FormularManagerArten.VUB_AG)
|
||
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
|
||
|
||
|
||
|
||
|
||
Case FormularVorlagenGruppe.NeukundeAT_IMEX
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.AT_Vollmacht)
|
||
addForm(FormularManagerArten.Verzollungspreise)
|
||
addForm(FormularManagerArten.VUB_IMEX)
|
||
Case FormularVorlagenGruppe.NeukundeATFiskal_IMEX
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.AT_Fiskal)
|
||
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
|
||
addForm(FormularManagerArten.VUB_IMEX)
|
||
addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
|
||
Case FormularVorlagenGruppe.NeukundeDE_IMEX
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.DE_Vollmacht)
|
||
addForm(FormularManagerArten.Verzollungspreise)
|
||
addForm(FormularManagerArten.VUB_IMEX)
|
||
Case FormularVorlagenGruppe.NeukundeDEFiskal_IMEX
|
||
MyFlowLayoutPanel1.Controls.Clear()
|
||
addForm(FormularManagerArten.DE_Fiskal)
|
||
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
|
||
addForm(FormularManagerArten.VUB_IMEX)
|
||
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
|
||
End Select
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub cboPrinter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPrinter.SelectedIndexChanged
|
||
|
||
End Sub
|
||
End Class
|
||
|
||
|
||
Public Class FormularManagerNEU
|
||
|
||
Shared VSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||
Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef MailHTMLText As String = "", Optional ByRef Mail_To As String = "", Optional ByRef Mail_CC As String = "", Optional ByRef Mail_Subject As String = "") As List(Of String)
|
||
Dim retStr = ""
|
||
Dim striList As New List(Of String)
|
||
Select Case c.GetType.ToString
|
||
Case GetType(usrcntlVollmacht_DE).ToString
|
||
retStr = FormularManagerNEU.VM_De(c)
|
||
Case GetType(usrcntlVollmacht_AT).ToString
|
||
retStr = FormularManagerNEU.VM_AT(c)
|
||
Case GetType(usrcntlFormOhneFelder).ToString
|
||
retStr = FormularManagerNEU.SimplePDF(c)
|
||
|
||
Case GetType(usrcntlVollmacht_DE_Fiskal).ToString
|
||
retStr = FormularManagerNEU.VM_DE_Fiskal(c)
|
||
Case GetType(usrcntlVollmacht_AT_EV).ToString
|
||
retStr = FormularManagerNEU.VM_AT_EV(c)
|
||
Case GetType(usrcntlVollmacht_AT_Fiskal).ToString
|
||
retStr = FormularManagerNEU.VM_AT_Fiskal(c)
|
||
Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString
|
||
retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
|
||
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
|
||
retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
|
||
Case GetType(usrcntlVorauskasse).ToString
|
||
retStr = FormularManagerNEU.Importaviso_VK(c)
|
||
Case GetType(usrcntlImportaviso).ToString
|
||
retStr = FormularManagerNEU.Importaviso(c)
|
||
Case GetType(usrcntlGestellungsgarantie).ToString
|
||
retStr = FormularManagerNEU.Gestellungsgarantie(c)
|
||
Case GetType(usrcntlVerzollungspreise).ToString
|
||
retStr = FormularManagerNEU.Verzollungspreise(c)
|
||
Case GetType(usrcntlCreditreformBoniAuskunft).ToString
|
||
retStr = FormularManagerNEU.Bonitaetsauskunft(c)
|
||
Case GetType(usrcntlSonstigesPDF).ToString
|
||
retStr = FormularManagerNEU.SonstPDF(c)
|
||
Case GetType(usrCntlDispoliste).ToString
|
||
retStr = FormularManagerNEU.DispoListe(c)
|
||
|
||
Case GetType(usrCntlSA_Gestellung).ToString
|
||
open = False
|
||
retStr = FormularManagerNEU.SA_Gestellung(c, printReportElsePdf, printerName)
|
||
Case GetType(usrCntlVerpflichtungserklärungFahrer).ToString
|
||
' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
|
||
striList = FormularManagerNEU.VerpflichtungserklärungFahrerRpt(c, printReportElsePdf, printerName)
|
||
Case GetType(usrcntlFiskalInfoschreiben).ToString
|
||
retStr = FormularManagerNEU.FiskalInfoschreiben(c)
|
||
Case GetType(usrcntlVerzollungsunterlagen).ToString
|
||
striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord)
|
||
Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString
|
||
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||
|
||
Case GetType(usrcntlQS_UeDok).ToString
|
||
retStr = FormularManagerNEU.QS_UeDok(c)
|
||
Case GetType(usrcntlVerbundenheit).ToString
|
||
retStr = FormularManagerNEU.Verbundenheit(c)
|
||
|
||
Case GetType(usrcntlVUB).ToString
|
||
retStr = FormularManagerNEU.VUB(c)
|
||
|
||
End Select
|
||
If retStr <> "" Then
|
||
striList.Add(retStr)
|
||
End If
|
||
If open Then
|
||
For Each r In striList
|
||
If r <> "" Then Process.Start(r)
|
||
Next
|
||
End If
|
||
Return striList
|
||
End Function
|
||
|
||
Shared Function validFormulare(c As Control, ByRef err As String) As Boolean
|
||
validFormulare = True
|
||
|
||
Dim striList As New List(Of String)
|
||
|
||
Select Case c.GetType.ToString
|
||
Case GetType(usrcntlVollmacht_DE).ToString
|
||
' retStr = FormularManagerNEU.VM_De(c)
|
||
Case GetType(usrcntlVollmacht_AT).ToString
|
||
' retStr = FormularManagerNEU.VM_AT(c)
|
||
Case GetType(usrcntlFormOhneFelder).ToString
|
||
' retStr = FormularManagerNEU.SimplePDF(c)
|
||
|
||
Case GetType(usrcntlVollmacht_DE_Fiskal).ToString
|
||
' retStr = FormularManagerNEU.VM_DE_Fiskal(c)
|
||
Case GetType(usrcntlVollmacht_AT_EV).ToString
|
||
' retStr = FormularManagerNEU.VM_AT_EV(c)
|
||
Case GetType(usrcntlVollmacht_AT_Fiskal).ToString
|
||
' retStr = FormularManagerNEU.VM_AT_Fiskal(c)
|
||
Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString
|
||
' retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
|
||
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
|
||
' retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
|
||
Case GetType(usrcntlVorauskasse).ToString
|
||
validFormulare = DirectCast(c, usrcntlVorauskasse).ValidValues(err)
|
||
Case GetType(usrcntlGestellungsgarantie).ToString
|
||
' retStr = FormularManagerNEU.Gestellungsgarantie(c)
|
||
Case GetType(usrcntlVerzollungspreise).ToString
|
||
' retStr = FormularManagerNEU.Verzollungspreise(c)
|
||
Case GetType(usrcntlCreditreformBoniAuskunft).ToString
|
||
'retStr = FormularManagerNEU.Bonitaetsauskunft(c)
|
||
Case GetType(usrcntlSonstigesPDF).ToString
|
||
' retStr = FormularManagerNEU.SonstPDF(c)
|
||
Case GetType(usrCntlDispoliste).ToString
|
||
'retStr = FormularManagerNEU.DispoListe(c)
|
||
Case GetType(usrCntlVerpflichtungserklärungFahrer).ToString
|
||
' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
|
||
Case GetType(usrcntlFiskalInfoschreiben).ToString
|
||
' retStr = FormularManagerNEU.FiskalInfoschreiben(c)
|
||
|
||
Case GetType(usrcntlVUB).ToString
|
||
' retStr = FormularManagerNEU.VUB(c)
|
||
End Select
|
||
|
||
|
||
End Function
|
||
|
||
|
||
Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String
|
||
|
||
'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(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
Dim top = 0
|
||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||
top = 25
|
||
End If
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_EN", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "DE_VM", listTowrite)
|
||
End Select
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String
|
||
|
||
'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(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite = addEinmaligeVM(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
MsgBox("AT - Vollmacht ist nicht auf Englisch verfügbar!")
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "AT_VM", listTowrite)
|
||
End Select
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
Shared Function SimplePDF(usrCntl As usrcntlFormOhneFelder) As String
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", usrCntl.DS_ORDNER, "", "", usrCntl.BEZEICHNUNG)
|
||
Return DS.OPEN_SINGLE(False)
|
||
End Function
|
||
|
||
|
||
Shared Function VUB(usrCntl As usrcntlVUB) As String
|
||
|
||
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", usrCntl.DS_ORDNER, "", "", usrCntl.BEZEICHNUNG)
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
If usrCntl.BEZEICHNUNG = FormularManagerArten.VUB_AG Then
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_ENGLISCH", Nothing)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_AG", Nothing)
|
||
End Select
|
||
ElseIf usrCntl.BEZEICHNUNG = FormularManagerArten.VUB_CS Then
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_CS_ENGLISCH", Nothing)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_CS", Nothing)
|
||
End Select
|
||
Else
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_ENGLISCH", Nothing)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB", Nothing)
|
||
End Select
|
||
End If
|
||
|
||
End Function
|
||
|
||
|
||
Shared Function SonstPDF(usrCntl As usrcntlSonstigesPDF) As String
|
||
If IO.File.Exists(usrCntl.PFAD) Then
|
||
Return usrCntl.PFAD
|
||
End If
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function DispSendungslisteoListe(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 ""
|
||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
|
||
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
|
||
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST)
|
||
End Function
|
||
|
||
Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Dim tmpPath = ""
|
||
Try
|
||
|
||
Dim rpt As New rptDispoHaftListe
|
||
|
||
|
||
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.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
|
||
rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
|
||
rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
|
||
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.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
|
||
rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
|
||
rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
|
||
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"
|
||
End Select
|
||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "VERAG Spedition AG")
|
||
rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "VERAG Spedition AG")
|
||
rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "VERAG Spedition AG")
|
||
rpt.TextBox32.Text = "Avisierer (*):"
|
||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||
'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
|
||
End Select
|
||
|
||
|
||
Dim tb As New DataTable
|
||
tb.Columns.Add("Nr", GetType(Integer))
|
||
' tb.Columns.Add("Nr", GetType(String))
|
||
' tb.Columns.Add("PosNr", GetType(String))
|
||
' tb.Columns.Add("AbfArt", GetType(String))
|
||
Dim cnt = 1
|
||
|
||
For Each s In SENDUNGEN
|
||
'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
|
||
tb.Rows.Add(SENDUNGEN.IndexOf(s))
|
||
cnt += 1
|
||
Next
|
||
|
||
|
||
|
||
'MsgBox(tb.Rows.Count)
|
||
|
||
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)
|
||
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
|
||
|
||
rpt.txtAnmerkung.Text = ""
|
||
Dim anmerkung = ""
|
||
Dim colliGewicht = ""
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
|
||
If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
|
||
|
||
|
||
anmerkung = If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim ' If(SND.tblSnd_Anmerkung, "").ToString.Trim & vbNewLine & If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim 'Übergangsphase: beide Txt
|
||
|
||
Case Else
|
||
If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
|
||
If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"
|
||
|
||
anmerkung &= If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim
|
||
End Select
|
||
|
||
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, "-")
|
||
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)
|
||
While rpt.txtAnmerkung.Text.Contains("; ;")
|
||
rpt.txtAnmerkung.Text = rpt.txtAnmerkung.Text.Replace("; ;", "; ") 'Falls dpl-return war
|
||
End While
|
||
End If
|
||
|
||
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
|
||
If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
|
||
|
||
|
||
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
|
||
|
||
|
||
'.Replace("\n","")
|
||
rpt.txtAbrechnung.Text = ""
|
||
SND.LOAD_ABRECHNUNG()
|
||
|
||
If SND.ABRECHNUNG IsNot Nothing Then
|
||
For Each a In SND.ABRECHNUNG
|
||
If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then
|
||
rpt.txtAbrechnung.Text = "X"
|
||
End If
|
||
|
||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
' Case "IMEX"
|
||
' If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "FRACHTF" Then
|
||
' rpt.txtAbrechnung.Text = "X"
|
||
' End If
|
||
' Case Else
|
||
' If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then
|
||
' rpt.txtAbrechnung.Text = "X"
|
||
' End If
|
||
'End Select
|
||
|
||
Next
|
||
End If
|
||
|
||
|
||
End Sub
|
||
|
||
If fiskal_bool Then
|
||
rpt.TextBox10.Visible = True
|
||
rpt.Shape9.Visible = True
|
||
|
||
End If
|
||
|
||
|
||
|
||
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("Dispoliste.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 DispoListe(usrCntl As usrCntlDispoliste) As String
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||
Try
|
||
Dim nameDispo = ""
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "TR"
|
||
nameDispo = "Dispoliste_TR"
|
||
Case Else
|
||
nameDispo = "Dispoliste_EN"
|
||
End Select
|
||
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
|
||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||
|
||
Dim cGenWord As New cGenWord
|
||
|
||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||
|
||
Dim oTable As Word.Table
|
||
|
||
odoc.FormFields("An1").Range.Text = usrCntl.txtFirma.Text
|
||
odoc.FormFields("An2").Range.Text = usrCntl.txtAnsprechpartner.Text
|
||
odoc.FormFields("An3").Range.Text = usrCntl.txtAdresse1.Text
|
||
odoc.FormFields("An4").Range.Text = usrCntl.txtAdresse2.Text
|
||
odoc.FormFields("An5").Range.Text = usrCntl.txtAdresse3.Text
|
||
odoc.FormFields("LKW").Range.Text = usrCntl.txtLKWKennzeichen.Text
|
||
odoc.FormFields("SB").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||
|
||
If odoc.Range.Bookmarks.Exists("Tabelle") Then
|
||
If odoc.Bookmarks("Tabelle").Range.Tables.Count > 0 Then
|
||
oTable = odoc.Bookmarks("Tabelle").Range.Tables(1)
|
||
Dim i = 1
|
||
Dim kfzTmp = ""
|
||
'For Each r As DataRow In dt.Rows
|
||
For Each c In usrCntl.MyFlowLayoutPanel1.Controls
|
||
Dim tmp = DirectCast(c, usrCnrlDispolisteElemente) 'For i = 1 To i = 3
|
||
oTable.Rows.Add()
|
||
oTable.Rows(i + 1).Cells(1).Range.Text = tmp.RichTextBox.Text
|
||
oTable.Rows(i + 1).Cells(2).Range.Text = tmp.RichTextBox1.Text
|
||
oTable.Rows(i + 1).Cells(3).Range.Text = tmp.RichTextBox2.Text
|
||
oTable.Rows(i + 1).Cells(4).Range.Text = tmp.RichTextBox3.Text
|
||
'oTable.Rows(i + 1).Cells(3).Range.Text = tmp.RichTextBox4.Text
|
||
i += 1
|
||
Next
|
||
End If
|
||
Else
|
||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||
End If
|
||
odoc.Save() : odoc.Activate()
|
||
|
||
|
||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)
|
||
|
||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||
|
||
Try
|
||
odoc.Close()
|
||
oWord.Quit()
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
End Try
|
||
|
||
Return path
|
||
|
||
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function SA_Gestellung(usrCntl As usrCntlSA_Gestellung, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
' Dim odoc As Microsoft.Office.Interop.Excel.Sheets = Nothing
|
||
Dim oExc As New Microsoft.Office.Interop.Excel.Application
|
||
|
||
Dim excelBook As Excel.Workbook
|
||
|
||
Try
|
||
Dim nameDispo = "SA_Gestellung"
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||
Case "WAI" : nameDispo = "SA_Gestellung_WAI"
|
||
End Select
|
||
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
|
||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||
|
||
' Dim cGenWord As New cGenWord
|
||
|
||
' oExc = cGenWord.openWord(pfadWord, False, oWord)
|
||
excelBook = oExc.Workbooks.Open(pfadWord)
|
||
|
||
|
||
Dim vname = ""
|
||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Length > 0 Then vname = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Substring(0, 1) & "."
|
||
|
||
oExc.Range("C4").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME & " " & vname
|
||
oExc.Range("C5").Value = usrCntl.txtFilialeLKWId.Text
|
||
oExc.Range("I7").Value = usrCntl.txtLKWKennzeichen.Text
|
||
|
||
oExc.Range("C8").Value = usrCntl.txtGesColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
|
||
oExc.Range("D8").Value = usrCntl.txtGesGewicht.Text.Replace(".", "")
|
||
oExc.Range("I5").Value = Now.ToShortDateString
|
||
oExc.Range("C7").Value = usrCntl.txtT1Gestellung.Text
|
||
oExc.Range("F7").Value = usrCntl.txtBezugsNrSumA.Text
|
||
|
||
|
||
oExc.Range("F4").Value = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 7711 / 2777 - 0")
|
||
'oExc.Range("F5").Value = usrCntl.txtT1Gestellung.Text
|
||
|
||
|
||
'Wenn die Excel-Vorlage nciht reicht, werden neue Zeilen eingefügt
|
||
For cnt = 13 To usrCntl.MyFlowLayoutPanel1.Controls.Count
|
||
oExc.Range("A11").EntireRow.Copy()
|
||
oExc.Range("A11").EntireRow.Insert(Excel.XlDirection.xlDown)
|
||
Next
|
||
|
||
|
||
Dim i = 0
|
||
For Each c In usrCntl.MyFlowLayoutPanel1.Controls
|
||
Dim tmp = DirectCast(c, usrCntlSA_GestellungElemente) 'For i = 1 To i = 3
|
||
oExc.Range("A" & (i + 11)).Value = tmp.lbl1.Text ' (i + 1)
|
||
oExc.Range("B" & (i + 11)).Value = tmp.txtWarenbezeichnung.Text
|
||
oExc.Range("C" & (i + 11)).Value = tmp.txtColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
|
||
oExc.Range("D" & (i + 11)).Value = tmp.txtGewicht.Text
|
||
oExc.Range("E" & (i + 11)).Value = tmp.txtAbsender.Text
|
||
oExc.Range("F" & (i + 11)).Value = tmp.txtEmpfaenger.Text
|
||
oExc.Range("G" & (i + 11)).Value = tmp.cboAbfertigungsart.Text
|
||
oExc.Range("H" & (i + 11)).Value = tmp.txtAtaMrn.Text
|
||
oExc.Range("I" & (i + 11)).Value = tmp.rtbBemerkung.Text
|
||
|
||
i += 1
|
||
Next
|
||
|
||
|
||
Dim p = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".xlsx", ".xlsx", True, False)
|
||
|
||
excelBook.SaveAs(p) ': oExc.Activate()
|
||
|
||
|
||
If printReportElsePDF Then 'NUR DRUCK!!
|
||
oExc.Visible = False
|
||
|
||
'Print
|
||
oExc.Workbooks(1).PrintOutEx() '1, 1, 1, True)
|
||
|
||
Try
|
||
oExc.Workbooks.Close()
|
||
oExc.Quit()
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
End Try
|
||
Else
|
||
oExc.Visible = True
|
||
End If
|
||
|
||
|
||
' Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)
|
||
|
||
' odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||
|
||
|
||
Return ""
|
||
' Return pfadWord
|
||
|
||
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
Shared Function VerpflichtungserklärungFahrerRpt(usrCntl As usrCntlVerpflichtungserklärungFahrer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As List(Of String)
|
||
' Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||
' Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||
Dim striList As New List(Of String)
|
||
Try
|
||
|
||
|
||
|
||
|
||
' s()
|
||
Dim rpt As New rptVerpflichtungserklaerung
|
||
|
||
|
||
rpt.txtFraechter.Text = usrCntl.txtFirma.Text
|
||
rpt.txtLKWKennz.Text = usrCntl.txtLKWKennzeichen.Text
|
||
rpt.txtFahrername.Text = usrCntl.txtFahrername.Text
|
||
rpt.txtPassnummer.Text = usrCntl.txtPassnummer.Text
|
||
|
||
rpt.txtWohnort.Text = usrCntl.txtAdresseFahrer.Text
|
||
'If usrCntl.txtAdresseFahrer.Lines.Count > 0 Then odoc.FormFields("Adresse1").Range.Text = usrCntl.txtAdresseFahrer.Lines(0) Else odoc.FormFields("Adresse1").Range.Text = ""
|
||
'If usrCntl.txtAdresseFahrer.Lines.Count > 1 Then odoc.FormFields("Adresse2").Range.Text = usrCntl.txtAdresseFahrer.Lines(1) Else odoc.FormFields("Adresse2").Range.Text = ""
|
||
|
||
rpt.txtMobilTel.Text = usrCntl.txtMobilNr.Text
|
||
rpt.txtAvisoId.Text = usrCntl.AVISOID
|
||
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
|
||
Case "ATILLA"
|
||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||
rpt.picVERAG.Image = My.Resources.Atilla
|
||
Case Else
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||
Case "SBG" : ort = "Bad Reichenhall"
|
||
Case "WAI" : ort = "Waidhaus"
|
||
Case "NKD" : ort = "Nickelsdorf"
|
||
End Select
|
||
End Select
|
||
|
||
|
||
rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString
|
||
|
||
|
||
Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("VE-" & If(usrCntl.AVISOID Is Nothing, 0, usrCntl.AVISOID) & "", 1, True, 20)
|
||
'Dim bc As New List(Of VERAG_PROG_ALLGEMEIN.barcodeToPdf)
|
||
'Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, Drawing.RotateFlipType.Rotate270FlipNone)
|
||
'bc.Add(b)
|
||
barcodeLKW.RotateFlip(RotateFlipType.Rotate270FlipNone)
|
||
rpt.picBarcodeVerpfl.Image = barcodeLKW
|
||
|
||
|
||
Dim tb As New DataTable
|
||
tb.Columns.Add("MRN1", GetType(String))
|
||
tb.Columns.Add("MRN2", GetType(String))
|
||
Dim cnt = 0
|
||
|
||
Dim v1 = ""
|
||
Dim v2 = ""
|
||
|
||
For Each c As DataGridViewRow In usrCntl.MyDatagridview1.Rows
|
||
If c.Cells(0).Value <> "" Then 'Wenn Zeile nicht leer
|
||
If cnt Mod 2 = 0 Then 'gerade
|
||
v1 = (cnt + 1) & ". " & c.Cells(0).Value
|
||
Else
|
||
v2 = (cnt + 1) & ". " & c.Cells(0).Value
|
||
tb.Rows.Add(v1, v2)
|
||
v1 = ""
|
||
v2 = ""
|
||
End If
|
||
cnt += 1
|
||
End If
|
||
Next
|
||
If v1 <> "" Then
|
||
tb.Rows.Add(v1, "")
|
||
End If
|
||
|
||
'MsgBox(tb.Rows.Count)
|
||
|
||
rpt.DataSource = tb
|
||
|
||
AddHandler rpt.Detail.Format, Sub()
|
||
rpt.txtMRN1.Text = nullStr(rpt.Fields.Item(0).Value)
|
||
rpt.txtMRN2.Text = nullStr(rpt.Fields.Item(1).Value)
|
||
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
|
||
|
||
|
||
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmp_Verpfichtungserklärung.pdf", ".pdf", , False)
|
||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||
rpt.Run(False)
|
||
|
||
p.NeverEmbedFonts = ""
|
||
p.Export(rpt.Document, tmpPath)
|
||
|
||
striList.Add(tmpPath)
|
||
rpt.Dispose()
|
||
End If
|
||
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return striList
|
||
End Function
|
||
|
||
Shared Function nullStr(o As Object) As String
|
||
Try
|
||
If o Is DBNull.Value Then Return ""
|
||
Return CStr(o)
|
||
Catch ex As Exception
|
||
Return ""
|
||
End Try
|
||
|
||
End Function
|
||
Shared Function VerpflichtungserklärungFa9hrer(usrCntl As usrCntlVerpflichtungserklärungFahrer) As List(Of String)
|
||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||
Dim striList As New List(Of String)
|
||
Try
|
||
Dim nameDispo = ""
|
||
nameDispo = "VerpflichtungserklärungFahrer"
|
||
'Select Case usrCntl.cboSprache._value
|
||
'End Select
|
||
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
|
||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||
|
||
Dim cGenWord As New cGenWord
|
||
|
||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||
If odoc Is Nothing Then Return striList
|
||
|
||
Dim oTable As Word.Table
|
||
|
||
odoc.FormFields("Frächter").Range.Text = usrCntl.txtFirma.Text
|
||
odoc.FormFields("LKW").Range.Text = usrCntl.txtLKWKennzeichen.Text
|
||
odoc.FormFields("Fahrer").Range.Text = usrCntl.txtFahrername.Text
|
||
odoc.FormFields("Pass").Range.Text = usrCntl.txtPassnummer.Text
|
||
|
||
|
||
If usrCntl.txtAdresseFahrer.Lines.Count > 0 Then odoc.FormFields("Adresse1").Range.Text = usrCntl.txtAdresseFahrer.Lines(0) Else odoc.FormFields("Adresse1").Range.Text = ""
|
||
If usrCntl.txtAdresseFahrer.Lines.Count > 1 Then odoc.FormFields("Adresse2").Range.Text = usrCntl.txtAdresseFahrer.Lines(1) Else odoc.FormFields("Adresse2").Range.Text = ""
|
||
|
||
odoc.FormFields("Mobil").Range.Text = usrCntl.txtMobilNr.Text
|
||
odoc.FormFields("AvisoId").Range.Text = "VERAG LKW-ID: " & usrCntl.AVISOID
|
||
|
||
If odoc.Range.Bookmarks.Exists("Tabelle") Then
|
||
If odoc.Bookmarks("Tabelle").Range.Tables.Count > 0 Then
|
||
oTable = odoc.Bookmarks("Tabelle").Range.Tables(1)
|
||
Dim i = 0
|
||
Dim cnt = 1
|
||
Dim kfzTmp = ""
|
||
'For Each r As DataRow In dt.Rows
|
||
Dim newrow = True
|
||
For Each c As DataGridViewRow In usrCntl.MyDatagridview1.Rows
|
||
If c.Cells(0).Value <> "" Then
|
||
If newrow Then
|
||
If i > 0 Then oTable.Rows.Add()
|
||
i += 1
|
||
oTable.Rows(i + 1).Cells(1).Range.Text = cnt & " - " & c.Cells(0).Value : cnt += 1
|
||
Else
|
||
oTable.Rows(i + 1).Cells(2).Range.Text = cnt & " - " & c.Cells(0).Value : cnt += 1
|
||
End If
|
||
newrow = Not newrow
|
||
End If
|
||
Next
|
||
End If
|
||
Else
|
||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||
End If
|
||
odoc.Save() : odoc.Activate()
|
||
|
||
'VE_ für Verpflichtungserklärung
|
||
Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("VE-" & If(usrCntl.AVISOID Is Nothing, 0, usrCntl.AVISOID) & "", 1, True, 20)
|
||
Dim bc As New List(Of VERAG_PROG_ALLGEMEIN.barcodeToPdf)
|
||
Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, Drawing.RotateFlipType.Rotate270FlipNone)
|
||
bc.Add(b)
|
||
|
||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)
|
||
|
||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||
|
||
Try
|
||
odoc.Close()
|
||
oWord.Quit()
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
End Try
|
||
|
||
'Aufdruck ORT DATUM:
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Dim ort = "Suben"
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||
Case "SBG" : ort = "Bad Reichenhall"
|
||
Case "WAI" : ort = "Waidhaus"
|
||
Case "NKD" : ort = "Nickelsdorf"
|
||
End Select
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
striList.Add(fm.fillPDFVorhandenesLokalesPDF_Path(path, listTowrite, , , , , bc))
|
||
|
||
If usrCntl.DS_FD IsNot Nothing AndAlso usrCntl.DS_FD.DATA_LIST.LIST.Count > 0 AndAlso usrCntl.cbxPassDrucken.Checked Then
|
||
striList.Add(usrCntl.DS_FD.OPEN_SINGLE(False))
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return striList
|
||
End Function
|
||
|
||
Shared Function VM_DE_Fiskal(usrCntl As usrcntlVollmacht_DE_Fiskal) As String
|
||
'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(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End Select
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "", True)
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal_EN", listTowrite)
|
||
Case "FR"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal_FR", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal", listTowrite)
|
||
End Select
|
||
Return ""
|
||
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
|
||
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End Select
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite = addEinmaligeVM(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_4200_EN", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_4200", listTowrite)
|
||
End Select
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
|
||
Shared Function VM_AT_Fiskal(usrCntl As usrcntlVollmacht_AT_Fiskal) As String
|
||
|
||
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(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End Select
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
|
||
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
|
||
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "", True)
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_EN", listTowrite)
|
||
Case "FR"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_FR", listTowrite)
|
||
Case Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal", listTowrite)
|
||
End Select
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function VM_ATILLA_EXPORT(usrCntl As usrcntlVollmacht_ATILLA_EXPORT) As String
|
||
'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(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||
' End If
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End If
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_ATILLA_EN", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_ATILLA", listTowrite)
|
||
End Select
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function VM_VERAG_EXPORT(usrCntl As usrcntlVollmacht_VERAG_EXPORT) As String
|
||
'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(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
'If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
|
||
' End If
|
||
If usrCntl.cbxEinmaligeVollmacht.Checked Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End If
|
||
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_EN", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT", listTowrite)
|
||
End Select
|
||
Case Else
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_VERAG_EN", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_VERAG", listTowrite)
|
||
End Select
|
||
End Select
|
||
|
||
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function Importaviso_VK(usrCntl As usrcntlVorauskasse) As String
|
||
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(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
|
||
|
||
Dim top = 208
|
||
If usrCntl.cboFiliale._value <> "" Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
End If
|
||
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblRechnungsbetrag.Text, 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenAusl.Text, 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZwischensumme.Text, 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll.Text, 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenInl.Text, 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstBetrag.Text, 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSumme.Text, 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
Dim eustProz = If(IsNumeric(usrCntl.txtEustProzent._value), CDbl(usrCntl.txtEustProzent._value).ToString("P2"), usrCntl.txtEustProzent._value)
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEUST.Text, 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
top = 209
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll2.Text, 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEust2.Text, 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenBetrag.Text, 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollungskosten.Text, 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWeitereTarifPos.Text, 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtKorrRechnung.Text, 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUebersetzungRg.Text, 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 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
|
||
|
||
If usrCntl.cbxBeimErstellenSpeichern.Checked Then
|
||
' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
|
||
saveVorauskasse(usrCntl)
|
||
'End If
|
||
End If
|
||
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
Return 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)
|
||
End Select
|
||
|
||
End Select
|
||
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
Shared Function Importaviso(usrCntl As usrcntlImportaviso) As String
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Dim top = -5
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
top = -10
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
|
||
|
||
|
||
|
||
If usrCntl.cbxLKWWartet.Checked Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
End If
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso", listTowrite)
|
||
Case Else
|
||
|
||
Select Case usrCntl.cboFirma._value
|
||
Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS", listTowrite)
|
||
Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG", listTowrite)
|
||
End Select
|
||
|
||
End Select
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function Gestellungsgarantie(usrCntl As usrcntlGestellungsgarantie) As String
|
||
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(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
|
||
Case "FR"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite)
|
||
Case Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite)
|
||
End Select
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
Shared Function getPosNrByLNr(dt As DataTable, dt2 As DataTable, LNr As String) As String
|
||
For i = 0 To dt.Rows.Count - 1
|
||
If dt.Rows(i)("LNr") = LNr Then
|
||
Return If(dt.Rows(i)("Pos"), "")
|
||
End If
|
||
Next
|
||
For i = 0 To dt2.Rows.Count - 1
|
||
If dt2.Rows(i)("ZLNr") = LNr Then
|
||
Return "0"
|
||
End If
|
||
Next
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function Verzollungspreise(usrCntl As usrcntlVerzollungspreise, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
' Dim striList As New List(Of String)
|
||
Verzollungspreise = ""
|
||
Try
|
||
|
||
Dim rpt As New rptPreislisten
|
||
Dim subRpt As New subrptPreislisten
|
||
Dim subRpt_Zoll As New subrptPreislisten_Zoll
|
||
rpt.SubReport.Report = subRpt
|
||
|
||
Dim dt As DataTable = cProgramFunctions.dgridViewTods(usrCntl.DataGridView)
|
||
Dim dt2 As DataTable = cProgramFunctions.dgridViewTods(usrCntl.dgvZusatzleistung)
|
||
If dt.Rows.Count > 0 Then
|
||
dt.Rows.RemoveAt(dt.Rows.Count - 1) 'leere Zeile
|
||
End If
|
||
If dt2.Rows.Count > 0 Then
|
||
dt2.Rows.RemoveAt(dt2.Rows.Count - 1) 'leere Zeile
|
||
End If
|
||
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
rpt.txtFirmenkennung.Text = "IMEX Customs Service GmbH"
|
||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||
Case "ATILLA"
|
||
rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
|
||
rpt.picVERAG.Image = My.Resources.Atilla
|
||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||
Case Else 'Nix
|
||
End Select
|
||
|
||
rpt.DataSource = dt
|
||
|
||
If dt2.Rows.Count > 0 Then
|
||
subRpt.DataSource = dt2
|
||
Else
|
||
rpt.SubReport.Visible = False
|
||
End If
|
||
' rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString
|
||
|
||
Dim PosVorlage = getPosNrByLNr(dt, dt2, 700)
|
||
Dim PosKredit = getPosNrByLNr(dt, dt2, 750)
|
||
Dim PosClearing = getPosNrByLNr(dt, dt2, 347)
|
||
|
||
|
||
If PosVorlage = "" And PosKredit = "" Then
|
||
rpt.txtVorlageKredit.Visible = False
|
||
ElseIf PosVorlage = "" And PosKredit <> "" Then
|
||
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosKredit & " weg.)"
|
||
ElseIf PosKredit = "" And PosVorlage <> "" Then
|
||
rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosVorlage & " weg.)"
|
||
Else
|
||
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosVorlage]", "Pos. " & PosVorlage)
|
||
rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
|
||
End If
|
||
|
||
rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.Replace("[Zahlungsziel]", If(usrCntl.txtZahlunsziel.Text = "", "10", usrCntl.txtZahlunsziel.Text))
|
||
|
||
If PosKredit = "" Then 'Wenn keine Kredítaufwendung
|
||
rpt.txtZahlungsziel2.Visible = False
|
||
Else
|
||
If usrCntl.txtZahlunsziel.Text = "" Then
|
||
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", "10")
|
||
Else
|
||
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", usrCntl.txtZahlunsziel.Text)
|
||
End If
|
||
rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
|
||
End If
|
||
|
||
|
||
If PosClearing = "" Then
|
||
rpt.txtClearing.Visible = False
|
||
' Else
|
||
' rpt.txtClearing.Text = rpt.txtClearing.Text.Replace("[PosClearing]", "Pos. " & PosClearing)
|
||
End If
|
||
|
||
|
||
If usrCntl.cboFirma._value = "CS" Then
|
||
rpt.txtFirmenkennung.Text = "VERAG Customs Service GmbH"
|
||
rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo_med
|
||
' rpt.txtAdresse.Text = "A-5071 Wals Tel. +43 77 11 / 27 77-39 www.verag.ag" & vbNewLine &
|
||
' "Zollstraße 6 Fax +43 77 11 / 27 88 cw@verag.ag"
|
||
rpt.txtFirmaInfo_VERAG.Text = "A-5071 Wals" & vbTab & "Tel. +43 77 11 / 27 77-39" & vbTab & "www.verag.ag" & vbNewLine &
|
||
"Zollstraße 6" & vbTab & "Fax +43 77 11 / 27 88" & vbTab & "cw@verag.ag"
|
||
|
||
End If
|
||
|
||
If usrCntl.cbxZollpflichtigeAbfertigung.Checked Then
|
||
rpt.SubReport2.Report = subRpt_Zoll
|
||
End If
|
||
|
||
|
||
AddHandler rpt.Detail.Format, Sub()
|
||
Try
|
||
' MsgBox(rpt.Fields.Item(1).Value)
|
||
rpt.txtNr.Text = nullStr(rpt.Fields.Item("Pos").Value)
|
||
rpt.txtPreis.Text = ""
|
||
|
||
If nullStr(rpt.Fields.Item("Preis").Value) = "" Then
|
||
rpt.Line8.Visible = False
|
||
rpt.txtLeistung.Size = New SizeF(rpt.txtLeistung.Size.Width + 2, rpt.txtLeistung.Size.Height)
|
||
Else
|
||
rpt.Line8.Visible = True
|
||
Dim preis = nullStr(rpt.Fields.Item("Preis").Value)
|
||
rpt.txtPreis.Text = If(IsNumeric(preis), CDbl(preis).ToString("C2"), preis)
|
||
End If
|
||
rpt.txtLeistung.Text = nullStr(rpt.Fields.Item("Leistung").Value)
|
||
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
AddHandler subRpt.Detail.Format, Sub()
|
||
Try
|
||
' MsgBox(rpt.Fields.Item(1).Value)
|
||
' subRpt.txtNr.Text = nullStr(subRpt.Fields.Item("Pos").Value)
|
||
subRpt.txtPreis.Text = ""
|
||
|
||
If nullStr(subRpt.Fields.Item("ZPreis").Value) = "" Then
|
||
subRpt.Line8.Visible = False
|
||
subRpt.txtLeistung.Size = New SizeF(subRpt.txtLeistung.Size.Width + 2, subRpt.txtLeistung.Size.Height)
|
||
Else
|
||
subRpt.Line8.Visible = True
|
||
Dim preis = nullStr(subRpt.Fields.Item("ZPreis").Value)
|
||
subRpt.txtPreis.Text = If(IsNumeric(preis), CDbl(preis).ToString("C2"), preis)
|
||
End If
|
||
subRpt.txtLeistung.Text = nullStr(subRpt.Fields.Item("ZLeistung").Value)
|
||
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & ex.StackTrace)
|
||
End Try
|
||
|
||
|
||
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
|
||
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmp_Verzollunspreise.pdf", ".pdf", , False)
|
||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||
rpt.Run(False)
|
||
p.Export(rpt.Document, tmpPath)
|
||
|
||
Verzollungspreise = tmpPath
|
||
rpt.Dispose()
|
||
End If
|
||
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
|
||
End Function
|
||
|
||
Shared Function VerzollungspreiseOLD(usrCntl As usrcntlVerzollungspreise) As String
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
|
||
Select Case usrCntl.MyComboBox1._value
|
||
Case "VZ_EV"
|
||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, 76, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, 84, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, 90, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, 98, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, 105, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
'txtSonderLeistungBezeichnung()
|
||
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, 171, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verzollungspreise_EV", listTowrite)
|
||
Case "VZ_RW"
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, 76, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRueckware.Text, 155, 83, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, 91, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, 97, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, 105, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, 112, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, 190, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verzollungspreise_RW", listTowrite)
|
||
Case Else 'VZ
|
||
Dim top = -4.5
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, top + 75.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, top + 83, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, top + 90, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, top + 97.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, top + 104.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
' If usrCntl.txtSonderLeistungBezeichnung.Text <> "" Then
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("8", 25, top + 126, 7, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungBezeichnung.Text, 36, top + 126, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungPreis.Text, 155, top + 126, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' End If
|
||
' If usrCntl.txtSonderLeistungBezeichnung2.Text <> "" Then
|
||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("9", 25, top + 133.5, 7, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungBezeichnung2.Text, 36, top + 133.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungPreis2.Text, 155, top + 133.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
' End If
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, top + 188.5, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VerzollungspreiseV2", listTowrite)
|
||
End Select
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
Shared Function FiskalInfoschreiben(usrCntl As usrcntlFiskalInfoschreiben) As String
|
||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||
Try
|
||
Dim bez = ""
|
||
Select Case usrCntl.BEZEICHNUNG
|
||
Case FormularManagerArten.AT_InformationsblattFiskalverzollung
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN" : bez = "Informationsblatt Fiskalverzollung AT in GB"
|
||
' Case "NL" : bez = "Informationsblatt Fiskalverzollung AT in DE"
|
||
Case "FR" : bez = "Informationsblatt Fiskalverzollung AT in FR"
|
||
Case Else
|
||
: bez = "Informationsblatt Fiskalverzollung AT in DE"
|
||
End Select
|
||
Case FormularManagerArten.DE_InformationsblattFiskalverzollung
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "NL" : bez = "Informationsblatt Fiskalverzollung DE in NL"
|
||
Case "EN" : bez = "Informationsblatt Fiskalverzollung DE in GB"
|
||
Case "FR" : bez = "Informationsblatt Fiskalverzollung DE in FR"
|
||
Case Else
|
||
: bez = "Informationsblatt Fiskalverzollung DE in DE"
|
||
End Select
|
||
End Select
|
||
|
||
|
||
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", bez)
|
||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||
|
||
Return pfadWord
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return ""
|
||
End Function
|
||
|
||
|
||
Shared Function Verzollungsunterlagen(usrCntl As usrcntlVerzollungsunterlagen, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||
Dim striList As New List(Of String)
|
||
Try
|
||
Dim nameDispo = ""
|
||
nameDispo = "VerzollungsunterlagenAG2"
|
||
Select Case usrCntl.cboFirma._value
|
||
Case "CS" : nameDispo = "VerzollungsunterlagenCS"
|
||
Case Else : nameDispo = "VerzollungsunterlagenAG2"
|
||
End Select
|
||
|
||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
|
||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||
' MsgBox(pfadWord)
|
||
Dim cGenWord As New cGenWord
|
||
|
||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||
If odoc Is Nothing Then Return striList
|
||
|
||
' Dim oTable As Word.Table
|
||
|
||
odoc.FormFields("Adresse1").Range.Text = usrCntl.txtFirma.Text
|
||
odoc.FormFields("Adresse2").Range.Text = usrCntl.txtFirma2.Text
|
||
odoc.FormFields("Adresse3").Range.Text = usrCntl.txtAdresse1.Text
|
||
odoc.FormFields("Adresse4").Range.Text = usrCntl.txtAdresse2.Text
|
||
odoc.FormFields("Adresse5").Range.Text = usrCntl.txtAdresse3.Text
|
||
|
||
odoc.FormFields("PosNr").Range.Text = usrCntl.txtPosNr.Text
|
||
|
||
odoc.FormFields("Anlage1").Range.Text = usrCntl.txtAnlage1.Text
|
||
odoc.FormFields("Anlage2").Range.Text = usrCntl.txtAnlage2.Text
|
||
odoc.FormFields("Anlage3").Range.Text = usrCntl.txtAnlage3.Text
|
||
odoc.FormFields("Anlage4").Range.Text = usrCntl.txtAnlage4.Text
|
||
odoc.FormFields("Anlage5").Range.Text = usrCntl.txtAnlage5.Text
|
||
odoc.FormFields("Anlage6").Range.Text = usrCntl.txtAnlage6.Text
|
||
|
||
|
||
odoc.FormFields("Tel").Range.Text = usrCntl.txtTel.Text
|
||
odoc.FormFields("Fax").Range.Text = usrCntl.txtFax.Text
|
||
odoc.FormFields("Email").Range.Text = usrCntl.txtEmail.Text
|
||
odoc.FormFields("Bearbeiter").Range.Text = usrCntl.txtBearbeiter.Text
|
||
odoc.FormFields("Bearbeiter2").Range.Text = usrCntl.txtBearbeiter.Text
|
||
|
||
odoc.Save() : odoc.Activate()
|
||
|
||
If openWord Then
|
||
oWord.Visible = True
|
||
Return New List(Of String)
|
||
ElseIf printReportElsePDF Then
|
||
|
||
oWord.DisplayAlerts = False
|
||
oWord.PrintOut()
|
||
Try
|
||
oWord.Documents.Close()
|
||
'Quit word application
|
||
oWord.Quit()
|
||
|
||
'Release
|
||
oWord = Nothing
|
||
Catch ex As Exception
|
||
'NIX, kann sein, dass noch offen..
|
||
End Try
|
||
|
||
Else
|
||
'oWord.Visible = True
|
||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)
|
||
|
||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||
|
||
Try
|
||
odoc.Close()
|
||
oWord.Quit()
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
End Try
|
||
striList.Add(path)
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
|
||
Return striList
|
||
End Function
|
||
|
||
|
||
Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef MailHTMLText As String, ByRef Mail_To As String, ByRef Mail_CC As String, ByRef Mail_Subject As String) As List(Of String)
|
||
Try
|
||
|
||
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
|
||
|
||
If usrCntl.KdNR > 0 Then
|
||
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
|
||
If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
|
||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
|
||
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
|
||
End If
|
||
|
||
Select Case usrCntl.cboTEXT._value
|
||
Case "AT_FISKAL"
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "DE", ""
|
||
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb"
|
||
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
|
||
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
|
||
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<b>Bitte:<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "• GUT LESBAR<br>"
|
||
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
|
||
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
|
||
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
|
||
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<b>Post Adresse:</b><br>"
|
||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||
MailHTMLText &= "POSTFACH 1013<br>"
|
||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Freundlichen Grüßen<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||
Case "EN"
|
||
|
||
Mail_Subject = "intra-community acquisition"
|
||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
|
||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
|
||
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<b>Please ensure the following:<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
|
||
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
|
||
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
|
||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
|
||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<b>Adress:</b><br>"
|
||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||
MailHTMLText &= "POSTFACH 1013<br>"
|
||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Yours faithfully,<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= cFakturierung.getSignature("EN", 11)
|
||
|
||
End Select
|
||
|
||
Case "DE_FISKAL"
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
|
||
Mail_Subject = "intra-community acquisition"
|
||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
|
||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "Yours faithfully,<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= "<br>"
|
||
MailHTMLText &= cFakturierung.getSignature("EN", 99)
|
||
|
||
End Select
|
||
|
||
'MailHTMLText &= cFakturierung.getSignature(11)
|
||
End Select
|
||
|
||
MailHTMLText &= "</div>"
|
||
'MAIL??
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||
End Try
|
||
Return New List(Of String)
|
||
End Function
|
||
|
||
|
||
|
||
Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String
|
||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||
|
||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Dim top = 0
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 33 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 38.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 43.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 130, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
Select Case usrCntl.cboSprache._value
|
||
Case "EN"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit_EN", listTowrite)
|
||
Case "FR"
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit_FR", listTowrite)
|
||
Case Else
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit", listTowrite)
|
||
End Select
|
||
|
||
End Function
|
||
|
||
|
||
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
|
||
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(usrCntl.txtFirma.Text, 32, 52, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 60, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 32, 71, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxRechnung.Checked, "x", ""), 13, 91, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxPackUrsprung.Checked, "x", ""), 13, 99, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxAusfuhr.Checked, "x", ""), 13, 107.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
Dim netto = usrCntl.txtNettoGewicht.Text
|
||
If IsNumeric(netto) Then netto = CDbl(netto).ToString("N0") & " kg"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(netto, 45, 114.5, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_EXW.Checked, "x", ""), 13, 135, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_FCA.Checked, "x", ""), 13, 139, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CPT.Checked, "x", ""), 13, 155.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIP.Checked, "x", ""), 13, 159, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIF.Checked, "x", ""), 13, 163, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DAP.Checked, "x", ""), 13, 167.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DDP.Checked, "x", ""), 13, 171, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_1.Text, 167, 138, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_2.Text, 167, 166, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_EXW.Checked, "x", ""), 13, 204, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_FCA.Checked, "x", ""), 13, 208, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CPT.Checked, "x", ""), 13, 212, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIP.Checked, "x", ""), 13, 224, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIF.Checked, "x", ""), 13, 228.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DAP.Checked, "x", ""), 13, 232, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DDP.Checked, "x", ""), 13, 236.3, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_1.Text, 167, 207, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_2.Text, 167, 232, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 12, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 125, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "QS_UeDok", listTowrite)
|
||
End Function
|
||
|
||
|
||
|
||
Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
|
||
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(usrCntl.cboCRArt.Text, 192, 44, 80, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRFrauHerr.Text, 192, 54, 15, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRGesprochenMit.Text, 207, 54, 70, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRDatum.Text, 248, 64, 25, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 153, 82, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 153, 92, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 153, 102, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLetztesBearbeitungsDatum.Text, 195, 115, 25, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBonitaetsindex.Text, 254, 113, 20, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGruendungsdatum.Text, 172, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUmsatz.Text, 210, 125, 35, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMitarbeiter.Text, 260, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBankverbindung.Text, 185, 137, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsweise.Text, 182, 147, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHoechstkredit.Text, 182, 157, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGeschaeftsfuehrerName.Text, 182, 167, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstiges.Text, 182, 177, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
|
||
If usrCntl.cbxInKundendatenSpeichern.Checked Then
|
||
If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
|
||
If IsNumeric(usrCntl.KdNR) AndAlso usrCntl.KdNR > 0 Then
|
||
saveCreditreform(usrCntl)
|
||
Else
|
||
MsgBox("Fehler: Keine KundenNr ausgewählt - speichern abgebrochen.")
|
||
End If
|
||
End If
|
||
End If
|
||
|
||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Bonitaetsauskunft", listTowrite)
|
||
End Function
|
||
|
||
Public Shared Function getUO2() As String
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
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)
|
||
|
||
|
||
If cBonitaetsauskunft Is Nothing Then
|
||
cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
|
||
ElseIf vbYes <> MsgBox("Es wurde heute um '" & cBonitaetsauskunft.ba_Datum.ToShortTimeString & "' bereits eine Bonitätsauskunft für den Kunden eingeholt, möchten Sie diese überschreiben?", vbYesNoCancel) Then
|
||
Return False
|
||
End If
|
||
|
||
cBonitaetsauskunft.ba_KundenNr = (usrCntl.KdNR)
|
||
cBonitaetsauskunft.ba_CRAnsprechpartnerHerrFrau = (usrCntl.cboCRFrauHerr._value)
|
||
cBonitaetsauskunft.ba_CRAnsprechpartner = (usrCntl.txtCRGesprochenMit.Text)
|
||
cBonitaetsauskunft.ba_CRArt = (usrCntl.cboCRArt._value)
|
||
cBonitaetsauskunft.ba_Datum = cProgramFunctions.isLeerNothing(usrCntl.txtCRDatum._value)
|
||
|
||
cBonitaetsauskunft.ba_Firma = usrCntl.txtFirma.Text
|
||
cBonitaetsauskunft.ba_Adresse1 = usrCntl.txtAdresse1.Text
|
||
cBonitaetsauskunft.ba_Adresse2 = usrCntl.txtAdresse2.Text
|
||
cBonitaetsauskunft.ba_LetztesBearbeitungsDatum = cProgramFunctions.isLeerNothing(usrCntl.txtLetztesBearbeitungsDatum._value)
|
||
cBonitaetsauskunft.ba_BonitaetsIndex = If(IsNumeric(usrCntl.txtBonitaetsindex.Text), usrCntl.txtBonitaetsindex.Text, 0)
|
||
cBonitaetsauskunft.ba_GruendundsDatum = cProgramFunctions.isLeerNothing(usrCntl.txtGruendungsdatum._value)
|
||
|
||
Dim umsatz = usrCntl.txtUmsatz.Text
|
||
If IsNumeric(usrCntl.txtUmsatz.Text) Then
|
||
umsatz = CDbl(usrCntl.txtUmsatz.Text).ToString("N2")
|
||
End If
|
||
cBonitaetsauskunft.ba_Umsatz = cProgramFunctions.isLeerNothing(umsatz)
|
||
cBonitaetsauskunft.ba_Mitarbeiter = cProgramFunctions.isLeerNothing(usrCntl.txtMitarbeiter.Text)
|
||
cBonitaetsauskunft.ba_Bankverbindung = usrCntl.txtBankverbindung.Text
|
||
cBonitaetsauskunft.ba_Zahlungsweise = usrCntl.txtZahlungsweise.Text
|
||
cBonitaetsauskunft.ba_Hoechstkredit = cProgramFunctions.isLeerNothingDbl(usrCntl.txtHoechstkredit._value)
|
||
cBonitaetsauskunft.ba_GFName = usrCntl.txtGeschaeftsfuehrerName.Text
|
||
cBonitaetsauskunft.ba_Sonstiges = usrCntl.txtSonstiges.Text
|
||
cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||
cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||
|
||
If cBonitaetsauskunft.SAVE Then
|
||
usrCntl.lblCRsaved.Text = "(gespeichert)"
|
||
usrCntl.lblCRsaved.ForeColor = Color.Green
|
||
VSQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
|
||
Return True
|
||
Else
|
||
Return False
|
||
End If
|
||
|
||
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
Return False
|
||
End Try
|
||
End Function
|
||
|
||
|
||
Shared Function saveVorauskasse(usrCntl As usrcntlVorauskasse) As Boolean
|
||
Try
|
||
If Not IsNumeric(usrCntl.cboFiliale._value) Then Return False
|
||
If Not IsNumeric(usrCntl.txtAbfertigungsNr.Text) Then Return False
|
||
|
||
Dim cVorauskasse As VERAG_PROG_ALLGEMEIN.cVorauskasse = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(usrCntl.cboFiliale._value, usrCntl.txtAbfertigungsNr.Text, usrCntl.ROLLE)
|
||
|
||
|
||
If cVorauskasse Is Nothing Then
|
||
cVorauskasse = New VERAG_PROG_ALLGEMEIN.cVorauskasse
|
||
ElseIf vbYes <> MsgBox("Es wurde am '" & cVorauskasse.vk_Datum.ToShortDateString & "' um '" & cVorauskasse.vk_Datum.ToShortTimeString & "' bereits eine Vorauskasse mit dieser Abfertigungsnummer angefordert, möchten Sie diese überschreiben?", vbYesNoCancel) Then
|
||
Return False
|
||
End If
|
||
|
||
cVorauskasse.vk_KdNr = If(usrCntl.KdNR > 0, usrCntl.KdNR, Nothing)
|
||
|
||
cVorauskasse.vk_FilialeNr = usrCntl.cboFiliale._value
|
||
cVorauskasse.vk_AbfertigungsNr = usrCntl.txtAbfertigungsNr.Text
|
||
cVorauskasse.vk_Datum = Now
|
||
cVorauskasse.vk_LKW = usrCntl.txtLKWKennz.Text
|
||
|
||
cVorauskasse.vk_Firma = usrCntl.txtFirma.Text
|
||
cVorauskasse.vk_Betrag = CDbl(usrCntl.txtGesamtsumme._value)
|
||
cVorauskasse.vk_QS_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||
cVorauskasse.vk_QS_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||
cVorauskasse.vk_QS_Bemerkung = usrCntl.txtVKVermerk.Text
|
||
'cVorauskasse.vk_GeldEingetroffen = usrCntl.XXXXXXX
|
||
'cVorauskasse.vk_BH_SachbearbeiterId = usrCntl.XXXXXXX
|
||
'cVorauskasse.vk_BH_Sachbearbeiter = usrCntl.XXXXXXX
|
||
'cVorauskasse.vk_BH_Bemerkung = usrCntl.XXXXXXX
|
||
'cVorauskasse.vk_BH_DatumGeldeingang = usrCntl.XXXXXXX
|
||
|
||
usrCntl.getValues(cVorauskasse)
|
||
|
||
If cVorauskasse.SAVE Then
|
||
usrCntl.lblCRsaved.Text = "(gespeichert)"
|
||
usrCntl.lblCRsaved.ForeColor = Color.Green
|
||
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
|
||
|
||
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13)
|
||
|
||
Return True
|
||
Else
|
||
Return False
|
||
End If
|
||
|
||
|
||
Catch ex As Exception
|
||
MsgBox("SaveVK: " & ex.Message)
|
||
Return False
|
||
End Try
|
||
End Function
|
||
|
||
|
||
Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Select Case language
|
||
Case "EN", "FR"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following invoice:", "This power of attorney is valid only for the following invoice:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
If small Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.: _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
End If
|
||
Case Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgende Rechnung:", "Diese Vollmacht ist nur für folgende Rechnung gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
If small Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Nr.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
End If
|
||
End Select
|
||
Return listTowrite
|
||
End Function
|
||
|
||
Shared Function addEinmaligeVMCarnetATA(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, CarnetATAr As String, XXXX As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||
Select Case language
|
||
Case "EN"
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following Carnet-ATA:", "This power of attorney is valid only for the following Carnet-ATA:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
If small Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.: _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
End If
|
||
Case Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgendes Carnet-ATA:", "Diese Vollmacht ist nur für folgendes Carnet-ATA gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
If small Then
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
Else
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||
End If
|
||
End Select
|
||
Return listTowrite
|
||
End Function
|
||
|
||
|
||
Public Shared Function MergePdfFiles(ByVal fileNames As List(Of String), ByVal targetPdf As String) As Boolean
|
||
Dim merged As Boolean = True
|
||
Using stream As FileStream = New FileStream(targetPdf, FileMode.Create)
|
||
Dim document As New iTextSharp.text.Document
|
||
Dim pdf As PdfCopy = New PdfCopy(document, stream)
|
||
Dim reader As PdfReader = Nothing
|
||
Try
|
||
document.Open()
|
||
For Each file As String In fileNames
|
||
reader = New PdfReader(file)
|
||
pdf.AddDocument(reader)
|
||
reader.Close()
|
||
Next
|
||
Catch __unusedException1__ As Exception
|
||
merged = False
|
||
If reader IsNot Nothing Then
|
||
reader.Close()
|
||
End If
|
||
|
||
Finally
|
||
If document IsNot Nothing Then
|
||
document.Close()
|
||
End If
|
||
End Try
|
||
End Using
|
||
|
||
Return merged
|
||
End Function
|
||
|
||
'ALT: Hier kam es zum komischen Problemen bei einem PDF: es wurde eine alte Verison ausgegeben, obwohl die alten texte nicht ersichtlich waren?? --> Infoschreiben Fiskal
|
||
Public Shared Function MergePdfFiles2ALT(ByVal pdfFiles As List(Of String), ByVal outputPath As String) As Boolean
|
||
Dim result As Boolean = False
|
||
Dim pdfCount As Integer = 0 'total input pdf file count
|
||
Dim f As Integer = 0 'pointer to current input pdf file
|
||
Dim fileName As String
|
||
Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
|
||
Dim pageCount As Integer = 0
|
||
Dim pdfDoc As iTextSharp.text.Document = Nothing 'the output pdf document
|
||
Dim writer As PdfWriter = Nothing
|
||
Dim cb As PdfContentByte = Nothing
|
||
|
||
Dim page As PdfImportedPage = Nothing
|
||
Dim rotation As Integer = 0
|
||
|
||
Try
|
||
pdfCount = pdfFiles.Count
|
||
If pdfCount > 1 Then
|
||
'Open the 1st item in the array PDFFiles
|
||
fileName = pdfFiles(f)
|
||
reader = New iTextSharp.text.pdf.PdfReader(fileName)
|
||
'Get page count
|
||
pageCount = reader.NumberOfPages
|
||
pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18)
|
||
writer = PdfWriter.GetInstance(pdfDoc, New FileStream(outputPath, FileMode.OpenOrCreate))
|
||
|
||
With pdfDoc
|
||
.Open()
|
||
End With
|
||
'Instantiate a PdfContentByte object
|
||
cb = writer.DirectContent
|
||
'Now loop thru the input pdfs
|
||
While f < pdfCount
|
||
'Declare a page counter variable
|
||
Dim i As Integer = 0
|
||
'Loop thru the current input pdf's pages starting at page 1
|
||
While i < pageCount
|
||
i += 1
|
||
'Get the input page size
|
||
pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i))
|
||
'Create a new page on the output document
|
||
pdfDoc.NewPage()
|
||
'If it is the 1st page, we add bookmarks to the page
|
||
'Now we get the imported page
|
||
page = writer.GetImportedPage(reader, i)
|
||
'Read the imported page's rotation
|
||
rotation = reader.GetPageRotation(i)
|
||
'Then add the imported page to the PdfContentByte object as a template based on the page's rotation
|
||
If rotation = 90 Then
|
||
cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height)
|
||
ElseIf rotation = 270 Then
|
||
cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30)
|
||
Else
|
||
cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
|
||
End If
|
||
End While
|
||
'Increment f and read the next input pdf file
|
||
f += 1
|
||
If f < pdfCount Then
|
||
fileName = pdfFiles(f)
|
||
reader = New iTextSharp.text.pdf.PdfReader(fileName)
|
||
pageCount = reader.NumberOfPages
|
||
End If
|
||
End While
|
||
'When all done, we close the document so that the pdfwriter object can write it to the output file
|
||
pdfDoc.Close()
|
||
|
||
result = True
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
||
Return False
|
||
End Try
|
||
Return result
|
||
End Function
|
||
|
||
|
||
Shared Sub OPEN_FORM(PDFArt As String)
|
||
Dim f As New frmFormulare(PDFArt) : f.Show()
|
||
End Sub
|
||
|
||
Shared Sub OPEN_FORM(KdNr As Integer, Optional param() As Object = Nothing)
|
||
Dim f As New frmFormulare(KdNr) : f.Show()
|
||
End Sub
|
||
|
||
Shared Sub OPEN_FORM(PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
|
||
Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
|
||
f.Show()
|
||
|
||
End Sub
|
||
|
||
Shared Sub OPEN_FORM(FORM As Form, PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
|
||
Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
|
||
f.Show(FORM)
|
||
|
||
End Sub
|
||
End Class
|
||
|
||
Public Interface FormualrInterface
|
||
Sub ChangeKDNr(kdnr As Integer)
|
||
End Interface
|
||
|
||
|
||
Public Class FormularManagerArten
|
||
' Implements IReadOnlyCollection(Of String)
|
||
|
||
Shared Property DE_Vollmacht = "DE_Vollmacht"
|
||
|
||
Shared Property DE_Fiskal = "DE_Fiskal"
|
||
Shared Property AT_Vollmacht = "AT_Vollmacht"
|
||
Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV"
|
||
Shared Property AT_Fiskal = "AT_Fiskal"
|
||
|
||
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
|
||
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
|
||
|
||
Shared Property VUB_AG = "VUB_AG"
|
||
Shared Property VUB_IMEX = "VUB_IMEX"
|
||
Shared Property VUB_CS = "VUB_CS"
|
||
Shared Property Importaviso_VK = "Importaviso_VK"
|
||
Shared Property Gestellungsgarantie = "Gestellungsgarantie"
|
||
Shared Property Verzollungspreise = "Verzollungspreise"
|
||
Shared Property Boniteatsauskunft = "Boniteatsauskunft"
|
||
Shared Property Sonst_PDF = "Sonst_PDF"
|
||
Shared Property DispoListe = "DispoListe"
|
||
Shared Property VerpflichtungserklärungFahrer = "VerpflichtungserklärungFahrer"
|
||
Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung"
|
||
Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
|
||
Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
|
||
Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
|
||
Shared Property QS_UeDok = "QS_UeDok"
|
||
Shared Property SA_Gestellung = "SA_Gestellung"
|
||
Shared Property Importaviso = "Importaviso"
|
||
Shared Property Verbundenheit = "Verbundenheit"
|
||
|
||
Shared Property Sendungsliste = "Sendungsliste"
|
||
|
||
|
||
|
||
End Class
|
||
|
||
|
||
|
||
Public Class FormularVorlagenGruppe
|
||
' Implements IReadOnlyCollection(Of String)
|
||
Shared Property NeukundeAT = "NeukundeAT"
|
||
Shared Property NeukundeDE = "NeukundeDE"
|
||
Shared Property NeukundeATFiskal = "NeukundeATFiskal"
|
||
Shared Property NeukundeDEFiskal = "NeukundeDEFiskal"
|
||
|
||
|
||
Shared Property NeukundeAT_IMEX = "NeukundeAT_IMEX"
|
||
Shared Property NeukundeDE_IMEX = "NeukundeDE_IMEX"
|
||
Shared Property NeukundeATFiskal_IMEX = "NeukundeATFiskal_IMEX"
|
||
Shared Property NeukundeDEFiskal_IMEX = "NeukundeDEFiskal_IMEX"
|
||
End Class
|
||
|
||
Public NotInheritable Class FormularManagerArten2
|
||
Inherits System.Object
|
||
|
||
Shared Property DE_Vollmacht = "DE_Vollmacht"
|
||
|
||
End Class
|
||
|
||
'Member von System.Windows.Forms
|