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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-12 10:39:35 +02:00
parent 44c41bc528 77cf27117e
commit e2ae5350a2
11 changed files with 947 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

447
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb generated Normal file
View File

@@ -0,0 +1,447 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_FA
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.lblVollmachtDE = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSteuerNr = 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.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbxFA = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtFAAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFAAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFAAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(143, 20)
Me.lblVollmachtDE.TabIndex = 1
Me.lblVollmachtDE.Text = "VOLLMACHT FA"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(177, 92)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(177, 111)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Adresse:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(594, 156)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(55, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Steuer-Nr:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(177, 159)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 20
Me.Label6.Text = "E-Mail:"
'
'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(944, 89)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(261, 156)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 21
'
'txtSteuerNr
'
Me.txtSteuerNr._DateTimeOnly = False
Me.txtSteuerNr._numbersOnly = False
Me.txtSteuerNr._numbersOnlyKommastellen = ""
Me.txtSteuerNr._numbersOnlyTrennzeichen = True
Me.txtSteuerNr._Prozent = False
Me.txtSteuerNr._ShortDateNew = False
Me.txtSteuerNr._ShortDateOnly = False
Me.txtSteuerNr._TimeOnly = False
Me.txtSteuerNr._TimeOnly_Seconds = False
Me.txtSteuerNr._value = Nothing
Me.txtSteuerNr._Waehrung = False
Me.txtSteuerNr._WaehrungZeichen = True
Me.txtSteuerNr.ForeColor = System.Drawing.Color.Black
Me.txtSteuerNr.Location = New System.Drawing.Point(660, 153)
Me.txtSteuerNr.MaxLineLength = -1
Me.txtSteuerNr.MaxLines_Warning = ""
Me.txtSteuerNr.MaxLines_Warning_Label = Nothing
Me.txtSteuerNr.Name = "txtSteuerNr"
Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20)
Me.txtSteuerNr.TabIndex = 15
'
'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(261, 127)
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 = 11
'
'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(261, 108)
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 = 10
'
'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(261, 89)
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 = 5
'
'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 = 30
Me.pic.TabStop = False
'
'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 = 7
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 = 2
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
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(15, 73)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 8
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(12, 57)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 3
Me.Label12.Text = "Sprache:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(232, 20)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(23, 13)
Me.Label7.TabIndex = 31
Me.Label7.Text = "FA:"
'
'cbxFA
'
Me.cbxFA._allowedValuesFreiText = Nothing
Me.cbxFA._allowFreiText = False
Me.cbxFA._value = ""
Me.cbxFA.FormattingEnabled = True
Me.cbxFA.Location = New System.Drawing.Point(261, 16)
Me.cbxFA.Name = "cbxFA"
Me.cbxFA.Size = New System.Drawing.Size(154, 21)
Me.cbxFA.TabIndex = 32
'
'txtFAAdresse1
'
Me.txtFAAdresse1._DateTimeOnly = False
Me.txtFAAdresse1._numbersOnly = False
Me.txtFAAdresse1._numbersOnlyKommastellen = ""
Me.txtFAAdresse1._numbersOnlyTrennzeichen = True
Me.txtFAAdresse1._Prozent = False
Me.txtFAAdresse1._ShortDateNew = False
Me.txtFAAdresse1._ShortDateOnly = False
Me.txtFAAdresse1._TimeOnly = False
Me.txtFAAdresse1._TimeOnly_Seconds = False
Me.txtFAAdresse1._value = Nothing
Me.txtFAAdresse1._Waehrung = False
Me.txtFAAdresse1._WaehrungZeichen = True
Me.txtFAAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtFAAdresse1.Location = New System.Drawing.Point(660, 18)
Me.txtFAAdresse1.MaxLineLength = -1
Me.txtFAAdresse1.MaxLines_Warning = ""
Me.txtFAAdresse1.MaxLines_Warning_Label = Nothing
Me.txtFAAdresse1.Name = "txtFAAdresse1"
Me.txtFAAdresse1.Size = New System.Drawing.Size(310, 20)
Me.txtFAAdresse1.TabIndex = 33
'
'txtFAAdresse2
'
Me.txtFAAdresse2._DateTimeOnly = False
Me.txtFAAdresse2._numbersOnly = False
Me.txtFAAdresse2._numbersOnlyKommastellen = ""
Me.txtFAAdresse2._numbersOnlyTrennzeichen = True
Me.txtFAAdresse2._Prozent = False
Me.txtFAAdresse2._ShortDateNew = False
Me.txtFAAdresse2._ShortDateOnly = False
Me.txtFAAdresse2._TimeOnly = False
Me.txtFAAdresse2._TimeOnly_Seconds = False
Me.txtFAAdresse2._value = Nothing
Me.txtFAAdresse2._Waehrung = False
Me.txtFAAdresse2._WaehrungZeichen = True
Me.txtFAAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtFAAdresse2.Location = New System.Drawing.Point(660, 37)
Me.txtFAAdresse2.MaxLineLength = -1
Me.txtFAAdresse2.MaxLines_Warning = ""
Me.txtFAAdresse2.MaxLines_Warning_Label = Nothing
Me.txtFAAdresse2.Name = "txtFAAdresse2"
Me.txtFAAdresse2.Size = New System.Drawing.Size(309, 20)
Me.txtFAAdresse2.TabIndex = 34
'
'txtFAAdresse3
'
Me.txtFAAdresse3._DateTimeOnly = False
Me.txtFAAdresse3._numbersOnly = False
Me.txtFAAdresse3._numbersOnlyKommastellen = ""
Me.txtFAAdresse3._numbersOnlyTrennzeichen = True
Me.txtFAAdresse3._Prozent = False
Me.txtFAAdresse3._ShortDateNew = False
Me.txtFAAdresse3._ShortDateOnly = False
Me.txtFAAdresse3._TimeOnly = False
Me.txtFAAdresse3._TimeOnly_Seconds = False
Me.txtFAAdresse3._value = Nothing
Me.txtFAAdresse3._Waehrung = False
Me.txtFAAdresse3._WaehrungZeichen = True
Me.txtFAAdresse3.ForeColor = System.Drawing.Color.Black
Me.txtFAAdresse3.Location = New System.Drawing.Point(660, 54)
Me.txtFAAdresse3.MaxLineLength = -1
Me.txtFAAdresse3.MaxLines_Warning = ""
Me.txtFAAdresse3.MaxLines_Warning_Label = Nothing
Me.txtFAAdresse3.Name = "txtFAAdresse3"
Me.txtFAAdresse3.Size = New System.Drawing.Size(309, 20)
Me.txtFAAdresse3.TabIndex = 35
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(580, 18)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(64, 13)
Me.Label9.TabIndex = 37
Me.Label9.Text = "FA-Adresse:"
'
'usrcntlVollmacht_FA
'
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.Label9)
Me.Controls.Add(Me.txtFAAdresse3)
Me.Controls.Add(Me.txtFAAdresse2)
Me.Controls.Add(Me.txtFAAdresse1)
Me.Controls.Add(Me.cbxFA)
Me.Controls.Add(Me.Label7)
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.btn)
Me.Controls.Add(Me.txtEmail)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtSteuerNr)
Me.Controls.Add(Me.Label3)
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.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrcntlVollmacht_FA"
Me.Size = New System.Drawing.Size(1000, 190)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
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 txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents pic As System.Windows.Forms.PictureBox
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 cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label7 As Label
Friend WithEvents cbxFA As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtFAAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtFAAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtFAAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As Label
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.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>

