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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
d.breimaier
2025-12-30 13:14:31 +01:00
parent 614bfdc398 d0c42dcd5f
commit 3c451963b6
15 changed files with 3120 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb generated
View File

@@ -47,6 +47,7 @@ Partial Public Class rptPreislisten
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -77,6 +78,7 @@ Partial Public Class rptPreislisten
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -277,7 +279,7 @@ Partial Public Class rptPreislisten
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6, Me.TextBox7})
Me.ReportHeader1.Height = 2.176378!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -420,6 +422,18 @@ Partial Public Class rptPreislisten
Me.TextBox6.Visible = False
Me.TextBox6.Width = 3.592911!
'
'TextBox7
'
Me.TextBox7.Height = 0.5000001!
Me.TextBox7.Left = 3.120079!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.TextBox7.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 26 77-0 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & " o" &
"ffice@unisped.at"
Me.TextBox7.Top = 0!
Me.TextBox7.Visible = False
Me.TextBox7.Width = 3.592911!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
@@ -440,7 +454,7 @@ Partial Public Class rptPreislisten
'
'Line
'
Me.Line.Height = 0.0001811981!
Me.Line.Height = 0.0001809597!
Me.Line.Left = 0.02362205!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
@@ -565,6 +579,7 @@ Partial Public Class rptPreislisten
'
'rptPreislisten
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937007!
Me.PageSettings.Margins.Left = 0.7874016!
Me.PageSettings.Margins.Right = 0.3937007!
@@ -600,6 +615,7 @@ Partial Public Class rptPreislisten
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
@@ -652,4 +668,5 @@ Partial Public Class rptPreislisten
Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

670
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb generated Normal file
View File

