Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
|
||||
Imports System.Runtime.Serialization
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports itextsharp.text.pdf
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -12,6 +13,7 @@ Public Class usrcntlCreditsafe
|
||||
Public comp As Company
|
||||
Dim uidDefault As String
|
||||
Public createCostumer As Boolean = False
|
||||
Dim creditsafeAPI As New cCreditSafeAPI("creditsafe")
|
||||
Sub New()
|
||||
|
||||
InitializeComponent()
|
||||
@@ -35,12 +37,14 @@ Public Class usrcntlCreditsafe
|
||||
End Sub
|
||||
|
||||
Private Sub init()
|
||||
user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser
|
||||
pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd
|
||||
|
||||
user = creditsafeAPI.dataTablecs.Rows(0).Item("api_user")
|
||||
pw = creditsafeAPI.dataTablecs.Rows(0).Item("api_password")
|
||||
|
||||
|
||||
'Zugangsdaten hartcoded, da Webservice-User nicht Mitarbeiterabhängig ist!!!
|
||||
user = "creditsafe@verag.ag"
|
||||
pw = "^AZcBVTBUIHTT5SQ1C9OOH"
|
||||
'user = "creditsafe@verag.ag"
|
||||
'pw = "^AZcBVTBUIHTT5SQ1C9OOH"
|
||||
|
||||
cboLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " &
|
||||
" FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
|
||||
@@ -98,10 +102,10 @@ Public Class usrcntlCreditsafe
|
||||
|
||||
dataTable.Clear()
|
||||
|
||||
Dim cs = New cCreditSafeAPI()
|
||||
Dim cs = New cCreditSafeAPI("creditsafe")
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
If cs.authenticate(user, pw) = "200" Then
|
||||
If cs.authenticate() = "200" Then
|
||||
|
||||
Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "")
|
||||
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
|
||||
|
||||
@@ -2327,7 +2327,7 @@ Public Class cFakturierung
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") As Boolean
|
||||
Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False) As Boolean
|
||||
'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
|
||||
|
||||
Dim dt As DataTable
|
||||
@@ -3073,7 +3073,7 @@ Public Class cFakturierung
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False, Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False, Optional VorschauID As String = "", Optional mergePDF As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
|
||||
Try
|
||||
|
||||
|
||||
|
||||
7
SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
generated
7
SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
generated
@@ -83,6 +83,7 @@ Partial Class frmAbrechnungsMaske
|
||||
Me.btnBisJahr = New System.Windows.Forms.Button()
|
||||
Me.btnVonJahr = New System.Windows.Forms.Button()
|
||||
Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
@@ -902,6 +903,11 @@ Partial Class frmAbrechnungsMaske
|
||||
Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615)
|
||||
Me.UsrCntlFaktAbrechnung1.TabIndex = 0
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'frmAbrechnungsMaske
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -989,4 +995,5 @@ Partial Class frmAbrechnungsMaske
|
||||
Public WithEvents cboSort As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbxOriginalDrucken As CheckBox
|
||||
Friend WithEvents Button11 As Button
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
End Class
|
||||
|
||||
@@ -117,6 +117,9 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@@ -688,16 +688,50 @@ Public Class frmAbrechnungsMaske
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnWiederholeRgDruck.Click
|
||||
Dim SR_RechnungsNr = InputBox("SR-Nummer eingeben: ")
|
||||
|
||||
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("1") Then
|
||||
Dim print = New ToolStripMenuItem() With {.Text = "Drucken", .Name = "1", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler print.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(print)
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("2") Then
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "E-Mail", .Name = "2", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip1.Items.Add(mail)
|
||||
AddHandler mail.Click, AddressOf mnuItem_Clicked
|
||||
End If
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("3") Then
|
||||
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "3", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler pdf.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(pdf)
|
||||
End If
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Dim id = 3 'default per PDF
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then id = item.Name
|
||||
|
||||
Dim SR_RechnungsNr = InputBox("SR-Nummer eingeben: ", "Rechnungsdruck - " & IIf(item.Text IsNot Nothing, item.Text, "PDF"))
|
||||
If IsNumeric(SR_RechnungsNr) Then
|
||||
Dim RK_ID = SQL.getValueTxtBySql("SELECT TOP 1 RK_ID FROM Rechnungsausgang WHERE RechnungsNr='" & SR_RechnungsNr & "' AND Firma_ID='" & cboFirma._value & "' ORDER BY DruckDatumZeit DESC", "FMZOLL")
|
||||
If IsNumeric(RK_ID) Then
|
||||
Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
|
||||
If RG_TMP IsNot Nothing Then
|
||||
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , 3,, True)
|
||||
Dim RK_ID = SQL.getValueTxtBySql("SELECT TOP 1 RK_ID FROM Rechnungsausgang WHERE RechnungsNr='" & SR_RechnungsNr & "' AND Firma_ID='" & cboFirma._value & "' ORDER BY DruckDatumZeit DESC", "FMZOLL")
|
||||
If IsNumeric(RK_ID) Then
|
||||
Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
|
||||
If RG_TMP IsNot Nothing Then
|
||||
'id mitübergeben (1_> drucken, 2 Email, 3 PDF)
|
||||
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , id,, True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
|
||||
@@ -187,7 +187,7 @@ Public Class frmFormulare
|
||||
|
||||
End Try
|
||||
|
||||
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
|
||||
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and txt_dynMailvorlage = 0 and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
@@ -1481,17 +1481,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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.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, 81, 90, 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, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1521,17 +1521,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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.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, 90, 6, "bold", 8, , 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, 90, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim top = 0
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
@@ -1561,22 +1561,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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.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.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", 8, , 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))
|
||||
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", 8, , 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)
|
||||
@@ -3097,7 +3097,7 @@ Public Class FormularManagerNEU
|
||||
Case "NKD" : ort = "Nickelsdorf"
|
||||
Case "NEU" : ort = "Neuhaus am Inn"
|
||||
End Select
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
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))
|
||||
|
||||
@@ -3117,24 +3117,24 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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))
|
||||
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))
|
||||
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.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, 90, 6, "bold", 8, , 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, 90, 6, "bold", 8, , 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)
|
||||
@@ -3198,19 +3198,19 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Stufe " & stufe, 73, 86.5, 150, 10, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfrageDatum.ToShortDateString & " " & abfrageDatum.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(uidAbfrage, ""), 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(firma, ""), 73, 133, 150, 30, If(If(firma, "").ToString.StartsWith("*"), "normal", "bold"), 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(tid, ""), 73, 163, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(SB <> "", SB, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME), 73, 179, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(sessionID, ""), 73, 191, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
|
||||
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "UID_Prufung", listTowrite)
|
||||
@@ -3232,17 +3232,17 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
|
||||
@@ -3262,28 +3262,28 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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))
|
||||
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))
|
||||
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.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, 80, 6, "bold", 8, , 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(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, 80, 6, "bold", 8, , 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))
|
||||
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)
|
||||
@@ -3310,18 +3310,18 @@ Public Class FormularManagerNEU
|
||||
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))
|
||||
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))
|
||||
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, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
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, 80, 6, "bold", 8, , 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)
|
||||
@@ -3332,22 +3332,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
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))
|
||||
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))
|
||||
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))
|
||||
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 ""
|
||||
@@ -3361,25 +3361,25 @@ Public Class FormularManagerNEU
|
||||
|
||||
' 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.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, 80, 6, "bold", 8, , 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, 80, 6, "bold", 8, , 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))
|
||||
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))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3398,25 +3398,25 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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, 80, 6, "bold", 8, , 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, 80, 6, "bold", 8, , 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))
|
||||
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))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3451,28 +3451,28 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 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.cbxZahlungsaufschub.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
If usrCntl.cbxPostponed._value = "JA" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3506,28 +3506,28 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80 + add, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87 + add, 71, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 133, 87 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93 + add, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99 + add, 80, 6, "bold", 8, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 99 + add, 70, 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.cbxZahlungsaufschub.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsaufschung.Text, 55, 109 + add, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
If usrCntl.cbxPostponed._value = "JA" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
@@ -3560,103 +3560,103 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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.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, 80, 6, "bold", 8, , 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, 80, 6, "bold", 8, , 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.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.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))
|
||||
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))
|
||||
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))
|
||||
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
|
||||
|
||||
Dim w = ""
|
||||
If usrCntl.cboFirma._value = "26" Then
|
||||
w = "GBP" 'VERAG-UNISPED LTD
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Document-Date: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vorauskasse-Datum: " & Now.ToShortDateString, 100, 185.7, 100, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 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(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 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(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblRechnungsbetrag.Text, w), 70, top + 0, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtFrachtkostenAusl.Text, w), 70, top + 4, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZwischensumme.Text, w), 70, top + 8.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll.Text, w), 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(chWrg(usrCntl.txtFrachtkostenInl.Text, w), 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(chWrg(usrCntl.txtEustSonstBetrag.Text, w), 70, top + 20.5, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSumme.Text, w), 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(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
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(chWrg(usrCntl.txtEUST.Text, w), 70, top + 29, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
top = 209
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 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(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtZoll2.Text, w), 170, top + 0, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtEust2.Text, w), 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(chWrg(usrCntl.txtAndereAbgabenBetrag.Text, w), 170, top + 8, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtVerzollungskosten.Text, w), 170, top + 13, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtWeitereTarifPos.Text, w), 170, top + 17, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtATLAS.Text, w), 170, top + 21, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtClearing.Text, w), 170, top + 25, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtKorrRechnung.Text, w), 170, top + 29, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtUebersetzungRg.Text, w), 170, top + 33, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtAviso.Text, w), 170, top + 37, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSvs.Text, w), 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(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtPapierePorti.Text, w), 170, top + 45, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtSonstigeKosten.Text, w), 170, top + 49, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtMWST.Text, w), 170, top + 53, 30, 6, "normal", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.lblWaehrung.Text, w), 140, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(chWrg(usrCntl.txtGesamtsumme.Text, w), 170, top + 61, 30, 6, "bold", 10, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("WICHTIGER HINWEIS:", 12, 250, 70, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("WICHTIGER HINWEIS:", 12, 250, 70, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
Dim cbamTxt = "Ab 01.10.2023 wurde eine Meldepflicht (CBAM) beim Import bestimmter Waren aus Drittländern eingeführt. Sie als Importeur sind für diese Meldung eigenverantwortlich. Informationen unter www.zoll.de oder www.customs-consulting.at Stichwort CBAM"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(cbamTxt, 12, 258, 180, 30, "bold", 13, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(cbamTxt, 12, 258, 180, 30, "bold", 13, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
|
||||
|
||||
|
||||
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))
|
||||
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
|
||||
@@ -3741,31 +3741,31 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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.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, 80, 6, "bold", 8, , 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, 80, 6, "bold", 8, , 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))
|
||||
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.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))
|
||||
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))
|
||||
|
||||
|
||||
|
||||
@@ -3788,7 +3788,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
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))
|
||||
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
|
||||
@@ -3812,23 +3812,23 @@ Public Class FormularManagerNEU
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = 3
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 57 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 62 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 145, 72 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 57 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 62 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 145, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollagent.Text, 40, 82 + top, 55, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrächter.Text, 40, 88 + top, 55, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 40, 93 + top, 55, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb1.Text, 40, 98 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb2.Text, 40, 103 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollagent.Text, 40, 82 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrächter.Text, 40, 88 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 40, 93 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb1.Text, 40, 98 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb2.Text, 40, 103 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 135, 82 + top, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 135, 82 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim newTimeZoll1 As DateTime
|
||||
If usrCntl.txtDurationZoll1.Text <> "" Then
|
||||
@@ -3848,15 +3848,15 @@ Public Class FormularManagerNEU
|
||||
newTimeZoll2 = newTimeZoll2.AddMinutes(newDuration.ToString("mm"))
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInfo.Text, 16, 120 + top, 135, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInfo.Text, 16, 120 + top, 135, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'Sendungsdaten
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 132, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 28, 136 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 132, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 28, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
@@ -3866,16 +3866,16 @@ Public Class FormularManagerNEU
|
||||
Dim x = 154
|
||||
For i As Integer = 0 To usrCntl.dgvPositionen.Rows.Count() - 1
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("pos").Value, 17, x + top, 10, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("leistung").Value, 24, x + top, 138, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("stk").Value, 165, x + top, 20, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("preis").Value, 185, x + top, 20, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("pos").Value, 17, x + top, 10, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("leistung").Value, 24, x + top, 138, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("stk").Value, 165, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("preis").Value, 185, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
x += 5
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblgesamtpreis.Text, 150, 217 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblgesamtpreis.Text, 150, 217 + top, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
Dim ort As String = ""
|
||||
@@ -3885,7 +3885,7 @@ Public Class FormularManagerNEU
|
||||
End Select
|
||||
|
||||
'Signatur
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", " & Date.Today.ToString("dd.MM.yyyy"), 17, 267 + top, 200, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", " & Date.Today.ToString("dd.MM.yyyy"), 17, 267 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
@@ -3905,40 +3905,40 @@ Public Class FormularManagerNEU
|
||||
|
||||
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.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, 80, 6, "bold", 8, , 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.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, 80, 6, "bold", 8, , 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))
|
||||
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.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 228, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 237, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 246, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
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.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 230, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 239, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 247, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
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.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung1.Text, 56, 223, 130, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung2.Text, 26, 232, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnmerkung3.Text, 26, 242, 160, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
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
|
||||
|
||||
@@ -4285,15 +4285,15 @@ Public Class FormularManagerNEU
|
||||
|
||||
If pages = 0 Then 'Keine Pos!
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Dim qualiForm = fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", list, listTowrite,,,,,, False)
|
||||
If qualiForm <> "" Then QUALIlist.Add(qualiForm)
|
||||
Else
|
||||
'POS>0
|
||||
For i As Integer = 1 To pages
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Seite " & i & "/" & pages, 160, 5, 40, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Seite " & i & "/" & pages, 160, 5, 40, 6, "bold", 14, , itextsharp.text.Element.ALIGN_RIGHT))
|
||||
|
||||
Dim dgvVon = (i - 1) * 10 ' Start der Seite in der DGV
|
||||
Dim listPos As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
@@ -4301,8 +4301,8 @@ Public Class FormularManagerNEU
|
||||
' If i = 1 Then 'zt jed
|
||||
'BisherigeFelder in listPOSladen:
|
||||
For Each p In list
|
||||
listPos.Add(p)
|
||||
Next
|
||||
listPos.Add(p)
|
||||
Next
|
||||
' End If
|
||||
|
||||
For ii As Integer = 0 To 9
|
||||
@@ -4478,46 +4478,46 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 166, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 177, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 166, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 177, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 147, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 210, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 210, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
|
||||
|
||||
|
||||
Else
|
||||
Else
|
||||
|
||||
If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
End If
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 110, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 216, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 238, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 216, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 226, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 238, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 205, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 191, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 191, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 184, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
|
||||
|
||||
End If
|
||||
|
||||
@@ -4525,8 +4525,8 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "EORI_Antrag_EN", listTowrite)
|
||||
Case "EN"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "EORI_Antrag_EN", listTowrite)
|
||||
|
||||
Case Else
|
||||
If usrCntl.cboPrivatperson.Checked Then
|
||||
@@ -4544,7 +4544,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
|
||||
Return ""
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
@@ -4983,7 +4983,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "beiliegend erhalten Sie eine Liste der Sendungen, bei denen eine FIskalverzollung durchgeführt wurde.<br>"
|
||||
MailHTMLText &= "beiliegend erhalten Sie eine Liste der Sendungen, bei denen eine Fiskalverzollung durchgeführt wurde.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Die Aufstellung dient als Verbringungsnachweis der Ware, wir bitten Sie das Eingangsdatum der Sendung auszufüllen und das Formular mit Firmenstempel, Unterschrift und aktuellem Datum zu bestätigen.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
@@ -5011,6 +5011,10 @@ Public Class FormularManagerNEU
|
||||
MailHTMLText &= "Postfach 1013<br>"
|
||||
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<font color=""red"">"
|
||||
MailHTMLText &= "<b>Wir bitten Sie, uns den Ablieferungsnachweis schnellst möglich per Post zukommen zu lassen, da wir jederzeit mit einer Zollprüfung rechnen müssen!</b><br>"
|
||||
MailHTMLText &= "<b>Sollten wir den Abliefernachweis dann nicht vorlegen können, bekommen wir die EUST (Mehrwertsteuer 20 %) und SÄUMNISZINSEN von der Zollbehörde belastet, und müssten diese Kosten an Sie, als unseren Auftraggeber, weiter verrechnen!</b><br>"
|
||||
MailHTMLText &= "</font></b><br>"
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
|
||||
@@ -105,6 +105,10 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\VERAG_PROG_ALLGEMEIN\bin\Debug\ChilkatDotNet47.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll</HintPath>
|
||||
@@ -637,6 +641,12 @@
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmdynMailvorlage.Designer.vb">
|
||||
<DependentUpon>frmdynMailvorlage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmdynMailvorlage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmEssensbestellungen.Designer.vb">
|
||||
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3137,6 +3147,9 @@
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
|
||||
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmdynMailvorlage.resx">
|
||||
<DependentUpon>frmdynMailvorlage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmEssensbestellungen.resx">
|
||||
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -33,7 +33,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
.SET_SQL("SELECT [UStVAn_ID] ,[UStVPo_ID] ,[UStVPo_ReDat],[UStVPo_ReNr],[UStVPo_Leistungsbezeichnung],[UStVPo_Leistender],leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as [UstV_Leistender_Strasse],leist.[UstV_Leistender_PLZ],leist.[UstV_Leistender_Stadt],leist.[UstV_Leistender_Land],leist.[UstV_Leistender_UstNr],[UStVPo_USteuerbetrag],[UStVPo_Schnittstelle],[UStVPo_SchnittstellenNr],[UStVPo_Umrechnungskurs],[UStVPo_USteuerbetragEUR],[UStVPo_Sachbearbeiter]
|
||||
FROM [tblUStVPositionen]
|
||||
inner join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
|
||||
left join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
|
||||
where UStVAn_ID='" & UStVAn_ID & "' ORDER BY UStVPo_ID", "FMZOLL")
|
||||
.LOAD()
|
||||
.RowTemplate.Height = 20
|
||||
@@ -468,16 +468,16 @@ Public Class frmMDM_USTVAntrag
|
||||
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("excel") Then
|
||||
Dim uploadPictures = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip1.Items.Add(uploadPictures)
|
||||
AddHandler uploadPictures.Click, AddressOf mnuItem_Clicked
|
||||
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
ContextMenuStrip1.Items.Add(excel)
|
||||
AddHandler excel.Click, AddressOf mnuItem_Clicked
|
||||
End If
|
||||
|
||||
|
||||
If Not ContextMenuStrip1.Items.ContainsKey("mail") Then
|
||||
Dim copyToClipboard = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler copyToClipboard.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(copyToClipboard)
|
||||
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler mail.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(mail)
|
||||
End If
|
||||
|
||||
|
||||
@@ -508,10 +508,11 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Private Function excelAuswertung(ByRef Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
|
||||
|
||||
Dim sqlStr = "SELECT [UStVPo_ReDat] as InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, 'Verag 360 GmbH' as Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
|
||||
Dim sqlStr = "SELECT [UStVPo_ReDat] as InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name as Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
|
||||
FROM [tblUStVPositionen]
|
||||
inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
|
||||
where UStVAn_ID ='" & UStVAn_ID & "' ORDER BY UStVPo_ID"
|
||||
inner join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID
|
||||
where [tblUStVPositionen].UStVAn_ID ='" & UStVAn_ID & "' ORDER BY UStVPo_ID"
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
||||
|
||||
@@ -540,8 +541,12 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End If
|
||||
|
||||
Dim subject As String = ""
|
||||
subject &= IIf(USTV_ANTRAG.UStVAn_Name <> "", USTV_ANTRAG.UStVAn_Name & "_", "")
|
||||
subject &= IIf(USTV_ANTRAG.UStVAn_LandKz <> "", USTV_ANTRAG.UStVAn_LandKz & "_", "")
|
||||
subject &= IIf(USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing, CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & "-" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString, "")
|
||||
|
||||
Mail.Subject = USTV_ANTRAG.UStVAn_Name & "_" & USTV_ANTRAG.UStVAn_LandKz & "_" & USTV_ANTRAG.UStVAn_ReDatVon & "-" & USTV_ANTRAG.UStVAn_ReDatBis
|
||||
Mail.Subject = subject
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Ladies and Gentlemen,<br>"
|
||||
|
||||
@@ -293,19 +293,23 @@ Public Class usrCntlUSTV
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function excelAuswertung(Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
|
||||
Private Function excelAuswertung(Optional ByRef filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
|
||||
|
||||
Dim sqlStr = "SELECT [UStVPo_ReDat] as InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, 'Verag 360 GmbH' as Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
|
||||
Dim sqlStr = "SELECT [UStVPo_ReDat] as InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name as Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
|
||||
FROM [tblUStVPositionen]
|
||||
inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
|
||||
where UStVAn_ID ='" & dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value & "' ORDER BY UStVPo_ID"
|
||||
inner join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID
|
||||
where [tblUStVPositionen].UStVAn_ID ='" & dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value & "' ORDER BY UStVPo_ID"
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
|
||||
filepath = ""
|
||||
|
||||
'filepath = ""
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel)
|
||||
Return True
|
||||
Else
|
||||
MsgBox("Keine Daten!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
End Function
|
||||
@@ -313,33 +317,48 @@ Public Class usrCntlUSTV
|
||||
Private Sub mailmitExcelauswertung()
|
||||
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
Dim filepath = ""
|
||||
If excelAuswertung(filepath, False, False) Then
|
||||
If dgvUSTV.Columns.Count > 0 Then
|
||||
|
||||
Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Dim subject As String = ""
|
||||
subject &= IIf(dgvUSTV.CurrentRow.Cells("UStVAn_Name").Value <> "", dgvUSTV.CurrentRow.Cells("UStVAn_Name").Value & "_", "")
|
||||
'subject &= If(dgvUSTV.CurrentRow.Cells("UStVAn_LandKz").Value <> "", dgvUSTV.CurrentRow.Cells("UStVAn_LandKz").Value & "_")
|
||||
If (dgvUSTV.CurrentRow.Cells("UStVAn_ReDatVon").Value IsNot Nothing AndAlso dgvUSTV.CurrentRow.Cells("UStVAn_ReDatBis").Value IsNot Nothing) Then
|
||||
subject &= CDate(dgvUSTV.CurrentRow.Cells("UStVAn_ReDatVon").Value).ToShortDateString & "-" & CDate(dgvUSTV.CurrentRow.Cells("UStVAn_ReDatBis").Value).ToShortDateString
|
||||
End If
|
||||
|
||||
End If
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If dgvUSTV.Columns.Count > 0 Then Mail.Subject = dgvUSTV.CurrentRow.Cells("UStVAn_Name").Value & "_" & dgvUSTV.CurrentRow.Cells("UStVAn_LandKz").Value & "_" & dgvUSTV.CurrentRow.Cells("UStVAn_ReDatVon").Value & "-" & dgvUSTV.CurrentRow.Cells("UStVAn_ReDatBis").Value
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Ladies and Gentlemen,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "In the attachment we will send you the Excel list and the corresponding invoices for the VAT refund.<br>"
|
||||
TextHTML &= "Please submit these invoices to the tax office.<br>"
|
||||
TextHTML &= "We are always available to answer more questions.<br>"
|
||||
Dim filepath = ""
|
||||
If excelAuswertung(filepath, False, False) Then
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
|
||||
Mail.Display()
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = subject
|
||||
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Ladies and Gentlemen,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "In the attachment we will send you the Excel list and the corresponding invoices for the VAT refund.<br>"
|
||||
TextHTML &= "Please submit these invoices to the tax office.<br>"
|
||||
TextHTML &= "We are always available to answer more questions.<br>"
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
|
||||
Mail.Display()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
|
||||
382
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
382
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
@@ -59,37 +59,37 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.lblSachbearbeiter = New System.Windows.Forms.Label()
|
||||
Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.picSave = New System.Windows.Forms.PictureBox()
|
||||
Me.pnlAdresse = New System.Windows.Forms.Panel()
|
||||
Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.pnlAdresse = New System.Windows.Forms.Panel()
|
||||
Me.picSave = New System.Windows.Forms.PictureBox()
|
||||
Me.tabDok.SuspendLayout()
|
||||
Me.tbcntr.SuspendLayout()
|
||||
Me.tabVollmachten.SuspendLayout()
|
||||
Me.tabFABest.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.picSave, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlAdresse.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.pnlAdresse.SuspendLayout()
|
||||
CType(Me.picSave, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'scanLieferschein
|
||||
@@ -523,7 +523,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
'cboLeistungsgeber
|
||||
'
|
||||
Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
|
||||
Me.cboLeistungsgeber._allowFreiText = False
|
||||
Me.cboLeistungsgeber._allowFreiText = True
|
||||
Me.cboLeistungsgeber._value = ""
|
||||
Me.cboLeistungsgeber.FormattingEnabled = True
|
||||
Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 49)
|
||||
@@ -617,155 +617,34 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.pnl.Size = New System.Drawing.Size(1300, 239)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'txtUIDNr
|
||||
'picSave
|
||||
'
|
||||
Me.txtUIDNr._DateTimeOnly = False
|
||||
Me.txtUIDNr._numbersOnly = False
|
||||
Me.txtUIDNr._numbersOnlyKommastellen = ""
|
||||
Me.txtUIDNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtUIDNr._Prozent = False
|
||||
Me.txtUIDNr._ShortDateNew = False
|
||||
Me.txtUIDNr._ShortDateOnly = False
|
||||
Me.txtUIDNr._TimeOnly = False
|
||||
Me.txtUIDNr._TimeOnly_Seconds = False
|
||||
Me.txtUIDNr._value = ""
|
||||
Me.txtUIDNr._Waehrung = False
|
||||
Me.txtUIDNr._WaehrungZeichen = True
|
||||
Me.txtUIDNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUIDNr.Location = New System.Drawing.Point(180, 60)
|
||||
Me.txtUIDNr.MaxLength = 50
|
||||
Me.txtUIDNr.MaxLineLength = -1
|
||||
Me.txtUIDNr.MaxLines_Warning = ""
|
||||
Me.txtUIDNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUIDNr.Name = "txtUIDNr"
|
||||
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
|
||||
Me.txtUIDNr.TabIndex = 32
|
||||
Me.picSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
|
||||
Me.picSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picSave.Location = New System.Drawing.Point(886, 164)
|
||||
Me.picSave.Name = "picSave"
|
||||
Me.picSave.Size = New System.Drawing.Size(26, 22)
|
||||
Me.picSave.TabIndex = 34
|
||||
Me.picSave.TabStop = False
|
||||
Me.picSave.Visible = False
|
||||
'
|
||||
'Label17
|
||||
'pnlAdresse
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label17.Location = New System.Drawing.Point(129, 63)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(45, 15)
|
||||
Me.Label17.TabIndex = 31
|
||||
Me.Label17.Text = "UID-Nr"
|
||||
'
|
||||
'txtLand
|
||||
'
|
||||
Me.txtLand._DateTimeOnly = False
|
||||
Me.txtLand._numbersOnly = False
|
||||
Me.txtLand._numbersOnlyKommastellen = ""
|
||||
Me.txtLand._numbersOnlyTrennzeichen = True
|
||||
Me.txtLand._Prozent = False
|
||||
Me.txtLand._ShortDateNew = False
|
||||
Me.txtLand._ShortDateOnly = False
|
||||
Me.txtLand._TimeOnly = False
|
||||
Me.txtLand._TimeOnly_Seconds = False
|
||||
Me.txtLand._value = ""
|
||||
Me.txtLand._Waehrung = False
|
||||
Me.txtLand._WaehrungZeichen = True
|
||||
Me.txtLand.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLand.Location = New System.Drawing.Point(66, 58)
|
||||
Me.txtLand.MaxLength = 2
|
||||
Me.txtLand.MaxLineLength = -1
|
||||
Me.txtLand.MaxLines_Warning = ""
|
||||
Me.txtLand.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLand.Name = "txtLand"
|
||||
Me.txtLand.Size = New System.Drawing.Size(38, 20)
|
||||
Me.txtLand.TabIndex = 30
|
||||
'
|
||||
'txtStrassenNr
|
||||
'
|
||||
Me.txtStrassenNr._DateTimeOnly = False
|
||||
Me.txtStrassenNr._numbersOnly = False
|
||||
Me.txtStrassenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtStrassenNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtStrassenNr._Prozent = False
|
||||
Me.txtStrassenNr._ShortDateNew = False
|
||||
Me.txtStrassenNr._ShortDateOnly = False
|
||||
Me.txtStrassenNr._TimeOnly = False
|
||||
Me.txtStrassenNr._TimeOnly_Seconds = False
|
||||
Me.txtStrassenNr._value = ""
|
||||
Me.txtStrassenNr._Waehrung = False
|
||||
Me.txtStrassenNr._WaehrungZeichen = True
|
||||
Me.txtStrassenNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtStrassenNr.Location = New System.Drawing.Point(241, 2)
|
||||
Me.txtStrassenNr.MaxLength = 10
|
||||
Me.txtStrassenNr.MaxLineLength = -1
|
||||
Me.txtStrassenNr.MaxLines_Warning = ""
|
||||
Me.txtStrassenNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtStrassenNr.Name = "txtStrassenNr"
|
||||
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
|
||||
Me.txtStrassenNr.TabIndex = 29
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt._DateTimeOnly = False
|
||||
Me.txtOrt._numbersOnly = False
|
||||
Me.txtOrt._numbersOnlyKommastellen = ""
|
||||
Me.txtOrt._numbersOnlyTrennzeichen = True
|
||||
Me.txtOrt._Prozent = False
|
||||
Me.txtOrt._ShortDateNew = False
|
||||
Me.txtOrt._ShortDateOnly = False
|
||||
Me.txtOrt._TimeOnly = False
|
||||
Me.txtOrt._TimeOnly_Seconds = False
|
||||
Me.txtOrt._value = ""
|
||||
Me.txtOrt._Waehrung = False
|
||||
Me.txtOrt._WaehrungZeichen = True
|
||||
Me.txtOrt.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtOrt.Location = New System.Drawing.Point(132, 29)
|
||||
Me.txtOrt.MaxLength = 50
|
||||
Me.txtOrt.MaxLineLength = -1
|
||||
Me.txtOrt.MaxLines_Warning = ""
|
||||
Me.txtOrt.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(154, 20)
|
||||
Me.txtOrt.TabIndex = 28
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label16.Location = New System.Drawing.Point(8, 58)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(35, 15)
|
||||
Me.Label16.TabIndex = 27
|
||||
Me.Label16.Text = "Land"
|
||||
'
|
||||
'txtPLZ
|
||||
'
|
||||
Me.txtPLZ._DateTimeOnly = False
|
||||
Me.txtPLZ._numbersOnly = False
|
||||
Me.txtPLZ._numbersOnlyKommastellen = ""
|
||||
Me.txtPLZ._numbersOnlyTrennzeichen = True
|
||||
Me.txtPLZ._Prozent = False
|
||||
Me.txtPLZ._ShortDateNew = False
|
||||
Me.txtPLZ._ShortDateOnly = False
|
||||
Me.txtPLZ._TimeOnly = False
|
||||
Me.txtPLZ._TimeOnly_Seconds = False
|
||||
Me.txtPLZ._value = ""
|
||||
Me.txtPLZ._Waehrung = False
|
||||
Me.txtPLZ._WaehrungZeichen = True
|
||||
Me.txtPLZ.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtPLZ.Location = New System.Drawing.Point(66, 29)
|
||||
Me.txtPLZ.MaxLength = 10
|
||||
Me.txtPLZ.MaxLineLength = -1
|
||||
Me.txtPLZ.MaxLines_Warning = ""
|
||||
Me.txtPLZ.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLZ.Name = "txtPLZ"
|
||||
Me.txtPLZ.Size = New System.Drawing.Size(59, 20)
|
||||
Me.txtPLZ.TabIndex = 26
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label15.Location = New System.Drawing.Point(8, 32)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(48, 15)
|
||||
Me.Label15.TabIndex = 25
|
||||
Me.Label15.Text = "PLZ/Ort"
|
||||
Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
|
||||
Me.pnlAdresse.Controls.Add(Me.txtStrasse)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label14)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label17)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label15)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtLand)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtPLZ)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label16)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtOrt)
|
||||
Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
|
||||
Me.pnlAdresse.Name = "pnlAdresse"
|
||||
Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
|
||||
Me.pnlAdresse.TabIndex = 33
|
||||
'
|
||||
'txtStrasse
|
||||
'
|
||||
@@ -791,6 +670,30 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtStrasse.Size = New System.Drawing.Size(169, 20)
|
||||
Me.txtStrasse.TabIndex = 24
|
||||
'
|
||||
'txtUIDNr
|
||||
'
|
||||
Me.txtUIDNr._DateTimeOnly = False
|
||||
Me.txtUIDNr._numbersOnly = False
|
||||
Me.txtUIDNr._numbersOnlyKommastellen = ""
|
||||
Me.txtUIDNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtUIDNr._Prozent = False
|
||||
Me.txtUIDNr._ShortDateNew = False
|
||||
Me.txtUIDNr._ShortDateOnly = False
|
||||
Me.txtUIDNr._TimeOnly = False
|
||||
Me.txtUIDNr._TimeOnly_Seconds = False
|
||||
Me.txtUIDNr._value = ""
|
||||
Me.txtUIDNr._Waehrung = False
|
||||
Me.txtUIDNr._WaehrungZeichen = True
|
||||
Me.txtUIDNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUIDNr.Location = New System.Drawing.Point(180, 60)
|
||||
Me.txtUIDNr.MaxLength = 50
|
||||
Me.txtUIDNr.MaxLineLength = -1
|
||||
Me.txtUIDNr.MaxLines_Warning = ""
|
||||
Me.txtUIDNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUIDNr.Name = "txtUIDNr"
|
||||
Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
|
||||
Me.txtUIDNr.TabIndex = 32
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
@@ -801,6 +704,132 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.Label14.TabIndex = 23
|
||||
Me.Label14.Text = "Strasse/Nr"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label17.Location = New System.Drawing.Point(129, 63)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(45, 15)
|
||||
Me.Label17.TabIndex = 31
|
||||
Me.Label17.Text = "UID-Nr"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label15.Location = New System.Drawing.Point(8, 32)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(48, 15)
|
||||
Me.Label15.TabIndex = 25
|
||||
Me.Label15.Text = "PLZ/Ort"
|
||||
'
|
||||
'txtLand
|
||||
'
|
||||
Me.txtLand._DateTimeOnly = False
|
||||
Me.txtLand._numbersOnly = False
|
||||
Me.txtLand._numbersOnlyKommastellen = ""
|
||||
Me.txtLand._numbersOnlyTrennzeichen = True
|
||||
Me.txtLand._Prozent = False
|
||||
Me.txtLand._ShortDateNew = False
|
||||
Me.txtLand._ShortDateOnly = False
|
||||
Me.txtLand._TimeOnly = False
|
||||
Me.txtLand._TimeOnly_Seconds = False
|
||||
Me.txtLand._value = ""
|
||||
Me.txtLand._Waehrung = False
|
||||
Me.txtLand._WaehrungZeichen = True
|
||||
Me.txtLand.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtLand.Location = New System.Drawing.Point(66, 58)
|
||||
Me.txtLand.MaxLength = 2
|
||||
Me.txtLand.MaxLineLength = -1
|
||||
Me.txtLand.MaxLines_Warning = ""
|
||||
Me.txtLand.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLand.Name = "txtLand"
|
||||
Me.txtLand.Size = New System.Drawing.Size(38, 20)
|
||||
Me.txtLand.TabIndex = 30
|
||||
'
|
||||
'txtPLZ
|
||||
'
|
||||
Me.txtPLZ._DateTimeOnly = False
|
||||
Me.txtPLZ._numbersOnly = False
|
||||
Me.txtPLZ._numbersOnlyKommastellen = ""
|
||||
Me.txtPLZ._numbersOnlyTrennzeichen = True
|
||||
Me.txtPLZ._Prozent = False
|
||||
Me.txtPLZ._ShortDateNew = False
|
||||
Me.txtPLZ._ShortDateOnly = False
|
||||
Me.txtPLZ._TimeOnly = False
|
||||
Me.txtPLZ._TimeOnly_Seconds = False
|
||||
Me.txtPLZ._value = ""
|
||||
Me.txtPLZ._Waehrung = False
|
||||
Me.txtPLZ._WaehrungZeichen = True
|
||||
Me.txtPLZ.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtPLZ.Location = New System.Drawing.Point(66, 29)
|
||||
Me.txtPLZ.MaxLength = 10
|
||||
Me.txtPLZ.MaxLineLength = -1
|
||||
Me.txtPLZ.MaxLines_Warning = ""
|
||||
Me.txtPLZ.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPLZ.Name = "txtPLZ"
|
||||
Me.txtPLZ.Size = New System.Drawing.Size(59, 20)
|
||||
Me.txtPLZ.TabIndex = 26
|
||||
'
|
||||
'txtStrassenNr
|
||||
'
|
||||
Me.txtStrassenNr._DateTimeOnly = False
|
||||
Me.txtStrassenNr._numbersOnly = False
|
||||
Me.txtStrassenNr._numbersOnlyKommastellen = ""
|
||||
Me.txtStrassenNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtStrassenNr._Prozent = False
|
||||
Me.txtStrassenNr._ShortDateNew = False
|
||||
Me.txtStrassenNr._ShortDateOnly = False
|
||||
Me.txtStrassenNr._TimeOnly = False
|
||||
Me.txtStrassenNr._TimeOnly_Seconds = False
|
||||
Me.txtStrassenNr._value = ""
|
||||
Me.txtStrassenNr._Waehrung = False
|
||||
Me.txtStrassenNr._WaehrungZeichen = True
|
||||
Me.txtStrassenNr.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtStrassenNr.Location = New System.Drawing.Point(241, 2)
|
||||
Me.txtStrassenNr.MaxLength = 10
|
||||
Me.txtStrassenNr.MaxLineLength = -1
|
||||
Me.txtStrassenNr.MaxLines_Warning = ""
|
||||
Me.txtStrassenNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtStrassenNr.Name = "txtStrassenNr"
|
||||
Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
|
||||
Me.txtStrassenNr.TabIndex = 29
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
|
||||
Me.Label16.Location = New System.Drawing.Point(8, 58)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(35, 15)
|
||||
Me.Label16.TabIndex = 27
|
||||
Me.Label16.Text = "Land"
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt._DateTimeOnly = False
|
||||
Me.txtOrt._numbersOnly = False
|
||||
Me.txtOrt._numbersOnlyKommastellen = ""
|
||||
Me.txtOrt._numbersOnlyTrennzeichen = True
|
||||
Me.txtOrt._Prozent = False
|
||||
Me.txtOrt._ShortDateNew = False
|
||||
Me.txtOrt._ShortDateOnly = False
|
||||
Me.txtOrt._TimeOnly = False
|
||||
Me.txtOrt._TimeOnly_Seconds = False
|
||||
Me.txtOrt._value = ""
|
||||
Me.txtOrt._Waehrung = False
|
||||
Me.txtOrt._WaehrungZeichen = True
|
||||
Me.txtOrt.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtOrt.Location = New System.Drawing.Point(132, 29)
|
||||
Me.txtOrt.MaxLength = 50
|
||||
Me.txtOrt.MaxLineLength = -1
|
||||
Me.txtOrt.MaxLines_Warning = ""
|
||||
Me.txtOrt.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(154, 20)
|
||||
Me.txtOrt.TabIndex = 28
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.btnBildAuf)
|
||||
@@ -871,35 +900,6 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
|
||||
Me.UsrcntlPDFScanList1.TabIndex = 0
|
||||
'
|
||||
'pnlAdresse
|
||||
'
|
||||
Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace
|
||||
Me.pnlAdresse.Controls.Add(Me.txtStrasse)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtUIDNr)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label14)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label17)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label15)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtLand)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtPLZ)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtStrassenNr)
|
||||
Me.pnlAdresse.Controls.Add(Me.Label16)
|
||||
Me.pnlAdresse.Controls.Add(Me.txtOrt)
|
||||
Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
|
||||
Me.pnlAdresse.Name = "pnlAdresse"
|
||||
Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
|
||||
Me.pnlAdresse.TabIndex = 33
|
||||
'
|
||||
'picSave
|
||||
'
|
||||
Me.picSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
|
||||
Me.picSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picSave.Location = New System.Drawing.Point(886, 164)
|
||||
Me.picSave.Name = "picSave"
|
||||
Me.picSave.Size = New System.Drawing.Size(26, 22)
|
||||
Me.picSave.TabIndex = 34
|
||||
Me.picSave.TabStop = False
|
||||
Me.picSave.Visible = False
|
||||
'
|
||||
'ustCntlUSTV_AntragPosition
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -918,14 +918,14 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.picSave, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlAdresse.ResumeLayout(False)
|
||||
Me.pnlAdresse.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.Panel4.ResumeLayout(False)
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.pnlAdresse.ResumeLayout(False)
|
||||
Me.pnlAdresse.PerformLayout()
|
||||
CType(Me.picSave, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -160,6 +160,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
UStV_Leist.UstV_Leistender_Adresse = True
|
||||
If UStV_Leist.SAVE() Then
|
||||
picSave.Visible = False
|
||||
RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -145,7 +145,7 @@ Public Class frmMain
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
Dim timas As New cTimasAPI
|
||||
Dim timas As New cTimasAPI("timas")
|
||||
Dim infoMessage As String = ""
|
||||
Dim timeEntryExisting As Boolean = False
|
||||
Dim isEndpointRunning As Boolean = True
|
||||
@@ -560,6 +560,37 @@ Public Class frmMain
|
||||
|
||||
|
||||
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
|
||||
|
||||
Try
|
||||
If False Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
|
||||
Dim timas As New cTimasAPI("timas")
|
||||
Dim infoMessage As New DataTable
|
||||
Dim timeEntryExisting As Boolean = False
|
||||
Dim isEndpointRunning As Boolean = True
|
||||
Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
|
||||
If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
|
||||
Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
Dim info
|
||||
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
|
||||
MsgBox(info)
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
471
SDL/frmdynMailvorlage.Designer.vb
generated
Normal file
471
SDL/frmdynMailvorlage.Designer.vb
generated
Normal file
@@ -0,0 +1,471 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmdynMailvorlage
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.mainPanel = New System.Windows.Forms.Panel()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.lblWordcount = New System.Windows.Forms.Label()
|
||||
Me.cboFirmensignatur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.txtBetreff = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.rtb_Emailtext = New System.Windows.Forms.RichTextBox()
|
||||
Me.cbxFirmaChange = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label = New System.Windows.Forms.Label()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.cbxAktiv = New System.Windows.Forms.CheckBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnAdd = New System.Windows.Forms.Button()
|
||||
Me.btnDelete = New System.Windows.Forms.Button()
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.cbxSpracheSelected = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.mainPanel.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'mainPanel
|
||||
'
|
||||
Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.mainPanel.Controls.Add(Me.TextBox2)
|
||||
Me.mainPanel.Controls.Add(Me.btn)
|
||||
Me.mainPanel.Controls.Add(Me.lblWordcount)
|
||||
Me.mainPanel.Controls.Add(Me.cboFirmensignatur)
|
||||
Me.mainPanel.Controls.Add(Me.Label7)
|
||||
Me.mainPanel.Controls.Add(Me.txtBezeichnung)
|
||||
Me.mainPanel.Controls.Add(Me.Label6)
|
||||
Me.mainPanel.Controls.Add(Me.TextBox1)
|
||||
Me.mainPanel.Controls.Add(Me.txtBetreff)
|
||||
Me.mainPanel.Controls.Add(Me.Label5)
|
||||
Me.mainPanel.Controls.Add(Me.cboSprache)
|
||||
Me.mainPanel.Controls.Add(Me.Label2)
|
||||
Me.mainPanel.Controls.Add(Me.rtb_Emailtext)
|
||||
Me.mainPanel.Controls.Add(Me.cbxFirmaChange)
|
||||
Me.mainPanel.Controls.Add(Me.Label)
|
||||
Me.mainPanel.Controls.Add(Me.btnSave)
|
||||
Me.mainPanel.Controls.Add(Me.cbxAktiv)
|
||||
Me.mainPanel.Controls.Add(Me.Label1)
|
||||
Me.mainPanel.Location = New System.Drawing.Point(0, 425)
|
||||
Me.mainPanel.Name = "mainPanel"
|
||||
Me.mainPanel.Size = New System.Drawing.Size(1283, 449)
|
||||
Me.mainPanel.TabIndex = 101
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.TextBox2.Location = New System.Drawing.Point(22, 400)
|
||||
Me.TextBox2.Multiline = True
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(256, 45)
|
||||
Me.TextBox2.TabIndex = 34
|
||||
Me.TextBox2.Text = "* Email-Text-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%VAR-GRENZE%"
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(1100, 405)
|
||||
Me.btn.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Padding = New System.Windows.Forms.Padding(5)
|
||||
Me.btn.Size = New System.Drawing.Size(50, 40)
|
||||
Me.btn.TabIndex = 33
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblWordcount
|
||||
'
|
||||
Me.lblWordcount.AutoSize = True
|
||||
Me.lblWordcount.Location = New System.Drawing.Point(1199, 398)
|
||||
Me.lblWordcount.Name = "lblWordcount"
|
||||
Me.lblWordcount.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblWordcount.TabIndex = 32
|
||||
'
|
||||
'cboFirmensignatur
|
||||
'
|
||||
Me.cboFirmensignatur._allowedValuesFreiText = Nothing
|
||||
Me.cboFirmensignatur._allowFreiText = False
|
||||
Me.cboFirmensignatur._value = ""
|
||||
Me.cboFirmensignatur.DropDownWidth = 120
|
||||
Me.cboFirmensignatur.FormattingEnabled = True
|
||||
Me.cboFirmensignatur.Location = New System.Drawing.Point(985, 21)
|
||||
Me.cboFirmensignatur.Name = "cboFirmensignatur"
|
||||
Me.cboFirmensignatur.Size = New System.Drawing.Size(100, 21)
|
||||
Me.cboFirmensignatur.TabIndex = 31
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(982, 5)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(103, 13)
|
||||
Me.Label7.TabIndex = 30
|
||||
Me.Label7.Text = "Email-Firmensignatur"
|
||||
'
|
||||
'txtBezeichnung
|
||||
'
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(139, 20)
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(250, 20)
|
||||
Me.txtBezeichnung.TabIndex = 29
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(133, 3)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label6.TabIndex = 28
|
||||
Me.Label6.Text = "Bezeichnung"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.TextBox1.Location = New System.Drawing.Point(823, 3)
|
||||
Me.TextBox1.Multiline = True
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(110, 61)
|
||||
Me.TextBox1.TabIndex = 27
|
||||
Me.TextBox1.Text = "* Betreff-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKW%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKWKennzeichen%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%Empfaenger%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
'
|
||||
'txtBetreff
|
||||
'
|
||||
Me.txtBetreff.Location = New System.Drawing.Point(465, 20)
|
||||
Me.txtBetreff.Name = "txtBetreff"
|
||||
Me.txtBetreff.Size = New System.Drawing.Size(290, 20)
|
||||
Me.txtBetreff.TabIndex = 26
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(462, 3)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(42, 13)
|
||||
Me.Label5.TabIndex = 25
|
||||
Me.Label5.Text = "Betreff*"
|
||||
'
|
||||
'cboSprache
|
||||
'
|
||||
Me.cboSprache._allowedValuesFreiText = Nothing
|
||||
Me.cboSprache._allowFreiText = False
|
||||
Me.cboSprache._value = ""
|
||||
Me.cboSprache.DropDownWidth = 120
|
||||
Me.cboSprache.FormattingEnabled = True
|
||||
Me.cboSprache.Location = New System.Drawing.Point(22, 21)
|
||||
Me.cboSprache.Name = "cboSprache"
|
||||
Me.cboSprache.Size = New System.Drawing.Size(64, 21)
|
||||
Me.cboSprache.TabIndex = 24
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(19, 5)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(47, 13)
|
||||
Me.Label2.TabIndex = 23
|
||||
Me.Label2.Text = "Sprache"
|
||||
'
|
||||
'rtb_Emailtext
|
||||
'
|
||||
Me.rtb_Emailtext.Location = New System.Drawing.Point(15, 72)
|
||||
Me.rtb_Emailtext.Name = "rtb_Emailtext"
|
||||
Me.rtb_Emailtext.Size = New System.Drawing.Size(1245, 322)
|
||||
Me.rtb_Emailtext.TabIndex = 22
|
||||
Me.rtb_Emailtext.Text = ""
|
||||
'
|
||||
'cbxFirmaChange
|
||||
'
|
||||
Me.cbxFirmaChange._allowedValuesFreiText = Nothing
|
||||
Me.cbxFirmaChange._allowFreiText = False
|
||||
Me.cbxFirmaChange._value = ""
|
||||
Me.cbxFirmaChange.DropDownWidth = 120
|
||||
Me.cbxFirmaChange.FormattingEnabled = True
|
||||
Me.cbxFirmaChange.Location = New System.Drawing.Point(1155, 19)
|
||||
Me.cbxFirmaChange.Name = "cbxFirmaChange"
|
||||
Me.cbxFirmaChange.Size = New System.Drawing.Size(100, 21)
|
||||
Me.cbxFirmaChange.TabIndex = 21
|
||||
'
|
||||
'Label
|
||||
'
|
||||
Me.Label.AutoSize = True
|
||||
Me.Label.Location = New System.Drawing.Point(1152, 3)
|
||||
Me.Label.Name = "Label"
|
||||
Me.Label.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label.TabIndex = 20
|
||||
Me.Label.Text = "gültig für Firma:"
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(1185, 414)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 10
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxAktiv
|
||||
'
|
||||
Me.cbxAktiv.AutoSize = True
|
||||
Me.cbxAktiv.Location = New System.Drawing.Point(1083, 52)
|
||||
Me.cbxAktiv.Name = "cbxAktiv"
|
||||
Me.cbxAktiv.Size = New System.Drawing.Size(172, 17)
|
||||
Me.cbxAktiv.TabIndex = 3
|
||||
Me.cbxAktiv.Text = "als dyn Mailvorlage verwenden"
|
||||
Me.cbxAktiv.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(19, 56)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Email-Text*"
|
||||
'
|
||||
'btnAdd
|
||||
'
|
||||
Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus
|
||||
Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdd.Location = New System.Drawing.Point(1236, 399)
|
||||
Me.btnAdd.Name = "btnAdd"
|
||||
Me.btnAdd.Size = New System.Drawing.Size(24, 20)
|
||||
Me.btnAdd.TabIndex = 103
|
||||
Me.btnAdd.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDelete
|
||||
'
|
||||
Me.btnDelete.BackgroundImage = Global.SDL.My.Resources.Resources.del
|
||||
Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDelete.Location = New System.Drawing.Point(1259, 399)
|
||||
Me.btnDelete.Name = "btnDelete"
|
||||
Me.btnDelete.Size = New System.Drawing.Size(24, 20)
|
||||
Me.btnDelete.TabIndex = 102
|
||||
Me.btnDelete.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnlTop
|
||||
'
|
||||
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.pnlTop.Controls.Add(Me.cbxSpracheSelected)
|
||||
Me.pnlTop.Controls.Add(Me.Label8)
|
||||
Me.pnlTop.Controls.Add(Me.txtSuche)
|
||||
Me.pnlTop.Controls.Add(Me.Label18)
|
||||
Me.pnlTop.Controls.Add(Me.lblWarning)
|
||||
Me.pnlTop.Controls.Add(Me.Label4)
|
||||
Me.pnlTop.Controls.Add(Me.Label3)
|
||||
Me.pnlTop.Controls.Add(Me.cbxFirma)
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1295, 48)
|
||||
Me.pnlTop.TabIndex = 100
|
||||
'
|
||||
'cbxSpracheSelected
|
||||
'
|
||||
Me.cbxSpracheSelected._allowedValuesFreiText = Nothing
|
||||
Me.cbxSpracheSelected._allowFreiText = False
|
||||
Me.cbxSpracheSelected._value = ""
|
||||
Me.cbxSpracheSelected.DropDownWidth = 120
|
||||
Me.cbxSpracheSelected.FormattingEnabled = True
|
||||
Me.cbxSpracheSelected.Location = New System.Drawing.Point(1055, 19)
|
||||
Me.cbxSpracheSelected.Name = "cbxSpracheSelected"
|
||||
Me.cbxSpracheSelected.Size = New System.Drawing.Size(64, 21)
|
||||
Me.cbxSpracheSelected.TabIndex = 35
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.ForeColor = System.Drawing.Color.White
|
||||
Me.Label8.Location = New System.Drawing.Point(1052, 3)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label8.TabIndex = 34
|
||||
Me.Label8.Text = "Sprache"
|
||||
'
|
||||
'txtSuche
|
||||
'
|
||||
Me.txtSuche._DateTimeOnly = False
|
||||
Me.txtSuche._numbersOnly = False
|
||||
Me.txtSuche._numbersOnlyKommastellen = ""
|
||||
Me.txtSuche._numbersOnlyTrennzeichen = True
|
||||
Me.txtSuche._Prozent = False
|
||||
Me.txtSuche._ShortDateNew = False
|
||||
Me.txtSuche._ShortDateOnly = False
|
||||
Me.txtSuche._TimeOnly = False
|
||||
Me.txtSuche._TimeOnly_Seconds = False
|
||||
Me.txtSuche._value = Nothing
|
||||
Me.txtSuche._Waehrung = False
|
||||
Me.txtSuche._WaehrungZeichen = False
|
||||
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSuche.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSuche.Location = New System.Drawing.Point(702, 19)
|
||||
Me.txtSuche.MaxLineLength = -1
|
||||
Me.txtSuche.MaxLines_Warning = ""
|
||||
Me.txtSuche.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSuche.Name = "txtSuche"
|
||||
Me.txtSuche.Size = New System.Drawing.Size(314, 20)
|
||||
Me.txtSuche.TabIndex = 34
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label18.ForeColor = System.Drawing.Color.White
|
||||
Me.Label18.Location = New System.Drawing.Point(699, 4)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label18.TabIndex = 33
|
||||
Me.Label18.Text = "Suche"
|
||||
'
|
||||
'lblWarning
|
||||
'
|
||||
Me.lblWarning.AutoSize = True
|
||||
Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWarning.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarning.Location = New System.Drawing.Point(166, 13)
|
||||
Me.lblWarning.Name = "lblWarning"
|
||||
Me.lblWarning.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblWarning.TabIndex = 14
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.White
|
||||
Me.Label4.Location = New System.Drawing.Point(10, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(147, 26)
|
||||
Me.Label4.TabIndex = 0
|
||||
Me.Label4.Text = "Mailvorlagen"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.White
|
||||
Me.Label3.Location = New System.Drawing.Point(1152, 3)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(37, 13)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Firma"
|
||||
'
|
||||
'cbxFirma
|
||||
'
|
||||
Me.cbxFirma._allowedValuesFreiText = Nothing
|
||||
Me.cbxFirma._allowFreiText = False
|
||||
Me.cbxFirma._value = ""
|
||||
Me.cbxFirma.DropDownWidth = 150
|
||||
Me.cbxFirma.Enabled = False
|
||||
Me.cbxFirma.FormattingEnabled = True
|
||||
Me.cbxFirma.Location = New System.Drawing.Point(1155, 19)
|
||||
Me.cbxFirma.Name = "cbxFirma"
|
||||
Me.cbxFirma.Size = New System.Drawing.Size(128, 21)
|
||||
Me.cbxFirma.TabIndex = 13
|
||||
'
|
||||
'dgvMailvorlagen
|
||||
'
|
||||
Me.dgvMailvorlagen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvMailvorlagen.AllowUserToAddRows = False
|
||||
Me.dgvMailvorlagen.AllowUserToDeleteRows = False
|
||||
Me.dgvMailvorlagen.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvMailvorlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvMailvorlagen.Location = New System.Drawing.Point(0, 54)
|
||||
Me.dgvMailvorlagen.Name = "dgvMailvorlagen"
|
||||
Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
|
||||
Me.dgvMailvorlagen.TabIndex = 104
|
||||
'
|
||||
'frmdynMailvorlage
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1295, 886)
|
||||
Me.Controls.Add(Me.mainPanel)
|
||||
Me.Controls.Add(Me.btnAdd)
|
||||
Me.Controls.Add(Me.btnDelete)
|
||||
Me.Controls.Add(Me.pnlTop)
|
||||
Me.Controls.Add(Me.dgvMailvorlagen)
|
||||
Me.Name = "frmdynMailvorlage"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "frmdynMailvorlage"
|
||||
Me.mainPanel.ResumeLayout(False)
|
||||
Me.mainPanel.PerformLayout()
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
Me.pnlTop.PerformLayout()
|
||||
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents mainPanel As Panel
|
||||
Friend WithEvents cbxFirmaChange As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label As Label
|
||||
Friend WithEvents btnSave As Button
|
||||
Friend WithEvents cbxAktiv As CheckBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents btnAdd As Button
|
||||
Friend WithEvents btnDelete As Button
|
||||
Friend WithEvents pnlTop As Panel
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents cbxFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents dgvMailvorlagen As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents rtb_Emailtext As RichTextBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents txtBetreff As TextBox
|
||||
Friend WithEvents txtBezeichnung As TextBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label18 As Label
|
||||
Friend WithEvents cboFirmensignatur As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents lblWordcount As Label
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents cbxSpracheSelected As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents TextBox2 As TextBox
|
||||
End Class
|
||||
120
SDL/frmdynMailvorlage.resx
Normal file
120
SDL/frmdynMailvorlage.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
352
SDL/frmdynMailvorlage.vb
Normal file
352
SDL/frmdynMailvorlage.vb
Normal file
@@ -0,0 +1,352 @@
|
||||
Imports System.Windows.Controls
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmdynMailvorlage
|
||||
|
||||
Dim txtkonserve As New cTextkonserve
|
||||
Dim editall As Boolean = False
|
||||
Dim h2t As New Chilkat.HtmlToText
|
||||
|
||||
Sub New(permission As Boolean)
|
||||
InitializeComponent()
|
||||
editall = permission
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
End Sub
|
||||
|
||||
Private Sub Mailvorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
cboSprache.Items.Clear()
|
||||
cboSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where txt_sprache is not null ", False, "FMZOLL", True)
|
||||
|
||||
cbxSpracheSelected.Items.AddRange(cboSprache.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
cbxSpracheSelected.changeItem("DE")
|
||||
|
||||
|
||||
Dim listofFirmen = cFirmen.LOAD_LIST
|
||||
|
||||
cboFirmensignatur.Items.Clear()
|
||||
For Each firma In listofFirmen
|
||||
cboFirmensignatur.Items.Add(New MyListItem(firma.Firma_Bez, firma.Firma_ID))
|
||||
Next
|
||||
|
||||
cbxFirma.Items.Clear()
|
||||
cbxFirmaChange.Items.Clear()
|
||||
cbxFirma.fillWithSQL("SELECT distinct([Firmengruppe]) FROM [tblFirma] where Firmengruppe is not null ", False, "FMZOLL", True)
|
||||
cbxFirmaChange.Items.AddRange(cbxFirma.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
|
||||
cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
cbxFirma.Enabled = editall
|
||||
|
||||
initDGVMailvorlagen(cbxFirma._value,, cbxSpracheSelected._value)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub initDGVMailvorlagen(Optional firma As String = "", Optional searchparam As String = "", Optional sprache As String = "")
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
Dim SQLString As String = "SELECT * FROM [tblTextkonserve] WHERE txt_kategorie = 'FRM_MNGR_MailText'"
|
||||
Dim SQLWHere = ""
|
||||
If firma <> "" Then
|
||||
SQLWHere &= " AND txt_FIRMA = '" & firma & "'"
|
||||
End If
|
||||
|
||||
If searchparam <> "" Then
|
||||
SQLWHere &= " AND (txt_Bezeichnung like '%" & searchparam & "%' OR txt_Betreff like '%" & searchparam & "%')"
|
||||
End If
|
||||
|
||||
If sprache <> "" Then
|
||||
SQLWHere &= " AND (txt_Sprache = '" & sprache & "')"
|
||||
End If
|
||||
|
||||
|
||||
dgvMailvorlagen.SET_SQL(SQLString & SQLWHere, "FMZOLL", ,)
|
||||
dgvMailvorlagen.LOAD()
|
||||
|
||||
|
||||
If dgvMailvorlagen.Columns.Count < 1 Then Exit Sub
|
||||
|
||||
With dgvMailvorlagen
|
||||
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
.MultiSelect = False
|
||||
.RowHeadersVisible = False
|
||||
.ReadOnly = True
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.Columns("txt_Id").Visible = False
|
||||
.Columns("txt_kategorie").Visible = False
|
||||
.Columns("txt_bezeichnung").HeaderText = "Bezeichnung"
|
||||
.Columns("txt_bezeichnung").Width = 200
|
||||
.Columns("txt_text").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("txt_text").HeaderText = "Text"
|
||||
.Columns("txt_betreff").HeaderText = "Betreff"
|
||||
.Columns("txt_betreff").Width = 150
|
||||
.Columns("txt_sprache").HeaderText = "Sprache"
|
||||
.Columns("txt_sprache").Width = 50
|
||||
.Columns("txt_dynMailvorlage").HeaderText = "Mailvorlage"
|
||||
.Columns("txt_firmaSig").Visible = False
|
||||
.Columns("txt_FIRMA").HeaderText = "Firma"
|
||||
.Columns("txt_FIRMA").Width = 150
|
||||
.Columns("txt_letzteAenderung").HeaderText = "letzte Änderung"
|
||||
.Columns("txt_letzteAenderung").Width = 100
|
||||
.Columns("txt_letzteAenderungUser").HeaderText = "User"
|
||||
.Columns("txt_letzteAenderungUser").Width = 75
|
||||
End With
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvMailvorlagen.Rows
|
||||
|
||||
|
||||
If row.Cells("txt_firmaSig").Value IsNot DBNull.Value AndAlso IsNumeric(row.Cells("txt_firmaSig").Value) Then
|
||||
If CInt(row.Cells("txt_firmaSig").Value) > 0 Then
|
||||
|
||||
Dim tmpFirma = New VERAG_PROG_ALLGEMEIN.cFirmen(row.Cells("txt_firmaSig").Value)
|
||||
'row.Cells("txt_firmaSig").Value = tmpFirma.Firma_Bez.ToString
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
|
||||
|
||||
If checkIfFirmaIsFilled(True) = False Then Exit Sub
|
||||
|
||||
Dim input = InputBox("Bitte geben Sie die Bezeichnung der neuen Mailvorlage ein:", "Mailvorlage anlegen")
|
||||
If input <> "" Then
|
||||
If checkNameIsValid(input) Then
|
||||
Dim txtkonserve As New cTextkonserve()
|
||||
txtkonserve.txt_bezeichnung = input
|
||||
txtkonserve.txt_kategorie = "FRM_MNGR_MailText"
|
||||
txtkonserve.txt_dynMailvorlage = True
|
||||
txtkonserve.txt_sprache = cbxSpracheSelected._value
|
||||
txtkonserve.txt_text = " "
|
||||
txtkonserve.txt_betreff = " "
|
||||
txtkonserve.txt_FIRMA = cbxFirma.Text
|
||||
txtkonserve.txt_firmaSig = 1
|
||||
txtkonserve.txt_letzteAenderung = DateTime.Now
|
||||
txtkonserve.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
If txtkonserve.SAVE() Then
|
||||
initDGVMailvorlagen(cbxFirma._value)
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("Es existiert bereits ein Mailvorlage " & input & " für die Firma " & cbxFirma._value & "in der Sprache " & cbxSpracheSelected._value)
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("Keine Bezeichnung angegeben!")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
|
||||
If dgvMailvorlagen.SelectedRows.Count > 0 Then
|
||||
|
||||
Dim txtKonserve As New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie diesen Mailvorlage " & txtKonserve.txt_bezeichnung & " (" & txtKonserve.txt_sprache & ")" & " in " & txtKonserve.txt_FIRMA & " wirklich löschen?", vbYesNo) Then
|
||||
'txtKonserve.deleteWarenort(txtKonserve.txt_Id) ' delete funktion implementierten
|
||||
initDGVMailvorlagen(cbxFirma._value)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function checkNameIsValid(name As String) As Boolean
|
||||
|
||||
If dgvMailvorlagen.Rows.Count = 0 Then Return True
|
||||
If checkIfFirmaIsFilled(False) = False Then Return False
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvMailvorlagen.Rows
|
||||
If Not IsDBNull(row.Cells("txt_bezeichnung").Value) AndAlso Not IsDBNull(row.Cells("txt_FIRMA").Value) Then
|
||||
If row.Cells("txt_bezeichnung").Value.ToLower = name.ToLower AndAlso row.Cells("txt_FIRMA").Value = cbxFirma._value Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub dgvMailvorlagen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvMailvorlagen.SelectionChanged
|
||||
Try
|
||||
|
||||
|
||||
If dgvMailvorlagen.SelectedRows.Count < 1 Then
|
||||
mainPanel.Enabled = False
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
mainPanel.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
txtkonserve = New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
|
||||
|
||||
rtb_Emailtext.Text = txtkonserve.txt_text
|
||||
txtBezeichnung.Text = txtkonserve.txt_bezeichnung
|
||||
txtBetreff.Text = txtkonserve.txt_betreff
|
||||
cbxAktiv.Checked = txtkonserve.txt_dynMailvorlage
|
||||
cboSprache._value = txtkonserve.txt_sprache
|
||||
rtb_Emailtext.Text = h2t.ToText(txtkonserve.txt_text)
|
||||
cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
|
||||
cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
Try
|
||||
checkIfFirmaIsFilled(False)
|
||||
|
||||
Dim txtKS As New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
|
||||
|
||||
If checkFields() = False Then Exit Sub
|
||||
|
||||
txtKS.txt_bezeichnung = txtBezeichnung.Text
|
||||
txtKS.txt_betreff = txtBetreff.Text
|
||||
txtKS.txt_dynMailvorlage = cbxAktiv.Checked
|
||||
txtKS.txt_sprache = cboSprache._value
|
||||
txtKS.txt_text = insertlinebreaks(rtb_Emailtext.Text)
|
||||
txtKS.txt_FIRMA = cbxFirmaChange._value
|
||||
txtKS.txt_firmaSig = cboFirmensignatur._value
|
||||
txtKS.txt_letzteAenderung = DateTime.Now
|
||||
txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
|
||||
txtKS.SAVE()
|
||||
|
||||
dgvMailvorlagen.GetOrder()
|
||||
initDGVMailvorlagen(cbxFirma._value)
|
||||
dgvMailvorlagen.SetOrder()
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxFirma.SelectedValueChanged, cbxSpracheSelected.SelectedValueChanged
|
||||
Try
|
||||
|
||||
dgvMailvorlagen.GetOrder()
|
||||
initDGVMailvorlagen(cbxFirma._value, txtSuche.Text, cbxSpracheSelected._value)
|
||||
dgvMailvorlagen.SetOrder()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function checkIfFirmaIsFilled(initialSave As Boolean, Optional setWarning As Boolean = True)
|
||||
|
||||
If cbxFirma._value = "" Then
|
||||
If ((dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is DBNull.Value Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is Nothing Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = "") Or initialSave = True) Then 'And initialSave = False ???
|
||||
|
||||
If setWarning Then
|
||||
lblWarning.Text = "Bitte Firma auswählen!"
|
||||
Else
|
||||
lblWarning.Text = ""
|
||||
End If
|
||||
|
||||
Return False
|
||||
End If
|
||||
lblWarning.Text = ""
|
||||
Return True
|
||||
|
||||
Else
|
||||
|
||||
lblWarning.Text = ""
|
||||
Return True
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
Private Function checkFields() As Boolean
|
||||
|
||||
lblWarning.Text = ""
|
||||
Return True
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
|
||||
initDGVMailvorlagen(cbxFirma._value, txtSuche.Text, cboSprache._value)
|
||||
e.Handled = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rtb_Emailtext_TextChanged(sender As Object, e As EventArgs) Handles rtb_Emailtext.TextChanged
|
||||
Dim wordcount = rtb_Emailtext.TextLength
|
||||
lblWordcount.Text = "(" & wordcount & "/65500)"
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
|
||||
Try
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= insertlinebreaks(rtb_Emailtext.Text)
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(cboSprache._value, cboFirmensignatur._value, True, True)
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
Mail.Subject = txtBetreff.Text
|
||||
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function insertlinebreaks(text As String) As String
|
||||
|
||||
Return text.ToString.Replace(vbLf, vbLf & "<br>")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
65
SDL/kunden/frmKundenblatt.Designer.vb
generated
65
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -155,6 +155,8 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTV = New System.Windows.Forms.TabPage()
|
||||
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
|
||||
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.Label27 = New System.Windows.Forms.Label()
|
||||
Me.Label37 = New System.Windows.Forms.Label()
|
||||
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
@@ -261,7 +263,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbFirmendaten.Name = "tbFirmendaten"
|
||||
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 744)
|
||||
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbFirmendaten.TabIndex = 3
|
||||
Me.tbFirmendaten.Text = "Firmendaten"
|
||||
'
|
||||
@@ -271,7 +273,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel4.Location = New System.Drawing.Point(3, 3)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(1624, 738)
|
||||
Me.Panel4.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.Panel4.TabIndex = 0
|
||||
'
|
||||
'UsrcntlKundeBearbeitenFull1
|
||||
@@ -281,7 +283,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 738)
|
||||
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
|
||||
'
|
||||
'tbcntrMain
|
||||
@@ -721,7 +723,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbZoll.Name = "tbZoll"
|
||||
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1630, 744)
|
||||
Me.tbZoll.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbZoll.TabIndex = 9
|
||||
Me.tbZoll.Text = "ZOLL"
|
||||
Me.tbZoll.UseVisualStyleBackColor = True
|
||||
@@ -733,7 +735,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
|
||||
Me.tbcntrZOLL.Name = "tbcntrZOLL"
|
||||
Me.tbcntrZOLL.SelectedIndex = 0
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 738)
|
||||
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.tbcntrZOLL.TabIndex = 0
|
||||
'
|
||||
'tabZoll_Artikel
|
||||
@@ -741,7 +743,7 @@ Partial Class frmKundenblatt
|
||||
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
|
||||
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 712)
|
||||
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 729)
|
||||
Me.tabZoll_Artikel.TabIndex = 1
|
||||
Me.tabZoll_Artikel.Text = "Artikel"
|
||||
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
|
||||
@@ -752,7 +754,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbMdm.Name = "tbMdm"
|
||||
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1630, 744)
|
||||
Me.tbMdm.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbMdm.TabIndex = 10
|
||||
Me.tbMdm.Text = "MDM"
|
||||
Me.tbMdm.UseVisualStyleBackColor = True
|
||||
@@ -770,7 +772,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbcntrMDM.Name = "tbcntrMDM"
|
||||
Me.tbcntrMDM.SelectedIndex = 0
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 738)
|
||||
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 755)
|
||||
Me.tbcntrMDM.TabIndex = 0
|
||||
'
|
||||
'tbSDL
|
||||
@@ -782,7 +784,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.tbSDL.Name = "tbSDL"
|
||||
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1616, 712)
|
||||
Me.tbSDL.Size = New System.Drawing.Size(1616, 729)
|
||||
Me.tbSDL.TabIndex = 5
|
||||
Me.tbSDL.Text = "SDL-Leistungen"
|
||||
Me.tbSDL.UseVisualStyleBackColor = True
|
||||
@@ -824,7 +826,7 @@ Partial Class frmKundenblatt
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
|
||||
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 516)
|
||||
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 533)
|
||||
Me.dgvSDLLeistungenFull.TabIndex = 5
|
||||
'
|
||||
'Panel6
|
||||
@@ -928,7 +930,7 @@ Partial Class frmKundenblatt
|
||||
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
|
||||
Me.Panel5.Controls.Add(Me.rtbVermerke)
|
||||
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 566)
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 583)
|
||||
Me.Panel5.Name = "Panel5"
|
||||
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
|
||||
Me.Panel5.TabIndex = 177
|
||||
@@ -1792,7 +1794,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
|
||||
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.tbOfferte.Name = "tbOfferte"
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1630, 744)
|
||||
Me.tbOfferte.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.tbOfferte.TabIndex = 11
|
||||
Me.tbOfferte.Text = "Offerte"
|
||||
Me.tbOfferte.UseVisualStyleBackColor = True
|
||||
@@ -1804,7 +1806,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 744)
|
||||
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 761)
|
||||
Me.UsrCntlOfferte1.TabIndex = 0
|
||||
'
|
||||
'tbUSTV
|
||||
@@ -1831,6 +1833,8 @@ Partial Class frmKundenblatt
|
||||
'
|
||||
'tbUSTVDokumente
|
||||
'
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.Label8)
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVsonstigeDokumente)
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.Label27)
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.Label37)
|
||||
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest)
|
||||
@@ -1842,6 +1846,35 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTVDokumente.Text = "Dokumente"
|
||||
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(604, 17)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(126, 13)
|
||||
Me.Label8.TabIndex = 8
|
||||
Me.Label8.Text = "sonstige Dokumente:"
|
||||
'
|
||||
'scanUSTVsonstigeDokumente
|
||||
'
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE"
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM"
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = ""
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = ""
|
||||
Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = ""
|
||||
Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False
|
||||
Me.scanUSTVsonstigeDokumente._TYPE = "PDF"
|
||||
Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White
|
||||
Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36)
|
||||
Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente"
|
||||
Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505)
|
||||
Me.scanUSTVsonstigeDokumente.TabIndex = 7
|
||||
'
|
||||
'Label27
|
||||
'
|
||||
Me.Label27.AutoSize = True
|
||||
@@ -1906,7 +1939,7 @@ Partial Class frmKundenblatt
|
||||
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
|
||||
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 735)
|
||||
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
|
||||
Me.tbUSTVAntrage.TabIndex = 9
|
||||
Me.tbUSTVAntrage.Text = "USTV-Anträge"
|
||||
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
|
||||
@@ -1916,7 +1949,7 @@ Partial Class frmKundenblatt
|
||||
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
|
||||
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
|
||||
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 729)
|
||||
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
|
||||
Me.UsrCntlUSTV.TabIndex = 0
|
||||
'
|
||||
'cntxtExcel
|
||||
@@ -2425,4 +2458,6 @@ Partial Class frmKundenblatt
|
||||
Friend WithEvents scanUSTVVollmachten As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
Friend WithEvents tbUSTVAntrage As TabPage
|
||||
Friend WithEvents UsrCntlUSTV As usrCntlUSTV
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents scanUSTVsonstigeDokumente As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
|
||||
End Class
|
||||
|
||||
@@ -85,7 +85,7 @@ Public Class usrCntlKundenBesonderheiten
|
||||
End Sub
|
||||
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
|
||||
|
||||
If dgvBesonderheiten.Columns IsNot Nothing Then
|
||||
If dgvBesonderheiten.Columns IsNot Nothing AndAlso dgvBesonderheiten.Columns.Count > 0 Then
|
||||
dgvBesonderheiten.Columns.Clear()
|
||||
End If
|
||||
|
||||
|
||||
@@ -2739,10 +2739,10 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
|
||||
Else
|
||||
Dim cs = New cCreditSafeAPI()
|
||||
Dim cs = New cCreditSafeAPI("creditsafe")
|
||||
|
||||
'If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then
|
||||
If cs.authenticate("creditsafe@verag.ag", "^AZcBVTBUIHTT5SQ1C9OOH") = "200" Then
|
||||
If cs.authenticate() = "200" Then
|
||||
|
||||
'Prüfung wird benötigt, da deutsche Abfragen einen Reasoncode benötigen!
|
||||
If checkNullStr(ADRESSE.LandKz) = "" Then
|
||||
@@ -2788,7 +2788,7 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
|
||||
Else
|
||||
MsgBox("Authentifizierungsfehler für User " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser)
|
||||
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user