154
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb Normal file
View File

@@ -0,0 +1,154 @@
Public Class usrcntlVollmacht_FA
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
'Dim KdNR As Integer = -1
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
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtSteuerNr.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
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 Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub usrcntlVollmacht_AT_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.changeItem("Deutsch")
cbxFA.Items.Clear()
cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT-FA", "Finanzamt Österreich,Postfach 260,1000 Wien"))
cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Dortmund", "Finanzamt Dormund-Unna,Trakehnerweg 4,D-44143 Dortmund"))
cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Berlin", "Finanzamt Berlin International,Thiemannstr. 1,D-12059 Berlin"))
cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Hannover", "Finanzamt Hannover-Nord,Vahrenwalder Str. 206,D-30165 Hannover"))
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
Private Sub cbxFA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFA.SelectedIndexChanged
Dim faAd1 As String = ""
Dim faAd2 As String = ""
Dim faAd3 As String = ""
txtFAAdresse1.Text = faAd1
txtFAAdresse2.Text = faAd2
txtFAAdresse3.Text = faAd3
If Not cbxFA._value.ToString.Contains(",") Then Exit Sub
Try
Dim searchedString = cbxFA._value.ToString
Dim firstIndex = searchedString.IndexOf(",", 0)
faAd1 = searchedString.Substring(0, firstIndex)
txtFAAdresse1.Text = faAd1
searchedString = searchedString.Replace(faAd1 & ",", "")
If Not searchedString.Contains(",") Then
faAd2 = searchedString
txtFAAdresse2.Text = faAd2
Exit Sub
End If
firstIndex = searchedString.IndexOf(",", 0)
faAd2 = searchedString.Substring(0, firstIndex)
txtFAAdresse2.Text = faAd2
searchedString = searchedString.Replace(faAd2 & ",", "")
If Not searchedString.Contains(",") Then
faAd3 = searchedString
txtFAAdresse3.Text = faAd3
Exit Sub
End If
firstIndex = searchedString.IndexOf(",", 0)
faAd3 = searchedString.Substring(0, firstIndex)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
End Class

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