@@ -0,0 +1,670 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlCBAM_direkt
Inherits System.Windows.Forms.UserControl
'UserControl ü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.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblLagervertrag = New System.Windows.Forms.Label()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboPaketOption = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_jeWeitere_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_MonatPausch_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_Onboarding_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_jeWeitere_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_MonatPausch_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_Onboarding_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Adresse:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 8
Me.btn.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Ansprechpartner:"
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.Enabled = False
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
Me.txtAnsprechpartner.TabIndex = 3
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 13
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 7
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 32
Me.pic.TabStop = False
'
'lblLagervertrag
'
Me.lblLagervertrag.AutoSize = True
Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
Me.lblLagervertrag.Name = "lblLagervertrag"
Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20)
Me.lblLagervertrag.TabIndex = 1
Me.lblLagervertrag.Text = "CBAM - direkt"
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "Sprache:"
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 10
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(251, 130)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(139, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Offert Paket ""CBAM Basic"":"
'
'txtCBAM_Onboarding_Paket_1
'
Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False
Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True
Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_Onboarding_Paket_1._Prozent = False
Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False
Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False
Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False
Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_Onboarding_Paket_1._value = Nothing
Me.txtCBAM_Onboarding_Paket_1._Waehrung = False
Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True
Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 146)
Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1
Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1"
Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19
'
'cboPaketOption
'
Me.cboPaketOption._allowedValuesFreiText = Nothing
Me.cboPaketOption._allowFreiText = False
Me.cboPaketOption._value = ""
Me.cboPaketOption.FormattingEnabled = True
Me.cboPaketOption.Location = New System.Drawing.Point(460, 98)
Me.cboPaketOption.Name = "cboPaketOption"
Me.cboPaketOption.Size = New System.Drawing.Size(200, 21)
Me.cboPaketOption.TabIndex = 33
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(416, 101)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(38, 13)
Me.Label2.TabIndex = 34
Me.Label2.Text = "Paket:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(170, 169)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(81, 13)
Me.Label3.TabIndex = 35
Me.Label3.Text = "Monatl.Pausch:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(170, 189)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(81, 13)
Me.Label4.TabIndex = 36
Me.Label4.Text = "Je weitere Lief.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 149)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 37
Me.Label6.Text = "Onboarding:"
'
'txtCBAM_MonatPausch_Paket_1
'
Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False
Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True
Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_MonatPausch_Paket_1._Prozent = False
Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False
Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False
Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False
Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_MonatPausch_Paket_1._value = ""
Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False
Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True
Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 166)
Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1
Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1"
Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38
'
'txtCBAM_jeWeitere_Paket_1
'
Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False
Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True
Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeWeitere_Paket_1._Prozent = False
Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False
Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False
Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False
Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_jeWeitere_Paket_1._value = ""
Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False
Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True
Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 186)
Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1
Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1"
Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39
'
'txtCBAM_jeWeitere_Paket_2
'
Me.txtCBAM_jeWeitere_Paket_2._DateTimeOnly = False
Me.txtCBAM_jeWeitere_Paket_2._numbersOnly = True
Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyKommastellen = ""
Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeWeitere_Paket_2._Prozent = False
Me.txtCBAM_jeWeitere_Paket_2._ShortDateNew = False
Me.txtCBAM_jeWeitere_Paket_2._ShortDateOnly = False
Me.txtCBAM_jeWeitere_Paket_2._TimeOnly = False
Me.txtCBAM_jeWeitere_Paket_2._TimeOnly_Seconds = False
Me.txtCBAM_jeWeitere_Paket_2._value = ""
Me.txtCBAM_jeWeitere_Paket_2._Waehrung = False
Me.txtCBAM_jeWeitere_Paket_2._WaehrungZeichen = True
Me.txtCBAM_jeWeitere_Paket_2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeWeitere_Paket_2.Location = New System.Drawing.Point(460, 186)
Me.txtCBAM_jeWeitere_Paket_2.MaxLineLength = -1
Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning = ""
Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeWeitere_Paket_2.Name = "txtCBAM_jeWeitere_Paket_2"
Me.txtCBAM_jeWeitere_Paket_2.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeWeitere_Paket_2.TabIndex = 42
'
'txtCBAM_MonatPausch_Paket_2
'
Me.txtCBAM_MonatPausch_Paket_2._DateTimeOnly = False
Me.txtCBAM_MonatPausch_Paket_2._numbersOnly = True
Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyKommastellen = ""
Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyTrennzeichen = True
Me.txtCBAM_MonatPausch_Paket_2._Prozent = False
Me.txtCBAM_MonatPausch_Paket_2._ShortDateNew = False
Me.txtCBAM_MonatPausch_Paket_2._ShortDateOnly = False
Me.txtCBAM_MonatPausch_Paket_2._TimeOnly = False
Me.txtCBAM_MonatPausch_Paket_2._TimeOnly_Seconds = False
Me.txtCBAM_MonatPausch_Paket_2._value = ""
Me.txtCBAM_MonatPausch_Paket_2._Waehrung = False
Me.txtCBAM_MonatPausch_Paket_2._WaehrungZeichen = True
Me.txtCBAM_MonatPausch_Paket_2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_MonatPausch_Paket_2.Location = New System.Drawing.Point(460, 166)
Me.txtCBAM_MonatPausch_Paket_2.MaxLineLength = -1
Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning = ""
Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_MonatPausch_Paket_2.Name = "txtCBAM_MonatPausch_Paket_2"
Me.txtCBAM_MonatPausch_Paket_2.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_MonatPausch_Paket_2.TabIndex = 41
'
'txtCBAM_Onboarding_Paket_2
'
Me.txtCBAM_Onboarding_Paket_2._DateTimeOnly = False
Me.txtCBAM_Onboarding_Paket_2._numbersOnly = True
Me.txtCBAM_Onboarding_Paket_2._numbersOnlyKommastellen = ""
Me.txtCBAM_Onboarding_Paket_2._numbersOnlyTrennzeichen = True
Me.txtCBAM_Onboarding_Paket_2._Prozent = False
Me.txtCBAM_Onboarding_Paket_2._ShortDateNew = False
Me.txtCBAM_Onboarding_Paket_2._ShortDateOnly = False
Me.txtCBAM_Onboarding_Paket_2._TimeOnly = False
Me.txtCBAM_Onboarding_Paket_2._TimeOnly_Seconds = False
Me.txtCBAM_Onboarding_Paket_2._value = ""
Me.txtCBAM_Onboarding_Paket_2._Waehrung = False
Me.txtCBAM_Onboarding_Paket_2._WaehrungZeichen = True
Me.txtCBAM_Onboarding_Paket_2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_Onboarding_Paket_2.Location = New System.Drawing.Point(460, 146)
Me.txtCBAM_Onboarding_Paket_2.MaxLineLength = -1
Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning = ""
Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_Onboarding_Paket_2.Name = "txtCBAM_Onboarding_Paket_2"
Me.txtCBAM_Onboarding_Paket_2.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_Onboarding_Paket_2.TabIndex = 40
'
'txtCBAM_jeWeitere_Paket_3
'
Me.txtCBAM_jeWeitere_Paket_3._DateTimeOnly = False
Me.txtCBAM_jeWeitere_Paket_3._numbersOnly = True
Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyKommastellen = ""
Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeWeitere_Paket_3._Prozent = False
Me.txtCBAM_jeWeitere_Paket_3._ShortDateNew = False
Me.txtCBAM_jeWeitere_Paket_3._ShortDateOnly = False
Me.txtCBAM_jeWeitere_Paket_3._TimeOnly = False
Me.txtCBAM_jeWeitere_Paket_3._TimeOnly_Seconds = False
Me.txtCBAM_jeWeitere_Paket_3._value = ""
Me.txtCBAM_jeWeitere_Paket_3._Waehrung = False
Me.txtCBAM_jeWeitere_Paket_3._WaehrungZeichen = True
Me.txtCBAM_jeWeitere_Paket_3.Enabled = False
Me.txtCBAM_jeWeitere_Paket_3.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeWeitere_Paket_3.Location = New System.Drawing.Point(666, 186)
Me.txtCBAM_jeWeitere_Paket_3.MaxLineLength = -1
Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning = ""
Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeWeitere_Paket_3.Name = "txtCBAM_jeWeitere_Paket_3"
Me.txtCBAM_jeWeitere_Paket_3.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeWeitere_Paket_3.TabIndex = 45
'
'txtCBAM_MonatPausch_Paket_3
'
Me.txtCBAM_MonatPausch_Paket_3._DateTimeOnly = False
Me.txtCBAM_MonatPausch_Paket_3._numbersOnly = True
Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyKommastellen = ""
Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyTrennzeichen = True
Me.txtCBAM_MonatPausch_Paket_3._Prozent = False
Me.txtCBAM_MonatPausch_Paket_3._ShortDateNew = False
Me.txtCBAM_MonatPausch_Paket_3._ShortDateOnly = False
Me.txtCBAM_MonatPausch_Paket_3._TimeOnly = False
Me.txtCBAM_MonatPausch_Paket_3._TimeOnly_Seconds = False
Me.txtCBAM_MonatPausch_Paket_3._value = ""
Me.txtCBAM_MonatPausch_Paket_3._Waehrung = False
Me.txtCBAM_MonatPausch_Paket_3._WaehrungZeichen = True
Me.txtCBAM_MonatPausch_Paket_3.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_MonatPausch_Paket_3.Location = New System.Drawing.Point(666, 166)
Me.txtCBAM_MonatPausch_Paket_3.MaxLineLength = -1
Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning = ""
Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning_Label = Nothing
Me.txtCBAM_MonatPausch_Paket_3.Name = "txtCBAM_MonatPausch_Paket_3"
Me.txtCBAM_MonatPausch_Paket_3.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_MonatPausch_Paket_3.TabIndex = 44
'
'txtCBAM_Onboarding_Paket_3
'
Me.txtCBAM_Onboarding_Paket_3._DateTimeOnly = False
Me.txtCBAM_Onboarding_Paket_3._numbersOnly = True
Me.txtCBAM_Onboarding_Paket_3._numbersOnlyKommastellen = ""
Me.txtCBAM_Onboarding_Paket_3._numbersOnlyTrennzeichen = True
Me.txtCBAM_Onboarding_Paket_3._Prozent = False
Me.txtCBAM_Onboarding_Paket_3._ShortDateNew = False
Me.txtCBAM_Onboarding_Paket_3._ShortDateOnly = False
Me.txtCBAM_Onboarding_Paket_3._TimeOnly = False
Me.txtCBAM_Onboarding_Paket_3._TimeOnly_Seconds = False
Me.txtCBAM_Onboarding_Paket_3._value = ""
Me.txtCBAM_Onboarding_Paket_3._Waehrung = False
Me.txtCBAM_Onboarding_Paket_3._WaehrungZeichen = True
Me.txtCBAM_Onboarding_Paket_3.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_Onboarding_Paket_3.Location = New System.Drawing.Point(666, 146)
Me.txtCBAM_Onboarding_Paket_3.MaxLineLength = -1
Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning = ""
Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning_Label = Nothing
Me.txtCBAM_Onboarding_Paket_3.Name = "txtCBAM_Onboarding_Paket_3"
Me.txtCBAM_Onboarding_Paket_3.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_Onboarding_Paket_3.TabIndex = 43
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(457, 130)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(156, 13)
Me.Label7.TabIndex = 46
Me.Label7.Text = "Offert Paket ""CBAM Standard"":"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(663, 130)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(153, 13)
Me.Label9.TabIndex = 47
Me.Label9.Text = "Offert Paket ""CBAM Premium"":"
'
'txtVertragsbeginn
'
Me.txtVertragsbeginn._DateTimeOnly = False
Me.txtVertragsbeginn._numbersOnly = False
Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
Me.txtVertragsbeginn._Prozent = False
Me.txtVertragsbeginn._ShortDateNew = True
Me.txtVertragsbeginn._ShortDateOnly = False
Me.txtVertragsbeginn._TimeOnly = False
Me.txtVertragsbeginn._TimeOnly_Seconds = False
Me.txtVertragsbeginn._value = ""
Me.txtVertragsbeginn._Waehrung = False
Me.txtVertragsbeginn._WaehrungZeichen = True
Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98)
Me.txtVertragsbeginn.MaxLength = 10
Me.txtVertragsbeginn.MaxLineLength = -1
Me.txtVertragsbeginn.MaxLines_Warning = ""
Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
Me.txtVertragsbeginn.TabIndex = 49
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(167, 101)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(81, 13)
Me.Label10.TabIndex = 48
Me.Label10.Text = "Vertragsbeginn:"
'
'usrcntlCBAM_direkt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtVertragsbeginn)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_3)
Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_3)
Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_3)
Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_2)
Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_2)
Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_2)
Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1)
Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cboPaketOption)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.lblLagervertrag)
Me.Controls.Add(Me.txtAnsprechpartner)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlCBAM_direkt"
Me.Size = New System.Drawing.Size(1000, 217)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboPaketOption As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label6 As Label
Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_jeWeitere_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_MonatPausch_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_Onboarding_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_jeWeitere_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_MonatPausch_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_Onboarding_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label9 As Label
Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx Normal file
View 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>