@@ -288,6 +288,7 @@ Public Class frmFormulare
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))
@@ -526,6 +527,18 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.Vollmacht_FA
Dim c As New usrcntlVollmacht_FA
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.Importaviso_VK
Dim c As usrcntlVorauskasse
If param Is Nothing Then
@@ -1400,6 +1413,8 @@ Public Class FormularManagerNEU
retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
Case GetType(usrcntlVollmacht_FA).ToString
striList = FormularManagerNEU.VM_VERAG_FA(c, printReportElsePdf, printerName)
Case GetType(usrcntlVorauskasse).ToString
retStr = FormularManagerNEU.Importaviso_VK(c)
Case GetType(usrcntlImportaviso).ToString
@@ -3669,6 +3684,113 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function VM_VERAG_FA(usrCntl As usrcntlVollmacht_FA, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
Dim striList As New List(Of String)
Try
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
Dim oWord As New Microsoft.Office.Interop.Word.Application
Dim FIRMA As cFirmen
Dim FIRMA2 As cFirmen
Dim docBez As String = ""
If usrCntl.cbxFA.SelectedItem.ToString = "AT-FA" Then
docBez = "Vollmacht_Steuerabwicklung_AT"
FIRMA = New cFirmen(11) 'CS
Else
docBez = "Vollmacht_Steuerabwicklung_DE"
FIRMA = New cFirmen(1) 'AG
FIRMA2 = New cFirmen(2) ' GMBH
End If
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False)
Dim cGenWord As New cGenWord
odoc = cGenWord.openWord(pfadWord, False, oWord)
If odoc Is Nothing Then Return striList
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For Each item In odoc.FormFields
Dim fieldName = item.Name.ToLower().Trim()
Select Case fieldName
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text & ", " & usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
Case "mandant" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & " in " & FIRMA.Firma_Ort
Case "mandant2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & " in " & FIRMA2.Firma_Ort
Case "mandant_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & ", " & FIRMA.Firma_Ort
Case "mandant_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
Case "mandant2_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & ", " & FIRMA2.Firma_Ort
Case "mandant2_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Telefon & " " & FIRMA2.Firma_Telefax
Case "fa2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse2.Text
Case "fa3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse3.Text
Case "kunde1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "kunde2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "kunde3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
Case "fa_bez" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse1.Text
Case "date" : odoc.FormFields(fieldName).Range.Text = Today().ToString("dd-MM-yyyy")
End Select
Next
odoc.Save() : odoc.Activate()
If openWord Then
oWord.Visible = True
Return New List(Of String)
ElseIf printReportElsePDF Then
oWord.DisplayAlerts = False
oWord.PrintOut()
Try
oWord.Documents.Close()
'Quit word application
oWord.Quit()
'Release
oWord = Nothing
Catch ex As Exception
'NIX, kann sein, dass noch offen..
End Try
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & docBez & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
Try
odoc.Close()
oWord.Quit()
Catch ex As Exception
MsgBox(ex.Message)
End Try
striList.Add(path)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return striList
End Function
Shared Function VM_VERAG_GB_IE(usrCntl As usrcntlVollmacht_GB_IE) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -6114,22 +6236,17 @@ Public Class FormularManagerArten
Shared Property DE_Vollmacht = "DE_Vollmacht"
Shared Property DE_Vollmacht_indirekt = "DE_Vollmacht_indirekt"
Shared Property DE_Fiskal = "DE_Fiskal"
Shared Property AT_Vollmacht = "AT_Vollmacht"
Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV"
Shared Property AT_Fiskal = "AT_Fiskal"
Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF"
Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word"
Shared Property Vollmacht_FA = "Vollmacht_FA"
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
Shared Property VUB = "VUB"
Shared Property VUB_AG = "VUB_AG"
Shared Property VUB_IMEX = "VUB_IMEX"
@@ -6144,7 +6261,6 @@ Public Class FormularManagerArten
Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung"
Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
Shared Property EORI_Antrag = "EORI_Antrag"
Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"
@@ -6152,11 +6268,9 @@ Public Class FormularManagerArten
Shared Property SA_Gestellung = "SA_Gestellung"
Shared Property Importaviso = "Importaviso"
Shared Property Verbundenheit = "Verbundenheit"
Shared Property Sendungsliste = "Sendungsliste"
Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"

9
SDL/SDL.vbproj
View File

@@ -666,6 +666,12 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.Designer.vb">
<DependentUpon>usrcntlVollmacht_FA.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.Designer.vb">
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
</Compile>
@@ -3196,6 +3202,9 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.resx">
<DependentUpon>usrcntlVollmacht_GB_IE.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.resx">
<DependentUpon>usrcntlVollmacht_FA.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
<DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
</EmbeddedResource>

4
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -512,8 +512,8 @@ Public Class frmBU_Mahnlauf
End Select
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
Mail_cc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
Mail_bcc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")
Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")
' isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email,
'isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email,

109
SDL/frmdynMailvorlage.Designer.vb generated
View File

@@ -24,6 +24,8 @@ Partial Class frmdynMailvorlagen
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.mainPanel = New System.Windows.Forms.Panel()
Me.Label11 = New System.Windows.Forms.Label()
Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtSendungsvermerk = New System.Windows.Forms.TextBox()
@@ -36,7 +38,6 @@ Partial Class frmdynMailvorlagen
Me.Label7 = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.txtBetreff = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -59,8 +60,9 @@ Partial Class frmdynMailvorlagen
Me.Label3 = New System.Windows.Forms.Label()
Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label11 = New System.Windows.Forms.Label()
Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
Me.txtfixeEmail = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.mainPanel.SuspendLayout()
Me.pnlTop.SuspendLayout()
CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -71,6 +73,9 @@ Partial Class frmdynMailvorlagen
Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mainPanel.Controls.Add(Me.TextBox1)
Me.mainPanel.Controls.Add(Me.txtfixeEmail)
Me.mainPanel.Controls.Add(Me.Label12)
Me.mainPanel.Controls.Add(Me.Label11)
Me.mainPanel.Controls.Add(Me.rtb_txthtml)
Me.mainPanel.Controls.Add(Me.cbxSendungsvermerk)
@@ -85,7 +90,6 @@ Partial Class frmdynMailvorlagen
Me.mainPanel.Controls.Add(Me.Label7)
Me.mainPanel.Controls.Add(Me.txtBezeichnung)
Me.mainPanel.Controls.Add(Me.Label6)
Me.mainPanel.Controls.Add(Me.TextBox1)
Me.mainPanel.Controls.Add(Me.txtBetreff)
Me.mainPanel.Controls.Add(Me.Label5)
Me.mainPanel.Controls.Add(Me.cboSprache)
@@ -101,6 +105,26 @@ Partial Class frmdynMailvorlagen
Me.mainPanel.Size = New System.Drawing.Size(1283, 457)
Me.mainPanel.TabIndex = 101
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(638, 71)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(89, 13)
Me.Label11.TabIndex = 41
Me.Label11.Text = "Email-Text-HTML"
'
'rtb_txthtml
'
Me.rtb_txthtml.AcceptsTab = True
Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
Me.rtb_txthtml.Location = New System.Drawing.Point(641, 87)
Me.rtb_txthtml.Name = "rtb_txthtml"
Me.rtb_txthtml.ReadOnly = True
Me.rtb_txthtml.Size = New System.Drawing.Size(625, 307)
Me.rtb_txthtml.TabIndex = 40
Me.rtb_txthtml.Text = ""
'
'cbxSendungsvermerk
'
Me.cbxSendungsvermerk._allowedValuesFreiText = Nothing
@@ -156,12 +180,13 @@ Partial Class frmdynMailvorlagen
'
Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox2.Location = New System.Drawing.Point(22, 400)
Me.TextBox2.Location = New System.Drawing.Point(10, 414)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(256, 45)
Me.TextBox2.Size = New System.Drawing.Size(576, 31)
Me.TextBox2.TabIndex = 34
Me.TextBox2.Text = "* Email-Text-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%VAR-GRENZE%"
Me.TextBox2.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" &
"enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
'
'btn
'
@@ -222,28 +247,17 @@ Partial Class frmdynMailvorlagen
Me.Label6.TabIndex = 28
Me.Label6.Text = "Bezeichnung"
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox1.Location = New System.Drawing.Point(823, 3)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(110, 61)
Me.TextBox1.TabIndex = 27
Me.TextBox1.Text = "* Betreff-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKW%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKWKennzeichen%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%Empfaenger%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'txtBetreff
'
Me.txtBetreff.Location = New System.Drawing.Point(465, 20)
Me.txtBetreff.Location = New System.Drawing.Point(421, 21)
Me.txtBetreff.Name = "txtBetreff"
Me.txtBetreff.Size = New System.Drawing.Size(290, 20)
Me.txtBetreff.Size = New System.Drawing.Size(460, 20)
Me.txtBetreff.TabIndex = 26
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(462, 3)
Me.Label5.Location = New System.Drawing.Point(418, 4)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(42, 13)
Me.Label5.TabIndex = 25
@@ -274,9 +288,9 @@ Partial Class frmdynMailvorlagen
'
Me.rtb_Emailtext.AcceptsTab = True
Me.rtb_Emailtext.BackColor = System.Drawing.SystemColors.Window
Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 72)
Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 87)
Me.rtb_Emailtext.Name = "rtb_Emailtext"
Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 322)
Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 307)
Me.rtb_Emailtext.TabIndex = 22
Me.rtb_Emailtext.Text = ""
'
@@ -323,7 +337,7 @@ Partial Class frmdynMailvorlagen
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(19, 56)
Me.Label1.Location = New System.Drawing.Point(19, 71)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 1
@@ -483,27 +497,34 @@ Partial Class frmdynMailvorlagen
Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
Me.dgvMailvorlagen.TabIndex = 104
'
'Label11
'txtfixeEmail
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(647, 56)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(89, 13)
Me.Label11.TabIndex = 41
Me.Label11.Text = "Email-Text-HTML"
Me.txtfixeEmail.Location = New System.Drawing.Point(136, 61)
Me.txtfixeEmail.Name = "txtfixeEmail"
Me.txtfixeEmail.Size = New System.Drawing.Size(324, 20)
Me.txtfixeEmail.TabIndex = 43
'
'rtb_txthtml
'Label12
'
Me.rtb_txthtml.AcceptsTab = True
Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
Me.rtb_txthtml.Location = New System.Drawing.Point(641, 72)
Me.rtb_txthtml.Name = "rtb_txthtml"
Me.rtb_txthtml.ReadOnly = True
Me.rtb_txthtml.Size = New System.Drawing.Size(625, 322)
Me.rtb_txthtml.TabIndex = 40
Me.rtb_txthtml.Text = ""
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(133, 45)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(194, 13)
Me.Label12.TabIndex = 42
Me.Label12.Text = "fixer Empfänger (mehrere mit ; getrennt):"
'
'frmdynMailvorlage
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox1.Location = New System.Drawing.Point(10, 395)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(109, 18)
Me.TextBox1.TabIndex = 44
Me.TextBox1.Text = "* Text-Variablen:"
'
'frmdynMailvorlagen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -513,7 +534,7 @@ Partial Class frmdynMailvorlagen
Me.Controls.Add(Me.btnDelete)
Me.Controls.Add(Me.pnlTop)
Me.Controls.Add(Me.dgvMailvorlagen)
Me.Name = "frmdynMailvorlage"
Me.Name = "frmdynMailvorlagen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmdynMailvorlage"
Me.mainPanel.ResumeLayout(False)
@@ -542,7 +563,6 @@ Partial Class frmdynMailvorlagen
Friend WithEvents Label2 As Label
Friend WithEvents rtb_Emailtext As RichTextBox
Friend WithEvents Label5 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents txtBetreff As TextBox
Friend WithEvents txtBezeichnung As TextBox
Friend WithEvents Label6 As Label
@@ -562,4 +582,7 @@ Partial Class frmdynMailvorlagen
Friend WithEvents cbSendungsvermerk As CheckBox
Friend WithEvents Label11 As Label
Friend WithEvents rtb_txthtml As RichTextBox
Friend WithEvents txtfixeEmail As TextBox
Friend WithEvents Label12 As Label
Friend WithEvents TextBox1 As TextBox
End Class