111
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb Normal file
View File

@@ -0,0 +1,111 @@
Public Class usrcntlCBAM_direkt
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
'txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboPaketOption.Items.Clear()
cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Basic", "CBAM_Basic"))
cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Standard", "CBAM_Standard"))
cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Premium", "CBAM_Premium"))
cboPaketOption.changeItem("")
txtCBAM_Onboarding_Paket_1._value = 200
txtCBAM_MonatPausch_Paket_1._value = 100
txtCBAM_jeWeitere_Paket_1._value = 10
txtCBAM_Onboarding_Paket_2._value = 200
txtCBAM_MonatPausch_Paket_2._value = 175
txtCBAM_jeWeitere_Paket_2._value = 10
txtCBAM_Onboarding_Paket_3._value = 200
txtCBAM_MonatPausch_Paket_3._value = 350
'txtCBAM_jeWeitere_Paket_3._value = 10
txtVertragsbeginn.Text = "01.01." & Now.Year
If Now.Month > 11 Then
txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
End If
' txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
End Class

409
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb generated Normal file
View File

@@ -0,0 +1,409 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlCBAM_Zertifikate
Inherits System.Windows.Forms.UserControl
'UserControl ü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.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblLagervertrag = New System.Windows.Forms.Label()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Adresse:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 8
Me.btn.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Ansprechpartner:"
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.Enabled = False
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
Me.txtAnsprechpartner.TabIndex = 3
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 13
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 7
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 32
Me.pic.TabStop = False
'
'lblLagervertrag
'
Me.lblLagervertrag.AutoSize = True
Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
Me.lblLagervertrag.Name = "lblLagervertrag"
Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20)
Me.lblLagervertrag.TabIndex = 1
Me.lblLagervertrag.Text = "CBAM - direkt"
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "Sprache:"
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 10
'
'txtVertragsbeginn
'
Me.txtVertragsbeginn._DateTimeOnly = False
Me.txtVertragsbeginn._numbersOnly = False
Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
Me.txtVertragsbeginn._Prozent = False
Me.txtVertragsbeginn._ShortDateNew = True
Me.txtVertragsbeginn._ShortDateOnly = False
Me.txtVertragsbeginn._TimeOnly = False
Me.txtVertragsbeginn._TimeOnly_Seconds = False
Me.txtVertragsbeginn._value = ""
Me.txtVertragsbeginn._Waehrung = False
Me.txtVertragsbeginn._WaehrungZeichen = True
Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98)
Me.txtVertragsbeginn.MaxLength = 10
Me.txtVertragsbeginn.MaxLineLength = -1
Me.txtVertragsbeginn.MaxLines_Warning = ""
Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
Me.txtVertragsbeginn.TabIndex = 49
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(170, 101)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(81, 13)
Me.Label10.TabIndex = 48
Me.Label10.Text = "Vertragsbeginn:"
'
'txtCBAM_ZertAufschlag_Paket_1
'
Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False
Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False
Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_ZertAufschlag_Paket_1._value = ""
Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False
Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True
Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(254, 145)
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1"
Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 56
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(170, 148)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(68, 13)
Me.Label11.TabIndex = 55
Me.Label11.Text = "Aufschlag %:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(170, 128)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 13)
Me.Label3.TabIndex = 54
Me.Label3.Text = "Zert.bestellung:"
'
'txtCBAM_jeZertBest_Paket_1
'
Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False
Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True
Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeZertBest_Paket_1._Prozent = False
Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False
Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False
Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False
Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_jeZertBest_Paket_1._value = ""
Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False
Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True
Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(254, 125)
Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1
Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1"
Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 53
'
'usrcntlCBAM_Zertifikate
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtCBAM_ZertAufschlag_Paket_1)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1)
Me.Controls.Add(Me.txtVertragsbeginn)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.lblLagervertrag)
Me.Controls.Add(Me.txtAnsprechpartner)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlCBAM_Zertifikate"
Me.Size = New System.Drawing.Size(1000, 182)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label
Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.resx Normal file
View 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>