5
SDL/frmdynMailvorlage.vb
View File

@@ -210,10 +210,10 @@ Public Class frmdynMailvorlagen
rtb_txthtml.Text = txtkonserve.txt_text
cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
cbSendungsvermerk.Checked = txtkonserve.txt_sendungsvermerk
cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail
Catch ex As Exception
@@ -240,7 +240,7 @@ Public Class frmdynMailvorlagen
txtKS.txt_firmaSig = cboFirmensignatur._value
txtKS.txt_letzteAenderung = DateTime.Now
txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text
txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked
If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub
@@ -346,6 +346,7 @@ Public Class frmdynMailvorlagen
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
If txtfixeEmail.Text <> "" Then Mail.To = txtfixeEmail.Text
If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then

27
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -22,7 +22,6 @@ Partial Class frmKundenUebersichtZOLL
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -30,13 +29,13 @@ Partial Class frmKundenUebersichtZOLL
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL))
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tabZolltarife = New System.Windows.Forms.TabPage()
Me.pnlZollTarife = New System.Windows.Forms.Panel()
Me.tabKundendaten = New System.Windows.Forms.TabPage()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -84,10 +83,10 @@ Partial Class frmKundenUebersichtZOLL
Me.btnSpeichern = New System.Windows.Forms.Button()
Me.Label35 = New System.Windows.Forms.Label()
Me.tbRechnungen = New System.Windows.Forms.TabPage()
Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
Me.btnRgPdf = New System.Windows.Forms.Button()
Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip()
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnMonat = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
@@ -97,7 +96,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.tbCBAM = New System.Windows.Forms.TabPage()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
@@ -144,8 +143,8 @@ Partial Class frmKundenUebersichtZOLL
Me.pic = New System.Windows.Forms.PictureBox()
Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.rtbInfo = New System.Windows.Forms.RichTextBox()
Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tmrFiskal = New System.Windows.Forms.Timer()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -153,6 +152,7 @@ Partial Class frmKundenUebersichtZOLL
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.VollmachtFinanzamtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -1144,7 +1144,7 @@ Partial Class frmKundenUebersichtZOLL
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem})
Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem})
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(242, 22)
Me.ToolStripMenuItem4.Text = "Vollmachten"
@@ -1512,6 +1512,12 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'VollmachtFinanzamtToolStripMenuItem
'
Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
'
'frmKundenUebersichtZOLL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1685,4 +1691,5 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents mnueCBAM As ToolStripMenuItem
Friend WithEvents EinfuhrverbotToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TOBBKdNrÄndernToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VollmachtFinanzamtToolStripMenuItem As ToolStripMenuItem
End Class

4
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -1465,6 +1465,10 @@ Public Class frmKundenUebersichtZOLL
Dim f As New frmKundenTOBBKdNr(kdNr)
f.ShowDialog(Me)
End Sub
Private Sub VollmachtFinanzamtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollmachtFinanzamtToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Vollmacht_FA, kdNr, {})
End Sub
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -70,10 +70,10 @@ Public Class cTextkonserve
Property txt_dynMailvorlage As Boolean
Property txt_letzteAenderungUser As String
Property txt_letzteAenderung As DateTime
Property txt_sendungsvermerk As Boolean
Property txt_sendungsvermerkId As Integer
Property txt_sendungsvermerkText As String
Property txt_fixerEmpfaengerEmail As String
@@ -118,6 +118,7 @@ Public Class cTextkonserve
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerk", txt_sendungsvermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_fixerEmpfaengerEmail", txt_fixerEmpfaengerEmail))
Return list
End Function