94
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.vb Normal file
View File

@@ -0,0 +1,94 @@
Public Class usrcntlCBAM_Zertifikate
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
'txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
txtCBAM_jeZertBest_Paket_1._value = 50
txtCBAM_ZertAufschlag_Paket_1._value = 10
txtVertragsbeginn.Text = "01.01." & Now.Year
If Now.Month > 11 Then
txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
End If
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
End Class

536
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb generated Normal file
View File

@@ -0,0 +1,536 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlCBAM_indirekt
Inherits System.Windows.Forms.UserControl
'UserControl ü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.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblLagervertrag = New System.Windows.Forms.Label()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Adresse:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 8
Me.btn.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Ansprechpartner:"
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.Enabled = False
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
Me.txtAnsprechpartner.TabIndex = 3
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 13
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 7
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 32
Me.pic.TabStop = False
'
'lblLagervertrag
'
Me.lblLagervertrag.AutoSize = True
Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
Me.lblLagervertrag.Name = "lblLagervertrag"
Me.lblLagervertrag.Size = New System.Drawing.Size(236, 20)
Me.lblLagervertrag.TabIndex = 1
Me.lblLagervertrag.Text = "CBAM - indirekt + Zertifikate"
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "Sprache:"
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 10
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(251, 126)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(36, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Offert:"
'
'txtCBAM_Onboarding_Paket_1
'
Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False
Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True
Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_Onboarding_Paket_1._Prozent = False
Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False
Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False
Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False
Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_Onboarding_Paket_1._value = ""
Me.txtCBAM_Onboarding_Paket_1._Waehrung = False
Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True
Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 142)
Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1
Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1"
Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(170, 165)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(81, 13)
Me.Label3.TabIndex = 35
Me.Label3.Text = "Monatl.Pausch:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(170, 185)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(81, 13)
Me.Label4.TabIndex = 36
Me.Label4.Text = "Je weitere Lief.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 145)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 37
Me.Label6.Text = "Onboarding:"
'
'txtCBAM_MonatPausch_Paket_1
'
Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False
Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True
Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_MonatPausch_Paket_1._Prozent = False
Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False
Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False
Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False
Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_MonatPausch_Paket_1._value = ""
Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False
Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True
Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 162)
Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1
Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1"
Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38
'
'txtCBAM_jeWeitere_Paket_1
'
Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False
Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True
Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeWeitere_Paket_1._Prozent = False
Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False
Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False
Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False
Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_jeWeitere_Paket_1._value = ""
Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False
Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True
Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 182)
Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1
Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1"
Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39
'
'txtCBAM_jeZertBest_Paket_1
'
Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False
Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True
Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_jeZertBest_Paket_1._Prozent = False
Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False
Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False
Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False
Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_jeZertBest_Paket_1._value = ""
Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False
Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True
Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(544, 142)
Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1
Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1"
Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 42
'
'txtVertragsbeginn
'
Me.txtVertragsbeginn._DateTimeOnly = False
Me.txtVertragsbeginn._numbersOnly = False
Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
Me.txtVertragsbeginn._Prozent = False
Me.txtVertragsbeginn._ShortDateNew = True
Me.txtVertragsbeginn._ShortDateOnly = False
Me.txtVertragsbeginn._TimeOnly = False
Me.txtVertragsbeginn._TimeOnly_Seconds = False
Me.txtVertragsbeginn._value = ""
Me.txtVertragsbeginn._Waehrung = False
Me.txtVertragsbeginn._WaehrungZeichen = True
Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
Me.txtVertragsbeginn.Location = New System.Drawing.Point(257, 98)
Me.txtVertragsbeginn.MaxLength = 10
Me.txtVertragsbeginn.MaxLineLength = -1
Me.txtVertragsbeginn.MaxLines_Warning = ""
Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
Me.txtVertragsbeginn.TabIndex = 49
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(170, 101)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(81, 13)
Me.Label10.TabIndex = 48
Me.Label10.Text = "Vertragsbeginn:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(460, 145)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(80, 13)
Me.Label2.TabIndex = 50
Me.Label2.Text = "Zert.bestellung:"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(460, 165)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(68, 13)
Me.Label11.TabIndex = 51
Me.Label11.Text = "Aufschlag %:"
'
'txtCBAM_ZertAufschlag_Paket_1
'
Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = ""
Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True
Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False
Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False
Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False
Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False
Me.txtCBAM_ZertAufschlag_Paket_1._value = ""
Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False
Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True
Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(544, 162)
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = ""
Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1"
Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20)
Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 52
'
'usrcntlCBAM_indirekt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtCBAM_ZertAufschlag_Paket_1)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtVertragsbeginn)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1)
Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1)
Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.lblLagervertrag)
Me.Controls.Add(Me.txtAnsprechpartner)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlCBAM_indirekt"
Me.Size = New System.Drawing.Size(1000, 221)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label6 As Label
Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label11 As Label
Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.resx Normal file
View 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>

101
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.vb Normal file
View File

@@ -0,0 +1,101 @@
Public Class usrcntlCBAM_indirekt
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
'txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
txtCBAM_Onboarding_Paket_1._value = 200
txtCBAM_MonatPausch_Paket_1._value = 175
txtCBAM_jeWeitere_Paket_1._value = 10
txtCBAM_jeZertBest_Paket_1._value = 50
txtCBAM_ZertAufschlag_Paket_1._value = 10
txtVertragsbeginn.Text = "01.01." & Now.Year
If Now.Month > 11 Then
txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
End If
'txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
End Class

321
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -78,6 +78,36 @@
initControlsHandler()
Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
cboFirma.changeItem("IMEX")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
' End If
MyComboBox1.changeItem("VZ")
Case "UNISPED"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
cboFirma.changeItem("UNISPED")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
' End If
MyComboBox1.changeItem("VZ")
Case "IMEX"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
cboFirma.changeItem("IMEX")
@@ -270,6 +300,124 @@
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
Case "EUST"
DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
End Select
Case "UNISPED"
Select Case MyComboBox1._value
Case "VZ"
' Translated English code
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request")
dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
Case "VZ_EV_EN"
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request")
dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
Case "VZ_FISKAL"
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
Case "VZ_FISKAL_DE"
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
Case "VZ_SPECIAL_1"
DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
Case "VZ_SPECIAL_2"
DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
Case "EUST"
DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
@@ -735,6 +883,179 @@
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
End Select
Case "UNISPED"
Select Case MyComboBox1._value
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
Case "VZ_EV"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("CS")
Case "VZ_RW" 'NICHT MEHR!
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
Case "VZ_FISKAL"
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(270).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("CS")
Case "VZ_FISKAL_DE"
DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("AG")
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
Case "VZ_SPECIAL_2" '"VZ Backwaren"
DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
Case "EUST"
DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
End Select
Case "AMBAR"
Select Case MyComboBox1._value

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

@@ -25,15 +25,16 @@ Partial Class frmFormulare
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormulare))
Me.pnl = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.tabAllgemein = New System.Windows.Forms.TabPage()
Me.tabCBAM = New System.Windows.Forms.TabPage()
Me.Label4 = New System.Windows.Forms.Label()
Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen = New System.Windows.Forms.CheckBox()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblFormularManager = New System.Windows.Forms.Label()
Me.pnlBody = New System.Windows.Forms.Panel()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
@@ -51,6 +52,7 @@ Partial Class frmFormulare
Me.Button2 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.pnlBottom.SuspendLayout()
Me.SuspendLayout()
@@ -58,22 +60,52 @@ Partial Class frmFormulare
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.TabControl1)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.cboVorlage)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.Button3)
Me.pnl.Controls.Add(Me.MyListBox2)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen)
Me.pnl.Controls.Add(Me.MyListBox1)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.lblFormularManager)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1326, 125)
Me.pnl.Size = New System.Drawing.Size(1326, 166)
Me.pnl.TabIndex = 0
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.tabAllgemein)
Me.TabControl1.Controls.Add(Me.tabCBAM)
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.TabControl1.Location = New System.Drawing.Point(343, 3)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(896, 25)
Me.TabControl1.TabIndex = 10
'
'tabAllgemein
'
Me.tabAllgemein.Location = New System.Drawing.Point(4, 29)
Me.tabAllgemein.Name = "tabAllgemein"
Me.tabAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tabAllgemein.Size = New System.Drawing.Size(888, 0)
Me.tabAllgemein.TabIndex = 0
Me.tabAllgemein.Text = "Allgemein"
Me.tabAllgemein.UseVisualStyleBackColor = True
'
'tabCBAM
'
Me.tabCBAM.Location = New System.Drawing.Point(4, 29)
Me.tabCBAM.Name = "tabCBAM"
Me.tabCBAM.Padding = New System.Windows.Forms.Padding(3)
Me.tabCBAM.Size = New System.Drawing.Size(888, 0)
Me.tabCBAM.TabIndex = 1
Me.tabCBAM.Text = "CBAM"
Me.tabCBAM.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
@@ -100,7 +132,7 @@ Partial Class frmFormulare
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(1239, 10)
Me.Label3.Location = New System.Drawing.Point(1243, 34)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(86, 13)
Me.Label3.TabIndex = 3
@@ -113,7 +145,7 @@ Partial Class frmFormulare
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatAppearance.BorderSize = 0
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1243, 37)
Me.Button3.Location = New System.Drawing.Point(1247, 52)
Me.Button3.Margin = New System.Windows.Forms.Padding(5)
Me.Button3.Name = "Button3"
Me.Button3.Padding = New System.Windows.Forms.Padding(5)
@@ -127,27 +159,17 @@ Partial Class frmFormulare
Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox2.FormattingEnabled = True
Me.MyListBox2.ItemHeight = 16
Me.MyListBox2.Location = New System.Drawing.Point(810, 23)
Me.MyListBox2.Location = New System.Drawing.Point(810, 34)
Me.MyListBox2.Name = "MyListBox2"
Me.MyListBox2.Size = New System.Drawing.Size(429, 100)
Me.MyListBox2.Size = New System.Drawing.Size(429, 132)
Me.MyListBox2.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(807, 7)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(151, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Weitere Formulare hinzufügen:"
'
'cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen
'
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.AutoSize = True
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked = True
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 103)
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 143)
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Name = "cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen"
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Size = New System.Drawing.Size(322, 17)
Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 9
@@ -160,21 +182,11 @@ Partial Class frmFormulare
Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyListBox1.FormattingEnabled = True
Me.MyListBox1.ItemHeight = 16
Me.MyListBox1.Location = New System.Drawing.Point(343, 23)
Me.MyListBox1.Location = New System.Drawing.Point(343, 34)
Me.MyListBox1.Name = "MyListBox1"
Me.MyListBox1.Size = New System.Drawing.Size(461, 100)
Me.MyListBox1.Size = New System.Drawing.Size(461, 132)
Me.MyListBox1.TabIndex = 6
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(340, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(111, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Vollmacht hinzufügen:"
'
'lblFormularManager
'
Me.lblFormularManager.AutoSize = True
@@ -192,9 +204,9 @@ Partial Class frmFormulare
Me.pnlBody.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlBody.Controls.Add(Me.MyFlowLayoutPanel1)
Me.pnlBody.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlBody.Location = New System.Drawing.Point(0, 125)
Me.pnlBody.Location = New System.Drawing.Point(0, 166)
Me.pnlBody.Name = "pnlBody"
Me.pnlBody.Size = New System.Drawing.Size(1326, 611)
Me.pnlBody.Size = New System.Drawing.Size(1326, 570)
Me.pnlBody.TabIndex = 1
'
'MyFlowLayoutPanel1
@@ -207,7 +219,7 @@ Partial Class frmFormulare
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyFlowLayoutPanel1.MinimumSize = New System.Drawing.Size(1000, 100)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 609)
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 568)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'pnlBottom
@@ -406,6 +418,7 @@ Partial Class frmFormulare
Me.Text = "Formulare"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.pnlBody.ResumeLayout(False)
Me.pnlBody.PerformLayout()
Me.pnlBottom.ResumeLayout(False)
@@ -419,13 +432,11 @@ Partial Class frmFormulare
Friend WithEvents lblFormularManager As System.Windows.Forms.Label
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen As System.Windows.Forms.CheckBox
Friend WithEvents btnPrint As System.Windows.Forms.Button
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents MyListBox2 As VERAG_PROG_ALLGEMEIN.MyListBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Label4 As System.Windows.Forms.Label
@@ -439,4 +450,7 @@ Partial Class frmFormulare
Friend WithEvents Label8 As Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents TabControl1 As TabControl
Friend WithEvents tabAllgemein As TabPage
Friend WithEvents tabCBAM As TabPage
End Class

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

@@ -11,6 +11,8 @@ Imports VERAG_PROG_ALLGEMEIN
Imports com.sun.tools.internal.ws.wsdl.document.mime
Imports com.sun.xml.internal.ws.message.stream
Imports com.sun.org.apache.xerces.internal.xs
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DAKOSY_Worker.VERAG_KundenStamm_Export
Public Class frmFormulare
Dim isSingleForm = False
@@ -173,6 +175,10 @@ Public Class frmFormulare
Return thisIp.ToString
End Function
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
initFormulareList()
End Sub
Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load
'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0)
@@ -188,138 +194,8 @@ Public Class frmFormulare
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"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
Case "ATILLA"
Case "AMBAR"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
Case Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
End If
End Select
'MyListBox1.fillWithMyListItem()
initFormulareList()
initDrucker(cboPrinter)
@@ -328,6 +204,203 @@ Public Class frmFormulare
End If
End Sub
Sub initFormulareList()
MyListBox1.Items.Clear()
MyListBox2.Items.Clear()
Select Case TabControl1.SelectedTab.Name
Case "tabCBAM"
MyListBox1.Visible = True
MyListBox2.Visible = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Case "AMBAR"
Case "ATILLA"
Case "VERAG"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
Case Else
End Select
Case Else
MyListBox1.Visible = True
MyListBox2.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
Case "ATILLA"
Case "AMBAR"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
Case "UNISPED"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_UNISPED))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
Case Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
cboVorlage.Items.Clear()
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
End If
End Select
End Select
End Sub
Sub initFlowLPHeight()
Dim h = 0
For Each c As Control In MyFlowLayoutPanel1.Controls
@@ -881,6 +954,43 @@ Public Class frmFormulare
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.CBAM
Dim c As New usrcntlCBAM_direkt
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.CBAM_Zertifikate
Dim c As New usrcntlCBAM_Zertifikate
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.CBAM_indirekt
Dim c As New usrcntlCBAM_indirekt
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case Else '"VUB_AG", "VUB_CS"
Dim displayName = ""
@@ -1516,6 +1626,15 @@ Public Class FormularManagerNEU
Case GetType(usrcntLagervertrag).ToString
retStr = FormularManagerNEU.LAGERVERTRAG(c)
Case GetType(usrcntlCBAM_direkt).ToString
retStr = FormularManagerNEU.CBAM(c)
Case GetType(usrcntlCBAM_Zertifikate).ToString
retStr = FormularManagerNEU.CBAM_Zertifikate(c)
Case GetType(usrcntlCBAM_indirekt).ToString
retStr = FormularManagerNEU.CBAM_indirekt(c)
End Select
If retStr <> "" Then
@@ -1582,48 +1701,18 @@ Public Class FormularManagerNEU
Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 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
' top = 25
'End If
'Select Case usrCntl.cboSprache._value
' Case "EN"
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
' Case Else
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
'End Select
'Return ""
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim Top = -10
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
@@ -1637,6 +1726,121 @@ Public Class FormularManagerNEU
Return ""
End Function
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
Shared Function CBAM(usrCntl As usrcntlCBAM_direkt) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim Top = 0
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
Select Case usrCntl.cboPaketOption._value
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
End Select
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
' Dim firma=getUO2()
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
End Select
Return ""
End Function
Shared Function CBAM_Zertifikate(usrCntl As usrcntlCBAM_Zertifikate) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim Top = 0
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
End Select
Return ""
End Function
Shared Function CBAM_indirekt(usrCntl As usrcntlCBAM_indirekt) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim Top = 0
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
' Dim firma=getUO2()
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_EN", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite)
End Select
Return ""
End Function
Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String
@@ -1758,7 +1962,7 @@ Public Class FormularManagerNEU
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
@@ -1859,7 +2063,7 @@ Public Class FormularManagerNEU
Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On")))
Case "private_yes" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "On", "Off")))
'soll nur bei aktv. Flag "private Firma" angedruckt werden!
'soll nur bei aktv. Flag "Private Firma" angedruckt werden!
Case "ceo_place_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Ort.Text, "")))
Case "ceo_street_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text, "")))
Case "ceo_country_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Land._value, "")))
@@ -1872,7 +2076,7 @@ Public Class FormularManagerNEU
Case "ceo_birthplace_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geburtsort.Text, "")))
Case "ceo_birthcountry_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Geburtsland.Text, "")))
'soll nur bei deaktv. Flag "private Firma" angedruckt werden!
'soll nur bei deaktv. Flag "Private Firma" angedruckt werden!
Case "name_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
Case "strasse_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse1.Text, "")))
Case "company_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
@@ -1888,13 +2092,13 @@ Public Class FormularManagerNEU
Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text))
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text))
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txtOrt.Text <> "" AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, "")))
Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
Case "Date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
@@ -1909,10 +2113,10 @@ Public Class FormularManagerNEU
Case "c_fax" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefax))
Case "c_mailcontact" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtEmailzurueck.Text))
Case "c_bank" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bankverbindung1))
Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "")))
Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC:", "")))
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "")))
Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC", "")))
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), "")))
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
@@ -2056,11 +2260,11 @@ Public Class FormularManagerNEU
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
@@ -2142,7 +2346,7 @@ Public Class FormularManagerNEU
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
Dim docBez As String = ""
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
@@ -4866,18 +5070,27 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_IMEX.Visible = True
rpt.TextBox6.Visible = False
rpt.TextBox7.Visible = False
Case "AMBAR"
rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
rpt.picVERAG.Image = My.Resources.ambar_simple
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_IMEX.Visible = False
rpt.TextBox6.Visible = True
rpt.TextBox7.Visible = False
Case "UNISPED"
rpt.txtFirmenkennung.Text = "UNISPED Speditions GmbH"
rpt.picVERAG.Image = My.Resources.Unisped_logo
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_IMEX.Visible = False
rpt.TextBox7.Visible = True
Case "ATILLA"
rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
rpt.picVERAG.Image = My.Resources.Atilla
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
rpt.TextBox6.Visible = False
rpt.TextBox7.Visible = False
Case Else 'Nix
rpt.txtFirmaInfo_VERAG.Visible = True
End Select
@@ -6420,6 +6633,26 @@ Public Class FormularManagerNEU
Case Else : Return ""
End Select
End Function
Public Shared Function formatAmountEUR(value As Object, addEUR As Boolean) As String
If value Is Nothing Then Return ""
If value = "" Then Return ""
If IsNumeric(value) Then
Return If(addEUR, "EUR ", "") & CDbl(value).ToString("N2")
Else
Return value.ToString
End If
Return ""
End Function
Public Shared Function formatProz(value As Object, Optional kommast As Integer = 2) As String
If value Is Nothing Then Return ""
If value = "" Then Return ""
If IsNumeric(value) Then
Return CDbl(value).ToString("N" & kommast) & "%"
Else
Return value.ToString
End If
Return ""
End Function
Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
Try
@@ -6890,6 +7123,7 @@ Public Class FormularManagerArten
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
Shared Property VUB = "VUB"
Shared Property VUB_UNISPED = "VUB_UNISPED"
Shared Property VUB_AG = "VUB_AG"
Shared Property VUB_IMEX = "VUB_IMEX"
Shared Property VUB_CS = "VUB_CS"
@@ -6916,6 +7150,11 @@ Public Class FormularManagerArten
Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
Shared Property Lagervertrag = "Lagervertrag"
Shared Property CBAM = "CBAM"
Shared Property CBAM_Zertifikate = "CBAM_Zertifikate"
Shared Property CBAM_indirekt = "CBAM_indirekt"
End Class

27
SDL/SDL.vbproj
View File

@@ -775,6 +775,24 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.Designer.vb">
<DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.Designer.vb">
<DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.Designer.vb">
<DependentUpon>usrcntlCBAM.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.Designer.vb">
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
</Compile>
@@ -3490,6 +3508,15 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.resx">
<DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.resx">
<DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.resx">
<DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.resx">
<DependentUpon>usrcntlCBAM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx">
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
</EmbeddedResource>

1
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -1032,7 +1032,6 @@ Public Class cFormularManager
Else
path_src = vorhandenesLokalesPDF_Path
End If
Dim fi As New System.IO.DirectoryInfo(path_src)
Dim destPath = ""
destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)